MIDlet Pascal
Поиск по сайту
Форма входа

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Яндекс.Метрика

Друзья сайта
IT юмор - развлечения
Заработать в интернете - легко!Просто сиди и кликай.
Понедельник, 28.05.2018, 04.08.42
Приветствую Вас Гость | RSS
Главная | Регистрация | Вход
Урок №10 - Автоматическое пополнение статистик
Урок достаточно простой, даже для начинающего.Много мне было вопросов как сделать Автоматическое пополнение статистик. Вот я и раскажу сейчас как сообразить поминутные надбавки, если это будет стратегия или пополнение здоровья игрока. Добовляем переменные.

var
 time:integer;//секунды
 setMinute:integer;//минуты
 Money:integer;//пенсия
 HP:integer;//жизни

Все просто! Продолжим с новых процедур.

Procedure addStatic;//пополнение статистик
Begin
  if (HP<100) then HP:=HP+25;//пополняем жизни
 Money:=Money+5;//пополняем пенсию
End;
 

Procedure ControlStatic;//контроль статистик
Begin
 time:=getMinute(getCurrentTime);//время в минутах
  if (setMinute<>time) then //проверяем изменились ли минуты)
  Begin
 setMinute:=time;//сохраняем минуту
 addStatic;//выполняем пополнение статистик
 End;
End;

Розбираем. В процедуре addStatic можно выполнять как прибавление статистики так и отбавление.То есть вы можите не прибовлять пенсию пользователю, а наоборот вычитать или уровень жизни пользователя независимо от вашей задержки приложения, процедура будет выполнена раз в минуту благодаря процедуре ControlStatic.Для активации всего процесса достаточно прописать процедуру ControlStatic в вашем цыкле.
Завиршим свой код.

Begin
 Repeat
 SetColor(0,0,0);
  FillRect(0,0,240,320);//чистим дисплей
 
 ControlStatic;//вызываем контроль
 SetColor(255,255,255);
 DrawText('Жизни: '+HP+'%', 5, 5);//выводим статистику
 DrawText('Пенсия: '+Money+'$', 5, 25);//выводим статистику
 
 Repaint;
  Delay(10); 
  Until False;
End.
Готово компилируем приложение.
Мы закончили с контролем статистик!
Скачать готовый пример можно здесь
Автор: Андрей Ступницкий:)
Если вы нашли ошибки/очепятки в тексте то сообщите о них на форуме
А также можете заказать программу/игру на этой странице

www.parkflyer.ru - радиоуправляемые модели, радиоуправляемые модели самолетов, магазин радиоуправляемых моделей
Роспись стен, скульптуры на заказ
Wladymyr © 2012-2018
Создать бесплатный сайт с uCoz