home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3082a.dms / 3082a.adf / autoexec.AMOS / autoexec.amosSourceCode next >
Encoding:
AMOS Source Code  |  1992-02-21  |  4.5 KB  |  188 lines
  1. '  
  2. '----------------- 
  3. 'Paranoid 3D Demo
  4. '-----------------   
  5. '
  6. ' Greets ! Feel free to nose about this code if you want.  
  7. ' This took me the best part of a week to do between 
  8. ' figuring out how to use Amos 3D and trying to get the  
  9. ' synchronisation right. Hope you like it .
  10. '
  11. ' The music , by the way , is from " Introduce Yourself "  
  12. ' by Faith no More . The Crab Song and Blood were the two songs .
  13. '  
  14. ' P.S If you're thinking of getting the source code for this game
  15. ' and you're going to send me a blank disk , could you please ,
  16. ' if you have it , send me a copy of the Amos 3d Object Modeller ? 
  17. '
  18. ' My one is wrecked !
  19. '  
  20. '
  21. Screen Open 0,320,200,16,Lowres : Cls 0
  22. Unpack 9 To 0
  23. Do 
  24.    A$=Inkey$
  25.    J=Fire(1)
  26.    If A$<>"" or J=-1 or Mouse Key>0 Then Exit 
  27. Loop 
  28. Fade 2 : Wait 30
  29. Screen Open 0,320,200,16,Lowres : Cls 0 : Curs Off 
  30. Global A1200
  31. If Chip Free>1200000 Then CHECK12
  32. Procedure CHECK12
  33.    Reserve Zone 2
  34.    Y$=Zone$("y",1)
  35.    N$=Zone$("n",2)
  36.    Paper 0 : Print "       Is this an A1200 (";Y$;"/";N$;") ? "
  37.    Do 
  38.       A$=Inkey$
  39.       If Mouse Zone=1 Then Locate 32,0 : Print "y"
  40.       If Mouse Zone=2 Then Locate 32,0 : Print "n"
  41.       If Mouse Zone=0 Then Locate 32,0 : Print " "
  42.       If Mouse Zone=1 and Mouse Key=1 Then I$="y" : Exit 
  43.       If Mouse Zone=2 and Mouse Key=1 Then I$="n" : Exit 
  44.       If A$="y" Then Locate 32,0 : Print "y" : I$="y" : Exit 
  45.       If A$="n" Then Locate 32,0 : Print "n" : I$="n" : Exit 
  46.    Loop 
  47.    If I$="y" Then Cls : Centre "...compensating..." : Curs Off : A1200=1 : Wait 40
  48. End Proc
  49.  Extension_4_04D6 "df0:objects"
  50. Curs Off : Hide On 
  51. Close Workbench 
  52. '
  53.  Extension_4_0054 200
  54. Screen 0 : Paper 0 : Cls : Curs Off : Wait Vbl 
  55. Double Buffer 
  56. Autoback 0
  57.  Extension_4_0016 "p"
  58.  Extension_4_0016 "a"
  59.  Extension_4_0016 "r"
  60.  Extension_4_0016 "n"
  61.  Extension_4_0016 "o"
  62.  Extension_4_0016 "i"
  63.  Extension_4_0016 "d"
  64.  Extension_4_0036 1,"p",0,300,5000,0,0,0
  65.  Extension_4_0036 2,"a",800,0,5000,0,1600,0
  66.  Extension_4_0036 3,"r",1600,-150,5000,0,0,0
  67.  Extension_4_0036 4,"a",2400,-70,5000,0,0,0
  68.  Extension_4_0036 5,"n",3200,-150,5000,-1500,3500,0
  69.  Extension_4_0036 6,"o",4000,-150,5000,0,0,0
  70.  Extension_4_0036 7,"i",4800,-150,5000,0,0,0
  71.  Extension_4_0036 8,"d",5500,0,5000,1900,-300,1000
  72. Palette ,,,,,,,,,$FFF,$F,$777
  73.  Extension_4_00EC 0,-9000,-1000,4000
  74. 'Td Angle 1,0,0,1000 
  75. '
  76. Track Play 
  77. Proc _PANS
  78. '
  79. Procedure _DRAW
  80.    A$=Inkey$
  81.     Extension_4_053C 
  82.     Extension_4_0318 
  83.    Screen Swap 
  84.    If A1200=1 Then Wait 2 Else Wait Vbl 
  85.    If A$<>"" or Scancode=69 or Mouse Key=1 or Fire(1)=-1 Then Track Stop : Paper 0 : Cls : Extension_4_057C : Run "df0:animation.amos" : Rem * don't you just hate these really long lines ? *
  86. End Proc
  87. '
  88. Procedure _PANS
  89.    '   _PAN5
  90.    _PAN1
  91.    _PAN2
  92.    _PAN3
  93.    _PAN4
  94.    _PAN5
  95.    _PAN7
  96. End Proc
  97. '
  98. Procedure _PAN1
  99.    For N=1 To 50
  100.        Extension_4_01F8 0,4
  101.        Extension_4_00D4 0,400,-20,-20
  102.       _DRAW
  103.    Next N
  104. End Proc
  105. Procedure _PAN2
  106.    For N=1 To 30
  107.        Extension_4_01F8 0,4
  108.        Extension_4_00D4 0,-200,50,-200
  109.       _DRAW
  110.    Next N
  111. End Proc
  112. Procedure _PAN7
  113.    'Screen Open 0,320,256,16,Lowres 
  114.    'Screen 0 : Screen To Front 0 : Cls 0
  115.    'Unpack 9 To 0 
  116.    'Fade 5 : Wait 15*5
  117.    Cls 0
  118. End Proc
  119. Procedure _PAN3
  120.    For N=1 To 20
  121.        Extension_4_01F8 0,4
  122.        Extension_4_00D4 0,0,100,300
  123.       _DRAW
  124.    Next N
  125. End Proc
  126. Procedure _PAN4
  127.    For N=1 To 10
  128.        Extension_4_01F8 0,4
  129.        Extension_4_00D4 0,200,-50,100
  130.       _DRAW
  131.    Next N
  132.    For N=1 To 40
  133.        Extension_4_01F8 0,1
  134.        Extension_4_00D4 0,-250,0,0
  135.       _DRAW
  136.    Next N
  137.    If A1200=0 Then Pop Proc
  138.    For N=1 To 30
  139.        Extension_4_01F8 0,1
  140.        Extension_4_00D4 0,-40,-70,-20
  141.       _DRAW
  142.    Next N
  143.    For N=1 To 10
  144.        Extension_4_01F8 0,8
  145.        Extension_4_00D4 0,500,100,30
  146.       _DRAW
  147.    Next N
  148. End Proc
  149. Procedure _PAN5
  150.    For B=1 To 8
  151.        Extension_4_00EC 0,0,-1000,0
  152.        Extension_4_01F8 0,4
  153.       _DRAW
  154.       For N=1 To 15
  155.           Extension_4_00D4 0,200,150,450
  156.           Extension_4_01F8 0,9-B
  157.          _DRAW
  158.       Next N
  159.    Next B
  160.     Extension_4_00EC 0,-6000,0,-7000
  161.     Extension_4_01A6 0,0,0,9000
  162.     Extension_4_01F8 0,1
  163.    For N=1 To 16
  164.        Extension_4_00D4 0,800,0,600
  165.        Extension_4_01F8 0,1
  166.       _DRAW
  167.    Next N
  168.    For N=1 To 25
  169.     Extension_4_00D4 0,-800,150,-100
  170.     Extension_4_01F8 0,8
  171.    _DRAW
  172.    Next N
  173.    Fade 5 : Wait 15*5
  174. End Proc
  175. Paper 0 : Cls 
  176.  Extension_4_057C 
  177. Unpack 8 To 0
  178. Wait Vbl 
  179. Do 
  180.    Z=Z+1
  181.    A$=Inkey$
  182.    If A$<>"" Then Exit 
  183.    If Mouse Key>0 Then Exit 
  184.    If Fire(1)=-1 Then Exit 
  185.    If Z=8000 Then Exit 
  186. Loop 
  187. Sam Stop 
  188. Run "df0:animation.amos"