Yoko

All sides of Injection
https://yoko.uokit.com/

camping(DRW)

https://yoko.uokit.com/viewtopic.php?t=2404

Page 1 of 2

camping(DRW)

Posted: 2004-12-29 18:02:54
by maximka4
у меня такой вопрос ,как узнать номера рун в скрипте который будет ниже(играю на дрв), и еще не могли бы добавить реколл по рунбуке если не льзя узнать номера рун, я оченб вас прошу.

Code: Select all

sub main()
sub camping() 
   DIM Regs[3] 
   Regs[0] = '0x0F7A'         ; Black Pearl 
   Regs[1] = '0x0F7B'         ; Bood Moss 
   Regs[2] = '0x0F86'         ; Mandrake Root 
   VAR Hvorost = '0x0DE1' 
   VAR flag, myx, myy, myz, fin, i 
   VAR FinalX = 1626 
   VAR Sunduk = '0x4024AD4D' 
   VAR RuneToBase = '20' 
   VAR RuneToFire = '30' 
   ; 
   ; Стартуем стоя в начале пути. 
;      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) ) 
   UO.Exec( 'set finddistance 3' ) 
   While UO.SkillVal( 'Camping' ) < 1000 
      fin = 0 
      UO.UseSkill( 'Meditation' ) 
      UO.FindType ( Hvorost ) 
      While ( UO.FindCount() > 0 ) AND ( fin == 0 ) 
         myx = UO.GetX() 
         myy = UO.GetY() 
         myz = UO.GetZ() 
         UO.MoveItem('finditem', '1', 'ground', str(myx-1), str(myy), str(myz)) 
         wait(1000) 
         CheckLag() 
         UO.FindType ( Hvorost ) 
         UO.MoveItem('finditem', '1', 'ground', str(myx), str(myy+1), str(myz)) 
         wait(1000) 
         CheckLag() 
         UO.FindType ( Hvorost ) 
         UO.MoveItem('finditem', '1', 'ground', str(myx), str(myy-1), str(myz)) 
         wait(1000) 
         CheckLag() 
         UO.Findtype( Hvorost, -1, 1 ) 
         While UO.FindCount() > 0 AND NOT UO.InJournal( "You can't ignite several" ) 
            repeat 
               flag = 1 
               DeleteJournal( "You fail to ignite" ) 
               DeleteJournal( "You can't ignite several" ) 
               DeleteJournal( "You must wait" ) 
               UO.UseFromGround( Hvorost ) 
               wait(1000) 
               CheckLag() 
               If UO.InJournal( "You must wait" ) OR UO.InJournal( "You fail to ignite" ) Then 
                  flag = 0 
                  wait(1000) 
               Endif 
               If UO.InJournal( "You can't ignite several" ) Then 
                  UO.FindType( Hvorost, -1, 1 ) 
                  While UO.FindCount() > 0 
                     If UO.GetQuantity( 'finditem' ) > 1 Then 
                        UO.Grab( str( UO.GetQuantity( 'finditem' ) - 1 ), 'finditem' ) 
                        wait(1000) 
                        CheckLag() 
                     Endif 
                     UO.Ignore( 'finditem' ) 
                     UO.FindType( Hvorost, -1, 1 ) 
                  Wend 
                  UO.IgnoreReset() 
               Endif 
            until flag 
            UO.Findtype( Hvorost, -1, 1 ) 
         Wend 
         While ( UO.GetX() < myx + 1 ) AND ( fin == 0 ) 
            UO.Press( 34 ) 
            wait(300) 
            CheckLag() 
            If UO.GetX() == FinalX Then 
               fin = 1 
            Endif 
         Wend 
         UO.FindType ( Hvorost ) 
      Wend 
      ; достигли конца маршрута или кончился хворост 
      Recalling( 'CommonRunbook', RuneToBase ) 
      UO.UseObject( Sunduk ) 
      wait(1000) 
      CheckLag() 
      for i = 0 To 2 
         If UO.Count( Regs[i] ) < 6 Then 
            ; этого рега меньше 6 
            UO.FindType( Regs[i], '-1', Sunduk ) 
            UO.Grab( str( 6 - UO.Count( Regs[i] ) ), 'finditem' ) 
            Wait( 1000 ) 
            CheckLag() 
         Endif 
      next 
      If UO.Count( Hvorost ) < 200 Then 
         ; хвороста меньше 200 
         UO.FindType( Hvorost, '-1', Sunduk ) 
         UO.Grab( str( 200 - UO.Count( Hvorost ) ), 'finditem' ) 
         Wait( 1000 ) 
         CheckLag() 
      Endif 
