Yoko

All sides of Injection
It is currently 2025-11-05 05:39:42

All times are UTC+02:00




Post new topic  Reply to topic  [ 19 posts ] 
Author Message
PostPosted: 2006-03-11 06:23:13 
Offline
User avatar

Joined: 2006-03-10 06:50:49
Posts: 7
Кто-нибудь, пожайлуста, может упростить скрипт ваш на Mining так чтобы не было всяких рун телепортаций и так далее...
Просто чтобы копать, прятаться, и ходить с места на место...
И все..
Больше ничего не нужно...

Потому что больше ничего и нету... :roll:


Top
   
 Post subject:
PostPosted: 2006-03-11 06:31:06 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
в Scripts! мининг как раз для тебя. стой и копай вокруг себя, и никаких проблем.


Top
   
 Post subject:
PostPosted: 2006-03-11 07:14:42 
Offline
User avatar

Joined: 2006-03-10 06:50:49
Posts: 7
Ммм... Спасибо большое... Кажется нашла =)


И еще, кто-нибудь может переделать скрипт Tinkering из бутылок на Ключики, пожайлуста?


Top
   
 Post subject:
PostPosted: 2006-03-11 07:36:34 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
кинь сюда этот скриптик, или найди такую строчку там:

Code:
uo.WaitMenu('Tools','Bottle')
-примерно и измени её, чтобы делались ключи.


Top
   
 Post subject:
PostPosted: 2006-03-11 08:27:53 
Offline
User avatar

Joined: 2006-03-10 06:50:49
Posts: 7
Code:
##################################################################### 
; Tinker. v.1.00b (c) Edred
;
; Чар берет из сундука инготы, крафтит из них бутылки
; и складывает эти бутылки в этот же сундук.
; Если инги закончились - выход.
;
sub tinker()
   VAR Sunduk = '0x4042B1A1'       ; Сериал сундука
   VAR Ingi = '0x1BEF'          ; Тип ингов
   VAR Instrum = '0x1EBC'          ; Тип инструмента тинкера
   VAR Bottle = '0x0F0E'          ; Тип бутылки
   VAR Kolvo = 200          ; Брать ингов
   VAR k = 0
   While TRUE
      UO.FindType( Ingi, -1, Sunduk )   ; Ищем инги в сундуке
      If UO.FindCount() == 0 Then
         UO.Print("Iron Ingots not found, script terminated")
         return
      Endif
      UO.Grab( Str( Kolvo ), 'finditem' )
      wait( 2000 )
      While UO.Count( Ingi ) > 0
         ; Пока в паке есть инги
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
         UO.DeleteJournal()
         UO.CancelMenu()
         UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'empty bottle' )
         UO.UseType( Instrum )
         k = 0
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
            k = k + 1
            wait(500)
         wend
         if UO.Count( Bottle ) > 0 then
            UO.FindType( Bottle, -1, -1 )
            UO.MoveItem( 'finditem', 0, Sunduk )
            wait( 1000 )
            UO.Print( 'Bottle moved' )
         end if
      Wend
   Wend
end sub


Воть...
Только можно пожайлуста без сундука, просто из инвентаря, и чтобы никуда не складывать...


P.S.

Мм... А я так похожа на человека который умеет изменять скрипты? =)


Top
   
 Post subject:
PostPosted: 2006-03-11 08:52:38 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Code:
sub tinker() 
   VAR Ingi = '0x1BEF'          ; Тип ингов
   VAR Instrum = '0x1EBC'          ; Тип инструмента тинкера
   While TRUE
      UO.FindType( Ingi, -1, 'backpack' )   ; Ищем инги в сундуке
      If UO.FindCount() == 0 Then
         UO.Print("Iron Ingots not found, script terminated")
         return
      Endif
      wait( 2000 )
      While UO.Count( Ingi ) > 0
         ; Пока в паке есть инги
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
         UO.DeleteJournal()
         UO.CancelMenu()
         UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'empty bottle' )
         UO.UseType( Instrum )
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail')
            wait(500)
         wend
       Wend
   Wend
end sub


16 строку замени на ключи и пробуй


Top
   
 Post subject:
PostPosted: 2006-03-11 09:02:36 
Offline
User avatar

Joined: 2006-03-10 06:50:49
Posts: 7
Простите, а вы не подскажите как? =)


Top
   
 Post subject:
