Yoko

All sides of Injection
It is currently 2025-12-23 22:56:54

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 17 posts ] 
  Print view Previous topic | Next topic 
Author Message
jin
 Post subject: Help me!
PostPosted: 2006-04-05 20:16:37 
Offline

Joined: 2006-04-05 19:58:43
Posts: 8
Ребята помогите плиз.. нужен скрипт такого рода - чар стоит возле порога дома, нужно чтобы он открыл дверь и прошел 8 раз по PageUp и 3 раза по End + проверка, что он дошел до того места...
Только не говорите типа - читай фаг и т.д. я в написании скриптов не розбераюсь :(
Top
   
Reply with quote  
Kynep
 Post subject: Re: Help me!
PostPosted: 2006-04-05 20:39:15 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
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
Top
   
Reply with quote  
jin
 Post subject: Re: Help me!
PostPosted: 2006-04-05 22:31:38 
Offline

Joined: 2006-04-05 19:58:43
Posts: 8
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


пасиб большое, а можна как-то проверку на открытие двеерй зделать ??
Top
   
Reply with quote  
flake
 Post subject:
PostPosted: 2006-04-05 23:50:07 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
Копер, а нафиг тебе файнддистанс выставлять?
Top
   
Reply with quote  
Kynep
 Post subject:
PostPosted: 2006-04-06 07:04:24 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
flake wrote:
Копер, а нафиг тебе файнддистанс выставлять?


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

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


2jin
Поставь wait побольше после UO.OpenDoor()
Top
   
Reply with quote  
flake
 Post subject:
PostPosted: 2006-04-06 07:56:28 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
Так это
Code:
uo.set( 'distance', '3' )
а не файнддистанс.
Top
   
Reply with quote  
Askaneli
 Post subject: Re: Help me!
PostPosted: 2006-04-06 08:01:29 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
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() калитку не открывает, по крайней мере у меня ...

_________________
Сделал дело - флуди смело !!!
Top
   
Reply with quote  
Kynep
 Post subject: Re: Help me!
PostPosted: 2006-04-06 08:12:03 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
Askaneli wrote:
UO.opendoor() калитку не открывает, по крайней мере у меня ...


ХЗ на калитках не тестил, мож она и не должна открывать калитки?
Двери норм открывает :?
Top
   
Reply with quote  
flake
 Post subject:
PostPosted: 2006-04-06 08:55:30 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
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
Top
   
Reply with quote  
Askaneli
 Post subject:
PostPosted: 2006-04-06 11:09:41 
Offline
Sphere expert
User avatar

Joined: 2004-10-01 08:27:38
Posts: 1143
Location: Уфа
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) потому что чар потом вдоль забора идёт скольжением ...

_________________
Сделал дело - флуди смело !!!
Top
   
Reply with quote  
jin
 Post subject:
PostPosted: 2006-04-07 12:25:04 
Offline

Joined: 2006-04-05 19:58:43
Posts: 8
Ребята помогите с дропом, не кидает дроп в координату (( координата находиться на соседнем тайле
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
Top
   
Reply with quote  
Kynep
 Post subject:
PostPosted: 2006-04-07 14:14:34 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
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 пачку логов
Top
   
Reply with quote  
jin
 Post subject:
PostPosted: 2006-04-07 21:21:46 
Offline

Joined: 2006-04-05 19:58:43
Posts: 8
Cooper wrote:
У тебя цикл не выполняется:

Code:
for a=0 to 0


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

Code:
for a=0 to 1


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


Пасиб )
Top
   
Reply with quote  
jin
 Post subject:
PostPosted: 2006-04-11 14:35:15 
Offline

Joined: 2006-04-05 19:58:43
Posts: 8
Ребята выручите еще раз ;) ... вот скрипт сделал на доски, но он чего-то не хочет их делать :(( и 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
Top
   
Reply with quote  
Edred
 Post subject:
PostPosted: 2006-04-11 22:08:06 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
В разделе Help прилеплены уроки. Почитай, сразу отпадут глупые вопросы. Ловушку на прицел надо ставить до, а не после использования инструмента. И меню до.
Top
   
Reply with quote  
jin
 Post subject:
PostPosted: 2006-04-12 01:47:17 
Offline

Joined: 2006-04-05 19:58:43
Posts: 8
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
Top
   
Reply with quote  
Edred
 Post subject:
PostPosted: 2006-04-12 08:41:50 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
jin wrote:
UO.AutoMenu('carpentry selection menu', 'Chairs')
UO.AutoMenu('carpentry selection menu', 'Stool')
......
появляетcя меню (его полное название "Carpentry Selection Menu")


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

И вообще: убери канселменю в конце скрипта, она там на фиг не нужна, раз она у тебя есть в начале, и посмотри. Если при запуске скрипта выскакивает меню и остается висеть, значит ты однозначно неправильно записал в аутоменю (вайтменю тебе не подходит, у тебя на разных уровнях меню одинаковые заголовки).
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 17 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 8 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:  
Powered by phpBB® Forum Software © phpBB Limited