################## ### Peremennije ## ################## ################################################################################ ################## var f=######("C:\trees5.dat") ## - Путь к файлу в котором будут хранится координаты деревьев. ### var LogsQty=500 ## - Количество логов, добыв которое надо реколиться домой. ### var GetFromFile=1 ## - Координаты деревьев будут считыватся из файла, 0 - собиратся из клиента ### var Attack=0 ## - bred ### var Chest='0x40065598' ## - ID сундука куда будут выгружаться логи ### var Trytodrop=1 ## ### var ContX=925 ## - Координаты X у сундука ### var ContY=2564 ## - Координаты Y у сундука ### var oldX,oldY,time ## ### ################################################################################ ################## ########### ### Kod ### ########### sub Lumberjacking() var i=0,j=0,k=0,r=0,q=0,ii,jj var TopX=324,TopY=65 dim TreeX[5000], TreeY[5000],TreeT[5000] dim TreeTile[29] var flag=0,treeCount=0,clicks=0,flag2=0 ######################## ### Grafika Dervjev ### ######################## TreeTile[0]=3277 TreeTile[1]=3280 TreeTile[2]=3283 TreeTile[3]=3286 TreeTile[4]=3289 TreeTile[5]=3291 TreeTile[6]=3294 TreeTile[7]=3296 TreeTile[8]=3299 TreeTile[9]=3302 TreeTile[10]=3393 TreeTile[11]=3394 TreeTile[12]=3395 TreeTile[13]=3396 TreeTile[14]=3415 TreeTile[15]=3416 TreeTile[16]=3417 TreeTile[17]=3418 TreeTile[18]=3419 TreeTile[19]=3438 TreeTile[20]=3439 TreeTile[21]=3440 TreeTile[22]=3441 TreeTile[23]=3442 TreeTile[24]=3460 TreeTile[25]=3461 TreeTile[26]=3462 TreeTile[27]=3290 TreeTile[28]=3288 uo.Exec("filterspeech on") uo.Exec("filterspeech add 'Where do you want to use the pickaxe?'") uo.Print('Viberi Tapor: ') uo.Exec('addobject Axe') while uo.Targeting() wait(100) wend if Attack==1 then uo.Exec('exec Attack') end if ##################################### ### Zagruzaem koordinati iz faila ### ##################################### if GetFromFile==1 then uo.Print('Zagruzaem koordinati iz faila...') f.open() treeCount=safe call f.ReadNumber() for i=1 to treeCount TreeT[i]=safe call f.ReadNumber() TreeX[i]=safe call f.ReadNumber() TreeY[i]=safe call f.ReadNumber() next f.close() else ###################################### ### Sobiraem koordinati iz clienta ### ###################################### uo.Print('Viberi kirku: ') uo.Exec('addobject Pickaxe') while uo.Targeting() wait(100) wend uo.Print('Sobiraem koordinati derevjev v okruge...') repeat clicks=0 flag=0 uo.DeleteJournal() ####################### ### Klikaem na tail ### ####################### uo.UseObject('Pickaxe') waitForTarget() uo.DeleteJournal() WaitForTryRock() ############################### ### Proverjaem derevoli eto ### ############################### flag=0 for k=0 to 28 if uo.LastTile(0)==TreeTile[k]+1 then flag=2 end if next if flag==0 then for k=0 to 28 if uo.LastTile(0)==TreeTile[k] then flag=1 end if next end if if uo.Lasttile(1)==uo.getX() and uo.Lasttile(2)==uo.gety() then flag=3 end if ######################### ### Kliknuli na stvol ### ######################### if flag==1 then flag2=0 if treeCount>0 then for ii=1 to treeCount if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then flag2=1 end if next end if if flag2==0 then treeCount=treeCount+1 TreeX[treeCount]=uo.LastTile(1) TreeY[treeCount]=uo.LastTile(2) TreeT[treeCount]=uo.LastTile(0) uo.Print('Naideno derevo '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2))+' '+str(treeCount)) end if end if ########################## ### Kliknule po listve ### ########################## if flag==2 then flag2=0 if treeCount>0 then for ii=1 to treeCount if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then flag2=1 end if next end if if flag2==0 then treeCount=treeCount+1 TreeX[treeCount]=uo.LastTile(1) TreeY[treeCount]=uo.LastTile(2) TreeT[treeCount]=uo.LastTile(0)-1 uo.print('Naideno derevo '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2))) end if end if until (Flag==3) or (treeCount==5000) uo.Exec("filterspeech off") uo.Print('Analiz zakoncen, koordinati derevjev zapisani v fail C:\trees5.dat') SaveToFile(treeCount,TreeX,TreeY,TreeT) end if uo.Print('Derevo naideno: '+str(treeCount)) wait(2000) ###################################### ### Hodim po sobranim koordinatam ### ###################################### while 1==1 if treeCount>0 then for i=1 to treeCount if Trytodrop==1 and uo.Count('ZLK')>=LogsQty or uo.InJournal('It is too heavy..') then GotoXY(uo.getx(Chest),uo.gety(Chest)) DropLogs() end if end if uo.Print('Idjom k derevu '+str(i)+': x='+str(TreeX[i])+' y='+str(TreeY[i])) InfoLogs() flag=GotoXY(TreeX[i],TreeY[i]) if flag==1 then GetTree(str(TreeT[i]),str(TreeX[i]),str(TreeY[i]),str(uo.GetZ())) end if next end if wend end sub sub GetTree(Type,X,Y,Z) var i uo.Print('Nacinaem rubitj derevo...') for i=0 to 15 if uo.Warmode()==1 then return 0 end if wait(200) uo.DeleteJournal() CheckLag() uo.WaitTargetTile(Type,X,Y,Z) uo.UseObject('Axe') if WaitForChange()==1 then return 1 end if next return 0 end sub sub WaitForChange() var Text1=uo.GetName()+': You hack at the tree for a while, but fail to produce any useable wood.' var Text2='There are no logs here to chop.' var Text3="You can't reach this." var Text4="There is nothing here to chop." var Text5="You can't do much in your current state." var mess for var i=0 to 200 mess=uo.Journal(0) if uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 then return 1 end if if uo.Journal(0)==Text1 then return 0 end if if mess[0]=='Y' and mess[1]=='o' and mess[2]=='u' and mess[4]=='p' and mess[5]=='u' and mess[6]=='t' then while NOT UO.InJournal("There is nothing") wait(500) if uo.InJournal('Reaper')or uo.InJournal('is attacking you') then ReaperDanger() wait(1000) return 1 end if wend end if if uo.InJournal('Reaper')or uo.InJournal('is attacking you') then ReaperDanger() return 1 end if wait(50) next return 0 end sub Sub WaitForTryRock() var Text1="That is too far away." var Text2="Try mining elsewhere." var Text3="There is no ore here to mine." var Text4="You have no line of sight to that location" var Text5="You can't see the target" for var i=0 to 50 if uo.Journal(0)==Text1 or uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 or uo.Journal(0)==Text5 then return 1 end if wait(200) next return 0 end sub sub WaitForTarget() for var i=0 to 50 if uo.Targeting()==1 then return 1 end if wait(200) next return 0 end sub sub WaitForChangeXY(myX,myY,lastX,lastY) for var i=1 to 50 if lastX<>myX or lastY<>myY then return 1 end if wait(200) next return 0 end sub sub GotoXY(x,y) var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0 for i=1 to 60 myX=uo.getX(); myY=uo.getY(); if LastX==myX and LastY==myY then halt=halt+1 else halt=0 end if if halt>=10 then if uo.GetDir()==1 then for z=0 to 8 uo.Press(40) next end if if uo.GetDir()==3 then for z=0 to 8 uo.Press(37) next end if if uo.GetDir()==5 then for z=0 to 8 uo.Press(38) next end if if uo.GetDir()==7 then for z=0 to 8 uo.Press(39) next end if halt=15 end if if Numb(x-myX)<=1 and Numb(y-myY)<=2 then return 1 end if if x<=myX then if y<=myY then for z=0 to 3 uo.Press(38) next else for z=0 to 3 uo.Press(37) next end if else if y<=myY then for z=0 to 3 uo.Press(39) next else for z=0 to 3 uo.Press(40) next end if end if lastX=myX lastY=myY wait(200) next return 0 end sub sub Numb(num) if num>=0 then return num else return num*(-1) end if end sub sub SaveToFile(treeCount,TreeX,TreeY,TreeT) var f=######("C:\trees5.dat") var s=0,i=0 f.open() f.create() s=safe call f.writeln(treeCount) for i=1 to treeCount s=safe call f.writeln(str(TreeT[i])+' '+str(TreeX[i])+' '+str(TreeY[i])) next f.close() end sub sub DropLogs() if uo.Waiting() then uo.CancelTarget() end if var a,Exit dim Logs[2] Logs[0]=0x1BDD Logs[1]=0x0EED uo.Print('.') uo.SetReceivingContainer(Chest) wait(500) for a=0 to 1 Exit=0 repeat uo.FindType(Logs[a]) if uo.GetQuantity('finditem')>0 then uo.Grab('0','finditem') wait(1500) GotoXY(ContX,ContY) else Exit=1 end if until Exit==1 next uo.UnSetReceivingContainer(Chest) uo.Print('.') end sub sub InfoLogs() uo.Print('U vas vsego'+str(uo.Count('0x1BDD'))+' logov v sumke') uo.Print('Iz nih '+str(uo.Count('0x1BDD','0x0000'))+' prostih i ' +str(uo.Count('0x1BDD')-uo.Count('0x1BDD','0x0000'))+' cvetnih') end sub sub Open(Container) uo.DeleteJournal() uo.UseObject(Container) repeat wait(500) until uo.InJournal('Contains') end sub sub Attack() uo.DeleteJournal() var Enemy='0x00000000' repeat if uo.InJournal('is attacking you') or uo.InJournal('Reaper') or uo.InJournal('Wis Quas') then uo.DeleteJournal() end if wait(1000) if uo.InJournal('till') then uo.DeleteJournal() end if wait(1000) until false end sub sub ReaperDanger() uo.DeleteJournal() killelem() uo.DeleteJournal() wait(1000) 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 end if 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 end if next ret=t+" @ "+d return ret end sub sub Terminate() uo.Print('Vse funkciji otlkljuceni!') uo.DeleteJournal() uo.Exec('terminate all') wait(100) uo.Exec('terminate all') wait(100) uo.Exec('terminate all') wait(100) end sub sub killelem() VAR Count,Elem uo.equipt('Lhand','0x13B1') uo.useobject('finditem') wait(1000) uo.equipt('Rhand','0x13AF') UO.DeleteJournal() UO.Exec('warmode 1') UO.FindType('0x002F',-1,'ground') Elem=UO.GetSerial('finditem') wait (500) UO.Attack(Elem) repeat wait(1000) If UO.Life<150 Then UO.say ('.camp') Endif If UO.Life<50 Then UO.UseType(0x183A) Endif until UO.IsNPC(Elem)==0 wait(20000) UO.Exec('warmode 0') wait(1000) loot() wait(10000) end sub sub CheckLag() if uo.Waiting()>0 then uo.Exec('canceltarget') end if uo.DeleteJournal() uo.Click('backpack') repeat wait(50) until uo.InJournal('backpack') #BETEP™# end sub sub GetXY(str,arnum) arnum[0]=val(mid(str, 7, 3)) arnum[1]=val(mid(str, 10, 3)) end sub sub loot() var corpse='0x2006' var waittime=1000 var body,bodypack,i DIM Loot[12] Loot[0]=0x09AA Loot[1]=0x1541 Loot[2]=0x0EED Loot[3]=0x1BDD Loot[4]=0x141A Loot[5]=0x1416 Loot[6]=0x1410 Loot[7]=0x1417 Loot[8]=0x1418 Loot[9]=0x1419 Loot[10]=0x0E76 Loot[11]=0x1413 Loot[12]=0x1086 uo.set('finddistance','2') while uo.countonground(corpse)>0 uo.findtype(corpse,'-1','ground') body=uo.getserial('finditem') uo.useobject('backpack') repeat wait(100) until uo.getserial('lastcontainer')==uo.getserial('backpack') uo.useobject(body) repeat wait(100) until uo.getserial('lastcontainer')<>uo.getserial('backpack') bodypack=uo.getserial('lastcontainer') For i=0 to 12 repeat UO.FindType(Loot[i],-1,bodypack) if UO.GetQuantity('finditem') then UO.MoveItem('finditem','backpack') repeat wait(100) until uo.containerof('finditem')==uo.getserial('backpack') wait(waittime) endif until uo.findcount()==0 next uo.ignore(body) wend endsubRubit derevja, pri ataki Reepera kidaet pod sebja healing koster i atakuet repera, kogda ubjet lutaet ego i na4inaet rubitj dalwe, nabrav ukazannoe koli4estvo logov idet k sunduku i skidivaet ix, kak skinul idet k poslednimu derevu gde zakon4ils rubitj )) gl
Toggle shoutbox Chat
|
Lumber
#1
Posted 18 August 2007 - 20:06
#2
Posted 19 August 2007 - 15:07
#3
Posted 19 August 2007 - 16:02
давным давно было написаны скрипты , в которых не нада записывать координаты деревьев ) чар сам находит их )
Гавно тот скрипт, в котором чар сам ищет дерево, ибо неизвестно куда скрипт тебя может завести и не факт, что это дерево ты не рубил 2 минуты назад
#4
Posted 19 August 2007 - 19:21
на счет второго - бред )
#5
Posted 19 August 2007 - 21:19
конечно проще обкликать все 500 или 1000 деревьев , чем поставить условие для маршрута пути )
на счет второго - бред )
конечно, можно и проверку написать, которая проверяла бы рубил ты это дерево тока что или нет, но это всё не так стабильно будет как добрые замарканные деревья в файле
#6
Posted 19 August 2007 - 21:58
#7
Posted 19 August 2007 - 21:59
#8
Posted 19 August 2007 - 23:28
#9
Posted 20 August 2007 - 01:52
Цитаты Доктора Хауза:
* Все лгут
* Если бы в её ДНК отклонение было бы на один процент, она была бы дельфином
* Я плохой, и не пытайтесь убедить себя и меня, что это не так
* Ты разговариваешь с Богом - ты верующий, Бог разговаривает с тобой - ты психически больной
* Между любовью и ненавистью нет тонкой грани! Есть Великая Китайская Стена с вооруженными часовыми через каждые двадцать шагов.
#10
Posted 20 August 2007 - 02:16
#11
Posted 20 August 2007 - 17:09
#12
Posted 20 August 2007 - 17:11
# ************************************************** # *** Injection 505.18 ************************ Jikus ** # ************************************************** sub main() ; + EDIT +++++++++++++++++++++++++++++++++++++++++++++++ var zona = 6; ; ++++++++++++++++++++++++++++++++++++++++++++++++++ var m, i, a, tX, tY, tr = 1 tX = UO.GetX('self') tY = UO.GetY('self') for i=1 to zona if tr then m = - 5 else m = 5 endif for a=1 to zona tY = tY + m GotoXY(tX,tY) Lamber() next tX = tX - 5 if tr then tr = 0 else tr = 1 endif next endsub sub Lamber() ; + EDIT +++++++++++++++++++++++++++++++++++++++++++++++ var MaxFailCount = 10; fizzle var MaxRange = 3; 3 tiles var mDebug = false; ; ++++++++++++++++++++++++++++++++++++++++++++++++++ var X, Y, Z, FailCount = 0, LTimer, Tiles var mX, mY, mZ, TrWeight, TrT, TrW, adX, adY ; ** Debug *********************** if mDebug then UO.TextOpen() UO.TextClear() endif ; ******************************** mX = UO.GetX('self') mY = UO.GetY('self') mZ = UO.GetZ('self') for Y = MaxRange - ( MaxRange * 2 ) to MaxRange for X = MaxRange - ( MaxRange * 2 ) to MaxRange Tiles = F_HarvestTiles(mX+X, mY+Y) if Tiles then adX = mX+X adY = mY+Y repeat F_DelJournalMine(); UO.Warmode(0) UO.WaitTargetTile(Tiles, mX+X, mY+Y, mZ) ; ******************************** if UO.Count(0x0F43) then UO.UseType(0x0F43); <-- Axe else return 1 endif ; ******************************** ; ************ Triger ************ ; ErrorExitTimer LTimer=UO.Timer() TrT = UO.Timer() > LTimer + 60; !!! 60/10 = 6 sec !!! ; MyWeight + Ore TrWeight = UO.Weight TrW = UO.Weight <> TrWeight ; ******************************** repeat wait(100) until UO.InJournal("useable wood|You can|That is too far away|here to chop") || TrT || UO.Dead() ; ********* ON=@FailCount ******** if TrW then FailCount = 0 else FailCount = FailCount + 1 endif ; ******************************** ; ***** Debug Harvest Tiles ****** if mDebug then if TrT then UO.TextPrint(Tiles); !Harvest else ; UO.TextPrint(Tiles); Harvest endif endif ; ******************************** until UO.InJournal("here to chop|You can|That is too far away") || FailCount >= MaxFailCount || UO.Dead() endif next next UO.Sound(61) return 0 end sub sub F_HarvestTiles(X,Y) var i if UO.PrivateGetTile(X, Y, -1, 3274, 3302) then for i=3274 to 3302 if UO.PrivateGetTile(X, Y, -1, i, i) then ; ***** Patch ******************************************** if i==3278 || i==3279 || i==3281 || i==3282 then return 0 endif if i==3284 || i==3285 || i==3287 || i==3289 then return 0 endif if i==3291 || i==3292 || i==3294 || i==3295 then return 0 endif if i==3297 || i==3298 || i==3300 || i==3301 then return 0 endif ; ************************************************** return i end if next end if return 0 end sub sub F_DelJournalMine() F_DeleteJournal("useable wood"); F_DeleteJournal("That is too far away"); F_DeleteJournal("You can") ; F_DeleteJournal("here to chop"); end sub sub F_DeleteJournal( string1 ) var nom = UO.InJournal( string1 ) if nom > 0 then UO.SetJournalLine( Nom - 1, "string replaced" ) F_DeleteJournal( string1 ) endif end sub # ************************************************** sub GotoXY(x,y) var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0 for i=1 to 60 myX=UO.GetX(); myY=UO.GetY(); if LastX==myX and LastY==myY then halt=halt+1 else halt=0 end if if halt>=10 then if UO.GetDir()==1 then for z=0 to 8 UO.Press(40) next end if if UO.GetDir()==3 then for z=0 to 8 UO.Press(37) next end if if UO.GetDir()==5 then for z=0 to 8 UO.Press(38) next end if if UO.GetDir()==7 then for z=0 to 8 UO.Press(39) next end if halt=15 end if if Numb(x-myX)<=1 and Numb(y-myY)<=2 then return 1 end if if x<=myX then if y<=myY then for z=0 to 3 UO.Press(38) next else for z=0 to 3 UO.Press(37) next end if else if y<=myY then for z=0 to 3 UO.Press(39) next else for z=0 to 3 UO.Press(40) next end if end if lastX=myX lastY=myY wait(200) next return 0 end sub sub Numb(num) if num>=0 then return num else return num*(-1) end if end sub
#13
Posted 20 August 2007 - 19:47
#14
Posted 28 August 2007 - 11:18
сам по себе скрипт загрузил... 1 дерево рубит а потом стоит
разобрался...
#15
Posted 01 September 2007 - 07:27
#16
Posted 01 September 2007 - 11:22
#17
Posted 15 September 2007 - 01:04
#18
Posted 15 September 2007 - 09:50
zapuskaew funkciju Lumberjacking() i vse.Ты меня за дурака принимаешь ) Я сам знаю что нельзя. просто чтоб он рубил надо етот скрипт на кнопку в хокейс писать и тогда он будер рубить только вокруг себя, после чего пересьает работать так как всё вырубил
#19
Posted 19 September 2007 - 16:49
vot script: sam naxodit i rubit derevja. prosto zapuskaem i vse. komu ne lenj mozet sam dopisatj razgruzku i ubivanie Reperov ))
# ************************************************** # *** Injection 505.18 ************************ Jikus ** # ************************************************** sub main() ; + EDIT +++++++++++++++++++++++++++++++++++++++++++++++ var zona = 6; ; ++++++++++++++++++++++++++++++++++++++++++++++++++ var m, i, a, tX, tY, tr = 1 tX = UO.GetX('self') tY = UO.GetY('self') for i=1 to zona if tr then m = - 5 else m = 5 endif for a=1 to zona tY = tY + m GotoXY(tX,tY) Lamber() next tX = tX - 5 if tr then tr = 0 else tr = 1 endif next endsub sub Lamber() ; + EDIT +++++++++++++++++++++++++++++++++++++++++++++++ var MaxFailCount = 10; fizzle var MaxRange = 3; 3 tiles var mDebug = false; ; ++++++++++++++++++++++++++++++++++++++++++++++++++ var X, Y, Z, FailCount = 0, LTimer, Tiles var mX, mY, mZ, TrWeight, TrT, TrW, adX, adY ; ** Debug *********************** if mDebug then UO.TextOpen() UO.TextClear() endif ; ******************************** mX = UO.GetX('self') mY = UO.GetY('self') mZ = UO.GetZ('self') for Y = MaxRange - ( MaxRange * 2 ) to MaxRange for X = MaxRange - ( MaxRange * 2 ) to MaxRange Tiles = F_HarvestTiles(mX+X, mY+Y) if Tiles then adX = mX+X adY = mY+Y repeat F_DelJournalMine(); UO.Warmode(0) UO.WaitTargetTile(Tiles, mX+X, mY+Y, mZ) ; ******************************** if UO.Count(0x0F43) then UO.UseType(0x0F43); <-- Axe else return 1 endif ; ******************************** ; ************ Triger ************ ; ErrorExitTimer LTimer=UO.Timer() TrT = UO.Timer() > LTimer + 60; !!! 60/10 = 6 sec !!! ; MyWeight + Ore TrWeight = UO.Weight TrW = UO.Weight <> TrWeight ; ******************************** repeat wait(100) until UO.InJournal("useable wood|You can|That is too far away|here to chop") || TrT || UO.Dead() ; ********* ON=@FailCount ******** if TrW then FailCount = 0 else FailCount = FailCount + 1 endif ; ******************************** ; ***** Debug Harvest Tiles ****** if mDebug then if TrT then UO.TextPrint(Tiles); !Harvest else ; UO.TextPrint(Tiles); Harvest endif endif ; ******************************** until UO.InJournal("here to chop|You can|That is too far away") || FailCount >= MaxFailCount || UO.Dead() endif next next UO.Sound(61) return 0 end sub sub F_HarvestTiles(X,Y) var i if UO.PrivateGetTile(X, Y, -1, 3274, 3302) then for i=3274 to 3302 if UO.PrivateGetTile(X, Y, -1, i, i) then ; ***** Patch ******************************************** if i==3278 || i==3279 || i==3281 || i==3282 then return 0 endif if i==3284 || i==3285 || i==3287 || i==3289 then return 0 endif if i==3291 || i==3292 || i==3294 || i==3295 then return 0 endif if i==3297 || i==3298 || i==3300 || i==3301 then return 0 endif ; ************************************************** return i end if next end if return 0 end sub sub F_DelJournalMine() F_DeleteJournal("useable wood"); F_DeleteJournal("That is too far away"); F_DeleteJournal("You can") ; F_DeleteJournal("here to chop"); end sub sub F_DeleteJournal( string1 ) var nom = UO.InJournal( string1 ) if nom > 0 then UO.SetJournalLine( Nom - 1, "string replaced" ) F_DeleteJournal( string1 ) endif end sub # ************************************************** sub GotoXY(x,y) var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0 for i=1 to 60 myX=UO.GetX(); myY=UO.GetY(); if LastX==myX and LastY==myY then halt=halt+1 else halt=0 end if if halt>=10 then if UO.GetDir()==1 then for z=0 to 8 UO.Press(40) next end if if UO.GetDir()==3 then for z=0 to 8 UO.Press(37) next end if if UO.GetDir()==5 then for z=0 to 8 UO.Press(38) next end if if UO.GetDir()==7 then for z=0 to 8 UO.Press(39) next end if halt=15 end if if Numb(x-myX)<=1 and Numb(y-myY)<=2 then return 1 end if if x<=myX then if y<=myY then for z=0 to 3 UO.Press(38) next else for z=0 to 3 UO.Press(37) next end if else if y<=myY then for z=0 to 3 UO.Press(39) next else for z=0 to 3 UO.Press(40) next end if end if lastX=myX lastY=myY wait(200) next return 0 end sub sub Numb(num) if num>=0 then return num else return num*(-1) end if end sub
Странно, пишет типа target immune to your blow... Был в разных лесах...Одно и тоже пишет
#20
Posted 19 September 2007 - 17:23
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users