Yoko

All sides of Injection
It is currently 2024-03-29 17:02:14

All times are UTC+02:00




Post new topic  Reply to topic  [ 2 posts ] 
Author Message
PostPosted: 2011-02-26 11:34:59 
Offline

Joined: 2011-02-25 20:14:06
Posts: 1
Всем доброго времени суток

При использовании скрипта на БС:
Code:
#####################################################
### Blacksmitchy Script Vor Iron Metal v. 1.00. ###
### ###
### Copyright & tested by cOoler on DRW Shard. ###
### ###
### Oficial DRW Shards site - http://www.drw.ru ###
#####################################################
#####################################################
### Инструкция по использованию и настройке. ###
#####################################################
### 1. Для работы этого скрипта надо: молоток,
### инги(Iron),Форж(плавилка).
###
### 2. Описание подготовки к запуску скрипта.
### Берём сундук (можно и backpack),меняем в скрипте
### ID сундука на свой,меняем ID форжи,
### кладем в сундук инги (как можно
### больше),себе в руку молоток,запускаем скрипт.
### Он куёт даггеры и плавит их.
###
### 3. При использовании скрипта вам так или иначе
### придется менять конфигурации скрипта.
### Вот как и где это НУЖНО сделать:
###
### $ Изменение продукта кования.
### UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')- тут вы
### можете изменить - что будет ковать ваш чар.
###
### $ Смена ID форжи.
### UO.UseObject(ID форжи)- тут вы указываете: ID форжи.
###
### $ Смена типа ингов и ID сундука.
### UO.FindType('тип ингов айрона',-1,'backpack')- тут вы указываете: тип ингов айрона.
### UO.FindType('тип ингов айрона','colour сундука','ID сундука с ингами')- тут вы
### указываете: тип ингов айрона,их colour,ID сундука с ингами.
#####################################################
### Конец инструкции. ###
#####################################################


sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
   uo.automenu('Blacksmithing','Colored Armor & Weapons')
   uo.automenu('Colored Armor & Weapons','Rusty Weapons')
   uo.automenu('Rusty Weapons','Rusty Swords & Blades')
   uo.automenu('Rusty Swords & Blades','Rusty Dagger')
UO.UseType(0x1BEF) ;Инги айрона

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend

If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;Время создания дагера
EndIf

UO.FindType('0x0F51',-1,'backpack')
wait(500)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x400B9EB2) ; Форж
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0750','0x403EDFC9') ;Cундук с ингами
wait(1000)
UO.Grab('900','finditem')
Endif
wait(1000)
wend
end sub



постоянно выскакивает ошибка "Unhandled exeption in panser"
скрипт может проработать 5 минут и клиент критует. Подскажите в чем может быть проблема


Top
   
PostPosted: 2011-02-26 13:37:00 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
попробуй вот так:
Code:
sub BlacksmithyIM()
   VAR Exit=0, LastTimer
   uo.automenu('Blacksmithing','Colored Armor & Weapons')
   uo.automenu('Colored Armor & Weapons','Rusty Weapons')
   uo.automenu('Rusty Weapons','Rusty Swords & Blades')
   uo.automenu('Rusty Swords & Blades','Rusty Dagger')
   while Exit<>1
      UO.DeleteJournal()
      LastTimer=UO.Timer()
      UO.UseType('0x1BEF') ;Инги айрона
      while NOT UO.InJournal("You put|You have failed")
         wait(500)
      wend
      If UO.InJournal("You have failed") then
         repeat
            wait(100)
         until UO.Timer()>=LastTimer+100 ;Время создания дагера
      EndIf
      UO.FindType('0x0F51',-1,'backpack')
      If UO.GetQuantity('finditem') then
         UO.WaitTargetObject('finditem')
         UO.UseObject('0x400B9EB2') ; Форж
         wait(100)
      Endif
      UO.FindType('0x1BEF',-1,'backpack')
      If UO.GetQuantity('finditem')<10 then
         UO.FindType('0x1BEF','0x0750','0x403EDFC9') ;Cундук с ингами
         UO.Grab('900','finditem')
         wait(1000)
      Endif
      wait(1000)
   wend
end sub
Заодно вот это прочитай

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


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 25 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:  
cron
Powered by phpBB® Forum Software © phpBB Limited