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

zenter · Post by **zenter** » 2004-11-26 02:30:37

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

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

zenter · Post by **zenter** » 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

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

Daioh · Post by **Daioh** » 2004-11-28 00:46:56

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

AGRS · Post by **AGRS** » 2004-11-28 12:13:33

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

zenter · Post by **zenter** » 2004-11-28 16:12:04

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

zenter · Post by **zenter** » 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

zenter · Post by **zenter** » 2004-11-28 16:18:34

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

Sfagnum · Post by **Sfagnum** » 2004-11-29 08:54:49

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

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

AGRS · Post by **AGRS** » 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

Sfagnum · Post by **Sfagnum** » 2004-11-29 14:32:33

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

Sfagnum · Post by **Sfagnum** » 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

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

AGRS · Post by **AGRS** » 2004-11-29 17:48:10

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

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

Edred · Post by **Edred** » 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

AGRS · Post by **AGRS** » 2004-11-30 20:04:32

AGRS wrote:
Sfagnum wrote:ИМХО так прикольнее, или напорюсь на какие то камушки?
Напоришься если вдруг будет размер журнала инжекта увеличен.

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

Sfagnum · Post by **Sfagnum** » 2004-11-30 23:20:49

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

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