home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PINBSRC.ZIP / _TISCH2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-02-02  |  1.0 KB  |  42 lines
  1.  
  2. procedure Init_Tisch2;
  3.   var t : byte;
  4. begin
  5.   for t:=0 to 255 do set_rgb_color(t,pal[t].r,pal[t].g,pal[t].b );
  6.  
  7.    RAT[24] := 0; RAT[25] := 0; RAT[26] := 0;
  8.    PHASER[233] := 0; PHASER[234] := 0; PHASER[235] := 0; PHASER[236] := 0;
  9.    PHASER[237] := 0; PHASER[238] := 0;
  10.    RL := true;
  11.    PFEIL := 0;
  12.    Felder1 := 0;
  13.    Felder2 := 0;
  14.    Felder3 := 0;
  15.    Locked := 0;
  16.    Counter := 0;
  17.  
  18.    MAXFarbe := 150; {235-255}
  19. end;
  20.  
  21. procedure HilfsProc1;
  22. begin
  23.              ballx := 125;
  24.              bally := 25{+10};
  25.              move_ball;
  26.              inc(bally,10);
  27.              delay(500);
  28.              ballspeed_y := 0;
  29.              ballspeed_x := - 5 + random(10);
  30. end;
  31.  
  32. procedure HilfsProc2;
  33. begin
  34.           if ballspeed_x < 0 then ballspeed_x := -8-random(4);
  35.           if ballspeed_x > 0 then ballspeed_x := 8+random(4);
  36.           if ballspeed_y < 0 then ballspeed_y := -8-random(4);
  37.           if ballspeed_y > 0 then ballspeed_y := 8+random(4);
  38.           counter := 10; set_rgb_color(98,60,60,60);
  39.           incscore(50);
  40. end;
  41.  
  42.