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

Спирит спик
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4566		 Page 1 of 2
Author:  STINGER [ 2005-07-16 14:41:50 ]
Post subject:  Спирит спик
Напишите или дайте скрипт который будет кочать спирит и например армс лорэ одновременно пожалуйста
Author:  flake [ 2005-07-16 16:38:01 ]
Post subject: 
Юзай поиск.
Author:  STINGER [ 2005-07-16 17:42:56 ]
Post subject: 
я искал по поиску не нашол может не правельно что писал скинте скрипт каму не жалко и каму не лень буду очень благодарен
Author:  Leo [ 2005-07-16 17:56:42 ]
Post subject: 
В конец любого скрипта на лор вставляешь
Code:
uo.Useskill('Spirit Speak')
wait(1500)
uo.Useskill('Spirit Speak')
wait(1500)
и всё
Author:  STINGER [ 2005-07-16 17:57:18 ]
Post subject: 
спосибо
Author:  STINGER [ 2005-07-16 18:44:39 ]
Post subject: 
неработает если просто в конце вставить. напишите скрипт пожалуйста скрипт на армс лоре вместе со спиритом
Author:  flake [ 2005-07-17 00:01:49 ]
Post subject: 
Code:
sub ArmsLoreNSpirit()
VAR Obj = ''   ; айдишник обьекта, на который юзаем армслор
Repeat
  UO.UseSkill( 'Arms Lore', Obj )
  UO.Wait(3500)
  UO.Useskill('Spirit Speak') 
  Wait(1500) 
Until UO.Dead()
Author:  STINGER [ 2005-07-17 17:33:37 ]
Post subject: 
не работает пишит что в 5 строке ошибка :/
Author:  flake [ 2005-07-17 19:13:07 ]
Post subject: 
Упс, не UO.Wait() а просто Wait()
Author:  STINGER [ 2005-07-17 20:00:40 ]
Post subject: 
Ок, большое спосибо всё работает
Author:  STINGER [ 2005-07-17 20:01:35 ]
Post subject: 
А вот еще вопрос есть у когонибудь скрипт на тайминг для ДРВ шарда чтоб в дом загнать кошек так 50 штук и штоб он их поочереди таймил всех ?
Author:  STINGER [ 2005-07-18 13:05:09 ]
Post subject: 
У меня тут такая проблема когда у меня ультима дисконектится реконектор её занова запускает а вот скрипт на спирит не хочет работать приходится вручную перезапускать скрипт. Что нужно сделать чтоб скрипт запускался сам ?
Author:  flake [ 2005-07-18 16:39:09 ]
Post subject: 
В реконекторе, в конце процеса реконекта вставь:

Code:
UO.Exec( 'exec ArmsLoreNSpirit' )
Author:  STINGER [ 2005-07-19 11:29:37 ]
Post subject: 
всеравно не работает. надо сделать чтоб вот этот скрипт запускался
sub spirit()
UO.UseSkill('Spirit')
while not UO.Dead()
wait(100)
if UO.InJournal("netherworld") then
UO.DeleteJournal()
UO.UseSkill('Spirit')
endif
wend
Author:  Dard [ 2005-07-19 11:53:58 ]
Post subject: 
Скил то Spirit Speak, а значит:
Code:
UO.Useskill('Spirit Speak')
Author:  flake [ 2005-07-19 12:07:05 ]
Post subject: 
Совсем чукча....
Вместо
Code:
UO.Exec( 'exec ArmsLoreNSpirit' )

Напиши
Code:
UO.Exec( 'exec spirit' )
Author:  STINGER [ 2005-07-19 12:20:19 ]
Post subject: 
я так и писал неработает :(
Author:  STINGER [ 2005-07-19 12:21:32 ]
Post subject: 
вот мой реконектор
Code:
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
Author:  omi4 [ 2005-07-19 14:42:14 ]
Post subject: 
И куда вставил...
Author:  Askaneli [ 2005-07-19 14:44:52 ]
Post subject: 
omi4 wrote:
И куда вставил...

Не видишь что ли ???
Никуда не вставил. Ждёт пока вставят.
Page 1 of 2 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/