HOME | DD

Sledge3 avatar Sledge3 — Pac-Man in Turbo Pascal
Pac-Man in Turbo Pascal
Published: 2012-06-22 21:10:08 +0000 UTC; Views: 7559; Favourites: 3; Downloads: 95
Redirect to original
Description Program PacMan;
USES CRT,Graph;
var driver,mode:integer;
begin
driver:ETECT;
InitGraph(driver,mode,'C:\TP\BGI');
Setcolor(14); {PacMan}
Circle(172,241,152);
Setfillstyle(1,14);
floodfill(200,150,14);
Setcolor(0);
Circle(129,147,25);
Setcolor(0);
Line(172,241,303,156);
Line(172,241,306,328);
Line(303,156,306,328);
Setfillstyle(1,0);
Floodfill(260,240,0);
setfillstyle(1,0);
floodfill(308,241,0);
Setfillstyle(1,0);
floodfill(130,150,0);
Setcolor(15);
Circle(119,136,5);
Setfillstyle(1,15);
Floodfill(120,137,15);
Setcolor(14); {Zycia}
Circle(47,446,16);
Circle(79,446,16);
Circle(111,446,16);
Setfillstyle(1,14);
Floodfill(50,446,14);
Setfillstyle(1,14);
Floodfill(85,446,14);
Setfillstyle(1,14);
Floodfill(113,446,14);
Setcolor(0);
Line(47,446,31,439);
Line(47,446,31,453);
Line(31,453,31,439);
Line(79,446,63,439);
Line(79,446,63,453);
Line(63,453,63,439);
Line(111,446,95,439);
Line(111,446,95,453);
Line(95,439,95,453);
Setfillstyle(1,0);
floodfill(35,446,0);
Setfillstyle(1,0);
floodfill(65,446,0);
Setfillstyle(1,0);
floodfill(100,446,0);
Setcolor(1); {Ramki}
Rectangle(0,67,639,71);
Rectangle(0,77,639,81);
Rectangle(0,399,639,403);
Rectangle(0,409,639,413);
Setfillstyle(1,1);
Floodfill(1,69,1);
Setfillstyle(1,1);
Floodfill(1,79,1);
Setfillstyle(1,1);
Floodfill(1,401,1);
Setfillstyle(1,1);
Floodfill(1,411,1);
Setcolor(1); {Niebieskie duszki}
Line(244,458,244,443);
Line(244,443,246,437);
Line(246,437,248,437);
Line(248,437,248,435);
Line(248,435,250,435);
Line(250,435,250,433);
Line(250,433,254,433);
Line(254,433,254,431);
Line(254,431,261,431);
Line(261,431,261,433);
Line(261,433,265,433);
Line(265,433,265,435);
Line(265,435,267,435);
Line(267,435,267,437);
Line(267,437,269,437);
Line(269,437,269,443);
Line(269,443,271,443);
Line(271,443,271,458);
Line(271,458,270,458);
Line(270,458,270,456);
Line(270,456,268,456);
Line(268,456,268,454);
Line(268,454,265,454);
Line(265,454,265,456);
Line(265,456,263,456);
Line(263,456,263,458);
Line(263,458,260,458);
Line(260,458,260,454);
Line(260,454,255,454);
Line(255,454,255,458);
Line(255,458,252,458);
Line(252,458,252,456);
Line(252,456,250,456);
Line(250,456,250,454);
Line(250,454,247,454);
Line(247,454,247,456);
Line(247,456,245,456);
Line(245,456,245,458);
Setfillstyle(1,1);
floodfill(252,447,1);
Setcolor(15);
Rectangle(246,451,247,452);
Rectangle(248,449,251,450);
Rectangle(252,451,255,452);
Rectangle(256,449,259,450);
Rectangle(260,451,263,452);
Rectangle(264,449,267,450);
Rectangle(268,451,269,452);
Rectangle(252,441,255,444);
Rectangle(260,441,263,444);
Setfillstyle(1,15);
floodfill(254,442,15);
Setfillstyle(1,15);
floodfill(261,442,15);
Setcolor(1);
Rectangle(286,431,293,432);
Rectangle(282,433,297,434);
Rectangle(280,435,299,436);
Rectangle(278,437,301,442);
Rectangle(276,443,303,454);
Rectangle(276,455,283,456);
Rectangle(278,457,281,458);
Rectangle(286,455,293,456);
Rectangle(288,457,291,458);
Rectangle(296,455,303,456);
Rectangle(298,457,301,458);
Setfillstyle(1,1);
floodfill(280,440,1);
setfillstyle(1,1);
floodfill(280,447,1);
Setcolor(15);
Rectangle(278,451,279,452);
Rectangle(280,449,283,450);
Rectangle(284,451,287,452);
Rectangle(288,449,291,450);
Rectangle(292,451,295,452);
Rectangle(296,449,299,450);
Rectangle(300,451,301,452);
Rectangle(284,441,287,444);
Rectangle(292,441,295,444);
Setfillstyle(1,15);
Floodfill(285,443,15);
Setfillstyle(1,15);
Floodfill(293,443,15);
Setcolor(1);
Rectangle(320,431,327,432);
Rectangle(316,433,331,434);
Rectangle(314,435,333,436);
Rectangle(312,437,335,442);
Rectangle(310,443,337,454);
Rectangle(310,455,313,456);
Rectangle(310,457,311,458);
Rectangle(316,455,321,456);
Rectangle(318,457,321,458);
Rectangle(326,455,331,456);
Rectangle(326,457,329,458);
Rectangle(334,455,337,456);
Rectangle(336,457,337,458);
Setfillstyle(1,1);
Floodfill(315,439,1);
Setfillstyle(1,1);
Floodfill(328,449,1);
Setcolor(15);
Rectangle(312,451,313,452);
Rectangle(314,449,317,450);
Rectangle(318,451,321,452);
Rectangle(322,449,325,450);
Rectangle(326,451,329,452);
Rectangle(330,449,333,450);
Rectangle(334,451,335,452);
Rectangle(318,441,321,444);
Rectangle(326,441,329,444);
setfillstyle(1,15);
floodfill(320,442,15);
setfillstyle(1,15);
floodfill(327,443,15);
Setcolor(1);
Rectangle(352,431,359,432);
Rectangle(348,433,363,434);
Rectangle(346,435,365,436);
Rectangle(344,437,367,442);
Rectangle(342,443,369,454);
Rectangle(342,455,349,456);
Rectangle(344,457,347,458);
Rectangle(352,455,359,456);
Rectangle(354,457,357,458);
Rectangle(362,455,369,456);
Rectangle(364,457,367,458);
Setfillstyle(1,1);
Floodfill(347,439,1);
Setfillstyle(1,1);
Floodfill(346,447,1);
Setcolor(15);
Rectangle(344,451,345,452);
Rectangle(346,449,349,450);
Rectangle(350,451,353,452);
Rectangle(354,449,357,450);
Rectangle(358,451,361,452);
Rectangle(362,449,365,450);
Rectangle(366,451,367,452);
Rectangle(350,441,353,444);
Rectangle(358,441,361,444);
Setfillstyle(1,15);
floodfill(352,442,15);
Setfillstyle(1,15);
floodfill(359,443,15);
Setcolor(4); {Owoce}
Rectangle(419,442,424,453);
Rectangle(417,444,418,451);
Rectangle(425,444,428,445);
Rectangle(425,446,426,447);
Setfillstyle(1,4);
floodfill(421,446,4);
Rectangle(429,446,436,457);
Rectangle(427,448,428,455);
Rectangle(437,448,438,455);
Setfillstyle(1,4);
floodfill(432,451,4);
Setcolor(15);
Rectangle(419,448,420,449);
Rectangle(421,450,422,451);
Rectangle(429,452,430,453);
Rectangle(431,454,432,455);
Setcolor(6);
Rectangle(423,444,424,445);
Rectangle(425,442,426,443);
Rectangle(427,440,428,441);
Rectangle(429,438,432,439);
Rectangle(433,436,440,437);
Rectangle(437,434,440,435);
Rectangle(435,438,436,441);
Rectangle(433,442,434,443);
Rectangle(431,444,432,449);
Setcolor(14);
Rectangle(447,442,466,455);
Setfillstyle(1,14);
floodfill(454,448,14);
Rectangle(445,444,446,451);
Rectangle(451,456,462,457);
Rectangle(467,444,468,451);
Rectangle(449,440,452,441);
Rectangle(459,440,464,441);
Setcolor(6);
Rectangle(455,436,456,443);
Rectangle(453,440,458,441);
Setcolor(2);
Rectangle(459,434,462,435);
Rectangle(457,436,466,437);
Rectangle(459,438,464,439);
Setcolor(2);
Rectangle(477,438,490,455);
Rectangle(481,436,486,437);
Rectangle(481,456,486,457);
Rectangle(475,440,476,453);
Rectangle(473,444,474,449);
Rectangle(491,440,492,453);
Rectangle(493,444,494,449);
Setfillstyle(1,2);
floodfill(482,443,2);
Setcolor(6);
Rectangle(475,444,476,445);
Rectangle(475,448,476,449);
Rectangle(479,440,480,441);
Rectangle(481,446,482,447);
Rectangle(481,450,482,451);
Rectangle(483,436,484,437);
Rectangle(485,442,486,443);
Rectangle(485,450,486,451);
Rectangle(489,446,490,447);
Setcolor(3);
Rectangle(477,430,478,431);
Rectangle(479,432,488,433);
Rectangle(483,434,484,435);
Setcolor(4);
Rectangle(499,438,522,449);
Rectangle(501,450,520,453);
Rectangle(503,454,518,455);
Rectangle(505,456,508,457);
Rectangle(511,456,516,457);
Rectangle(499,438,500,449);
Rectangle(521,440,522,449);
Rectangle(501,436,506,437);
Rectangle(513,436,518,437);
Setfillstyle(1,4);
Floodfill(507,443,4);
Setfillstyle(1,4);
floodfill(503,451,4);
Setcolor(15);
Rectangle(517,446,518,449);
Rectangle(515,450,516,451);
Setcolor(6);
Rectangle(509,436,510,439);
Rectangle(511,434,512,435);
Setcolor(4);
Rectangle(527,440,548,447);
Rectangle(529,448,546,451);
Rectangle(533,452,542,455);
Rectangle(537,456,538,457);
Setfillstyle(1,4);
floodfill(531,444,4);
Setfillstyle(1,4);
floodfill(535,450,4);
Setfillstyle(1,4);
floodfill(538,454,4);
Rectangle(529,438,546,439);
Setcolor(2);
Rectangle(531,436,544,437);
Rectangle(533,438,542,439);
Rectangle(537,440,538,441);
Setcolor(15);
Rectangle(529,442,530,443);
Rectangle(531,448,532,449);
Rectangle(533,444,534,445);
Rectangle(535,452,536,453);
Rectangle(537,444,538,445);
Rectangle(537,448,538,449);
Rectangle(541,442,532,443);
Rectangle(541,452,542,453);
Rectangle(543,446,544,447);
Rectangle(545,440,546,441);
Rectangle(537,434,538,437);
Setcolor(3);
Rectangle(553,436,566,441);
Rectangle(553,434,556,435);
Rectangle(563,434,566,435);
Rectangle(557,432,562,433);
Setfillstyle(1,3);
Floodfill(558,438,3);
Setcolor(7);
Rectangle(557,442,558,455);
Rectangle(559,456,560,457);
Rectangle(561,450,562,455);
Rectangle(563,452,564,453);
Rectangle(561,442,562,447);
Rectangle(563,444,564,445);
Setcolor(14);
Rectangle(575,436,590,453);
Rectangle(577,434,580,435);
Rectangle(581,432,584,433);
Rectangle(585,434,588,435);
Rectangle(573,442,574,453);
Rectangle(571,448,572,455);
Rectangle(591,442,592,453);
Rectangle(593,448,594,455);
Setfillstyle(1,14);
floodfill(583,443,14);
Setcolor(11);
Rectangle(573,454,592,457);
Setfillstyle(1,11);
floodfill(575,455,11);
Setcolor(15);
Rectangle(583,454,586,457);
Setfillstyle(1,15);
floodfill(584,455,15);
Setcolor(0);
Rectangle(575,448,576,451);
Rectangle(577,440,578,445);
Rectangle(579,438,580,439);
Setcolor(1);
Rectangle(599,438,600,447);
Rectangle(601,446,602,449);
Rectangle(603,448,604,451);
Rectangle(605,450,606,453);
Rectangle(613,453,614,450);
Rectangle(615,451,616,448);
Rectangle(617,449,618,446);
Rectangle(619,447,620,438);
Setcolor(14);
Rectangle(609,446,610,457);
Rectangle(603,446,616,447);
Rectangle(601,442,618,445);
Setfillstyle(1,14);
Floodfill(604,444,14);
Setcolor(4);
Rectangle(603,442,606,443);
Rectangle(609,442,610,445);
Rectangle(613,442,616,443);
Rectangle(605,440,614,441);
Rectangle(607,438,612,439);
Rectangle(609,436,610,437);
Setcolor(4); {Namco Logo}
Rectangle(254,28,259,43);
Setfillstyle(1,4);
floodfill(256,37,4);
Rectangle(260,28,271,31);
setfillstyle(1,4);
floodfill(262,29,4);
Rectangle(268,30,273,43);
Setfillstyle(1,4);
floodfill(270,36,4);
Rectangle(280,28,295,31);
Setfillstyle(1,4);
floodfill(287,29,4);
Rectangle(292,30,297,43);
setfillstyle(1,4);
floodfill(295,37,4);
Rectangle(280,34,291,37);
setfillstyle(1,4);
floodfill(285,35,4);
Rectangle(280,40,291,43);
setfillstyle(1,4);
floodfill(291,43,4);
Rectangle(278,36,283,41);
setfillstyle(1,4);
floodfill(280,38,4);
setfillstyle(1,4);
floodfill(288,41,4);
Rectangle(302,32,307,43);
setfillstyle(1,4);
floodfill(304,38,4);
Rectangle(312,32,317,43);
setfillstyle(1,4);
floodfill(315,39,4);
Rectangle(322,32,327,43);
setfillstyle(1,4);
floodfill(324,37,4);
Rectangle(302,28,325,31);
setfillstyle(1,4);
floodfill(312,29,4);
Rectangle(326,30,327,31);
Rectangle(332,30,337,41);
Setfillstyle(1,4);
floodfill(334,36,4);
Rectangle(334,31,349,28);
setfillstyle(1,4);
floodfill(342,30,4);
Rectangle(334,43,349,40);
setfillstyle(1,4);
floodfill(344,41,4);
Rectangle(354,30,359,41);
setfillstyle(1,4);
floodfill(359,41,4);
Rectangle(373,30,368,41);
setfillstyle(1,4);
floodfill(371,36,4);
Rectangle(356,28,371,31);
setfillstyle(1,4);
floodfill(363,29,4);
Rectangle(356,43,371,40);
setfillstyle(1,4);
floodfill(363,42,4);
setfillstyle(1,4);
floodfill(356,35,4);
Setcolor(14); {Kulki}
Circle(257,241,24);
Setfillstyle(1,14);
floodfill(262,237,14);
Setcolor(15);
Circle(249,231,9);
Setfillstyle(1,15);
floodfill(246,234,15);
Setcolor(14);
Circle(366,241,24);
Setfillstyle(1,14);
floodfill(372,232,14);
Setcolor(15);
Circle(358,231,9);
Setfillstyle(1,15);
floodfill(355,234,15);
Setcolor(14);
Circle(475,241,24);
Setfillstyle(1,14);
floodfill(468,249,14);
Setcolor(15);
Circle(467,231,9);
Setfillstyle(1,15);
floodfill(463,234,15);
Setcolor(14);
Circle(584,241,24);
Setfillstyle(1,14);
floodfill(576,251,14);
Setcolor(15);
Circle(576,231,9);
Setfillstyle(1,15);
floodfill(573,234,15);
Sound(1047); {Intro}
delay(2000);
Sound(2093);
delay(2000);
Sound(1568);
delay(2000);
Sound(1319);
delay(2000);
Sound(1047);
delay(2000);
Sound(2093);
delay(2000);
Sound(1568);
delay(2000);
Sound(1319);
delay(4000);
Sound(1111);
delay(2000);
Sound(1664);
delay(2000);
Sound(1664);
delay(2000);
Sound(1397);
delay(2000);
Sound(1111);
delay(2000);
Sound(1664);
delay(2000);
Sound(1664);
delay(2000);
Sound(1397);
delay(4000);
Sound(1047);
delay(2000);
Sound(2093);
delay(2000);
Sound(1568);
delay(2000);
Sound(1319);
delay(2000);
Sound(1047);
delay(2000);
Sound(2093);
delay(2000);
Sound(1568);
delay(2000);
Sound(1319);
delay(3000);
Sound(1319);
delay(1000);
Sound(1397);
delay(1000);
Sound(1483);
delay(2000);
Sound(1483);
delay(1000);
Sound(1568);
delay(1000);
Sound(1664);
delay(2000);
Sound(1664);
delay(1000);
Sound(1760);
delay(1000);
Sound(1868);
delay(2000);
Sound(1868);
delay(1000);
Sound(1976);
delay(1000);
Sound(2093);
delay(2000);
Sound(220); {dzwieki}
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
sound(659); {punkt}
delay(1000);
sound(880);
delay(1000);
sound(1111);
delay(1000);
sound(1319);
delay(2000);
Sound(220); {dzwieki}
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
sound(659); {punkt}
delay(1000);
sound(880);
delay(1000);
sound(1111);
delay(1000);
sound(1319);
delay(2000);
Sound(220); {dzwieki}
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
sound(659); {punkt}
delay(1000);
sound(880);
delay(1000);
sound(1111);
delay(1000);
sound(1319);
delay(2000);
Sound(220); {dzwieki}
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
sound(659); {punkt}
delay(1000);
sound(880);
delay(1000);
sound(1111);
delay(1000);
sound(1319);
delay(2000);
Sound(220); {dzwieki}
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
sound(659); {punkt}
delay(1000);
sound(880);
delay(1000);
sound(1111);
delay(1000);
sound(1319);
delay(2000);
Sound(220); {dzwieki}
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
sound(659); {punkt}
delay(1000);
sound(880);
delay(1000);
sound(1111);
delay(1000);
sound(1319);
delay(2000);
Sound(220); {dzwieki}
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
sound(659); {punkt}
delay(1000);
sound(880);
delay(1000);
sound(1111);
delay(1000);
sound(1319);
delay(2000);
Sound(220); {dzwieki}
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
sound(659); {punkt}
delay(1000);
sound(880);
delay(1000);
sound(1111);
delay(1000);
sound(1319);
delay(2000);
Sound(220); {dzwieki}
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
Sound(220);
delay(500);
sound(278);
delay(500);
sound(330);
delay(500);
sound(440);
delay(500);
sound(1397); {koniec}
delay(1000);
sound(1319);
delay(1000);
sound(1247);
delay(1000);
sound(1175);
delay(1000);
sound(1111);
delay(1000);
sound(1047);
delay(1000);
sound(988);
delay(1000);
sound(1047);
delay(2000);
sound(523);
delay(2000);
sound(784);
delay(2000);
sound(659); {Zakonczenie}
delay(3000);
sound(523);
delay(1000);
sound(587);
delay(3000);
sound(698);
delay(1000);
sound(659);
delay(3000);
sound(523);
delay(1000);
sound(587);
delay(3000);
sound(880);
delay(1000);
sound(784);
delay(3000);
sound(523);
delay(1000);
sound(587);
delay(3000);
sound(523);
delay(1000);
sound(832);
delay(3000);
sound(934);
delay(1000);
sound(1047);
delay(3000);
sound(934);
delay(1000);
sound(832);
delay(3000);
sound(784);
delay(1000);
sound(698);
delay(3000);
sound(587);
delay(1000);
sound(467);
delay(3000);
sound(587);
delay(1000);
sound(659);
delay(3000);
sound(698);
delay(1000);
sound(934);
delay(3000);
sound(832);
delay(1000);
sound(880);
delay(1000);
sound(784);
delay(1000);
sound(698);
delay(1000);
sound(587);
delay(1000);
sound(784);
delay(1000);
sound(698);
delay(1000);
sound(587);
delay(1000);
sound(784);
delay(1000);
nosound;
repeat until keypressed;
closegraph;
end.


