Spirit Speak

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Irbis
Posts: 6
Joined: 2004-12-08 15:06:47
Location: DRW

Spirit Speak

Post by Irbis »

Помогите! При использовании скрипта выдает ошибку "Функшн нот фоунд - 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

Заранее спасибо.
AlexeyVorotnikov
Junior Expert
Posts: 138
Joined: 2004-09-18 15:12:06

Re: Spirit Speak

Post by AlexeyVorotnikov »

Irbis wrote:Помогите! При использовании скрипта выдает ошибку "Функшн нот фоунд - ABS". ПОдскажите, где исправить?


Функции abs нет в стандартной поставке инжекта. Её необходимо написать самому. Например, так:

Code: Select all

sub abs(a) 
  if a < 0 then
    return -a
  else
    return a
  endif
end sub
Oymal
Posts: 14
Joined: 2004-12-08 12:04:36
Contact:

Post by Oymal »

А куда это всунуть?
maximka4
Posts: 147
Joined: 2004-10-13 15:08:08

Post by maximka4 »

Oymal wrote:А куда это всунуть?
sub main()
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
fr33s
Posts: 28
Joined: 2004-12-27 17:03:45
Location: Kyiv. UA.
Contact:

Post by fr33s »

А есть в инже какая-то команда типа "send *нажатие клавиши*" ?
ИМХО спирит легче юзать через юзскилл спирит спик )
Благодарю, Вы мне очень помогли =)
666Man666
Junior Expert
Posts: 474
Joined: 2004-11-13 00:43:55
Location: Киберзадроцк
Contact:

Post by 666Man666 »

fr33s wrote:А есть в инже какая-то команда типа "send *нажатие клавиши*" ?
ИМХО спирит легче юзать через юзскилл спирит спик )

uo.press() вроде... тока зачем тибе это?
kuviCk
Posts: 127
Joined: 2004-09-08 13:09:13
Contact:

Re: Spirit Speak

Post by kuviCk »

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
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Re: Spirit Speak

Post by Edred »

Cooler! wrote:Нах те такой скрипт то вот просто и не нада париться !!

Code: Select all

sub SpiritSpeak()
repeat
uo.UseSkill('Spirit Speak')
wait(5000)
until uo.Dead()
end sub


То есть если физл коннекта, он все равно будет ждать 5 минут прежде чем снова попытаться... Мда уж, так ты много накачаешь...
Post Reply