Yoko

All sides of Injection
It is currently 2026-01-18 13:13:26

All times are UTC+02:00




Post new topic  Reply to topic  [ 7 posts ] 
Author Message
 Post subject: опять же бс
PostPosted: 2005-03-30 22:38:39 
Offline

Joined: 2005-03-02 04:07:14
Posts: 9
нарисуйте пожалуйста скрипт на бс чтоб он ковал не даггеры а баклеры. и чтобы он их плавил. заранее спасибо


Top
   
 Post subject:
PostPosted: 2005-03-30 22:48:01 
Offline
User avatar

Joined: 2005-01-04 21:52:39
Posts: 32
omg Again!!! man please deleate this top and use S_E_A_R_C_H (хехе небось куча ошибок) :oops:

_________________
"Человек играет только тогда, когда он в полном значении слова человек, и он бывает вполне человеком лишь тогда, когда играет." (c)


Top
   
 Post subject:
PostPosted: 2005-03-30 22:49:42 
Offline

Joined: 2005-03-02 04:07:14
Posts: 9
юзал. не нашёл ничего...


Top
   
 Post subject:
PostPosted: 2005-03-30 22:52:15 
Offline

Joined: 2005-03-02 04:07:14
Posts: 9
друган написал скрипт, но че то он не работает... в чём проблема?
Code:
; Blacksmith skript v1.1 Gefest Edition

sub Blacksmith()
var Sunduk = "Sunduk"
uo.print("Ñóíäóê â êîòîðì ëåæàò èíãè..")
uo.addobject(Sunduk)
wait(4500)
var Forge = "Forge"
uo.print("ôîðæà..")
uo.addobject(Forge)
wait(4500)

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
var MenuIron="'Blacksmithing' 'Weapons'"
var MenuOther="'Colored' 'Weapons'"
var MenuSwords="Weapons' 'Swords'"
var MenuDagger="'Swords' '(3'"
var NameOre="'"                          ; ðàñêîììåíòèðîâàòü ýòó ñòðîêó, åñëè êó¸ì èç Iron (îñòàëüíûå ïåðåìåííûå NameOre çàêîììåíòèðîâàòü)
;var NameOre="'Rusty "                  ; ðàñêîììåíòèðîâàòü ýòó ñòðîêó, åñëè êó¸ì èç Rusty (îñòàëüíûå ïåðåìåííûå NameOre çàêîììåíòèðîâàòü)
;var NameOre="'Old Copper "
;var NameOre="'Dull Copper "            ; ðàñêîììåíòèðîâàòü ýòó ñòðîêó, åñëè êó¸ì èç Dull Copper (îñòàëüíûå ïåðåìåííûå NameOre çàêîììåíòèðîâàòü)
;var NameOre="'Bronze "                 ; ðàñêîììåíòèðîâàòü ýòó ñòðîêó, åñëè êó¸ì èç Bronze (îñòàëüíûå ïåðåìåííûå NameOre çàêîììåíòèðîâàòü)



uo.UseObject(Sunduk)
while not uo.Dead()

             
uo.exec('automenu '+MenuDagger)
uo.exec('automenu '+NameOre +MenuSwords)
;uo.exec('automenu '+MenuOther)         ; çàêîììåíòèðîâàòü ýòó ñòðîêó, åñëè êó¸ì èç Iron
uo.exec('automenu '+MenuIron)
             
While Exit<>1
uo.DeleteJournal()
LastTimer=uo.Timer()

uo.UseType(0x1bef) 

while not uo.InJournal("You put") and not uo.InJournal("You have failed")
wait(100)
wend

if uo.InJournal("You have failed") then
repeat
wait(100)
until uo.Timer()>=LastTimer+100 ; Âðåìÿ ñîçäàíèÿ äàãåðà
end if

uo.FindType('0x0f51',-1,'backpack')

if uo.GetQuantity('finditem') then
uo.WaitTargetObject('finditem')
uo.UseObject(Forge) 
wait(3000)
end if

UO.FindType('0x1BEF','0x0000','backpack') ; ðàñêîììåíòèðîâàòü ýòó ñòðîêó, åñëè êó¸ì èç Iron (îñòàëüíûå ïåðåìåííûå çàêîììåíòèðîâàòü)
;uO.FindType('0x1BEF','0x0750','backpack') ; ðàñêîììåíòèðîâàòü ýòó ñòðîêó, åñëè êó¸ì èç Rusty (îñòàëüíûå ïåðåìåííûå çàêîììåíòèðîâàòü)
;UO.FindType('0x1BEF','0x0590','backpack')  ; ðàñêîììåíòèðîâàòü ýòó ñòðîêó, åñëè êó¸ì èç Old Copper (îñòàëüíûå ïåðåìåííûå çàêîììåíòèðîâàòü)
;UO.FindType('0x1BEF','0x060A','backpack') ; ðàñêîììåíòèðîâàòü ýòó ñòðîêó, åñëè êó¸ì èç Dull Copper  (îñòàëüíûå ïåðåìåííûå çàêîììåíòèðîâàòü)
;UO.FindType('0x1BEF','0x0488','backpack') ; ðàñêîììåíòèðîâàòü ýòó ñòðîêó, åñëè êó¸ì èç Bronze  (îñòàëüíûå ïåðåìåííûå çàêîììåíòèðîâàòü)
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000',Sunduk) ;ñóíäóê ñ Àéðîí
;UO.FindType('0x1BEF','0x0750',Sunduk) ;ñóíäóê ñ Ðàñòè
;UO.FindType('0x1BEF','0x0590',Sunduk) ;ñóíäóê ñ Old Copper
;UO.FindType('0x1BEF','0x060A',Sunduk) ;ñóíäóê ñ Dull Copper
;UO.FindType('0x1BEF','0x0488',Sunduk) ;ñóíäóê ñ Bronze
wait(1000)
UO.Grab('300','finditem')
Endif
wait(1000)
wend
end sub


