Yoko

Posted: **2005-07-16 14:41:50**

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

Posted: **2005-07-16 16:38:01**

Юзай поиск.

Posted: **2005-07-16 17:42:56**

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

Posted: **2005-07-16 17:56:42**

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

Code: Select all

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

и всё

Posted: **2005-07-16 17:57:18**

спосибо

Posted: **2005-07-16 18:44:39**

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

Posted: **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()

Posted: **2005-07-17 17:33:37**

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

Posted: **2005-07-17 19:13:07**

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

Posted: **2005-07-17 20:00:40**

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

Posted: **2005-07-17 20:01:35**

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

Posted: **2005-07-18 13:05:09**

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

Posted: **2005-07-18 16:39:09**

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

Code: Select all

UO.Exec( 'exec ArmsLoreNSpirit' )

Posted: **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

Posted: **2005-07-19 11:53:58**

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

Code: Select all

UO.Useskill('Spirit Speak')

Posted: **2005-07-19 12:07:05**

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

Code: Select all

UO.Exec( 'exec ArmsLoreNSpirit' )

Напиши

Code: Select all

UO.Exec( 'exec spirit' )

Posted: **2005-07-19 12:20:19**

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

Posted: **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

Posted: **2005-07-19 14:42:14**

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

Posted: **2005-07-19 14:44:52**

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

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

Yoko

Спирит спик

Спирит спик