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

Скрипт на мининг!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=9183		 Page 1 of 1
Author:  HuTpo [ 2006-10-28 19:24:35 ]
Post subject:  Скрипт на мининг!
Искал в поиске ненашол!
Нужен скрипт который копает вокруг себя и когда выкапываеь ирон выбрасывает его!Помогите люди добрые!


Есть такой но как зделать чтоб он выкидовал ирон?поправьте пожалуйсто!
sub minround()
VAR Kirka = '0x0E85' ; Òèï Êèðêè
VAR MaxVes = 500 ; Ìàêñèìàëüíûé âåñ, ïîäûìàåìûé ÷àðîì ìèíóñ 10-15 ñòîóíîâ
VAR TileNum = '1339' ; Òàéë ïîëà ïåùåðû (íàèáîëåå ðàñïðîñòðàíåííûé òèï)
VAR x, y, t, k
VAR MaxTime = 100 ; èçìåðÿåòñÿ â 1/10 ñåê.
VAR ms1 = "There is nothing here to mine for"
VAR ms2 = "You can't use"
VAR ms3 = "You put "
VAR ms4 = "You loosen some rocks"
VAR ms5 = "You are too far away"
VAR ms6 = "Try mining in rock"
VAR ms7 = "You can't see that"
for y=-2 to 2
for x=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("Ïðÿ÷åìñÿ...")
UO.UseSkill("Hiding")
wait(4000)
wend
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
UO.CancelTarget()
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next
endsub
Author:  GimFlex [ 2006-10-28 20:22:41 ]
Post subject: 
нет слов юзай поиск
Author:  HuTpo [ 2006-10-29 15:33:16 ]
Post subject: 
Юзал там находят всякие с полетом при виде пк но такой как мне нужен ненашол!
Author:  Nmy [ 2006-10-29 15:48:22 ]
Post subject: 
мне уже наболело читать такие посты... просто пропускаю...
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/