Yoko
http://forum.yoko.com.ua/

Iron droping
http://forum.yoko.com.ua/viewtopic.php?f=17&t=12761		 Page 1 of 1
Author:  Mazer [ 2007-11-13 21:45:17 ]
Post subject:  Iron droping
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 ;)
Author:  Mazer [ 2007-11-13 22:04:20 ]
Post subject: 
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
Author:  -=JoKeR=- [ 2007-11-15 21:07:29 ]
Post subject: 
Code:
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 ? =)
Author:  Mazer [ 2007-11-17 08:36:19 ]
Post subject: 
yes aboslutly this :) thanks ;)
Author:  Scripts Writer [ 2007-11-17 09:31:54 ]
Post subject: 
-=JoKeR=- wrote:
Code:
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:
sub 
  while
    if
  wend
end sub


You have to close if operator
Author:  Mazer [ 2007-11-17 09:58:19 ]
Post subject: 
there is a lot of mistakes ;) it drops 25 iron :D not 1 ;D
Author:  Scripts Writer [ 2007-11-17 10:16:52 ]
Post subject: 
Change

Code:
uo.Drophere

to

Code:
uo.moveitem('finditem','1','ground')
Author:  Mazer [ 2007-11-17 10:25:54 ]
Post subject: 
Code:
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:)
Author:  Scripts Writer [ 2007-11-17 10:53:41 ]
Post subject: 
Mazer wrote:
Code:
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
Author:  Mazer [ 2007-11-17 10:58:06 ]
Post subject: 
how to close if operation ? :/
Author:  Scripts Writer [ 2007-11-17 11:02:08 ]
Post subject: 
Not operation,- operator. Look for it in other scripts.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/