home *** CD-ROM | disk | FTP | other *** search
/ Ultimate Game Collection / XULTI.ISO / 396 / gravity.rpp < prev    next >
Text File  |  1996-12-08  |  885b  |  89 lines
  1. { Gravity by Keebler }
  2.  
  3. var x1:number;
  4. var y1:number;
  5.  
  6. var x2:number;
  7. var y2:number;
  8.  
  9. var x3:number;
  10. var y3:number;
  11.  
  12. var xv:number;
  13. var yv:number;
  14.  
  15. x1:= 25;
  16. y1:= 5;
  17.  
  18. x2:= x1-10;
  19. y2:= y1+20;
  20.  
  21. x3:= x1+10;
  22. y3:= y1+20;
  23.  
  24. xv:=1.8;
  25. yv:=0;
  26.  
  27.  
  28. setcolor(154);
  29.  
  30. $MainLoop
  31.  
  32. delay(30);
  33.  
  34.  
  35. { change this to 0 for no trails }
  36. setcolor(159);
  37. line(x1,y1,x2,y2);
  38. line(x2,y2,x3,y3);
  39. line(x3,y3,x1,y1);
  40.  
  41. { simulate gravity }
  42.  yv := yv + (1.6);
  43.  
  44.  x1:= x1+xv;
  45.  y1:= y1+yv;
  46.  
  47.  
  48.  
  49.  if (y1>179)
  50.    y1:=179;
  51.    yv:=yv*-1;
  52.    yv:=yv*0.9;
  53.  endif;
  54.  
  55.  x2:= x1-10;
  56.  y2:= y1+20;
  57.  
  58.  x3:= x1+10;
  59.  y3:= y1+20;
  60.  
  61.  
  62. if (x3>319)
  63.   x3:=319;
  64. endif;
  65.  
  66. if((y1=179)and(xv>0.05))
  67.   xv:=xv-0.05;
  68. endif;
  69.  
  70.  
  71. setcolor(154);
  72. line(x1,y1,x2,y2);
  73. line(x2,y2,x3,y3);
  74. line(x3,y3,x1,y1);
  75.  
  76.  
  77. if (xv<0.05)
  78.  end;
  79. endif;
  80.  
  81. if (x3=319)
  82.   end;
  83. endif;
  84.  
  85. goto $MainLoop
  86.  
  87.  
  88.  
  89.