Iron droping

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
Mazer
Posts: 125
Joined: 2007-11-13 00:39:14

Iron droping

Post by Mazer »

Hi, i wanted a script i will try to discribe you

1. For ores droping and smelting
2. it should pickup one ore from backpack and drop it under me
3. then i think i can use UO.usefromground
4. so thats all only one requipment that a script should be with a VAR (for easier configuration)

very thanks ;)
Mazer
Posts: 125
Joined: 2007-11-13 00:39:14

Post by Mazer »

maybe something like this ?? maybe anyone can make it beter ? :)


sub drop()
pradz:
wait(30)
uo.findtype('0x19B9','-1','backpack')
if uo.findcount() then
uo.moveitem('finditem','1','ground')
wait(400)
uo.usefromground('0x19B7')
wait(200)
goto pradz
endsub
-=JoKeR=-
Posts: 173
Joined: 2007-05-26 00:00:56
Location: Украина, Ode$$a:[X-TEAM Group]
Contact:

Post by -=JoKeR=- »

Code: Select all

sub drop() 
var type  = '19b9'
var type2 = '19b7'

while not Uo.Dead()
  uo.findtype(type) 
  if Uo.Findcount() > 0  then 
     Uo.Drophere('finditem') 
     wait(400) 
     Uo.Usefromground(type2) 
     wait(200) 
wend
endsub
something like this ? =)
Image
Mazer
Posts: 125
Joined: 2007-11-13 00:39:14

Post by Mazer »

yes aboslutly this :) thanks ;)
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

-=JoKeR=- wrote:

Code: Select all

sub drop() 
var type  = '19b9'
var type2 = '19b7'

while not Uo.Dead()
  uo.findtype(type) 
  if Uo.Findcount() > 0  then 
     Uo.Drophere('finditem') 
     wait(400) 
     Uo.Usefromground(type2) 
     wait(200) 
wend
endsub
something like this ? =)
You have a mistake. COrrect this

Code: Select all

sub 
  while
    if
  wend
end sub
You have to close if operator
Mazer
Posts: 125
Joined: 2007-11-13 00:39:14

Post by Mazer »

there is a lot of mistakes ;) it drops 25 iron :D not 1 ;D
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Change

Code: Select all

uo.Drophere 
to

Code: Select all

uo.moveitem('finditem','1','ground')
Mazer
Posts: 125
Joined: 2007-11-13 00:39:14

Post by Mazer »

Code: Select all

sub metymas()
Dim Ruda[3]
Ruda[0] = '0x19B9' # then > 3
Ruda[1] = '0x19B8' # then = 3 
Ruda[2] = '0x19BA' # then = 2
Ruda[3] = '0x19B7' # then = 1
Var i
for i = 0 to 3
	UO.FindType(Ruda[i],'-1','backpack')
	if uo.findcount() > 0 then
		uo.moveitem('finditem','1','ground')
		wait(400)
		UO.usefromground('0x19B7')
		wait(200)
wend
endsub
whats wrong here ? ;) i writed it by my self :)) i want something like this:)
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Mazer wrote:

Code: Select all

sub metymas()
Dim Ruda[3]
Ruda[0] = '0x19B9' # then > 3
Ruda[1] = '0x19B8' # then = 3 
Ruda[2] = '0x19BA' # then = 2
Ruda[3] = '0x19B7' # then = 1
Var i
for i = 0 to 3
	UO.FindType(Ruda[i],'-1','backpack')
	if uo.findcount() > 0 then
		uo.moveitem('finditem','1','ground')
		wait(400)
		UO.usefromground('0x19B7')
		wait(200)
wend
endsub
whats wrong here ? ;) i writed it by my self :)) i want something like this:)
1.U have 4 elements in array, but definition only for 3.
2.Close if operator
Mazer
Posts: 125
Joined: 2007-11-13 00:39:14

Post by Mazer »

how to close if operation ? :/
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Not operation,- operator. Look for it in other scripts.
Post Reply