Pomogite plz

sub restart_main()
start:
UO.DeleteJournal()
UO.FindType('0x14EB',-1,'backpack')
if UO.FindCount('finditem') == 0 then
uo.msg('Фууу. Закончил расскидывать мапы по координатам.')
uo.exec('terminate ALL')
endif
UO.waittargetobject('finditem')
uo.Exec('exec RespKart')
wait(1500)
CheckLag()
goto start
end sub
Sub RespKart()
var xkar,ykar,s,s1,s2,leng,i, bool
uo.set('injectecho','1')
uo.exec("addobject karta")
while uo.targeting()
wait(100)
wend
uo.deletejournal()
uo.useobject('karta')
while not uo.injournal("opened")
wait(100)
wend
;konec opredelenia mx,my
s = uo.journal(uo.injournal("opened")-1)
leng = len(s)
bool=2
i=1
s1=0
s2=0
repeat
if bool==2 then
if s[leng-i]<>':' then
s2=s2+1
else
bool=1
end if
i=i+1
else
if s[leng-i]<>' ' then
s1=s1+1
i=i+1
else
bool=0
end if
end if
until bool == 0
s=right(s,s1+s2+1)
xkar=val(left(s,s1))
ykar=val(right(s,s2))
;konec opredelenia mx,my
bool=0
if xkar>1589-50 and xkar<1589+50 and ykar>1056-50 and ykar<1056+50 then
uo.print('-------------------')
uo.print(' Number 1')
uo.print('-------------------')
UO.SetReceivingContainer('0x401372E9') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2067-50 and xkar<2067+50 and ykar>1069-50 and ykar<1069+50 then
uo.print('-------------------')
uo.print(' Number 2')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037DED7') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>3102-50 and xkar<3102+50 and ykar>394-50 and ykar<394+50 then
uo.print('-------------------')
uo.print(' Number 3')
uo.print('-------------------')
UO.SetReceivingContainer('0x4012D12D') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2809-50 and xkar<2809+50 and ykar>657-50 and ykar<657+50 then
uo.print('-------------------')
uo.print(' Number 4')
uo.print('-------------------')
UO.SetReceivingContainer('0x40390183') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1520-50 and xkar<1520+50 and ykar>249-50 and ykar<249+50 then
uo.print('-------------------')
uo.print(' Number 5')
uo.print('-------------------')
UO.SetReceivingContainer('0x4012F2BA') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2965-50 and xkar<2965+50 and ykar>550-50 and ykar<550+50 then
uo.print('-------------------')
uo.print(' Number 6')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037D8F3') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1315-50 and xkar<1315+50 and ykar>319-50 and ykar<319+50 then
uo.print('-------------------')
uo.print(' Number 7')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037D8F3') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1147-50 and xkar<1147+50 and ykar>1060-50 and ykar<1060+50 then
uo.print('-------------------')
uo.print(' Number 8')
uo.print('-------------------')
UO.SetReceivingContainer('0x40245F32') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1241-50 and xkar<1241+50 and ykar>1385-50 and ykar<1385+50 then
uo.print('-------------------')
uo.print(' Number 9')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037DA25') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2499-50 and xkar<2499+50 and ykar>1080-50 and ykar<1080+50 then
uo.print('-------------------')
uo.print(' Number 10')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037DF0F') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1446-50 and xkar<1446+50 and ykar>1224-50 and ykar<1224+50 then
uo.print('-------------------')
uo.print(' Number 11')
uo.print('-------------------')
UO.SetReceivingContainer('0x40157766') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1025-50 and xkar<1025+50 and ykar>1353-50 and ykar<1353+50 then
uo.print('-------------------')
uo.print(' Number 12')
uo.print('-------------------')
UO.SetReceivingContainer('0x401572B6') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1722-50 and xkar<1722+50 and ykar>1069-50 and ykar<1069+50 then
uo.print('-------------------')
uo.print(' Number 13')
uo.print('-------------------')
UO.SetReceivingContainer('0x4015727C') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>181-50 and xkar<181+50 and ykar>1491-50 and ykar<1491+50 then
uo.print('-------------------')
uo.print(' Number 14')
uo.print('-------------------')
UO.SetReceivingContainer('0x40136AE1') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2747-50 and xkar<2747+50 and ykar>379-50 and ykar<379+50 then
uo.print('-------------------')
uo.print(' Number 15')
uo.print('-------------------')
UO.SetReceivingContainer('0x401560F7') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1532-50 and xkar<1532+50 and ykar>2623-50 and ykar<2623+50 then
uo.print('-------------------')
uo.print(' Number 16')
uo.print('-------------------')
UO.SetReceivingContainer('0x40153944') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>4379-50 and xkar<4379+50 and ykar>3705-50 and ykar<3705+50 then
uo.print('-------------------')
uo.print(' Number 17')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037D8C2') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1057-50 and xkar<1057+50 and ykar>2394-50 and ykar<2394+50 then
uo.print('-------------------')
uo.print(' Number 18')
uo.print('-------------------')
UO.SetReceivingContainer('0x401386A5') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>885-50 and xkar<885+50 and ykar>1511-50 and ykar<1511+50 then
uo.print('-------------------')
uo.print(' Number 19')
uo.print('-------------------')
UO.SetReceivingContainer('0x40390249') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2063-50 and xkar<2063+50 and ykar>400-50 and ykar<400+50 then
uo.print('-------------------')
uo.print(' Number 20')
uo.print('-------------------')
UO.SetReceivingContainer('0x40245E52') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1665-50 and xkar<1665+50 and ykar>2959-50 and ykar<2959+50 then
uo.print('-------------------')
uo.print(' Number 21')
uo.print('-------------------')
UO.SetReceivingContainer('0x4002C837') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1131-50 and xkar<1131+50 and ykar>3400-50 and ykar<3400+50 then
uo.print('-------------------')
uo.print(' Number 22')
uo.print('-------------------')
UO.SetReceivingContainer('0x4002C837') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1450-50 and xkar<1450+50 and ykar>900-50 and ykar<900+50 then
uo.print('-------------------')
uo.print(' Number 23')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037DC9A') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2518-50 and xkar<2518+50 and ykar>1231-50 and ykar<1231+50 then
uo.print('-------------------')
uo.print(' Number 24')
uo.print('-------------------')
UO.SetReceivingContainer('0x401380B5') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1090-50 and xkar<1090+50 and ykar>2049-50 and ykar<2049+50 then
uo.print('-------------------')
uo.print(' Number 25')
uo.print('-------------------')
UO.SetReceivingContainer('0x402F7FFB') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>4714-50 and xkar<4714+50 and ykar>3491-50 and ykar<3491+50 then
uo.print('-------------------')
uo.print(' Number 26')
uo.print('-------------------')
UO.SetReceivingContainer('0x401584FB') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>4646-50 and xkar<4646+50 and ykar>3359-50 and ykar<3359+50 then
uo.print('-------------------')
uo.print(' Number 27')
uo.print('-------------------')
UO.SetReceivingContainer('0x40157704') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>359-50 and xkar<359+50 and ykar>1274-50 and ykar<1274+50 then
uo.print('-------------------')
uo.print(' Number 28')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037D8E5') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1126-50 and xkar<1126+50 and ykar>2700-50 and ykar<2700+50 then
uo.print('-------------------')
uo.print(' Number 29')
uo.print('-------------------')
UO.SetReceivingContainer('0x401E14FD') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2396-50 and xkar<2396+50 and ykar>783-50 and ykar<783+50 then
uo.print('-------------------')
uo.print(' Number 30')
uo.print('-------------------')
UO.SetReceivingContainer('0x403901DA') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2030-50 and xkar<2030+50 and ykar>683-50 and ykar<683+50 then
uo.print('-------------------')
uo.print(' Number 31')
uo.print('-------------------')
UO.SetReceivingContainer('0x40157A0F') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1412-50 and xkar<1412+50 and ykar>1475-50 and ykar<1475+50 then
uo.print('-------------------')
uo.print(' Number 32')
uo.print('-------------------')
UO.SetReceivingContainer('0x4002C80A') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2535-50 and xkar<2535+50 and ykar>957-50 and ykar<957+50 then
uo.print('-------------------')
uo.print(' Number 33')
uo.print('-------------------')
UO.SetReceivingContainer('0x40245913') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1422-50 and xkar<1422+50 and ykar>1130-50 and ykar<1130+50 then
uo.print('-------------------')
uo.print(' Number 34')
uo.print('-------------------')
UO.SetReceivingContainer('0x4015675E') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1254-50 and xkar<1254+50 and ykar>2718-50 and ykar<2718+50 then
uo.print('-------------------')
uo.print(' Number 35')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037DBE7') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1771-50 and xkar<1771+50 and ykar>2771-50 and ykar<2771+50 then
uo.print('-------------------')
uo.print(' Number 36')
uo.print('-------------------')
UO.SetReceivingContainer('0x4002C785') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2621-50 and xkar<2621+50 and ykar>213-50 and ykar<213+50 then
uo.print('-------------------')
uo.print(' Number 37')
uo.print('-------------------')
UO.SetReceivingContainer('0x4002C766') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2630-50 and xkar<2630+50 and ykar>2273-50 and ykar<2273+50 then
uo.print('-------------------')
uo.print(' Number 38')
uo.print('-------------------')
UO.SetReceivingContainer('0x40135A2F') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>4468-50 and xkar<4468+50 and ykar>1425-50 and ykar<1425+50 then
uo.print('-------------------')
uo.print(' Number 39')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037DDBC') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1768-50 and xkar<1768+50 and ykar>2659-50 and ykar<2659+50 then
uo.print('-------------------')
uo.print(' Number 40')
uo.print('-------------------')
UO.SetReceivingContainer('0x4002C7A1') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2437-50 and xkar<2437+50 and ykar>960-50 and ykar<960+50 then
uo.print('-------------------')
uo.print(' Number 41')
uo.print('-------------------')
UO.SetReceivingContainer('0x40155F58') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2799-50 and xkar<2799+50 and ykar>2229-50 and ykar<2229+50 then
uo.print('-------------------')
uo.print(' Number 42')
uo.print('-------------------')
UO.SetReceivingContainer('0x40133CF4') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>974-50 and xkar<974+50 and ykar>352-50 and ykar<352+50 then
uo.print('-------------------')
uo.print(' Number 43')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037DDEC') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>3070-50 and xkar<3070+50 and ykar>608-50 and ykar<608+50 then
uo.print('-------------------')
uo.print(' Number 44')
uo.print('-------------------')
UO.SetReceivingContainer('0x402458DB') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2653-50 and xkar<2653+50 and ykar>642-50 and ykar<642+50 then
uo.print('-------------------')
uo.print(' Number 45')
uo.print('-------------------')
UO.SetReceivingContainer('0x4024586B') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2571-50 and xkar<2571+50 and ykar>717-50 and ykar<717+50 then
uo.print('-------------------')
uo.print(' Number 46')
uo.print('-------------------')
UO.SetReceivingContainer('0x4002C7DD') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1734-50 and xkar<1734+50 and ykar>2879-50 and ykar<2879+50 then
uo.print('-------------------')
uo.print(' Number 47')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037DCBE') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1630-50 and xkar<1630+50 and ykar>1190-50 and ykar<1190+50 then
uo.print('-------------------')
uo.print(' Number 48')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037DD81') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>910-50 and xkar<910+50 and ykar>1744-50 and ykar<1744+50 then
uo.print('-------------------')
uo.print(' Number 49')
uo.print('-------------------')
UO.SetReceivingContainer('0x4002C5D3') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>4575-50 and xkar<4575+50 and ykar>1294-50 and ykar<1294+50 then
uo.print('-------------------')
uo.print(' Number 50')
uo.print('-------------------')
UO.SetReceivingContainer('0x40159C8C') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1421-50 and xkar<1421+50 and ykar>2276-50 and ykar<2276+50 then
uo.print('-------------------')
uo.print(' Number 51')
uo.print('-------------------')
UO.SetReceivingContainer('0x4038D496') #+
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>3700-50 and xkar<3700+50 and ykar>2820-50 and ykar<2820+50 then
uo.print('-------------------')
uo.print(' Number 52')
uo.print('-------------------')
UO.SetReceivingContainer('0x40245E23') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1132-50 and xkar<1132+50 and ykar>3534-50 and ykar<3534+50 then
uo.print('-------------------')
uo.print(' Number 53')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037DC78') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1637-50 and xkar<1637+50 and ykar>971-50 and ykar<971+50 then
uo.print('-------------------')
uo.print(' Number 54')
uo.print('-------------------')
UO.SetReceivingContainer('0x40245F04') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>446-50 and xkar<446+50 and ykar>1409-50 and ykar<1409+50 then
uo.print('-------------------')
uo.print(' Number 55')
uo.print('-------------------')
UO.SetReceivingContainer('0x40245EED') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1415-50 and xkar<1415+50 and ykar>2973-50 and ykar<2973+50 then
uo.print('-------------------')
uo.print(' Number 56')
uo.print('-------------------')
UO.SetReceivingContainer('0x4038D493') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>3565-50 and xkar<3565+50 and ykar>2409-50 and ykar<2409+50 then
uo.print('-------------------')
uo.print(' Number 57')
uo.print('-------------------')
UO.SetReceivingContainer('0x4012D6D5') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1433-50 and xkar<1433+50 and ykar>3651-50 and ykar<3651+50 then
uo.print('-------------------')
uo.print(' Number 58')
uo.print('-------------------')
UO.SetReceivingContainer('0x4038D481') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1866-50 and xkar<1866+50 and ykar>1541-50 and ykar<1541+50 then
uo.print('-------------------')
uo.print(' Number 59')
uo.print('-------------------')
UO.SetReceivingContainer('0x40390192') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>1261-50 and xkar<1261+50 and ykar>1550-50 and ykar<1550+50 then
uo.print('-------------------')
uo.print(' Number 60')
uo.print('-------------------')
UO.SetReceivingContainer('0x402458F0') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>2750-50 and xkar<2750+50 and ykar>1990-50 and ykar<1990+50 then
uo.print('-------------------')
uo.print(' Number 61')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037D9FE') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>4639-50 and xkar<4639+50 and ykar>1146-50 and ykar<1146+50 then
uo.print('-------------------')
uo.print(' Number 62')
uo.print('-------------------')
UO.SetReceivingContainer('0x4037DA8B') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if xkar>3110-50 and xkar<3110+50 and ykar>491-50 and ykar<491+50 then
uo.print('-------------------')
uo.print(' Number 63')
uo.print('-------------------')
UO.SetReceivingContainer('0x4002C7AB') #
uo.grab(0,'karta')
wait(500)
bool=1
end if
if bool==0 then
uo.print('-------------------')
uo.print('Unknown coordinates')
uo.print('-------------------')
UO.MoveItem('karta',0,'0x40136C90')
end if
end sub
Sub CheckLag()
DeleteJournal( 'backpack' )
UO.Click( 'backpack' )
repeat
wait(100)
until UO.InJournal( 'backpack' )
return
end sub
Sub DeleteJournal( string1 )
VAR nom = UO.InJournal( string1 )
If nom > 0 Then
UO.SetJournalLine( Nom - 1, 'string replaced' )
DeleteJournal( string1 )
Endif
endsub