home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD1.iso / DEMOS / FD-TopSecretDemo1.DMS / in.adf / KUMME.Bak / KUMME.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1992-10-04  |  5.5 KB  |  253 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.    D=8 : Y=-100*D
  125.    AY=50
  126.    Repeat 
  127.       Dec AY
  128.       Add Y,AY
  129.       Wait Vbl 
  130.       Screen Display 0,,Y/D,,
  131.    Until Y>40*D
  132.    D=16
  133.    X Mouse=200 : Y Mouse=200
  134.    X=160*D : Y=128*D
  135.    AY=0
  136.    Hide 
  137.    Y_SCROLL=-100
  138.    Do 
  139.       MX=X Mouse-200 : MY=Y Mouse-200
  140.       X Mouse=200 : Y Mouse=200
  141.       Add AX,MX : Add AY,MY
  142.       Add X,AX : Add Y,AY
  143.       TJEK
  144.       Wait Vbl 
  145.       PTR[X/D,Y/D]
  146.       Add X,AX : Add Y,AY
  147.       TJEK
  148.       Wait Vbl 
  149.       PTR[X/D,Y/D]
  150.       Inc Z_SCROLL : If Z_SCROLL=2
  151.          Inc Y_SCROLL : If Y_SCROLL=1023 : Y_SCROLL=-100 : End If 
  152.          Screen Offset 1,,Y_SCROLL
  153.          Z_SCROLL=0
  154.          Screen Offset 1,,Y_SCROLL
  155.          If Y_SCROLL<0 : Screen Display 1,,200-Y_SCROLL,,100+Y_SCROLL : End If 
  156.          If Y_SCROLL>1023-100 : Screen Display 1,,,,1023-Y_SCROLL : End If 
  157.       End If 
  158.       If Mouse Key=1
  159.          If X>4100 and X<6528
  160.             If Y>550 and Y<990 : HENT_A : SETAGAIN : End If 
  161.             If Y>990 and Y<1400 : HENT_B : SETAGAIN : End If 
  162.          End If 
  163.       End If 
  164.    Loop 
  165.    Rem reblit 90..150 
  166. End Proc
  167. Procedure PTR[X,Y]
  168.    XOV=X : YOV=Y
  169.    XOH=X+32 : YOH=Y
  170.    XNV=X : YNV=Y+32
  171.    XNH=X+32 : YNH=Y+32
  172.    If XOV<128 Then XOV=128
  173.    If YOV<43 Then YOV=43
  174.    If XOH>398+32 Then XOH=398+32
  175.    If YOH<43 Then YOH=43
  176.    If XNV<128 Then XNV=128
  177.    If YNV>250+32 Then YNV=250+32
  178.    If XNH>398+32 Then XNH=398+32
  179.    If YNH>250+32 Then YNH=250+32
  180.    Sprite 1,XOV,YOV,1
  181.    Sprite 2,XOH,YOH,2
  182.    Sprite 3,XNV,YNV,3
  183.    Sprite 4,XNH,YNH,4
  184. End Proc
  185. Procedure TJEK
  186.    Shared AX,AY,X,Y,D
  187.    If X<118*D or X>408*D Then AX=-AX : Add X,AX
  188.    If Y<33*D or Y>260*D Then AY=-AY : Add Y,AY
  189.    Add AX,(AX>0)-(AX<0)
  190.    Add AY,(AY>0)-(AY<0)
  191. End Proc
  192. Procedure HENT_A
  193.    Screen Copy 2,0,34,319,62 To 0,0,34
  194.    Exec("df0:stop.exe")
  195.    Wait 20
  196.    HALT
  197.    VISDISK
  198.    Exec("df0:acidcore")
  199.    Wait 50
  200.    GEMDISK
  201. End Proc
  202. Procedure HENT_B
  203.    Screen Copy 2,0,61,319,88 To 0,0,61
  204.    Exec("df0:stop.exe")
  205.    Wait 20
  206.    HALT
  207.    VISDISK
  208.    Exec("df0:kkontrazzt")
  209.    Wait 50
  210.    GEMDISK
  211. End Proc
  212. Procedure HALT
  213.    Sprite Off 
  214.    AY=0
  215.    Y1=40
  216.    Y2=200
  217.    For T=0 To 100
  218.       Inc AY
  219.       Add Y1,-AY/4
  220.       Add Y2,AY/4
  221.       Wait Vbl 
  222.       Screen Display 0,,Y1,,
  223.       Screen Display 1,,Y2,,
  224.    Next T
  225. End Proc
  226. Procedure SETAGAIN
  227.    Shared AX,AY,X,Y,D
  228.    Hide 
  229.    KO=$48F
  230.    Unpack 19 To 2 : Screen Hide 2
  231.    Unpack 18 To 0 : Screen Display 0,,-100,,
  232.    Colour 17,KO : Colour 21,KO : Colour 25,KO
  233.    Unpack 13 To 1 : Screen Display 1,,200,,100
  234.    D=8 : Y=-100*D
  235.    AY=50
  236.    Repeat 
  237.       Dec AY
  238.       Add Y,AY
  239.       Wait Vbl 
  240.       Screen Display 0,,Y/D,,
  241.    Until Y>40*D
  242.    D=16
  243.    X Mouse=200 : Y Mouse=200
  244.    X=160*D : Y=128*D
  245.    AY=0
  246.    Hide 
  247. End Proc
  248. Procedure GREETS
  249.    Unpack 20 To 0
  250.    Shift Up 1,1,15,1
  251.    Repeat 
  252.    Until Mouse Key>0
  253. End Proc