Реферат Розробка ігрового програми на мові PascalABC.NET

p>

end;

{Метод визначає активного гравця}

procedure ActivePlayer (player: Players);. Stop;. Start;: = player;: = 1; {Якщо дорівнює 1, то разрешно одне натискання на Enter}

Angle: = 90; {Задаємо початковий кут}: = time_step;

Speed: = 0; {Початкова швидкість};;

end;

{Метод визначає хто є не активні гравцем}

procedure PassivePlayer (player: Players);: = player;

end;

{Таймер відраховує скільки є секунд на хід}

procedure Seconds; sub_nil: string; (Sec); (Sec <10) then sub_nil: = '0 'sub_nil: =''; Sec <1 then begin + = 1;: = TRUE ;;. FontColor: = ActPlayer.Color;. Text: = '00: '+ sub_nil + Sec.ToString;;

{Запуск гри} GameInit;;;;: = TRUE;: = 0; TRUE do beginStepStatus = TRUE then begin (Counter mod 2 = 0) then begin (Player1); (Player2);: = FALSE; else begin (Player2); (Player1);: = FALSE;;; (1000);;;

{Рестарт ігри} RestartGame;. LifeInit;. LifeInit;;. Start;: = time_step;. Visible: = FALSE;. ChangePicture ('models original_tower.png');. ChangePicture (' models original_tower.png ');;

{Кінець гри} GameOver;. Stop;. Visible: = TRUE;. TextScale: = 0.6;. FontColor: = clWhite;. Text: = ActPlayer.Name + 'здобув перемогу!';

end;

{Метод виведення на екран хід поточного гравця}

procedure StepPrint;. FontColor: = ActPlayer.Color;. Text: = 'Хід гравця:' + ActPlayer.Name;;

{Стан життів} LifePrint; life: string;. FontColor: = clWhite;. FontColor: = clWhite;. TextScale: = 0.4;. TextScale: = 0.4;. Text: = Player1.Life. ToString;. Text: = Player2.Life.ToString;;

{Ніки гравців} NamePrint;. FontColor: = Player1.Color;. FontColor: = Player2.Color;. Text: = Player1.Name;. Text: = Player2.Name;;

{Індикатори сили} IndicatorPrint;. Redraw;

PowerP2.Redraw;;

{Метод змінює зображення вежі залежно від уроня HP}

procedure ChangeTower; (PasPlayer.Life> 90) and (PasPlayer.Life <100) then PasPlayer.ChangePicture ('models tower_crack 1.png') if PasPlayer.Life> 80 then PasPlayer.ChangePicture ('models tower_crack 2.png') if PasPlayer.Life> 70 then PasPlayer.ChangePicture ('models tower_crack 3.png') if PasPlayer.Life> 60 then PasPlayer.ChangePicture (' models tower_crack 4.png ') if PasPlayer.Life> 50 then PasPlayer.ChangePicture (' models tower_crack 5.png ') if PasPlayer.Life> 40 then PasPlayer.ChangePicture (' models tower_crack 6. png ') if PasPlayer.Life> 30 then PasPlayer.ChangePic...