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

уход от плееров по трахингу
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2066		 Page 1 of 1
Author:  zenter [ 2004-11-26 02:30:37 ]
Post subject:  уход от плееров по трахингу
проблема в следующем: сейчас в скрипте используетса уход при виде ника.. но некоторые умудряютсав в хайде проходить пить инвизку и парафилд кастовать :) . так вот как реализовать уход по трахингу чтоб при этом при все аутоменю и ваит меню непожвисало? или лучше делать через масси на плохии слова и сравнивать журнал? :)
Author:  zenter [ 2004-11-26 21:52:24 ]
Post subject: 
uo.useskill('Tracking')
checklag()
wait(300)
if uo.injournal("You see no signs") then
uo.print("никого нету....")

else
uo.print("пропалили...")
Save()
endif

теперь проблема в срабатывании при лаге... как ее решить?
Author:  Daioh [ 2004-11-28 00:46:56 ]
Post subject: 
Что то мне подсказывает, что такое не пройдет, ибо чеклаг подтирает журнал.
Author:  AGRS [ 2004-11-28 12:13:33 ]
Post subject: 
1) Если чек лаг и подтирает, то не успеет.
2) Современная версия чек лаг уже не трет весь журнал.
Author:  zenter [ 2004-11-28 16:12:04 ]
Post subject: 
ну что не будет вариантов решения?
Author:  zenter [ 2004-11-28 16:16:38 ]
Post subject: 
Code:



h = h + 1   
   if h > 11 then

   h = 1
   uo.useskill('Tracking')   
   wait(50)
   uo.useskill('Tracking')   
   checklag()
   wait(500)
   if uo.injournal("You see no signs") then
   uo.print("никого нету....")
   
   else
        uo.print("êòî åñòüâ ïðåäåëàõ âèäèìîñòè òðàõà...")
      Save() 
      
   endif
   endif



sub CheckLag() 
UO.Click('backpack') 
var c
c = 1
repeat 
wait(100) 
c = c + 1
until UO.InJournal('backpack') or c > 30 
end sub
Author:  zenter [ 2004-11-28 16:18:34 ]
Post subject: 
но при лагах всеравно наблюдаютса ложные срабатывания ... хотя и редко в чек лаге удалил делет журнал т.к он есть выше него.
Author:  Sfagnum [ 2004-11-29 08:54:49 ]
Post subject: 
AGRS wrote:
2) Современная версия чек лаг уже не трет весь журнал.
на форуме его есть?
Author:  AGRS [ 2004-11-29 13:25:56 ]
Post subject: 
Sfagnum wrote:
на форуме его есть?


А х... его знает. Теперь точно есть. )))

Code:
SUB CheckLag() ; 411.21
  DeleteJournal("backpack") 
  UO.Click('backpack') 
  Repeat 
    Wait(LoopTime) 
  Until UO.InJournal("backpack") 
END SUB

SUB DeleteJournal(MsgText) ; 411.21
  Var MsgNumb
  Repeat 
    MsgNumb=UO.InJournal(MsgText)
    If MsgNumb<>0 Then
      UO.SetJournalLine(MsgNumb-1, '')
    EndIf
  Until Not UO.InJournal(MsgText)
END SUB


LoopTime примерно 50 - 150
Author:  Sfagnum [ 2004-11-29 14:32:33 ]
Post subject: 
прикольно...
спасибо
Author:  Sfagnum [ 2004-11-29 15:51:13 ]
Post subject: 
Code:
SUB CheckLag() ; 411.21
  DeleteJournal("backpack") 
  UO.Click('backpack') 
  Repeat 
    Wait(LoopTime) 
  Until UO.InJournal("backpack") 
END SUB

SUB DeleteJournal(MsgText) ; 411.21
Var MsgNumb=UO.InJournal(MsgText)
  while MsgNumb > 0    
    UO.SetJournalLine(MsgNumb-1, '')    
    MsgNumb=UO.InJournal(MsgText)
  wend
END SUB
ИМХО так прикольнее, или напорюсь на какие то камушки?
Author:  AGRS [ 2004-11-29 17:48:10 ]
Post subject: 
Sfagnum wrote:
ИМХО так прикольнее, или напорюсь на какие то камушки?


Напоришься если вдруг будет размер журнала инжекта увеличен.
Author:  Edred [ 2004-11-30 17:07:10 ]
Post subject: 
А все-таки так изящнее:

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


;)
Author:  AGRS [ 2004-11-30 20:04:32 ]
Post subject: 
AGRS wrote:
Sfagnum wrote:
ИМХО так прикольнее, или напорюсь на какие то камушки?


Напоришься если вдруг будет размер журнала инжекта увеличен.


Чет я х-ню какую то написал. Ни на что не напоришься, все ок. :)
Author:  Sfagnum [ 2004-11-30 23:20:49 ]
Post subject: 
AGRS wrote:
Чет я х-ню какую то написал. Ни на что не напоришься, все ок. :)
я так и подумал ;)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/