Теперь мы опишем магию персонажам, т.к. это пример то я упростил все. Вообще по идее нужно делать выбор цели, убирать привязку к игрокам т.е. вообще всю логику заклинаний надо перестроить. Но так как наш проект из разряда не очень сложно (например удивить друзей), то этого будет достаточно. Мы опишем всю магию для каждого персонажа по 2 набора , маг или паладин. Кстати советаю для интереса потавить в уроне небольшой разброс (например 10 - 15) , это можно сделать с помощью счетчика случайных чисел, random(6) и у нас будет 0...5. 
Сразу скажу часть я закомментировал лишнего уже в процессе написания статьи )))

В GLSceneViewer1MouseDown пишем:

     // Magic Player 1 Mage
if fNewGame=true then begin
 //if (Player1.Magic1Name='Thor_p1') or (Player1.Magic2Name='Thor_p1') or (Player1.Magic3Name='Thor_p1') or (Player1.Magic4Name='Thor_p1 ... Читать дальше »