Register for your free account! | Forgot your password?

Go Back   elitepvpers > General Gaming > General Gaming Discussion
You last visited: Today at 20:49

  • Please register to post and access all features, it's quick, easy and FREE!

 

Diverse Autoloot Scripts

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Apr 2004
Posts: 1,448
Received Thanks: 57
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



Noir is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
agBot Loop Scripts [ Let's Make alist with Mobs Scripts ]
Hello Everyone, i saw that everyone is getting stuck to make agBot Loop Script. so i though we should make a topic a mobs scripts. and i will start....
228 Replies - SRO Hacks, Bots, Cheats & Exploits
Diverse Macroing Scripts
sub evalintpg() repeat uo.exec("useskill &#39;Evaluating Intelligence&#39; self") wait(2000) uo.exec("useskill &#39;Evaluating Intelligence&#39; last")...
0 Replies - General Gaming Discussion



All times are GMT +1. The time now is 20:49.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.