Joined: 2007-06-05 16:14:00 Posts: 11
|
Спасибо большое, но что-то не пойму к чему его прикрепить?
Вот мой скрипт:
sub main() repeat start() until UO.Dead() end sub
Sub start() check() dom() uo.cast('Recall',0x400372A6) #1 wait(2000) mine(0,1379,1709,20) wait(500)
check() dom() uo.cast('Recall',0x400372A8) #2 wait(2000) mine(0,1487,1694,16) wait(500)
check() dom() uo.cast('Recall',0x400372AC) # 3 wait(2000) mine(3286,1548,1785,11) wait(500)
check() dom() uo.cast('Recall',0x400372A7) # 4 wait(2000) mine(3280,1577,1760,15) wait(500)
check() dom() uo.cast('Recall',0x400372A5) # 5 wait(2000) mine(3283,1572,1683,10) wait(500)
check() dom() uo.cast('Recall',0x400372A1) #6 wait(2000) mine(3288,1556,1572,20) wait(500) end sub
Sub mine(t,x,y,z) uo.deletejournal() repeat wait(1000) uo.waittargettile(str(t),str(x),str(y),str(z)) uo.usetype('0x0F43') # тип топора until uo.injournal("cliloc# 0xAD00") or uo.injournal("cliloc# 0xA20D") or uo.injournal("cliloc# 0xA2DE") or uo.injournal("cliloc# 0x6B31") uo.Canceltarget() end sub
sub dom() uo.cast('Recall',0x400FCBDD) # ID рунбуки дома ("Sklad") wait(2000) repeat UO.findtype('0x1BDD','-1','my') # тут тип бревна wait(600) if uo.injournal("cliloc# 0xA2DE") then uo.deletejournal() uo.cast('Recall',0x400FCBDD) # ID рунбуки "Sklad" (складывает дерево) wait(2000) goto a else a: UO.useobject('finditem') until uo.findcount() == 0 wait(500) end if repeat UO.findtype('0x1BD7','-1','2') # тип досок uo.moveitem('finditem','0','0x4000D614') # ID ящика в который складывать доски wait(700) until uo.findcount() == 0 while UO.Count(0x0F43)< 3 # кол-во топоров при котором он добирает новые кирки из ящика uo.findtype('0x0F43','-1','0x4000D613') # ID ящика в котором лежат топоры UO.moveitem('finditem','0','0x400884FB') # Id бэкпака wait (700) wend end sub
sub check() while Uo.Mana <10 if UO.Mana <10 then uo.Canceltarget() UO.UseSkill("Meditation") wait(7000) end if wend end sub
sub Solve()
var index = 0 while Right(uo.LastGump('command', 7+2*index), 1) <> '2' index = index+1 wend return index
end sub
sub antimacro()
while not uo.Dead() if uo.LastGump('replyed') == 0 then if uo.LastGump('text', 2) == 'Я тута!' then uo.LClick(uo.LastGump('x')+20, uo.LastGump('y')+72+40*Solve()) wait(1000) end if end if wait(100) wend end sub
sub recconection() 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(8000) if (RFlag == 0) and (ReconnectTime <> '0') Then UO.Exec('terminate main') UO.Exec('exec main') 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
|
|