Yoko :: Ужасно большой скрипт...

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

Ужасно большой скрипт... http://forum.yoko.com.ua/viewtopic.php?f=20&t=6912	Page 1 of 1

Author:	Nierra [ 2006-03-11 06:23:13 ]
Post subject:	Ужасно большой скрипт...
Кто-нибудь, пожайлуста, может упростить скрипт ваш на Mining так чтобы не было всяких рун телепортаций и так далее... Просто чтобы копать, прятаться, и ходить с места на место... И все.. Больше ничего не нужно... Потому что больше ничего и нету...

Author:	Scripts Writer [ 2006-03-11 06:31:06 ]
Post subject:
в Scripts! мининг как раз для тебя. стой и копай вокруг себя, и никаких проблем.

Author:	Nierra [ 2006-03-11 07:14:42 ]
Post subject:
Ммм... Спасибо большое... Кажется нашла =) И еще, кто-нибудь может переделать скрипт Tinkering из бутылок на Ключики, пожайлуста?

Author:	Scripts Writer [ 2006-03-11 07:36:34 ]
Post subject:
кинь сюда этот скриптик, или найди такую строчку там: Code: uo.WaitMenu('Tools','Bottle') -примерно и измени её, чтобы делались ключи.

Author:

Nierra [ 2006-03-11 08:27:53 ]

Post subject:

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.

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

Author:

Scripts Writer [ 2006-03-11 08:52:38 ]

Post subject:

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 строку замени на ключи и пробуй

Author:	Nierra [ 2006-03-11 09:02:36 ]
Post subject:
Простите, а вы не подскажите как? =)

Author:

worm90 [ 2006-03-11 09:21:37 ]

Post subject:

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

ВОТ ПОЖАЛУЙСТА

Вижу что люди тут ленивые - раз так трудно обьяснить. просто в строчкеUO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'empty bottle' ) EMPTY BOTTLE (пустые бутылки) меняешь на lockpick(отмычки)...вот и фсё

Author:	Nierra [ 2006-03-11 09:30:38 ]
Post subject:
Спасибо большое конечно, но... не работает =(

Author:	worm90 [ 2006-03-11 10:03:14 ]
Post subject:
Ща перепроверю и постараюсь исправить=)

Author:	worm90 [ 2006-03-11 10:08:49 ]
Post subject:
Либо у тебя слишком маленький скилл Тинкер и у тебя нет в ассортименте ОТМЫЧЕК, либо чтото не так в самом скрипте А что он у тебя пишет?PARSE ERROR или MEnu choice not found: menu canceled? Если первое то что то со скриптом ЕСли второе то у тебя маленький скилл , покачайся пока на бутылках а потом можешь уже на отмычках.

Author:	Edred [ 2006-03-11 11:07:29 ]
Post subject:
Еще одна причина: шард. На разных шардах могут быть отличия как в способе использования скилла, так и в текстах меню.

Author:	Nierra [ 2006-03-11 23:08:41 ]
Post subject:
Так... Кажется я поняла... Мне нужны не "Отмычки", а "Железные ключики"... Воть =)

Author:	worm90 [ 2006-03-12 03:35:54 ]
Post subject:
Поздравляю с успехом в продвижении скриптописания

Author:	Scripts Writer [ 2006-03-12 07:00:01 ]
Post subject:
всегда писать самому приятней и удобней, чем читать чейто.

Author:	Nierra [ 2006-03-12 09:43:51 ]
Post subject:
Мммм... Сама я извините писать их не умею... (зато умею кое-что другое). А скриптики мне уже написали =) Спасибо всем большое что старались помочь, я всем очень-очень благодарна...

Author:	Destruction [ 2006-03-12 15:17:37 ]
Post subject:
Пожалуйста. Всегда рады помочь !

Author:	uisran [ 2006-03-12 15:19:12 ]
Post subject:
Nierra wrote: Мммм... Сама я извините писать их не умею... (зато умею кое-что другое). А скриптики мне уже написали =) Спасибо всем большое что старались помочь, я всем очень-очень благодарна... а что умеешь?

Author:	Destruction [ 2006-03-13 20:51:36 ]
Post subject:
uisran wrote: Nierra wrote: Мммм... Сама я извините писать их не умею... (зато умею кое-что другое). А скриптики мне уже написали =) Спасибо всем большое что старались помочь, я всем очень-очень благодарна... а что умеешь? Писать под вэб различные наработки, Injection скрипты - так, хобби.

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/