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

Доведите до ума.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=6935		 Page 1 of 1
Author:  Azumi [ 2006-03-12 11:58:54 ]
Post subject:  Доведите до ума.
Вот скрипт мининга. Я хотела бы, что бы добвили в жтот скрипт каст по реколу когда вес становится 625. Учтите я ПК.

sub maning()
#DeviL#
var mx, my, mz, i, j, jor, ser, noto
Uo.exec("set norbcheck 1"); для рекола
uo.exec("set norbcalc 1"); тоже

uo.print('!!Выбери Лопату!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend


na4alo:
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+4
while not UO.Hidden()
UO.Warmode("0")
UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j))
UO.UseSkill("Hiding")
wait(4000)
wend
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore")
UO.DeleteJournal()
if uo.waiting() then
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("Shovel")
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait (500)
endif
for jor = 0 to 9
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then
if uo.waiting() then
uo.canceltarget()
endif
endif
next
wend
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
wait(10000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
goto na4alo
end sub
Author:  Scripts Writer [ 2006-03-12 12:06:27 ]
Post subject: 
1. код
2. поиск
3. руки.ехе


Code:
  if uo.weight > 624 then 
         uo.waittargetobject(' id rune ') 
         uo.Cast('Recall') 
      end if
Author:  Azumi [ 2006-03-12 12:34:56 ]
Post subject: 
не че не поняла)
Author:  uisran [ 2006-03-12 15:17:23 ]
Post subject:  Re: Доведите до ума.
Azumi wrote:
Учтите я ПК.


ой боюсь :D
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/