Помогите плиз со скриптом на КОРОБКИ(сундуки)

[R a m]

НАРОД! помогите кто-нибудь мне с этим скриптом, я его от сюда скачал
а он не работает, пишет ошибку:!:(
вот скрипт:::



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

[flake]

Где ошибку пишет?

[R a m]

line 6: paste error
вот так вроде

[Grin]

Var (что на 6 строчке) не может находится не в начале скритпа
Возможно ты его не правельно скоиранул... вожможно перед Var стоит end sub и тд...

[R a m]

НАРОД! так кто-нибудь может его подредактировать???
помогите плизз

[Grin]

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

[R a m]

пробую,скрипт работает без ошибок,только почему то обкладывает меня а не последнюю цель, если подхожу близко то вокруг меня 2 или 3 каробки,4-я в паке, может подскажите в чем дело,проста сегодня весь форум перерыл нашел несколько скриптов и ни один нормально не работает, еще на моем шарде(офри) коробки 2-х типов:(
1: 0x0e7d
2: 0x09aa

эти типы я внес в скрипт и все равно он видит только один тип коробок:(

[R a m]

есть еще один скрипт,только тооже что то не могу его сделать под 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

[Grin]

на вскидку...
создаем во вкладке типов тип 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

[R a m]

не получается,2 типа коробок:(
и он не хочет запускать скрипт,там неполучается выбрать Box(target)
не знаю почему так.

[Grin]

ятебе на писал функцию параметром который был объект
вот заставляет таващи которого ты последний раз атаковал
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

[Kinder Zurpraiz]

Code: Select all

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

тока задайте тайпы сундуков (как ставить несколько типомв не знаю скрипт делал ещо на орт рельной сфере на бумажки )

[R a m]

все работает,Спасибо