[burovalex]

Помогите пожалуйста, не могу понять как классы создаются и используются..
Мне нужен только маленький пример.
Задача: создать свой класс npc, создать поля Pos, Life. Создать пару npc, и двигать их поочереди, т.е. выбрать первого, передвинуть, поставить в конец списка.

Вот как примерно будет на блитце, для ясности
Type npc
Field Pos#,Life
End Type

for i=1 to 2
npc.npc = New npc
npc\Pos = rnd(10)
npc\Life = 100
next


function UpdateNPC()
npc.npc = First npc
npc\Pos = npc\Pos+0.01
Insert npc.npc After Last npc
end function