Yoko

sub Main()
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
if tk < 1 then
MessageBox('mina')

endif
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("loosen") 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(1)
wend
wend
end sub

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Дело в том что етот скрипт - чюток тормозит систкму (Как исправить ето ?)

wait(1)
wend
wend

заменить на

wait(30)
wend
wait(30)
wend