Зделаите его проще МИНИНГ

[Vija [ XAOC ]]

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 -помогите ))

[Denton]

Code: Select all

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, Y, dX, 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)
while not UO.InJournal("far") OR not UO.InJournal("else") OR not UO.InJournal("mine") OR not UO.InJournal("Proto") 
   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
      while not UO.InJournal("loosen") OR not UO.InJournal("Luxury") OR not UO.InJournal("Common") OR not UO.InJournal("Arch") OR not UO.InJournal("Elemental")
         wait(250)
      wend
wend
end sub

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

[Vija [ XAOC ]]

Code: Select all

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, Y, dX, 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)
while not UO.InJournal("far") OR not UO.InJournal("else") OR not UO.InJournal("mine") OR not UO.InJournal("Proto") 
   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
      while not UO.InJournal("loosen") OR not UO.InJournal("Luxury") OR not UO.InJournal("Common") OR not UO.InJournal("Arch") OR not UO.InJournal("Elemental")
         wait(250)
      wend
wend
end sub

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

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

[Sfagnum]

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

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