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

mining + spirit
http://forum.yoko.com.ua/viewtopic.php?f=3&t=3721		 Page 1 of 1
Author:  _ALF_ [ 2005-04-18 10:34:36 ]
Post subject:  mining + spirit
Возможно ли загнать прокачку спирит спик в миниг? ну чтоб копал и и одновременно спирит качал ?
Author:  Edred [ 2005-04-18 14:57:54 ]
Post subject: 
А почему нет? У меня так сделано - так как не вкачан только спирит спик фактически. Поэтому засовываю его везде где только можно.

На этом форуме полно моих скриптов, в которых есть специальная функция и блок ее вызова раз в 5 минут. Засунь в свой мининг и не мучайся.
Author:  _ALF_ [ 2005-04-18 19:25:47 ]
Post subject: 
Edred wrote:
в которых есть специальная функция и блок ее вызова раз в 5 минут. Засунь в свой мининг и не мучайся.

Edred ты не мог бы выложить в этот тот эту функцю или ссылку кинуть где посмотреть мона
Author:  Edred [ 2005-04-19 21:31:57 ]
Post subject: 
В начало скрипта ставишь:

Code:
VAR SpiritTime = UO.Timer()


Там где хошь запускать прокачку ставишь:

Code:
If ( UO.Timer() - SpiritTime ) / 600 > 5 Then
   ; Прошло 5 минут с момента последней прокачки Spirit Speak
   SpSpeak()
   SpiritTime = UO.Timer()
Endif


В конец скрипта добавляешь функцию (не забудь проверить, такие ли у тебя на шарде мессаги):

Code:
#####################################################################
; Spirit Speak v.1.00b (c) Edred
;
; Разовая прокачка спирит спика. Предназначена для вызова из других скриптов.
;
sub SpSpeak()
   VAR mod = UO.WarMode(), num
   VAR fizzle = 'You fail your attempt'
   VAR success = 'You establish a connection'
   UO.WarMode( 0 )
   DeleteJournal( success )
   repeat
      DeleteJournal( fizzle )
      UO.UseSkill( 'Spirit Speak' )
      num = 1
      repeat
         wait(100)
         num = num + 1
      until UO.InJournal( fizzle ) OR UO.InJournal( success ) OR num > 600
   until UO.InJournal( success )
   UO.WarMode( mod )
endsub

#####################################################################
Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/