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

Написал изменения в скрипте, не пашет, помогите!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13423		 Page 1 of 1
Author:  BoBBaH [ 2008-03-27 14:07:20 ]
Post subject:  Написал изменения в скрипте, не пашет, помогите!
Играю на ресторе3, у меня скрипт на спарринг, который я взял на форуме, но я еще изменил в нем, чтобы чар брал щит с мечом после отхила, и чтобы если пишет "your dagger is damaged and looks badly damaged" в журнале, то должно переходить на другие части скрипта, которые отхиливают чаров, не берут в руки пуху, меняют сломанный на новый, выкинув старый в первый мешок(по ид), взяв из другого мешка(по ид) новый меч.
Проблема в том, что на сообщение в журнале "your dagger is damaged and looks badly damaged" скрипт никак не реагирует, а просто работает дальше, соответственно не меняет меч, помогите исправить пожалуйста!! Заранее спасибо!

Code:
sub Sparring()    
UO.Exec('warmode 1') 
uo.DeleteJournal() 
uo.DeleteJournal() 
REPEAT 
if uo.InJournal('apply bandages to self') then 
StopWar() 
else 
wait(5000) 
UO.Attack(Enemy) 
end if 
until uo.Life<=MinLife or uo.InJournal(STOP1) or uo.InJournal(STOP2) or uo.InJournal('apply bandages to self') 
StopWar()
if uo.InJournal('your dagger is damaged and looks badly damaged') then # вот на эту строку никакой реакции, хотя она ключевая для меня
Stop()
else 
wait(100)
end if
end sub
Author:  BoBBaH [ 2008-04-18 19:07:30 ]
Post subject: 
Ап!
Author:  Kynep [ 2008-04-18 19:15:57 ]
Post subject: 
BoBBaH wrote:
Ап!


Попробуй так:
Code:
if uo.InJournal('badly damaged')
Author:  BoBBaH [ 2008-04-19 07:57:34 ]
Post subject: 
изменено, не срабатывает...
Author:  Kynep [ 2008-04-19 08:06:24 ]
Post subject: 
BoBBaH wrote:
Я конечно по пробую, но бэдли дамаджед так же может быть и щит, а скрипт все равно будет менять даггеры... Спасибо за ответ если в голову придет еще что из мыслей, буду рад=)


Ну тогда так:
Code:
if uo.InJournal('dagger is damaged')
Author:  BoBBaH [ 2008-04-19 08:19:08 ]
Post subject: 
второе тоже не работает, я думаю мб дело в самой конструкции иф?
предыдущаю строка с Антил прекрастно пашет, но если я вставляю еще антил выдает пассер...
Author:  Kynep [ 2008-04-19 08:52:04 ]
Post subject: 
BoBBaH wrote:
второе тоже не работает, я думаю мб дело в самой конструкции иф?
предыдущаю строка с Антил прекрастно пашет, но если я вставляю еще антил выдает пассер...


А так?
Code:
sub Sparring()    
  UO.Exec('warmode 1') 
  uo.DeleteJournal() 
  uo.DeleteJournal() 
  REPEAT 
    if uo.InJournal('apply bandages to self') then 
      StopWar() 
    else  
      wait(5000) 
      UO.Attack(Enemy) 
    end if 
    if uo.InJournal('your dagger is damaged and looks badly damaged') then # вот на эту строку никакой реакции, хотя она ключевая для меня 
      Stop() 
    else  
      wait(100) 
    end if 
  until uo.Life<=MinLife or uo.InJournal(STOP1) or uo.InJournal(STOP2) or uo.InJournal('apply bandages to self') 
  StopWar() 
end sub
Author:  BoBBaH [ 2008-04-19 09:10:51 ]
Post subject: 
нет не срабатывет :cry:
Author:  BoBBaH [ 2008-04-21 12:02:00 ]
Post subject: 
есть ли еще у кого какие варианты? ну просто очень нужно доделать этот скрипт
Author:  BoBBaH [ 2008-05-03 09:19:43 ]
Post subject: 
Up, ну помогите плз!
Author:  Scripts Writer [ 2008-05-03 13:17:01 ]
Post subject: 
BoBBaH wrote:
Up, ну помогите плз!

