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

Nierra · Post by **Nierra** » 2006-03-11 06:23:13

Кто-нибудь, пожайлуста, может упростить скрипт ваш на Mining так чтобы не было всяких рун телепортаций и так далее...
Просто чтобы копать, прятаться, и ходить с места на место...
И все..
Больше ничего не нужно...

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

Scripts Writer · Post by **Scripts Writer** » 2006-03-11 06:31:06

в Scripts! мининг как раз для тебя. стой и копай вокруг себя, и никаких проблем.

Nierra · Post by **Nierra** » 2006-03-11 07:14:42

Ммм... Спасибо большое... Кажется нашла =)

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

Scripts Writer · Post by **Scripts Writer** » 2006-03-11 07:36:34

кинь сюда этот скриптик, или найди такую строчку там:

Code: Select all

uo.WaitMenu('Tools','Bottle')

-примерно и измени её, чтобы делались ключи.

Nierra · Post by **Nierra** » 2006-03-11 08:27:53

Code: Select all

##################################################################### 
; 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.

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

Scripts Writer · Post by **Scripts Writer** » 2006-03-11 08:52:38

Code: Select all

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

Nierra · Post by **Nierra** » 2006-03-11 09:02:36

Простите, а вы не подскажите как? =)

worm90 · Post by **worm90** » 2006-03-11 09:21:37

Code: Select all

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(отмычки)...вот и фсё

Nierra · Post by **Nierra** » 2006-03-11 09:30:38

Спасибо большое конечно, но...
не работает =(

worm90 · Post by **worm90** » 2006-03-11 10:03:14

Ща перепроверю и постараюсь исправить=)

worm90 · Post by **worm90** » 2006-03-11 10:08:49

Либо у тебя слишком маленький скилл Тинкер и у тебя нет в ассортименте ОТМЫЧЕК, либо чтото не так в самом скрипте

А что он у тебя пишет?PARSE ERROR или MEnu choice not found: menu canceled? Если первое то что то со скриптом ЕСли второе то у тебя маленький скилл , покачайся пока на бутылках а потом можешь уже на отмычках.

Edred · Post by **Edred** » 2006-03-11 11:07:29

Еще одна причина: шард. На разных шардах могут быть отличия как в способе использования скилла, так и в текстах меню.

Nierra · Post by **Nierra** » 2006-03-11 23:08:41

Так... Кажется я поняла... Мне нужны не "Отмычки", а "Железные ключики"...
Воть =)

worm90 · Post by **worm90** » 2006-03-12 03:35:54

Поздравляю с успехом в продвижении скриптописания

Scripts Writer · Post by **Scripts Writer** » 2006-03-12 07:00:01

всегда писать самому приятней и удобней, чем читать чейто.

Nierra · Post by **Nierra** » 2006-03-12 09:43:51

Мммм... Сама я извините писать их не умею... (зато умею кое-что другое).

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

Destruction · Post by **Destruction** » 2006-03-12 15:17:37

Пожалуйста.

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

uisran · Post by **uisran** » 2006-03-12 15:19:12

Nierra wrote:Мммм... Сама я извините писать их не умею... (зато умею кое-что другое).

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

а что умеешь?

Destruction · Post by **Destruction** » 2006-03-13 20:51:36

uisran wrote:
Nierra wrote:Мммм... Сама я извините писать их не умею... (зато умею кое-что другое).

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

а что умеешь?

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