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

Help me!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7281		 Page 1 of 1
Author:  jin [ 2006-04-05 20:16:37 ]
Post subject:  Help me!
Ребята помогите плиз.. нужен скрипт такого рода - чар стоит возле порога дома, нужно чтобы он открыл дверь и прошел 8 раз по PageUp и 3 раза по End + проверка, что он дошел до того места...
Только не говорите типа - читай фаг и т.д. я в написании скриптов не розбераюсь :(
Author:  Kynep [ 2006-04-05 20:39:15 ]
Post subject:  Re: Help me!
jin wrote:
Ребята помогите плиз.. нужен скрипт такого рода - чар стоит возле порога дома, нужно чтобы он открыл дверь и прошел 8 раз по PageUp и 3 раза по End + проверка, что он дошел до того места...
Только не говорите типа - читай фаг и т.д. я в написании скриптов не розбераюсь :(


Смари:
Code:
sub idu()
UO.Set('finddistance', '3')
wait(200)
UO.opendoor()
wait(1000)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(35)
wait(500)
Uo.Press(35)
wait(500)
Uo.Press(35)
wait(500)
end sub
Author:  jin [ 2006-04-05 22:31:38 ]
Post subject:  Re: Help me!
Cooper wrote:
Смари:
Code:
sub idu()
UO.Set('finddistance', '3')
wait(200)
UO.opendoor()
wait(1000)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(35)
wait(500)
Uo.Press(35)
wait(500)
Uo.Press(35)
wait(500)
end sub


пасиб большое, а можна как-то проверку на открытие двеерй зделать ??
Author:  flake [ 2006-04-05 23:50:07 ]
Post subject: 
Копер, а нафиг тебе файнддистанс выставлять?
Author:  Kynep [ 2006-04-06 07:04:24 ]
Post subject: 
flake wrote:
Копер, а нафиг тебе файнддистанс выставлять?


2flake
Чтоб двери открыл...
Code:
Описание: opendoor •
Синтакс: ,opendoor 
none uo.opendoor()

Открывает/закрывает (двойной щелчок, использование) дверь в радиусе set distance.


2jin
Поставь wait побольше после UO.OpenDoor()
Author:  flake [ 2006-04-06 07:56:28 ]
Post subject: 
Так это
Code:
uo.set( 'distance', '3' )
а не файнддистанс.
Author:  Askaneli [ 2006-04-06 08:01:29 ]
Post subject:  Re: Help me!
Cooper wrote:
jin wrote:
Ребята помогите плиз.. нужен скрипт такого рода - чар стоит возле порога дома, нужно чтобы он открыл дверь и прошел 8 раз по PageUp и 3 раза по End + проверка, что он дошел до того места...
Только не говорите типа - читай фаг и т.д. я в написании скриптов не розбераюсь :(


Смари:
Code:
sub idu()
UO.Set('finddistance', '3')
wait(200)
UO.opendoor()
wait(1000)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(33)
wait(500)
Uo.Press(35)
wait(500)
Uo.Press(35)
wait(500)
Uo.Press(35)
wait(500)
end sub

UO.opendoor() калитку не открывает, по крайней мере у меня ...
Author:  Kynep [ 2006-04-06 08:12:03 ]
Post subject:  Re: Help me!
Askaneli wrote:
UO.opendoor() калитку не открывает, по крайней мере у меня ...


ХЗ на калитках не тестил, мож она и не должна открывать калитки?
Двери норм открывает :?
Author:  flake [ 2006-04-06 08:55:30 ]
Post subject: 
Code:
var Oper()
var close = '' ; типа закрытой калитки
  uo.set( 'finddistance' , '3' )
  uo.findtype( close, '-1', 'ground' )
       if uo.findcount() == 0 then
          uo.print( 'Рядом нет калиток' )
          return
      endif
    open:
  uo.useobject( 'finditem' )
  wait(600)
    if uo.getgraphic( 'finditem' ) == close then
      goto open
    endif
endsub
Author:  Askaneli [ 2006-04-06 11:09:41 ]
Post subject: 
Code:
Cheklag()
uo.findtype('0x084D','0x0000','ground') ## Тип и цвет открытой калитки
wait(50)
if uo.findcount()==0 then ## Открываем если она закрыта
   Cheklag()
   uo.useobject('ИД калитки')
   wait(50)
end if
while uo.gety('self')>Координата Y до которой идём сперва
   Cheklag()
   uo.press(33)
   wait(150)
wend

while uo.getx('self')<Координата X до которой идём поле, обычно рядом с сейфом
   Cheklag()
   uo.press(40)
   wait(150)
wend


uo.press(40) потому что чар потом вдоль забора идёт скольжением ...
Author:  jin [ 2006-04-07 12:25:04 ]
Post subject: 
Ребята помогите с дропом, не кидает дроп в координату (( координата находиться на соседнем тайле
Code:
sub Drop() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var a,Exit 
dim Logs[1] 
Logs[0]=0x1BDD 
wait(500) 
for a=0 to 0 
Exit=0 
repeat 
uo.FindType(Logs[a]) 
if uo.GetQuantity('finditem')>0 then 

uo.drop(0, 372, 244,'finditem')

wait(1500) 
else 
Exit=1 
end if 
until Exit==1 
next 
end sub
Author:  Kynep [ 2006-04-07 14:14:34 ]
Post subject: 
jin wrote:
Ребята помогите с дропом, не кидает дроп в координату (( координата находиться на соседнем тайле
Code:
sub Drop() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var a,Exit 
dim Logs[1] 
Logs[0]=0x1BDD 
wait(500) 
for a=0 to 0 
Exit=0 
repeat 
uo.FindType(Logs[a]) 
if uo.GetQuantity('finditem')>0 then 

uo.drop(0, 372, 244,'finditem')

wait(1500) 
else 
Exit=1 
end if 
until Exit==1 
next 
end sub



У тебя цикл не выполняется:

Code:
for a=0 to 0


он сразу останавливается, поставь хотя бы так:

Code:
for a=0 to 1


выкинет 1 пачку логов
Author:  jin [ 2006-04-07 21:21:46 ]
Post subject: 
Cooper wrote:
У тебя цикл не выполняется:

Code:
for a=0 to 0


он сразу останавливается, поставь хотя бы так:

Code:
for a=0 to 1


выкинет 1 пачку логов


Пасиб )
Author:  jin [ 2006-04-11 14:35:15 ]
Post subject: 
Ребята выручите еще раз ;) ... вот скрипт сделал на доски, но он чего-то не хочет их делать :(( и cancelmenu не работает :((((
Code:
sub ToBoards()
Var tb
For tb = 0 To 7
UO.Exec ("usetype 0x1035") 
UO.Exec ("waitmenu  'carpentry selection menu' 'Materials' 'carpentry selection menu' 'Boards' ")
UO.Exec ("waittargettype 0x1BDD")
wait (10000)
uo.cancelmenu() 
wait (100)
uo.canceltarget()
wait (100)
Next
end sub
Author:  Edred [ 2006-04-11 22:08:06 ]
Post subject: 
В разделе Help прилеплены уроки. Почитай, сразу отпадут глупые вопросы. Ловушку на прицел надо ставить до, а не после использования инструмента. И меню до.
Author:  jin [ 2006-04-12 01:47:17 ]
Post subject: 
Edred wrote:
В разделе Help прилеплены уроки. Почитай, сразу отпадут глупые вопросы. Ловушку на прицел надо ставить до, а не после использования инструмента. И меню до.


почитал, много чего нового узнал... вот ..

Code:
sub ToStool()
Var A
For A = 0 To 1
 UO.CancelMenu()
 wait (100)
 UO.Exec("waitmenu  'carpentry selection menu' 'Chairs' 'carpentry selection menu' 'Stool'")
 UO.Exec("waittargettype 0x1BDD")
 UO.Exec("usetype 0x1035")
 wait(9000)
 UO.CancelMenu()
 wait (100)
Next
end sub


Code:
sub ToStool()
Var A
For A = 0 To 1
 UO.CancelMenu()
 wait (100)
 UO.AutoMenu('carpentry selection menu', 'Chairs')
 UO.AutoMenu('carpentry selection menu', 'Stool')
 UO.Exec("waittargettype 0x1BDD")
 UO.Exec("usetype 0x1035")
 wait(9000)
 UO.CancelMenu()
 wait (100)
Next
end sub


Code:
sub ToStool()
Var A
For A = 0 To 1
 UO.CancelMenu()
 wait (100)
 UO.AutoMenu('carpentry selection menu', 'Chairs')
 UO.AutoMenu('Chairs', 'Stool')
 UO.Exec("waittargettype 0x1BDD")
 UO.Exec("usetype 0x1035")
 wait(9000)
 UO.CancelMenu()
 wait (100)
Next
end sub


Code:
sub ToStool()
Var A
For A = 0 To 1
 UO.CancelMenu()
 wait (100)
 UO.AutoMenu('Chairs', 'Stool')
 UO.Exec("waittargettype 0x1BDD")
 UO.Exec("usetype 0x1035")
 wait(9000)
 UO.CancelMenu()
 wait (100)
Next
end sub


вот несколько способов которыми я пробовал, но без желаемого результата... появляетcя меню (его полное название "Carpentry Selection Menu") и ничего не происходит + после UO.CancelMenu() - менюшка не закрывается :(

Покажи мне плиз мою ошибку :) либо я плохо читаю, либо ....
сервак pol 0.96
Author:  Edred [ 2006-04-12 08:41:50 ]
Post subject: 
jin wrote:
UO.AutoMenu('carpentry selection menu', 'Chairs')
UO.AutoMenu('carpentry selection menu', 'Stool')
......
появляетcя меню (его полное название "Carpentry Selection Menu")


Так что же у тебя все-таки написано в меню? Инжект передает клиенту и серверу именно то, что ты напишешь, преобразованиями регистров он не занимается. Поэтому в строке меню нужно указывать заглавные буквы именно там, где они нужны, а там где не нужны - не указывать.

И вообще: убери канселменю в конце скрипта, она там на фиг не нужна, раз она у тебя есть в начале, и посмотри. Если при запуске скрипта выскакивает меню и остается висеть, значит ты однозначно неправильно записал в аутоменю (вайтменю тебе не подходит, у тебя на разных уровнях меню одинаковые заголовки).
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/