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

первый раз пишу скрипт, подскажите
http://forum.yoko.com.ua/viewtopic.php?f=20&t=12882		 Page 1 of 1
Author:  Cat [ 2007-12-11 15:14:58 ]
Post subject:  первый раз пишу скрипт, подскажите
sub alhim()
UO.usetype(0x0E9B) \ тыкаем на пестик появляется прицел
UO.Exec("waittargetobject 0x4ACA18FD") \ выбираем реагент NightShade, не знаю как зделать по типу
UO.WaitMenu('Deadly_Poison') \ и нифига не выбирается говорит 4то надо promt, указываю( Select a potion to make) выдает ошибку
end sub
Author:  Cat [ 2007-12-11 15:17:19 ]
Post subject: 
может можно как-нибудь не указывать prompt ?
Author:  Destruction [ 2007-12-11 21:22:39 ]
Post subject:  Re: первый раз пишу скрипт, подскажите
Cat wrote:
sub alhim()
UO.usetype(0x0E9B) \ тыкаем на пестик появляется прицел
UO.Exec("waittargetobject 0x4ACA18FD") \ выбираем реагент NightShade, не знаю как зделать по типу
UO.WaitMenu('Deadly_Poison') \ и нифига не выбирается говорит 4то надо promt, указываю( Select a potion to make) выдает ошибку
end sub

Тоже самое, но без грамматических ошибок:
Code:
sub alhim()
   uo.WaitTargetObject( "0x4ACA18FD" )
   uo.WaitMenu( 'Select a potion to make', 'Deadly_Poison' )
   uo.UseType( "0x0E9B" )
endsub


Попробуйте сделать выводы.
Author:  Cat [ 2007-12-12 08:51:10 ]
Post subject:  Re: первый раз пишу скрипт, подскажите
Destruction wrote:
Cat wrote:
sub alhim()
UO.usetype(0x0E9B) \ тыкаем на пестик появляется прицел
UO.Exec("waittargetobject 0x4ACA18FD") \ выбираем реагент NightShade, не знаю как зделать по типу
UO.WaitMenu('Deadly_Poison') \ и нифига не выбирается говорит 4то надо promt, указываю( Select a potion to make) выдает ошибку
end sub

Тоже самое, но без грамматических ошибок:
Code:
sub alhim()
   uo.WaitTargetObject( "0x4ACA18FD" )
   uo.WaitMenu( 'Select a potion to make', 'Deadly_Poison' )
   uo.UseType( "0x0E9B" )
endsub


Попробуйте сделать выводы.


Спасибо дело пошло :)
Но не могу не где найти 4то нужно прописать 4тоб он дедлал тотлы пока не закончаться реагенты?
Author:  Cat [ 2007-12-12 09:06:33 ]
Post subject: 
И вот такой вот вопрос еще, на моем шарде нельзя слишком много предметов иметь у себя в бек паке ограничение 100
как сделать 4тоб выкидывать готовые бутылки в сундук? 4его то он не хо4ет с такой вставкой это делать :(

VAR FullBottle = '0x0F0C' \\ Тип дедла
VAR Sunduk = '0x4016E8B3' \\ Сериал сундука

if UO.Count( FullBottle ) > 0 then \\ Сгружаем полные бутылки
UO.FindType( FullBottle, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
end if
Author:  Destruction [ 2007-12-12 10:18:08 ]
Post subject: 
1. Обратите внимание на третий аргумент FindType и попробуйте явно указать, где нужно вести поиск.

2. Посмотрите мой первый ответ ещё раз и попробуйте сделать вывод насчёт кавычек. Если вкратце - все функции которые возможно использовать из "командной строки" - корректно понимают только строковые аргументы.

3. Смотрите в сторону циклов. Например while <условие> крафтим wend, т.е. конкретно:
Code:
while uo.count( "0x0000" )
 ; some code
wend


4. Что будет с вашей мувилкой, если сервак лаганёт секунды на три? - Незнаете? - Я тоже. Что делать? - checklag.
Author:  Cat [ 2007-12-12 14:51:28 ]
Post subject: 
Ну все тотлы варит и пустой выкидывает
С циклом так полу4ается или нет? а то он мне 4е то сразу же УО крашит.

Sub alhim()
VAR FullBottle = '0x0F0A'
VAR Sunduk = '0x4AC45FF7'
#While
uo.WaitTargetObject( "0x4ACA18FD" )
uo.WaitMenu( 'Select a potion to make', 'Deadly_Poison' )
uo.UseType( "0x0E9B" )
if UO.Count( FullBottle ) > 0 then
UO.FindType( FullBottle, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
end if
#Wend
endsub
Author:  Destruction [ 2007-12-12 15:17:31 ]
Post subject: 
1. Нужна пауза после крафта.
2. while true например.
Author:  ZeroDX [ 2007-12-15 01:29:42 ]
Post subject: 
Где-то так надо =)

Code:
sub alhim()
 Var FullBottle = '0x0F0A'
 Var Sunduk = '0x4AC45FF7'
 Var Message1 = 'You put'
 Var Message2 = 'fail'
  While true
    UO.WaitTargetObject( "0x4ACA18FD" )
    UO.WaitMenu( 'Select a potion to make', 'Deadly_Poison' )
    UO.UseType('0x0E9B')
    UO.DeleteJournal()
    Repeat
       Wait(100)
    Until UO.InJournal(Message1) or UO.InJournal(Message2)
    If UO.Count(FullBottle) > 0 then
      UO.FindType(FullBottle,' -1', 'backpack')
      UO.MoveItem('finditem', '0', Sunduk)
      Wait(1000) 
    EndIf
  Wend
EndSub
Author:  Scripts Writer [ 2007-12-15 13:20:04 ]
Post subject: 
ZeroDX wrote:
Где-то так надо =)

Code:
sub alhim()
 Var FullBottle = '0x0F0A'
 Var Sunduk = '0x4AC45FF7'
 Var Message1 = 'You put'
 Var Message2 = 'fail'
  While true
    UO.WaitTargetObject( "0x4ACA18FD" )
    UO.WaitMenu( 'Select a potion to make', 'Deadly_Poison' )
    UO.UseType('0x0E9B')
    UO.DeleteJournal()
    Repeat
       Wait(100)
    Until UO.InJournal(Message1) or UO.InJournal(Message2)
    If UO.Count(FullBottle) > 0 then
      UO.FindType(FullBottle,' -1', 'backpack')
      UO.MoveItem('finditem', '0', Sunduk)
      Wait(1000) 
    EndIf
  Wend
EndSub


Динамическую в цикл until и лучше еще таймер добавить надо, + добор регов, бутылок, еду
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/