Ни один скрипт на БС не могу поставить что нашол на форуме..

Deathclaw · Post by **Deathclaw** » 2005-01-29 20:50:32

дайте хоть 1 НОРМАЛЬНЫЙ скрип чтобы не зависало на вейтинг меню, чтобы не писало choise1 chopise 2 и так далее чтобы он зотябы просто работал!инжект скачал с сайта !вот ша мучаюсь на уо пилоте на запомининии мыши!чтобы он просто НАХОДИЛ у себя в бэк пэке ирон инготы ид Просто делал из нах даггеры!заанее спассибо!
З.Ы, любителям писать "Пользуйса поиском" прочитайсе внимательнее топик!

Deathclaw · Post by **Deathclaw** » 2005-01-29 21:08:47

toещё хотелось бы чтобы он не плавил!просо делал даггеры и всё я их потом продам!!!

SAMURAI · Post by **SAMURAI** » 2005-01-29 21:40:14

Code: Select all

sub BS() 
   VAR Cont='0x400A3A03' 
   var ing = '0x1BEF'   ; type of ingot 
   var color = '0x0750' ;color 
   UO.CancelMenu() 
   UO.SetReceivingContainer('backpack') 
   UO.Automenu("Blacksmithing","Armor") 
   UO.Automenu("Armor","Weapons") 
   UO.Automenu("Weapons","Swords") 
   UO.Automenu("Swords","Dagger") 
;  UO.Automenu("Swords","Dagger") 
   while True 
      UO.DeleteJournal() 
      if UO.Count(ing,color)<=10 then 
         UO.FindType(ing,color,Cont) 
         UO.Grab('100','finditem') 
         wait(2000) 
      endif 
      UO.UseType(ing,color) 
      Repeat 
         wait(1000) 
      Until UO.InJournal("You put") OR UO.InJournal("fail") 
      if UO.Count('0x0F51')>0 then   ;0x0f51 тип даггера, перепроверьте 
         UO.FindType('0x0F51',-1,-1)  ;0x0f51 тип даггера, перепроверьте 
         UO.MoveItem('finditem',0,Cont) 
         wait(1000) 
      endif 
   Wend 
end sub

SomeOne · Post by **SomeOne** » 2005-03-03 13:32:10

SAMURAI wrote:

Code: Select all

sub BS() 
   VAR Cont='0x400A3A03' 
   var ing = '0x1BEF'   ; type of ingot 
   var color = '0x0750' ;color 
   UO.CancelMenu() 
   UO.SetReceivingContainer('backpack') 
   UO.Automenu("Blacksmithing","Armor") 
   UO.Automenu("Armor","Weapons") 
   UO.Automenu("Weapons","Swords") 
   UO.Automenu("Swords","Dagger") 
;  UO.Automenu("Swords","Dagger") 
   while True 
      UO.DeleteJournal() 
      if UO.Count(ing,color)<=10 then 
         UO.FindType(ing,color,Cont) 
         UO.Grab('100','finditem') 
         wait(2000) 
      endif 
      UO.UseType(ing,color) 
      Repeat 
         wait(1000) 
      Until UO.InJournal("You put") OR UO.InJournal("fail") 
      if UO.Count('0x0F51')>0 then   ;0x0f51 тип даггера, перепроверьте 
         UO.FindType('0x0F51',-1,-1)  ;0x0f51 тип даггера, перепроверьте 
         UO.MoveItem('finditem',0,Cont) 
         wait(1000) 
      endif 
   Wend 
end sub

Po4emu u menja pishet 6to Menu chouse not faund: Menu ignored ?????? Help plzzz

eXtatic · Post by **eXtatic** » 2005-05-03 13:50:45

pt stob bs kacial na daggerah a potom ih plavil

Beyonder · Post by **Beyonder** » 2005-05-04 12:00:26

Читай комментарии.

Code: Select all

sub BS()
   VAR Cont='0x400A3A03'
   var ing = '0x1BEF'   ; type of ingot
   var color = '0x0750' ;color
   UO.CancelMenu()
   UO.SetReceivingContainer('backpack')
##### Эту часть нужно подправить под себя
##### Вызываешь вручную меню крафта в ультиме и проверяешь названия всех меню и все нужные выборы
##### Лишние строки можешь удалить или добавить свои
   UO.Automenu("Blacksmithing","Armor") ## Ждем меню с названием Blacksmithing и там выбираем Armor
   UO.Automenu("Armor","Weapons") ## Ждем меню с названием Armor и там выбираем Weapons
   UO.Automenu("Weapons","Swords") ## И т.д.
   UO.Automenu("Swords","Dagger")
#####
   while True
      UO.DeleteJournal()
      if UO.Count(ing,color)<=10 then
         UO.FindType(ing,color,Cont)
         UO.Grab('100','finditem')
         wait(2000)
      endif
      UO.UseType(ing,color)
      Repeat
         wait(1000)
      Until UO.InJournal("You put") OR UO.InJournal("fail")
      if UO.Count('0x0F51')>0 then   ;0x0f51 тип даггера, перепроверьте
         UO.FindType('0x0F51',-1,-1)  ;0x0f51 тип даггера, перепроверьте
         UO.MoveItem('finditem',0,Cont)
         wait(1000)
      endif
   Wend
end sub

Destruction · Post by **Destruction** » 2005-05-04 15:28:53

http://yoko.netroof.net/forum/viewtopic.php?t=3820

Берешь скрипт на БС, кастрируешь и юзаешь.

ПС: Искал плохо, имхо, отрещать лишнее из скрипта вовсе не сложно.

^JokeR^ · Post by **^JokeR^** » 2005-05-04 22:43:56

Code: Select all

##################################################### 
### 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() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','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(0x4012B5AC) ; Форж 
Endif 

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

Askaneli · Post by **Askaneli** » 2005-05-05 10:48:52

Destruction wrote:http://yoko.netroof.net/forum/viewtopic.php?t=3820

Берешь скрипт на БС, кастрируешь и юзаешь.

ПС: Искал плохо, имхо, отрещать лишнее из скрипта вовсе не сложно.

Он не умеет переделывать. Ему готовый надо просто. Чтоб main запустить и чтоб работало.

Destruction · Post by **Destruction** » 2005-05-05 11:19:13

Askaneli wrote:
Destruction wrote:http://yoko.netroof.net/forum/viewtopic.php?t=3820

Берешь скрипт на БС, кастрируешь и юзаешь.

ПС: Искал плохо, имхо, отрещать лишнее из скрипта вовсе не сложно.

Он не умеет переделывать. Ему готовый надо просто. Чтоб main запустить и чтоб работало.

Без труда не вытащишь и рыбку из пруда :!:

Я не люблю людей, которым все готовенькое надо.

Askaneli · Post by **Askaneli** » 2005-05-05 12:43:55

Destruction wrote:
Askaneli wrote:
Destruction wrote:http://yoko.netroof.net/forum/viewtopic.php?t=3820

Берешь скрипт на БС, кастрируешь и юзаешь.

ПС: Искал плохо, имхо, отрещать лишнее из скрипта вовсе не сложно.

Он не умеет переделывать. Ему готовый надо просто. Чтоб main запустить и чтоб работало.

Без труда не вытащишь и рыбку из пруда

Я не люблю людей, которым все готовенькое надо.

Вот я тебе про то и говорю.