;      EatChar( Sunduk, 2, 1, 60 ) 
      Recalling( 'CommonRunbook', RuneToFire ) 
   Wend 
endsub 

##################################################################### 
Sub CheckLag() 
   DeleteJournal( 'backpack' ) 
   UO.Click( 'backpack' ) 
   repeat 
      wait(100) 
   until UO.InJournal( 'backpack' ) 
   return 
end sub 

##################################################################### 
Sub DeleteJournal( string1 ) 
   VAR nom = UO.InJournal( string1 ) 
   If nom > 0 Then 
      UO.SetJournalLine( Nom - 1, 'string replaced' ) 
      DeleteJournal( string1 ) 
   Endif 
endsub 

##################################################################### 
Sub Recalling( Runbk, NRune ) 
   ; Runbk - сериал или ссылка на объект рунбуки 
   ; NRune - десятичный номер (текстом) руны для реколла 
   VAR myx = UO.GetX() 
   VAR myy = UO.GetY() 
   VAR OldMana = UO.Mana 
   VAR i = 0 
   DeleteJournal( 'fizzles' ) 
   UO.Exec("recall " + Runbk + " " + NRune) 
   repeat 
      CheckLag() 
      wait(1000) 
      i = i + 1 
   until ( i > 6 ) OR ( UO.Mana < OldMana - 8 ) OR UO.InJournal( 'fizzles' ) 
   wait(500) 
   If myx == UO.GetX() AND myy == UO.GetY() Then 
      UO.WarMode( 'flip' ) 
      wait(100) 
      UO.WarMode( 'flip' ) 
      Recalling( Runbk, NRune ) 
   Endif 
endsub

Posted: 2004-12-30 09:59:53
by maximka4
UP PAGE

Posted: 2004-12-30 12:44:36
by maximka4
uuuuuuuuuuuuuuupppppp

Posted: 2004-12-30 13:09:28
by BETEPAH
прочти внемательно скрипты и клуб ....там тема рун расписана и даны ссылки на темы

Posted: 2004-12-30 19:34:43
by maximka4
BETEPAH wrote:прочти внемательно скрипты и клуб ....там тема рун расписана и даны ссылки на темы


да у меня лада какая то получается ваще, ну вот скрипт по рунбуке тока у меня ошибка вылетает,типа ошибка во второй строке да короче хер знает ничего в башку не лезет,все облазил все вскрипты какие то кривые(не обижайтесь).можно ли выдрать скрипт на реколл по рунбуке из твoего скрипта на лубмер?

Code: Select all

sub main()
sub Recall(0x4017DCC9, 21)                             
      UO.Set('norbcheck','1') 
      UO.Set('norbcalc','1') 
      UO.Recall(RuneBookId,'60'+STR(Rune))

Posted: 2004-12-30 19:49:22
by Errorr
Я тут как-то качал кемпинг, взял тоже скрипт из раздела скриптов, и заменил систему рекола на систему из скрипта ВЕТЕРАНА на ламбер, вроде все ок работает. Тока перед использованием надо ввести ,addobject Runebook и прицел на рунбук и все, реколимся в место прокачки и запускаем скрипт.

Тока я конечно не особо шарю в скриптах, и поэтому в нем такая фигня, если хворост заканчивается скрипт не отключается, хз почему и еще в самом скрипте вроде лишнее есть из старой системы рекола, но сам по себе скрипт работает реколится берет разлаживает и т.д..

Code: Select all

sub camping() 
   DIM Regs[3] 
   Regs[0] = '0x0F7A'         ; Black Pearl 
   Regs[1] = '0x0F7B'         ; Bood Moss 
   Regs[2] = '0x0F86'         ; Mandrake Root 
   VAR Hvorost = '0x0DE1' 
   VAR flag, myx, myy, myz, fin, i 
   VAR FinalX = 6125 
   VAR Sunduk = '0x4020A09A' 
   var RuneToForest=2 ## - Руна в место прокачки##
   var RuneToHome=1 ## - Руна домой ##
   ; 
   ; Стартуем стоя в начале пути. 
