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

Подправьте мини скрипт на рекол от пк
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4229		 Page 1 of 1
Author:  BbIDLO [ 2005-06-14 18:26:12 ]
Post subject:  Подправьте мини скрипт на рекол от пк
Я знаю что даную функцию можно найти в скриптах вроде майнинга, но дело в том что там используеться другой принцип - во всех добывающих скриптах функция использует проверку журнала на красные ники и если их находит то улетает. Я играю на Оскоме и у нас везде в шахтах ввели красных пауков и мне надо чтобы чар реколился в случае если его бьют(уменьшаеться хп, кастуються негативные спеллы и т.д.)

Хотел реализовать это таким образом:

Code:
If uo.warmode() == 1 Then
If UO.Waiting() Then
UO.CancelTarget()
EndIf
uo.showjournal(10)
UO.Exec("usetype inviz")
UO.Exec('warmode 0')
UO.DeleteJournal()
RecallToHome()


Но почемуто даный фрагмент не срабатует :oops: - может кто-нить помочь с такой функцией ? :roll:
Author:  flake [ 2005-06-14 22:25:36 ]
Post subject: 
Code:
If UO.Life < 150 OR UO.InJournal( 'Kal Vas Flam' ) OR UO.InJournal( 'Cor Por' ) Then
...
...
...
End If


Проверка на жизни чара и на каст магии повреждения (ФС и Кор-Пор. Имхо нет смысла вводить проверку на такие вещи как Харм и Лайт: быстее узнаешь о них по изминениям в ХП)
Author:  BbIDLO [ 2005-06-14 22:51:15 ]
Post subject: 
В том то и прикол что на Оскоме чего тока не делают чтобы не дать майнеру улететь, кастуют всё подряд, кидают взрывы и одновременно стреляют с арбаля, бьют найтмаром и кастуют паралайз и т.д. Подскажите реально ли сделать типа как у меня с проверкой на вар режим тока чтобы работало ? :(
Author:  flake [ 2005-06-14 23:13:30 ]
Post subject: 
В твоем случаем майнер будет пытаться улетать только после того, как его уже начнут бить.
А надо улетать как только он находит в поле хрения чужого чара.
Author:  BbIDLO [ 2005-06-15 19:04:19 ]
Post subject: 
Тогда можно ли как-то в проверку на красные ники, добавить ещё чтобы проверяло кому принадлежит этот ник - игроку или нпс ???
Вот скрипт на проверку:


Code:
var jor,ser,noto
for jor = 0 to 9
ser = uo.JournalSerial(jor)
noto = uo.GetNotoriety(ser)
If noto <> 1 and noto <> 0 and noto <> 3  Then
If UO.Waiting() Then
UO.CancelTarget()
EndIf
uo.showjournal(10)
UO.Exec("usetype inviz")
UO.Exec('warmode 0')
UO.DeleteJournal()
RecallToHome()
Author:  flake [ 2005-06-15 19:17:25 ]
Post subject: 
Ищим вокруг себя чаров.
Проверяем их "Красность".
На монстров не будет реагировать, т.к. мы ищим только типы чаров.
Author:  BbIDLO [ 2005-06-16 09:19:05 ]
Post subject: 
так а как искать имено чаров ????? :?
Author:  flake [ 2005-06-16 09:51:00 ]
Post subject: 
Code:
UO.FindType( '0x0190', '-1', 'ground' ) ; искать чаров Мужского типа
UO.FindType( '0x0191', '-1', 'ground' ) ; искать чаров Женского типа
Author:  Edred [ 2005-06-16 22:01:09 ]
Post subject: 
Примерно так делай:

Code:
Sub ControlPK()
; Насчет ПК - будем сканировать вокруг в поисках типов. 
; Если появляется - прерываем копку, начинаем убегать и реколлимся на ходу.
;
   VAR MinDistance = val( UO.GetGlobal('MinEnemyDist') )
   VAR MaxDistance = val( UO.GetGlobal('MaxEnemyDist') )
   VAR PKchar1 = '0x0190'
   VAR PKchar2 = '0x0191'
   VAR PKCount = 0, PKSerial = ''
   VAR PKColor, PKDist, PKDistOld, i
   VAR GoOut = 0
   DIM ExcludeChar[5]
   ExcludeChar[0] = '...'
   ExcludeChar[1] = '...'
   ExcludeChar[2] = '...'
   ExcludeChar[3] = '...'
   ExcludeChar[4] = '...'
   ;
   While NOT UO.Dead()
      UO.Ignore( 'self' )
      repeat
         wait(300)
         UO.FindType( PKchar1, '-1', '1' )
         PKCount = UO.FindCount()
         If PKCount == 0 Then
            UO.FindType( PKchar2, '-1', '1' )
            PKCount = UO.FindCount()
         Endif
         If PKCount > 0 Then
            PKSerial = UO.GetSerial( 'finditem' )
            For i = 0 to 5
               If PKSerial == ExcludeChar[i] Then
                  UO.Ignore( 'finditem' )
                  PKCount = 0
               Endif
            Next
         Endif
      until PKCount > 0
      ; Нашли!
      PKDistOld = 15
      PKColor = UO.GetNotoriety( PKSerial )
      WriteLog( 'I found another char. Serial = ' + PKSerial + ', Notoriety = ' + str(PKColor), 0 )
............................................
[действия по обнаружении другого чара слопала цензура]
............................................
Author:  BbIDLO [ 2005-06-17 00:26:27 ]
Post subject: 
спасибо
завтро с этого буду лепить под себя функцию :shock:
Author:  flake [ 2005-06-17 12:12:56 ]
Post subject: 
Чтоб она подавилась, эта цензура :evil:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/