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

Помогите плиз со скриптом на КОРОБКИ(сундуки)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4533		 Page 1 of 1
Author:  R a m [ 2005-07-14 15:22:27 ]
Post subject:  Помогите плиз со скриптом на КОРОБКИ(сундуки)
НАРОД! помогите кто-нибудь мне с этим скриптом, я его от сюда скачал
а он не работает, пишет ошибку:!:(
вот скрипт:::



sub drop1()
if uo.getglobal('drop')=='on' then
uo.print('*DROP is allready running!!*')
goto q
end if
 var s
 dim d[6]
  d[0]=0x1B9B
  d[1]=0x1B9C
  d[2]=0x1B9D
  d[3]=0x1B9E
 d[4]=0x09AA
 d[5]=0x0E7D
 for s=0 to 5
uo.setglobal('drop','on')
uo.set('lasttarget','laststatus')
var x=uo.getserial('lasttarget')
uo.findtype(d[s])
if uo.findcount('finditem') then
if uo.getdistance('finditem')<3 then
end if
  uo.drop("1",str(uo.getx(x)-1),str(uo.gety(x)),0,"finditem")
end if
wait(267)
uo.findtype(d[s])
if uo.findcount('finditem') then
if uo.getdistance('finditem')<3 then
end if
uo.drop("1",str(uo.getx(x)),str(uo.gety(x)+1),0,"finditem")
end if
wait(432)
uo.findtype(d[s])
if uo.findcount('finditem') then
if uo.getdistance('finditem')<3 then
end if
 uo.drop("1",str(uo.getx(x)+1),str(uo.gety(x)),0,"finditem")
end if
wait(600)
uo.findtype(d[s])
if uo.findcount('finditem') then
if uo.getdistance('finditem')<3 then
end if
uo.drop("1",str(uo.getx(x)),str(uo.gety(x)-1),0,"finditem")
end if
uo.setglobal('drop','off')
uo.print('.....d o n e.....')
q:
end sub
Author:  flake [ 2005-07-14 15:37:38 ]
Post subject: 
Где ошибку пишет?
Author:  R a m [ 2005-07-14 15:49:50 ]
Post subject: 
line 6: paste error
вот так вроде
Author:  Grin [ 2005-07-14 17:49:50 ]
Post subject: 
Var (что на 6 строчке) не может находится не в начале скритпа
Возможно ты его не правельно скоиранул... вожможно перед Var стоит end sub и тд...
Author:  R a m [ 2005-07-14 19:48:17 ]
Post subject: 
НАРОД! так кто-нибудь может его подредактировать???
помогите плизз
Author:  Grin [ 2005-07-14 19:55:54 ]
Post subject: 
sub drop1()
var s
dim d[6]
d[0]=0x1B9B
d[1]=0x1B9C
d[2]=0x1B9D
d[3]=0x1B9E
d[4]=0x09AA
d[5]=0x0E7D
if uo.getglobal('drop')=='on' then
uo.print('*DROP is allready running!!*')
goto q
end if

for s=0 to 5
uo.setglobal('drop','on')
uo.set('lasttarget','laststatus')
var x=uo.getserial('lasttarget')
uo.findtype(d[s])
if uo.findcount('finditem') then
if uo.getdistance('finditem')<3 then
end if
uo.drop("1",str(uo.getx(x)-1),str(uo.gety(x)),0,"finditem")
end if
wait(267)
uo.findtype(d[s])
if uo.findcount('finditem') then
if uo.getdistance('finditem')<3 then
end if
uo.drop("1",str(uo.getx(x)),str(uo.gety(x)+1),0,"finditem")
end if
wait(432)
uo.findtype(d[s])
if uo.findcount('finditem') then
if uo.getdistance('finditem')<3 then
end if
uo.drop("1",str(uo.getx(x)+1),str(uo.gety(x)),0,"finditem")
end if
wait(600)
uo.findtype(d[s])
if uo.findcount('finditem') then
if uo.getdistance('finditem')<3 then
end if
uo.drop("1",str(uo.getx(x)),str(uo.gety(x)-1),0,"finditem")
end if
uo.setglobal('drop','off')
uo.print('.....d o n e.....')
q:
end sub
Author:  R a m [ 2005-07-14 20:16:13 ]
Post subject: 
пробую,скрипт работает без ошибок,только почему то обкладывает меня а не последнюю цель, если подхожу близко то вокруг меня 2 или 3 каробки,4-я в паке, может подскажите в чем дело,проста сегодня весь форум перерыл нашел несколько скриптов и ни один нормально не работает, еще на моем шарде(офри) коробки 2-х типов:(
1: 0x0e7d
2: 0x09aa

эти типы я внес в скрипт и все равно он видит только один тип коробок:(
Author:  R a m [ 2005-07-14 20:20:36 ]
Post subject: 
есть еще один скрипт,только тооже что то не могу его сделать под 2 типа:

sub vetki()
var x
  if uo.getglobal('vetki')=='1' then
    uo.print('Vetki system allready on')
    goto exit2
  end if
  uo.setglobal('vetki','1')
  UO.Set('lasttarget','laststatus')
  x=uo.getserial('lasttarget')
  uo.findtype("0x1B9B")
  if uo.findcount() then
    uo.drop("1",str(uo.getx(x)-1),str(uo.gety(x)),0,"finditem")
  end if
  wait(200)
  uo.findtype("0x1B9B")
  if uo.findcount() then
    uo.drop("1",str(uo.getx(x)),str(uo.gety(x)+1),0,"finditem")
  end if
  wait(200)
  uo.findtype("0x1B9B")
  if uo.findcount() then
    uo.drop("1",str(uo.getx(x)+1),str(uo.gety(x)),0,"finditem")
  end if
  wait(200)
  uo.findtype("0x1B9B")
  if uo.findcount() then
    uo.drop("1",str(uo.getx(x)),str(uo.gety(x)-1),0,"finditem")
  end if
  uo.setglobal('vetki','0')
  exit2:
  uo.print('DROPPED')
end sub
Author:  Grin [ 2005-07-14 20:46:26 ]
Post subject: 
на вскидку...
создаем во вкладке типов тип box и тыкаем на то чем будем заставлять
орентирован на 4 напрвления( а этого достаочно что бы цель не ушла из них? или надо по кругу?)

Sub BoxThem(target)
var tx, ty,tz,map
tx=uo.GetX(target)
ty=uo.Gety(target)
tz=uo.Getz(target)
for var i=1 to 2
for var j = 1 to 2
uo.drop(1, tx+2*i-3,ty+2*j-3,tz,'^box')
next
next
end sub
Author:  R a m [ 2005-07-14 21:04:45 ]
Post subject: 
не получается,2 типа коробок:(
и он не хочет запускать скрипт,там неполучается выбрать Box(target)
не знаю почему так.
Author:  Grin [ 2005-07-14 21:29:33 ]
Post subject: 
ятебе на писал функцию параметром который был объект
вот заставляет таващи которого ты последний раз атаковал
Sub BoxThem()
var tx, ty,tz,map
tx=uo.GetX('lastattack')
ty=uo.Gety('lastattack')
tz=uo.Getz('lastattack')
for var i=1 to 2
for var j = 1 to 2
uo.drop(1, tx+2*i-3,ty+2*j-3,tz,'^box')
next
next
end sub
Author:  Kinder Zurpraiz [ 2005-07-14 21:48:32 ]
Post subject: 
Code:
sub paper()
var x
  ##UO.Set('lasttarget','laststatus') 
  x=uo.getserial('lasttarget') 
  uo.findtype("0x0E7F")
  if uo.findcount() then 
    uo.drop("1",str(uo.getx(x)-1),str(uo.gety(x)),"0","finditem") 
  end if
  wait(500)
  uo.findtype("0x0E7F")
  if uo.findcount() then 
    uo.drop("1",str(uo.getx(x)+1),str(uo.gety(x)),"0","finditem") 
  end if
 wait(500)
  uo.findtype("0x0E7F") 
  if uo.findcount() then 
    uo.drop("1",str(uo.getx(x)),str(uo.gety(x)+1),"0","finditem") 
  end if
  wait(500)
  uo.findtype("0x0E7F")
  if uo.findcount() then 
    uo.drop("1",str(uo.getx(x)),str(uo.gety(x)-1),"0","finditem")
  end if
  uo.print('DROPPED')
end sub


тока задайте тайпы сундуков (как ставить несколько типомв не знаю :) скрипт делал ещо на орт рельной сфере на бумажки :) )
Author:  R a m [ 2005-07-15 12:38:33 ]
Post subject: 
все работает,Спасибо
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/