помогите плиззз со скриптоммм
Posted: 2007-07-12 13:27:50
как зделать так чтобы он работал без нажатия кнопки а лутал автоматом плизз помогите
Code: Select all
sub Loot()
VAR WaitTime=600
VAR Exit=0, i
DIM Loot[29]
Loot[0] = 0x1B78 ; gnom shield
Loot[1] = 0x13FA ; axe
Loot[2] = 0x1402 ; elf pika
Loot[3] = 0x1B74 ; dragon shield
Loot[4] = 0x1B78 ; titan shield
Loot[5] = 0x143A ; first
Loot[6] = 0x14EF ; dids
Loot[7] = 0x0EED ; gp
Loot[8] = 0x1088 ; amuls
Loot[9] = 0x1B76 ; shields
Loot[10] = 0x13FC ; arbalet
Loot[11] = 0x0EED ; ???? ????
Loot[12] = 0x1B74 ; ????
Loot[13] = 0x13C9 ; ???? ????
Loot[14] = 0x13C5 ; ???? ????
Loot[15] = 0x13C6 ; ???? ??????
Loot[16] = 0x13C7 ; ???? ??????
Loot[17] = 0x1DB9 ; ???? ?????
Loot[18] = 0x1411 ; legs
Loot[19] = 0x0E25 ; alebardi
Loot[20] = 0x13B5 ; swords
Loot[21] = 0x1ECD ; hummers
Loot[22] = 0x1404 ; forks
Loot[23] = 0x13B9 ; blade
Loot[24] = 0x13FE ; katana
Loot[25] = 0x0A3E ; ??????
Loot[26] = 0x0E75 ; ??????
Loot[27] = 0x0E76 ; ???
Loot[28] = 0x09B0 ; ???? ?1
Loot[29] = 0x0E79 ; ???? ?2
UO.UseObject('lastcorpse')
;UO.SetReceivingContainer('0x40005077') ; loot store bag
For i=0 to 29
UO.FindType(Loot[i],-1,'lastcorpse')
if UO.GetQuantity('finditem') then
UO.Grab(STR(0),'finditem')
wait(WaitTime)
endif
if UO.GetQuantity('lastcorpse') then
UO.FindType(Loot[i],-1,'lastcorpse')
if UO.GetQuantity('finditem') then
if Loot[i]==0x1078 then
UO.WaitTargetObject('finditem')
UO.UseType('0x0F9E')
else
UO.Grab(STR(0),'finditem')
endif
wait(WaitTime)
endif
endif
next
;UO.UnSetReceivingContainer()
end sub