| type_variable = не имя Типа, но имя переменной "Своего" типа |
|
Если Вы не ознакомились с командой TYPE, Вам лучше сделать это перед продолжением
чтения. Используйте это для получения первого объекта из коллекции объектов "Своего" типа данных. Смотрите пример. Смотрите также: Type, New, Before, After, Last, Each, Insert, Delete. |
|
; Определение мастера Type Type crafts Field x Field y Field dead Field graphic End Type ; Создание 100 мастеров, с уникальными именами чужих For t = 1 To 100 alien.crafts = New crafts alien\x = Rnd(0,640) alien\y = Rnd(0,480) alien\dead = 0 alien\graphic = 1 Next ; Перемещение на место первого объекта alien.crafts = First crafts Print alien\x Print alien\y Print alien\dead Print alien\graphic ; переход к следующему объекту alien = After alien Print alien\x Print alien\y Print alien\dead Print alien\graphic ; переход к последнему объекту чужих alien.crafts = Last crafts Print alien\x Print alien\y Print alien\dead Print alien\graphic ; переход к предпоследнему объекту чужих alien = Before alien Print alien\x Print alien\y Print alien\dead Print alien\graphic |