Yoko

All sides of Injection
It is currently 2017-09-25 04:26:10

All times are UTC+02:00




Post new topic  Reply to topic  [ 2 posts ] 
Author Message
PostPosted: 2004-06-24 00:12:11 
Offline
Site Admin
User avatar

Joined: 2004-04-03 16:49:38
Posts: 1968
Discussion:______________
http://yoko.netroof.net/forum/viewtopic.php?p=2574#2574
Author or poster:_________
Edred, tercia@spb.lanck.net
Tested on:_______________
Цитадель http://ultima.e-burg.ru
Must work:_______________
Sphere emu
Customization required:____
Yes/place (serial Sunduk1, Sunduk2; also check up types)
Description:______________
Скрипт для прокачки карпентера путем крафта удочек. Для работы вам потребуется поставить в доме два сундука, в один из них сложить кучу пустых мешков, второй сундук оставить пустым. Возьмите инструмент карпентера в пак, встаньте около сундуков, положите рядом с собой на пол логи.

Чар берет из первого сундука пустой мешок, помещает его во второй сундук, берет с пола 460 логов и крафтит удочки (1 удочка = 2 лога).
Готовые удочки сразу после крафта перекидывает в этот перемещенный мешок. По окончании крафта берет следующий мешок и по кругу. Если логи кончаются - останавливается.

Настройка: внесите в соответствующие переменные сериалы сундуков, проверьте типы логов, инструмента карпентера, мешков.
Yoko comment:___________
none
________________________
Code:
#####################################################################
; Carpentry. v.1.12b (c) Edred
;
; Чар берет из сундука 1 пустой мешок, кладет этот мешок в сундук 2,
; берет с пола логи, крафтит из них удочки и складывает эти удочки
; в этот мешок в сундуке 2. Если логи на полу или пустые мешки
; кончились - выход
;
sub carpentry()
   VAR Sunduk1 = '0x4017439B'       ; Сериал сундука с пустыми мешками
   VAR Sunduk2 = '0x4000F46C'       ; Сериал пустого сундука
   VAR Meshok = '0x0E76'          ; Тип мешка
   VAR Logi = '0x1BDD'          ; Тип логов
   VAR Rubanok = '0x1031'          ; Тип инструмента карпентера
   VAR Udochka = '0xDBF'          ; Тип удочки
   VAR Kolvo = 460          ; Брать логов (2 лога = 1 удочка)
   VAR MeshSer, j, k
   While TRUE
      UO.FindType( Logi, -1, 1 )       ; Ищем логи на полу
      UO.Grab( Str( Kolvo ), 'finditem' )    ; Кладем логи в пак
      wait( 2000 )
      If UO.FindCount() == 0 Then
         UO.Print("Logs not found, script terminated")
         return
      Endif
      UO.FindType( Meshok, -1, Sunduk1 )       ; Ищем мешок в сундуке 1
      MeshSer = UO.GetSerial( 'finditem' )
      UO.Grab( '1', 'finditem' )          ; Кладем его в бэкпак
      wait( 2000 )
      UO.MoveItem( MeshSer, 0, Sunduk2 )
      wait( 2000 )
      While UO.Count( Logi ) > 0
         ; Пока в паке есть логи
         UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' logov' )
         UO.DeleteJournal()
         UO.CancelMenu()
         UO.WaitMenu ('Carpentry', 'Weapons & Tools', 'Weapons & Tools', 'fishing' )
         UO.UseType( Rubanok )
         k = 0
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
            k = k + 1
            wait(500)
         wend
         ; Wait( 14000 )
         ; Скрафтили удочку
         ; Сразу переложим ее в мешок
         if UO.Count( Udochka ) > 0 then
            UO.FindType( Udochka, -1, 'backpack' )
            UO.MoveItem( 'finditem', 0, MeshSer )
            wait( 2000 )
            UO.Print( 'Udochka perelozhena' )
         end if
      Wend
   Wend
end sub


Top
   
 Post subject:
PostPosted: 2004-08-10 21:33:41 
Offline
Site Admin
User avatar

Joined: 2004-04-03 16:49:38
Posts: 1968
Discussion:______________
http://yoko.netroof.net/forum/viewtopic.php?p=4797#4797
Author or poster:_________
Edred, tercia@spb.lanck.net
Tested on:_______________
Цитадель http://ultima.e-burg.ru
Must work:_______________
Sphere emu
Customization required:____
Yes/place (serial MyTrash; also check up types)
Description:______________
(Упрощенная версия карпы. Никаких мешков и удочки сразу в трэш.)
Скрипт для прокачки карпентера путем крафта удочек. Для работы вам потребуется поставить в доме трэш и положить рядом с собой на пол логи. Чар берет берет с пола логи, крафтит из них удочки и скидывает удочки в трэш. Если логи на полу кончились - выход.
(Place logs and trash to ground near char. Check serial of trash and types of logs, tools and fishing pole. Run the script. Char get logs from ground, craft fishing pole and move fishing pole trash).
Yoko comment:___________
none
________________________
Code:
#####################################################################
; Carpentry. v.1.13D (c) Edred
;
; Чар берет берет с пола логи, крафтит из них удочки и скидывает удочки
; в трэш. Если логи на полу кончились - выход.
; (Get logs from ground and craft fishing pole. Move fishing pole trash)
;
; Special Edition (for Democratic)
;
;
sub carpentry()
   VAR MyTrash = '0x4017439B'       ; Сериал мусорки (ID of trash)
   VAR Logi = '0x1BDD'          ; Тип логов (logs type)
   VAR Rubanok = '0x1031'          ; Тип инструмента (carpentry tools type)
   VAR Udochka = '0xDBF'          ; Тип удочки (fishing pole type)
   VAR Kolvo = 460          ; Брать логов (Count of logs for a one grab)
   VAR j, k
   While TRUE
      UO.FindType( Logi, -1, 1 )       ; Ищем логи на полу
      UO.Grab( Str( Kolvo ), 'finditem' )    ; Кладем логи в пак
      wait( 1000 )
      If UO.FindCount() == 0 Then
         UO.Print("Logs not found, script terminated")
         return
      Endif
      While UO.Count( Logi ) > 0
         ; Пока в паке есть логи
         UO.Print('I have ' + Str( UO.Count( Logi ) ) + ' logs' )
         UO.DeleteJournal()
         UO.CancelMenu()
         UO.WaitMenu ('Carpentry', 'Fishing Poles', 'Fishing Poles', 'fishing pole' )
         UO.UseType( Rubanok )
         k = 0
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
            k = k + 1
            wait(500)
         wend
         ; Wait( 14000 )
         ; Скрафтили удочку
         ; Сразу переложим ее в трэш
         if UO.Count( Udochka ) > 0 then
            UO.FindType( Udochka )
            UO.MoveItem( 'finditem', 0, MyTrash )
            wait( 1000 )
            UO.Print( 'Fishing Pole trashed' )
         end if
      Wend
   Wend
end sub


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 2 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:  
cron
Powered by phpBB® Forum Software © phpBB Limited