script na mining
Posted: 2004-10-26 19:54:18
u menja problema so scriptom na mining.znakomie dali mne sam script i ne pojasli kakie ustanovki tam delat'(pojasnili no ja tolkom ne ponel)hotelos' bi uznat' 4to i kuda nado zanesti i voobshe kak polzovatsja scriptom....esli ne trudno razjasnite pozalujsta vot sam script:
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"); dk pejnk`
uo.exec("set norbcalc 1"); rnfe
uo.print('!!B{aeph Jhpjs!! ')
uo.exec('addobject Pickaxe')
while uo.targeting()
wait(100)
wend
if MineShovel==1 then
uo.print('!!B{aeph Shovel!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend
endif
uo.print('!!B{aeph Psmasj!! ')
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("Opwelq...")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Jno`el b jnnpdhm`r`u: "+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.injou
9
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"); dk pejnk`
uo.exec("set norbcalc 1"); rnfe
uo.print('!!B{aeph Jhpjs!! ')
uo.exec('addobject Pickaxe')
while uo.targeting()
wait(100)
wend
if MineShovel==1 then
uo.print('!!B{aeph Shovel!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend
endif
uo.print('!!B{aeph Psmasj!! ')
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("Opwelq...")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Jno`el b jnnpdhm`r`u: "+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.injou
9