Toggle shoutbox Chat
|
Regu Scr.
#1
Posted 21 January 2011 - 18:46
Vajag skriptu, kurš pats pērk regus un teleportējās uz nākošo veikalu pie nākošā pārdevēja.Utt...
Meklēju šeit, bet neko jēdzīgu neatreadu
Uz EasyUO
#2
Posted 21 January 2011 - 19:19
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
#3
Posted 21 January 2011 - 20:49
set %runebook IWZZJMD;;;;;;;;;;;;;;;;;;;;; set %regi JUF_KUF_PZF_MZF_MMF_LZF_WZF_JZF;;;;;; set %bag ZCXGLMD;;;;;;;;;;;;;;;;;;;;;;;;;;;
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
Gosub Buy DHIAC Daren Gosub Buy VDIAC Delbin
Un te kur tev vajadzēs salikt vendoru ID un vārus pie kuriem viņš lidos!
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#4
Posted 21 January 2011 - 21:56
Cik es saprotu, tad jānomaina ir šeit- set %regi JUF_KUF_PZF_MZF_MMF_LZF_WZF_JZF šie nosaukimi, ja? Kā lai to izdara?
Un Exjtjuti, vai tam vendoriem ID un vārds arī ir jānomaina, ja skriptā ir tādi paši vārdi kā vendoram spēlē?
Un tad, kā lai nomaina vendoram ID? ķipa tas #LABJECTID ir tas ID?
Varbūt pat kādam ir šitais scr gatavs, kur tikai jāsaliek man runebūkā rūnām nosaukumi un viss aizies?
#5
Posted 21 January 2011 - 22:52
Ganjau ka ir ,bet šaubos vai dos..Paldies Extjuty. Tgt teleportējās, bet kā, lai uzliek id, lai viņš man pirktu tos itemus kurus man vajag.
Cik es saprotu, tad jānomaina ir šeit- set %regi JUF_KUF_PZF_MZF_MMF_LZF_WZF_JZF šie nosaukimi, ja? Kā lai to izdara?
Un Exjtjuti, vai tam vendoriem ID un vārds arī ir jānomaina, ja skriptā ir tādi paši vārdi kā vendoram spēlē?
Un tad, kā lai nomaina vendoram ID? ķipa tas #LABJECTID ir tas ID?
Varbūt pat kādam ir šitais scr gatavs, kur tikai jāsaliek man runebūkā rūnām nosaukumi un viss aizies?
#6
Posted 21 January 2011 - 23:14
NedodietGanjau ka ir ,bet šaubos vai dos..
Bet palīdziet šito pašu scr. palaist pie dzīvības.
Problēma:
*Runebook ID uzliku, pats scr atrod runebook. Viņš atver runebok, tad atver sadaļu, kur var izmest chargu ārā,izmantot teleportu, (ceru ka sapratāt) Un vairāk nekas nenotiek.
-Kas tur jānomaina, lai biņš teleportētos pa rūnām?
*Tālāk, man interesē kas ir šis te:
set %click1 266
set %click2 388
set %click3 279
set %click4 349
*Šitā sadaļā, vendora vārds ir vienāds ar spēlē esošo vendoru. Tur lkm nekas nav jāmaina?
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
#7
Posted 22 January 2011 - 00:31
#8
Posted 22 January 2011 - 00:36
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
#9
Posted 22 January 2011 - 12:04
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users