Yoko

Posted: **2004-11-26 02:30:37**

проблема в следующем: сейчас в скрипте используетса уход при виде ника.. но некоторые умудряютсав в хайде проходить пить инвизку и парафилд кастовать

. так вот как реализовать уход по трахингу чтоб при этом при все аутоменю и ваит меню непожвисало? или лучше делать через масси на плохии слова и сравнивать журнал?

Posted: **2004-11-26 21:52:24**

uo.useskill('Tracking')
checklag()
wait(300)
if uo.injournal("You see no signs") then
uo.print("никого нету....")

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

теперь проблема в срабатывании при лаге... как ее решить?

Posted: **2004-11-28 00:46:56**

Что то мне подсказывает, что такое не пройдет, ибо чеклаг подтирает журнал.

Posted: **2004-11-28 12:13:33**

1) Если чек лаг и подтирает, то не успеет.
2) Современная версия чек лаг уже не трет весь журнал.

Posted: **2004-11-28 16:12:04**

ну что не будет вариантов решения?

Posted: **2004-11-28 16:16:38**

Code: Select all




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

Posted: **2004-11-28 16:18:34**

но при лагах всеравно наблюдаютса ложные срабатывания ... хотя и редко в чек лаге удалил делет журнал т.к он есть выше него.

Posted: **2004-11-29 08:54:49**

AGRS wrote:2) Современная версия чек лаг уже не трет весь журнал.

на форуме его есть?

Posted: **2004-11-29 13:25:56**

Sfagnum wrote:на форуме его есть?

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

Code: Select all

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

Posted: **2004-11-29 14:32:33**

прикольно...
спасибо

Posted: **2004-11-29 15:51:13**

Code: Select all

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

ИМХО так прикольнее, или напорюсь на какие то камушки?

Posted: **2004-11-29 17:48:10**

Sfagnum wrote:ИМХО так прикольнее, или напорюсь на какие то камушки?

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

Posted: **2004-11-30 17:07:10**

А все-таки так изящнее:

Code: Select all

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

Posted: **2004-11-30 20:04:32**

AGRS wrote:
Sfagnum wrote:ИМХО так прикольнее, или напорюсь на какие то камушки?

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

Чет я х-ню какую то написал. Ни на что не напоришься, все ок.

Posted: **2004-11-30 23:20:49**

AGRS wrote:Чет я х-ню какую то написал. Ни на что не напоришься, все ок.

я так и подумал

Yoko

уход от плееров по трахингу

уход от плееров по трахингу