Toggle shoutbox Chat
|
Испортим экономику шарда.
#41
Posted 21 September 2007 - 14:38
#42
Posted 23 September 2007 - 12:31
добавлял только медитацию,попрошайничаю по одной рунбуке (первой)
просьба если чето не так подредактировать,того что макрос работает когда как ,бывает 3 часа ,бывает 10 минут...
вот мной скрипт
#------------------------------ #Change Log # *If npc hase no money, he will go to next respawn. # *Added second runebook recall. # *Fixed message bug. # *Fixed reconnector bug. var book1='0x400D3041' #runebook 1 var book2='0x4000C2E8' #runebook 2 sub begging() var k,j,b var second=1 # 0 - two runebooks, 1 - one runebook. #---------------------------------------- # NPC ID [,info] #---------------------------------------- DIM ven[16] ven[1]='0x0010E533' #Britain tinker ven[2]='0x00118C0E' #Moonglow provisioner ven[3]='0x0011738B' #Moonglow carpenter ven[4]='0x00112F0B' #Minoc butcher ven[5]='0x0011741B' #Minoc banker ven[6]='0x001149A6' #Britain blue boar ven[7]='0x0011A2BC' #Moonglow provisioner ven[8]='0x0010F09C' #Britain bowyer2 ven[9]='0x001162A9' #Britain armorer ven[10]='0x00118A05' #Moonglow tinker ven[11]='0x0011D1EA' #Britain farmer ven[12]='0x0011A8C4' #Britain hides ven[13]='0x00119643' #Britain tailor2 ven[14]='0x001182DA' #Moonglow cook ven[15]='0x00118A05' #Moonglow bs ven[16]='0x0011CB9D' #Moonglow cook2 DIM vem[16] vem[1]='0x001026BA' #Britain scribe vem[2]='0x00103B14' #Minoc bs vem[3]='0x0010C4B3' #Minoc tailor vem[4]='0x0010AA7C' #Minoc carpenter vem[5]='0x0010A387' #Minoc provisioner vem[6]='0x0010997F' #Minoc cook vem[7]='0x00103981' #Minoc tamer vem[8]='0x0010C7E6' #Minoc butcher vem[9]='0x0010477D' #Moonglow alchemic vem[10]='0x0010A2A9' #Moonglow alchemic 2 vem[11]='0x0010A201' #Britain bs vem[12]='0x0010D340' #Britain bs2 vem[13]='0x00106C5C' #Britain architect vem[14]='0x00101F70' #Britain armor2 vem[15]='0x00106143' #Britain provisioner vem[16]='0x001052B0' #Britain jeweler while not uo.dead() for k=1 to 16 if uo.mana<20 then uo.useskill('Meditation') wait(5000) endif recall(book1,k) UO.DeleteJournal() repeat wait(5000) SuperWalk(0,0,ven[k]) UO.WaitTargetObject(ven[k]) UO.Useskill('Begging') #wait(500) until UO.InJournal("You put the gold") or UO.InJournal("You receive") or (uo.JournalSerial(uo.InJournal("no money")-1))==ven[k] next if second==0 then for j=1 to 16 recall(book2,j) UO.DeleteJournal() repeat wait(500) SuperWalk(0,0,vem[j]) UO.WaitTargetObject(vem[j]) UO.Useskill('Begging') #wait(2000) until UO.InJournal("You put the gold") or UO.InJournal("You receive") or (uo.JournalSerial(uo.InJournal("no money")-1))==vem[j] next end if wend endsub #========================================================== # Recall System # idrb - runebook id # nrune - rune number #---------------------------------------------------------- #--------------------------- # Runebook recall # reagent use #--------------------------- sub Recall(idrb,nrune) Dim gumpreturn[16] gumpreturn[1]="0x0014" gumpreturn[2]="0x0016" gumpreturn[3]="0x0018" gumpreturn[4]="0x001A" gumpreturn[5]="0x001C" gumpreturn[6]="0x001E" gumpreturn[7]="0x0020" gumpreturn[8]="0x0022" gumpreturn[9]="0x0024" gumpreturn[10]="0x0026" gumpreturn[11]="0x0028" gumpreturn[12]="0x002A" gumpreturn[13]="0x002C" gumpreturn[14]="0x002E" gumpreturn[15]="0x0030" gumpreturn[16]="0x0032" UO.Recall(idrb,gumpreturn[nrune]) UO.Exec('terminate Reconnector') wait(5000) UO.Exec('exec Reconnector') wait(5000) Uo.DeleteJournal() endsub #============================================================== # SuperWalk(X,Y,Serial) - char is walking by dX and dY step # sub using Home, End, PgUp, PgDown keys # d'not rebind this key from default action! # walkwait - delay after keypress #-------------------------------------------------------------- sub SuperWalk(x,y,Target) VAR i VAR dir,ldir,rdir,key,olddir VAR dx,dy,Exit=0 VAR CacheLimit=9,CacheIndex="Text" DIM CacheX[10], CacheY[10] CacheX[0]="Test" While Exit<>1 If Target<>"" Then dx=UO.GetX(Target)-UO.GetX() dy=UO.GetY(Target)-UO.GetY() ; UO.Print("Target locked!") If UO.GetDistance(Target)<2 Then return Endif Else dx=x-UO.GetX() dy=y-UO.GetY() If dx==0 AND dy==0 Then Exit=1 Endif Endif If dx<>0 AND dy<>0 Then If dx>0 AND dy>0 Then; GoSE dir=3 ldir=2 rdir=4 key=40; DownArrow olddir=UO.GetDir() If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then If olddir==2 Then; GoNE dir=1 ldir=0 rdir=1 key=39; RightArrow While UO.GetDir()<>1 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Else; GoSW dir=5 ldir=5 rdir=6 key=37; LeftArrow While UO.GetDir()<>5 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Endif Endif Endif If dx>0 AND dy<0 Then; GoNE dir=1 ldir=0 rdir=2 key=39; RightArrow olddir=UO.GetDir() If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then If olddir==0 Then; GoWN dir=7 ldir=6 rdir=7 key=38; UpArrow While UO.GetDir()<>7 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Else; GoSE dir=3 ldir=3 rdir=4 key=40; DownArrow While UO.GetDir()<>3 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Endif Endif Endif If dx<0 AND dy>0 Then; GoSW dir=5 ldir=4 rdir=6 key=37; LeftArrow olddir=UO.GetDir() If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then If olddir==6 Then; GoWN dir=7 ldir=7 rdir=0 key=38; UpArrow While UO.GetDir()<>7 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Else; GoSE dir=3 ldir=2 rdir=3 key=40; DownArrow While UO.GetDir()<>3 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Endif Endif Endif If dx<0 AND dy<0 Then; GoWN dir=7 ldir=6 rdir=0 key=38; UpArrow olddir=UO.GetDir() If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then If olddir==0 Then; GoNE dir=1 ldir=1 rdir=2 key=39; RightArrow While UO.GetDir()<>1 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Else; GoSW dir=5 ldir=4 rdir=5 key=37; LeftArrow While UO.GetDir()<>5 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Endif Endif Endif Endif If dx<>0 AND dy==0 Then If dx>0 Then; GoE dir=2 key=34; PgDown olddir=UO.GetDir() If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then If olddir==2 Then; GoSE dir=3 ldir=3 rdir=4 key=40; DownArrow While UO.GetDir()<>3 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Else; GoNE dir=1 ldir=1 rdir=0 key=39; RightArrow While UO.GetDir()<>1 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Endif Endif Endif If dx<0 Then; GoW dir=6 key=36; Home key olddir=UO.GetDir() If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then If olddir==0 Then; GoWN dir=7 ldir=7 rdir=0 key=38; UpArrow While UO.GetDir()<>7 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Else; GoSW dir=5 ldir=4 rdir=5 key=37; LeftArrow While UO.GetDir()<>5 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Endif Endif Endif Endif If dx==0 AND dy<>0 Then If dy>0 Then; GoS dir=4 key=35; End If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then If olddir==2 Then; GoSE dir=3 ldir=2 rdir=3 key=40; DownArrow While UO.GetDir()<>3 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Else; GoSW dir=5 ldir=6 rdir=5 key=37; LeftArrow While UO.GetDir()<>5 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Endif Endif Endif If dy<0 Then;GoN dir=0 key=33; PgUp olddir=UO.GetDir() If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then If olddir==2 Then; GoNE dir=1 ldir=1 rdir=2 key=39; RightArrow While UO.GetDir()<>1 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Else; GoWN dir=7 ldir=7 rdir=6 key=38; UpArrow While UO.GetDir()<>7 StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Wend Endif Endif Endif Endif Wend end sub sub StepEdit(x,y,dir,key) VAR walkwait=300 VAR ErrLevel=0 If UO.GetDir()<>dir Then checkstam() UO.Press(key) wait(walkwait) If UO.GetDir()<>dir Then CheckLag() Endif Endif checkstam() UO.Press(key) wait(walkwait) If x==UO.GetX() AND y==UO.GetY() Then CheckLag() If x==UO.GetX() AND y==UO.GetY() Then ;zatik ErrLevel=1 Endif Endif Return ErrLevel end sub sub StepArrow(x,y,dir,ldir,rdir,key) VAR walkwait=300 VAR ErrLevel=0 If UO.GetDir()<>dir Then checkstam() UO.Press(key) wait(walkwait) If UO.GetDir()<>dir AND UO.GetDir()<>ldir AND UO.GetDir()<>rdir Then CheckLag() Endif Endif If UO.GetX()==x AND UO.GetY()==y Then checkstam() UO.Press(key) wait(walkwait) If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then CheckLag() If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then ; zatik ErrLevel=1 Endif Endif Endif Return ErrLevel end sub #======================================== # Functions # chechstam() # checklag() # reconnector() #---------------------------------------- sub checkstam() var refresh = '0x0F0B' if uo.stamina < 10 then uo.findtype(refresh,-1,'backpack') if uo.findcount() then uo.usetype(refresh) wait(1000) else uo.print("Nety Refreshey! Stoim...") repeat wait(500) until uo.stamina >= 10 endif else endif endsub sub CheckLag() uo.DeleteJournal() uo.Click('backpack') repeat wait(50) until UO.InJournal('backpack') endsub sub Reconnector() var ReconnectTime, RFlag ReconnectTime = '0' RFlag = 1 Repeat While (UO.ObjAtLayer('Bpack') == '') if RFlag Then ReconnectTime = MakeTime() RFlag = 0 endif Wait(20000) # WorldSave Protection UO.Say('') Wait(3000) UO.Say('') Wait(3000) UO.Say('') Wait(3000) UO.LDblClick(357,164) UO.LClick(616,459) Wait(3000) WEnd Wait(3000) if (RFlag == 0) and (ReconnectTime <> '0') Then UO.Exec('terminate Begging') wait(1000) UO.Exec('exec Begging') wait(1000) UO.TextOpen() UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) RFlag = 1 ReconnectTime = '0' endif Until false end sub sub MakeTime() VAR D, T, Ret, i Ret = STR(UO.Time()) T = "" For i = 0 To Len(Ret) T = Ret[Len(Ret)-i] + T If (I == 2) OR (I == 4) Then T = ":" + T EndIf Next Ret = STR(UO.Date()) D = "" For i = 0 To Len(Ret) D = Ret[Len(Ret)-i] + D If (I == 2) OR (I == 4) Then D = "." + D EndIf Next Ret = T + " @ " + D RETURN Ret end sub
#43
Posted 24 September 2007 - 10:37
#44
Posted 24 September 2007 - 22:23
Ходилка это просто не всегда точная в принципе заменить не вижу проблеммы.
Если потеря любви доказывает, что её не бывает, то угон автомобиля ...
Я самый имный игрок. ©Exodus
Выводы - это такие специальные ловушки для дураков: прийти к ним легко, а уйти не получается.
Rafik zhot napalmom
Хватит бред про меня выставлять!! Понятно тебе козлина! ©Pelican = Exodus
ЦИТАТА(Street Fighter @ August 4 2007, 23:31 PM)
убери меня из своей подписи или получишь бан!
#45
Posted 25 September 2007 - 16:41
#46
Posted 25 September 2007 - 16:45
ты не понял .когда запускаю скрипт то работает ,но непонятно изза чего вылетает табличака про какойто Парсер и выбивает скрипт )Плз не копируйте целиком скрипт а скидавайте те части где у вас Ошибка или что то вы добавили.
Ходилка это просто не всегда точная в принципе заменить не вижу проблеммы.
#47
Posted 17 February 2009 - 19:19
#48
Posted 17 February 2009 - 19:36
Это с учетом, что чар 5уровня. При моем 3 уровне я к сожалению имею всего лишь 1,2кк за 1час. И скрипт у меня раз эдак в 5 корочеВ принципе получит 2кк за 10часов
#49
Posted 17 February 2009 - 21:02
можешь поделится?Это с учетом, что чар 5уровня. При моем 3 уровне я к сожалению имею всего лишь 1,2кк за 1час. И скрипт у меня раз эдак в 5 короче
#50
Posted 17 February 2009 - 21:13
ты наверно думал в день, не в час.Это с учетом, что чар 5уровня. При моем 3 уровне я к сожалению имею всего лишь 1,2кк за 1час. И скрипт у меня раз эдак в 5 короче
мне тоже так было, поэтому написал скрипт на easyuo и с ним уже портит экономику.Люди, у кого может была похожая проблема с этим скриптом , дело в том , что он не рекалится с первой рунки а рекалится с 3 потом 6 и т.д ..... так он летит в 6 разных мест , потом просто начинает идти до след. места ! ? Подскажите где примерно искать решения проблемы ?
#51
Posted 17 February 2009 - 21:30
pomenjal vsem ID vrode nachinaet Beggitj no pishet NO RUNE in this spot chto eto?
#52
Posted 18 February 2009 - 10:02
#53
Posted 18 February 2009 - 11:01
Люди, у кого может была похожая проблема с этим скриптом , дело в том , что он не рекалится с первой рунки а рекалится с 3 потом 6 и т.д ..... так он летит в 6 разных мест , потом просто начинает идти до след. места ! ? Подскажите где примерно искать решения проблемы ?
у меня тож была такая проблема))) я скрипт не менял даже не знаю что произошло но уже всё норм))
#54
Posted 18 February 2009 - 16:22
Надо менять Dim ven[1] - ID вендор и вставляешь в рунебук под номером 1 , но блин сам скрипт чё та глючит .... потомучто когда всё правельно делаешь он начинает телепортироваться по 3 рунке к первому вендору , вот тут вся ху....ня ....Pomogite,nepoluchaetsja vrode zabivaju runki u samogo vendora zhmu RUN FUNCTION i on pishet chto Whom do you want to beg? YOu cant see the target. v chem problema ? nado srazu zabivatj runi na vseh ili mozhno po odnomu ? help;p
pomenjal vsem ID vrode nachinaet Beggitj no pishet NO RUNE in this spot chto eto?
#55
Posted 18 February 2009 - 16:23
Бля а какая у тебя версия инжекта стоит ?у меня тож была такая проблема))) я скрипт не менял даже не знаю что произошло но уже всё норм))
#56
Posted 18 February 2009 - 16:25
Какой именно , я вот смотрел, там у меня что то не пошло .... кинь если не в падлу тем что ты пользуешь !!!!во вы гоните))) я вообще пользуюсЪ скриптом который скинул AdmirkA исправил малёха)) и теперь работает в идеале) открывает двери видет вендера хз от куда )))
#57
Posted 18 February 2009 - 16:26
Хех ... если б писать умел , я бы тут не сидел .... но то что можно тут найти это под инжект .... если не сложно выложи под ИЗИ ?ты наверно думал в день, не в час.
мне тоже так было, поэтому написал скрипт на easyuo и с ним уже портит экономику.
#58
Posted 23 February 2009 - 01:19
во вы гоните))) я вообще пользуюсЪ скриптом который скинул AdmirkA исправил малёха)) и теперь работает в идеале) открывает двери видет вендера хз от куда )))
Поиск + открытие дверей в студию плиз
#59
Posted 13 July 2009 - 15:18
#60
Posted 13 July 2009 - 19:00
Dim gumpreturn[16]
gumpreturn[1]="0x0014"
gumpreturn[2]="0x0016"
gumpreturn[3]="0x0018"
gumpreturn[4]="0x001A"
gumpreturn[5]="0x001C"
gumpreturn[6]="0x001E"
gumpreturn[7]="0x0020"
gumpreturn[8]="0x0022"
gumpreturn[9]="0x0024"
gumpreturn[10]="0x0026"
gumpreturn[11]="0x0028"
gumpreturn[12]="0x002A"
gumpreturn[13]="0x002C"
gumpreturn[14]="0x002E"
gumpreturn[15]="0x0030"
gumpreturn[16]="0x0032"
UO.Recall(idrb,gumpreturn[nrune])
UO.Exec('terminate Reconnector')
wait(5000)
UO.Exec('exec Reconnector')
wait(5000)
Uo.DeleteJournal()
endsub
Как выстовить гампы эти? а точнее как узнать их тайп
1 user(s) are reading this topic
0 members, 1 guests, 0 anonymous users