Yoko

Code: Select all

sub OrcHelm() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish helmet') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 
end sub

Code: Select all

sub OrcLegs() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish platemail legs') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 
end sub

Code: Select all

sub OrcHands() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish platemail arms') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 
end sub

Code: Select all

sub OrcGloves() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish platemail gloves') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 
end sub

Code: Select all

sub OrcGorget() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish platemail gorget') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 
end sub

Code: Select all

sub OrcShield() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish shield') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 
end sub

Code: Select all

sub OrcPlate() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish platemail chest') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 
end sub

Code: Select all

sub OrcHammer() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race weapons','Orcish Weapons','Orcish hammerpick') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 
end sub

Code: Select all

sub LootFullOrc()     
if uo.waiting() then 
uo.canceltarget() 
endif 
VAR a,Exit 
VAR UnloadCont='0x408787C2'   
DIM Arm[7] 
Arm[0]=0x1F0B ;helm
Arm[1]=0x1413 ;gorg
Arm[2]=0x1410 ;arms
Arm[3]=0x1415 ;chest
Arm[4]=0x1414 ;gloves
Arm[5]=0x1B7B ;shield
Arm[6]=0x143C ;hammer
Arm[7]=0x1411 ;legs
UO.SetReceivingContainer(UnloadCont) 
wait(500) 
For a=0 to 7 
Exit=0 
repeat 
UO.FindType(Arm[a]) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(1500) 
Else 
Exit=1 
endif 
until Exit==1 
Next 
UO.UnSetReceivingContainer() 
end sub 

Code: Select all

Sub Full_Orcish()
var Exit=0 
while Exit<>1 
UO.unsetreceivingcontainer()
UO.FindType('0x1BF2',-1,'backpack') ; Ingi
If UO.GetQuantity('finditem')<200 then 
UO.FindType('0x1BF2',-1,'0x40CCD8AF') ; IngConteiner 
wait(1000) 
UO.Grab('200','finditem') 
wait(100) 
Endif 
UO.FindType('0x0F88',-1,'backpack') ; Ns
If UO.GetQuantity('finditem')<200 then 
UO.FindType('0x0F88',-1,'0x40CCD8AF') ; IngConteiner 
wait(1000) 
UO.Grab('200','finditem') 
wait(100) 
Endif 
Uo.Exec('exec OrcHelm')
wait(10000)
Uo.Exec('exec OrcPlate')
wait(10000)
Uo.Exec('exec OrcHands')
wait(10000)
Uo.Exec('exec OrcGloves')
wait(10000)
Uo.Exec('exec OrcLegs')
wait(10000)
Uo.Exec('exec OrcShield')
wait(10000)
Uo.Exec('exec OrcHammer')
wait(10000)
Uo.Exec('exec LootFullOrc')
wait(15000)
wend
end sub