Yoko

All sides of Injection
It is currently 2024-03-29 15:50:05

All times are UTC+02:00




Post new topic  Reply to topic  [ 2 posts ] 
Author Message
PostPosted: 2004-04-09 16:56:30 
Offline

Joined: 2004-04-09 16:52:50
Posts: 3
Скрипт для маленького випа на дрв... Я вскриптах не разбираюсь, короче он почему глючит когда вылезает елем, не пьет инвизку потом морф в демона и ошибка какаято. И когда он одну половину прокапывает и пытаеться идти на 2 то упераеться в стенку (

sub main()
var mx, my, mz, i, j, t
repeat
uo.addobject("Bag", 0x400006840) #Сумка с регами и инвизом
uo.addobject("Book", 0x401424C3) #Книжка магии
uo.addobject("Shovel", 0x401a78f8) #Кирка или лопата
dim x[3]
dim y[3]
x[0]=5135 # Координаты
y[0]=1181 #
x[1]=5189 # Точек
y[1]=1182 #
x[2]=5144 # Копки
y[2]=1181 #
for t=0 to 2
na4:
gotoxy(x[t],y[t])
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.UseSkill("Stealth")
wait(4000)
wend
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
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)
if uo.injournal('elemental') or uo.injournal('Elemental') then
elem()
endif
wend
UO.DeleteJournal()
if uo.Weight>550 then # максимальный вес
loot()
goto na4
endif
next
next
next
until uo.dead()
end sub

sub loot()
gotoxy(5133,1184) # Координата возле сундука
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("emptycontainer 400 'backpack' 0x40081FE1") #сундук для выкладки
wait(1000)
uo.setreceivingcontainer('backpack')
wait(500)
uo.grab(0, "Book")
wait(1000)
uo.grab(0, "Bag")
wait(1000)
end sub

sub elem()
var jor,ser,noto,eid
uo.findtype(0x0F0E,0x0631)
uo.useobject('finditem')
ser = uo.journalserial(uo.injournal('Elemental')-1)
eid=ser
cd:
uo.waitmenu('What','Daemon')
uo.deletejournal()
uo.cast('Polymorph')
wait(4000)
if uo.injournal('fizzles') then
goto cd
endif
uo.findtype(0x0F0E,0x09DF)
uo.useobject('finditem')
repeat
uo.waittagetobject('self')
uo.cast('Greater Heal')
wait(3000)
if uo.mana<20 then
uo.findtype(0x0F0E,0x09DF)
uo.useobject('finditem')
endif
until uo.gethp('self')>240
uo.attack(eid)
while uo.gethp(eid)>0
gotoxy(uo.getx(eid),uo.gety(eid))
wait(5000)
wend
uo.findtype(0x19B9,'-1','ground')
uo.grab(0,'finditem')
end sub


sub gotoxy(xx,yy)
var lagfactor=5
var msbase=150
var dx,dy
var x=val(xx)
var y=val(yy)
if x==0 then
x=xx
end if
if y==0 then
y=yy
end if
var mx,my
start:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
uo.print(STR(dx))
if dx<3 then
wait(msbase*lagfactor)
else
wait(msbase)
end if
if mx==x then
if my==y then
return
endif
if my>y then
UO.Print("UR")
UO.Press(33)
goto start
endif
UO.Print("DL")
UO.Press(35)
goto start
end if
if mx<x then
if my>y then
UO.Print("R")
UO.Press(39)
goto start
endif
if my==y then
UO.Print("DR")
UO.Press(34)
goto start
endif
UO.Print("D")
UO.Press(40)
goto start
end if
if my<y then
UO.Print("L")
UO.Press(37)
goto start
endif
if my==y then
UO.Print("LU")
UO.Press(36)
goto start
endif
UO.Print("U")
UO.Press(38)
goto start
end sub


Top
   
 Post subject:
PostPosted: 2004-04-09 18:18:53 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
Сразу с ходу скажу, что в main() не хватает одного wend-а... Который явно должен быть как раз перед if-ом с проверкой на элементаля...


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 2 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 29 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited