Yoko

All sides of Injection
It is currently 2026-02-22 14:40:21

All times are UTC+02:00




Post new topic  Reply to topic  [ 4 posts ] 
Author Message
 Post subject: mining + spirit
PostPosted: 2005-04-18 10:34:36 
Offline
User avatar

Joined: 2005-04-16 17:40:14
Posts: 24
Возможно ли загнать прокачку спирит спик в миниг? ну чтоб копал и и одновременно спирит качал ?


Top
   
 Post subject:
PostPosted: 2005-04-18 14:57:54 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
А почему нет? У меня так сделано - так как не вкачан только спирит спик фактически. Поэтому засовываю его везде где только можно.

На этом форуме полно моих скриптов, в которых есть специальная функция и блок ее вызова раз в 5 минут. Засунь в свой мининг и не мучайся.


Top
   
 Post subject:
PostPosted: 2005-04-18 19:25:47 
Offline
User avatar

Joined: 2005-04-16 17:40:14
Posts: 24
Edred wrote:
в которых есть специальная функция и блок ее вызова раз в 5 минут. Засунь в свой мининг и не мучайся.

Edred ты не мог бы выложить в этот тот эту функцю или ссылку кинуть где посмотреть мона


Top
   
 Post subject:
PostPosted: 2005-04-19 21:31:57 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
В начало скрипта ставишь:

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


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 4 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited