home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / amos / kuoppatiputus.amos / kuoppatiputus.amosSourceCode < prev    next >
AMOS Source Code  |  1995-03-16  |  2KB  |  83 lines
  1. VERSION$="0.2"
  2. Degree : Make Mask : Hide : Flash Off 
  3. '
  4. ALKUDEMO
  5. ALOITUSRUUTU
  6. '
  7. Global Z,X,Y,I,S,SIIRT,LEVMIN,LEVMAX
  8. '
  9. X=160 : Y=128
  10. S=2
  11. SIIRT=120
  12. '
  13. Do 
  14.    TAUSTA
  15.    ALUS
  16.    Screen Swap : Wait Vbl 
  17. Loop 
  18. '************************* 
  19. Procedure ALKUDEMO
  20.    Unpack 7 To 0
  21.    Repeat 
  22.       Repeat 
  23.          X=Rnd(319) : Y=Rnd(255)
  24.       Until Point(X,Y)>0
  25.       For I=22 To 26
  26.          Bob 1,X,Y,I
  27.          Wait 3
  28.       Next 
  29.       For I=26 To 22 Step -1
  30.          Bob 1,X,Y,I
  31.          Wait 3
  32.       Next 
  33.    Until Fire(0) or Fire(1)
  34.    Fade 3 : Wait 50
  35. End Proc
  36. Procedure ALOITUSRUUTU
  37.    I=0 : Z=0 : X=0 : Y=0
  38.    Unpack 6 To 0 : Double Buffer 
  39.    Wait 50
  40.    For Y=-20 To 290
  41.       Inc Z : If Z>2 Then Z=0
  42.       If Z=0
  43.          Inc I
  44.          If I>8
  45.             I=1
  46.          End If 
  47.       End If 
  48.       Bob 1,160,Y,I
  49.       Bob 2,160,Y-8,9+Rnd(2)
  50.       Wait Vbl : Wait Vbl 
  51.    Next 
  52.    Wait 50 : Fade 4 : Wait 70
  53.    Paper 0 : Curs Off : Cls 0 : Print : Cls 0 : Get Sprite Palette 
  54. End Proc
  55. Procedure ALUS
  56.    Inc Z
  57.    If Z>8 Then Z=1
  58.    If Z=1 Then 
  59.    If Jleft(1)
  60.       Add X,-3
  61.       If Z=1
  62.          Dec I
  63.       End If 
  64.    End If 
  65.    If Jright(1)
  66.       Add X,3
  67.       If Z=1
  68.          Inc I
  69.       End If 
  70.    End If 
  71.    If Jdown(1) Then Add Y,3
  72.    If Jup(1) Then Add Y,-3
  73.    If I>8 Then I=1
  74.    If I<1 Then I=8
  75.    If X<0 Then X=0
  76.    If X>320 Then X=320
  77.    If Y<30 Then Y=30
  78.    If Y>220 Then Y=220
  79.    Sprite 8,X Hard(0,X),Y Hard(0,Y),I
  80.    Sprite 9,X Hard(0,X),Y Hard(0,Y-8),9+Rnd(2)
  81. End Proc
  82. Procedure TAUSTA
  83. End Proc