FUUUUUUUUUUUUUUUUUU......!!!! Too many commands for one single project. So back to popular character from 1980s again. PacMan. This project works on 32 bit version of Turbo Pascal for sure. Some colors has been changed compare from this preview. Like orange is changed to yellow, because theres no orange color in Turbo Pascal. The music presents Pac-Man intro, Pac-Man eating sound, custom sound, Mario's death theme from Donkey Kong (Atari 2600) and Intro from Galaga. Everything in 1 day.

Pac-Man (c) Namco
Related content

Sledge3 - TMNT3 - Unmasked Shredder

Sledge3 - Heavy Barrel (NES) - Early Setup

Sledge3 - Mario Bros (Arcade) Unused Enemy

Sledge3 - TMNT (NES) - Unknown Enemy

Sledge3 - Salamander 2 for NES

Sledge3 - Rocket Knight Adventures on Game Boy

Sledge3 - MX5000 - NES Title Screen

Sledge3 - Random Pad

Sledge3 - Life Force (Arcade) Unused Graphics

ShadowlesTrigger - [Re-PRISM] Demo DL

TheVioletPrime - Day 273: LOL

steamy2021 - Golden Eggs Sheet 1

YummySinpie - Extra Art

BeeWinter55 - 149. Pac Man

NicolaMaxerHedgehog - Pac-Man Midway (Namco Museum PS1-Style) (Mockup)

AlexTheTankin - Coloured Gameboy Pac-Man Art

gfoyle - Pac Man wallpaper

NES--still-the-best - PacMan

NurseVictoriaFTW - Arcade Game Series: Pac-Man Title Screen

crvnjava67 - Pac-Man Chase Wallpaper

Pac-Boy6789 - Pac-Man MSX

DeluxePac-Man - Deluxe PocMon
Comments: 2

Sledge3 [2012-06-22 21:22:18 +0000 UTC]

Thanks, and actually this project isn't the game, it's a graphics with music. GFA Basic? I wonder what this program can do, maybe I'll find out in second class of TI.

👍: 0 ⏩: 0

Treehouse77 [2012-06-22 21:11:38 +0000 UTC]

that cool and old school! I should write something similar in gfa Basic on my old Commodore Amiga 500! Well Done!

👍: 0 ⏩: 0


1