;      UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) ) 
   UO.Exec( 'set finddistance 3' ) 
   While UO.SkillVal( 'Camping' ) < 1000 
      fin = 0 
      UO.UseSkill( 'Meditation' ) 
      UO.FindType ( Hvorost ) 
      While ( UO.FindCount() > 0 ) AND ( fin == 0 ) 
         myx = UO.GetX() 
         myy = UO.GetY() 
         myz = UO.GetZ() 
         UO.MoveItem('finditem', '1', 'ground', str(myx-1), str(myy), str(myz)) 
         wait(1000) 
         CheckLag() 
         UO.FindType ( Hvorost ) 
         UO.MoveItem('finditem', '1', 'ground', str(myx), str(myy+1), str(myz)) 
         wait(1000) 
         CheckLag() 
         UO.FindType ( Hvorost ) 
         UO.MoveItem('finditem', '1', 'ground', str(myx), str(myy-1), str(myz)) 
         wait(1000) 
         CheckLag() 
         UO.Findtype( Hvorost, -1, 1 ) 
         While UO.FindCount() > 0 AND NOT UO.InJournal( "You can't ignite several" ) 
            repeat 
               flag = 1 
               DeleteJournal( "You fail to ignite" ) 
               DeleteJournal( "You can't ignite several" ) 
               DeleteJournal( "You must wait" ) 
               UO.UseFromGround( Hvorost ) 
               wait(1000) 
               CheckLag() 
               If UO.InJournal( "You must wait" ) OR UO.InJournal( "You fail to ignite" ) Then 
                  flag = 0 
                  wait(1000) 
               Endif 
               If UO.InJournal( "You can't ignite several" ) Then 
                  UO.FindType( Hvorost, -1, 1 ) 
                  While UO.FindCount() > 0 
                     If UO.GetQuantity( 'finditem' ) > 1 Then 
                        UO.Grab( str( UO.GetQuantity( 'finditem' ) - 1 ), 'finditem' ) 
                        wait(1000) 
                        CheckLag() 
                     Endif 
                     UO.Ignore( 'finditem' ) 
                     UO.FindType( Hvorost, -1, 1 ) 
                  Wend 
                  UO.IgnoreReset() 
               Endif 
            until flag 
            UO.Findtype( Hvorost, -1, 1 ) 
         Wend 
         While ( UO.GetX() < myx + 1 ) AND ( fin == 0 ) 
            UO.Press( 34 ) 
            wait(300) 
            CheckLag() 
            If UO.GetX() == FinalX Then 
               fin = 1 
            Endif 
         Wend 
         UO.FindType ( Hvorost ) 
      Wend 
      ; достигли конца маршрута или кончился хворост 

uo.Print('npbIraem house') 
RuneBookRecall(RuneToHome) 

      UO.UseObject( Sunduk ) 
      wait(1000) 
      CheckLag() 
      for i = 0 To 2 
         If UO.Count( Regs[i] ) < 6 Then 
            ; этого рега меньше 6 
            UO.FindType( Regs[i], '-1', Sunduk ) 
            UO.Grab( str( 6 - UO.Count( Regs[i] ) ), 'finditem' ) 
            Wait( 1000 ) 
            CheckLag() 
         Endif 
      next 
      If UO.Count( Hvorost ) < 200 Then 
         ; хвороста меньше 200 
         UO.FindType( Hvorost, '-1', Sunduk ) 
         UO.Grab( str( 200 - UO.Count( Hvorost ) ), 'finditem' ) 
         Wait( 1000 ) 
         CheckLag() 
      Endif 
;      EatChar( Sunduk, 2, 1, 60 ) 

       uo.Print('npbIraem B mecTo npokacku') 
       RuneBookRecall(RuneToForest) 

   Wend 
endsub 

##################################################################### 
Sub CheckLag() 
   DeleteJournal( 'backpack' ) 
   UO.Click( 'backpack' ) 
   repeat 
      wait(100) 
   until UO.InJournal( 'backpack' ) 
   return 
end sub 

##################################################################### 
Sub DeleteJournal( string1 ) 
   VAR nom = UO.InJournal( string1 ) 
   If nom > 0 Then 
      UO.SetJournalLine( Nom - 1, 'string replaced' ) 
      DeleteJournal( string1 ) 
   Endif 
endsub 

##################################################################### 
sub RuneBookRecall(n) 
var OldX=uo.GetX() 
var OldY=uo.GetY() 
var Time 
repeat 
uo.Exec('warmode 0') 
uo.UseObject('Runebook') 
CheckLag() 
uo.Lclick(135, n*15+55)  
CheckLag() 
Time=uo.Timer() 
repeat 
wait(500) 
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs') or uo.InJournal('fizzles') or Time+200<uo.Timer() 
uo.DeleteJournal() 
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs') 
end sub

Posted: 2004-12-30 21:56:52
by maximka4
БИГ РЕСПЕКТ !!!!!!!!!!!!! TO YOKO ЭТОТ СКРИПТ НУЖНО ЗАНЕСТИ В ТОПИК СКРИПТЫ!!!

Posted: 2005-01-01 13:40:54
by maximka4
странно как только сейчас егозапускаю он сразу выключается,ничего не пойму вроде нормаьно работал.кто поможет мне?ну или обьясните пожалуста что там намудрено?

