home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 1178.dms / in.adf / Virtual / script < prev    next >
Encoding:
Text File  |  1991-07-07  |  22.7 KB  |  1,623 lines
  1.  ################################################################
  2.  #                                #
  3.  #    File:    script                        #
  4.  #    Author:    T.Landspurg                    #
  5.  #    Date:    28/06/91                    #
  6.  #    Version:1.01                        #
  7.  #    Virtual World                        #
  8.  #                                #
  9.  #                                #
  10.  ################################################################
  11.  #    DO NOT MODIFY THIS FILE!!!!!!!                #
  12.  # If you try to do this...theresult will be a ...GURU!        #
  13.  # So please, don't change anything.This language was just made    #
  14.  # to personnal purpose.                    #
  15.  ################################################################
  16.  
  17.  
  18.     FADE_OUT
  19.     REM_ALL        # Enleve tout les objets
  20.     REM_ALL_SPRITE    # Enelve tout les sprites
  21.     LOAD_MUS    "modules/mod.hysteria"
  22.  
  23.     START_TASK
  24.     LOAD_EXT  "intro.ext",3
  25.     LOAD_BACK    "pics/Virtual.iff"
  26.     STOP_TASK
  27.  
  28.     EFFECT    3,0
  29.     START_TASK
  30.     UNLOAD_EXT    3
  31.     RESTORE_COP
  32.  
  33.     LOAD_EXT  "writer.ext",2
  34.     LOAD_EXT  "anim_obj.ext",0
  35.     LOAD_EXT  "texte.ext",1
  36.  
  37.  
  38. #    EFFECT    0,9,"snd/helico.snd"
  39.  
  40.     GOTO    "SKIP THIS"
  41. LAB    "SKIP THIS"
  42.     PROF    5
  43.     START_TASK
  44.     LOAD_BACK    "pics/colormap"
  45.     STOP_TASK
  46.  
  47.  
  48. #    CALL    "test"
  49.     CALL    "AFF INTRO"
  50.     CALL    "AFF SPHERES"
  51.     CALL    "AFF CIRCLE"
  52.     CALL    "AFF ALL"
  53. LAB    "DEBUT"
  54.     CALL    "anim TL"
  55.  
  56.     CALL    "globe"
  57.  
  58. #################################
  59. # On passe a un autre script    #
  60. #################################
  61.     CALL    "show objets"
  62.     CALL    "anims"
  63.     CALL    "VADER"
  64.     CALL    "AFF POIPOI"
  65.     PROF    4
  66.     CALL    "AFF MOUSE"
  67.  
  68.     CALL    "intro"
  69.  
  70.     CALL    "town"
  71.     CALL    "DOCK"
  72.     CALL    "PLANETE"
  73.     CALL    "SPACE_CDRYK"
  74.     CALL    "SURFACE"
  75.     CALL    "AFF OCEANO"
  76.  
  77. #    CALL    "test"
  78.  
  79.     CALL    "oceano2"
  80.     CALL    "ILE"
  81.     CALL    "BLADE"
  82.  
  83.     EFFECT    1,0,400,"
  84.  
  85.  
  86.  
  87.       THE END
  88. "
  89.  
  90.     FADE_OUT
  91.     START_TASK
  92.     LOAD_MUS    "modules/mod.hysteria"
  93.     STOP_TASK
  94.  
  95.     START_TASK
  96.     LOAD_BACK    "pics/colormap"
  97.     STOP_TASK
  98.     CALL    "bonus"
  99. #    CALL    "moto"
  100.  
  101.     GOTO "DEBUT"
  102.  
  103. #################################
  104. LAB    "BLADE"
  105.     EFFECT    1,0,0,"
  106.   THIS IS A TRIBUTE TO
  107.     ONE OF THE BEST
  108.      'RAY-ARTISTS'
  109.      ON THE AMIGA"
  110.  
  111.     START_TASK
  112.     LOAD_BACK    "pics/blade_run_32_320.200.pic"
  113.     STOP_TASK
  114.     VAL_COL 16
  115.  
  116. #################################
  117. # On passe a un autre script    #
  118. #################################
  119.     BACK_ON
  120.     OMBRE_OFF
  121.  
  122.     ADD_OBJ   "HOOVER CAR"
  123.     SET_SPANG 0,0,0    
  124.     SET_SPEED 0,0,0    
  125.     SET_ANGLE 00,0,120
  126.     SET_POS      -1000,-250,550
  127.     VIT_OBJ    10
  128.     WAIT    65
  129. #    VIT_OBJ    0
  130. #    WAIT    50
  131.     REM_OBJ    "HOOVER CAR"
  132.  
  133.  
  134. # Deuxieme Script!
  135.  
  136.     ADD_OBJ   "HOOVER CAR"
  137.     SET_SPANG 0,0,0    
  138.     SET_SPEED 0,0,0    
  139.     SET_ANGLE 20,0,180
  140.  
  141.     SET_POS      -600,1000,5000
  142.     VIT_OBJ    10
  143.     WAIT    100
  144.     VIT_OBJ    10
  145.     SET_SPANG -4,0,0    
  146.     WAIT    10
  147.     SET_SPANG 0,0,0    
  148.     WAIT    43
  149.     REM_OBJ   "HOOVER CAR"
  150.  
  151. # Troisieme script!
  152.  
  153.     ADD_OBJ   "BLADE RUNNER"
  154.     SET_SPANG 0,0,0    
  155.     SET_SPEED 0,0,0    
  156.     SET_ANGLE 0,0,0
  157.  
  158.     SET_POS      300,100,-1000
  159.     VIT_OBJ    10
  160.     WAIT    10
  161.     WAIT    30
  162.     SET_SPANG -4,0,0    
  163.     WAIT    10
  164.     SET_SPANG 0,0,0    
  165.     WAIT    100
  166.     SET_SPANG 0,2,0    
  167.     WAIT    40
  168.     SET_SPANG -4,2,0    
  169.     WAIT    10
  170.     SET_SPANG 0,2,0    
  171.     WAIT    30
  172.     SET_SPANG -4,2,0    
  173.     WAIT    10
  174.     SET_SPANG 0,0,0    
  175.     WAIT    10
  176.     VIT_OBJ    50
  177.     WAIT    50
  178.  
  179.     WAIT    10        # attente
  180.  
  181.     REM_OBJ   "BLADE RUNNER"
  182.     CLEAR_FOND
  183.     EFFECT    1,0,400,"
  184. HIS NAME IS:
  185.  
  186.    - TOBIAS RICHTER -
  187. "
  188.  
  189.     RETURN
  190.  
  191. LAB    "WAIT"
  192.     WAIT 10
  193.     RETURN
  194.  
  195.  
  196. LAB    "anims"
  197. ###############################################################
  198. # Ceci est la partie ou 3 vaisseaux foncent sur l'obeservateur
  199. ###############################################################
  200.     BACK_OFF
  201.     OMBRE_OFF
  202.     CLEAR_RDV 0,4
  203.  
  204.     ADD_OBJ   "SHUTTLE","PROG SHUTTLE1"
  205.     ADD_OBJ   "SHUTTLE2","PROG SHUTTLE2"
  206.     ADD_OBJ   "SHUTTLE3","PROG SHUTTLE3"
  207.  
  208.     WAIT    20
  209.  
  210.     WAIT_RDV 0
  211.     WAIT    2
  212.  
  213. #################################
  214.  
  215. #################################
  216. # On passe a un autre script    #
  217. #################################
  218.  
  219.     OMBRE_ON  10
  220.     ADD_OBJ   "SHUTTLE"
  221.     CALL    "CLEAR OBJ"
  222.     SET_POS      200,-150,2000
  223.     VIT_OBJ    10
  224.     WAIT    50
  225.     VIT_OBJ    0
  226.     WAIT    30
  227.     SET_SPANG 0,0,8
  228.     VIT_OBJ    10
  229.     WAIT    20
  230.     SET_SPANG 0,0,0
  231.     VIT_OBJ    20
  232.     SET_SPEED 0,10,0    
  233.     WAIT    10
  234.     SET_SPANG 2,-4,0
  235.     VIT_OBJ    20
  236.     WAIT    50
  237.     SET_SPANG 0,0,0
  238.     WAIT    30
  239.     REM_OBJ    "SHUTTLE"
  240.     RETURN
  241.  
  242. ########################
  243.  
  244. LAB    "DOCK"
  245.     EFFECT    1,0,300,"
  246. THE SHIP IS  LEAVING
  247. THE ORBITAL STATION.
  248.  
  249. FOR A LONG TRIP.
  250. "
  251.             
  252.     START_TASK
  253.     LOAD_BACK    "pics/Intern_Ship"
  254.     STOP_TASK
  255.  
  256.     VAL_COL    16
  257.     CENTRE        160,160
  258.     BACK_ON
  259.     OMBRE_OFF
  260.     SET_DATA  0,0        # la donee 0= vitesse des portes
  261.     ADD_OBJ   "STAR_WARS"    # objet 7 = transporteur star wars
  262.     VIT_OBJ      0
  263.     SET_SPANG 0,0,0        # vitesses de rotation a 0
  264.     SET_SPEED 0,0,0        # vitesses de deplacement a 0
  265.     SET_ANGLE 0,0,180    # angles du vaisseau
  266.     SET_POS      300,-200,-20    # Apparition du vaisseau
  267.     WAIT    10        # attente
  268.  
  269.     SET_SPANG 0,0,4        # Il tourne sur lui meme
  270.     WAIT    43
  271.  
  272.  
  273.     SET_DATA  0,1        # Ouverture du mur du fond
  274.     SET_SPEED 0,0,10    # Super,non?
  275.     SET_SPANG 0,0,0
  276.     WAIT    60
  277.     SET_SPANG 1,0,1        # Il tourne sur lui meme
  278.     SET_SPEED 0,10,80    # Deuxieme parcours, on va plus vite
  279.     WAIT    50
  280.     SET_DATA  0,-1
  281.     SET_SPANG 0,0,0        # Il tourne sur lui meme
  282.     SET_SPEED 100,100,500    # Deuxieme parcours, on va plus vite
  283.     WAIT    20
  284.     REM_OBJ   "STAR_WARS"    # objet 7 = transporteur star wars
  285. #    WAIT    50
  286.     FADE_OUT
  287.     CENTRE        160,128
  288.     RETURN
  289.  
  290. #################################
  291. # On passe a un autre script    #
  292. #################################
  293. LAB    "VADER"
  294.     OMBRE_OFF
  295.     ADD_OBJ   "TEST_OBJ"
  296.     SET_SPANG 0,0,0    
  297.     SET_SPEED 0,0,0    
  298.     SET_ANGLE 00,0,120
  299.     SET_POS      -1000,0,500
  300.     VIT_OBJ    5
  301.     WAIT    20
  302.     VIT_OBJ    5
  303.     SET_SPANG -2,-2,0
  304.     SET_SPEED 0,0,0
  305.     WAIT    30
  306.     SET_SPANG -4,-4,0
  307.     WAIT    40
  308.     SET_SPANG 4,4,0
  309.     WAIT    20
  310.     REM_OBJ    "TEST_OBJ"
  311.     RETURN
  312.  
  313. #################################
  314. # Animation du T et du L!       #
  315. #################################
  316.  
  317. LAB    "anim TL"
  318.  
  319.     EFFECT    1,0,400,"
  320. LET'S START WITH A LITTLE
  321.   BIT OF MEGALOMANIA!
  322.  
  323.  
  324. BUT SIMPLE VECTORS...
  325. "
  326.     BACK_OFF
  327.  
  328.     PROF    3
  329.     VAL_COL    16
  330.     CLEAR_RDV 0,2
  331.     ADD_OBJ   "T","SCRIPT T"
  332.     ADD_OBJ   "L","SCRIPT L"
  333.     WAIT_RDV    0
  334.     RETURN
  335.  
  336. # Affichage d'un premier objet, le T!
  337. LAB    "SCRIPT T"
  338.     SET_POS      -100,0,4000
  339.     SET_SPANG 0,0,0    
  340.     SET_SPEED 0,0,-80    
  341.     SET_ANGLE 0,0,0
  342.  
  343.     WAIT    50
  344.     SET_SPEED 0,0,0    
  345.     WAIT    20
  346.     SET_SPANG 0,1,2    
  347.     WAIT    40
  348.     VIT_OBJ    2
  349.     WAIT    10
  350.     SET_SPEED 0,4,0    
  351.     WAIT    50
  352.     WAIT    50
  353.     SET_SPEED 20,0,40
  354.     WAIT    50
  355.     SET_SPEED 20,20,100
  356.     WAIT    50
  357.     RETURN
  358.  
  359. LAB    "SCRIPT L"
  360.     SET_POS      100,0,4000
  361.     SET_SPANG 0,0,0    
  362.     SET_SPEED 0,0,-80    
  363.     SET_ANGLE 0,0,0
  364.  
  365.     WAIT    50
  366.     SET_SPEED 0,0,0    
  367.     WAIT    20
  368.     SET_SPANG 2,0,4    
  369.     WAIT    40
  370.     SET_SPANG 0,2,0    
  371.     WAIT    10
  372.     WAIT    50
  373.     VIT_OBJ    2
  374.     SET_SPANG 4,0,4
  375.     WAIT    50
  376.     SET_SPEED 0,20,40    
  377.     WAIT    50
  378.     SET_SPEED 0,20,100
  379.     WAIT    50
  380.     WAIT_RDV 0
  381.     RETURN
  382.  
  383. #################################
  384. LAB    "show objets"
  385.  
  386.     BACK_OFF
  387.     VAL_COL    16
  388.     GOTO    "s1"
  389.     EFFECT    1,0,300,"
  390. JUST TO REMEMBER ONE
  391. OF MY EARLIER DEMO...
  392.  
  393. OF COURSE IN 5 BITPLANES.
  394. "
  395.  
  396.     PROF    5
  397.     BACK_OFF
  398.     OMBRE_OFF
  399.     ADD_OBJ    "DIRIGABLE"
  400.     SET_POS    0,600,0
  401.     SET_SPEED    0,-5,0
  402.     SET_SPANG    0,0,2
  403.     WAIT    100
  404.     SET_SPEED    0,0,0
  405.     SET_SPANG    0,0,-2
  406.     WAIT    20
  407.     SET_SPANG    2,0,-2
  408.     WAIT    20
  409.     SET_SPANG    -2,0,-2
  410.     WAIT    22
  411.     SET_SPANG    0,0,-2
  412.     WAIT    30
  413.     REM_OBJ    "DIRIGABLE"
  414.  
  415. #    EFFECT    0,1,0,0
  416.  
  417. LAB    "s1"
  418.     EFFECT    1,0,300,"
  419. LOOK AT THIS NICE
  420. COPTER NOW!
  421. "
  422.  
  423.     OMBRE_OFF
  424.     PROF    5
  425.     ADD_OBJ    "HELICO"
  426.     EFFECT    0,0,1,2
  427.     CALL    "app loin"
  428.     RESTORE_COP
  429.     SET_POS    -1000,-600,2600
  430.     SET_ANGLE    0,0,140
  431.     WAIT    100
  432.     REM_OBJ    "HELICO"
  433.  
  434. #################################
  435. # On passe a un autre script    #
  436. #################################
  437. #    UNLOAD_EXT 0
  438.  
  439.     EFFECT    1,0,300,"
  440. STRANGE OBJECTS...
  441. "
  442.     OMBRE_OFF
  443.     ADD_OBJ   "PALMIER"
  444.     SET_SPANG 0,0,0    
  445.     SET_SPEED 0,0,0    
  446.     SET_ANGLE -20,0,0
  447.     SET_POS      500,-100,0
  448.     WAIT    50
  449.     SET_SPANG 0,0,6    
  450.     SET_SPEED 0,10,0    
  451.     WAIT    100
  452.     REM_OBJ    "PALMIER"
  453.     RETURN
  454.  
  455. LAB    "app loin"
  456.     SET_POS      -600,-200,200
  457.     GOTO    "app_suite"
  458.     RETURN
  459. # Petite procedure sympa qui fait venir un objet de gauche a droite
  460.  
  461. LAB    "APPARITION1"
  462.  
  463.     SET_POS      -600,-200,0
  464. LAB    "app_suite"
  465.     SET_SPANG 0,0,0    
  466.     SET_SPEED 0,0,0    
  467.     SET_ANGLE 00,0,120
  468.     VIT_OBJ    5
  469.     WAIT    10
  470.     SET_SPANG 0,0,2
  471.     WAIT    10
  472.     SET_SPANG -4,-4,0
  473.     WAIT    50
  474.     SET_SPANG 0,0,0
  475.     WAIT    40
  476.     VIT_OBJ    10
  477.     WAIT    30
  478.     RETURN
  479.  
  480. LAB    "PROG SHUTTLE1"
  481. #    EFFECT    0,10
  482.     CALL  "CLEAR OBJ"
  483.     SET_POS      -800,0,5000
  484.     VIT_OBJ    20
  485.     WAIT    40
  486.     SET_SPANG 0,2,0
  487.     SET_SPEED 0,20,0
  488.     WAIT_RDV    0
  489.     RETURN
  490.  
  491. LAB    "PROG SHUTTLE2"
  492.     CALL  "CLEAR OBJ"
  493.     SET_POS      800,0,5000
  494.     VIT_OBJ    20
  495.     WAIT    40
  496.     SET_SPEED 0,20,0
  497.     SET_SPANG 0,-2,0
  498.     WAIT_RDV    0
  499.     RETURN
  500.  
  501. LAB    "PROG SHUTTLE3"
  502.     CALL  "CLEAR OBJ"
  503.     SET_POS      0,0,5000
  504.  
  505.     VIT_OBJ    20
  506.     WAIT    40
  507.     SET_SPEED 0,20,0
  508.     WAIT    30
  509.     WAIT_RDV    0
  510.     RETURN
  511.  
  512. # This function clear the position, speed and angle of the object
  513.  
  514. LAB "CLEAR OBJ"
  515.     SET_SPANG 0,0,0    
  516.     SET_SPEED 0,0,0    
  517.     SET_ANGLE 0,0,180
  518.     VIT_OBJ    0
  519.     RETURN
  520.  
  521. LAB    "AFF CIRCLE"
  522.  
  523.     EFFECT    1,0,500,"
  524. YES,NICE BUT NOW FOR THE
  525. FIRST TIME IN A DEMO,AND
  526. FOR THE SECOND TIME IN
  527. THE AMIGA STORY(AS FAR AS
  528. I KNOW!),THIS:"
  529.  
  530.     ADD_OBJ   "CIRCLE"
  531.     PROF    1
  532.     WAIT    2
  533.     FADE_IN
  534.     SET_SPANG 0,4,2    
  535.     SET_SPEED 0,0,00    
  536.     SET_ANGLE 00,0,0
  537.     SET_POS      0,0,00
  538.     WAIT    100
  539.     SET_SPEED 0,2,0
  540.     WAIT    50
  541.     VIT_OBJ    5
  542.     SET_SPANG -2,-2,0
  543.     WAIT    70
  544.     REM_OBJ    "CIRCLE"
  545.     RETURN
  546.  
  547. LAB    "AFF MOUSE"
  548.  
  549.     EFFECT    1,0,500,"
  550.   IT WAS REALLY AN
  551. HARD WORK TO DEVELOP
  552.     ALL OF THIS!
  553. BUT NOW,WE CAN EXPLORE
  554.  NEW KIND OF OBJECTS
  555. "
  556.     PROF    4
  557.     OMBRE_ON $333
  558.     BACK_OFF
  559.     ADD_OBJ    "MOUSE"
  560.     SET_POS  0,-250,1000    
  561.     SET_SPANG 0,0,0    
  562.     SET_SPEED 0,0,0    
  563.     SET_ANGLE 0,0,180
  564.  
  565.     SET_COL    1,$444
  566.     SET_COL    2,$5ff
  567.     SET_COL    3,$666
  568.     SET_COL    4,$777
  569.     SET_COL    5,$999
  570.     SET_COL    6,$aaa
  571.     SET_COL    7,$543
  572.  
  573.     VIT_OBJ    0
  574.     WAIT    10
  575.  
  576.     VIT_OBJ    10
  577.     WAIT    20
  578.  
  579.     VIT_OBJ    0
  580.     WAIT    30
  581.     SET_SPANG 0,0,4
  582.     WAIT    90
  583.     SET_SPANG 0,0,0
  584.     WAIT    30
  585.  
  586.     WAIT    30
  587.     SET_SPANG 0,0,10
  588.  
  589.     WAIT    16
  590.     VIT_OBJ    10
  591.     SET_SPANG 0,0,0
  592.     WAIT    20
  593.  
  594.     CALL "SOURIS1"
  595.     CALL "SOURIS1"
  596.     CALL "SOURIS1"
  597.     REM_OBJ    "MOUSE"
  598.     RETURN
  599.  
  600. LAB    "SOURIS1"
  601.  
  602.     VIT_OBJ    0
  603.     SET_SPANG 0,0,10
  604.     WAIT    5
  605.  
  606.     VIT_OBJ    20
  607.     SET_SPANG 0,0,0
  608.     WAIT    15
  609.  
  610.     VIT_OBJ    0
  611.     SET_SPANG 0,0,-10
  612.     WAIT    5
  613.  
  614.     VIT_OBJ    30
  615.     SET_SPANG 0,0,0
  616.     WAIT    15
  617.  
  618.     RETURN
  619.  
  620.  
  621.     # Script pour l'apparition des spheres!
  622. LAB    "AFF SPHERES"
  623. #################################
  624. # On passe a un autre script    #
  625. #################################
  626.     FADE_OUT
  627.     BACK_OFF
  628.     OMBRE_OFF
  629.  
  630.     EFFECT    1,0,600,"
  631. AFTER SOME MONTHS OF
  632. DEVELOPEMENT,I'M
  633. PROUD TO PRESENT YOU
  634. FOR THE FIRST TIME IN
  635. A DEMO: REAL 3D SPHERE"
  636.  
  637.     ADD_OBJ   "BALLES"
  638.     SET_SPANG 0,0,2    
  639.     SET_SPEED 0,0,0    
  640.     SET_ANGLE 0,0,0
  641.     SET_POS      0,0,0
  642.     WAIT    2
  643.     FADE_IN
  644.     WAIT    50
  645.     SET_SPANG 6,2,4    
  646.     WAIT    50
  647.     SET_SPANG 6,10,4    
  648.     SET_SPEED 0,0,10
  649.     WAIT    50
  650.     SET_SPEED 0,0,100
  651.     WAIT    50
  652.     REM_OBJ    "BALLES"
  653.     FADE_OUT
  654.  
  655. #################################
  656.     RETURN
  657.  
  658.  
  659. ########################
  660. # The poipoi are back! #
  661. ########################
  662. LAB    "AFF POIPOI"
  663.     START_TASK
  664.     FADE_OUT
  665.     OMBRE_ON  0
  666.     EFFECT    1,0,0,"
  667.  NOW LET'S MEET SOME
  668.      FRIENDS
  669.  
  670.  
  671. "
  672. #    LOAD_BACK    "pics/poipoi.back"
  673.     LOAD_BACK    "pics/PI.Thomas-Stage"
  674. #    RESTORE_COP
  675.     STOP_TASK
  676.     CENTRE        160,100
  677.     BACK_ON
  678.     PROF    4
  679.     FADE_IN
  680.     ADD_OBJ    "POIPOI"
  681.     EFFECT    0,3
  682.     CALL    "CLEAR OBJ"
  683.     SET_POS 0,-400,000
  684.     SET_ANGLE    0,0,120
  685.     SET_SPEED    6,0,30
  686.     SET_SPANG    0,0,2
  687.     WAIT    50
  688.  
  689.     ADD_OBJ    "POIPOI CLAV"
  690.     EFFECT    0,13
  691.     CALL    "CLEAR OBJ"
  692.     SET_POS 0,-200,000
  693.     SET_ANGLE    0,0,200
  694.     SET_SPEED    -6,0,30
  695.     SET_SPANG    0,0,-2
  696.     WAIT    50
  697.     SELECT        "POIPOI"
  698.     SET_SPEED    0,0,-60
  699.     SET_SPANG    0,0,-3
  700.     WAIT    35
  701.     SET_SPEED    0,0,0
  702.     SET_SPANG    0,0,0
  703.     WAIT    25
  704.     SELECT    "POIPOI CLAV"
  705.     SET_SPEED    0,0,-60
  706.     SET_SPANG    0,0,5
  707.  
  708.     ADD_OBJ    "POIPOI GUIT"
  709.     EFFECT    0,14
  710.     SET_POS 0,-200,000
  711.     SET_ANGLE    0,0,200
  712.     SET_SPEED    0,0,30
  713.     SET_SPANG    0,0,-2
  714.     WAIT    30
  715.  
  716.     SET_SPEED    0,0,-40
  717.     SET_SPANG    0,0,0
  718.     SELECT    "POIPOI CLAV"
  719.     SET_SPEED    0,0,0
  720.     SET_SPANG    0,0,0
  721.     WAIT    20
  722.     SELECT    "POIPOI GUIT"
  723.     SET_SPEED    0,0,0
  724.     WAIT    20
  725.  
  726.     WAIT    10
  727.  
  728.     SET_SPANG    0,0,10
  729.     SET_SPEED    0,30,10
  730.     SELECT    "POIPOI CLAV"
  731.     SET_SPANG    0,5,10
  732.     SET_SPEED    -10,30,10
  733.     SELECT    "POIPOI"
  734.     SET_SPANG    2,0,5
  735.     SET_SPEED    -4,30,10
  736.     WAIT    50
  737.     
  738.     FADE_OUT
  739.     REM_ALL
  740.     CENTRE        160,128
  741.     RETURN
  742.  
  743. #################################################
  744. # Animation sous la mer,avec poissions et tout! #
  745. #################################################
  746.  
  747. LAB    "AFF OCEANO"
  748.  
  749.     BACK_OFF
  750.     VAL_COL    0
  751.     EFFECT    1,0,500,"
  752. '- HERE EXPLORER ONE.
  753. WE ARE UNDER THE SEA
  754. NOW. THERE IS SOME STRANGE
  755. FISH HERE.
  756. BUT NOTHING ELSE TO SIGNAL'"
  757.  
  758.  
  759.     START_TASK    
  760.     LOAD_BACK    "pics/decor2-abyss"
  761.     PROF    5
  762.     BACK_ON
  763.     OMBRE_OFF
  764.     STOP_TASK
  765.     
  766.     ADD_OBJ    "BUBBLES"
  767.     EFFECT    0,7
  768.     SET_POS        500,0,500
  769.     ADD_OBJ    "OCEANO"
  770.     EFFECT    0,2
  771.     SET_POS        -380,-1000,500
  772.     SET_ANGLE    0,0,2
  773.     SET_SPANG    0,0,0
  774.     ADD_SPRITE    2,72,232
  775.     WAIT    1
  776.     FADE_IN
  777.     SET_SPEED    0,10,0
  778.     WAIT    100
  779.     SET_SPEED    0,0,0
  780.     VIT_OBJ    4
  781.     WAIT    100
  782.     SET_SPANG    0,0,4
  783.     VIT_OBJ    4
  784.     WAIT    100
  785.  
  786.     REM_SPRITE    2
  787.     SET_SPANG    0,0,0
  788.     WAIT    50
  789.  
  790.     CLEAR_RDV    0,3
  791.     ADD_OBJ    "FISH","APPARITION2"
  792.  
  793.     SELECT    "OCEANO"
  794.     SET_SPANG    0,0,-4
  795.     WAIT    50
  796.  
  797.     ADD_OBJ    "FISH2","FISH_SCRIPT"
  798.     SELECT    "OCEANO"
  799.  
  800.     SET_SPANG    0,0,0
  801.     WAIT    50
  802.  
  803.     SET_SPANG    0,0,4
  804.     WAIT    15
  805.     SET_SPANG    0,0,0
  806.     WAIT    110
  807.     WAIT_RDV    0
  808.     FADE_OUT
  809.     REM_ALL
  810.     RETURN
  811.  
  812. LAB    "APPARITION2"
  813.     CALL    "APPARITION1"
  814.     WAIT_RDV    0
  815.     RETURN
  816. LAB    "FISH_SCRIPT"
  817.     SET_POS        -200,150,5000
  818.     SET_ANGLE    0,0,200
  819.     SET_SPANG    0,0,0
  820.     VIT_OBJ    5
  821.     WAIT    100
  822.     SET_SPANG    0,0,-1
  823.     WAIT    150
  824.     WAIT_RDV    0
  825.     RETURN
  826. ###########################
  827. # Aaffichage du cylindre! #
  828. ###########################
  829. LAB    "AFF ALL"
  830.  
  831.     FADE_OUT
  832.     PROF    5
  833.     OMBRE_OFF
  834.  
  835.     EFFECT    1,0,300,"
  836.  
  837. BUT LET'S MIX ALL OF THIS"
  838.  
  839.  
  840.     ADD_OBJ    "CYLINDRE"
  841.     SET_SPANG 0,4,2
  842.     FADE_IN
  843.     WAIT    50
  844.     SET_SPANG 4,8,2    
  845.     WAIT    50
  846.     SET_SPANG 4,0,0    
  847.     WAIT    50
  848.     SET_SPANG 0,4,0    
  849.     WAIT    50
  850.     SET_SPANG 0,0,4    
  851.     WAIT    50
  852.     FADE_OUT
  853.     REM_OBJ    "CYLINDRE"
  854.     
  855.     EFFECT  1,0,600,"
  856. A SPECIAL LANGUAGE
  857. HAVE BEEN DEVELOPPED
  858. FOR THIS PIECE OF
  859. CODE. IT'S
  860. CALLED MODEL AND
  861. ALLOW YOU TO MAKE
  862. COMPLEX SCRIPTS"
  863.  
  864.     RETURN
  865.  
  866.  
  867. #################################
  868.  
  869. LAB    "AFF INTRO"
  870.  
  871.     START_TASK
  872.  
  873.     EFFECT    1,0,400,"
  874.      YOU THINK THAT
  875.  3D DEMOES ARE BORING
  876.       WITH ALWAYS
  877.     THE SAME KIND OF
  878.         OBJECTS.."
  879.  
  880.     EFFECT    1,0,400,"
  881. SO NOW PREPARE YOURSELF
  882.     FOR A NEW STEP\n
  883.       IN 3D WORLD\n"
  884.  
  885.     STOP_TASK
  886.     RETURN
  887.  
  888. ########################
  889. # The poipoi are back! #
  890. ########################
  891. LAB    "PLANETE"
  892.     START_TASK
  893.     OMBRE_OFF
  894.     EFFECT    1,0,200,"
  895. AFTER SOME MONTH OF
  896. VOYAGE,THEY APPROACH
  897. FROM KLJON SYSTEM"
  898.     VAL_COL    0
  899.  
  900.     LOAD_BACK "pics/pi.thomas-space"
  901.     PROF    5
  902.     CALL    "PLANETE2"
  903.     RETURN
  904.  
  905. LAB    "PLANETE2"
  906.     VAL_COL    0
  907.     FADE_IN
  908.     STOP_TASK
  909.     BACK_ON
  910.     ADD_OBJ    "STAR_WARS"
  911.     SET_POS        1000,-100,-900
  912.     SET_ANGLE    0,0,300
  913.     SET_SPANG    0,0,0
  914.     SET_SPEED    0,0,0
  915.     VIT_OBJ    4
  916.     WAIT    80
  917.     SET_SPANG    0,0,1
  918.     WAIT    30
  919.     SET_SPANG    0,2,1
  920.     WAIT    20
  921.     SET_SPANG    0,-2,1
  922.  
  923.     ADD_OBJ    "SHUTTLE"
  924.     SET_POS        0,-500,-500
  925.     SET_ANGLE    0,0,0
  926.     VIT_OBJ    5
  927.     WAIT    10
  928.  
  929.     ADD_OBJ    "MISSILE"
  930.     SET_POS        0,-400,-300
  931.     SET_ANGLE    0,0,0
  932.     VIT_OBJ    10
  933.  
  934.     WAIT    10
  935.  
  936.     SELECT    "STAR_WARS"
  937.     SET_SPANG    0,0,0
  938.     VIT_OBJ    10
  939.     WAIT    100
  940.     SELECT    "SHUTTLE"
  941.     VIT_OBJ    10
  942.     ADD_OBJ    "BLADE RUNNER"
  943.     SET_POS    1200,0,1000
  944.     SET_ANGLE    0,0,-90
  945.     SET_SPANG    0,0,0
  946.     VIT_OBJ    16
  947.     WAIT    25
  948.  
  949.     SET_SPANG    0,12,4
  950.     WAIT    30
  951.  
  952.     SET_SPANG    0,0,-2
  953.     WAIT    10
  954.  
  955.     SET_SPANG    0,0,0
  956.     SELECT    "SHUTTLE"
  957.     VIT_OBJ    14
  958.     REM_OBJ    "STAR_WARS"
  959.     WAIT    150
  960.  
  961.     FADE_OUT
  962.     REM_ALL
  963.     BACK_OFF
  964.     RETURN
  965.  
  966. LAB    "SPACE_CDRYK"
  967.     START_TASK
  968.     OMBRE_OFF
  969.     EFFECT    1,0,300,"
  970. THEY ARE NEAR THE
  971. PLANET WYTZUL,WHICH
  972. IS THE CENTER OF THIS
  973. SYSTEM,...
  974. "
  975.     EFFECT    1,0,300,"
  976. BUT A LOT OF ASTEROIDS
  977. MAKE THE PROGRESSION
  978. VERY DIFFICULT...
  979. BUT YOU'D BETTER LOOK!
  980. "
  981.  
  982.     LOAD_BACK "pics/decor1-space"
  983.     PROF    5
  984.     BACK_ON
  985.     STOP_TASK
  986.     FADE_IN
  987.     SET_SPRITE    5,0,145,4,45    # Gross pierre
  988.     SET_SPRITE    6,64,145,4,75    # Machin du fond
  989.  
  990.     ADD_OBJ    "STAR_WARS"
  991.     SET_SPEED    0,0,0
  992.     SET_POS    -1500,0,500
  993.     SET_ANGLE    0,0,90
  994.     SET_SPANG    0,0,0
  995.     ADD_SPRITE    4,43,61
  996.     ADD_SPRITE    3,124,100
  997.     ADD_SPRITE    5,135,163
  998.     VIT_OBJ    4
  999.     WAIT    100
  1000.     REM_SPRITE    4    # Enleve la premiere pierre
  1001.     WAIT    100
  1002.  
  1003.     REM_ALL_SPRITE
  1004.     ADD_SPRITE    6,263,79
  1005.     SET_POS    2500,0,2000    # Le vaisseau passe derriere le truc, a l'arriere plan
  1006.     SET_ANGLE    300,45,0
  1007.     WAIT    100
  1008.     SET_SPANG    0,-1,0
  1009.     WAIT    50
  1010.     SET_SPANG    0,0,0
  1011.     WAIT    60
  1012.  
  1013.     FADE_OUT
  1014.     REM_ALL_SPRITE
  1015.     REM_ALL
  1016.  
  1017.     RETURN
  1018.  
  1019. # Sequence de la surface, ou le gros vaisseau largue
  1020. # les deux petits
  1021.  
  1022. LAB    "SURFACE"
  1023.  
  1024.     START_TASK
  1025.     LOAD_BACK "pics/decor5-Sea"
  1026.     PROF    5
  1027.     BACK_ON
  1028.     STOP_TASK
  1029.  
  1030.     FADE_IN
  1031.     ADD_OBJ    "STAR_WARS"
  1032.     SET_POS    600,1000,2500
  1033.     SET_ANGLE    0,0,-160
  1034.     SET_SPANG    0,0,0
  1035.     SET_SPEED    0,-10,0
  1036.     VIT_OBJ    4
  1037.     OMBRE_ON  $1
  1038.     WAIT    100
  1039.     SET_SPEED    0,0,0
  1040.     WAIT    50
  1041.     VIT_OBJ    0
  1042.     WAIT    20
  1043.  
  1044.     VAL_COL    0
  1045.     EFFECT    1,0,300,"
  1046. -SPACE SHIP ONE READY.
  1047. THE EXPLORATION CREW IS
  1048. GOING OUT
  1049. "
  1050.     EFFECT    1,0,300,"
  1051. WE'RE GOING BACK
  1052. HOME...GOOD LUCK
  1053. GUYS!"
  1054.     VAL_COL    16
  1055.  
  1056.     ADD_OBJ    "CONTAINER"
  1057.     SET_POS    -400,0,300
  1058.     SET_SPANG    0,0,6
  1059.     SET_SPEED    0,-5,0
  1060.     ADD_OBJ    "CONTAINER2"
  1061.     SET_POS    -300,0,300
  1062.     SET_SPANG    0,0,4
  1063.     SET_SPEED    0,-4,4
  1064.  
  1065.     SELECT    "STAR_WARS"
  1066.     VIT_OBJ    4
  1067.     SET_SPANG    0,0,10
  1068.     WAIT    20
  1069.  
  1070.  
  1071.     SET_SPANG    0,0,0
  1072.     VIT_OBJ    20
  1073.     SET_SPEED    0,20,0
  1074.  
  1075.     WAIT    48
  1076.     ADD_OBJ    "CONTAINER"
  1077.     SET_SPEED    0,0,0
  1078.     SET_SPANG    0,0,1
  1079.     WAIT    16
  1080.     ADD_OBJ    "CONTAINER2"
  1081.     SET_SPANG    0,0,2
  1082.     SET_SPEED    0,0,0
  1083. #    WAIT    20
  1084.  
  1085.     WAIT    100
  1086.     REM_ALL
  1087.     OMBRE_OFF
  1088.     RETURN
  1089.  
  1090. LAB    "SEQ WATER"
  1091.  
  1092.     OMBRE_ON    5
  1093.     ADD_OBJ    "water base"
  1094.     SET_POS    0,-400,2000
  1095.     SET_ANGLE 0,0,130
  1096.     CLEAR_FOND
  1097.     PUT_FOND    "water base"
  1098.     REM_ALL
  1099.     BACK_ON
  1100.  
  1101.     ADD_OBJ "BOAT"
  1102.     SET_POS    500,-400,1500
  1103.     SET_ANGLE 0,0,130
  1104.     VIT_OBJ    4
  1105.  
  1106.     WAIT    50
  1107.     SET_SPANG    0,0,2
  1108.     WAIT    80
  1109.     SET_SPANG    0,0,0
  1110.     VIT_OBJ    8
  1111.     WAIT    100
  1112.  
  1113.     BACK_OFF
  1114.     SELECT    "BOAT"
  1115.     SET_POS    0,-400,0
  1116.     WAIT    100
  1117.     REM_ALL
  1118.  
  1119.     RETURN
  1120.  
  1121.     ########################
  1122.     # Sequence de la ville #
  1123.     ########################
  1124.  
  1125. LAB    "town"
  1126.  
  1127.     EFFECT    1,0,0,"
  1128. NOW, YOU'LL ENTER THE
  1129. SECOND PART OF THE 
  1130. DEMO......
  1131. WAIT AND ENJOY!
  1132. "
  1133.     START_TASK    
  1134.     LOAD_MUS    "modules/mod.(((((apocalypse))))"
  1135.     EFFECT    1,0,0,"
  1136. HEADQUARTERS OF THE
  1137. UNITED FEDERATION,
  1138. SEPTEMBER 2019
  1139. EARTH..."
  1140.  
  1141.  
  1142.     LOAD_BACK    "pics/decor3-city"
  1143.     VAL_COL    16
  1144.     PROF    5
  1145.     BACK_ON
  1146.     OMBRE_OFF
  1147.     STOP_TASK
  1148.  
  1149.     SET_SPRITE    5,128,155,8,34    # Immeuble du mileu
  1150.     SET_SPRITE    6,0,190,4,55    # Immeuble de gauche
  1151.  
  1152.     ADD_SPRITE    6,32,72
  1153.  
  1154.     ADD_OBJ    "HOOVER CAR2","PROC1"
  1155.     ADD_OBJ    "HOOVER CAR"
  1156.     SET_ANGLE    12,0,334
  1157.     SET_POS        500,0,-600
  1158.     VIT_OBJ    6
  1159.  
  1160.     WAIT    110
  1161.  
  1162.     ADD_SPRITE    5,196,145
  1163.     ADD_OBJ    "BLADE RUNNER"
  1164.     SET_ANGLE    345,5,237
  1165.     SET_POS        0,-200,2500
  1166.     SET_SPEED    0,10,0
  1167.     WAIT    50
  1168.     SET_SPEED    0,0,0
  1169.     VIT_OBJ    6
  1170.     SET_SPANG    0,0,4
  1171.     WAIT    60
  1172.     VIT_OBJ    12
  1173.     SET_SPANG    0,0,0
  1174.     WAIT    90
  1175.     REM_ALL
  1176.     REM_ALL_SPRITE
  1177.  
  1178.     VAL_COL    0
  1179.     EFFECT    1,0,300,"
  1180. THE SUPREME CONCIL
  1181. IS IN MEETING
  1182. "
  1183.     START_TASK
  1184.     LOAD_BACK    "pics/PI.Thomas-Council"
  1185.     BACK_ON
  1186.     FADE_IN
  1187.     WAIT    400
  1188.  
  1189.  
  1190.     VAL_COL    0
  1191.     EFFECT    1,0,300,"
  1192. -LT JOHN,YOU'VE FAILED
  1193.  IN YOUR MISSION IN
  1194. MARS......
  1195. "
  1196.     EFFECT    1,0,400,"
  1197. -BUT WE'VE DECIDED TO
  1198. GIVE YOU ANOTHER CHANCE,
  1199. BY EXPLORING THE
  1200. RECENTLY DISCOVERED
  1201. KLJON SYSYEM
  1202. "
  1203.     EFFECT    1,0,300,"
  1204. -YOU MUST COMPLETE
  1205. THIS MISSION!
  1206. "
  1207.     STOP_TASK
  1208.  
  1209.     RETURN
  1210.     # Animation du vehicule "en haut"
  1211. LAB    "PROC1"
  1212.     SET_ANGLE    340,0,236
  1213.     SET_POS        300,-10,5000
  1214.     VIT_OBJ    10
  1215.     WAIT    200
  1216.  
  1217.     RETURN
  1218.  
  1219.  
  1220. LAB    "oceano2"
  1221.  
  1222.     START_TASK    
  1223.  
  1224.     LOAD_BACK    "pics/PI.Thomas-Undersea2"
  1225.     PROF    5
  1226.     BACK_ON
  1227.     VAL_COL    16
  1228.     OMBRE_OFF
  1229.     STOP_TASK
  1230.  
  1231.     SET_SPRITE    5,128,190,2,47    # Bateau
  1232.     ADD_SPRITE    5,101,185
  1233.  
  1234.     ADD_OBJ    "MANTA"
  1235.     EFFECT    0,11
  1236.     SET_POS    -450,-450,1000
  1237.     SET_ANGLE    0,0,150
  1238.     VIT_OBJ    0
  1239.     WAIT    10
  1240.     VIT_OBJ    4
  1241.     WAIT    50
  1242.     SET_SPANG    0,0,4
  1243.     REM_ALL_SPRITE
  1244.     WAIT    40
  1245.     VIT_OBJ    8
  1246.     SET_SPANG    0,0,0
  1247.     WAIT    80
  1248.  
  1249.     VIT_OBJ    4
  1250.     SET_ANGLE    0,0,90
  1251.     SET_POS    -1000,-200,0
  1252.     WAIT    120
  1253.  
  1254.     ADD_OBJ    "OCEANO"
  1255.  
  1256.     SET_ANGLE    0,0,200
  1257.     SET_POS        1000,1000,3000
  1258.     SET_SPEED    0,-10,0
  1259.     VIT_OBJ    5    
  1260.     WAIT    30
  1261.     REM_OBJ    "MANTA"
  1262.  
  1263.     WAIT    40
  1264. #    EFFECT    1,0,500,"
  1265. #- EXPLORER ONE...
  1266.  
  1267.  
  1268.     WAIT    40
  1269.  
  1270.     SET_SPEED    0,0,0
  1271.     WAIT    100
  1272.  
  1273.     REM_ALL
  1274.  
  1275.     RETURN
  1276.  
  1277.     #########################################
  1278.     # Scenario avec BOING, the Great Boing! #
  1279.     #########################################
  1280.  
  1281. LAB    "intro"
  1282.  
  1283.     EFFECT    1,0,0,"
  1284.  
  1285.  
  1286.     IT'S A.....
  1287. "
  1288.  
  1289.     START_TASK    
  1290.     LOAD_BACK    "pics/LG.Tom-Soft"
  1291.     PROF    5
  1292.     BACK_ON
  1293.     OMBRE_ON    $111
  1294.     STOP_TASK
  1295.  
  1296.     ADD_OBJ    "BOING"
  1297.     EFFECT    0,6
  1298.     SET_ANGLE    0,0,200
  1299.     SET_POS        1500,100,3000
  1300.     WAIT    1
  1301.     FADE_IN
  1302.  
  1303.     VIT_OBJ    5
  1304.     WAIT    120
  1305.     VIT_OBJ    0
  1306.     WAIT    100
  1307.     SET_SPANG    0,0,2
  1308.     WAIT    40
  1309.     VIT_OBJ    5
  1310.     SET_SPANG    0,0,0
  1311.     WAIT    100
  1312.  
  1313.     REM_ALL
  1314.  
  1315.     RETURN
  1316.  
  1317.  
  1318. LAB    "ILE"
  1319.  
  1320.     START_TASK
  1321.     LOAD_BACK    "pics/PI.Thomas-Island"
  1322.     STOP_TASK
  1323.     PROF    5
  1324.     VAL_COL    16
  1325.     BACK_ON
  1326.     OMBRE_ON    0
  1327.     ADD_OBJ    "BOAT"
  1328.     SET_POS    0,-400,0
  1329.     SET_ANGLE 0,0,60
  1330.     SET_SPANG    0,0,0
  1331.     VIT_OBJ    4
  1332.     WAIT    50
  1333.     SET_SPANG    0,0,-2
  1334.     WAIT    30
  1335.     SET_SPANG    0,0,2
  1336.     WAIT    15
  1337.     SET_SPANG    0,0,0
  1338.     VIT_OBJ    10
  1339.     WAIT    100
  1340.     REM_ALL
  1341.     CLEAR_FOND
  1342. EFFECT    1,0,400,"
  1343. THE EXPLORATION IS
  1344. NOT YET FINISHED
  1345. ...BUT WE HAVE NO
  1346. TIME TO FINISH IT...
  1347.  
  1348. MAY BE SEE YOU LATER...
  1349.  
  1350. "
  1351.     RETURN
  1352.  
  1353. LAB    "globe"
  1354.     START_TASK
  1355.     LOAD_BACK    "pics/colormap"
  1356.     STOP_TASK
  1357.  
  1358.     PROF    4
  1359.     BACK_OFF
  1360.     OMBRE_OFF
  1361.     VAL_COL    16
  1362.  
  1363.     ADD_OBJ    "WORLD"
  1364.     SET_POS    0,-400,1000
  1365.     ADD_OBJ    "AVION"
  1366.     EFFECT    0,12
  1367. #    WAIT    1
  1368.     SET_POS    1000,-400,1000
  1369.     SET_ANGLE    0,0,180
  1370.     SET_SPANG    0,0,2
  1371.     VIT_OBJ    8
  1372.     WAIT    250
  1373.     SET_SPANG    0,2,0
  1374.     WAIT    200
  1375.     REM_ALL
  1376.  
  1377.     BACK_ON
  1378.  
  1379.     ADD_OBJ    "AVION"
  1380.  
  1381.     CLEAR_FOND
  1382.     BACK_ON
  1383.     SELECT    "AVION"
  1384.     EFFECT    0,15,"  [[[ NOW THE CREDITS [[["
  1385.     SET_POS    -1500,-800,2500
  1386.     SET_ANGLE    271,16,351
  1387.     SET_SPANG    0,-1,0
  1388.     VIT_OBJ    8
  1389.     WAIT    250
  1390.  
  1391.     CLEAR_FOND
  1392.     BACK_ON
  1393.     SELECT    "AVION"
  1394.     EFFECT    0,15,"GRAPHICS BY ELMER"
  1395.     SET_SPANG    0,0,0
  1396.     SET_POS    -1400,00,1500
  1397.     SET_ANGLE    300,300,50
  1398.     VIT_OBJ    8
  1399.     WAIT    200
  1400.  
  1401.     EFFECT    0,15,"CDRYK AND SKREW   "
  1402.     SET_POS    -1400,-200,1300
  1403.     SET_ANGLE    300,300,50
  1404.     WAIT    200
  1405.  
  1406.     CLEAR_FOND
  1407.     BACK_ON
  1408.     SELECT    "AVION"
  1409.     EFFECT    0,15,"[[[[[[[[  YEAAAAAAHHHH A COOL WRITER [[[[[[[["
  1410.     SET_POS    -1500,500,3000
  1411.     SET_ANGLE    102,145,171
  1412.     SET_SPANG    0,-1,2
  1413.     WAIT    400
  1414.  
  1415.  
  1416.     CLEAR_FOND
  1417.     BACK_ON
  1418.     SELECT    "AVION"
  1419.     EFFECT    0,15,"IT S A NICE EFFECT NO"
  1420.     SET_POS    0,-300,1000
  1421.     SET_ANGLE    102,145,171
  1422.     SET_SPANG    2,-1,0
  1423.     WAIT    250
  1424.  
  1425.  
  1426.     REM_ALL
  1427.     CLEAR_FOND
  1428.  
  1429.     EFFECT    2,0,10,"
  1430. AND MUSICS BY
  1431. AUDIOMONSTER
  1432.  
  1433.   GREAT!
  1434.  
  1435. "
  1436.     EFFECT    2,0,10,"  THIS NICE TEXT
  1437.  WRITER  HAVE BEEN
  1438.       MADE BY:
  1439.  
  1440. PERFORMER OF SILENTS
  1441.       THANKS
  1442. "
  1443.     VAL_COL    0
  1444.     RESTORE_COP
  1445.     RETURN
  1446.  
  1447.  
  1448. LAB    "moto"
  1449.     VAL_COL    16
  1450.     PROF    5
  1451.     ADD_OBJ    "MOTO"
  1452.     SET_POS    -300,-350,1200
  1453.     SET_SPANG    0,0,0
  1454.     SET_ANGLE    0,0,130
  1455.     VIT_OBJ    10
  1456.     ADD_OBJ    "MOTO2"
  1457.     SET_POS    -500,-350,1000
  1458.     SET_SPANG    0,0,0
  1459.     SET_ANGLE    0,0,130
  1460.     VIT_OBJ    10
  1461.     ADD_OBJ    "MOTO3"
  1462.     SET_POS    -700,-350,700
  1463.     SET_SPANG    0,0,0
  1464.     VIT_OBJ    10
  1465.     SET_ANGLE    0,0,130
  1466.     WAIT    30
  1467.     SET_ANGLE    0,0,220
  1468.     SELECT    "MOTO"
  1469.     SET_ANGLE    0,0,40
  1470.     WAIT    30
  1471.     REM_ALL
  1472.     RETURN
  1473.  
  1474. LAB    "bonus"
  1475.     CLEAR_FOND
  1476.     EFFECT    1,0,400,"
  1477. NOW SOME BONUS TRACKS!
  1478. LIKE:
  1479.   - THE GREETINGS
  1480.   - SOME WORDS...
  1481. "
  1482.     EFFECT    1,0,600,"
  1483. SORRY, BUT THERE WAS NO
  1484. GLENZ VECTOR  (WITHOUT
  1485. ANY CELEBRANDIL MODE) 
  1486. NO RASTERS, NOT  A LOT 
  1487. OF ONE VBL 3D OBJECTS...
  1488.  
  1489. BUT THAT'S WHAT I LIKE!
  1490. "
  1491.  
  1492.     EFFECT    1,0,600,"
  1493. THE GREETINGS FIRST:
  1494. TO
  1495.  
  1496.  MARTYN OF NEWSFLASH,
  1497.  MARAUDER/MYSTICS,
  1498.  THE NAZCLUB,REG FROM TLK
  1499.  DELTA/RED SECTOR,NHP,
  1500.  RONAN AND OF COURSE ALL
  1501.  THAT I'VE FORGOT...
  1502. "
  1503.     EFFECT    1,0,600,"
  1504.   NOTE: I USE THE TEC'S
  1505. LINEDRAWING ROUTINE, SO
  1506. THANKS TO HIM!
  1507.  
  1508. "
  1509.     CALL    "last one"
  1510.  
  1511.     EFFECT    1,0,600,"THE CREDITS,JUST BECAUSE IT
  1512. WAS NOT VERY READABLE:
  1513.  GFX:
  1514.   - ELMER
  1515.   - C-DRYK
  1516.   - SKREW
  1517.  MUSIC:
  1518.   - AUDIOMONSTER
  1519.  PROGRAMMING
  1520.   - THOMAS LANDSPURG
  1521.  ADDITIONNAL CODING:
  1522.   - PERFORMER OF SILENTS
  1523. "
  1524.  
  1525.     EFFECT    1,0,700,"
  1526. CONTACT ADRESS:
  1527.   THOMAS LANDSPURG
  1528.   9, RUE BALDUNG-GRIEN
  1529.   67000 STRASBOURG
  1530.   FRANCE
  1531. NO ILLEGAL SWAPPING
  1532. AND ..NOT ALWAYS AN
  1533. ANSWER!
  1534. "
  1535.  
  1536.     CALL    "last one2"
  1537.  
  1538.     EFFECT    1,0,600,"
  1539. ABOUT THIS DEMO:
  1540.  - 400 KBYTES OF
  1541.    COMPACTED GFX
  1542.  - 200 KBYTES OF MUSIC
  1543.  - A LOT OF HARD CODING...
  1544. "
  1545.     EFFECT    1,0,600,"AND OF COURSE NO LAME\nTRACKDISK LOADING!\nBUT A FULL AMIGADOS\n    SUPPORT\n
  1546.     (I HOPE!)
  1547.  
  1548. MAYBE A CDTV VERSION?
  1549. "
  1550.  
  1551.     EFFECT    1,0,600,"
  1552. SORRY,BUT I CAN'T ANSWER
  1553. TO ALL THE LETTERS LIKE:
  1554.   PLEASE,EXPLAIN ME HOW
  1555. TO MAKE FILLED 3D, OR HOW
  1556. TO SHOW AN IFF PICTURE!
  1557.  
  1558.  SORRY GUYS!
  1559. "
  1560.     RETURN
  1561.  
  1562. LAB    "test"
  1563. #    STOP_TASK
  1564.     VAL_COL    16
  1565.  
  1566. #    BACK_ON
  1567. #    CLEAR_FOND
  1568.     OMBRE_OFF
  1569.  
  1570.     ADD_OBJ    "MICKY"
  1571.     SET_SPANG    0,0,2
  1572.     SET_SPEED    -5,0,20
  1573.     CALL    "go back"
  1574.     PUT_FOND    "MICKY"
  1575.  
  1576.     ADD_OBJ    "HOOVER CAR"
  1577.     SET_SPANG    0,0,2
  1578.     SET_SPEED    0,-5,20
  1579.     CALL        "go back"
  1580.     PUT_FOND    "HOOVER CAR"
  1581.  
  1582. #    ADD_OBJ    "BIG SHIP","go back"
  1583. #    SET_SPANG    0,0,2
  1584. #    SET_SPEED    0,5,20
  1585.     WAIT    100
  1586.  
  1587.     REM_ALL
  1588.     RETURN
  1589.  
  1590. LAB    "go back"
  1591.     SET_POS    0,0,0
  1592.     WAIT    100
  1593. #    PUT_FOND    "CURRENT"
  1594.     RETURN
  1595.  
  1596. LAB    "last one"
  1597.     VAL_COL    16
  1598.  
  1599.     BACK_OFF
  1600.     OMBRE_OFF
  1601.     ADD_OBJ    "MICKY"
  1602.     SET_SPANG    0,0,2
  1603.     SET_SPEED    -5,0,20
  1604.     CALL    "go back"
  1605.     WAIT    100
  1606.     REM_ALL
  1607.     RETURN
  1608.  
  1609. LAB    "last one2"
  1610.     VAL_COL    16
  1611.  
  1612.     BACK_OFF
  1613.     OMBRE_OFF
  1614.     ADD_OBJ    "SPOING"
  1615.     SET_ANGLE -20,0,0
  1616.     SET_SPANG    0,0,5
  1617.     SET_SPEED    5,0,20
  1618.     CALL    "go back"
  1619.     REM_ALL
  1620.     RETURN
  1621.  
  1622.     END
  1623.