Спирит спик

STINGER · Post by **STINGER** » 2005-07-16 14:41:50

Напишите или дайте скрипт который будет кочать спирит и например армс лорэ одновременно пожалуйста

flake · Post by **flake** » 2005-07-16 16:38:01

Юзай поиск.

STINGER · Post by **STINGER** » 2005-07-16 17:42:56

я искал по поиску не нашол может не правельно что писал скинте скрипт каму не жалко и каму не лень буду очень благодарен

Leo · Post by **Leo** » 2005-07-16 17:56:42

В конец любого скрипта на лор вставляешь

Code: Select all

uo.Useskill('Spirit Speak')
wait(1500)
uo.Useskill('Spirit Speak')
wait(1500)

и всё

STINGER · Post by **STINGER** » 2005-07-16 17:57:18

спосибо

STINGER · Post by **STINGER** » 2005-07-16 18:44:39

неработает если просто в конце вставить. напишите скрипт пожалуйста скрипт на армс лоре вместе со спиритом

flake · Post by **flake** » 2005-07-17 00:01:49

Code: Select all

sub ArmsLoreNSpirit()
VAR Obj = ''   ; айдишник обьекта, на который юзаем армслор
Repeat
  UO.UseSkill( 'Arms Lore', Obj )
  UO.Wait(3500)
  UO.Useskill('Spirit Speak') 
  Wait(1500) 
Until UO.Dead()

STINGER · Post by **STINGER** » 2005-07-17 17:33:37

не работает пишит что в 5 строке ошибка :/

flake · Post by **flake** » 2005-07-17 19:13:07

Упс, не UO.Wait() а просто Wait()

STINGER · Post by **STINGER** » 2005-07-17 20:00:40

Ок, большое спосибо всё работает

STINGER · Post by **STINGER** » 2005-07-17 20:01:35

А вот еще вопрос есть у когонибудь скрипт на тайминг для ДРВ шарда чтоб в дом загнать кошек так 50 штук и штоб он их поочереди таймил всех ?

STINGER · Post by **STINGER** » 2005-07-18 13:05:09

У меня тут такая проблема когда у меня ультима дисконектится реконектор её занова запускает а вот скрипт на спирит не хочет работать приходится вручную перезапускать скрипт. Что нужно сделать чтоб скрипт запускался сам ?

flake · Post by **flake** » 2005-07-18 16:39:09

В реконекторе, в конце процеса реконекта вставь:

Code: Select all

UO.Exec( 'exec ArmsLoreNSpirit' )

STINGER · Post by **STINGER** » 2005-07-19 11:29:37

всеравно не работает. надо сделать чтоб вот этот скрипт запускался
sub spirit()
UO.UseSkill('Spirit')
while not UO.Dead()
wait(100)
if UO.InJournal("netherworld") then
UO.DeleteJournal()
UO.UseSkill('Spirit')
endif
wend

Dard · Post by **Dard** » 2005-07-19 11:53:58

Скил то Spirit Speak, а значит:

Code: Select all

UO.Useskill('Spirit Speak')

flake · Post by **flake** » 2005-07-19 12:07:05

Совсем чукча....
Вместо

Code: Select all

UO.Exec( 'exec ArmsLoreNSpirit' )

Напиши

Code: Select all

UO.Exec( 'exec spirit' )

STINGER · Post by **STINGER** » 2005-07-19 12:20:19

я так и писал неработает

STINGER · Post by **STINGER** » 2005-07-19 12:21:32

вот мой реконектор

Code: Select all

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 all') 
;UO.Exec('exec autoload') 
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

omi4 · Post by **omi4** » 2005-07-19 14:42:14

И куда вставил...

Askaneli · Post by **Askaneli** » 2005-07-19 14:44:52

omi4 wrote:И куда вставил...

Не видишь что ли ???
Никуда не вставил. Ждёт пока вставят.