home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd369 / d8.amos / d8.amosSourceCode < prev    next >
AMOS Source Code  |  1990-10-14  |  1KB  |  47 lines
  1. '
  2. '
  3. ' Vu-Face    
  4. ' by Jurgen Valks
  5. '
  6. '
  7. '----------------------------------
  8. Proc INIT_SCHERM
  9. Proc INIT_BOB
  10. Do 
  11.  If Mouse Click=1 Then Proc EINDE
  12. Loop 
  13. '----------------------------------
  14. '
  15. Procedure INIT_SCHERM
  16.  Break Off : Erase 3 : Mvolume 63
  17.  Screen Open 0,320,200,16,Lowres
  18.  Hide On 
  19.  Curs Off : Flash Off : Palette $0,$0,$0
  20.  Load "df0:music/mod.intro_tune"
  21.  Get Sprite Palette : Palette $0,$0,FFF
  22.  Double Buffer : Led Off 
  23. End Proc
  24. '
  25. Procedure INIT_BOB
  26.  A1$=A1$+"AUtotest(Let R1=Vu(R0); If R1=0 eXit else Direct Start)"
  27.  A1$=A1$+"Start: Anim 1,(1,1)(2,1)(3,1)(4,1)(5,1)(6,1)(7,1)(6,1)(5,1)(4,1)(3,1)(2,1)(1,1); Wait"
  28.  For N=0 To 3
  29.   Bob N,N*70+30,100,1
  30.   Channel N To Bob N
  31.   Amal N,"Let R0="+Str$(N)+A1$
  32.  Next N
  33.  Colour 2,$FFF
  34.  Locate 1,1 : Centre "Vu-faces"
  35.  Locate 1,2 : Centre "By Jurgen Valks"
  36.  Locate 1,3 : Centre "Bobs ripped out the game NITRO"
  37.  Amal On : Music 1
  38. End Proc
  39. '
  40. Procedure EINDE
  41.  For V=63 To 0 Step -1
  42.   Mvolume V
  43.   Wait 2
  44.  Next V
  45.  Amal Off : Bob Off : Erase 1 : Erase 3
  46.  Run "df0:menu.AMOS"
  47. End Proc