home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 24 / CDMM24_2.iso / data / system / subcrew.s < prev    next >
Encoding:
Text File  |  1996-08-28  |  10.3 KB  |  267 lines
  1.    public short CRW_NEWHOPE  = 0;
  2.    public short CRW_STARWARS = 1;
  3.    public short CRW_EMPIRE   = 2;
  4.    public short CRW_JEDI     = 3;
  5.  
  6.     static short crw_frames[4] = {
  7.         24,5,13,17
  8.     };
  9.  
  10. //-----------------------
  11. //
  12. // do_loop()
  13. //
  14. //-----------------------
  15.  
  16. short do_loop()
  17. {
  18.     short base;
  19.  
  20.       while (anim_query()) sleep();
  21.  
  22.     if (current_submenu < 100) {
  23.         if      (current_menu==CRW_STARWARS) base = 100;
  24.         else if (current_menu==CRW_EMPIRE  ) base = 110;
  25.         else if (current_menu==CRW_JEDI    ) base = 130;
  26.         else if (current_menu==CRW_NEWHOPE ) base = 150;
  27.  
  28.         print_tres( base + current_submenu, 378,10, 1,0, 0 );
  29.     }
  30. }
  31.  
  32. //-----------------------
  33. //
  34. // start_up()
  35. //
  36. //-----------------------
  37.  
  38. short start_up()
  39. {
  40.     short i,k,error;
  41.  
  42.     //
  43.     // Set forward, back, and control icons
  44.     //
  45.  
  46.    icon_reset();
  47.  
  48.    icon_add( ICON_CONTROL, 0 );
  49.    icon_add( ICON_UP,      0 );
  50.  
  51.  
  52.     if (current_submenu > 0 && current_submenu < 100) {
  53.         icon_add( ICON_BACK, 0 );
  54.         button_set( "back", 0,0 );
  55.     }
  56.     else {
  57.         button_set( "back", 1,0 );
  58.     }
  59.  
  60.  
  61.     if (current_submenu < crw_frames[current_menu]-1 && current_submenu < 100) {
  62.         icon_add( ICON_FORWARD, 0 );
  63.         button_set( "forward", 0,0 );
  64.     }
  65.     else {
  66.         button_set( "forward", 1,0 );
  67.     }
  68.  
  69.     //
  70.     // If not returning from control panel...
  71.     //
  72.  
  73.    if (!pan_quit_flag) {
  74.  
  75.         //
  76.         // Restart background animation
  77.         //
  78.  
  79.         if      (current_menu==CRW_STARWARS) error = crw_show_sw( current_submenu );
  80.         else if (current_menu==CRW_EMPIRE  ) error = crw_show_em( current_submenu );
  81.         else if (current_menu==CRW_JEDI    ) error = crw_show_jd( current_submenu );
  82.         else if (current_menu==CRW_NEWHOPE ) error = crw_show_nh( current_submenu );
  83.  
  84.         if (error==0) {
  85.             button_set( "Old Photo", SHOW,0 );
  86.         } else {
  87.             button_set( "Old Photo", HIDE,0 );
  88.         }
  89.     }
  90.  
  91.     pan_quit_flag = FALSE;
  92.  
  93. }
  94.  
  95. //---------------------------
  96. //
  97. // crw_show_nh()
  98. //
  99. //---------------------------
  100.  
  101. static short crw_show_nh( short submenu )
  102. {
  103.     if      (submenu == 8)    anim_start("data\crew\new_hope\Paul_H.nut"   ,ONCE,NEWPAL);
  104.     else if (submenu == 9)    anim_start("data\crew\new_hope\Tom_K.nut"    ,ONCE,NEWPAL);
  105.     else if (submenu ==10)    anim_start("data\crew\new_hope\John_K.nut"   ,ONCE,NEWPAL);
  106.     else if (submenu ==23)    anim_start("data\crew\new_hope\Steve_W.nut"  ,ONCE,NEWPAL);
  107.  
  108.     else {
  109.  
  110.         if      (submenu == 0)    anim_start("data\crew\new_hope\CharlieB.nut" ,ONCE,NEWPAL);
  111.         else if (submenu == 1)    anim_start("data\crew\new_hope\John_B.nut"   ,ONCE,NEWPAL);
  112.         else if (submenu == 2)    anim_start("data\crew\new_hope\David_D.nut"  ,ONCE,NEWPAL);
  113.         else if (submenu == 3)    anim_start("data\crew\new_hope\Pat_F.nut"    ,ONCE,NEWPAL);
  114.         else if (submenu == 4)    anim_start("data\crew\new_hope\Jon_F.nut"    ,ONCE,NEWPAL);
  115.         else if (submenu == 5)    anim_start("data\crew\new_hope\Joe_F.nut"    ,ONCE,NEWPAL);
  116.         else if (submenu == 6)    anim_start("data\crew\new_hope\Howard_G.nut" ,ONCE,NEWPAL);
  117.         else if (submenu == 7)    anim_start("data\crew\new_hope\Ed_H.nut"     ,ONCE,NEWPAL);
  118.         else if (submenu ==11)    anim_start("data\crew\new_hope\Joe_L.nut"    ,ONCE,NEWPAL);
  119.         else if (submenu ==12)    anim_start("data\crew\new_hope\Stu_M.nut"    ,ONCE,NEWPAL);
  120.         else if (submenu ==13)    anim_start("data\crew\new_hope\Rich_M.nut"   ,ONCE,NEWPAL);
  121.         else if (submenu ==14)    anim_start("data\crew\new_hope\Mark_M.nut"   ,ONCE,NEWPAL);
  122.         else if (submenu ==15)    anim_start("data\crew\new_hope\Dennis_M.nut" ,ONCE,NEWPAL);
  123.         else if (submenu ==16)    anim_start("data\crew\new_hope\MichaelO.nut" ,ONCE,NEWPAL);
  124.         else if (submenu ==17)    anim_start("data\crew\new_hope\Lorne_P.nut"  ,ONCE,NEWPAL);
  125.         else if (submenu ==18)    anim_start("data\crew\new_hope\Josh_P.nut"   ,ONCE,NEWPAL);
  126.         else if (submenu ==19)    anim_start("data\crew\new_hope\Alex_S.nut"   ,ONCE,NEWPAL);
  127.         else if (submenu ==20)    anim_start("data\crew\new_hope\Yusei_U.nut"  ,ONCE,NEWPAL);
  128.         else if (submenu ==21)    anim_start("data\crew\new_hope\Bruce_V.nut"  ,ONCE,NEWPAL);
  129.         else if (submenu ==22)    anim_start("data\crew\new_hope\Tim_W.nut"    ,ONCE,NEWPAL);
  130.  
  131.         else if (submenu ==108)    anim_start("data\crew\new_hope\Paul_H2.nut"  ,ONCE,NEWPAL);
  132.         else if (submenu ==109)    anim_start("data\crew\new_hope\Tom_K2.nut"   ,ONCE,NEWPAL);
  133.         else if (submenu ==110)    anim_start("data\crew\new_hope\John_K2.nut"  ,ONCE,NEWPAL);
  134.         else if (submenu ==123)    anim_start("data\crew\new_hope\Steve_W2.nut" ,ONCE,NEWPAL);
  135.         else return -1;
  136.  
  137.         return 1;
  138.     }
  139.     return 0;
  140. }
  141.  
  142. //---------------------------
  143. //
  144. // crw_show_sw()
  145. //
  146. //---------------------------
  147.  
  148. static short crw_show_sw( short submenu )
  149. {
  150.     if      (submenu == 0)    anim_start("data\crew\starwars\Steve_G.nut"  ,ONCE,NEWPAL);
  151.     else if (submenu == 1)    anim_start("data\crew\starwars\Paul_H.nut"   ,ONCE,NEWPAL);
  152.     else if (submenu == 2)    anim_start("data\crew\empire\Dennis_M.nut",ONCE,NEWPAL);
  153.     else if (submenu == 3)    anim_start("data\crew\starwars\Bruce_N.nut"  ,ONCE,NEWPAL);
  154.     else if (submenu == 4)    anim_start("data\crew\starwars\Lorne_P.nut"  ,ONCE,NEWPAL);
  155.  
  156.     else {
  157.         if      (submenu ==100)    anim_start("data\crew\starwars\Steve_G2.nut" ,ONCE,NEWPAL);
  158.         else if (submenu ==101)    anim_start("data\crew\starwars\Paul_H2.nut"  ,ONCE,NEWPAL);
  159.         else if (submenu ==102)    anim_start("data\crew\empire\DennisM2.nut",ONCE,NEWPAL);
  160.         else if (submenu ==103)    anim_start("data\crew\starwars\Bruce_N2.nut" ,ONCE,NEWPAL);
  161.         else if (submenu ==104)    anim_start("data\crew\starwars\Lorne_P2.nut" ,ONCE,NEWPAL);
  162. //        else if (submenu == 8)    anim_start("data\crew\starwars\Steve_G3.nut" ,ONCE,NEWPAL);
  163.         else return -1;
  164.  
  165.         return 1;
  166.     }
  167.  
  168.     return 0;
  169. }
  170.  
  171. //---------------------------
  172. //
  173. // crw_show_em()
  174. //
  175. //---------------------------                                                            
  176.  
  177. static short crw_show_em( short submenu )
  178. {
  179.     if      (submenu == 0)    anim_start("data\crew\empire\CharlieB.nut",ONCE,NEWPAL);
  180.     else if (submenu == 1)    anim_start("data\crew\empire\Patty_B.nut"    ,ONCE,NEWPAL);
  181.     else if (submenu == 2)    anim_start("data\crew\empire\MichaelB.nut",ONCE,NEWPAL);
  182.     else if (submenu == 3)    anim_start("data\crew\empire\Dave_C.nut"    ,ONCE,NEWPAL);
  183.     else if (submenu == 4)    anim_start("data\crew\empire\Dick_D.nut"    ,ONCE,NEWPAL);
  184.     else if (submenu == 6)    anim_start("data\crew\empire\Ed_H.nut"         ,ONCE,NEWPAL);
  185.     else if (submenu == 7)    anim_start("data\crew\empire\James_L.nut"    ,ONCE,NEWPAL);
  186.     else if (submenu == 8)    anim_start("data\crew\empire\Dennis_M.nut",ONCE,NEWPAL);
  187.     else if (submenu ==10)    anim_start("data\crew\empire\Mike_M.nut"    ,ONCE,NEWPAL);
  188.     else if (submenu ==11)    anim_start("data\crew\empire\Udo_P.nut"    ,ONCE,NEWPAL);
  189.     else if (submenu ==12)    anim_start("data\crew\empire\Tom_R.nut"    ,ONCE,NEWPAL);
  190.  
  191.     else {
  192.         if      (submenu == 5)    anim_start("data\crew\empire\Bob_F.nut"    ,ONCE,NEWPAL);
  193.         else if (submenu == 9)    anim_start("data\crew\empire\Ken_S.nut"    ,ONCE,NEWPAL);
  194.  
  195.         else if (submenu ==100)    anim_start("data\crew\empire\CharliB2.nut",ONCE,NEWPAL);
  196.         else if (submenu ==101)    anim_start("data\crew\empire\Patty_B2.nut",ONCE,NEWPAL);
  197.         else if (submenu ==102)    anim_start("data\crew\empire\Mike_B2.nut"    ,ONCE,NEWPAL);
  198.         else if (submenu ==103)    anim_start("data\crew\empire\Dave_C2.nut"    ,ONCE,NEWPAL);
  199.         else if (submenu ==104)    anim_start("data\crew\empire\Dick_D2.nut"    ,ONCE,NEWPAL);
  200.         else if (submenu ==106)    anim_start("data\crew\empire\Ed_H2.nut"    ,ONCE,NEWPAL);
  201.         else if (submenu ==107)    anim_start("data\crew\empire\James_L2.nut",ONCE,NEWPAL);
  202.         else if (submenu ==108)    anim_start("data\crew\empire\DennisM2.nut",ONCE,NEWPAL);
  203.         else if (submenu ==110)    anim_start("data\crew\empire\Mike_M2.nut"    ,ONCE,NEWPAL);
  204.         else if (submenu ==111)    anim_start("data\crew\empire\Udo_P2.nut"    ,ONCE,NEWPAL);
  205.         else if (submenu ==112)    anim_start("data\crew\empire\Tom_R2.nut"    ,ONCE,NEWPAL);
  206.  
  207.         else return -1;
  208.  
  209.         return 1;
  210.     }
  211.  
  212.     return 0;
  213. }
  214.  
  215. //---------------------------
  216. //
  217. // crw_show_jd()
  218. //
  219. //---------------------------
  220.  
  221. static short crw_show_jd( short submenu )
  222. {
  223.     if      (submenu == 0)    anim_start("data\crew\jedi\BarbaraA.nut",ONCE,NEWPAL);
  224.     else if (submenu == 2)    anim_start("data\crew\jedi\Marty_B.nut" ,ONCE,NEWPAL);
  225.     else if (submenu == 3)    anim_start("data\crew\jedi\Chris_E.nut" ,ONCE,NEWPAL);
  226.     else if (submenu == 4)    anim_start("data\crew\jedi\Scott_F.nut" ,ONCE,NEWPAL);
  227.     else if (submenu == 5)    anim_start("data\crew\jedi\Bob_F.nut"     ,ONCE,NEWPAL);
  228.     else if (submenu == 6)    anim_start("data\crew\jedi\Pat_F.nut"     ,ONCE,NEWPAL);
  229.     else if (submenu == 8)    anim_start("data\crew\jedi\Bill_G.nut"     ,ONCE,NEWPAL);
  230.     else if (submenu == 9)    anim_start("data\crew\jedi\Mike_G.nut"     ,ONCE,NEWPAL);
  231.     else if (submenu ==10)    anim_start("data\crew\jedi\Bob_H.nut"     ,ONCE,NEWPAL);
  232.     else if (submenu ==12)    anim_start("data\crew\jedi\Bill_K.nut"     ,ONCE,NEWPAL);
  233.     else if (submenu ==13)    anim_start("data\crew\jedi\Kim_M.nut"     ,ONCE,NEWPAL);
  234.     else if (submenu ==14)    anim_start("data\crew\jedi\Randy_O.nut" ,ONCE,NEWPAL);
  235.     else if (submenu ==15)    anim_start("data\crew\jedi\Mike_O.nut"     ,ONCE,NEWPAL);
  236.     else if (submenu ==16)    anim_start("data\crew\jedi\Pat_S.nut"     ,ONCE,NEWPAL);
  237.  
  238.     else {
  239.  
  240.         if      (submenu == 1)    anim_start("data\crew\jedi\Lance_B.nut" ,ONCE,NEWPAL);
  241.         else if (submenu == 7)    anim_start("data\crew\jedi\Joe_F.nut"     ,ONCE,NEWPAL);
  242.         else if (submenu ==11)    anim_start("data\crew\jedi\Paula_K.nut" ,ONCE,NEWPAL);
  243.  
  244.         else if (submenu ==100)    anim_start("data\crew\jedi\BarbA2.nut"     ,ONCE,NEWPAL);
  245.         else if (submenu ==102)    anim_start("data\crew\jedi\Marty_B2.nut",ONCE,NEWPAL);
  246.         else if (submenu ==103)    anim_start("data\crew\jedi\Chris_E2.nut",ONCE,NEWPAL);
  247.         else if (submenu ==104)    anim_start("data\crew\jedi\Scott_F2.nut",ONCE,NEWPAL);
  248.         else if (submenu ==105)    anim_start("data\crew\jedi\Bob_F2.nut"     ,ONCE,NEWPAL);
  249.         else if (submenu ==106)    anim_start("data\crew\jedi\Pat_F2.nut"     ,ONCE,NEWPAL);
  250.         else if (submenu ==108)    anim_start("data\crew\jedi\Bill_G2.nut" ,ONCE,NEWPAL);
  251.         else if (submenu ==109)    anim_start("data\crew\jedi\Mike_G2.nut" ,ONCE,NEWPAL);
  252.         else if (submenu ==110)    anim_start("data\crew\jedi\Bob_H2.nut"     ,ONCE,NEWPAL);
  253.         else if (submenu ==112)    anim_start("data\crew\jedi\Bill_K2.nut" ,ONCE,NEWPAL);
  254.         else if (submenu ==113)    anim_start("data\crew\jedi\Kim_M2.nut"     ,ONCE,NEWPAL);
  255.         else if (submenu ==114)    anim_start("data\crew\jedi\Randy_O2.nut",ONCE,NEWPAL);
  256.         else if (submenu ==115)    anim_start("data\crew\jedi\Mike_O2.nut" ,ONCE,NEWPAL);
  257.         else if (submenu ==116)    anim_start("data\crew\jedi\Pat_S2.nut"     ,ONCE,NEWPAL);
  258.  
  259.         else return -1;
  260.  
  261.         return 1;
  262.     }
  263.  
  264.     return 0;
  265. }
  266.  
  267.