sub Script1()
var i,n
Dim A[15]
A[1] = 0x0eed ;gold
A[2] = 0x0f25 ;Piese of Amber
A[3] = 0x0f19 ;Sapphire
A[4] = 0x0e21 ;bandage
A[5] = 0x0f21 ;Star Sapphire
A[6] = 0x0f13 ;Ruby
A[7] = 0x0f26 ;Diamond
A[8] = 0x0f10 ;Emerald
A[9] = 0x0f15 ;Citrine
A[10] = 0x1081 ;Cut Leather
A[11] = 0x0f0a ;Poison
A[12] = 0x0f2d ;Tourmaline
A[13] = 0x0f16 ;Amethyst
A[14] = 0x0f88 ;Nightshade
A[15] = 0x0f85 ;Ginseng
i = 100
FOR n=1 TO 15
uo.findtype(A[n],"-1","lastcontainer")
if uo.findcount() > 0 then
UO.grab(0,"finditem")
; uo.print("Found "+str(uo.findcount()))
Wait(i)
end if
NEXT
end sub
---------------------------------------------------------------------------
sub Script2()
while 1
uo.findtype("-1","-1","lastcontainer")
if (uo.findcount()<1) or (uo.getdistance("lastcontainer")>1) then
return
endif
uo.grab(0,"finditem")
wait(600)
wend
end sub
---------------------------------------------------------------------------
sub ramasser()
var mort_M
var test
UO.Print("autoloot on")
debutdrop:
WAIT(500)
test=UO.LastMessage()
mort_M=0
IF test[0]=="B" then
mort_M=mort_M+1
end if
IF test[1]=="o" then
mort_M=mort_M+1
end if
IF test[2]=="d" then
mort_M=mort_M+1
end if
IF test[3]=="y" then
mort_M=mort_M+1
end if
IF mort_M==4 then
UO.say("..")
WAIT(500)
UO.exec("findtype 0x0eed -1 lastcorpse")
UO.grab("0", "finditem")
WAIT(100)
UO.exec("findtype 0x0ef0 -1 lastcorpse")
UO.grab("0", "finditem")
WAIT(100)
UO.exec("findtype 0x0eea -1 lastcorpse")
UO.grab("0", "finditem")
endif
goto debutdrop
end sub
sub stopramasser()
UO.Print("autoloot off")
UO.Exec("terminate ramasser")
end sub
---------------------------------------------------------------------------
sub Script3()
DIM Item[4]
var i
Item[0] = "0x0eed" #Gold
Item[1] = "0x0e75" #Backpack
Item[2] = "0x09a9" #Smallcrate
Item[3] = "0x1f03" #Robe
Item[4] = "0x1515" #Cloack
while UO.Weight < 250
for i=0 to 4
if UO.countground(Item[i]) then
UO.grab(99999,Item[i])
Wait(1500)
endif
next
wend
end sub
---------------------------------------------------------------------------
sub Script 4()
repeat
UO.FindType("0x0EED","-1","lastcorpse") #Gold
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then
UO.Grab("0","finditem")
wait(500)
until false
end sub
Ich gebe keinerlei Garantie für das Funktionieren aller dieser Scripte