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

264 }2: begin

HeadX:=HeadX-1;

265 }end;

266 } 3: begin

HeadY:=HeadY-1;

267 }end;

268 }4: begin

HeadY:=HeadY+1;

269 }end;

270 }end;

271 }if HeadX>80 then HeadX:=1;

272 }if HeadX<1 then HeadX:=80;

273 }if HeadY>49 then HeadY:=1;

274 }if HeadY<1 then HeadY:=49;

275 }for I:=1 to Dlina do

276 }begin

277 }If (HeadX=SnakeX[i])and(HeadY=SnakeY[i]) then kill;

278 }end;

279 }for i:=1 to 40 do

280 }begin

281 }if (HeadX=BonusX[i])and(HeadY=BonusY[i]) then

282 }begin

283 }Dlina:=Dlina+1;

284 }score:=score+ScorePlus;

285 }addbonus(i);

286 }end;

287 }end;

288 }for I:=Dlina downTo 2 do

289 }begin