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

СпСп и ЭвалИнт
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7812
Page 1 of 1

Author:  Swite [ 2006-05-30 22:29:50 ]
Post subject:  СпСп и ЭвалИнт

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

Author:  Nmy [ 2006-05-30 22:32:01 ]
Post subject: 

ПОИСК\SEARCH

Author:  Swite [ 2006-05-30 22:45:40 ]
Post subject: 

NMY wrote:


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

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

Author:  omi4 [ 2006-05-30 23:02:20 ]
Post subject: 

Swite wrote:
NMY wrote:


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

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


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

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

Author:  Swite [ 2006-05-31 06:25:06 ]
Post subject: 

omi4 wrote:
Swite wrote:
NMY wrote:


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

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


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

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


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

Author:  Askaneli [ 2006-05-31 07:15:15 ]
Post subject: 

Скрипты от Askaneli

Author:  Nmy [ 2006-05-31 11:13:27 ]
Post subject: 

Оффтоп On

:mrgreen: :mrgreen: :mrgreen:

Оффтоп OFF

Author:  Doktor_Kor [ 2006-05-31 12:21:22 ]
Post subject: 

Askaneli wrote:


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

Code:
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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/