Page 1 of 1
Возможно ли элементы массива записывать пользуясь addobject?
Posted: 2007-02-19 02:40:35
by bahoho
хочу что то типа
Code: Select all
var T
dim object[5]
for i = 1 to 5
uo.addobject('T')
While UO.Targeting()
Wait(100)
Wend
object[i] = T
next
но указаный обьект почему то не записываеться в массив
Re: Возможно ли элементы массива записывать пользуясь addobj
Posted: 2007-02-19 03:13:10
by SLAK
Хмм..Попробуй так.
Code: Select all
sub main
var i
dim XZobject[5]
for i =0 to 4
uo.addobject('T')
While UO.Targeting()
Wait(100)
Wend
XZobject[i] = uo.getserial('T')
next
endsub
зы: впадло проверять
Re: Возможно ли элементы массива записывать пользуясь addobj
Posted: 2007-02-21 09:27:24
by bahoho
не так тож не получаеться
Posted: 2007-02-21 11:15:56
by Nmy
спросите у дестракта - кажется чтото такое я видел только непомню... думаю он знает где или что...
Posted: 2007-02-21 23:30:00
by SLAK
Code: Select all
sub main()
var i
dim XZobject[5]
for i =0 to 4
uo.addobject('T')
While UO.Targeting()
Wait(100)
Wend
XZobject[i] = uo.getserial('T')
uo.textprint(XZobject[i])
next
uo.textopen()
endsub
Проверил, работает!
Posted: 2007-03-16 05:35:56
by Destruction
NMY wrote:спросите у дестракта - кажется чтото такое я видел только непомню... думаю он знает где или что...
Чуть, что - сразу дестракт..
Code: Select all
sub main()
var i, N = 5 ; количество элементов в массиве
DIM something[ val( str( N ) ) ]
For i = 0 To N -1
If uo.Targeting() Then
uo.Say( Chr( 27 ) ) ; Убрать прицел из клиента
End If
If uo.Waiting() Then
uo.CancelTarget() ; Убрать ловушку прицела
End If
uo.AddObject( "object of array" ) ; Добавить объект
While uo.Targeting()
Wait( 100 )
WEnd
something[ i ] = uo.GetSerial( "object of array" ) ; Записать серийник в массив
Next
End Sub