Напиши по пунктам что должен делать скрипт,- я тогда мб проще напишу новый чем разбирать ошибки старого
Author:  grundick [ 2008-05-03 14:54:12 ]
Post subject: 
А может StopWar() очищает журнал?
Author:  BoBBaH [ 2008-05-03 20:22:51 ]
Post subject: 
Это не скрипт а часть скрипта, в ней нужна проверка на журнал если появилось про даггер, то переходим на другую часть скрипта... а сам скрипт уже давно известный всеми юзаемый:
Code:
################################################################### 
#                                                                 # 
#                       Sparring  ver. 1.0                        # 
#                                                                 # 
################################################################### 

   VAR Char1='0x00229AEC'      #   ID первого чара 
   VAR Char2='0x002540E0'      #   ID второго чара 
   VAR MinLife=50              #   минимальная жизнь 
    
   VAR TazikType='0x1008'      #   Тип тазика с водой 
   VAR BloodBndg='0x0E20'      #   тип кровавых бинтов 
   
   VAR Svord='0x0F51'          #Тип оружия, используемый вами 
   VAR Sheld='0x1B76'          #Тип щита, используемого вами 

##################################################################    
                                                                 # 
   VAR Enemy, GO, STOP                                           # 
   VAR GO1=  'GOO-1'                                             # 
   VAR GO2=  'GOO-2'                                             # 
   VAR STOP1='STOP-1'                                            # 
   VAR STOP2='STOP-2'                                            # 
                                                                 # 
################################################################## 
sub treee()
UO.AddObject("sunduk") 
While UO.Targeting() 
 Wait(100) 
Wend 

UO.AddObject("sunduk1") 
While UO.Targeting() 
 Wait(100) 
Wend
Start()
end sub



sub Start()
uo.DeleteJournal() 
    if UO.GetSerial('self')==Char1 then 
      Enemy=Char2 
      GO=GO2 
      STOP=STOP2 
    else 
      Enemy=Char1 
      GO=GO1 
      STOP=STOP1 
    endif 
      uo.DeleteJournal() 
      wait(4000) 
While not uo.InJournal(GO1) or not uo.InJournal(GO2) 
      uo.say(GO) 
      wait(3000) 
wend      
IF uo.InJournal('Ready') then 
      wait(3200) 
   Sparring() 
else  
      uo.Say('Ready') 
      wait(5000) 
  Sparring() 
end sub    

sub Sparring()    
  UO.Exec('warmode 1') 
  uo.DeleteJournal() 
  uo.DeleteJournal() 
  REPEAT 
    if uo.InJournal('apply bandages to self') then 
      StopWar() 
    else  
      wait(5000) 
      UO.Attack(Enemy) 
    end if 
    if uo.InJournal('your dagger is damaged and looks badly damaged') then # вот на эту строку никакой реакции, хотя она ключевая для меня 
      Stop() 
    else  
      wait(100) 
    end if 
  until uo.Life<=MinLife or uo.InJournal(STOP1) or uo.InJournal(STOP2) or uo.InJournal('apply bandages to self') 
  StopWar() 
end sub   

sub StopWar()    
IF uo.InJournal(STOP1) or uo.InJournal(STOP2) then 
  UO.Exec("warmode 0") 
  wait(1000) 
  UO.Exec("warmode 0") 
 Heling() 
else 
# While not uo.InJournal('apply bandages to self') 
#    UO.Say(STOP) 
#    UO.Exec("warmode 0") 
#    wait(2000) 
# wend    
     UO.Say(STOP) 
     UO.Exec("warmode 0") 
     wait(2000) 
     UO.Say(STOP) 
     UO.Exec("warmode 0") 
     wait(2000) 
     UO.Say(STOP) 
     UO.Exec("warmode 0") 
     wait(2000) 
     UO.Say(STOP) 
     UO.Exec("warmode 0") 
     wait(1000) 
     UO.Exec("warmode 0") 
     wait(200) 
UO.Say(STOP) 
     UO.Exec("warmode 0") 
     wait(1000) 
     UO.Exec("warmode 0") 
     wait(200) 