PostPosted: 2006-03-11 09:21:37 
Offline

Joined: 2006-02-05 13:29:09
Posts: 14
Code:
sub tinker()
   VAR Ingi = '0x1BEF'          ; Тип ингов
   VAR Instrum = '0x1EBC'          ; Тип инструмента тинкера
   While TRUE
      UO.FindType( Ingi, -1, 'backpack' )   ; Ищем инги в БЕКПАКЕ
      If UO.FindCount() == 0 Then
         UO.Print("Iron Ingots not found, script terminated")
         return
      Endif
      wait( 2000 )
      While UO.Count( Ingi ) > 0
         ; Пока в паке есть инги
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
         UO.DeleteJournal()
         UO.CancelMenu()
         UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'lockpick' )
         UO.UseType( Instrum )
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail')
            wait(500)
         wend
       Wend
   Wend
end sub

ВОТ ПОЖАЛУЙСТА :D Вижу что люди тут ленивые - раз так трудно обьяснить. просто в строчкеUO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'empty bottle' ) EMPTY BOTTLE (пустые бутылки) меняешь на lockpick(отмычки)...вот и фсё 8)


Top
   
 Post subject:
PostPosted: 2006-03-11 09:30:38 
Offline
User avatar

Joined: 2006-03-10 06:50:49
Posts: 7
Спасибо большое конечно, но...
не работает =(


Top
   
 Post subject:
PostPosted: 2006-03-11 10:03:14 
Offline

Joined: 2006-02-05 13:29:09
Posts: 14
Ща перепроверю и постараюсь исправить=)


Top
   
 Post subject:
PostPosted: 2006-03-11 10:08:49 
Offline

Joined: 2006-02-05 13:29:09
Posts: 14
Либо у тебя слишком маленький скилл Тинкер и у тебя нет в ассортименте ОТМЫЧЕК, либо чтото не так в самом скрипте :?
А что он у тебя пишет?PARSE ERROR или MEnu choice not found: menu canceled? Если первое то что то со скриптом ЕСли второе то у тебя маленький скилл , покачайся пока на бутылках а потом можешь уже на отмычках.


Top
   
 Post subject:
PostPosted: 2006-03-11 11:07:29 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
Еще одна причина: шард. На разных шардах могут быть отличия как в способе использования скилла, так и в текстах меню.


Top
   
 Post subject:
PostPosted: 2006-03-11 23:08:41 
Offline
User avatar

Joined: 2006-03-10 06:50:49
Posts: 7
Так... Кажется я поняла... Мне нужны не "Отмычки", а "Железные ключики"...
Воть =)


Top
   
 Post subject:
PostPosted: 2006-03-12 03:35:54 
Offline

Joined: 2006-02-05 13:29:09
Posts: 14
Поздравляю с успехом в продвижении скриптописания :D 8)


Top
   
 Post subject:
PostPosted: 2006-03-12 07:00:01 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
всегда писать самому приятней и удобней, чем читать чейто.


Top
   
 Post subject:
PostPosted: 2006-03-12 09:43:51 
Offline
User avatar

Joined: 2006-03-10 06:50:49
Posts: 7
Мммм... Сама я извините писать их не умею... (зато умею кое-что другое).

А скриптики мне уже написали =)
Спасибо всем большое что старались помочь, я всем очень-очень благодарна... Image


Last edited by Nierra on 2006-03-12 09:44:36, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2006-03-12 15:17:37 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Пожалуйста.

Всегда рады помочь !


Top
   
 Post subject:
PostPosted: 2006-03-12 15:19:12 
Offline
User avatar

Joined: 2005-01-21 10:00:30
Posts: 64
Location: 74
Nierra wrote:
Мммм... Сама я извините писать их не умею... (зато умею кое-что другое).

А скриптики мне уже написали =)
Спасибо всем большое что старались помочь, я всем очень-очень благодарна... Image


а что умеешь?


Top
   
 Post subject:
PostPosted: 2006-03-13 20:51:36 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
uisran wrote:
Nierra wrote:
Мммм... Сама я извините писать их не умею... (зато умею кое-что другое).

А скриптики мне уже написали =)
Спасибо всем большое что старались помочь, я всем очень-очень благодарна... Image


а что умеешь?

Писать под вэб различные наработки, Injection скрипты - так, хобби.


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

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 2 guests


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