Yoko

Code: Select all

sub lol()
var x=0
repeat
x = x+1
UO.msg("Я лоль")
until x==10
end sub

Code: Select all

sub lol()
var x=0
repeat
x = x+1
UO.msg("Я лоль")
until x==10
wait(1000)
end sub

Code: Select all

#####################################################################
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