Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program snake;
- uses Crt;
- var
- HeadX,HeadY,BodyX,BodyY,TailX,TailY:byte;
- Wiggle:String;
- procedure Board;
- var X,Y:byte;
- begin
- For Y:=1 to 9 do
- begin
- For X:=1 to 9 do
- begin
- if (((HeadX=X) and (HeadY=Y)) or ((BodyX=X) and (BodyY=Y)) or ((TailX=X) and (TailY=Y))) then
- TextColor(Green) else TextColor(White);
- Write('# ');
- end;
- WriteLn;
- end;
- end;
- begin
- TailX:=4; TailY:=5;
- BodyX:=5; BodyY:=5;
- HeadX:=6; HeadY:=5;
- Board;
- Write('Where shall I wiggle? '); ReadLn(Wiggle);
- ReadLn;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement