home *** CD-ROM | disk | FTP | other *** search
/ Ultimate Game Collection / XULTI.ISO / 396 / fun.rpp < prev    next >
Text File  |  1997-01-17  |  2KB  |  133 lines
  1. {fun2 - Designed and Programmed by Mike Loftain}
  2.  
  3. var n: number;
  4. var x: number;
  5.  
  6. println("Mike Loftain's Graphics Demo!");
  7.  
  8. delay(1000);
  9.  
  10. randomize;
  11.  
  12. loop(n=1 to 2)
  13.  
  14.   setcolor(rand(4,255));
  15.   line(15,15,15,150);
  16.   delay(250);
  17.   cls(3);
  18.   setcolor(rand(5,255));
  19.   line(15,15,15,150);
  20.   line(15,15,75,15);
  21.   delay(250);
  22.   cls(4);
  23.   setcolor(rand(6,255));
  24.   line(15,15,15,150);
  25.   line(15,15,75,15);
  26.   line(15,50,50,50);
  27.   delay(250);
  28.   cls(5);
  29.   setcolor(rand(7,255));
  30.   line(100,15,100,150);
  31.   delay(250);
  32.   cls(6);
  33.   setcolor(rand(8,255));
  34.   line(100,15,100,150);
  35.   line(100,150,175,150);
  36.   delay(250);
  37.   cls(7);
  38.   setcolor(rand(9,255));
  39.   line(100,15,100,150);
  40.   line(100,150,175,150);
  41.   line(175,15,175,150);
  42.   delay(500);
  43.   cls(8);
  44.   setcolor(rand(10,255));
  45.   line(225,15,225,150);
  46.   delay(250);
  47.   cls(9);
  48.   setcolor(rand(11,255));
  49.   line(225,15,225,150);
  50.   line(225,15,300,150);
  51.   delay(250);
  52.   cls(10);
  53.   setcolor(rand(12,255));
  54.   line(225,15,225,150);
  55.   line(225,15,300,150);
  56.   line(300,15,300,150);
  57.   delay(350);
  58.   cls(11);
  59.   setcolor(rand(1,255));
  60.   line(15,15,15,150);
  61.   line(15,15,75,15);
  62.   line(15,50,50,50);
  63.   line(100,15,100,150);
  64.   line(100,150,175,150);
  65.   line(175,15,175,150);
  66.   line(225,15,225,150);
  67.   line(225,15,300,150);
  68.   line(300,15,300,150);
  69.   delay(350);
  70.   cls(rand(1,255));
  71.   setcolor(rand(1,255));
  72.   line(15,15,15,150);
  73.   line(15,15,75,15);
  74.   line(15,50,50,50);
  75.   line(100,15,100,150);
  76.   line(100,150,175,150);
  77.   line(175,15,175,150);
  78.   line(225,15,225,150);
  79.   line(225,15,300,150);
  80.   line(300,15,300,150);
  81.   delay(350);
  82.   cls(rand(1,255));
  83.   setcolor(rand(1,255));
  84.   line(15,15,15,150);
  85.   line(15,15,75,15);
  86.   line(15,50,50,50);
  87.   line(100,15,100,150);
  88.   line(100,150,175,150);
  89.   line(175,15,175,150);
  90.   line(225,15,225,150);
  91.   line(225,15,300,150);
  92.   line(300,15,300,150);
  93.   delay(350);
  94.   cls(rand(1,255));
  95. endl;
  96.  
  97.  
  98. loop(x=1 to 10000)
  99.   setcolor(rand(1,255));
  100.   plot(rand(0,maxx),rand(0,maxy));
  101. endl;
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.