1. x,y – êîîðäèíàòû øàðèêà;
2. x1_dv,x2_dv – êîîðäèíàòû ïëàíêè ïî îñè Õ;
Âûõîäíûå äàííûå:
3. x,y – êîîðäèíàòû øàðèêà;
4. x1_dv,x2_dv – èçìåíèâøèåñÿ êîîðäèíàòû ïëàíêè ïî îñè Õ;
15. procedure dviguna_mouse(const koeff:byte;var x,x1_dv,x2_dv:t_kubik;var y:t_kubik);
Íàçíà÷åíèå: îæèäàíèå íàæàòèÿ êíîïêè ìûøè äëÿ íà÷àëà íîâîãî ýòàïà, åñëè ïîëüçîâàòåëü èãðàåò ìûøüþ;
Âõîäíûå äàííûå:
1) koeff – êîýôôèöèåíò, îò êîòîðîãî çàâèñèò ðàçìåð ïëàíêè;
2) x,y – êîîðäèíàòû øàðèêà;
5. x1_dv,x2_dv – êîîðäèíàòû ïëàíêè ïî îñè Õ;
Âûõîäíûå äàííûå:
1. x,y – êîîðäèíàòû øàðèêà;
2. x1_dv,x2_dv – èçìåíèâøèåñÿ êîîðäèíàòû ïëàíêè ïî îñè Õ;
16. procedure zar_nar(var x,y:t_kubik;const dx,dy:t_dx_dy);
Íàçíà÷åíèå: çàêðàñêà óæå íàðèñîâàííîãî øàðèêà è íàðèñîâàíèå íîâîãî øàðèêà ñ èçìåí¸ííûìè êîîðäèíàòàìè;
Âõîäíûå äàííûå:
1) x,y – êîîðäèíàòû øàðèêà;
2) dx,dy – îò çíà÷åíèÿ ýòèõ ïåðåìåííûõ çàâèñèò äâèæåíèå øàðèêà â òó èëè èíóþ ñòîðîíó;
Âûõîäíûå äàííûå:
x,y – êîîðäèíàòû øàðèêà;
17. function chem_play:boolean;
Íàçíà÷åíèå: îïðåäåëåíèå ïîëüçîâàòåëåì ÷åì èãðàòü (êëàâèàòóðîé èëè ìûøüþ), ñ íàãëÿäíûì ãðàôè÷åñêèì èíòåðôåéñîì;
Âõîäíûå äàííûå:
Íåò;
Âûõîäíûå äàííûå:
true – èãðàåì ìûøüþ;
false – èãðàåì íà êëàâèàòóðå;
18. procedure razmer_planki(var koeff:byte);
Íàçíà÷åíèå: îïðåäåëåíèå ïîëüçîâàòåëåì ðàçìåðà ïëàíêè;
Âõîäíûå äàííûå:
Koeff – êîýôôèöèåíò, îïðåäåëÿþùèé ðàçìåð ïëàíêè;
Âûõîäíûå äàííûå:
Koeff – êîýôôèöèåíò, îïðåäåëÿþùèé ðàçìåð ïëàíêè; ãðàåì ìûøüþ;
19. procedure naverhu_liv(liv:byte);
Íàçíà÷åíèå: îòîáðàæåíèå íàä ðàìêîé â òå÷åíèå èãðû êîëè÷åñòâà îñòàâøèõñÿ æèçíåé;
Âõîäíûå äàííûå:
liv – ÷èñëî æèçíåé;
Âûõîäíûå äàííûå:
íåò;
20.procedure naverhu_number(numbering:byte);
Íàçíà÷åíèå: îòîáðàæåíèå íàä ðàìêîé â òå÷åíèå èãðû íîìåðà òåêóùåãî óðîâíÿ;
Âõîäíûå äàííûå:
numbering – íîìåð óðîâíÿ;
Âûõîäíûå äàííûå:
íåò;
21. procedure naverhu_kubiki(kol_kub:byte);
Íàçíà÷åíèå: îòîáðàæåíèå íàä ðàìêîé â òå÷åíèå èãðû êîëè÷åñòâà îñòàâøèõñÿ êóáèêîâ;
Âõîäíûå äàííûå:
Kol_kub – ÷èñëî îñòàâøèõñÿ êóáèêîâ;
Âûõîäíûå äàííûå:
íåò;
Ìîäóëü MARK_ZAS
1. procedure zastavka(s2:string);
Íàçíà÷åíèå: â íà÷àëå èãðû èñïîëüçóåòñÿ â êà÷åñòâå çàñòàâêè ñ ìèãàþùåé áîëüøîé íàäïèñüþ «MARKBALL» è íèæå ìèãàþùåé íàäïèñüþ «Click to start» ,òàêæå èñïîëüçóåòñÿ ïðè ïîòåðå âñåõ æèçíåé , íî ïðè ýòîì íèæíÿÿ íàäïèñü áóäåò «You have lost» , à ïðè ïðîõîæäåíèè âñåõ ýòàïîâ íèæíÿÿ íàäïèñü áóäåò «The end of game»;
Âõîäíûå äàííûå:
S2 – íèæíÿÿ ìèãàþùàÿ íàäïèñü;
Âûõîäíûå äàííûå:
íåò;
2. procedure text_na_ekran;
Íàçíà÷åíèå: èñïîëüçóåòñÿ êàê ñïðàâêà ïîêà èãðà åù¸ íå íà÷àëàñü ïðè íàæàòèè êëàâèøè «F1»;
Âõîäíûå äàííûå:
íåò;
Âûõîäíûå äàííûå:
íåò;
3. procedure ochki(score:word);
Íàçíà÷åíèå: â êîíöå èãðû ñ÷èòàåò â ñîîòâåòñòâèè ñ íàáðàííûìè î÷êàìè: çàéì¸ò ëè äàííûé èãðîê, êîòîðûé ââ¸ë ïî çàïðîñó ïðîãðàììû ñâî¸ èìÿ, êàêîå-íèáóäü ìåñòî ñðåäè ïðåäñòàâëåííûõ äåñÿòè ìåñò; åñëè êîëè÷åñòâî íàáðàííûõ î÷êîâ ïîçâîëÿåò èãðîêó çàíÿòü íåêîòîðîå ìåñòî, òî ïðîãðàììà âûâîäèò íà ýêðàí òàáëèöó ëèäåðîâ, âêëþ÷àþùóþ â ñåáÿ èìÿ äàííîãî èãðîêà, â ïðîòèâíîì ñëó÷àå íà ýêðàí âñ¸ æå áóäåò âûâåäåíà òàáëèöà ëèäåðîâ, íî èìåíè äàííîãî èãðîêà ñîäåðæàòüñÿ òàì íå áóäåò;
Âõîäíûå äàííûå:
Score – êîëè÷åñòâî íàáðàííûõ â òå÷åíèè èãðû î÷êîâ;
Âûõîäíûå äàííûå:
íåò;
Îñíîâíàÿ ïðîãðàììà
1. Procedure initgr;
Íàçíà÷åíèå: èíèöèàëèçèðóåò ãðàôèêó â ðåæèìå vgahi;