end if 
 Heling() 
end sub  

sub Heling()    
         UO.FindType('0x0E21','0x0000','backpack') 
      If UO.GetQuantity('finditem')<50 Then 
         UO.FindType('0x0E20','0x0000','backpack') 
         UO.WaitTargetType(TazikType) 
         UO.UseObject('finditem') 
         wait(1000) 
      Endif 
      while  uo.Life<uo.STR 
        uo.disarm() 
         wait(200) 
         while uo.Life<uo.STR 
            uo.bandageself() 
            wait(3000)
            bgSword()
            UO.Exec("warmode 0") 
         wend 
         wait(2000) 
      wend      
     UO.Exec("warmode 0") 
     wait(200) 
     Start()
end sub

sub bgSword()   ; Одевание щита и оружия 
UO.Equipt('Rhand',Svord)
    wait(150)
UO.Equipt('Lhand',Sheld) 
Endsub 

sub Stop()    
IF uo.InJournal(STOP1) or uo.InJournal(STOP2) then 
  UO.Exec("warmode 0") 
  wait(1000) 
  UO.Exec("warmode 0") 
 Heling() 
else 
# While not uo.InJournal('apply bandages to self') 
#    UO.Say(STOP) 
#    UO.Exec("warmode 0") 
#    wait(2000) 
# wend    
     UO.Say(STOP) 
     UO.Exec("warmode 0") 
     wait(2000) 
     UO.Say(STOP) 
     UO.Exec("warmode 0") 
     wait(2000) 
     UO.Say(STOP) 
     UO.Exec("warmode 0") 
     wait(2000) 
     UO.Say(STOP) 
     UO.Exec("warmode 0") 
     wait(1000) 
     UO.Exec("warmode 0") 
     wait(200) 
UO.Say(STOP) 
     UO.Exec("warmode 0") 
     wait(1000) 
     UO.Exec("warmode 0") 
     wait(200) 
end if 
 Hel() 
end sub  

sub Hel()    
         UO.FindType('0x0E21','0x0000','backpack') 
      If UO.GetQuantity('finditem')<50 Then 
         UO.FindType('0x0E20','0x0000','backpack') 
         UO.WaitTargetType(TazikType) 
         UO.UseObject('finditem') 
         wait(1000) 
      Endif 
      while  uo.Life<uo.STR 
        uo.disarm() 
         wait(200) 
         while uo.Life<uo.STR 
            uo.bandageself() 
            wait(3000)
            UO.Exec("warmode 0") 
         wend 
         wait(2000) 
      wend      
     UO.Exec("warmode 0") 
     wait(200) 
main() 
bgSword()
Start()
end sub

sub main()
UO.FindType(Svord,'-1','backpack') 
If UO.FindCount() > 0 then 
UO.MoveItem('finditem', '0', 'sunduk1')
endif
Wait(1000)
UO.FindType(Svord,'-1','sunduk') 
If UO.FindCount() > 0 then 
UO.MoveItem('finditem', '0', 'backpack')
endif
end sub

Это полная версия того что я бы хотел юзать, но вот в подцикле sub Sparring() не срабатывает функция определения поломки даггера по журналу
Author:  BoBBaH [ 2008-05-03 20:31:23 ]
Post subject: 
Скрипт должен: драться двумя чарами в спарринге, пауза и хилиться по максимуму при остатке определенного кол-ва жизней(указывать в начале скрипта), притом после отхила щит и меч должны одеваться с задержкой, а не стандартной командой инжекта, ибо на сервере установлена задержка на одевание. Далее кушать каждые 20минут, если закончились бинты брать из ящика1(не обязательно), если в журнале появилась надпись "your dagger is damaged and looks badly damaged" чтобы приостанавливался скрипт, после чего оба чара отхиливались до максимума, клали сломанные даггеры в сундук2(только тот у кого появилась такая надпись), брали новый даггер из сундука1. ну и все пожалуй, можно еще добавить замену щита как с даггерами
Author:  BoBBaH [ 2008-05-07 21:00:01 ]
Post subject: 
Ап
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/