| type_variable = не имя Типа, но имя переменной "Своего" типа |
|
Если вы не ознакомились с к описанием команды TYPE, вам лучше сделать это перед продолжением работы. Используйте эту команду для получения последнего объекта из коллекции "Своего" типа данных (Type). Смотрите пример. Смотрите также: Type, New, Before, After, First, 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 |