home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 526-550 / apd527 / war_movie / autoexec.amos / autoexec.amosSourceCode
AMOS Source Code  |  1989-08-15  |  5KB  |  167 lines
  1. Screen Open 0,320,256,32,Lowres : Cls 0
  2. Fade 3 : Wait 3*15
  3. Dim X$(51),X(51),Y(51),B(8)
  4. B(1)=5 : B(2)=6 : B(3)=7 : B(4)=8 : B(5)=6 : B(6)=9 : B(7)=10 : B(8)=11
  5. Global X$(),X(),Y(),SCNT,CNT,SC$,SCRL$,B()
  6. 1 T
  7. DEMO
  8. Wait 12050 : Goto 1
  9. Rem----------------------------------------------------- 
  10. Procedure T
  11.   Fade 5 : Music Off : Erase 3
  12.   Load "war_and_peace.abk"
  13.   Load Iff "font",0 : Screen To Back 0 : Spack 0 To 6 : Cls 0 : Screen To Front 0
  14.   Hide On 
  15.   MESSAGE
  16.   SETUP
  17.   MAKE_FONT
  18.   Music 1
  19.   Screen Open 0,320,200,32,Lowres : Flash Off : Auto View Off : Hide 
  20.   Load Iff "sunset.abk"
  21.   For A=0 To 191
  22.      Get Bob A+1,0,A To 320,A+1
  23.   Next A : No Mask : Cls 0 : View 
  24.   For A=1 To 191
  25.      Inc B
  26.      For C=B To 200
  27.         Paste Bob 0,C,A
  28.      Next C
  29.   Next A
  30.   Erase 1
  31.   Screen 1
  32.   Repeat 
  33.     Scroll 1
  34.     MOVE_TEXT
  35.     Wait Vbl 
  36.   Until Mouse Click>0
  37.   Screen 1 : Fade 5 : Screen 0 : Fade 5 : Wait 100
  38. End Proc
  39. Procedure DEMO
  40.    Screen 1 : Fade 5 : Wait 5*15 : Screen Close 1
  41.    Load "movie1.abk" : ANI : Double Buffer 
  42.    Repeat : Until Mouse Click>0
  43.    Amal Off : Fade 5 : Cls 0 : Load "movie2.abk" : Amal On : ANI2
  44.    Repeat : Until Mouse Click>0
  45.    Amal Off : Fade 5 : Cls 0 : Load "movie3.abk" : Amal On : ANI3
  46.    Repeat : Until Mouse Click>0
  47.    DEMO_OVER
  48. End Proc
  49. Procedure SETUP
  50.    SCRL$="0123456789abcdefghijklmnopqrstuvwxyz@,!.:?/+-()#{} "
  51.    SCNT=1
  52.    CNT=31
  53.    Unpack 6 To 2 : Screen To Back 2 : Screen Hide 2
  54.    Screen Open 1,380,33,16,Lowres
  55.    Def Scroll 1,1,0 To 380,33,-8,0
  56.    Screen Display 1,115,270,359,32
  57.    Curs Off : Cls 0 : Get Palette 2 : Flash Off 
  58. End Proc
  59. Procedure MESSAGE
  60.    SC$="well welcome to the new war and peace demo (new because it is the first one!!) "
  61.    SC$=SC$+"i must send some greets to : the shadow dancer, michael,chip and dib....."
  62.    SC$=SC$+"well i shall now tell you how to get through this demo, so listen carefully dude........right "
  63.    SC$=SC$+"well all you have to do is smash the left squeaker button during the animations and it will go "
  64.    SC$=SC$+"to the next animation etc... please note that the demo will loop back to this scrolly after some time at the end sequence. "
  65.    SC$=SC$+".... michael have you got any ideas for a demo??? well if you want me to animate some pictures then just tell me and i will do my best. "
  66.    SC$=SC$+"....right hmmmmm, oh yeah i will be starting the topgun demo soon so hang tight for that one....... "
  67.    SC$=SC$+"this demo was started on the 28/9/91 and was finished on the 11/10/91 on a friday night...... well ummm ahhhh ummmm "
  68.    SC$=SC$+"this has to be the shortest scrolltext i have ever written probably because writting it is boring me to death at the moment. "
  69.    SC$=SC$+"well i leave you with these final immortal words..... till later dudes....... now looping (he he he)............"
  70. End Proc
  71. Procedure MAKE_FONT
  72.    Screen 1
  73.    For F=1 To 51
  74.       Read X$(F),X(F),Y(F)
  75.    Next F
  76.    Data "0",0,0
  77.    Data "1",32,0
  78.    Data "2",64,0
  79.    Data "3",96,0
  80.    Data "4",128,0
  81.    Data "5",160,0
  82.    Data "6",192,0
  83.    Data "7",224,0
  84.    Data "8",256,0
  85.    Data "9",288,0
  86.    Data "A",0,32
  87.    Data "B",32,32
  88.    Data "C",64,32
  89.    Data "D",96,32
  90.    Data "E",128,32
  91.    Data "F",160,32
  92.    Data "G",192,32
  93.    Data "H",224,32
  94.    Data "I",256,32
  95.    Data "J",288,32
  96.    Data "K",0,64
  97.    Data "L",32,64
  98.    Data "M",64,64
  99.    Data "N",96,64
  100.    Data "O",128,64
  101.    Data "P",160,64
  102.    Data "Q",192,64
  103.    Data "R",224,64
  104.    Data "S",256,64
  105.    Data "T",288,64
  106.    Data "U",0,96
  107.    Data "V",32,96
  108.    Data "W",64,96
  109.    Data "X",96,96
  110.    Data "Y",128,96
  111.    Data "Z",160,96
  112.    Data "@",192,96
  113.    Data ",",224,96
  114.    Data "!",256,96
  115.    Data ".",288,96
  116.    Data ":",0,128
  117.    Data "?",32,128
  118.    Data "/",64,128
  119.    Data "+",96,128
  120.    Data "-",128,128
  121.    Data "(",160,128
  122.    Data ")",192,128
  123.    Data "#",224,128
  124.    Data "{",256,128
  125.    Data "}",288,128
  126.    Data " ",288,223
  127. End Proc
  128. Procedure NEW_CHARACTER
  129.    E$=Mid$(SC$,SCNT,1)
  130.    E=Instr(SCRL$,E$)
  131.    Screen Copy 2,X(E),Y(E),X(E)+31,Y(E)+31 To 1,329,0
  132. End Proc
  133. Procedure DEMO_OVER
  134.   For X=63 To 0 Step -1 : Mvolume X : Wait 2 : Next X : Wait 8 : Erase 3
  135.   Fade 5 : Wait 5*15 : Amal Off : Fade 5 : Wait 5*15 : Erase 1
  136.   Load "end.abk" : Default : Cls 0 : Hide On : Music 1 : Mvolume 63 : Wait 50
  137.   Load Iff "the_end",0 : Screen To Front 0 : Get Palette(0)
  138. End Proc
  139. Procedure ANI
  140.   Channel 2 To Bob 2
  141.   Screen 0
  142.   Cls 0 : Get Sprite Palette 
  143.   Bob 2,105,60,1
  144.   Anim 2,"(1,5)(2,5)(3,5)(4,5)(5,5)(6,5)(7,5)(8,5)(9,5)(10,5)(11,5)(12,5)(13,5)(14,5)(15,5)(16,5)(17,5)(18,5)L"
  145.   Anim On 
  146. End Proc
  147. Procedure ANI2
  148.   Channel 2 To Bob 2
  149.   Screen 0
  150.   Cls 0 : Get Sprite Palette 
  151.   Bob 2,105,60,1
  152.   Anim 2,"(1,8)(2,8)(3,8)(4,8)(6,8)(7,8)(8,8)(9,8)(10,8)(11,8)(12,8)(13,8)(14,8)(15,8)L"
  153.   Anim On 
  154. End Proc
  155. Procedure ANI3
  156.   Channel 2 To Bob 2
  157.   Screen 0
  158.   Cls 0 : Get Sprite Palette 
  159.   Bob 2,105,60,1
  160.   Anim 2,"(1,12)(2,12)(3,12)(4,12)(6,12)(7,12)(8,12)L"
  161.   Anim On 
  162. End Proc
  163. Procedure MOVE_TEXT
  164.   Add CNT,4
  165.   If CNT>15 Then NEW_CHARACTER : CNT=0 : Inc SCNT
  166.   If SCNT>Len(SC$) Then SCNT=1
  167. End Proc