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

Скрипты
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2581		 Page 1 of 1
Author:  xalat_ [ 2005-01-11 21:50:09 ]
Post subject:  Скрипты
Как нащёт таво штоби сюда кидать все свои скрипти если вы меня подержите буду благодарен :)
Author:  666Man666 [ 2005-01-11 22:34:51 ]
Post subject: 
Вот тибе хороший скрипт на самотренинг, тренируйся пока лолинг не будет ГМ )))
Code:
sub lol()
var x=0
repeat
x = x+1
UO.msg("Я лоль")
until x==10
end sub
Author:  Optical [ 2005-01-12 00:17:39 ]
Post subject: 
Code:
sub lol()
var x=0
repeat
x = x+1
UO.msg("Я лоль")
until x==10
wait(1000)
end sub

вот так правельнее =))) задержку забыл поставить
Author:  Edred [ 2005-01-12 00:34:14 ]
Post subject: 
Вот скрипт на котором у меня периодически стоит ночами чар:

Code:
#####################################################################
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 )
   DeleteJournal( success )
   repeat
      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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/