home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / games / doomino / domdem.pas next >
Encoding:
Pascal/Delphi Source File  |  1995-03-05  |  5.7 KB  |  175 lines
  1. unit domdem;
  2. interface
  3.    type sat=record
  4.      param  : integer;
  5.     end;
  6. var
  7.      hset:sat ;
  8.     satup:file of sat;
  9.     betux  :array[1..5] of integer;
  10.     betuy  :array[1..5] of integer;
  11.     betusz :array[1..5] of integer;
  12.     betum  :array[1..5] of integer;
  13.     betuk  :array[1..5] of string;
  14.     dominox:array[1..6] of integer;
  15.     domino :array[1..6] of string;
  16.     szin   :array[1..6] of integer;
  17.     idegszin : integer;
  18.     ideg   :array[1..5] of integer;
  19.     idegmeret :array[1..5] of integer;
  20.     nevsz  :array[1..4] of integer;
  21.     i,j,k,s,gd,gm,g,p,a1:integer;
  22.     utvonal : string;
  23.     cg :char;
  24.     procedure forgat;procedure domdemo;
  25. implementation
  26. uses crt,graph;
  27. procedure forgat;  {5 betût forgat}
  28.  label 1;
  29.  begin
  30.   settextstyle(1,0,9);
  31.   for p:=60 downto 0 do
  32.      begin
  33.       delay((a1-1)*50);
  34.       i:=(p*6)-90;
  35.       betux[1]:=round(((sin(i*pi/180))+1)*200+80);{a betû helye}
  36.         betum[1]:=round(((cos(i*pi/180))+1)*4+1); {a betû mérete}
  37.       betux[5]:=600-betux[1];
  38.         betum[5]:=10-betum[1];
  39.         betum[3]:=5;
  40.       betux[2]:=(280+betux[1]) div 2;
  41.         betum[2]:=(betum[1]+5) div 2;
  42.       betux[4]:=600-betux[2];
  43.         betum[4]:=10-betum[2];
  44.        for j:=1 to 5 do
  45.         begin
  46.          if keypressed then goto 1;
  47.          setcolor(0);settextstyle(1,0,idegmeret[j]);
  48.          outtextxy(ideg[j],betuy[j],betuk[j]);
  49.          setcolor(szin[j]);settextstyle(1,0,betum[j]);
  50.          outtextxy(betux[j],betuy[j],betuk[j]);
  51.          ideg[j]:=betux[j];idegmeret[j]:=betum[j];
  52.         end;
  53.      end;
  54.  1:
  55.  end;
  56.  
  57.  procedure domdemo;
  58.   begin
  59.    settextjustify(centertext,centertext);
  60.    getdir(0,utvonal);if copy(utvonal,length(utvonal),1)<>'\' then utvonal:=utvonal+'\';
  61.      assign(satup,utvonal+'setup.dat');
  62.      reset(satup);
  63.        with hset do
  64.                  begin
  65.                   read(satup,hset);a1:=param;
  66.                  end;
  67.           close(satup);
  68.  for i:=1 to 5 do betuk[i]:=copy('SVEGA',i,1);
  69.  for i:=1 to 6 do domino[i]:=copy('Dominó',i,1);
  70.   for i:=1 to 5 do
  71.    begin
  72.     betux[i]:=i*100;
  73.     betuy[i]:=100;
  74.     betusz[i]:=5;
  75.     betum[i]:=10;
  76.   end;
  77.  settextstyle(1,0,9);
  78.    szin[1]:=red;szin[2]:=blue;szin[3]:=yellow;
  79.    szin[4]:=green;szin[5]:=cyan;szin[6]:=white;
  80.    dominox[1]:=95;dominox[2]:=175;dominox[3]:=235;
  81.    dominox[4]:=365;dominox[5]:=405;dominox[6]:=485;
  82.  cleardevice   ;
  83.  setcolor(5);settextstyle(1,0,5);outtextxy(230,250,'SZOFTVER');
  84.  settextstyle(1,0,9);rectangle(225,260,425,295);
  85.  forgat;
  86.   randomize;
  87.   for i:=1 to 30000 do putpixel(random(201)+225,random(36)+260,0);
  88.  setfillstyle(0,0);
  89.  bar(225,260,425,295);
  90.  nevsz[1]:=0;nevsz[2]:=8;nevsz[3]:=7;nevsz[4]:=15;
  91.  settextstyle(1,0,4);
  92.   for i:=1 to 4 do
  93.    begin
  94.     setcolor(nevsz[i]);
  95.     outtextxy(70,250,'Svégel József    &    Garai Ottó');
  96.     delay(a1*30);
  97.    end;
  98.  delay(3000);
  99.   for i:=1 to 4 do
  100.    begin
  101.     setcolor(nevsz[5-i]);
  102.     outtextxy(70,250,'Svégel József    &    Garai Ottó');
  103.     delay(a1*30);
  104.    end;
  105.  setcolor(5);settextstyle(1,0,5);outtextxy(230,250,'SZOFTVER');
  106.  settextstyle(1,0,9);rectangle(225,260,425,295);
  107.  setcolor(green);settextstyle(1,0,1);
  108.  outtextxy(125,455,'Semmilyen jog nincs fenntartva (R) 1995');
  109.  setcolor(4);setlinestyle(0,3,3);
  110.  line(435,455,455,478);line(455,455,435,478); {áthùzás}
  111.   repeat
  112.    forgat;
  113.    until keypressed;cg:=readkey;
  114.   settextjustify(lefttext,toptext);
  115.   {a DOOMINO feliratot vonalanként rajzolja meg,majd adott szinnel feltölti}
  116.   setbkcolor(yellow);cleardevice;
  117.    idegszin:=darkgray;setcolor(idegszin);setlinestyle(1,3,3);
  118.    {d betu}
  119.    ellipse(-20,210,305,40,40,120);ellipse(-20,220,283,75,110,90);
  120.    ellipse(5,220,338,22,40,120);ellipse(-20,220,323,40,80,70);setfillstyle(1,lightred);
  121.    floodfill(30,240,idegszin);
  122.    {o betu}
  123.    ellipse(60,220,330,30,40,100);ellipse(130,170,350,190,35,20);
  124.    ellipse(130,270,170,10,35,20);ellipse(130,220,330,32,40,100);
  125.    ellipse(135,220,0,360,15,35);setfillstyle(1,blue);floodfill(120,240,idegszin);
  126.    {o betu}
  127.    ellipse(145,220,330,30,40,100);ellipse(215,170,350,190,35,20);
  128.    ellipse(215,270,170,10,35,20);ellipse(215,220,330,32,40,100);
  129.    ellipse(220,220,0,360,15,35);setfillstyle(1,lightblue);floodfill(188,240,idegszin);
  130.    {m betu}
  131.    ellipse(260,220,290,87,10,80);ellipse(280,140,0,180,20,5);
  132.    ellipse(325,140,180,0,25,60);ellipse(370,140,0,180,20,7);
  133.    ellipse(390,220,89,260,10,80);ellipse(283,297,180,0,20,5);
  134.    ellipse(368,297,180,0,20,5);ellipse(325,200,220,320,30,40);
  135.    ellipse(302,250,272,25,3,50);ellipse(350,250,155,268,3,50);
  136.    setfillstyle(1,lightgreen);floodfill(300,240,idegszin);
  137.    delay(a1*1500);
  138.    {i betu}
  139.    setfillstyle(1,cyan);fillellipse(420,220,20,80);
  140.    setfillstyle(1,green);fillellipse(420,110,15,10);
  141.    {n betu}
  142.    ellipse(440,220,310,50,20,90);ellipse(525,220,310,50,20,70);
  143.    ellipse(466,150,0,180,13,3);ellipse(524,165,0,180,13,3);
  144.    ellipse(466,290,180,0,13,3);ellipse(524,275,180,0,13,3);
  145.    ellipse(461,245,330,40,20,90);ellipse(495,210,335,30,20,90);
  146.    ellipse(460,260,5,70,52,118);ellipse(525,145,205,255,50,135);
  147.    setfillstyle(1,lightcyan);floodfill(500,240,idegszin);
  148.    {ó betu}
  149.    ellipse(520,220,330,30,40,100);ellipse(590,170,350,190,35,20);
  150.    ellipse(590,270,170,10,35,20);ellipse(590,220,330,32,40,100);
  151.    ellipse(594,220,0,360,15,35);setfillstyle(1,green);floodfill(573,240,idegszin);
  152.    {ékezet}
  153.    ellipse(565,80,320,40,20,40);ellipse(615,80,140,222,20,40);
  154.    ellipse(590,47,300,240,20,10);ellipse(590,115,120,60,20,10);
  155.    setfillstyle(1,cyan);floodfill(590,80,idegszin);
  156.       setcolor(2);settextstyle(1,0,3);
  157.       outtextxy(255,380,'Verzió 2.4');
  158.       delay(a1*1000);
  159.      repeat
  160.       cg:=readkey;
  161.      until cg=#32;
  162.     cleardevice;closegraph;
  163.    end;
  164.   end.
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.