Posted 21 January 2011 - 19:19
Atradu šādu scr. Pasakiet, kas man šeit ir jaizmaina, lai es lidotu uz visiem shopiem un pirktu regus.
Variet ielikt kādu citu scr. kurš iet vai arī man palīdzēt atrisināt problēmu.
set %runebook IWZZJMD es nomainiju, bet man rādās šāds tekts-Nav Runebooka.Paarbaudi, vai esi uzstaadiijis taa ID jeb arii vai tas atrodas tavaa backpackaa.
Kpc viņš rādās?
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;autoreagentsbuyer by keidzhii;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;setup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
set %runebook IWZZJMD;;;;;;;;;;;;;;;;;;;;;
set %regi JUF_KUF_PZF_MZF_MMF_LZF_WZF_JZF;;;;;;
set %bag ZCXGLMD;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
mainloop:
gosub Britain1stMageShop
gosub Britain2ndMageShop
gosub NujelMageShop
gosub Unload
gosub TakeRegsForRecalling
gosub YewMage
gosub SerpentMage
gosub OccloMage1
gosub Wind3rdMageShop
gosub OccloMage2
gosub JhelomMage
gosub Unload
gosub TakeRegsForRecalling
gosub SkarabraeMage
gosub Wind2ndMageShop
gosub Unload
gosub TakeRegsforRecalling
gosub WaitUntilNextCircle
goto mainloop
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub Britain1stMageShop
set %click1 266
set %click2 388
set %click3 279
set %click4 349
set %number 1
gosub Click&Fly
Gosub Buy DHIAC Daren
Gosub Buy VDIAC Delbin
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub Britain2ndMageShop
set %click1 266
set %click2 388
set %click3 445
set %click4 350
set %number 1
gosub Click&Fly
Gosub Buy UAIAC Vesta
Gosub Buy CUHAC Missy
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub NujelMageShop
set %click1 300
set %click2 385
set %click3 281
set %click4 352
set %number 2
gosub Click&Fly
gosub Buy TBVZB Bronson
gosub Buy PBVZB Leo
gosub Buy DDVZB Genevieve
gosub Buy KCVZB Chuck
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub YewMage
set %click1 300
set %click2 385
set %click3 445
set %click4 350
set %number 2
gosub Click&Fly
gosub Buy UYKZB Mandy
Gosub Buy ZXKZB Berit
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub SerpentMage
set %click1 334
set %click2 387
set %click3 287
set %click4 352
set %number 3
gosub Click&Fly
gosub Buy KGRZB Stacey
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub OccloMage1
set %click1 334
set %click2 387
set %click3 450
set %click4 347
set %number 3
gosub Click&Fly
gosub Buy DDWZB Gaylord
gosub Buy DEWZB Buck
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub OccloMage2
set %click1 370
set %click2 386
set %click3 280
set %click4 344
set %number 4
gosub Click&Fly
gosub Buy KWVZB Delmore
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub MoonglowMage1
set %click1 370
set %click2 386
set %click3 449
set %click4 345
set %number 4
gosub Click&Fly
gosub Buy BXZZB Nediva
gosub Buy ZPZZB Eden
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub MoonglowMage2
set %click1 434
set %click2 386
set %click3 282
set %click4 350
set %number 5
gosub Click&Fly
gosub Buy MVXZB Esmeralda
gosub Buy HKXZB Alaina
gosub Buy NUXZB Bancroft
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub JhelomMage
set %click1 434
set %click2 386
set %click3 450
set %click4 349
set %number 5
gosub Click&Fly
gosub Buy RUSZB Quincy
gosub Buy ARSZB Jonah
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub SkarabraeMage
set %click1 467
set %click2 387
set %click3 279
set %click4 350
set %number 6
gosub Click&Fly
gosub Buy VXLZB Virgil
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub Wind1stMageShop
set %click1 467
set %click2 387
set %click3 446
set %click4 348
set %number 6
gosub Click&Fly
gosub Buy SJIAC Banning
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub Wind2ndMageShop
set %click1 499
set %click2 384
set %click3 280
set %click4 352
set %number 7
gosub Click&Fly
gosub Buy LBKAC Matrika
gosub Buy RBJZB Volf
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub Wind3rdMageShop
set %click1 499
set %click2 384
set %click3 445
set %click4 350
set %number 7
gosub Click&Fly
gosub Buy LOMZB Berk
gosub Buy XZIZB Ingrid
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub OpenRunebook
repeat:
{
Finditem %Runebook C_ , #backpackid
if #findkind = -1
{
Display ok Nav Runebooka.Paarbaudi, vai esi uzstaadiijis taa ID jeb arii vai tas atrodas tavaa backpackaa.
halt
}
Set #lobjectid #findid
Event Macro 17 0
wait 4
}
Until #ContSize = 577_426
Return
;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub Click&Fly
set %success #false
set %GlobalTimer #sCnt + 60
repeat
{
set %tries 0
repeat
{
set %tries %tries + 1
Gosub OpenRunebook
}
until %tries > 5 || #contsize = 577_426; runebook gump
if #contsize = 577_426
{
Click %click1 %click2
set %tries 0
_WaitForRunebookGump:
If #contName <> generic_gump && #contsize <> 577_426
{
Wait 1
set %tries %tries + 1
if %tries < 5
Goto _WaitForRunebookGump
}
if %Number = 1
set %contsize 604_426
if %Number = 2
set %contsize 577_426
if %Number = 3
set %contsize 577_426
if %Number = 4
set %contsize 599_426
if %Number = 5
set %contsize 579_426
if %Number = 6
set %contsize 585_426
if %Number = 7
set %contsize 577_426
if %Number = 8
set %contsize 577_426
If #contName = generic_gump && #contsize = %contsize
{
set %OldCharX #charposX
set %OldCharY #charposY
set %tries 0
repeat
{
set %tries %tries + 1
Click %click3 %click4
set %timerWait #sCnt + 10
repeat
{
wait 1
}
until %OldCharX <> #charposX || %OldCharY <> #charposY || #scnt > %timerwait
}
until ( %OldCharX <> #charposX || %OldCharY <> #charposY ) || %tries > 5
if %OldCharX <> #charposX || %OldCharY <> #charposY
{
set %success #true
}
}
}
}
until #scnt > %GlobalTimer || %success = #true
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub Buy
set %weight #weight
for %i 1 3
{
finditem %1
if #findkind = -1
return
event pathfind #findx #findy
wait 2s
msg ,buy regi %2 $
wait 5
if %weight <> #weight
{
wait 1s
msg Thank You %2 !$
break
}
wait 4
}
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub Unload
gosub OpenRunebook
set %click1 537
set %click2 384
set %click3 283
set %click4 352
set %number 8
Gosub Click&Fly
gosub RunTo 2478 80
event macro 12
gosub RunTo 2478 83
event macro 12
repeat
{
finditem %bag G_3
set #lobjectid #findid
event macro 17 0
wait 40
}
Until #contName = container_gump && #Contsize = 176_194
Contpos 0 0
wait 1s
repeat
{
finditem %regi C_ , #backpackid
if #findcnt > 0
{
exevent drag #findid #findstack
wait 5
exevent dropc #contid
wait 5
repeat
{
finditem #findid C_ , #backpackid
wait 1
}
until #findkind = -1
}
finditem %regi C_ , #backpackid
wait 1
}
until #findkind = -1
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub TakeRegsForRecalling
repeat
{
finditem %bag G_2
set #lobjectid #findid
event macro 17 0
wait 2
}
Until #contName = container_gump && #contsize = 176_194
Contpos 0 0
event Sysmessage Njemam regus priekjsh recalloshanaas...
wait 1s
Finditem KUF C_ , #ContID
if #findkind = -1
HALT
Exevent drag #findid 10
wait 1s
Exevent Dropc #backpackid
wait 1s
set %overtime #scnt + 15
set %WaitResult #false
repeat
{
finditem KUF C_ , #backpackid
wait 5
if #scnt > %overtime
{
Finditem KUF C_ , #ContID
if #findkind = -1
HALT
Exevent drag #findid 10
wait 1s
Exevent Dropc #backpackid
wait 1s
set %WaitResult #True
}
}
until #findkind <> -1 || %WaitResult = #True
Finditem JUF C_ , #ContID
if #findkind = -1
HALT
Exevent drag #findid 10
wait 1s
Exevent Dropc #backpackid
wait 1s
set %overtime #scnt + 15
set %WaitResult #false
repeat
{
finditem JUF C_ , #backpackid
wait 5
if #scnt > %overtime
{
Finditem JUF C_ , #ContID
if #findkind = -1
HALT
Exevent drag #findid 10
wait 1s
Exevent Dropc #backpackid
wait 1s
set %WaitResult #True
}
}
until #findkind <> -1 || %WaitResult = #True
Finditem MZF C_ , #ContID
if #findkind = -1
HALT
Exevent drag #findid 10
wait 1s
Exevent Dropc #backpackid
wait 1s
set %overtime #scnt + 15
set %WaitResult #false
repeat
{
finditem MZF C_ , #backpackid
wait 5
if #scnt > %overtime
{
Finditem MZF C_ , #ContID
if #findkind = -1
HALT
Exevent drag #findid 10
wait 1s
Exevent Dropc #backpackid
wait 1s
set %WaitResult #True
}
}
until #findkind <> -1 || %WaitResult = #True
event macro 13 46
wait 20s
return
sub runTo
repeat
{
move %1 %2 0 10s
}
until #charPosX = %1 && #charPosY = %2
return
sub WaitUntilNextCircle
event macro 13 21
wait 250s
return
BMWPower