Top
   
 Post subject:
PostPosted: 2005-03-30 23:08:41 
Offline
User avatar

Joined: 2005-01-04 21:52:39
Posts: 32
Скажи спасибо мне и крафтеру :lol:
БС номер раз
БС номер два

_________________
"Человек играет только тогда, когда он в полном значении слова человек, и он бывает вполне человеком лишь тогда, когда играет." (c)


Top
   
 Post subject:
PostPosted: 2005-03-31 00:11:57 
Offline

Joined: 2005-03-02 04:07:14
Posts: 9
дык нужно чтоб не дагеры ковались...а баклеры....помогите плиз. а то скилл не растёт.....на 38% застрял:(


Top
   
 Post subject:
PostPosted: 2005-03-31 00:40:04 
Offline

Joined: 2005-03-02 04:07:14
Posts: 9
или помогите изменить этот скрипт плиз.
Code:
; Blacksmith skript v1.1 Gefest Edition

sub Blacksmith()
var Sunduk = "Sunduk"
uo.print("Сундук в которм лежат инги..")
uo.addobject(Sunduk)
wait(4500)
var Forge = "Forge"
uo.print("форжа..")
uo.addobject(Forge)
wait(4500)
;var Eda = "Eda"                 ; примечание, еда должна лежать в бэкпаке..
;uo.print("что кушаем?..")
;uo.addobject(Eda)
;wait(4500)

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
var MenuIron="'Blacksmithing' 'Weapons'"
var MenuOther="'Colored' 'Weapons'"
var MenuSwords="Weapons' 'Swords'"
var MenuDagger="'Swords' '(3'"
var NameOre="'"                ; раскомментировать эту строку, если куём из Iron (остальные переменные NameOre закомментировать)
;var NameOre="'Rusty "           ; раскомментировать эту строку, если куём из Rusty (остальные переменные NameOre закомментировать)
;var NameOre="'Old Copper "
;var NameOre="'Dull Copper "    ; раскомментировать эту строку, если куём из Dull Copper (остальные переменные NameOre закомментировать)
;var NameOre="'Bronze "          ; раскомментировать эту строку, если куём из Bronze (остальные переменные NameOre закомментировать)



uo.UseObject(Sunduk)
while not uo.Dead()

             
uo.exec('automenu '+MenuDagger)
uo.exec('automenu '+NameOre +MenuSwords)
;uo.exec('automenu '+MenuOther)   ; закомментировать эту строку, если куём из Iron
uo.exec('automenu '+MenuIron)
             
While Exit<>1
uo.DeleteJournal()
LastTimer=uo.Timer()

;if uo.InJournal("hungry") or uo.InJournal("starving") then
;uo.UseObject(Eda)           
;while not uo.InJournal("are stuffed!") and not uo.InJournal("too full")
;end if

uo.UseType(0x1bef) 

while not uo.InJournal("You put") and not uo.InJournal("You have failed")
wait(100)
wend

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

uo.FindType('0x0f51',-1,'backpack')

if uo.GetQuantity('finditem') then
uo.WaitTargetObject('finditem')
uo.UseObject(Forge) 
wait(3000)
end if

UO.FindType('0x1BEF','0x0000','backpack') ; раскомментировать эту строку, если куём из Iron (остальные переменные закомментировать)
;UO.FindType('0x1BEF','0x0750','backpack') ; раскомментировать эту строку, если куём из Rusty (остальные переменные закомментировать)
;UO.FindType('0x1BEF','0x0590','backpack')  ; раскомментировать эту строку, если куём из Old Copper (остальные переменные закомментировать)
;UO.FindType('0x1BEF','0x060A','backpack') ; раскомментировать эту строку, если куём из Dull Copper  (остальные переменные закомментировать)
;UO.FindType('0x1BEF','0x0488','backpack') ; раскомментировать эту строку, если куём из Bronze  (остальные переменные закомментировать)
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000',Sunduk) ;сундук с Айрон
;UO.FindType('0x1BEF','0x0750',Sunduk) ;сундук с Расти
;UO.FindType('0x1BEF','0x0590',Sunduk) ;сундук с Old Copper
;UO.FindType('0x1BEF','0x060A',Sunduk) ;сундук с Dull Copper
;UO.FindType('0x1BEF','0x0488',Sunduk) ;сундук с Bronze
wait(1000)
UO.Grab('300','finditem')
Endif
wait(1000)
wend
end sub



Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 7 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 2 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:  
Powered by phpBB® Forum Software © phpBB Limited