home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD1.iso / DEMOS / FD-TopSecretDemo1.DMS / in.adf / KUMME.AMOS / KUMME.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1992-10-04  |  5.6 KB  |  256 lines
  1. Rem ..top_sekr�t.. 
  2. Dim C(15)
  3. Global C()
  4.  
  5. Hide 
  6. GREETS
  7. NINTENDO
  8. SKIFTDISK
  9. VISDISK : Exec("df0:intro") : Wait 500 : GEMDISK
  10. FIRMALOGO[14]
  11. GOINTRO : Exec("df0:stop.exe") : Wait 100
  12. SELECTOR
  13.  
  14. Procedure FIRMALOGO[SEK]
  15.    Hide 
  16.    Unpack 12 To 0 : Screen Hide 0
  17.    For T=0 To 15
  18.       C(T)=Colour(T)
  19.    Next T
  20.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  21.    Screen Show 0
  22.    Fade 4,C(0),C(1),C(2),C(3),C(4),C(5),C(6),C(7),C(8),C(9),C(10),C(11),C(12),C(13),C(14),C(15)
  23.    Wait SEK*50-65
  24.    Fade 4 : Wait 90
  25. End Proc
  26. Procedure SKIFTDISK
  27.    Unpack 21 To 0
  28.    Repeat 
  29.    Until Mouse Key=2
  30.    Paper 0 : Cls : Curs Off 
  31.    Locate 1,10
  32.    Centre "DISK 1 SKAL IKKE BRUGES MERE"
  33.    Locate 0,12
  34.    Centre "KOM DEN I KUMMEN!"
  35.    Wait 100
  36.    Fade 1 : Wait 20
  37. End Proc
  38. Procedure GOINTRO
  39.    Hide 
  40.    Unpack 15 To 0 : Screen Hide 0
  41.    Unpack 16 To 1 : Screen Hide 1
  42.    Unpack 17 To 2 : Screen Hide 2
  43.    Screen 0 : For T=0 To 3 : C(T)=Colour(T) : Next T
  44.    Palette $FFF,$FFF,$FFF,$FFF
  45.    Screen Display 0,,140,,73 : Screen Show 0
  46.    Fade 1,C(0),C(1),C(2),C(3) : Wait 110
  47.    Screen Offset 0,,73
  48.    Palette $FFF,$FFF,$FFF,$FFF
  49.    Fade 1,C(0),C(1),C(2),C(3) : Wait 110
  50.    Screen Offset 0,,146 : Screen Display 0,,120,,110
  51.    Palette $FFF,$FFF,$FFF,$FFF
  52.    Fade 1,C(0),C(1),C(2),C(3) : Wait 120
  53.    Screen Display 1,,140,,97
  54.    Screen 1 : Palette $FFF,$FFF,$FFF,$FFF
  55.    Screen Hide 0 : Screen Show 1
  56.    Palette $FFF,$FFF,$FFF,$FFF
  57.    Fade 1,C(0),C(1),C(2),C(3) : Wait 100
  58.    Screen Display 1,,120,,109 : Screen Offset 1,,148
  59.    Palette $FFF,$FFF,$FFF,$FFF
  60.    Fade 1,C(0),C(1),C(2),C(3) : Wait 55
  61.    Fade 4 : Wait 64
  62.    Screen 2 : Palette $FFF,$FFF,$FFF,$FFF
  63.    Screen Hide 1 : Screen Show 2
  64.    Fade 4,C(0),C(1),C(2),C(3)
  65.    D=8 : AY=20
  66.    P=0
  67.    Y=-50*D
  68.    Repeat 
  69.       Add Y,AY
  70.       Inc AY
  71.       If Y>60*D Then AY=-AY : Add Y,AY : AY=AY/2 : Inc P
  72.       Wait Vbl 
  73.       Screen Display 2,128,Y/D,,220
  74.    Until P=5
  75.    Wait 100
  76.    Fade 2 : Wait 60
  77.    Screen Close 0
  78.    Screen Close 1
  79.    Screen Close 2
  80. End Proc
  81. Procedure VISDISK
  82.    Hide 
  83.    D=4
  84.    AY=55 : Y=-256*D
  85.    Unpack 30 To 0 : Screen Display 0,,-256,,
  86.    For G=0 To 77
  87.       Dec AY
  88.       Add Y,AY
  89.       Wait Vbl 
  90.       Screen Display 0,,Y/D,,
  91.    Next G
  92. End Proc
  93. Procedure GEMDISK
  94.    D=4
  95.    AY=-23 : Y=185
  96.    For G=0 To 77
  97.       Inc AY
  98.       Add Y,AY
  99.       Wait Vbl 
  100.       Screen Display 0,,Y/D,,
  101.    Next G
  102. End Proc
  103. Procedure NINTENDO
  104.    Hide 
  105.    Unpack 25 To 0 : Paper 0 : Pen 1
  106.    Screen Hide 0
  107.    N0=Colour(0) : N1=Colour(2)
  108.    Palette 0,0,0,0
  109.    Screen Show 0
  110.    Fade 2,$FFF,$FFF,$FFF,$FFF : Wait 35
  111.    Fade 2,N0,N1,N1,N1 : Wait 35
  112.    Wait 50 : Paste Icon 0,155,1
  113.    Wait 100
  114.    Fade 2 : Wait 35
  115. End Proc
  116. Procedure SELECTOR
  117.    Shared AX,AY,X,Y,D
  118.    KO=$48F
  119.    Hide 
  120.    Unpack 19 To 2 : Screen Hide 2
  121.    Unpack 18 To 0 : Screen Display 0,,-100,,
  122.    Colour 17,KO : Colour 21,KO : Colour 25,KO
  123.    Unpack 13 To 1 : Screen Display 1,,200,,100
  124.    Colour 17,KO : Colour 21,KO : Colour 25,KO
  125.    Fade 2,0,$53A
  126.    D=8 : Y=-100*D
  127.    AY=50
  128.    Repeat 
  129.       Dec AY
  130.       Add Y,AY
  131.       Wait Vbl 
  132.       Screen Display 0,,Y/D,,
  133.    Until Y>40*D
  134.    D=16
  135.    X Mouse=200 : Y Mouse=200
  136.    X=160*D : Y=128*D
  137.    AY=0
  138.    Hide 
  139.    Y_SCROLL=0
  140.    Do 
  141.       MX=X Mouse-200 : MY=Y Mouse-200
  142.       X Mouse=200 : Y Mouse=200
  143.       Add AX,MX : Add AY,MY
  144.       Add X,AX : Add Y,AY
  145.       TJEK
  146.       Wait Vbl 
  147.       PTR[X/D,Y/D]
  148.       Add X,AX : Add Y,AY
  149.       TJEK
  150.       Wait Vbl 
  151.       PTR[X/D,Y/D]
  152.       Inc Z_SCROLL : If Z_SCROLL=2
  153.          Inc Y_SCROLL : If Y_SCROLL=1023 : Y_SCROLL=0 : Fade 2,0,$53A : End If 
  154.          Screen Offset 1,,Y_SCROLL
  155.          Z_SCROLL=0
  156.          Screen Offset 1,,Y_SCROLL
  157.          If Y_SCROLL>1023-100 : Screen Display 1,,,,1023-Y_SCROLL : End If 
  158.       End If 
  159.       If Mouse Key=1
  160.          If X>4100 and X<6528
  161.             If Y>550 and Y<990 : HENT_A : SETAGAIN : End If 
  162.             If Y>990 and Y<1400 : HENT_B : SETAGAIN : End If 
  163.          End If 
  164.       End If 
  165.    Loop 
  166.    Rem reblit 90..150 
  167. End Proc
  168. Procedure PTR[X,Y]
  169.    XOV=X : YOV=Y
  170.    XOH=X+32 : YOH=Y
  171.    XNV=X : YNV=Y+32
  172.    XNH=X+32 : YNH=Y+32
  173.    If XOV<128 Then XOV=128
  174.    If YOV<43 Then YOV=43
  175.    If XOH>398+32 Then XOH=398+32
  176.    If YOH<43 Then YOH=43
  177.    If XNV<128 Then XNV=128
  178.    If YNV>250+32 Then YNV=250+32
  179.    If XNH>398+32 Then XNH=398+32
  180.    If YNH>250+32 Then YNH=250+32
  181.    Sprite 1,XOV,YOV,1
  182.    Sprite 2,XOH,YOH,2
  183.    Sprite 3,XNV,YNV,3
  184.    Sprite 4,XNH,YNH,4
  185. End Proc
  186. Procedure TJEK
  187.    Shared AX,AY,X,Y,D
  188.    If X<118*D or X>408*D Then AX=-AX : Add X,AX
  189.    If Y<33*D or Y>260*D Then AY=-AY : Add Y,AY
  190.    Add AX,(AX>0)-(AX<0)
  191.    Add AY,(AY>0)-(AY<0)
  192. End Proc
  193. Procedure HENT_A
  194.    Screen Copy 2,0,17,319,45 To 0,0,17
  195.    Exec("df0:stop.exe")
  196.    Wait 50
  197.    HALT
  198.    VISDISK
  199.    Exec("df0:acidcore")
  200.    Wait 50
  201.    GEMDISK
  202. End Proc
  203. Procedure HENT_B
  204.    Screen Copy 2,0,45,319,74 To 0,0,45
  205.    Exec("df0:stop.exe")
  206.    Wait 50
  207.    HALT
  208.    VISDISK
  209.    Exec("df0:kkontrazzt")
  210.    Wait 50
  211.    GEMDISK
  212. End Proc
  213. Procedure HALT
  214.    Sprite Off 
  215.    AY=0
  216.    Y1=40
  217.    Y2=200
  218.    For T=0 To 100
  219.       Inc AY
  220.       Add Y1,-AY/4
  221.       Add Y2,AY/4
  222.       Wait Vbl 
  223.       Screen Display 0,,Y1,,
  224.       Screen Display 1,,Y2,,
  225.    Next T
  226. End Proc
  227. Procedure SETAGAIN
  228.    Shared AX,AY,X,Y,D
  229.    Hide 
  230.    KO=$48F
  231.    Unpack 19 To 2 : Screen Hide 2
  232.    Unpack 18 To 0 : Screen Display 0,,-100,,
  233.    Colour 17,KO : Colour 21,KO : Colour 25,KO
  234.    Unpack 13 To 1 : Screen Display 1,,200,,100
  235.    Colour 17,KO : Colour 21,KO : Colour 25,KO
  236.    Fade 2,0,$53A
  237.    D=8 : Y=-100*D
  238.    AY=50
  239.    Repeat 
  240.       Dec AY
  241.       Add Y,AY
  242.       Wait Vbl 
  243.       Screen Display 0,,Y/D,,
  244.    Until Y>40*D
  245.    D=16
  246.    X Mouse=200 : Y Mouse=200
  247.    X=160*D : Y=128*D
  248.    AY=0
  249.    Hide 
  250. End Proc
  251. Procedure GREETS
  252.    Unpack 20 To 0
  253.    Shift Up 1,1,15,1
  254.    Repeat 
  255.    Until Mouse Key>0
  256. End Proc