Ed ecco la versione dello script sopra senza la necessitą di una barca. Assicuratevi solo di avere libertą di movimento di 88 passi in direzione nord, poi 8 in direzione est, poi ancora 88 sud e infine 8 a ovest (tornando dunque alla posizione iniziale) senza incorrere in ostacoli. Consiglio Haven. Anche questo funziona solo con le Lap Harp.
codice:
;===================
; Script Name: KaiserMusic&PeaceTrainer
; Author: Kaiser Souze
; Version: 1.0
; Client Tested with: 4.0.11b
; EUO version tested with: 1.42 (00AA)
; Shard: Ultima Online Dreams
; Revision Date: 08-10-05
; Public Release:11-01-03
; Purpose: Trains Peacemaking and Musicianship
;*******MAIN**PROGRAM******
initEvents
set %counter 0
SET %instruments QRF
event macro 8 7
contpos 1000 700
set %Backpack #CONTID
;*** first-label ***
rulla:
chooseSkill musi
set %skillValueMusicianship #skill
chooseSkill peac
set %skillValuePeacemaking #skill
;*** second-label ***
cicla:
msg guards$
gosub pacia
wait 11s
chooseSkill musi
set %actualValueMusicianship #skill
set %gainMusicianship %actualValueMusicianship - %skillValueMusicianship
chooseSkill peac
set %actualValuePeacemaking #skill
set %gainPeacemaking %actualValuePeacemaking - %skillValuePeacemaking
if %gainMusicianship < 3 && %gainPeacemaking < 3
{
goto cicla
}
else
{
gosub changeGainZone
goto rulla
}
halt
;SUBROUTINE:PACIA*
sub pacia
event macro 13 9
target 3s
if what_instrument_shall_you_play in #sysMsg
{
findItem %instruments C_ , %Backpack
set #lTargetID #FINDID
event macro 22 0
}
target 3s
event macro 23 0
return
;SUBROUTINE:CHANGEGAINZONE*
sub changeGainZone
if %counter < 11
{
set %newX #charPosX
set %newY #charPosY - 8
set %counter %counter + 1
goto move
}
if %counter = 11
{
set %newX #charPosX + 8
set %newY #charPosY
set %counter %counter + 1
goto move
}
if %counter > 11 && %counter <> 23
{
set %newX #charPosX
set %newY #charPosY + 8
set %counter %counter + 1
goto move
}
if %counter = 23
{
set %newX #charPosX - 8
set %newY #charPosY
set %counter 0
goto move
}
;*** third-label ***
move:
move %newX %newY 0 10s
goto rulla
return





Aribeth


Commenta