Page 1 of 1

Cutting leather script

Posted: 2004-05-24 20:39:34
by serpentkillers
I did a script:

Code: Select all

sub botas()
VAR i
dim botas[4]
botas[1]= 0x170b
botas[2]= 0x170f
botas[3]= 0x170e
botas[4]= 0x1711
Start:
For i = 1 to 4
UO.Usetype("0x0f9e")
Wait(1000)
UO.WaitTargetobject("botas[i]")
wait(4000)
next
goto Start
end sub


- botas[1,2,3,4] are the types of boots
- "0x0f9e" is the scissors

The problem is: when i try to run it, cames a msg "what you select didn't exists"

Re: Cutting leather script

Posted: 2004-05-25 00:33:37
by Kazoo
serpentkillers wrote:I did a script:

Code: Select all

sub botas()
VAR i
dim botas[4]
botas[1]= 0x170b
botas[2]= 0x170f
botas[3]= 0x170e
botas[4]= 0x1711
Start:
For i = 1 to 4
UO.Usetype("0x0f9e")
Wait(1000)
UO.WaitTargetobject("botas[i]")
wait(4000)
next
goto Start
end sub


- botas[1,2,3,4] are the types of boots
- "0x0f9e" is the scissors

The problem is: when i try to run it, cames a msg "what you select didn't exists"


becouse it's need to be so

Code: Select all

UO.WaitTargetobject("botas[i]")
UO.Usetype("0x0f9e")
Wait(1000)

mejor

Posted: 2004-05-25 00:36:42
by toqui
sub botas()
VAR i
dim botas[4]
botas[1]= 0x170b
botas[2]= 0x170f
botas[3]= 0x170e
botas[4]= 0x1711
Start:
For i = 1 to 4
UO.Usetype("0x0f9e")
Wait(1000)
UO.WaitTargettype("botas[i]")
wait(4000)
next
goto Start
end sub

Posted: 2004-05-25 17:10:18
by Biga

Code: Select all

dim botas[4]
 
botas[0]= 0x170b
botas[1]= 0x170f
botas[2]= 0x170e
botas[3]= 0x1711
Start:
For i = 0 to 3
...


Dim botas[4] declares array 0..3.
(Йоко, я прав?)

Code: Select all

UO.WaitTargettype("botas[i]") 

Right: UO.WaitTargettype(botas[i])