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

propiska Shovel odnovremenno s pickaxe
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2503		 Page 1 of 1
Author:  MbIKOJIA [ 2005-01-06 21:48:36 ]
Post subject:  propiska Shovel odnovremenno s pickaxe
sub main()

moveto(INT(UO.getx("self")), INT(UO.gety("self")+4))

end sub

#The following is a few sample scripts by Yoko.
#They aren't supposed for unchaged use on Sphere, POL or OSI

sub mining()
var mx, my, mz, i, j, e, jor, ser, noto, f
var MineShovel=1

Uo.exec("set norbcheck 1"); для рекола
uo.exec("set norbcalc 1"); тоже

uo.print('!!Выбери Кирку!! ')
uo.exec('addobject Pickaxe')
while uo.targeting()
wait(100)
wend

if MineShovel==1 then
uo.print('!!Выбери Shovel!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend
endif

uo.print('!!Выбери Рунбук!! ')
uo.exec('addobject Runebook')
while uo.targeting()
wait(100)
wend
e=12
na4alo:
f=(110-(uo.skillval("Mining")/10))/3

mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.Print("Position : " + STR(mx) + "," + STR(my) + "," + STR(mz))
UO.DeleteJournal()
for i = (mx-3) to (mx+3)
for j = (my-3) to (my+3)
while not UO.Hidden()
UO.Warmode("0")
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Копаем в координатах: "+str(i)+" "+str(j))
while not UO.InJournal("no ore") and not uo.injournal("nothing in") and not UO.InJournal("Try another") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal(" Mineral") and not UO.InJournal(" Ore")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("Pickaxe")
while not UO.InJournal("lack mining") and not UO.InJournal("heavy") and not UO.InJournal("Try another") and not UO.InJournal("is nothing") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("no ore") and not uo.injournal("nothing in")
wait (200)
while not UO.InJournal("no ore") and not uo.injournal("Try another")and not uo.injournal("nothing in")
wait(1000)
wend
wend
if uo.weight > 600 then ; Максимальный вес при котором домой с рудой
goto end
endif
wend
UO.DeleteJournal()
next
next
moveto(INT(UO.getx("self")), INT(UO.gety("self")+6))
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.Print("Letim domoi")
uo.say(",recall Runebook 17") ; домой ( в рунбуке слот 1 )
wait(10000)
loot()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.Print("Letim kopat")
uo.say(",recall Runebook "+ STR(e)) ; в шахту ( в рунбуке слот 2 )
e = e + 1
if e > 16 then
e = 12
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

sub loot() ; перекладка руды в сундук
wait(2000)
uo.Print("zahodim vdom")
uo.opendoor()
moveto(INT(UO.getx("self")), INT(UO.gety("self")-4))
uo.Print("Na4inajem razgruzat rudu")
uo.deletejournal()



VAR a,Exit
VAR UnloadCont='0x4007ac76' ; АЙДИ сундука для руды
DIM Ore[5]
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore

UO.SetReceivingContainer(UnloadCont)
wait(500)
For a=0 to 3
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
else
Exit=1
endif
until Exit==1
Next
UO.UnSetReceivingContainer()
UO.Print("Razgruzka okon4ena")
end sub

sub Save() ; Реколл от ПК при их появлении (в паке рунка в безопасное место и реги)
var mx, my

reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
UO.DeleteJournal()
uo.exec("recall Runebook 1") ; домой ( в рунбуке слот 1 )
wait(12000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
end sub

sub pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub pwavw(); звук при появлении ПК
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO )
UO.DeleteJournal()
repeat
wait(3000)
UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!")
until UO.InJournal('GO')

UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!")
end sub

sub moveto(x, y)
var xch, ych, dch, a=0

while x < uo.getx("self") and y < uo.gety("self")
a=1
xch=uo.getx("self")
ych=uo.gety("self")
dch=uo.getdir("self")
uo.press(30)
wait(500)
wend
while x > uo.getx("self") and y < uo.gety("self")
a=1
xch=uo.getx("self")
ych=uo.gety("self")
dch=uo.getdir("self")
uo.press(39)
wait(500)
wend
while x > uo.getx("self") and y > uo.gety("self")
a=1
xch=uo.getx("self")
ych=uo.gety("self")
dch=uo.getdir("self")
uo.press(40)
wait(500)
wend
while x < uo.getx("self") and y > uo.gety("self")
a=1
xch=uo.getx("self")
ych=uo.gety("self")
dch=uo.getdir("self")
uo.press(37)
wait(500)
wend

a=1

if a==1 then
a=0
while x < uo.getx("self")
a=1
xch=uo.getx("self")
ych=uo.gety("self")
dch=uo.getdir("self")
uo.press(36)
wait(500)
wend
while y < uo.gety("self")
a=1
xch=uo.getx("self")
ych=uo.gety("self")
dch=uo.getdir("self")
uo.press(33)
wait(500)
wend
while x > uo.getx("self")
a=1
xch=uo.getx("self")
ych=uo.gety("self")
dch=uo.getdir("self")
uo.press(34)
wait(500)
wend
while y > uo.gety("self")
a=1
xch=uo.getx("self")
ych=uo.gety("self")
dch=uo.getdir("self")
uo.press(35)
wait(500)
wend
endif

end sub








kak propisat' 4tob pri journale Try another tool srazu ze ispolzovalas' pickaxe?
Author:  Sfagnum [ 2005-01-07 09:59:56 ]
Post subject: 
MbIKOJIA wrote:
kak propisat' 4tob pri journale Try another tool srazu ze ispolzovalas' pickaxe?

Code:
if UO.Injournal('Try another tool') then
   UO.FindType('tip_kirki','cvet_kirki','backpack')
   if UO.FinCount() > 0 then
      UO.AddObject('Pickaxe','finditem')
   else 
      UO.Exec('terminate all')
   end if
end if
вставь куда тебе надоть
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/