кинжалы из цвет мета
Posted: 2004-11-27 05:49:10
проблема такая.. взял скрипт с форума на бс
#####################################################
### Blacksmitchy Script Vor Iron Metal v. 1.00. ###
### ###
### Copyright & tested by cOoler on DRW Shard. ###
### ###
### Oficial DRW Shards site - http://www.drw.ru ###
###############################################
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(0x401191DD) ; ????
Endif
UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x4013C4AA') ;C????? ? ??????
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub
оч хороший скрипт долго им пользовался пока на железе прокачивал но как дело дошло до цвет мета вайтменю перестает работать толи цепь меню толи еще что0то вообщем как я не мучался вайт меню не работает(
Может кто нить поможет заменить в этом скрипте вайтменю на что нить другое или скажет как прально настроить например на расти кинжалы...????
#####################################################
### Blacksmitchy Script Vor Iron Metal v. 1.00. ###
### ###
### Copyright & tested by cOoler on DRW Shard. ###
### ###
### Oficial DRW Shards site - http://www.drw.ru ###
###############################################
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(0x401191DD) ; ????
Endif
UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x4013C4AA') ;C????? ? ??????
wait(1000)
UO.Grab('1000','finditem')
Endif
wait(1000)
wend
end sub
оч хороший скрипт долго им пользовался пока на железе прокачивал но как дело дошло до цвет мета вайтменю перестает работать толи цепь меню толи еще что0то вообщем как я не мучался вайт меню не работает(
Может кто нить поможет заменить в этом скрипте вайтменю на что нить другое или скажет как прально настроить например на расти кинжалы...????