home *** CD-ROM | disk | FTP | other *** search
/ Ultimate Game Collection / XULTI.ISO / 396 / rich.rpp < prev    next >
Text File  |  1997-01-17  |  1KB  |  111 lines
  1.  
  2. {Rich.rpp}
  3.  
  4. var x1: number;
  5. var y1: number;
  6. var x2: number;
  7. var y2: number;
  8. var oldx1:number;
  9. var oldy1:number;
  10. var oldx2:number;
  11. var oldy2:number;
  12.  
  13. var KeyHit: number;
  14.  
  15. KeyHit:=0;
  16. x1:=50;
  17. x2:=100;
  18. y1:=90;
  19. y2:=100;
  20.  
  21. oldx1:=x1;
  22. oldy1:=y1;
  23. oldx2:=x2;
  24. oldy2:=y2;
  25.  
  26. randomize;
  27.  
  28. goto $Start
  29. print("Shouldn't be here");
  30.  
  31. $EraseBox
  32. setcolor(0);
  33. line(oldx1,oldy1,oldx2,oldy1);
  34. line(oldx2,oldy1,oldx2,oldy2);
  35. line(oldx2,oldy2,oldx1,oldy2);
  36. line(oldx1,oldy2,oldx1,oldy1);
  37. setcolor(45);
  38. goto $Erased
  39.  
  40. $DrawBox
  41. setcolor(1);
  42. line(x1,y1,x2,y1);
  43. line(x2,y1,x2,y2);
  44. line(x2,y2,x1,y2);
  45. line(x1,y2,x1,y1);
  46. goto $Drawn
  47.  
  48.  
  49. $Start
  50. println("Rich is the MAN !");
  51. delay(1500);
  52. println("..and if you don't know..");
  53. delay(1500);
  54. println("..Now ya Know!");
  55. delay(2000);
  56. cls(0);
  57. line(x1,y1,x2,y1);
  58. line(x2,y1,x2,y2);
  59. line(x2,y2,x1,y2);
  60. line(x1,y2,x1,y1);
  61. $MyLoop
  62.  
  63. delay(10);
  64.  
  65. if ((kbcode(77))and(x2< 317))
  66.   x1 := x1 + 2 ;
  67.   x2 := x2 + 2 ;
  68. endif;
  69.  
  70. if ((kbcode(75))and(x1 > 2))     
  71.   x1:=x1 - 2;
  72.   x2:=x2 - 2;
  73. endif;
  74.  
  75. if ((kbcode(72))and(y1>2))   
  76.   y1:=y1-2;
  77.   y2:=y2-2;
  78. endif;
  79.  
  80. if ((kbcode(80))and(y2<197)) 
  81.   y1:=y1+2;
  82.   y2:=y2+2;
  83. endif;
  84.  
  85.  
  86. if (( x1 <> oldx1 )or( y1 <> oldy1 ))
  87.    goto $EraseBox
  88. $Erased
  89.    goto $DrawBox
  90. $Drawn
  91.    oldx1:=x1;
  92.    oldy1:=y1;
  93.    oldx2:=x2;
  94.    oldy2:=y2;
  95.  
  96. endif;
  97.  
  98.  
  99.  
  100. if (kbcode(1))
  101.   goto $Exit  
  102. endif;
  103.  
  104.  
  105. goto $MyLoop
  106.  
  107. $Exit
  108.  
  109.  
  110.  
  111.