Анти ПК !!!!!!! ХЕЛП

[Vija [ XAOC ]]

кароче та !
1. Запрешено Рекол и РУДОЙ (ТОКА по травел буке !)
2.Нада увидить чара которий входит в шахту (Если ПК ) - жать Телепорт по Травел буке - если он витащит меня с хаида - телепорт и бежать в любом направлениии + випить инвизку если ОН (Атакует меня)
3. Если ктонибуть Знает как лутше убежать по травел буке - пишите сюда !
4.....СПАСИБА--а чюто не забил ВОТ САМ МАКРОС - ОН рабочий )) но если знаете как зделать его еще лутше пишите
============================ ============================
sub main()
var i
DIM mark[12]
mark[1]=Str(1) ; 1 mark
mark[2]=Str(2) ; 2 mark
mark[3]=Str(3) ; 3 mark
mark[4]=Str(4) ; 4 mark
mark[5]=Str(5) ; 5 mark
mark[6]=Str(6) ; 6 mark
mark[7]=Str(7) ; 7 mark
mark[8]=Str(8) ; 8 mark
mark[9]=Str(9) ; 9 mark
mark[10]=Str(10) ; 10 mark
mark[11]=Str(11) ; 11 mark
mark[12]=Str(11) ; 11 mark
Start:
for i= 1 to 11
uo.Recall("0x40367081",mark[i])
wait(20000)
Mina()
mr()
if i == Str(11) then
i=1
endif
next
end sub

sub Mina()
var tk=25 ;счетчик точек вокруг чара
UO.addtype('kirka1','0x0e85')
UO.addtype('kirka2','0x0e86')
Var X
Var Y
Var dX
Var dY
For dX = -2 To 2
For dY = -2 To 2
X = UO.GetX() + dX
Y = UO.GetY() +dY
kopat(x, y, tk)
tk=tk-1

Next
Next
end sub
########################################
###############################
sub kopat(x, y, tk)
var c=0
while not c>99000
UO.DeleteJournal()
while NOT UO.Hidden()
UO.UseSkill('Hiding')
wait(5000)
wend

UO.print(str(tk))
UO.Exec("waittargettile 0 " + STR(X) + " " + STR(Y) + " 1")
if UO.count('kirka1')>0 then
UO.Usetype('kirka1')
else
UO.Usetype('kirka2')
end if
c=0
wait(50)
while not c>10000
if UO.InJournal("rocks") Then
c=10000; on
wait(250)
endif
if UO.InJournal("action") Then
c=10000; on
wait(250)
endif
if UO.InJournal("far") Then
c=100000; off
wait(1500)
endif
if UO.InJournal("location") Then
c=100000; off
wait(1500)
endif
if UO.InJournal("else") Then
c=100000; off
wait(1500)
endif
if UO.InJournal("mine") Then
c=100000; off
wait(1500)
endif
if UO.InJournal("Proto") Then
c=100000; off
wait(1500)
endif
if UO.InJournal("Luxury") Then
c=10000; on
wait(250)
endif
if UO.InJournal("Common") Then
c=10000; on
wait(250)
endif
if UO.InJournal("Arch") Then
c=10000; on
wait(250)
endif
if UO.InJournal("Elemental") Then
c=10000; on
wait(250)
endif
c=c+1
wait(30)
wend
wait(30)
wend
end sub


sub mr()
UO.Exec('exec dom')
wait(60000)
end sub

sub dom()
uo.Recall("0x40367081","12"); марк нахату
wait(15000)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(2000)
UO.Press(33)
UO.Say(',opendoor')
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(100)
UO.Press(33)
wait(1000)
UO.Exec('exec skid')
wait(25000)

end sub


sub skid()
while UO.Count(0x19B9)>0
UO.FindType(0x19B9,-1,"my")
UO.MoveItem("finditem","0","0x40400A1D")
UO.Ignore("finditem")
wait(2000)
wend

end sub