Yoko
http://forum.yoko.com.ua/

Помогите немного с бс
http://forum.yoko.com.ua/viewtopic.php?f=20&t=12742		 Page 1 of 1
Author:  kudo-shaman [ 2007-11-10 02:29:04 ]
Post subject:  Помогите немного с бс
переделайте плз так чтоб:
1)место дагера делал armor---->Chainmail------>Chainmail tunic
2)Делал пока не закончитса метал
Буду Очень благодарен


sub blacksmith()
VAR LastTimer
repeat
UO.Print('Îñòàëîñü ' + Str( UO.Count( 0x1BEF ) ) + ' ñëèòêîâ æåëåçà' )
UO.Print('Îñòàëîñü ñäåëàòü ' + Str( 51-UO.Count( 0x0F51 ) ) + ' êèíæàëîâ' )
if UO.Count( '0x1BEF' ) < 6 then
Uo.Print("Êîí÷èëèñü äðîâèøêè!")
return
endif
UO.DeleteJournal()
UO.WaitMenu ('Blacksmithing', 'Weapons', 'Weapons', 'Fencing', 'Fencing', 'Dagger')
UO.WaitTargetType ('0x1BEF')
UO.UseType( '0x13E3' )
LastTimer=UO.Timer()
;repeat
wait(600)
; until UO.InJournal ("Âû èçãîòîâèëè") OR ("íå óäàëîñü") OR ("You put") OR UO.InJournal("fail") OR ("Âû ïîëîæèëè") OR UO.Timer()>LastTimer+200
while not (uo.injournal("You put")) and not (uo.injournal("Tinkering failed")) and not (uo.injournal("Âû ïîëîæèëè")) and not (uo.injournal("Âû èçãîòîâèëè"))and not (uo.injournal("íå óäàëîñü"))
wait(200)
wend
If UO.Count(0x0F51)>200 then
UO.Print("Ñäàé çàêàçû, éîïòâàþ!")
UO.Print("Ñäàé çàêàçû, éîïòâàþ!")
UO.Print("Ñäàé çàêàçû, éîïòâàþ!")
return
endif
If Uo.Weight>999 then
Uo.Print('Âñå, ïåðåâåñ, áëèí. Âûáðîñü âñå íàõðåí!')
UO.Print('Â ïàêå' + Str( UO.Count( 0x0F51 ) ) + 'êèíæàëîâ' )
return
endif
until UO.DEAD()
end sub
Author:  -=JoKeR=- [ 2007-11-10 02:58:55 ]
Post subject: 
1) Поставь здесь своё меню :
UO.WaitMenu ('Blacksmithing', 'Weapons', 'Weapons', 'Fencing', 'Fencing', 'Dagger')
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/