Yoko

Помогите со скриптом - мне нужен 2 в 1ом - Спирит Спик и Эвалюшн Интелигенс. Если есть такая тема - дайте ссылочку. Лично я ее не нашел.
Заранее Спс.

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

Я еще раз повторюсь - я не нашел этот скрипт. Если не сложно, то дай прямую ссылку или как писать в поисковике. Если сам не знаешь, то не флуди!

П.С. - Все еще ищу этот скрипт...

топы прикрепленные в самом верху
специально для тех кто поиск не смог одолеть...

http://forum.yoko.com.ua/viewtopic.php?t=2903

Если ты обратишь внимание, то ссылка которая должна вести на СпСп и ЭвелИнт ведет на Детект, а того что мне надо там нет!

_________________
Сделал дело - флуди смело !!!

Оффтоп On



Оффтоп OFF

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

если и тама не нашёл то вот

var obj='0x002FA290' 
sub Evaluate() 
var count=0,i=0 
uo.useobject('backpack') 
UO.Exec('terminate Reconnector') 
wait(1000) 
UO.Exec('exec Reconnector') 
wait(1000) 
i=0 
repeat 
i=i+1 
cheklag()  
UO.Useskill('Evaluating',obj) 
wait(5500) 
if i==8 then 
uo.usetype('0x097B') 
wait(1000) 
i=0 
cheklag()  
uo.useskill ("Spirit Speak") 
uo.deletejournal() 
repeat 
wait(10) 
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.") 
end if 
until UO.Dead() 
end sub 

sub cheklag() 
uo.deletejournal() 
uo.click('backpack') 
repeat 
wait(10) 
until uo.InJournal("backpack") 
end sub 

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
UO.Exec('terminate Evaluate') 
wait(1000) 
UO.Exec('exec Evaluate') 
wait(1000) 
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub