home *** CD-ROM | disk | FTP | other *** search
/ Hacks & Cracks / Hacks_and_Cracks.iso / vol1 / pc_gxcrk.zip / TEST.PAS < prev    next >
Pascal/Delphi Source File  |  1997-01-27  |  10KB  |  252 lines
  1. uses crt,stringop,grafica,g_applic,util256,graph,mouse,dos;
  2.  
  3. type adapplic=object(g_application)
  4.                 procedure background; virtual;
  5.               end;
  6.  
  7. var s            : string        ;
  8.     w            : adapplic      ;
  9.     i,fw,nw      : word          ;
  10.     p1,p2        : palette256    ;
  11.     pre          : byte          ;
  12.     soare        : soarece       ;
  13.     ala          : integer       ;
  14.  
  15. const
  16.     reg_nume : string='cRACKeD bY:';
  17.     reg_firma: string='eMX oF PC97!';
  18.     reg_no   : string='    ;) ';
  19.     trk_2    : integer=220;
  20.     trk_3    : integer=1232;
  21.  
  22. const backgroundu:string='porn02.tpi';
  23.  
  24. procedure adapplic.background;
  25. var f,n: integer;
  26. begin
  27.      hide;
  28. {    setviewport(0,21,639,454,true);
  29.      for f:=0 to 4 do
  30.        for n:=0 to 4 do begin
  31.                              setfillstyle(1,9);
  32.                              bar(f*160,n*100,f*160+159,n*100+99);
  33.                         end;
  34.      setviewport(0,0,639,479,true);}
  35.      setfillstyle(1,0); bar(0,0,getmaxx,getmaxy);
  36.      show;
  37. end;
  38.  
  39. procedure grad2;
  40. label 1;
  41. begin
  42.   fer_tip:=5; fer_spc:=5; {selecteaza tipul de buton}
  43.   w.newwin(40,40,350,320,long2str(memavail),true);
  44.   w.newchenar(55,80,335,213,10,2,false);
  45.   w.newcheck(75,90, ' ~L~ow level formatting your HDD',3,true);
  46.   w.newcheck(75,110,' Prompt before ~b~eginning',2,false);
  47.   w.newcheck(75,130,' Format boot and ~p~artition table',1,true);
  48.   w.newcheck(75,150,' Perform ~u~nconditional format',1,true);
  49.   w.newcheck(75,170,' Format all your ~f~ixed drives',3,true);
  50.   w.newcheck(75,190,' Put ~s~ystem back to disk',2,false);
  51.   w.newtext(53,230,'  WARNING!!! This program is just about  ');
  52.   w.newtext(53,240,' to format your HDD. Stay cool! You will ');
  53.   w.newtext(56,250,'have the entire HDD''s space just fou you');
  54.   w.newchenar(50,260,340,300,10,2,true);
  55.   w.newbut(80,270,180,290,'Vi~e~w file',9,os2,'');
  56.   w.newbut(210,270,310,290,'~P~rocent',9,os2,'');
  57.   repeat
  58.     w.handleevent;
  59.     case cm of
  60.       2: begin
  61.            s:=w.browse(120,50,'*.*',long2str(memavail));
  62.            if s<>'' then w.viewer(50,70,s,s);
  63.            cm:=0;
  64.          end;
  65.       3: begin
  66.            fer_tip:=6; w.newwin(70,90,415,320,long2str(memavail),true);
  67.            w.newprocent(80,160,400,175,0,1);
  68.            w.newprocent(80,230,400,245,0,4);
  69.            w.change_procent(1,100);
  70.            w.newtext(80,130,'~Progress:~');
  71.            w.newtext(80,200,'~Remaining:~');
  72.            w.newbut(110,280,230,300,'~O~K',10,os2,#13);
  73.            w.newbut(250,280,370,300,'~C~ancel',10,os2,#27);
  74.            w.setbuton(2,false);
  75.  
  76.            for i:=1 to 100 do begin
  77.                                 w.change_procent(0,i);
  78.                                 w.change_procent(1,(100-i));
  79.                                 delay(10);
  80.                                 if keypressed or w.mouse_pressed then
  81.                                    begin w.handleevent; if (cm<>0) and (cm<>65535) then goto 1; end;
  82.                               end;
  83.            w.setbuton(2,true);
  84.            w.setbuton(3,false);
  85.            repeat
  86.              w.handleevent;
  87.            until (cm=1) or (cm=2);
  88.  
  89.            1:w.sterge_procent; w.sterge_procent; w.sterge_procent;
  90.            w.clrwin(1);
  91.            cm:=0;
  92.          end;
  93.     end;
  94.   until cm=1;
  95.   w.clrwin(1); cm:=0;
  96. end;
  97.  
  98. begin
  99.   soundenable:=false;
  100.   w.init; _paleta:=3; w.ini_paleta;
  101.   fer_tip:=0;
  102.   t_color:=true;
  103.   memimage:=true;
  104.   relief:=false;
  105.   nr_expl:=10;
  106.  
  107.   w.newwin(0,0,getmaxx,20,'',false);
  108.   w.newchenar(0,455,639,479,0,1,false);
  109.   w.newfill(1,456,638,478,10,1);
  110.   w.newchenar(2,457,520,476,0,1,true);
  111.   w.newchenar(530,457,637,476,0,1,true);
  112.   w.newbut(2,2,52,18,'~F~ile',4,os2,'');
  113.   w.newbut(52,2,102,18,'~C~lock',4,os2,'');
  114.   w.newbut(102,2,152,18,'~A~bout',4,os2,'');
  115.   w.newbut(152,2,212,18,'~R~eadme',4,os2,'');
  116.   w.newbut(212,2,282,18,'S~h~ow win',4,os2,'');
  117.   w.newbut(282,2,352,18,'S~h~ow but',4,os2,'');
  118.   w.newbut(352,2,412,18,'~P~alette',4,os2,'');
  119.   w.newbut(412,2,482,18,'Re~g~ister',4,os2,'');
  120.   w.newbut(482,2,522,18,'~Q~uit',4,os2,'');
  121.   w.newbut(580,2,635,18,'~H~elp',4,os2,'');
  122.  
  123.   w.setbuton(10,false);
  124.   repeat
  125.     w.handleevent;
  126.     case cm of
  127.       1 : grad2;
  128.       2 : w.clock(180,100,460,370,'Clock - '+long2str(memavail));
  129.       3 : begin
  130.             fer_tip:=5;
  131.             w.newwin(40,70,520,350,'About Grafica - tESt ('+long2str(memavail)+')',true);
  132.             w.newchenar(60,105,500,165,10,2,false);
  133.             w.newchenar(120,175,440,330,10,2,true);
  134.             w.newfill(62,107,498,163,12,1);
  135.             w.newtext(70,115,'                      ~GRAFICA Warp 2.0~                      ');
  136.             w.newtext(70,125,'        With ~GRAFICA~ you can make wonderfull graphic        ');
  137.             w.newtext(70,135,'interfaces, performanced and friendfull for programs make in');
  138.             w.newtext(70,145,'~Turbo/Borland PASCAL 7.0~. The easyest programming with this ');
  139.             w.newtext(70,155,'    library is shown by the source code of this program.    ');
  140.             w.newtext(80,190,'                       ~GRAFICA (tm)~                         ');
  141.             w.newtext(80,220,'                    ~Gabriel CIOBOTARU~                       ');
  142.             w.newtext(80,235,'        2:530/106@fidonet, gabriel@ysnet.pcnet.ro           ');
  143.             w.newtext(80,260,'                      ~Adrian SUDITU~                         ');
  144.             w.newtext(80,275,'        2:530/110@fidonet, asuditu@pcnet.pcnet.ro           ');
  145.             w.newtext(80,300,'                        ~Alex SOVU~                           ');
  146.             w.newtext(80,315,'            2:530/108@fidonet, as@qs.pcnet.ro               ');
  147.             repeat
  148.               w.handleevent;
  149.             until cm<>0;
  150.             w.clrwin(1); cm:=0;
  151.           end;
  152.        4: w.viewer(60,80,'New viewer...','grafica.doc');
  153.        5: begin
  154.             for fw:=0 to 6 do
  155.             begin
  156.               fer_tip:=fw;
  157.               w.newwin(30+fw*30,20+fw*20,200+fw*30,230+fw*20,'Window type '+int2str(fw),true);
  158.             end;
  159.             for fw:=0 to 6 do
  160.               begin
  161.                 repeat
  162.                   w.handleevent;
  163.                 until cm<>0; cm:=0;
  164.                 w.clrwin(1);
  165.               end;
  166.             end;
  167.        6: begin
  168.             fer_tip:=6; w.newwin(200,20,440,450,'Testing window',true);
  169.             w.newchenar(218,60,422,142,10,1,true);
  170.             w.newchenar(221,63,419,139,10,1,false);
  171.             w.newchenar(210,150,430,430,0,1,true);
  172.             w.newchenar(212,152,428,428,0,1,true);
  173.             w.newchenar(214,154,426,426,0,1,true);
  174. {           w.newfill(219,156,421,429,1,1);}
  175.             w.newtext(230,80, ' For testing the buttons  ');
  176.             w.newtext(230,95, 'just push it with for exit');
  177.             w.newtext(230,110,'  please push the close   ');
  178.             w.newtext(230,125,' button from thw window.  ');
  179.             for fw:=0 to 10 do
  180.               w.newbut(220,160+24*fw,310,155+24*(fw+1),'But.OS/2 ~'+int2str(fw)+'~',fw,os2,#255);
  181.             for fw:=0 to 10 do
  182.               w.newbut(330,160+24*fw,420,155+24*(fw+1),'But.DOZE ~'+chr(32+fw)+'~',fw,windoze,#255);
  183.             repeat
  184.               w.handleevent;
  185.             until cm=1; w.clrwin(1);
  186.           end;
  187.        7: begin
  188.             fer_tip:=5; w.newwin(120,110,520,350,'Testing Trackers ...',true);
  189.             w.newtracker(160,150,480,1,8,_paleta);
  190.             w.newtracker(160,220,270,10,500,trk_2);
  191.             w.newtracker(280,220,480,100,1400,trk_2);
  192.             w.newbut(160,300,260,320,'T~e~ster',9,os2,'');
  193.             w.newbut(270,300,370,320,'C~a~ncel',9,os2,'');
  194.             w.newbut(380,300,480,320,'He~l~p',9,os2,'');
  195.             ala:=2;
  196.             repeat
  197.               w.handleevent;
  198.               if cm=65532 then begin
  199.                                     _paleta:=w.get_tracker(1);
  200.                                     w.ini_paleta;
  201.                                end;
  202.             until cm=1;
  203.             _paleta:=w.get_tracker(1); w.ini_paleta;
  204.             trk_2:=w.get_tracker(2);
  205.             trk_3:=w.get_tracker(3);
  206.             w.clrwin(1);
  207.           end;
  208.        8: begin
  209.                 fer_tip:=5; w.newwin(120,110,520,350,'Registering ...',true);
  210.                 w.newtext(140,160,'~N~ame: ');
  211.                 w.newinput(210,153,510,167,reg_nume,'N');
  212.                 w.newtext(140,180,'~C~ompany: ');
  213.                 w.newinput(210,173,510,187,reg_firma,'C');
  214.                 w.newtext(140,200,'~R~egistration number: ');
  215.                 w.newinput(290,193,510,207,reg_no,'R');
  216.                 w.newchenar(140,220,500,275,0,1,true);
  217.                 w.newtext(150,230,'Please enter your correct ~N~ame, ~C~ompany details');
  218.                 w.newtext(150,245,'     and ~R~egistration number to complete the     ');
  219.                 w.newtext(150,260,'             ~REGISTRATION~ procedure.             ');
  220.                 w.newbut(160,285,260,305,'Re~g~ister',9,os2,'');
  221.                 w.newbut(270,285,370,305,'C~a~ncel',9,os2,'');
  222.                 w.newbut(380,285,480,305,'He~l~p',9,os2,'');
  223.                 w.newchenar(140,315,310,340,0,1,false);
  224.                 w.newcheck(150,320,' R~e~gister all UNITS',2,true);
  225.                 w.newchenar(330,315,500,340,0,1,false);
  226.                 w.newcheck(340,320,' ~S~end license no.',3,true);
  227.                 repeat w.handleevent; until cm=1;
  228.                 reg_nume:=w.get_input(1);
  229.                 reg_firma:=w.get_input(2);
  230.                 reg_no:=w.get_input(3);
  231.                 w.clrwin(1);
  232.            end;
  233.     end;
  234.   until cm=9;
  235.   w.clrwin(1); w.done;
  236.   Writeln('Low Level formatting ',w.check_result(0));
  237.   Writeln('Prompt ',w.check_result(1));
  238.   Writeln('Format boot ',w.check_result(2));
  239.   Writeln('Unconditional ',w.check_result(3));
  240.   Writeln('Format all ',w.check_result(4));
  241.   Writeln('Put system ',w.check_result(5));
  242.   Writeln('Log file: ',s);
  243.   Writeln('Returned: ',pre);
  244.   Writeln('===============================');
  245.   Writeln('Registration name : ',reg_nume);
  246.   Writeln('Registration comp.: ',reg_firma);
  247.   Writeln('Registration no.  : ',reg_no);
  248.   Writeln('===============================');
  249.   Writeln('Tracker 1 : ',_paleta);
  250.   Writeln('Tracker 2 : ',trk_2);
  251.   Writeln('Tracker 3 : ',trk_3);
  252. end.