home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd370 / slinger.amos / slinger.amosSourceCode < prev    next >
AMOS Source Code  |  1990-10-14  |  2KB  |  75 lines
  1. Shared T,IM,R1,R2,M
  2. IM=9
  3. Screen Open 0,320,200,16,Lowres
  4. Palette $0,$0, : Flash Off : Curs Off : Hide On 
  5. Cls 
  6. HOOFD_PROG
  7. '--------------------- 
  8. Procedure HOOFD_PROG
  9. Break Off 
  10. Do 
  11.    BIRD
  12.    If M=1
  13.       EINDE
  14.    End If 
  15.    NAME2
  16.    If M=1
  17.       EINDE
  18.    End If 
  19. Loop 
  20. End Proc
  21. Procedure BIRD
  22.    Cls : Bob Off : Cls 
  23.    Screen Open 1,320,250,16,Lowres
  24.    Palette $5,$5,$FFF : Flash Off : Curs Off 
  25.    Get Sprite Palette : Palette $0,$0,
  26.    Double Buffer 
  27.    Y=100 : X=150 : W=143
  28.    Locate 0,10 : Centre "Linker muis  - Einde"
  29.    Locate 0,12 : Centre "Rechter muis - Verder"
  30.    Do 
  31.       Inc T
  32.       If Mouse Key<>0 Then M=Mouse Key : Pop Proc
  33.       Bob 4,110*Cos(T/Pi#/Pi#/2)+X,50*Sin(T/Pi#/Pi#)+Y,IM
  34.       Bob 5,100*Cos(T/Pi#/Pi#/2)+X,40*Sin(T/Pi#/Pi#)+Y,IM
  35.       Bob 6,90*Cos(T/Pi#/Pi#/2)+X,30*Sin(T/Pi#/Pi#)+Y,IM
  36.       Bob 7,80*Cos(T/Pi#/Pi#/2)+X,20*Sin(T/Pi#/Pi#)+Y,IM
  37.       Bob 8,70*Cos(T/Pi#/Pi#/2)+X,10*Sin(T/Pi#/Pi#)+Y,IM
  38.       Bob 9,60*Cos(T/Pi#/Pi#/2)+X,20*Sin(T/Pi#/Pi#)+Y,IM
  39.       Bob 10,50*Cos(T/Pi#/Pi#/2)+X,30*Sin(T/Pi#/Pi#)+Y,IM
  40.       Bob 11,40*Cos(T/Pi#/Pi#/2)+X,40*Sin(T/Pi#/Pi#)+Y,IM
  41.       Bob 12,30*Cos(T/Pi#/Pi#/2)+X,50*Sin(T/Pi#/Pi#)+Y,IM
  42.       Wait Vbl : Wait 1
  43.    Loop 
  44. End Proc
  45. Procedure NAME2
  46.    IM=9
  47.    Screen Open 1,320,250,16,Lowres
  48.    Flash Off : Curs Off 
  49.    Get Sprite Palette 
  50.    Palette $0,$0,
  51.    Double Buffer 
  52.    Y=100 : X=150 : R1=60 : R2=60 : W=0
  53.    Locate 0,10 : Centre "Linker muis  - Einde"
  54.    Locate 0,12 : Centre "Rechter muis - Verder"
  55.    Do 
  56.       For T=1 To 124
  57.          If Mouse Key<>0 Then M=Mouse Key : Pop Proc
  58.          Bob 1,R1*Cos(T/Pi#/Pi#/2)+X,R2*Sin(T/Pi#/Pi#)+Y,IM
  59.          Bob 2,R1*Cos((T+3)/Pi#/Pi#/2)+X,R2*Sin((T+3)/Pi#/Pi#)+Y,IM
  60.          Bob 3,R1*Cos((T+6)/Pi#/Pi#/2)+X,R2*Sin((T+6)/Pi#/Pi#)+Y,IM
  61.          Bob 4,R1*Cos((T+9)/Pi#/Pi#/2)+X,R2*Sin((T+9)/Pi#/Pi#)+Y,IM
  62.          Bob 5,R1*Cos((T+12)/Pi#/Pi#/2)+X,R2*Sin((T+12)/Pi#/Pi#)+Y,IM
  63.          Bob 6,R1*Cos((T+15)/Pi#/Pi#/2)+X,R2*Sin((T+15)/Pi#/Pi#)+Y,IM
  64.          Wait Vbl 
  65.       Next T
  66.       Wait Vbl 
  67.    Loop 
  68. End Proc
  69. Procedure EINDE
  70.    Bob Off 
  71.    Screen Close 1
  72.    Erase 3
  73.    Dir$="AMOS_COMPACT2:"
  74.    Run "menu.amos"
  75. End Proc