Tweet
L'USO DI QUESTO SCRIPT PUO' PORTARE ALLA VIOLAZIONE DEL REGOLAMENTO DI UOD CON ANNESSE SANZIONI.
Script per fare la quest della libreria di Britta dei reading glasses of arts:
Va tenuto il legno nella bank
Vanno markate 2 rune, 1 in bank 1 all'npc quester e i loro id vanno inseriti nelle prime due righe dello script come richiesto.
La terza riga indica la quantità di boards per volta.
Script per fare la quest della libreria di Britta dei reading glasses of arts:
Va tenuto il legno nella bank
Vanno markate 2 rune, 1 in bank 1 all'npc quester e i loro id vanno inseriti nelle prime due righe dello script come richiesto.
La terza riga indica la quantità di boards per volta.
codice:
Set %BANK DJKDVMD ;Runa banca
set %QUEST KJKDVMD ; Runa quest
Set %Amount 200 ; Boards a restoccare
;Non editare nulla al di sotto di questo!!
Set %NPC BEYM
Set %Boards TLK ;Type
Set %CN 0
Set %CO 1190
Set %CA 1191
Set %CY 1192
Set %CH 1193
Set %CB 1194
Set %CF 1151
Set %BN 205
Set %BO 240
Set %BA 280
Set %BY 170
Set %BH 205
Set %BB 240
Set %BF 280
Set %PN 1
Set %PO 1
Set %PA 1
Set %PY 2
Set %PH 2
Set %PB 2
Set %PF 2
Loop:
Gosub Restock
gosub consegna
Goto Loop
sub consegna
Gosub Recall %quest
Consegna:
Finditem %Boards C_ , #backpackid
For #FindIndex 1 #FindCnt
{
gosub DetectMaterial
Set #Lobjectid %NPC
Event macro 17
Set %TimeOut #Systime + 4000
while ( ( #CONTNAME <> generic_gump ) || ( #CONTSIZE <> 345_359 ) ) && ( #systime < %TimeOut )
wait 1
For %PAG 1 %MP
{
set %clickx #CONTPOSX + 306
set %clicky #CONTPOSy + 345
click %clickx %clicky
Set %TimeOut #Systime + 4000
while ( ( #CONTNAME <> generic_gump ) || ( #CONTSIZE <> 345_359 ) ) && ( #systime < %TimeOut )
wait 1
}
set %clickx #CONTPOSX + 39
set %clicky #CONTPOSy + %MB
click %clickx %clicky
wait 15
wait 5
Msg $
Msg #Findstack
Msg $
wait 5
}
Finditem %Boards C_ , #backpackid
if #FindKind <> -1
Goto Consegna
return
sub DetectMaterial
If #FindCol = %CN
{
Set %MC %CN
Set %MB %BN
Set %MP %PN
}
If #FindCol = %CH
{
Set %MC %CH
Set %MB %BH
Set %MP %PH
}
If #FindCol = %CO
{
Set %MC %CO
Set %MB %BO
Set %MP %PO
}
If #FindCol = %CA
{
Set %MC %CA
Set %MB %BA
Set %MP %PA
}
If #FindCol = %CE
{
Set %MC %CE
Set %MB %BE
Set %MP %PE
}
If #FindCol = %CY
{
Set %MC %CY
Set %MB %BY
Set %MP %PY
}
If #FindCol = %CB
{
Set %MC %CB
Set %MB %BB
Set %MP %PB
}
If #FindCol = %CF
{
Set %MC %CF
Set %MB %BF
Set %MP %PF
}
return
Sub Restock
Gosub Recall %Bank
Msg $ Bank $
Wait 2s
FOR %I 1 1
{
set %BC %CN
Gosub Search
If #Result
Break
set %BC %CO
Gosub Search
If #Result
Break
set %BC %CA
Gosub Search
If #Result
Break
set %BC %CY
Gosub Search
If #Result
Break
set %BC %CH
Gosub Search
If #Result
Break
set %BC %CB
Gosub Search
If #Result
Break
set %BC %CF
Gosub Search
If #Result
Break
}
If #FindStack < %amount
set %AMT #Findstack
else
set %AMT %Amount
exevent drag %ID %AMT
wait 5
exevent dropc #backpackid
wait 5
Return
Sub Search
Finditem %Boards C
For #Findindex 1 #findcnt
{
If #Findcol = %BC 2
Set %ID #Findid
Return #True
}
Return #FALSE
sub recall
set %_oldx #charposx
set %_oldy #charposy
repeat
set #targcurs 0
while #mana < 10
{
sleep 10
}
event macro 15 31
target 60s
set #ltargetid %1
set #ltargetkind 1
set !jindex #jindex + 1
event macro 22 0
set !w4serr #scnt + 3
set %nextjinedxend #jindex
set %castagain #false
set %runabloccata #false
wait 1s
set !w4serr #scnt + 10
set %castagain #false
while %_oldx = #charposx && %_oldy = #charposy && #scnt < !w4serr ;&& %castagain = #false
{
set %nextjinedxend #jindex
if !jindex <= %nextjinedxend
{
for %i !jindex %nextjinedxend
{
scanjournal %i
if THAT_LOCATION_IS_BLOCKED in #journal || disturbed in #journal || recovered in #journal || You_cannot_cast_a_spell_while_frozen. in #journal
set %castagain #true
if Thou_art_too_encumbered_to_move. in #journal
{
set %amounttodrop #weight - #maxweight - 60
set %amounttodrop %amounttodrop / 4
set %amounttodrop %amounttodrop + 1
finditem %axe C_ , #backpackid
for #findindex 1 #findcnt
{
exevent drag #findid
wait 2
exevent dropg #charposx #charposy #charposz
wait 7
if #findindex = %amounttodrop
break
}
set %castagain #true
}
}
set !jindex %nextjinedxend + 1
}
sleep 10
}
if ( %castagain || #scnt > !w4serr ) && ( %_oldx = #charposx ) && ( %_oldy = #charposy )
set %castagain #true
else
set %castagain #false
until %castagain = #false
return
: algander#6292
Commenta