Реферат: Программирование игры Змейка

ScorePlus:=25;

End;

162 }6: Begin

OverRes(f);

ClrScr;

goto b;

End;

163 }End;

164 }CLRSCR;

165 }End;

{---------------------------------------------------------}

166 }Procedure DrawSnake;

167 }Begin

168 }textcolor(15);

169 }gotoxy(1,50);

170 }write(' ');

171 }gotoxy(1,50);

172 }write('Oчки: ',Score);

173 }gotoxy(20,50);

174 }write('Програму разрoбив Матковський Руслан aka Pat');

175 }gotoxy(65,50);

176 }write(' ');

177 }gotoxy(65,50);

178 }write('Довжина: ',Dlina);

179 }Symbol(SnakeX[1],SnakeY[1],chr(15));

180 }textcolor(2);

181 }for i:=2 to Dlina do begin

182 }Symbol(SnakeX[i],SnakeY[i],chr(15));

183 }end;