Yoko

sub Main()
While not UO.Hidden()
UO.Useskill("Hiding")
Wait(10000)
Wend
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()
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("far") 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(50)
wend
wait(50)
wend
end sub

=============================
Все что мне нада ето зделать его чюток по Проще - переделать Все (IF) На While -помогите ))

не пробовал, но по идее все должно работать (не уверен в правильности синтаксиса "while not *** OR not *** ......."

=============================================
=============================================
==============================================
Не работает ((((
народ поправте его плиз

"while not *** AND not *** ......."