• Доступ на форум только по приглашениям!

Скрипты для Stealth и Injection под ФЛ.

Hummel

Wizard of Words
Не жди ответа. Норм скрипт на добывающие скиллы - это кормушка, в которой тебе место не уступит никто :) Ищи, пиши сам, покупай..
 

Hummel

Wizard of Words
Крафтит ли кто-нибудь на инже? Или все на разоре/изе юзают скрипты? Нужна помощь в осмыслении того, как можно написать скрипт на крафт на инже в общем :)

p.s. Вопрос собственно потому, что нашел море скриптов на крафт, но ни один не могу применить/опробовать, потому что видимо на ФЛ меню крафта организовано иначе.

p.s.s. Текст скрипта:
PHP:
sub Tinker()
   VAR Sunduk = '0x4025D0B0'       ; Сериал сундука где инги
   VAR Ingi = '0x1BEF'          ; Тип ингов - айрон
   VAR Instrum = '0x1EB8'          ; Тип инструмента тинкера
   VAR Scissors = '0x0F9F'          ; Тип ножницы
   VAR Kolvo = 50          ; Сколько брать ингов
   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 MENU', 'Tools', 'TINKERING MENU', 'scissors' )
         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( Scissors ) > 0 then
            UO.FindType( Scissors, -1, -1 )
            UO.MoveItem( 'finditem', 0, Sunduk )
            wait( 1000 )
            UO.Print( 'Scissors moved' )
         end if
      Wend
   Wend 
end sub
 
Последнее редактирование:

toxuin

Newbie Player
Не жди ответа. Норм скрипт на добывающие скиллы - это кормушка, в которой тебе место не уступит никто :) Ищи, пиши сам, покупай..
Я теперь тоже у кормушки, написал сам. Копает, бегает, меняет кирки.
Если кто (вдруг?) захочет купить место у кормушки (ну а вдруг?) - в личку, чо.
 

Hummel

Wizard of Words
Я теперь тоже у кормушки, написал сам. Копает, бегает, меняет кирки.
Если кто (вдруг?) захочет купить место у кормушки (ну а вдруг?) - в личку, чо.
Класс! Молоток :good:
 

Hummel

Wizard of Words
Елки-палки, вы вгоняете меня в уныние... Неужели качать крафты на инже вообще нельзя? :(
 

Hummel

Wizard of Words
 

Mirage

Newbie Player
Классная нямка :popcorm2:
Начну издалека:
1) У товарища macT имела место ошибка в скрипте на резист.
перепутались next и endif - потому и будет крашить.
второй момент его скрипта который я бы не советовал использовать
Код:
            uo.UseSkill("Meditation")
            repeat    
                wait(100)
            until uo.Mana > 99
И пофиг удалось войти в медитацию, не удалось, сбили, не сбили, домедитировал или нет... Ладно, спишем на специфику сервера. Но вот паузу 100 лучше немного увеличить.

2) while uo.Life < 90
repeat
действительно кривоватая конструкция. Не столь убийственная как написал Rene но просто не нужная. repeat и так не отпустит так что вместо while...wend лучше поставить if uo.Life < 90 then ... endif

3)
Код:
Sub M_Tiles(X,Y)
var i
if UO.PrivateGetTile(X, Y, -1, 1339, 1363) then
 for i=1339 to 1363
  if UO.PrivateGetTile(X, Y, -1, i, i) then
   return i
  end if
 next
end if
if UO.PrivateGetTile(X, Y, -1, 2272, 2282) then
 for i=2272 to 2282
  if UO.PrivateGetTile(X, Y, -1, i, i) then
   return i
  end if
 next
end if
if UO.PrivateGetTile(X, Y, -1, 4963, 4973) then
 for i=4963 to 4973
  if UO.PrivateGetTile(X, Y, -1, i, i) then
   return i
  end if
 next
end if
if UO.PrivateGetTile(X, Y, -1, 6001, 6012) then
 for i=6001 to 6012
  if UO.PrivateGetTile(X, Y, -1, i, i) then
   return i
  end if
 next
end if
if UO.PrivateGetTile(X, Y, -1, 13121, 13369) then
 for i=13121 to 13369
  if UO.PrivateGetTile(X, Y, -1, i, i) then
   return i
  end if
 next
end if
if UO.PrivateGetTile(X, Y, -1, 13446, 13455) then
 for i=13446 to 13455
  if UO.PrivateGetTile(X, Y, -1, i, i) then
   return i
  end if
 next
end if
if UO.PrivateGetTile(X, Y, -1, 13484, 13492) then
 for i=13484 to 13492
  if UO.PrivateGetTile(X, Y, -1, i, i) then
   return i
  end if
 next
end if
return 0; No Tiles
end sub
тайлы, которые потенциально можно копать. На вашем сервере либо проверьте либо я отпишусь чуть позже когда сам протестирую ;)


PS рервно курю и думаю что мне делать с моим
Код:
    repeat
     wait(100)
    until UO.InJournal("useable|выкопали|0xAD00|0xA867|0xA2DE|0xAD03|0x5DE0|0x5DE1|0x5DE2|0x5DE3|0x5DE4|0x5DE5|0x5DE6|0x5DE7|Вы положили|put the|is nothing here to mine|Wthere do you|Вам не удалось|У вас нет|have no line|ничего|Тут ничего|Попробуйте|Try mining elsewhere")
 
Последнее редактирование:
Верх