Помогите! При использовании скрипта выдает ошибку "Функшн нот фоунд - ABS". ПОдскажите, где исправить?
Хочется, чтобы пытался приконектиться к миру духов, если последний удачный конект был не менее 5 минут назад.
Вот скрипт:
sub SptSpk()
var T1
var T2
T1=uo.Timer()
T2=uo.GetGlobal('spirittimer')
if abs(T1-val(T2))>600 then
uo.SetGlobal('spirittimer',str(T1))
uo.Print('>Spirit Speak.')
uo.UseSkill('Spirit Speak')
wait(3000)
end if
end sub
Заранее спасибо.
Spirit Speak
Moderators: Murderator+, Murderator
-
- Junior Expert
- Posts: 138
- Joined: 2004-09-18 15:12:06
Re: Spirit Speak
Irbis wrote:Помогите! При использовании скрипта выдает ошибку "Функшн нот фоунд - ABS". ПОдскажите, где исправить?
Функции abs нет в стандартной поставке инжекта. Её необходимо написать самому. Например, так:
Code: Select all
sub abs(a)
if a < 0 then
return -a
else
return a
endif
end sub
sub main()Oymal wrote:А куда это всунуть?
sub NechegoDelat()
SpSpeak()
VAR SpiritTime = UO.Timer()
repeat
If ( UO.Timer() - SpiritTime ) / 600 > 5 Then
; Ïðîøëî 5 ìèíóò ñ ìîìåíòà ïîñëåäíåé ïðîêà÷êè Spirit Speak
SpSpeak()
SpiritTime = UO.Timer()
Else
wait(500)
Endif
until UO.Dead()
endsub
; Spirit Speak v.1.00b (c) Edred
;
; Ðàçîâàÿ ïðîêà÷êà ñïèðèò ñïèêà. Ïðåäíàçíà÷åíà äëÿ âûçîâà èç äðóãèõ ñêðèïòîâ.
;
Sub SpSpeak()
VAR mod = UO.WarMode(), num1
VAR fizzle = 'You fail your attempt'
VAR success = 'You establish a connection'
UO.WarMode( 0 )
uo.DeleteJournal()
repeat
uo.DeleteJournal( fizzle )
UO.UseSkill( 'Spirit Speak' )
num1 = 1
repeat
wait(100)
num1 = num1 + 1
until UO.InJournal( fizzle ) OR UO.InJournal( success ) OR num1 > 600
until UO.InJournal( success )
UO.WarMode( mod )
endsub
[code][/code]вот супер скрипт, конектится к духам черезкаждые 5 мин.
maxim viktorovich
Re: Spirit Speak
Irbis wrote:Помогите! При использовании скрипта выдает ошибку "Функшн нот фоунд - ABS". ПОдскажите, где исправить?
Хочется, чтобы пытался приконектиться к миру духов, если последний удачный конект был не менее 5 минут назад.
Вот скрипт:
sub SptSpk()
var T1
var T2
T1=uo.Timer()
T2=uo.GetGlobal('spirittimer')
if abs(T1-val(T2))>600 then
uo.SetGlobal('spirittimer',str(T1))
uo.Print('>Spirit Speak.')
uo.UseSkill('Spirit Speak')
wait(3000)
end if
end sub
Заранее спасибо.
Нах те такой скрипт то вот просто и не нада париться !!
Code: Select all
sub SpiritSpeak()
repeat
uo.UseSkill('Spirit Speak')
wait(5000)
until uo.Dead()
end sub
Re: Spirit Speak
Cooler! wrote:Нах те такой скрипт то вот просто и не нада париться !!Code: Select all
sub SpiritSpeak()
repeat
uo.UseSkill('Spirit Speak')
wait(5000)
until uo.Dead()
end sub
То есть если физл коннекта, он все равно будет ждать 5 минут прежде чем снова попытаться... Мда уж, так ты много накачаешь...