СпСп и ЭвалИнт

Swite · Post by **Swite** » 2006-05-30 22:29:50

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

Nmy · Post by **Nmy** » 2006-05-30 22:32:01

ПОИСК\SEARCH

Swite · Post by **Swite** » 2006-05-30 22:45:40

NMY wrote:ПОИСК\SEARCH

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

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

omi4 · Post by **omi4** » 2006-05-30 23:02:20

Swite wrote:
NMY wrote:ПОИСК\SEARCH
Я еще раз повторюсь - я не нашел этот скрипт. Если не сложно, то дай прямую ссылку или как писать в поисковике. Если сам не знаешь, то не флуди!

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

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

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

Swite · Post by **Swite** » 2006-05-31 06:25:06

omi4 wrote:
Swite wrote:
NMY wrote:ПОИСК\SEARCH
Я еще раз повторюсь - я не нашел этот скрипт. Если не сложно, то дай прямую ссылку или как писать в поисковике. Если сам не знаешь, то не флуди!

П.С. - Все еще ищу этот скрипт...
топы прикрепленные в самом верху
специально для тех кто поиск не смог одолеть...

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

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

Askaneli · Post by **Askaneli** » 2006-05-31 07:15:15

Скрипты от Askaneli

Nmy · Post by **Nmy** » 2006-05-31 11:13:27

Оффтоп On

Оффтоп OFF

Doktor_Kor · Post by **Doktor_Kor** » 2006-05-31 12:21:22

Askaneli wrote:Скрипты от Askaneli

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

Code: Select all

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