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