Yoko

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

_________________
Я просто ****** ******* ****** ****** ***** ** ***

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