Posted: 2005-01-01 22:10:49
by maximka4
ну ответте ктонибуть, что бухие что ли все после нового года?)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))

Posted: 2005-01-02 02:06:10
by Edred
Errorr wrote:Я тут как-то качал кемпинг, взял тоже скрипт из раздела скриптов, и заменил систему рекола на систему из скрипта ВЕТЕРАНА на ламбер, вроде все ок работает. Тока перед использованием надо ввести ,addobject Runebook и прицел на рунбук и все, реколимся в место прокачки и запускаем скрипт.

Тока я конечно не особо шарю в скриптах, и поэтому в нем такая фигня, если хворост заканчивается скрипт не отключается, хз почему и еще в самом скрипте вроде лишнее есть из старой системы рекола, но сам по себе скрипт работает реколится берет разлаживает и т.д..


А чем тебе моя система реколла-то не приглянулась? Я на ней летаю уже полгода во всех скриптах, проблем никогда не было. :evil:

Posted: 2005-01-02 02:07:52
by Edred
maximka4 wrote:странно как только сейчас егозапускаю он сразу выключается,ничего не пойму вроде нормаьно работал.кто поможет мне?ну или обьясните пожалуста что там намудрено?


тот кто его покусал - отрубил все начальные комментарии что и как делать. Посему пусть сам отвечает. Или иди в раздел Scripts! там есть мой оригинальный, на котором я вкачал кемпинг с 30 до 100 и благополучно забыл о нем :)

Posted: 2005-01-02 10:38:29
by maximka4
Edred wrote:
maximka4 wrote:странно как только сейчас егозапускаю он сразу выключается,ничего не пойму вроде нормаьно работал.кто поможет мне?ну или обьясните пожалуста что там намудрено?


тот кто его покусал - отрубил все начальные комментарии что и как делать. Посему пусть сам отвечает. Или иди в раздел Scripts! там есть мой оригинальный, на котором я вкачал кемпинг с 30 до 100 и благополучно забыл о нем :)

ну ебт ты на drw качал кампинг???!!!

Posted: 2005-01-02 10:52:31
by maximka4
Edred wrote:тот кто его покусал - отрубил все начальные комментарии что и как делать. Посему пусть сам отвечает. Или иди в раздел Scripts! там есть мой оригинальный, на котором я вкачал кемпинг с 30 до 100 и благополучно забыл о нем :)
втом и дело что даже теперь и твой оригинальный скрипт отключается! я не пойму от чего то твой отключяется?

Posted: 2005-01-02 12:30:29
by Edred
maximka4 wrote:
Edred wrote:тот кто его покусал - отрубил все начальные комментарии что и как делать. Посему пусть сам отвечает. Или иди в раздел Scripts! там есть мой оригинальный, на котором я вкачал кемпинг с 30 до 100 и благополучно забыл о нем :)
втом и дело что даже теперь и твой оригинальный скрипт отключается! я не пойму от чего то твой отключяется?


Телепаты в отпуске, (с) не помню чей. Что значит отключается? Ты все настроил как написано в комментариях в начале? Что говорит? Что делает? Что не делает?

Posted: 2005-01-02 16:14:31
by maximka4
такая тема настроил я его нармально до этого работал,дня 2 поработал а потом включаю я его а он отключяется сразу ,ничего не пишет ,не говарит! я уже инжу переустановил, хз в че проблема. :D

Posted: 2005-01-03 03:38:05
by Edred
TWI включен?

Posted: 2005-01-03 09:15:09
by Sfagnum
Edred wrote:Телепаты в отпуске, (с) не помню чей.
(c) Лох Позорный ;)

Posted: 2005-01-03 11:30:04
by maximka4
Edred wrote:TWI включен?
включен, Я ща заметил что когда я его включаю пишет FINDDIST=3 И сразу выключается.

Posted: 2005-01-03 11:31:57
by Sfagnum
maximka4 wrote:
Edred wrote:TWI включен?
включен, Я ща заметил что когда я его включаю пишет FINDDIST=3 И сразу выключается.
это устанавливается радиус в котором он будет искать кучки с хворостом, так и надо по задумке.

Posted: 2005-01-03 12:43:10
by maximka4
Sfagnum wrote:
maximka4 wrote:
Edred wrote:TWI включен?
включен, Я ща заметил что когда я его включаю пишет FINDDIST=3 И сразу выключается.
это устанавливается радиус в котором он будет искать кучки с хворостом, так и надо по задумке.
СТРАННО ничего не понимаю не с того не с сего вдруг выключается.
All times are UTC+02:00
Page 1 of 2

Powered by phpBB® Forum Software © phpBB Limited