programi-games.at.ua

Для мини игры

Кнопка старт 

c("timer1")->enable = true;

c("timer1")->repeat = true;

c("button1")->enabled = false;

c("image1")->enabled = true;

c("labCou")->caption = 0;

c("labTime")->caption = 0;

c("progress1")->position=0;

Картинка 

$l= rand(0,c("panel1")->w-c("image1")->w);

$t= rand(0,c("panel1")->h-c("image1")->h);

c("image1")->x =$l;

c("image1")->y =$t;

c("labCou")->caption +=1 ;

Таймер

c("progress1")->position +=1;

$time=c("progress1")->position;

c("labTime")->caption =$time;

if($time==50)

{

c("timer1")->enable = false;

c("image1")->enabled = false;

MessageBox("Ваш результат: ".c("labCou")->caption, "Сообщение!");

c("button1")->enabled = true;

}