Yoko
http://forum.yoko.com.ua/

Миниг -вырубка только люксры...
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3314		 Page 1 of 1
Author:  phil [ 2005-03-07 01:01:53 ]
Post subject:  Миниг -вырубка только люксры...
люди.. поправте где надо или подскажите где поправить - долбит тока оп одномуму месту (( и то..когда люкср есть ((
акогда руда кончается -стоит наодном месте ((
мsub maining()
VAR Xi,Yi,Y,NoLopati
start:
FOR Xi = -2 TO 2
FOR Yi = -2 TO 2

While not UO.Hidden()
UO.Useskill("Hiding")
Wait(8000)
Wend

UO.Disarm()
Y=0
NoLopati=0
UO.DeleteJournal()
While UO.InJournal("There is nothing")==0 and Y < 100 and NoLopati==0 and UO.InJournal("Try mining in rock")==0 and UO.InJournal("That is too far away")==0 and UO.InJournal("You have no line of sight to that location")==0 and UO.InJournal("You put the Proto")==0
UO.Exec("waittargettile 3126 "+STR(UO.GetX()+Xi)+" "+STR(UO.GetY()+Yi)+" 0")
UO.Exec("usetype 0x0E85")
# UO.Exec("usetype 0x0F39")
Waiter()
# If UO.Count(0x0F39)==0 then
If UO.Count(0x0E85)==0 then
NoLopati=1
End if
If UO.InJournal("You loosen some rocks") then
Y = Y + 1
End if
Wend

Wait(2000)

NEXT
NEXT
goto start
end sub

sub Waiter()
VAR Zdat = 0
UO.DeleteJournal()
While UO.InJournal("You put the")==0 and UO.InJournal("You loosen some rocks")==0 and UO.InJournal("There is nothing")==0 and UO.InJournal("Try mining in rock")==0 and UO.InJournal("That is too far away")==0 and Zdat < 200 and UO.InJournal("You have no line of sight to that location")==0
Wait(100)
Zdat = Zdat + 1
Wend
end sub
Author:  BETEPAH [ 2005-03-07 09:58:16 ]
Post subject: 
Поправь сообщения все под себя ..
Author:  phil [ 2005-03-08 14:41:33 ]
Post subject:  если б я что понимал..
Да млин.. Если б знал что править ..:-/
сорре.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/