home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 1 of 3).adf / READERS_SOURCE.LHA / READERS_SOURCE / A_CAMPBELL / AJC-BLOODSPLAT.AMOS / AJC-BLOODSPLAT.amosSourceCode next >
Encoding:
AMOS Source Code  |  1992-02-26  |  970 b   |  52 lines
  1. '
  2. ' BLOODY EXPLOSIONS By Andrew Campbell 
  3. '  
  4. ' Simply point and click with the mouse to create rather tasty explosions
  5. ' of blood. There's a tiny bob bank containing just 1 bob in the shape of
  6. ' a splat. You could edit this for exceptionally gory variation! 
  7. '
  8. ' Happy vein-popping -> AJC
  9. '
  10.  
  11. Dim X(15),Y(15)
  12. Dim XS(15),YS(15)
  13.  
  14. Global X(),Y(),XS(),YS()
  15.  
  16. Cls 0 : Colour 1,$F00 : Change Mouse 2
  17.  
  18. GO:
  19.  
  20. Repeat 
  21. Until Mouse Key
  22.  If Mouse Key=2 : Edit : End If 
  23. _SETUPSTARS[X Screen(X Mouse),Y Screen(Y Mouse)]
  24.   For I=1 To 3
  25.    _MOVESTARS[1]
  26.   Next I
  27. Goto GO
  28.  
  29.  
  30. Procedure _SETUPSTARS[X,Y]
  31.  
  32.  XRANGE=15 : YRANGE=15 : NUM=15
  33.  
  34.    For A=0 To NUM
  35.       X(A)=X : Y(A)=Y
  36.       XS(A)=(Rnd(XRANGE)+1)-(XRANGE/2)
  37.       YS(A)=(Rnd(YRANGE)+1)-(YRANGE/2)
  38.    Next A
  39.  
  40. End Proc
  41. Procedure _MOVESTARS[_COLOUR]
  42.  
  43.    For A=0 To 14
  44.       Add X(A),XS(A)
  45.       Add Y(A),YS(A)
  46.        Paste Bob X(A),Y(A),1
  47.        For Q=1 To Rnd(20)+1
  48.         Plot X(A)+5,Y(A)+Q,_COLOUR
  49.        Next Q
  50.    Next A
  51.  
  52. End Proc