home *** CD-ROM | disk | FTP | other *** search
/ 3D World Tour - The Excit… Virtual Reality Journey / 3D_WORLD_TOUR.bin / 3dw256.xms < prev    next >
Text File  |  1995-08-30  |  61KB  |  2,498 lines
  1. 3dmode = 512x700x8
  2.  
  3. scr1 = (  0,  0,512,700),0,(0,0,0)            ; main
  4. scr2 = (128,174,256,350),0,(0,0,0)            ; LOGO_screen
  5. scr3 = ( 64,144,366,500),0,(0,0,0)            ; Open V.S
  6. scr4 = ( 90,  0,316,144),0,(0,0,0)             ; Open V.S_pre
  7. scr5 = (420,284, 92,162),0,(0,0,0)             ; Open V.S_pre
  8.  
  9. CreateVar = (Item_start_NO, Item_NO, Item_Sub, Str_NO, ItemMax, Con_NO)
  10. CreateVar = (msX, msY, Bool, Save_NO, Fl_NO, Pass_NO, Ans_Txt_NO, pass_NO)
  11. CreateVar = (Fl_NO, Txt_NO, Item_NO, Ans_NO, TextMax, GameMax, ST_NO)
  12. CreateVar = (V_Choice, V_Correct, V_wrong, Cnt_NO, Hint_NO, St_Max)
  13. CreateVar = (Move_01, Move_02, Move_03, Move_04, Move_05, CorrCnt_NO)
  14. CreateVar = (Move_06, Move_07, Move_08, Move_09, Move_10, Map_NO, A, z)
  15. CreateVar = (Null_NO, OldImgNo, NewImgno, ex_NO, StrNo_Ans, StrNO_Pname)
  16. CreateVar = (choice_NO, Cancel_NO, ItemSubMax, Move_startNO, pass_NO1)
  17.     pass_NO = 1
  18.  
  19. loadstr1 = 3dw256.str,CDROM_256
  20. Loadstr4 = 3dw256.str,Voice_Choice
  21.  
  22. loadshape1 = $(1,2)\flx1\mouse01.bmp(12,18)
  23. loadshape2 = $(1,2)\flx1\mouse02.bmp( 4,17)
  24. loadshape3 = $(1,2)\flx1\mouse03.bmp( 4,17)
  25. loadshape4 = $(1,2)\flx1\mouse04.bmp( 4,17)
  26.  
  27. voice = $(1,2)\bgm\LOGO.VOC,1
  28. flx1 =  $(1,2)\flx1\KASAN.FLC(1),scr2,1,150    ; kasan logo (500k)
  29. playnow(0)=Item(flx1,voice),continue(flx1)
  30.     {
  31.     If voice,next
  32.     If key   = esc,goto end
  33.     If key   = space,goto 3dmax1
  34.     If mouse = left,goto 3dmax1
  35.     If mouse = right,goto 3dmax1
  36.     }
  37. playnow(0)=Item(flx1)
  38.     {
  39.     If key   = esc,goto end
  40.     If key   = space,goto 3dmax1
  41.     If mouse = left,goto 3dmax1
  42.     If mouse = right,goto 3dmax1
  43.     If flx1,next
  44.     }
  45. [3dmax1]
  46. voice = $(1,2)\bgm\3DMAX.VOC,1                
  47. flx1  = $(1,2)\flx1\3DMAX1.flc,scr1,1,70            ; 3DMAX logo 256(clr)
  48. playnow(0)=Item(flx1,voice),continue(voice)
  49.     {
  50.     If key   = esc,goto end
  51.     If key   = space,goto 3dmax2
  52.     If mouse = left,goto 3dmax2
  53.     If mouse = right,goto 3dmax2
  54.     If flx1,next
  55.     }
  56. [3dmax2]
  57. flx1  = $(1,2)\flx1\3DMAX2.flc,scr1,1,70            ; 3DMAX logo
  58. playnow(0)=Item(flx1,voice),continue(flx1,voice)
  59.     {
  60.     If key   = esc,goto end
  61.     If key   = space,goto Tv_on
  62.     If mouse = left,goto Tv_on
  63.     If mouse = right,goto Tv_on
  64.     If voice,next
  65.     }
  66. playnow(0)=Item(flx1)
  67.     {
  68.     If key   = esc,goto end
  69.     If key   = space,goto Tv_on
  70.     If mouse = left,goto Tv_on
  71.     If mouse = right,goto Tv_on
  72.     If flx1,next
  73.     }
  74. [tv_on]
  75. Background = ( 0, 0, 0),scr1                ;256
  76. Background = $(1,2)\flx1\tv_sc01.gif,scr1,1    
  77.     Get(V_Choice)  = Random(1~2)    
  78. Voice = $(1, 2)\Voice$(4, V_Choice)\Open_VS.voc,1    ;re_voc
  79. playnow(0)=Item(voice)
  80.     {
  81.     If voice,next
  82.     If key   = esc,goto end
  83.     If key   = space,next
  84.     If mouse = left,next
  85.     If mouse = right,next
  86.     }
  87.  
  88. voice = $(1,2)\Effect\onscr.voc,1
  89. flx1  = $(1,2)\flx1\tv_fin.flc(1),scr5,1,50        ;256(clr)
  90. playnow(0)=Item(flx1,voice),continue(voice)
  91.     {
  92.     If voice,next
  93.     If key   = esc,goto end
  94.     If key   = space,goto open_vs
  95.     If mouse = left, goto open_vs
  96.     If mouse = right,goto open_vs
  97.     }
  98.  
  99. [open_vs]
  100. Background = $(1,2)\flx1\tv_on.gif,scr3,5        ;256(clr)
  101. voice = $(1,2)\bgm\W_open.voc,1
  102. flx1  = $(1,2)\flx1\Pr_sb.flc(1),scr3,1,0        ;256(clr)
  103. playnow(0)=Item(flx1,voice),continue(voice)
  104.     {
  105.     If flx1,next
  106.     If key   = esc,goto end
  107.     If key   = space,goto open_vs1
  108.     If mouse = left, goto open_vs1
  109.     If mouse = right,goto open_vs1
  110.     }
  111.  
  112. [open_vs1]
  113. Background = $(1,2)\flx1\pr_sb01.gif,scr3,6        ;256(clr)
  114. Background = $(1,2)\flx1\pr_sb02.gif,scr3,6        ;256(clr)
  115. flx1  = $(1,2)\flx1\Pr_ma.flc(1),scr3,1,0            
  116. Loadback20 = $(1,1)\Gm_bt01.gif
  117. playnow(0)=Item(flx1,voice),continue(flx1)
  118.     {
  119.     If flx1 = (1/1),next
  120.     If key   = space,goto Atlas1    
  121.     If mouse = left, goto Atlas1    
  122.     If mouse = right,goto Atlas1    
  123.     If key   = esc,goto end
  124.     }
  125.  
  126. voice = $(1,2)\Effect\Drop.voc,1
  127. playnow(0)=Item(flx1,voice),continue(flx1)
  128.     {
  129.     If flx1 = (22/1),next
  130.     If key   = space,goto Atlas1    
  131.     If mouse = left, goto Atlas1    
  132.     If mouse = right,goto Atlas1    
  133.     If key   = esc,goto end
  134.     }
  135.  
  136. voice = $(1,2)\Effect\Kung.voc,1
  137. playnow(0)=Item(flx1,voice),continue(flx1)
  138.     {
  139.     If flx1 = (24/1),next
  140.     If key   = space,goto Atlas1    
  141.     If mouse = left, goto Atlas1    
  142.     If mouse = right,goto Atlas1    
  143.     If key   = esc,goto end
  144.     }
  145.  
  146. voice = $(1,2)\Effect\Appear.voc,1
  147. playnow(0)=Item(flx1,voice),continue(flx1)
  148.     {
  149.     If flx1 = (49/1),next
  150.     If key   = space,goto Atlas1    
  151.     If mouse = left, goto Atlas1    
  152.     If mouse = right,goto Atlas1    
  153.     If key   = esc,goto end
  154.     }
  155.  
  156. voice = $(1,2)\Effect\Yawning.voc,1
  157. playnow(0)=Item(flx1,voice),continue(flx1)
  158.     {
  159.     If flx1 = (75/1),next
  160.     If key   = space,goto Atlas1    
  161.     If mouse = left, goto Atlas1    
  162.     If mouse = right,goto Atlas1    
  163.     If key   = esc,goto end
  164.     }
  165.  
  166. voice = $(1,2)\Effect\Walk.voc,1
  167. playnow(0)=Item(flx1,voice),continue(flx1)
  168.     {
  169.     If flx1 = (78/1),next
  170.     If key   = space,goto Atlas1    
  171.     If mouse = left, goto Atlas1    
  172.     If mouse = right,goto Atlas1    
  173.     If key   = esc,goto end
  174.     }
  175.  
  176. voice = $(1,2)\Effect\Walk.voc,1
  177. playnow(0)=Item(flx1,voice),continue(flx1)
  178.     {
  179.     If flx1 = (83/1),next
  180.     If key   = space,goto Atlas1    
  181.     If mouse = left, goto Atlas1    
  182.     If mouse = right,goto Atlas1    
  183.     If key   = esc,goto end
  184.     }
  185.  
  186. voice = $(1,2)\Effect\Walk.voc,1
  187. playnow(0)=Item(flx1,voice),continue(flx1)
  188.     {
  189.     If flx1 = (87/1),next
  190.     If key   = space,goto Atlas1    
  191.     If mouse = left, goto Atlas1    
  192.     If mouse = right,goto Atlas1    
  193.     If key   = esc,goto end
  194.     }
  195.  
  196. voice = $(1,2)\Effect\Walk.voc,1
  197. playnow(0)=Item(flx1,voice),continue(flx1)
  198.     {
  199.     If flx1 = (91/1),goto Atlas1 
  200.     If key   = space,goto Atlas1    
  201.     If mouse = left, goto Atlas1    
  202.     If mouse = right,goto Atlas1    
  203.     If key   = esc,goto end
  204.     }
  205.  
  206. voice = $(1,2)\Effect\Walk.voc,1
  207. playnow(0)=Item(flx1,voice),continue(flx1)
  208.     {
  209.     If flx1,goto Atlas1 
  210.     If key   = space,goto Atlas1    
  211.     If mouse = left, goto Atlas1    
  212.     If mouse = right,goto Atlas1    
  213.     If key   = esc,goto end
  214.     }
  215.  
  216. ;###############################################################
  217. ;            Atlas Mode
  218. ;###############################################################
  219. [Atlas]                        
  220. Mouse = On,LoadShape1
  221.     pass_NO = 10
  222. gosub    Ds_Card
  223. scr1 = (  0,  0,512,700),0,(0,0,0)            ; main
  224.     voice = $(1,2)\bgm\Mainmap.voc,0
  225. Mouse = On,LoadShape1
  226.  
  227. [Atlas1]
  228.     pass_NO1 = 1
  229. Loadstr4 = 3dw256.str,Voice_Choice
  230. Background = ( 0, 0, 0),scr1                ;256
  231. Background = $(1,1)\atlas\at_bg.gif,scr1,1          
  232.     pass_NO == 10, goto Atlas_pass
  233.     Get(V_Choice)  = Random(1~2)    
  234. Voice = $(1, 2)\Voice$(4, V_Choice)\Menu_S.voc,1    ;re_voc
  235. playnow(1)=Item(voice),continue(voice)
  236.     {
  237.     If voice,next
  238.     If key   = esc,goto end
  239.     If key   = space,next
  240.     If mouse = left,next
  241.     If mouse = right,next
  242.     }
  243. [Atlas_pass]
  244. Loadback1 = $(1,1)\Atlas\Bl_Kor.gif
  245. Loadback2 = $(1,1)\Atlas\Bl_Jap.gif
  246. Loadback3 = $(1,1)\Atlas\Bl_Rus.gif
  247. Loadback4 = $(1,1)\Atlas\Bl_Hon.gif
  248. Loadback5 = $(1,1)\Atlas\Bl_Tha.gif
  249. Loadback6 = $(1,1)\Atlas\Bl_Ind.gif
  250. Loadback7 = $(1,1)\Atlas\Bl_Egy.gif
  251. Loadback8 = $(1,1)\Atlas\Bl_Ita.gif
  252. Loadback9 = $(1,1)\Atlas\Bl_Gre.gif
  253. Loadback10 = $(1,1)\Atlas\Bl_Spa.gif
  254. Loadback11 = $(1,1)\Atlas\Bl_Eng.gif
  255. Loadback12 = $(1,1)\Atlas\Bl_Fra.gif
  256. Loadback13 = $(1,1)\Atlas\Bl_Ger.gif
  257. Loadback14 = $(1,1)\Atlas\Bl_Aus.gif
  258. Loadback15 = $(1,1)\Atlas\Bl_Usa.gif
  259. Loadback16 = $(1,1)\Atlas\Bl_Mex.gif
  260.     Cancel_No = 1
  261. Mouse = On,LoadShape2
  262.     pass_NO == 10, goto atlas2
  263. playnow(0)=Item(voice)
  264.     {
  265.     If voice,next
  266.     If key   = esc,goto end
  267.     If key   = space,next
  268.     If mouse = left,next
  269.     If mouse = right,next
  270.     }
  271.     voice = $(1,2)\bgm\Mainmap.voc,0
  272.  
  273. [Atlas2]
  274. playnow(1)=Item(voice),continue(voice)
  275.     {
  276.     If key   = esc,goto end
  277.     If Mouse = Left(scr1(440,648, 70, 50)),goto Slide
  278.     If Mouse = Left(scr1(370,648, 68, 50)),goto Game
  279.     If Mouse = Left(scr1(418,104, 50, 54)),goto Quit
  280.  
  281.     If Mouse = Left(scr1(184,190, 42, 70)),goto AT_Kor
  282.     If Mouse = Left(scr1(234,200, 58, 70)),goto AT_Jap
  283.     If Mouse = Left(scr1(120,106, 56, 76)),goto AT_Rus
  284.     If Mouse = Left(scr1(198,314, 58, 68)),goto AT_Hon
  285.     If Mouse = Left(scr1(170,332, 20,110)),goto AT_Tha
  286.     If Mouse = Left(scr1(128,270, 46, 78)),goto AT_Ind
  287.     If Mouse = Left(scr1( 90,360, 62, 52)),goto AT_Egy
  288.     If Mouse = Left(scr1( 60,290, 58, 68)),goto AT_Ita
  289.     If Mouse = Left(scr1( 80,222, 50, 72)),goto AT_Gre
  290.     If Mouse = Left(scr1(  8,292, 52, 64)),goto AT_Spa
  291.     If Mouse = Left(scr1(  6,150, 28,236)),goto AT_Eng
  292.     If Mouse = Left(scr1( 36, 80, 34,190)),goto AT_Fra
  293.     If Mouse = Left(scr1( 70, 74, 30,148)),goto AT_Ger
  294.     If Mouse = Left(scr1(210,476, 68, 72)),goto AT_Aus
  295.     If Mouse = Left(scr1(336,184, 40,134)),goto AT_Usa
  296.     If Mouse = Left(scr1(368,318, 50, 80)),goto AT_Mex
  297.     }
  298.  
  299. Get(msX,msY) = GetMouse()
  300. Get(Bool) = IsRect(184,190, 42, 70)(msX,msY)    ;At_kor
  301. Bool == 1,goto AT_01
  302. Get(Bool) = IsRect(234,200, 58, 70)(msX,msY)    ;At_Jap
  303. Bool == 1,goto At_02
  304. Get(Bool) = IsRect(120,106, 56, 76)(msX,msY)    ;At_Rus
  305. Bool == 1,goto At_03
  306. Get(Bool) = IsRect(198,314, 58, 68)(msX,msY)    ;AT_Hon
  307. Bool == 1,goto At_04
  308. Get(Bool) = IsRect(170,332, 20,110)(msX,msY)    ;AT_Tha
  309. Bool == 1,goto At_05                             
  310. Get(Bool) = IsRect(128,270, 46, 78)(msX,msY)    ;AT_Ind
  311. Bool == 1,goto At_06                             
  312. Get(Bool) = IsRect( 90,360, 62, 52)(msX,msY)    ;AT_Egy
  313. Bool == 1,goto At_07                            
  314. Get(Bool) = IsRect( 60,290, 58, 68)(msX,msY)    ;AT_Ita
  315. Bool == 1,goto At_08                             
  316. Get(Bool) = IsRect( 80,222, 50, 72)(msX,msY)    ;AT_Gre
  317. Bool == 1,goto At_09                             
  318. Get(Bool) = IsRect(  8,292, 52, 64)(msX,msY)    ;AT_Spa
  319. Bool == 1,goto At_10
  320. Get(Bool) = IsRect(  6,150, 28,236)(msX,msY)    ;AT_Eng
  321. Bool == 1,goto At_11
  322. Get(Bool) = IsRect( 36, 80, 34,190)(msX,msY)    ;AT_Fra
  323. Bool == 1,goto At_12
  324. Get(Bool) = IsRect( 70, 74, 30,148)(msX,msY)    ;AT_Ger
  325. Bool == 1,goto At_13
  326. Get(Bool) = IsRect(210,476, 68, 72)(msX,msY)    ;AT_Aus
  327. Bool == 1,goto At_14
  328. Get(Bool) = IsRect(336,184, 40,134)(msX,msY)    ;AT_Usa
  329. Bool == 1,goto At_15
  330. Get(Bool) = IsRect(368,318, 50, 80)(msX,msY)    ;AT_Mex
  331. Bool == 1,goto At_16
  332.  
  333.         save_NO == 0,goto Atlas2
  334.         restbk1
  335.         save_NO = 0
  336.         goto Atlas2
  337.  
  338. [At_01]
  339.         save_NO == 0,goto At_01t
  340.         save_NO == 1,goto Atlas2
  341.         restbk1
  342. [At_01T]
  343. scr11=(194,156, 50, 32),0,(0,0,0)
  344.         savebk1 = scr11
  345.         save_NO = 1 
  346. background = (loadback1),scr11,1
  347.         goto Atlas2
  348.  
  349. [At_02]
  350.         save_NO == 0,goto At_02t
  351.         save_NO == 2,goto Atlas2
  352.         restbk1
  353. [At_02T]
  354. scr11=(250,166, 56, 34),0,(0,0,0)
  355.         savebk1 = scr11
  356.         save_NO = 2 
  357. background = (Loadback2),scr11,1
  358.         goto Atlas2
  359.  
  360. [At_03]
  361.         save_NO == 0,goto At_03t
  362.         save_NO == 3,goto Atlas2
  363.         restbk1
  364. [At_03T]
  365. scr11=(170, 64, 58, 34),0,(0,0,0)
  366.         savebk1 = scr11
  367.         save_NO = 3 
  368. background = (Loadback3),scr11,1
  369.         goto Atlas2
  370.  
  371. [At_04]
  372.         save_NO == 0,goto At_04t
  373.         save_NO == 4,goto Atlas2
  374.         restbk1
  375. [At_04T]
  376. scr11=(222,258, 90, 38),0,(0,0,0)
  377.         savebk1 = scr11
  378.         save_NO = 4 
  379. background = (Loadback4),scr11,1
  380.         goto Atlas2
  381.  
  382. [At_05]
  383.         save_NO == 0,goto At_05t
  384.         save_NO == 5,goto Atlas2
  385.         restbk1
  386. [At_05T]
  387. scr11=(178,298, 70, 32),0,(0,0,0)
  388.         savebk1 = scr11
  389.         save_NO = 5 
  390. background = (Loadback5),scr11,1
  391.         goto Atlas2
  392.  
  393. [At_06]
  394.         save_NO == 0,goto At_06t
  395.         save_NO == 6,goto Atlas2
  396.         restbk1
  397. [At_06T]
  398. scr11=(158,242, 44, 32),0,(0,0,0)
  399.         savebk1 = scr11
  400.         save_NO = 6 
  401. background = (Loadback6),scr11,1
  402.         goto Atlas2
  403.  
  404. [At_07]
  405.         save_NO == 0,goto At_07t
  406.         save_NO == 7,goto Atlas2
  407.         restbk1
  408. [At_07T]
  409. scr11=(122,304, 50, 38),0,(0,0,0)
  410.         savebk1 = scr11
  411.         save_NO = 7 
  412. background = (Loadback7),scr11,1
  413.         goto Atlas2
  414.  
  415. [At_08]
  416.         save_NO == 0,goto At_08t
  417.         save_NO == 8,goto Atlas2
  418.         restbk1
  419. [At_08T]
  420. scr11=( 86,270, 38, 36),0,(0,0,0)
  421.         savebk1 = scr11
  422.         save_NO = 8 
  423. background = (Loadback8),scr11,1
  424.         goto Atlas2
  425.  
  426. [At_09]
  427.         save_NO == 0,goto At_09t
  428.         save_NO == 9,goto Atlas2
  429.         restbk1
  430. [At_09T]
  431. scr11=(110,200, 60, 32),0,(0,0,0)
  432.         savebk1 = scr11
  433.         save_NO = 9 
  434. background = (Loadback9),scr11,1
  435.         goto Atlas2
  436.  
  437. [At_10]
  438.         save_NO == 0,goto At_10t
  439.         save_NO ==10,goto Atlas2
  440.         restbk1
  441. [At_10T]
  442. scr11=( 28,352, 50, 36),0,(0,0,0)
  443.         savebk1 = scr11
  444.         save_NO = 10
  445. background = (Loadback10),scr11,1
  446.         goto Atlas2
  447.  
  448. [At_11]
  449.         save_NO == 0,goto At_11t
  450.         save_NO ==11,goto Atlas2
  451.         restbk1
  452. [At_11T]
  453. scr11=(  6,120, 72, 40),0,(0,0,0)
  454.         savebk1 = scr11
  455.         save_NO = 11
  456. background = (Loadback11),scr11,1
  457.         goto Atlas2
  458.  
  459. [At_12]
  460.         save_NO == 0,goto At_12t
  461.         save_NO ==12,goto Atlas2
  462.         restbk1
  463. [At_12T]
  464. scr11=( 50, 44, 58, 32),0,(0,0,0)
  465.         savebk1 = scr11
  466.         save_NO = 12
  467. background = (Loadback12),scr11,1
  468.         goto Atlas2
  469.  
  470. [At_13]
  471.         save_NO == 0,goto At_13t
  472.         save_NO ==13,goto Atlas2
  473.         restbk1
  474. [At_13T]
  475. scr11=( 90, 72, 74, 40),0,(0,0,0)
  476.         savebk1 = scr11
  477.         save_NO = 13
  478. background = (Loadback13),scr11,1
  479.         goto Atlas2
  480.  
  481. [At_14]
  482.         save_NO == 0,goto At_14t
  483.         save_NO ==14,goto Atlas2
  484.         restbk1
  485. [At_14T]
  486. scr11=(250,448, 74, 32),0,(0,0,0)
  487.         savebk1 = scr11
  488.         save_NO = 14
  489. background = (Loadback14),scr11,1
  490.         goto Atlas2
  491.  
  492. [At_15]
  493.         save_NO == 0,goto At_15t
  494.         save_NO ==15,goto Atlas2
  495.         restbk1
  496. [At_15T]
  497. scr11=(372,136, 46, 32),0,(0,0,0)
  498.         savebk1 = scr11
  499.         save_NO = 15
  500. background = (Loadback15),scr11,1
  501.         goto Atlas2
  502.  
  503. [At_16]
  504.         save_NO == 0,goto At_16t
  505.         save_NO ==16,goto Atlas2
  506.         restbk1
  507. [At_16T]
  508. scr11=(400,278, 60, 32),0,(0,0,0)
  509.         savebk1 = scr11
  510.         save_NO = 16
  511. background = (Loadback16),scr11,1
  512.         goto Atlas2
  513.  
  514. ;---------------------------------------------------------------
  515. [AT_Usa]
  516. Mouse = On,LoadShape1
  517. voice = $(1,2)\bgm\america.voc,0
  518.     Con_NO   = 1
  519.     goto At_cmp
  520.  
  521. [AT_Aus]
  522. Mouse = On,LoadShape1
  523.     Con_NO   = 2
  524.     goto At_cmp
  525.  
  526. [AT_Egy]
  527. Mouse = On,LoadShape1
  528. voice = $(1,2)\bgm\Egypt.voc,0
  529.     Con_NO   = 3
  530.     goto At_cmp
  531.  
  532. [AT_Eng]
  533. Mouse = On,LoadShape1
  534. voice = $(1,2)\bgm\England.voc,0
  535.     Con_NO   = 4
  536.     goto At_cmp
  537.  
  538. [AT_Fra]
  539. Mouse = On,LoadShape1
  540. voice = $(1,2)\bgm\France.voc,0
  541.     Con_NO   = 5
  542.     goto At_cmp
  543.  
  544. [AT_Ger]
  545. Mouse = On,LoadShape1
  546. voice = $(1,2)\bgm\germany.voc,0
  547.     Con_NO   = 6
  548.     goto At_cmp
  549.  
  550. [AT_Gre]
  551. Mouse = On,LoadShape1
  552.     Con_NO   = 7
  553.     goto At_cmp
  554.  
  555. [AT_Hon]
  556. Mouse = On,LoadShape1
  557. voice = $(1,2)\bgm\hongkong.voc,0
  558.     Con_NO   = 8
  559.     goto At_cmp
  560.  
  561. [AT_Ind]
  562. Mouse = On,LoadShape1
  563. voice = $(1,2)\bgm\india.voc,0
  564.     Con_NO   = 9
  565.     goto At_cmp
  566.  
  567. [AT_Ita]
  568. Mouse = On,LoadShape1
  569. voice = $(1,2)\bgm\Italia.voc,0
  570.     Con_NO   = 10
  571.     goto At_cmp
  572.  
  573. [AT_Jap]
  574. Mouse = On,LoadShape1
  575. voice = $(1,2)\bgm\Japan.voc,0
  576.     Con_NO   = 11
  577.     goto At_cmp
  578.  
  579. [AT_Kor]
  580. Mouse = On,LoadShape1
  581. voice = $(1,2)\bgm\korea.voc,0
  582.     Con_NO   = 12
  583.     goto At_cmp
  584.  
  585. [AT_Mex]
  586. Mouse = On,LoadShape1
  587. voice = $(1,2)\bgm\mexico.voc,0
  588.     Con_NO   = 13
  589.     goto At_cmp
  590.  
  591. [AT_Rus]
  592. Mouse = On,LoadShape1
  593. voice = $(1,2)\bgm\russia.voc,0
  594.     Con_NO   = 14
  595.     goto At_cmp
  596.  
  597.  
  598. [AT_Spa]
  599. Mouse = On,LoadShape1
  600. voice = $(1,2)\bgm\Spain.voc,0
  601.     Con_NO   = 15
  602.     goto At_cmp
  603.  
  604. [AT_Tha]
  605. Mouse = On,LoadShape1
  606.     Con_NO   = 16
  607.     goto At_cmp
  608.  
  609.  
  610. ;###############################################################
  611.  
  612. [AT_cmp]
  613. gosub    Ds_Card
  614.  
  615.     LoadStr5 = 3dw256.str,Choose_Con
  616.     LoadStr6 = 3dw256.str,$(5, Con_NO)
  617.     LoadStr7 = 3dw256.str,Choose_Atbg_Item
  618.     LoadStr8 = 3dw256.str,Choose_Flx
  619.     LoadStr9 = 3dw256.str,$(7, Con_No)
  620.     Get(ItemMax) = StrCnt(6)
  621.     Cancel_NO = 5
  622.  
  623. Scr2 = $(9,7)
  624. Scr3 = $(9,8)
  625. Scr4 = $(9,9)
  626.  
  627. Background = ( 0, 0, 0),scr1
  628. Loadflx1 = $(1,1)\atlas\$(5, Con_NO)\$(9,2).flc
  629. Loadflx2 = $(1,1)\atlas\$(5, Con_NO)\$(9,3).flc
  630. Background = $(1,1)\atlas\$(5, Con_NO)\$(9,1).gif,scr1,1          ;256(clr)
  631.  
  632.     Item_sub = 1
  633.     Pass_NO = 1
  634.     Fl_NO = 1
  635.     Map_NO = 1
  636.  
  637. flx1 = (Loadflx1),scr3,0,100
  638. flx2 = (Loadflx2),scr4,0,100
  639.  
  640. [AT_Usa1]
  641. Mouse = On,LoadShape2
  642. playnow(1)=Item$(8, Fl_NO)
  643.     {
  644.     If key   = esc,goto end
  645.     If Mouse = Left(scr1(440,648, 70, 50)),goto Slide
  646.     If Mouse = Left(scr1(260,648, 88, 52)),goto Atlas
  647.     If Mouse = Left(scr1(370,648, 68, 50)),goto Game
  648.     If Mouse = Left(scr1(418,104, 50, 54)),goto Quit
  649.     If Mouse = Left(scr1(456,336, 16, 28)),goto Am_before
  650.     If Mouse = Left(scr1(470,310, 20, 28)),goto Am_Next
  651.     If Mouse = Left(scr1(454,418, 43, 87)),goto AT_Usa_Map
  652.     If Mouse = Left(scr1(460,230, 32, 66)),goto Am_Usa_Display
  653.     If Mouse = Left(scr1(454,514, 40, 76)),goto AT_Usa_History
  654.     }
  655.  
  656. Get(msX, msY) = GetMouse()
  657. Get(Bool) = IsRect(448,208, 60, 98)(msX,msY)    ;At_Image
  658. Bool == 1,goto AT_Image
  659. Get(Bool) = IsRect(470,310, 22, 32)(msX,msY)    ;At_Next
  660. Bool == 1,goto At_next
  661. Get(Bool) = IsRect(454,332, 18, 34)(msX,msY)    ;At_Before
  662. Bool == 1,goto At_Before
  663. Get(Bool) = IsRect(454,418, 40, 66)(msX,msY)    ;AT_Map
  664. Bool == 1,goto At_map
  665. Get(Bool) = IsRect(454,516, 44, 74)(msX,msY)    ;AT_History
  666. Bool == 1,goto At_History                        
  667.  
  668.         save_NO == 0,goto At_Usa1
  669.         restbk1
  670.         save_NO = 0
  671.         goto At_Usa1
  672.  
  673. [At_Image]
  674.         save_NO == 0,goto At_Imaget
  675.         save_NO == 1,goto At_Usa1
  676.         restbk1
  677. [At_Imaget]
  678. scr11=(438,316, 54, 36),0,(0,0,0)
  679.         savebk1 = scr11
  680.         save_NO = 1 
  681. Background = $(1,1)\atlas\$(5, Con_NO)\At_Img.gif,scr11,1         ;256(clr)
  682.         goto At_Usa1
  683.  
  684. [At_Next]
  685.         Pass_NO == 1, goto At_Usa1
  686.         save_NO == 0,goto At_Nextt
  687.         save_NO == 2,goto At_Usa1
  688.         restbk1
  689. [At_NextT]
  690. scr11=(470,356, 40, 30),0,(0,0,0)
  691.         savebk1 = scr11
  692.         save_NO = 2 
  693. Background = $(1,1)\atlas\$(5, Con_NO)\At_nex.gif,scr11,1         ;256(clr)
  694.         goto At_Usa1
  695.  
  696. [At_Before]
  697.         Pass_NO == 1, goto At_Usa1
  698.         save_NO == 0,goto At_Beforet
  699.         save_NO == 3,goto At_Usa1
  700.         restbk1
  701. [At_BeforeT]
  702. scr11=(456,388, 54, 32),0,(0,0,0)
  703.         savebk1 = scr11
  704.         save_NO = 3 
  705. Background = $(1,1)\atlas\$(5, Con_NO)\At_Bef.gif,scr11,1         ;256(clr)
  706.         goto At_Usa1
  707.  
  708. [At_Map]
  709.         save_NO == 0,goto At_Mapt
  710.         save_NO == 4,goto At_Usa1
  711.         restbk1
  712. [At_MapT]
  713. scr11=(472,482, 38, 36),0,(0,0,0)
  714.         savebk1 = scr11
  715.         save_NO = 4 
  716. Background = $(1,1)\atlas\$(5, Con_NO)\At_map.gif,scr11,1         ;256(clr)
  717.         goto At_Usa1
  718.  
  719. [At_History]
  720.         save_NO == 0,goto At_Historyt
  721.         save_NO == 5,goto At_Usa1
  722.         restbk1
  723. [At_HistoryT]
  724. scr11=(448,592, 60, 38),0,(0,0,0)
  725.         savebk1 = scr11
  726.         save_NO = 5 
  727. Background = $(1,1)\atlas\$(5, Con_NO)\AT_His.gif,scr11,1         ;256(clr)
  728.         goto At_Usa1
  729.  
  730. ;---------------------------------------------------------------
  731. ;    Usa_Display
  732. ;---------------------------------------------------------------
  733. [Am_Usa_Display]
  734. Mouse = On,LoadShape1
  735.     Pass_NO = 0
  736.     Cancel_NO = 6
  737.  
  738.     pass_NO1 == 10, goto Am_Usa_Display_pass
  739.     LoadStr5 = 3dw256.str,Choose_Con
  740.     LoadStr6 = 3dw256.str,$(5, Con_NO)
  741.     LoadStr7 = 3dw256.str,Choose_Atbg_Item
  742.     LoadStr8 = 3dw256.str,Choose_Flx
  743.     LoadStr9 = 3dw256.str,$(7, Con_No)
  744.  
  745. Background = $(1,1)\atlas\$(5, Con_NO)\$(9,4).gif,scr1,3
  746.     savebk7 = scr2
  747. [Am_Usa_Display_pass]
  748.     restbk7(k)
  749. Background = $(1,1)\atlas\$(5, Con_NO)\$(6, Item_sub).gif,scr2(@Cx,@Cy),3 ;256(clr)
  750.     Fl_NO = 3
  751.     goto At_Usa1
  752.  
  753. ;---------------------------------------------------------------
  754. ;    Usa Map
  755. ;---------------------------------------------------------------
  756. [AT_Usa_Map]
  757. Mouse = On,LoadShape1
  758.     Cancel_NO = 7
  759.     Map_NO  > 1, goto AT_Cmp
  760.  
  761.     LoadStr5 = 3dw256.str,Choose_Con
  762.     LoadStr6 = 3dw256.str,$(5, Con_NO)
  763.     LoadStr7 = 3dw256.str,Choose_Atbg_Item
  764.     LoadStr8 = 3dw256.str,Choose_Flx
  765.     LoadStr9 = 3dw256.str,$(7, Con_No)
  766.  
  767. Background = $(1,1)\atlas\$(5, Con_NO)\$(9,5).gif,scr1,3          ;256(clr)
  768.     Map_NO = Map_NO + 1
  769.     Pass_NO = 1
  770.     Fl_NO   = 3
  771.     goto At_Usa1
  772.  
  773. ;---------------------------------------------------------------
  774. ;    Usa_History
  775. ;---------------------------------------------------------------
  776. [AT_Usa_History]
  777. Mouse = On,LoadShape1
  778.     Cancel_NO = 8
  779. scr5 = ( 38, 50,380,576),0,(0,0,0)        ;text 
  780. scr6 = (110,136,248, 28),0,(0,0,0) 
  781.  
  782.     LoadStr5 = 3dw256.str,Choose_Con
  783.     LoadStr6 = 3dw256.str,$(5, Con_NO)
  784.     LoadStr7 = 3dw256.str,Choose_Atbg_Item
  785.     LoadStr8 = 3dw256.str,Choose_Flx
  786.     LoadStr9 = 3dw256.str,$(7, Con_No)
  787.  
  788. Background = $(1,1)\atlas\$(5, Con_NO)\$(9,1).gif,scr1,3          ;256(clr)
  789. Background = $(1,1)\atlas\$(5, Con_NO)\$(9,6).gif,scr5,3          ;256(clr)
  790.  
  791.     Pass_NO = 1
  792.     Fl_NO   = 3
  793.     goto At_Usa1
  794.  
  795. ;---------------------------------------------------------------
  796. ;    Before Next Mode
  797. ;---------------------------------------------------------------
  798.  
  799. [Am_Before]
  800.         pass_NO1 = 10
  801.         Pass_NO == 1, goto At_Usa1
  802.         mouse = on,loadshape1
  803.         Item_sub != 1 , goto Am_Before1
  804.         Item_sub = ItemMax 
  805.         goto Am_Usa_Display
  806.  
  807. [Am_Before1]
  808.         Item_sub = Item_sub - 1
  809.         goto Am_Usa_Display
  810.  
  811. [Am_Next]
  812.         pass_NO1 = 10
  813.         Pass_NO == 1, goto At_Usa1
  814.         mouse = on,loadshape1
  815.         Item_sub < ItemMax, goto Am_Next1
  816.         Item_sub = 1
  817.         goto Am_Usa_Display
  818. [Am_Next1]
  819.         Item_sub = Item_sub + 1
  820.         goto Am_Usa_Display
  821.  
  822.  
  823. ;###############################################################
  824. ;            Slide mode
  825. ;###############################################################
  826.  
  827. [slide]
  828. gosub    Ds_Card
  829.  
  830. scr1    = (  0,  0,512,700),0,(0,0,0)        ; main
  831. Scr4      = ( 12, 16,406,612),0,(0,0,0)        ;Image display    
  832. Scr5      = (419,422, 92,160),0,(0,0,0)        ;flx Image    
  833. Scr6      = (  0,640,268, 60),0,(0,0,0)        ;Text Image    
  834.  
  835. Mouse = On,LoadShape1
  836. Loadstr4 = 3dw256.str,Voice_Choice
  837. Background = ( 0, 0, 0),scr1                ;256
  838. Background = $(1,1)\slide\sl_bg01.gif,scr1,1              ;256(clr)
  839.     Get(V_Choice)  = Random(1~2)    
  840. Voice = $(1, 2)\Voice$(4, V_Choice)\Slide_S.voc,1    ;re_voc
  841. playnow(1)=Item(voice),continue(voice)
  842.     {
  843.     If voice,next
  844.     If key   = esc,goto end
  845.     If key   = space,next
  846.     If mouse = left,next
  847.     If mouse = right,next
  848.     }
  849.  
  850. Loadflx1  = $(1,1)\slide\sl_a01.flc
  851. Loadback1 = $(1,1)\Slide\sl_Ind.gif
  852. Loadback2 = $(1,1)\Slide\Sl_Nex.gif
  853. Loadback3 = $(1,1)\Slide\Sl_Bef.gif
  854.  
  855. SaveBk9 = Scr4
  856. SaveBk10 = Scr6
  857.     z         = 1
  858.     Item_NO   = 1
  859.     Item_Sub  = 1
  860.     Cancel_NO = 4
  861. [slide_Item_Add]
  862.  
  863.     LoadStr2  = 3dw256.str,Slide_Item
  864.     LoadStr3  = 3dw256.str,$(2,Item_NO)
  865.     LoadStr4  = 3dw256.str,Sltxt_Item
  866.     LoadStr5  = 3dw256.str,$(4,Item_NO)
  867.     Get(ItemMax)     = StrCnt(2)
  868.     Get(ItemSubMax)  = StrCnt(3)
  869.  
  870. [slide_display]
  871. RestBk9(k)
  872. RestBk10(k)
  873. flx1 = (Loadflx1),scr5,0,80
  874. Background = $(1,1)\slide\$(3,Item_Sub).gif,scr4(@Cx,@cy),3 ;256(clr)
  875. Background = $(1,1)\slide\$(5,Item_Sub).gif,scr6,3          ;256(clr)
  876. Mouse = On,LoadShape2
  877.     z == 10,goto slide_back
  878. voice = $(1,2)\bgm\W_Slide.voc,0
  879.     z = 10
  880. [slide_Back]
  881. Playnow(1)=Item(Voice,flx1),Continue(Voice,flx1)
  882.     {
  883.     If key   = esc,goto end
  884.     If Mouse = Left(scr1(260,648, 88, 52)),goto Atlas
  885.     If Mouse = Left(scr1(370,648, 68, 50)),goto Game
  886.     If Mouse = Left(scr1(440,102, 54, 54)),goto Slide_exit
  887.     If Mouse = Left(scr1(440,518, 60, 54)),goto Slide_quit
  888.     If Mouse = Left(scr1(470,310, 20, 32)),goto Slide_Next
  889.     If Mouse = Left(scr1(452,332, 22, 32)),goto Slide_Before
  890.     If Mouse = Left(scr1(460,230, 34, 70)),goto Slide_Index
  891.     }
  892.  
  893. Get(msX,msY) = GetMouse()
  894. Get(Bool) = IsRect(460,230, 34, 70)(msX,msY)    ;sl_Img
  895. Bool == 1,goto sl_Img
  896. Get(Bool) = IsRect(470,310, 20, 32)(msX,msY)    ;sl_nex
  897. Bool == 1,goto sl_nex
  898. Get(Bool) = IsRect(452,332, 22, 32)(msX,msY)    ;sl_bef
  899. Bool == 1,goto sl_bef
  900.  
  901.         save_NO == 0,goto Slide_Back
  902.         restbk1
  903.         save_NO = 0
  904.         goto Slide_Back
  905.  
  906. [Sl_Img]
  907.         save_NO == 0,goto Sl_Img1
  908.         save_NO == 1,goto Slide_back
  909.         restbk1
  910. [Sl_Img1]
  911. scr11=(432,280, 50, 34),0,(0,0,0)
  912.         savebk1 = scr11
  913.         save_NO = 1 
  914. background = (Loadback1),scr11,1
  915.         goto Slide_back
  916.  
  917. [Sl_Nex]
  918.         save_NO == 0,goto Sl_Nex1
  919.         save_NO == 2,goto Slide_Back
  920.         restbk1
  921. [Sl_Nex1]
  922. scr11=(444,356, 42, 30),0,(0,0,0)
  923.         savebk1 = scr11
  924.         save_NO = 2 
  925. background = (Loadback2),scr11,1
  926.         goto Slide_Back
  927.  
  928. [Sl_Bef]
  929.         save_NO == 0,goto Sl_bef1
  930.         save_NO == 3,goto Slide_Back
  931.         restbk1
  932. [Sl_Bef1]
  933. scr11=(442,388, 54, 32),0,(0,0,0)
  934.         savebk1 = scr11
  935.         save_NO = 3 
  936. background = (Loadback3),scr11,1
  937.         goto Slide_Back
  938.  
  939. [Slide_Index]
  940. Mouse = On,LoadShape1
  941.     RestBk1(k)
  942. Background = $(1,1)\slide\Sl_bg02.gif,scr4,3          ;256(clr)
  943. Mouse = On,LoadShape2
  944. Playnow(0)=Item(Voice,flx1),Continue(Voice,flx1)
  945.     {
  946.     If key   = esc,goto end
  947.     If Mouse = Left(scr1(260,648, 88, 52)),goto Atlas
  948.     If Mouse = Left(scr1(370,648, 68, 50)),goto Game
  949.     If Mouse = Left(scr1(440,102, 54, 54)),goto end
  950.     If Mouse = Left(scr1(440,518, 60, 54)),goto Slide_quit
  951.     If Mouse = Left(scr1( 44, 84, 60, 30)),goto Slc_01
  952.     If Mouse = Left(scr1(294,442, 40, 30)),goto Slc_02
  953.     If Mouse = Left(scr1( 44,124, 72, 30)),goto Slc_03
  954.     If Mouse = Left(scr1( 44,162, 50, 30)),goto Slc_04
  955.     If Mouse = Left(scr1( 44,204, 58, 30)),goto Slc_05
  956.     If Mouse = Left(scr1( 44,244, 60, 30)),goto Slc_06
  957.     If Mouse = Left(scr1( 44,284, 46, 30)),goto Slc_07
  958.     If Mouse = Left(scr1( 44,324, 48, 30)),goto Slc_08
  959.     If Mouse = Left(scr1( 44,364, 60, 30)),goto Slc_09
  960.     If Mouse = Left(scr1( 44,402, 74, 30)),goto Slc_10
  961.     If Mouse = Left(scr1( 44,442, 50, 30)),goto Slc_11
  962.     If Mouse = Left(scr1( 44,482, 68, 30)),goto Slc_12
  963.     If Mouse = Left(scr1( 44,524, 58, 30)),goto Slc_13
  964.     If Mouse = Left(scr1(166, 84, 76, 30)),goto Slc_14
  965.     If Mouse = Left(scr1(166,124, 64, 30)),goto Slc_15
  966.     If Mouse = Left(scr1(166,162, 68, 30)),goto Slc_16
  967.     If Mouse = Left(scr1(166,202, 84, 30)),goto Slc_17
  968.     If Mouse = Left(scr1(166,244, 88, 30)),goto Slc_18
  969.     If Mouse = Left(scr1(166,282, 82, 30)),goto Slc_19
  970.     If Mouse = Left(scr1(166,324, 50, 30)),goto Slc_20
  971.     If Mouse = Left(scr1(166,362, 40, 30)),goto Slc_21
  972.     If Mouse = Left(scr1(166,402, 56, 30)),goto Slc_22
  973.     If Mouse = Left(scr1(166,442, 54, 30)),goto Slc_23
  974.     If Mouse = Left(scr1(166,480, 64, 30)),goto Slc_24
  975.     If Mouse = Left(scr1(166,524, 54, 30)),goto Slc_25
  976.     If Mouse = Left(scr1(294, 82, 64, 30)),goto Slc_26
  977.     If Mouse = Left(scr1(294,122, 42, 30)),goto Slc_27
  978.     If Mouse = Left(scr1(294,162, 82, 30)),goto Slc_28
  979.     If Mouse = Left(scr1(294,204, 70, 30)),goto Slc_29
  980.     If Mouse = Left(scr1(294,242, 58, 30)),goto Slc_30
  981.     If Mouse = Left(scr1(294,284, 50, 30)),goto Slc_31
  982.     If Mouse = Left(scr1(294,324, 96, 30)),goto Slc_32
  983.     If Mouse = Left(scr1(294,364, 74, 30)),goto Slc_33
  984.     If Mouse = Left(scr1(294,402, 58, 30)),goto Slc_34
  985.     If Mouse = Left(scr1(294,482, 60, 30)),goto Slc_35
  986.     }
  987. [Slc_01]
  988.     Item_NO = 1
  989.     goto Slc_cm
  990.  
  991. [Slc_02]
  992.     Item_NO = 2
  993.     goto Slc_cm
  994.  
  995. [Slc_03]
  996.     Item_NO = 3
  997.     goto Slc_cm
  998.  
  999. [Slc_04]
  1000.     Item_NO = 4
  1001.     goto Slc_cm
  1002.  
  1003. [Slc_05]
  1004.     Item_NO = 5
  1005.     goto Slc_cm
  1006.  
  1007. [Slc_06]
  1008.     Item_NO = 6
  1009.     goto Slc_cm
  1010.  
  1011. [Slc_07]
  1012.     Item_NO = 7
  1013.     goto Slc_cm
  1014.  
  1015. [Slc_08]
  1016.     Item_NO = 8
  1017.     goto Slc_cm
  1018.  
  1019. [Slc_09]
  1020.     Item_NO = 9
  1021.     goto Slc_cm
  1022.  
  1023. [Slc_10]
  1024.     Item_NO = 10
  1025.     goto Slc_cm
  1026.  
  1027. [Slc_11]
  1028.     Item_NO = 11
  1029.     goto Slc_cm
  1030.  
  1031. [Slc_12]
  1032.     Item_NO = 12
  1033.     goto Slc_cm
  1034.  
  1035. [Slc_13]
  1036.     Item_NO = 13
  1037.     goto Slc_cm
  1038.  
  1039. [Slc_14]
  1040.     Item_NO = 14
  1041.     goto Slc_cm
  1042.  
  1043. [Slc_15]
  1044.     Item_NO = 15
  1045.     goto Slc_cm
  1046.  
  1047. [Slc_16]
  1048.     Item_NO = 16
  1049.     goto Slc_cm
  1050.  
  1051. [Slc_17]
  1052.     Item_NO = 17
  1053.     goto Slc_cm
  1054.  
  1055. [Slc_18]
  1056.     Item_NO = 18
  1057.     goto Slc_cm
  1058.  
  1059. [Slc_19]
  1060.     Item_NO = 19
  1061.     goto Slc_cm
  1062.  
  1063. [Slc_20]
  1064.     Item_NO = 20
  1065.     goto Slc_cm
  1066.  
  1067. [Slc_21]
  1068.     Item_NO = 21
  1069.     goto Slc_cm
  1070.  
  1071. [Slc_22]
  1072.     Item_NO = 22
  1073.     goto Slc_cm
  1074.  
  1075. [Slc_23]
  1076.     Item_NO = 23
  1077.     goto Slc_cm
  1078.  
  1079. [Slc_24]
  1080.     Item_NO = 24
  1081.     goto Slc_cm
  1082.  
  1083. [Slc_25]
  1084.     Item_NO = 25
  1085.     goto Slc_cm
  1086.  
  1087. [Slc_26]
  1088.     Item_NO = 26
  1089.     goto Slc_cm
  1090.  
  1091. [Slc_27]
  1092.     Item_NO = 27
  1093.     goto Slc_cm
  1094.  
  1095. [Slc_28]
  1096.     Item_NO = 28
  1097.     goto Slc_cm
  1098.  
  1099. [Slc_29]
  1100.     Item_NO = 29
  1101.     goto Slc_cm
  1102.  
  1103. [Slc_30]
  1104.     Item_NO = 30
  1105.     goto Slc_cm
  1106.  
  1107. [Slc_31]
  1108.     Item_NO = 31
  1109.     goto Slc_cm
  1110.  
  1111. [Slc_32]
  1112.     Item_NO = 32
  1113.     goto Slc_cm
  1114.  
  1115. [Slc_33]
  1116.     Item_NO = 33
  1117.     goto Slc_cm
  1118.  
  1119. [Slc_34]
  1120.     Item_NO = 34
  1121.     goto Slc_cm
  1122.  
  1123. [Slc_35]
  1124.     Item_NO = 35
  1125.  
  1126. [Slc_Cm]
  1127.     mouse = on,loadshape1
  1128.     Item_sub = 1
  1129.     goto slide_Item_Add
  1130.  
  1131. ;---------------------------------------------------------------
  1132. ;     Next, Before Mode
  1133. ;---------------------------------------------------------------
  1134. [slide_Before]
  1135.         mouse = on,loadshape1
  1136.         Item_sub  != 1 , goto slide_Before1
  1137.         Item_NO = Item_NO -1
  1138.         Item_NO < 1, goto slide_Before_Restart
  1139.  
  1140.     LoadStr3  = 3dw256.str,$(2,Item_NO)
  1141.     LoadStr5  = 3dw256.str,$(4,Item_NO)
  1142.     Get(ItemSubMax)  = StrCnt(3)
  1143.  
  1144.         Item_sub  = ItemSubMax
  1145.  
  1146.         goto Slide_Display
  1147.  
  1148. [slide_Before1]
  1149.         Item_sub  < 1, goto Slide_Before_Next
  1150.         Item_sub  = Item_sub - 1
  1151.         goto Slide_Display
  1152.  
  1153. [Slide_Before_Next]
  1154.         Item_NO = Item_NO -1
  1155.         Item_NO < 1, goto slide_Before_Restart
  1156.         Item_sub  = ItemSubMax
  1157.         goto slide_Item_Add
  1158.  
  1159. [slide_Before_Restart]
  1160.  
  1161.     LoadStr2  = 3dw256.str,Slide_Item
  1162.     Get(ItemMax)     = StrCnt(2)
  1163.         Item_NO   = ItemMax
  1164.  
  1165.     LoadStr5  = 3dw256.str,$(4,Item_NO)
  1166.     LoadStr3  = 3dw256.str,$(2,Item_NO)
  1167.     Get(ItemSubMax)  = StrCnt(3)
  1168.  
  1169.         Item_sub  = ItemSubMax
  1170.         goto Slide_Display
  1171.         
  1172. [slide_Next]
  1173.         mouse = on,loadshape1
  1174.         Item_sub =  Item_sub + 1
  1175.         Item_sub > ItemSubMax, goto slide_Next_ItemNO
  1176.         goto Slide_Display
  1177.  
  1178. [slide_Next_ItemNO]
  1179.         Item_NO =  Item_NO + 1
  1180.         Item_NO >  ItemMax, goto Item_Restart
  1181.         Item_Sub = 1
  1182.         goto slide_Item_Add
  1183.  
  1184. [Item_Restart]
  1185.         Item_NO =  1
  1186.         Item_Sub = 1
  1187.         goto slide_Item_Add
  1188.  
  1189.  
  1190. [Slide_quit]
  1191. Mouse = On,LoadShape1
  1192. RestBk9
  1193. RestBk10
  1194.     Discard = (Loadflx1)
  1195. goto Atlas 
  1196. [Slide_Exit]
  1197.         mouse = on,loadshape1
  1198. Loadstr4 = 3dw256.str,Voice_Choice
  1199.     Get(V_Choice)  = Random(1~2)    
  1200. Voice = $(1, 2)\Voice$(4, V_Choice)\slide_e.voc,1    ;re_voc
  1201. playnow(0)=Item(voice)
  1202.     {
  1203.     If voice,next
  1204.     If key   = esc,goto end
  1205.     If key   = space,next
  1206.     If mouse = left,next
  1207.     If mouse = right,next
  1208.     }
  1209. goto quit    
  1210.  
  1211. ;###############################################################
  1212. ;            Cgame mode
  1213. ;###############################################################
  1214.  
  1215. [game]
  1216. gosub    Ds_Card
  1217. scr1 = (  0,  0,512,700),0,(0,0,0)            ; main
  1218. Mouse = On,LoadShape1
  1219. Background = ( 0, 0, 0),scr1                ;256
  1220. Background = (Loadback20),scr1                 
  1221. Mouse = On,LoadShape2
  1222. Playnow(0)=Item(Voice),continue(voice)
  1223.     {
  1224.     If Key   = esc,goto end
  1225.     If Mouse = Left(scr1(440,648, 70, 50)),goto Slide
  1226.     If Mouse = Left(scr1(260,648, 88, 52)),goto Atlas
  1227.     If Mouse = Left(scr1(370,648, 68, 50)),goto Game
  1228.     If Mouse = Left(scr1(440,102, 54, 54)),goto Quit
  1229.     If Mouse = Left(scr1(324,564,138, 36)),goto P_game
  1230.     If Mouse = Left(scr1(334,526,120, 36)),goto C_game
  1231.     If Mouse = Left(scr1(360,600, 66, 36)),goto Cancel
  1232.     }
  1233.  
  1234. [cancel]
  1235. Mouse = On,LoadShape1
  1236. Background = ( 0, 0, 0),scr1                ;256
  1237.  
  1238.         Cancel_NO == 1, goto atlas
  1239.         Cancel_NO == 2, goto C_Game
  1240.         Cancel_NO == 3, goto P_Game
  1241.         Cancel_NO == 4, goto Slide
  1242.         Cancel_NO == 5, goto At_cmp
  1243.         Cancel_NO == 6, goto Am_Usa_Display
  1244.         Cancel_NO == 7, goto At_Usa_Map_Bf
  1245.         Cancel_NO == 8, goto At_Usa_History
  1246. [At_Usa_Map_Bf]
  1247.         Map_NO = 1
  1248.         goto At_Usa_Map
  1249.  
  1250. [C_Game]
  1251. gosub    Ds_Card
  1252.  
  1253. Mouse = On,LoadShape1
  1254. Scr1  = (  0,  0,512,700),0,(0,0,0)    ; main
  1255. Scr3  = (412,512,100,104),0,(0,0,0)    ;Count_bg(Apple)
  1256. Scr5  = (399,404,112, 90),0,(0,0,0)    ;Count_bg(Car)
  1257. Scr6  = (451,214,496,306),0,(0,0,0)    ;time_flc
  1258. Scr7  = ( 96,244,246,336),0,(0,0,0)    ;image
  1259. Scr8  = (102,252,236,320),0,(0,0,0)    ;image_BG
  1260. Scr9  = ( 66,230,244, 12),0,(0,0,0)    ;Ex
  1261. Scr10 = ( 66,184, 30, 60),0,(0,0,0)    ;Ex_flx
  1262. Scr11 = ( 68,184, 30, 60),0,(0,0,0)    ;Ex_Text1_scr
  1263. Scr12 = ( 98,184, 30, 60),0,(0,0,0)    ;Ex_Text2_scr
  1264. Scr13 = (128,184, 30, 60),0,(0,0,0)    ;Ex_Text3_scr
  1265. Scr14 = (158,184, 30, 60),0,(0,0,0)    ;Ex_Text4_scr
  1266. Scr15 = (188,184, 30, 60),0,(0,0,0)    ;Ex_Text5_scr
  1267. Scr16 = (218,184, 30, 60),0,(0,0,0)    ;Ex_Text6_scr
  1268. Scr17 = (248,184, 30, 60),0,(0,0,0)    ;Ex_Text7_scr
  1269. Scr18 = (278,184, 30, 60),0,(0,0,0)    ;Ex_Text8_scr
  1270. Scr19 = ( 66,184,306, 30),0,(0,0,0)    ;Ex_Text_Nullbg
  1271.  
  1272. Background = ( 0, 0, 0),scr1                ;256
  1273. Loadback1 = $(1,1)\C_game\Cr_bg.gif
  1274. Background = (Loadback1),scr1,1          
  1275.     Loadstr4 = 3dw256.str,Voice_Choice
  1276.  
  1277.     Get(V_Choice)  = Random(1~2)    
  1278. Voice = $(1, 2)\Voice$(4, V_Choice)\Wgam_s.voc,1    ;re_voc
  1279. playnow(1)=Item(voice),continue(voice)
  1280.     {
  1281.     If voice,next
  1282.     If key   = esc,goto end
  1283.     If key   = space,next
  1284.     If mouse = left,next
  1285.     If mouse = right,next
  1286.     }
  1287.  
  1288.     LoadVoc1 = $(1,2)\bgm\W_Cross.voc
  1289.     LoadVoc2 = $(1,2)\Effect\Wrong.voc
  1290.     LoadVoc3 = $(1,2)\Effect\Bang.voc
  1291.     Loadflx1 =  $(1,1)\C_game\Line.flc
  1292.     Loadflx2 =  $(1,1)\C_game\Cr_tm00.flc
  1293.  
  1294. Background = $(1,1)\C_game\Img_Bg.gif,scr8,3          ;Image_bg    
  1295.  
  1296.     SaveBk5 = Scr19
  1297.     Fl_NO       = 1
  1298.     Item_NO     = 1
  1299.     Cnt_NO      = 1
  1300.     Ans_NO      = 1
  1301.     Ans_Txt_NO  = 1
  1302.     Cancel_No   = 2
  1303.     CorrCnt_NO  =  1
  1304.     Get(Item_Start_No) = Random(1~6)
  1305.  
  1306. [Cgame_text_Back]
  1307.  
  1308.     LoadStr5  = 3dw256.str,Cgame_Item
  1309.     LoadStr6  = 3dw256.str,$(5, Item_Start_NO)
  1310.     LoadStr17 = 3dw256.str,$(6, Item_NO)
  1311.     LoadStr7  = 3dw256.str,Cgame_Text
  1312.     LoadStr8  = 3dw256.str,Cgame_Scr
  1313.     LoadStr9  = 3dw256.str,Cgame_Answer
  1314.     LoadStr10 = 3dw256.str,$(9,  Item_Start_NO)
  1315.     LoadStr18 = 3dw256.str,$(10, Ans_NO)
  1316.     LoadStr12 = 3dw256.str,Cgame_Count
  1317.     LoadStr13 = 3dw256.str,Cgame_Count1
  1318.     LoadStr14 = 3dw256.str,Cgame_Line
  1319.     LoadStr15 = 3dw256.str,Cgame_Line_Scr
  1320.     LoadStr16 = 3dw256.str,Cgame_Correct_Count
  1321.     Get(GameMax) = StrCnt(5)
  1322.     Get(TextMax) = StrCnt(18)
  1323.     Hint_NO = TextMax
  1324.  
  1325. flx2 = (Loadflx2),scr6,1,300                ;Timer
  1326.  
  1327. [Cgame_Hint_BK]
  1328.  
  1329. Background = $(1,1)\C_game\$(17, 1).gif,scr7(@Cx,@Cy),3    ;Image    
  1330.     Voice = (Loadvoc1),0
  1331.  
  1332. [Cgame_Hint_BK1]
  1333. Scr20 = $(15, Fl_NO)
  1334. Background = $(1,1)\C_game\$(14,TextMax).gif,scr9,3    ;Ex_Img_Line 
  1335. Background = $(1,1)\C_game\$(13,Hint_NO + 1).gif,scr3,3    ;Cnt_NO 
  1336. Flx1  = (LoadFlx1),scr20,0,100
  1337. Mouse = On,LoadShape2
  1338.  
  1339. [Cgame_Display]
  1340. Playnow(1)=Item(Voice,flx1,flx2,flx3),Continue(Voice,flx1,flx2,flx3)
  1341.     {
  1342.     If flx2,goto Cgame_Wrong
  1343.     If Key   = esc,goto end
  1344.     If Mouse = Left(scr1(440,648, 70, 50)),goto Slide
  1345.     If Mouse = Left(scr1(260,648, 88, 52)),goto Atlas
  1346.     If Mouse = Left(scr1(370,648, 68, 50)),goto Game
  1347.     If Mouse = Left(scr1(440,102, 54, 54)),goto Cgame_exit
  1348.     If Mouse = Left(scr1(312,158, 60, 74)),goto Cgame_Hint
  1349.     If Mouse = Left(scr1(456,336, 16, 28)),goto Cg_before
  1350.     If Mouse = Left(scr1(470,310, 20, 28)),goto Cg_Next
  1351.     If Mouse = Left(scr1(150, 28, 26, 36)),goto Cgame_A
  1352.     If Mouse = Left(scr1(122, 34, 26, 36)),goto Cgame_B
  1353.     If Mouse = Left(scr1( 92, 40, 26, 36)),goto Cgame_C
  1354.     If Mouse = Left(scr1( 60, 48, 26, 36)),goto Cgame_D
  1355.     If Mouse = Left(scr1( 32, 54, 26, 36)),goto Cgame_E
  1356.     If Mouse = Left(scr1(  2, 62, 26, 36)),goto Cgame_F
  1357.            If Mouse = Left(scr1(  2,110, 26, 36)),goto Cgame_G
  1358.     If Mouse = Left(scr1(  2,160, 26, 36)),goto Cgame_H
  1359.     If Mouse = Left(scr1(  2,208, 26, 36)),goto Cgame_I
  1360.     If Mouse = Left(scr1(  2,256, 26, 36)),goto Cgame_J
  1361.     If Mouse = Left(scr1(  2,304, 26, 36)),goto Cgame_K
  1362.     If Mouse = Left(scr1(  2,352, 26, 36)),goto Cgame_L
  1363.     If Mouse = Left(scr1(  2,402, 26, 36)),goto Cgame_M
  1364.     If Mouse = Left(scr1(  2,450, 26, 36)),goto Cgame_N
  1365.     If Mouse = Left(scr1(  2,500, 26, 36)),goto Cgame_O
  1366.     If Mouse = Left(scr1(  2,548, 26, 36)),goto Cgame_P
  1367.     If Mouse = Left(scr1(  2,596, 26, 36)),goto Cgame_Q
  1368.     If Mouse = Left(scr1(  2,646, 26, 36)),goto Cgame_R
  1369.     If Mouse = Left(scr1( 32,646, 26, 36)),goto Cgame_S
  1370.     If Mouse = Left(scr1( 62,646, 26, 36)),goto Cgame_T
  1371.     If Mouse = Left(scr1( 90,646, 26, 36)),goto Cgame_U
  1372.     If Mouse = Left(scr1(118,646, 26, 36)),goto Cgame_V
  1373.     If Mouse = Left(scr1(148,646, 26, 36)),goto Cgame_W
  1374.     If Mouse = Left(scr1(178,646, 26, 36)),goto Cgame_X
  1375.     If Mouse = Left(scr1(210,646, 26, 36)),goto Cgame_Y
  1376.     If Mouse = Left(scr1(240,646, 26, 36)),goto Cgame_Z
  1377.         If key   = A,goto Cgame_A
  1378.         If key   = B,goto Cgame_B
  1379.         If key   = C,goto Cgame_C
  1380.         If key   = D,goto Cgame_D
  1381.         If key   = E,goto Cgame_E
  1382.         If key   = F,goto Cgame_F
  1383.           If key   = G,goto Cgame_G
  1384.         If key   = H,goto Cgame_H
  1385.     If key   = I,goto Cgame_I
  1386.     If key   = J,goto Cgame_J
  1387.     If key   = K,goto Cgame_K
  1388.     If key   = L,goto Cgame_L
  1389.     If key   = M,goto Cgame_M
  1390.     If key   = N,goto Cgame_N
  1391.     If key   = O,goto Cgame_O
  1392.     If key   = P,goto Cgame_P
  1393.     If key   = Q,goto Cgame_Q
  1394.     If key   = R,goto Cgame_R
  1395.     If key   = S,goto Cgame_S
  1396.     If key   = T,goto Cgame_T
  1397.     If key   = U,goto Cgame_U
  1398.     If key   = V,goto Cgame_V
  1399.     If key   = W,goto Cgame_W
  1400.     If key   = X,goto Cgame_X
  1401.     If key   = Y,goto Cgame_Y
  1402.     If key   = Z,goto Cgame_Z
  1403.     If key   = F1,goto Cgame_Hint
  1404.     }                             
  1405. Get(msX,msY) = GetMouse()
  1406. Get(Bool) = IsRect(312,158, 60, 74)(msX,msY)    ;Hint
  1407. Bool == 1,goto cg_Hint
  1408. Get(Bool) = IsRect(470,310, 20, 32)(msX,msY)    ;cg_nex
  1409. Bool == 1,goto Cg_nex
  1410. Get(Bool) = IsRect(452,332, 22, 32)(msX,msY)    ;cg_bef
  1411. Bool == 1,goto Cg_bef
  1412.  
  1413.         save_NO == 0,goto Cgame_Display
  1414.         restbk1
  1415.         save_NO = 0
  1416.         goto Cgame_Display
  1417. ;---------------------------------------------------------------
  1418. [Cg_Hint]
  1419.         save_NO == 0,goto Cg_Hint1
  1420.         save_NO == 2,goto Cgame_Display
  1421.         restbk1
  1422. [Cg_Hint1]
  1423. scr4=(334, 90,114, 70),0,(0,0,0)
  1424.         savebk1 = scr4
  1425.         save_NO = 2 
  1426. background = $(1,1)\C_game\CR_Hin.gif,scr4,1
  1427.         goto Cgame_Display
  1428.  
  1429. [Cg_Nex]
  1430.         save_NO == 0,goto Cg_Nex1
  1431.         save_NO == 3,goto Cgame_Display
  1432.         restbk1
  1433. [Cg_Nex1]
  1434. scr2 = (446,356, 42, 30),0,(0,0,0)
  1435.         savebk1 = scr2
  1436.         save_NO = 3 
  1437. background = $(1,1)\C_game\Cr_Nex.gif,scr2,1
  1438.         goto Cgame_Display
  1439.  
  1440. [Cg_Bef]
  1441.         save_NO == 0,goto Cg_bef1
  1442.         save_NO == 4,goto Cgame_Display
  1443.         restbk1
  1444. [Cg_Bef1]
  1445. scr2=(438,386, 58, 30),0,(0,0,0)
  1446.         savebk1 = scr2
  1447.         save_NO = 4 
  1448. background = $(1,1)\C_game\Cr_Bef.gif,scr2,1
  1449.         goto Cgame_Display
  1450.  
  1451. [Cgame_A]
  1452.     Mouse = On,LoadShape1
  1453.     Txt_NO = 1    
  1454.     goto Cgame_Cmp
  1455.  
  1456. [Cgame_B]
  1457.     Mouse = On,LoadShape1
  1458.     Txt_NO = 2    
  1459.     goto Cgame_Cmp
  1460.  
  1461. [Cgame_C]
  1462.     Mouse = On,LoadShape1
  1463.     Txt_NO = 3    
  1464.     goto Cgame_Cmp
  1465.  
  1466. [Cgame_D]
  1467.     Mouse = On,LoadShape1
  1468.     Txt_NO = 4    
  1469.     goto Cgame_Cmp
  1470.  
  1471. [Cgame_E]
  1472.     Mouse = On,LoadShape1
  1473.     Txt_NO = 5    
  1474.     goto Cgame_Cmp
  1475.  
  1476. [Cgame_F]
  1477.     Mouse = On,LoadShape1
  1478.     Txt_NO = 6    
  1479.     goto Cgame_Cmp
  1480.  
  1481. [Cgame_G]
  1482.     Mouse = On,LoadShape1
  1483.     Txt_NO = 7    
  1484.     goto Cgame_Cmp
  1485.  
  1486. [Cgame_H]
  1487.     Mouse = On,LoadShape1
  1488.     Txt_NO = 8    
  1489.     goto Cgame_Cmp
  1490.  
  1491. [Cgame_I]
  1492.     Mouse = On,LoadShape1
  1493.     Txt_NO = 9    
  1494.     goto Cgame_Cmp
  1495.  
  1496. [Cgame_J]
  1497.     Mouse = On,LoadShape1
  1498.     Txt_NO = 10    
  1499.     goto Cgame_Cmp
  1500.  
  1501. [Cgame_K]
  1502.     Mouse = On,LoadShape1
  1503.     Txt_NO = 11    
  1504.     goto Cgame_Cmp
  1505.  
  1506. [Cgame_L]
  1507.     Mouse = On,LoadShape1
  1508.     Txt_NO = 12    
  1509.     goto Cgame_Cmp
  1510.  
  1511. [Cgame_M]
  1512.     Mouse = On,LoadShape1
  1513.     Txt_NO = 13    
  1514.     goto Cgame_Cmp
  1515.  
  1516. [Cgame_N]
  1517.     Mouse = On,LoadShape1
  1518.     Txt_NO = 14    
  1519.     goto Cgame_Cmp
  1520.  
  1521. [Cgame_O]
  1522.     Mouse = On,LoadShape1
  1523.     Txt_NO = 15    
  1524.     goto Cgame_Cmp
  1525.  
  1526. [Cgame_P]
  1527.     Mouse = On,LoadShape1
  1528.     Txt_NO = 16    
  1529.     goto Cgame_Cmp
  1530.  
  1531. [Cgame_Q]
  1532.     Mouse = On,LoadShape1
  1533.     Txt_NO = 17    
  1534.     goto Cgame_Cmp
  1535.  
  1536. [Cgame_R]
  1537.     Mouse = On,LoadShape1
  1538.     Txt_NO = 18    
  1539.     goto Cgame_Cmp
  1540.  
  1541. [Cgame_S]
  1542.     Mouse = On,LoadShape1
  1543.     Txt_NO = 19    
  1544.     goto Cgame_Cmp
  1545.  
  1546. [Cgame_T]
  1547.     Mouse = On,LoadShape1
  1548.     Txt_NO = 20    
  1549.     goto Cgame_Cmp
  1550.  
  1551. [Cgame_U]
  1552.     Mouse = On,LoadShape1
  1553.     Txt_NO = 21    
  1554.     goto Cgame_Cmp
  1555.  
  1556. [Cgame_V]
  1557.     Mouse = On,LoadShape1
  1558.     Txt_NO = 22    
  1559.     goto Cgame_Cmp
  1560.  
  1561. [Cgame_W]
  1562.     Mouse = On,LoadShape1
  1563.     Txt_NO = 23    
  1564.     goto Cgame_Cmp
  1565.  
  1566. [Cgame_X]
  1567.     Mouse = On,LoadShape1
  1568.     Txt_NO = 24    
  1569.     goto Cgame_Cmp
  1570.  
  1571. [Cgame_Y]
  1572.     Mouse = On,LoadShape1
  1573.     Txt_NO = 25    
  1574.     goto Cgame_Cmp
  1575.  
  1576. [Cgame_Z]
  1577.     Mouse = On,LoadShape1
  1578.     Txt_NO = 26    
  1579.     goto Cgame_Cmp
  1580.  
  1581. ;===============================================================
  1582. ;    Cgame next, before
  1583. ;===============================================================
  1584. [Cg_before]
  1585.     Mouse = On,LoadShape1
  1586.     Item_Start_No != 1, goto Cg_before1
  1587.     Item_Start_No = 6
  1588.  
  1589. gosub Cg_NB_Gsub
  1590.     
  1591. [Cg_before1]
  1592.     Item_Start_No = Item_start_NO - 1
  1593.  
  1594. goto Cg_NB_Gsub
  1595.  
  1596. [Cg_Next]
  1597.     Mouse = On,LoadShape1
  1598.     Item_Start_No < 6, goto Cg_Next1
  1599.     Item_start_NO = 1
  1600. goto Cg_NB_Gsub
  1601.     
  1602. [Cg_Next1]
  1603.     Item_Start_No = Item_start_NO + 1
  1604.  
  1605. goto Cg_NB_Gsub
  1606.  
  1607. [Cg_NB_Gsub]
  1608.     Cnt_NO  = 1
  1609.     Item_NO = 1
  1610.     Ans_NO  = 1
  1611.     Fl_NO   = 1
  1612.     Ans_Txt_NO  = 1
  1613.     CorrCnt_NO  =  1
  1614.  
  1615. Background = (Loadback1),scr1,3                  ;256(clr)
  1616. Background = $(1,1)\C_game\Img_Bg.gif,scr8,3              ;Image_bg    
  1617. Background = $(1,1)\C_game\$(12,Cnt_NO).gif,scr5,3            ;Cnt_NO 
  1618. goto  Cgame_text_Back
  1619.  
  1620.  
  1621. ;===============================================================
  1622. ;             Cgame_Comparison_Mode    
  1623. ;===============================================================
  1624.  
  1625. [Cgame_Cmp]
  1626. Mouse = On,LoadShape1                    ;After kill
  1627.  
  1628.     Txt_NO != $(18, Ans_Txt_NO),goto Cgame_Decline
  1629.  
  1630. Background = $(1,1)\C_game\$(7, Txt_NO).gif,scr$(8, Fl_NO),1 ;- Issue Text Display
  1631.     Ans_Txt_NO = Ans_Txt_NO + 1
  1632.     Fl_NO      = Fl_NO  + 1
  1633.     Fl_NO - 1 == Textmax, goto Cgame_Correct
  1634.  
  1635. goto Cgame_Hint_BK1
  1636.  
  1637. ;===============================================================
  1638. ;             Cgame_Correct_Mode    
  1639. ;===============================================================
  1640. [Cgame_Correct]
  1641.  
  1642. Mouse = On,LoadShape4                    ;After kill
  1643. Loadstr20 = 3dw256.str,Voice_Choice
  1644. Loadstr5  = 3dw256.str,Voice_Correct
  1645.  
  1646.     Get(V_Choice)  = Random(1~2)    
  1647.     Get(V_Correct) = Random(1~5)
  1648.  
  1649. Voice = $(1, 2)\Voice$(20, V_Choice)\$(5, V_Correct).voc,1
  1650. PlayNow(0) = Item(voice)
  1651.     {
  1652.     If Key = Esc, End
  1653.     If Voice,Next
  1654.     }
  1655.  
  1656.     Ans_NO         = Ans_NO + 1
  1657.     Ans_Txt_NO  = 1
  1658.     Item_NO     = Item_NO + 1
  1659.     Fl_NO         = 1
  1660.     Cnt_NO      = Cnt_NO + 1
  1661.     CorrCnt_NO  = CorrCnt_NO + 1
  1662.  
  1663. Background = $(1,1)\C_game\$(12,Cnt_NO).gif,scr5,3    ;Cnt_NO 
  1664.     Item_NO     > 10, goto Cgame_Next
  1665.     Item_Start_NO > GameMax, goto Cgame_Restart
  1666.     Restbk5(k)
  1667. Voice = (Loadvoc1),0
  1668. flx2  = (Loadflx2),scr6,1,300                    ;Timer
  1669. Background = $(1,1)\C_game\Img_Bg.gif,scr8,3              ;Image_bg    
  1670. Mouse = On,LoadShape1                    ;After kill
  1671. goto Cgame_text_back
  1672.  
  1673. ;===============================================================
  1674. ;    Cgame_next
  1675. ;===============================================================
  1676.  
  1677. [Cgame_Next]
  1678.  
  1679. Background = $(1,1)\C_game\$(16,CorrCnt_NO).gif,scr7(@Cx,@Cy),3    ;Image    
  1680. Loadstr19 = 3dw256.str,Voice_Count
  1681.     Get(V_Choice)  = Random(1~2)    
  1682. Voice = $(1, 2)\Voice$(4, V_Choice)\$(19 ,CorrCnt_NO).voc,1    ;re_voc
  1683. playnow(0)=Item(voice)
  1684.     {
  1685.     If voice,next
  1686.     If key   = esc,goto end
  1687.     If key   = space,next
  1688.     If mouse = left,next
  1689.     If mouse = right,next
  1690.     }
  1691.  
  1692. Voice = (Loadvoc1),0
  1693. flx2  = (Loadflx2),scr6,1,300                    ;Timer
  1694. goto cg_next
  1695.  
  1696. ;===============================================================
  1697. ;             Cgame_Hint_Mode    
  1698. ;===============================================================
  1699.  
  1700. [Cgame_Hint]
  1701. Mouse = On,LoadShape1                    
  1702. Loadstr4 = 3dw256.str,Voice_Choice
  1703.  
  1704. Get(V_Choice) = Random(1~2)    
  1705.  
  1706. Voice = $(1,2)\Voice$(4,V_Choice)\$(17, 2).voc,1
  1707. PlayNow(0) = Item(voice,flx1,flx2),Continue(flx1,flx2)
  1708.     {
  1709.     If Key = Esc, End
  1710.     If Voice,Next
  1711.     }
  1712.  
  1713.     Hint_NO  = Hint_NO  - 1
  1714.     Ans_Txt_NO == TextMax, goto Hint_End
  1715.     Hint_NO  == 0 , goto Hint_End
  1716.  
  1717. Voice = (Loadvoc1),0
  1718. goto Cgame_Hint_bk1
  1719.  
  1720. ;---------------------------------------------------------------
  1721. ;             Crong_Wrong_Voice_mode
  1722. ;---------------------------------------------------------------
  1723. [Cgame_Wrong]
  1724. Mouse = On,LoadShape3                    
  1725. Loadstr4 = 3dw256.str,Voice_Choice
  1726. Loadstr11 = 3dw256.str,Voice_Wrong
  1727.  
  1728. Voice = (Loadvoc3),1
  1729. PlayNow(0) = Item(voice)
  1730.     {
  1731.     If Key = Esc, End
  1732.     If Voice,Next
  1733.     }
  1734.     Hint_NO == 0,goto cgame_wrong_pass
  1735.     
  1736. Get(V_Choice) = Random(1~2)    
  1737. Voice = $(1,2)\Voice$(4,V_Choice)\time_up.voc,1
  1738. PlayNow(0) = Item(voice)
  1739.     {
  1740.     If Key = Esc, End
  1741.     If Voice,Next
  1742.     }
  1743.  
  1744. [cgame_wrong_pass]
  1745. Get(V_Wrong ) = Random(1~5)    
  1746. Voice = $(1,2)\Voice$(4,V_Choice)\$(11,V_wrong).voc,1
  1747. PlayNow(0) = Item(voice)
  1748.     {
  1749.     If Key = Esc, End
  1750.     If Voice,Next
  1751.     }
  1752.  
  1753.     Ans_NO      = Ans_NO + 1
  1754.     Item_NO     = Item_NO + 1
  1755.     Ans_Txt_NO  = 1
  1756.     Fl_NO       = 1
  1757.     Item_NO     > 10, goto Cgame_Next
  1758.     Item_Start_NO      > GameMax, goto Cgame_Restart
  1759.     Restbk5(k)
  1760.  
  1761. Voice = (Loadvoc1),0
  1762. flx2  = (Loadflx2),scr6,1,300                ;Timer
  1763. Background = $(1,1)\C_game\Img_Bg.gif,scr8,3          ;Image_bg    
  1764. Mouse = On,LoadShape1                    
  1765. goto Cgame_text_back
  1766.  
  1767. ;===============================================================
  1768. ;             Cgame_Restart    
  1769. ;===============================================================
  1770.  
  1771. [Cgame_Restart]
  1772.     Ans_NO     = 1
  1773.     Ans_Txt_NO = 1
  1774.     Item_NO    = 1
  1775.     Fl_NO      = 1
  1776.     Cnt_NO     = 1
  1777.     Item_Start_NO = 1
  1778.     Restbk5(k)
  1779. Voice = (Loadvoc1),0
  1780. flx2 = (Loadflx2),scr6,1,300                ;Timer
  1781. Background = $(1,1)\C_game\Img_Bg.gif,scr8,3          ;Image_bg    
  1782. goto Cgame_text_back
  1783.  
  1784.  
  1785. ;---------------------------------------------------------------
  1786. ;    Cgame_Dicline
  1787. ;---------------------------------------------------------------
  1788.  
  1789. [Cgame_Decline]
  1790. Mouse = On,LoadShape1                    
  1791. Voice = (Loadvoc2),1
  1792.     Hint_NO  = Hint_NO  - 1
  1793.     Ans_Txt_NO == TextMax, goto Hint_End
  1794.     Hint_NO  == 0 , goto Hint_End
  1795.  
  1796. playnow(0) = item(voice, flx1, flx2),continue(flx1, flx2)
  1797.     {
  1798.     If voice,next
  1799.     }
  1800.  
  1801. Voice = (Loadvoc1),0
  1802. goto Cgame_Hint_bk1
  1803.  
  1804. [Hint_End]
  1805. Background = $(1,1)\C_game\$(13,Hint_NO + 1).gif,scr3,3    ;Cnt_NO 
  1806. goto Cgame_Wrong
  1807.  
  1808. [cgame_exit]
  1809.         mouse = on,loadshape1
  1810. Loadstr4 = 3dw256.str,Voice_Choice
  1811.     Get(V_Choice)  = Random(1~2)    
  1812. Voice = $(1, 2)\Voice$(4, V_Choice)\Wgam_e.voc,1    ;re_voc
  1813. playnow(0)=Item(voice)
  1814.     {
  1815.     If voice,next
  1816.     If key   = esc,goto end
  1817.     If key   = space,next
  1818.     If mouse = left,next
  1819.     If mouse = right,next
  1820.     }
  1821. goto quit    
  1822. ;###############################################################
  1823. ;            Pgame mode
  1824. ;###############################################################
  1825.  
  1826. [p_Game]
  1827. gosub    Ds_Card
  1828. Mouse = On,LoadShape1                    
  1829. scr1  = ( 14,156, 96,144),0,(0,0,0)            ;-img1
  1830. scr2  = (110,156, 96,144),0,(0,0,0)            ;-img2
  1831. scr3  = (206,156, 96,144),0,(0,0,0)            ;-img3
  1832. scr4  = ( 14,300, 96,144),0,(0,0,0)            ;-img4
  1833. scr5  = (110,300, 96,144),0,(0,0,0)            ;-img5
  1834. scr6  = (206,300, 96,144),0,(0,0,0)            ;-img6
  1835. scr7  = ( 14,444, 96,144),0,(0,0,0)            ;-img7
  1836. scr8  = (110,444, 96,144),0,(0,0,0)            ;-img8
  1837. scr9  = (206,444, 96,144),0,(0,0,0)            ;-img9
  1838.  
  1839. scr10 = (302,444, 96,144),0,(0,0,0)            ;-null_img
  1840. scr11 = (  0,  0,512,700),0,(0,0,0)            ;-main_screen
  1841. scr13 = (320,150, 96,144),0,(0,0,0)            ;-small_screen
  1842. scr15 = ( 14,156,384,432),0,(0,0,0)            ;-full_img_screen
  1843. Scr16  = (404,406,108, 86),0,(0,0,0)                    ;Count_bg(Car)
  1844. Scr17  = (451,214,496,306),0,(0,0,0)            ;time_flc
  1845.  
  1846. ;------------------------------------------------animation
  1847.  
  1848. Background = ( 0, 0, 0),scr11                ;256
  1849. Background = $(1,1)\P_Game\Pg_bg.gif,scr11,1            
  1850. Loadstr4 = 3dw256.str,Voice_Choice
  1851.     Get(V_Choice)  = Random(1~2)    
  1852. Voice = $(1, 2)\Voice$(4, V_Choice)\Move_s.voc,1    ;re_voc
  1853. playnow(1)=Item(voice),continue(voice)
  1854.     {
  1855.     If voice,next
  1856.     If key   = esc,goto end
  1857.     If key   = space,next
  1858.     If mouse = left,next
  1859.     If mouse = right,next
  1860.     }
  1861.  
  1862.     LoadVoc1 = $(1,2)\bgm\W_Move.voc
  1863.     LoadVoc2 = $(1,2)\Effect\Wrong.voc
  1864.     LoadVoc3 = $(1,2)\Effect\Bang.voc
  1865.     Loadflx1 = $(1,1)\P_game\Pg_tm00.flc
  1866.     Loadback11 = $(1,1)\p_game\Pg_Nex.gif
  1867.     Loadback12 = $(1,1)\p_game\Pg_Bef.gif
  1868.  
  1869. flx1  = (Loadflx1),scr17,1,900                ;Time
  1870.  
  1871.     Loadstr7 = 3dw256.str, move_Item
  1872.         A         = 1    
  1873.         ex_NO        = 1
  1874.         Cnt_NO       = 1
  1875.         Pass_NO      = 1
  1876.         Cancel_No    = 3
  1877.         CorrCnt_NO   = 1
  1878.         StrNo_Pname  = 14
  1879.         StrNo_Ans    = 9
  1880.     Get(GameMax) = StrCnt(7)
  1881.     Get(Move_startNO) = random (1~5)
  1882. ;    Get(A) = random(1~5)
  1883.  
  1884. [move_next]
  1885.         move_01 = 1
  1886.         move_02 = 2 
  1887.         move_03 = 3 
  1888.         move_04 = 4 
  1889.         move_05 = 5 
  1890.         move_06 = 6 
  1891.         move_07 = 7 
  1892.         move_08 = 8 
  1893.         move_09 = 9 
  1894.         move_10 = 10 
  1895.         null_NO = 10
  1896.         oldimgno = 10
  1897.         newimgno = 1
  1898.  
  1899.         LoadStr12 = 3dw256.str,Pgame_Count
  1900. Background = $(1,1)\P_game\$(12,Cnt_NO).gif,scr16,3    ;Cnt_NO 
  1901.  
  1902. [move_next2]
  1903.     LoadStr19 = 3dw256.str,$(7, move_startNO)
  1904.     LoadStr2  = 3dw256.str,$(19, A)
  1905.     LoadStr3  = 3dw256.str,move_no
  1906.     LoadStr8  = 3dw256.str,QuestPname
  1907.     LoadStr14 = 3dw256.str,$(8, move_startNO)
  1908.     LoadStr9  = 3dw256.str,$(StrNo_Pname, A)
  1909.     LoadStr13 = 3dw256.str,Cgame_Count1
  1910.     LoadStr16 = 3dw256.str,Pgame_CorrCntNO
  1911.     LoadStr18 = 3dw256.str,number
  1912.  
  1913. Background = $(1,1)\P_Game\$(2, 11).gif,scr13,3            ;S_image
  1914.  
  1915. LoadBack1  = $(1,1)\P_Game\$(2,move_01).gif    ;-img1
  1916. LoadBack2  = $(1,1)\P_Game\$(2,move_02).gif    ;-img2
  1917. LoadBack3  = $(1,1)\P_Game\$(2,move_03).gif    ;-img3
  1918. LoadBack4  = $(1,1)\P_Game\$(2,move_04).gif    ;-img4
  1919. LoadBack5  = $(1,1)\P_Game\$(2,move_05).gif    ;-img5
  1920. LoadBack6  = $(1,1)\P_Game\$(2,move_06).gif    ;-img6
  1921. LoadBack7  = $(1,1)\P_Game\$(2,move_07).gif    ;-img7
  1922. LoadBack8  = $(1,1)\P_Game\$(2,move_08).gif    ;-img8
  1923. LoadBack9  = $(1,1)\P_Game\$(2,move_09).gif    ;-img9
  1924. LoadBack10 = $(1,1)\P_Game\$(2,move_10).gif    ;-null
  1925.  
  1926. backGround = (LoadBack1), scr1,1,dup    ;-img1
  1927. background = (LoadBack2), scr2,1,dup    ;-img2
  1928. background = (LoadBack3), scr3,1,dup    ;-img3
  1929. background = (LoadBack4), scr4,1,dup    ;-img4
  1930. background = (LoadBack5), scr5,1,dup    ;-img5
  1931. background = (LoadBack6), scr6,1,dup    ;-img6
  1932. background = (LoadBack7), scr7,1,dup    ;-img7
  1933. background = (LoadBack8), scr8,1,dup    ;-img8
  1934. background = (LoadBack9), scr9,1,dup    ;-img9
  1935. background = (LoadBack10),scr10,1       ;-null
  1936.         mouse = on,loadshape2
  1937.         pass_NO == 10,goto Move_same
  1938.         Voice = (Loadvoc1),0
  1939.         Pass_NO = 10
  1940. [move_same]
  1941. playnow(1)=Item(voice,flx1),continue(voice,flx1)
  1942.     {
  1943.     If flx1, goto Pgame_Wrong
  1944.     If Mouse = Left(scr11(440,648, 70, 50)),goto Slide
  1945.     If Mouse = Left(scr11(260,648, 88, 52)),goto Atlas
  1946.     If Mouse = Left(scr11(370,648, 68, 50)),goto Game
  1947.     If Mouse = Left(scr11(440,102, 54, 54)),goto move_exit
  1948.     If Mouse = Left(scr11(456,336, 16, 28)),goto mg_before
  1949.     If Mouse = Left(scr11(470,310, 20, 28)),goto mg_Next
  1950.     If Mouse = Left(Scr1),  goto move_ans1
  1951.     If Mouse = Left(Scr2),  goto move_ans2
  1952.     If Mouse = Left(Scr3),  goto move_ans3
  1953.     If Mouse = Left(Scr4),  goto move_ans4
  1954.     If Mouse = Left(Scr5),  goto move_ans5
  1955.     If Mouse = Left(Scr6),  goto move_ans6
  1956.     If Mouse = Left(Scr7),  goto move_ans7
  1957.     If Mouse = Left(Scr8),  goto move_ans8
  1958.     If Mouse = Left(Scr9),  goto move_ans9
  1959.     If Mouse = Left(Scr10), goto move_ans10
  1960.     If mouse = left(scr12), goto move_exit
  1961.     If key = esc,end
  1962.     }
  1963. Get(msX,msY) = GetMouse()
  1964. Get(Bool) = IsRect(470,310, 20, 32)(msX,msY)    ;Pg_nex
  1965. Bool == 1,goto Pg_nex
  1966. Get(Bool) = IsRect(452,332, 22, 32)(msX,msY)    ;Pg_bef
  1967. Bool == 1,goto Pg_bef
  1968.  
  1969.         save_NO == 0,goto Move_Same
  1970.         restbk1
  1971.         save_NO = 0
  1972.         goto Move_Same
  1973.  
  1974. [Pg_Nex]
  1975.         save_NO == 0,goto Pg_Nex1
  1976.         save_NO == 2,goto Move_Same
  1977.         restbk1
  1978. [Pg_Nex1]
  1979. scr12=(446,356, 42, 30),0,(0,0,0)
  1980.         savebk1 = scr12
  1981.         save_NO = 2 
  1982. background = (Loadback11),scr12,1
  1983.         goto Move_Same
  1984.  
  1985. [Pg_Bef]
  1986.         save_NO == 0,goto Pg_bef1
  1987.         save_NO == 3,goto Move_Same
  1988.         restbk1
  1989. [Pg_Bef1]
  1990. scr12=(438,386, 58, 30),0,(0,0,0)
  1991.         savebk1 = scr12
  1992.         save_NO = 3 
  1993. background = (Loadback12),scr12,1
  1994.         goto Move_Same
  1995.  
  1996.  
  1997. ;===============================================================
  1998. ;    mg next, before
  1999. ;===============================================================
  2000.  
  2001. [Mg_before]
  2002. Mouse = On,LoadShape1                    
  2003.         Move_startNO > 1,goto Mg_before1
  2004.         Move_startNO =  5
  2005.         goto Mg_before_gsub
  2006. [Mg_before1]
  2007.         Move_startNO = Move_startNO - 1
  2008.         goto Mg_before_gsub
  2009.  
  2010. [Mg_Next]
  2011. Mouse = On,LoadShape1                    
  2012.         Move_startNO < 5, goto Mg_next1
  2013.         Move_startNO = 1
  2014.         goto Mg_before_gsub
  2015.  
  2016. [Mg_Next1]
  2017.         Move_startNO = Move_startNo + 1
  2018.         goto Mg_before_gsub
  2019.  
  2020. [Mg_before_gsub]
  2021.         A            = 1
  2022.         ex_NO        = 1
  2023.         Cnt_NO       = 1
  2024.         CorrCnt_NO   = 1
  2025. flx1  = (Loadflx1),scr17,1,900                ;Time
  2026. goto Move_next
  2027.  
  2028. [move_false]
  2029. Mouse = On,LoadShape1                    
  2030.  
  2031. Voice = (Loadvoc2),1
  2032. PlayNow(0) = Item(voice,flx1),continue(flx1)
  2033.     {
  2034.     If Key = Esc, End
  2035.     If Voice,Next
  2036.     }
  2037. Voice = (Loadvoc1),0
  2038. Mouse = On,LoadShape2                    
  2039.         goto move_same
  2040.  
  2041. [move_ans1];---------------------------------------------------------------
  2042.         choice_NO = 1
  2043.         null_NO == 2, goto mv1_ans02
  2044.         null_NO == 4, goto mv1_ans04
  2045.         goto move_false
  2046.  
  2047. [mv1_ans02]
  2048.         move_02 = move_01
  2049.         move_01 = 10
  2050.         newimgno = move_02
  2051.         goto bf
  2052.  
  2053. [mv1_ans04]
  2054.         move_04 = move_01
  2055.         move_01 = 10
  2056.         newimgno = move_04
  2057.         goto bf
  2058.  
  2059.  
  2060. [move_ans2];---------------------------------------------------------------
  2061.         choice_NO = 2
  2062.         null_NO == 1, goto mv2_ans01
  2063.         null_NO == 3, goto mv2_ans03
  2064.         null_NO == 5, goto mv2_ans05
  2065.         goto move_false
  2066.  
  2067. [mv2_ans01]
  2068.         move_01 = move_02
  2069.         move_02 = 10
  2070.         newimgno = move_01
  2071.         goto bf
  2072.  
  2073. [mv2_ans03]
  2074.         move_03 = move_02
  2075.         move_02 = 10
  2076.         newimgno = move_03
  2077.         goto bf
  2078.  
  2079. [mv2_ans05]
  2080.         move_05 = move_02
  2081.         move_02 = 10
  2082.         newimgno = move_05
  2083.         goto bf
  2084.  
  2085. [move_ans3];---------------------------------------------------------------
  2086.         choice_NO = 3
  2087.         null_NO == 2, goto mv3_ans02
  2088.         null_NO == 6, goto mv3_ans06
  2089.         goto move_false
  2090.  
  2091. [mv3_ans02]
  2092.         move_02 = move_03
  2093.         move_03 = 10
  2094.         newimgno = move_02
  2095.         goto bf
  2096.  
  2097. [mv3_ans06]
  2098.         move_06 = move_03
  2099.         move_03 = 10
  2100.         newimgno = move_06
  2101.         goto bf
  2102.  
  2103.  
  2104. [move_ans4];---------------------------------------------------------------
  2105.         choice_NO = 4
  2106.         null_NO == 1, goto mv4_ans01
  2107.         null_NO == 5, goto mv4_ans05
  2108.         null_NO == 7, goto mv4_ans07
  2109.         goto move_false
  2110.  
  2111. [mv4_ans01]
  2112.         move_01 = move_04
  2113.         move_04 = 10
  2114.         newimgno = move_01
  2115.         goto bf
  2116.  
  2117. [mv4_ans05]
  2118.         move_05 = move_04
  2119.         move_04 = 10
  2120.         newimgno = move_05
  2121.         goto bf
  2122.  
  2123. [mv4_ans07]
  2124.         move_07 = move_04
  2125.         move_04 = 10
  2126.         newimgno = move_07
  2127.         goto bf
  2128.  
  2129.  
  2130. [move_ans5];---------------------------------------------------------------
  2131.         choice_NO = 5
  2132.         null_NO == 2, goto mv5_ans02
  2133.         null_NO == 4, goto mv5_ans04
  2134.         null_NO == 6, goto mv5_ans06
  2135.         null_NO == 8, goto mv5_ans08
  2136.         goto move_false
  2137.  
  2138. [mv5_ans02]
  2139.         move_02 = move_05
  2140.         move_05 = 10
  2141.         newimgno = move_02
  2142.         goto bf
  2143.  
  2144. [mv5_ans04]
  2145.         move_04 = move_05
  2146.         move_05 = 10
  2147.         newimgno = move_04
  2148.         goto bf
  2149.  
  2150. [mv5_ans06]
  2151.         move_06 = move_05
  2152.         move_05 = 10
  2153.         newimgno = move_06
  2154.         goto bf
  2155.  
  2156. [mv5_ans08]
  2157.         move_08 = move_05
  2158.         move_05 = 10
  2159.         newimgno = move_08
  2160.         goto bf
  2161.  
  2162. [move_ans6];---------------------------------------------------------------
  2163.         choice_NO = 6
  2164.         null_NO == 3, goto mv6_ans03
  2165.         null_NO == 5, goto mv6_ans05
  2166.         null_NO == 9, goto mv6_ans09
  2167.         goto move_false
  2168.  
  2169. [mv6_ans03]
  2170.         move_03 = move_06
  2171.         move_06 = 10
  2172.         newimgno = move_03
  2173.         goto bf
  2174.  
  2175. [mv6_ans05]
  2176.         move_05 = move_06
  2177.         move_06 = 10
  2178.         newimgno = move_05
  2179.         goto bf
  2180.  
  2181. [mv6_ans09]
  2182.         move_09 = move_06
  2183.         move_06 = 10
  2184.         newimgno = move_09
  2185.         goto bf
  2186.  
  2187. [move_ans7];---------------------------------------------------------------
  2188.         choice_NO = 7
  2189.         null_NO == 4, goto mv7_ans04
  2190.         null_NO == 8, goto mv7_ans08
  2191.         goto move_false
  2192.  
  2193. [mv7_ans04]
  2194.         move_04 = move_07
  2195.         move_07 = 10
  2196.         newimgno = move_04
  2197.         goto bf
  2198.  
  2199. [mv7_ans08]
  2200.         move_08 = move_07
  2201.         move_07 = 10
  2202.         newimgno = move_08
  2203.         goto bf
  2204.  
  2205.  
  2206. [move_ans8];---------------------------------------------------------------
  2207.         choice_NO = 8
  2208.         null_NO == 5, goto mv8_ans05
  2209.         null_NO == 7, goto mv8_ans07
  2210.         null_NO == 9, goto mv8_ans09
  2211.         goto move_false
  2212.  
  2213. [mv8_ans05]
  2214.         move_05 = move_08
  2215.         move_08 = 10
  2216.         newimgno = move_05
  2217.         goto bf
  2218.  
  2219. [mv8_ans07]
  2220.         move_07 = move_08
  2221.         move_08 = 10
  2222.         newimgno = move_07
  2223.         goto bf
  2224.  
  2225. [mv8_ans09]
  2226.         move_09 = move_08
  2227.         move_08 = 10
  2228.         newimgno = move_09
  2229.         goto bf
  2230.  
  2231.  
  2232. [move_ans9];---------------------------------------------------------------
  2233.         choice_NO = 9
  2234.         null_NO == 6, goto mv9_ans06
  2235.         null_NO == 8, goto mv9_ans08
  2236.         null_NO ==10, goto mv9_ans10
  2237.         goto move_false
  2238.  
  2239. [mv9_ans06]
  2240.         move_06 = move_09
  2241.         move_09 = 10
  2242.         newimgno = move_06
  2243.         goto bf
  2244.  
  2245. [mv9_ans08]
  2246.         move_08 = move_09
  2247.         move_09 = 10
  2248.         newimgno = move_08
  2249.         goto bf
  2250.  
  2251. [mv9_ans10]
  2252.         move_10 = move_09
  2253.         move_09 = 10
  2254.         newimgno = move_10
  2255.         goto bf
  2256.  
  2257.  
  2258. [move_ans10];---------------------------------------------------------------
  2259.         choice_NO = 10
  2260.         null_NO == 9, goto mv10_ans09
  2261.         goto move_false
  2262.  
  2263. [mv10_ans09]
  2264.         move_09  = move_10
  2265.         move_10  = 10
  2266.         newimgno = move_09
  2267.         goto bf
  2268.  
  2269. [bf];---------------------------------------------------------------
  2270. Mouse = On,LoadShape1                    
  2271. loadback2 = $(1,1)\P_Game\$(2,newimgno).gif
  2272.  
  2273. background = (loadback10),              scr$(3,choice_NO),1      ;-null_img
  2274. background = (loadback$(18,newimgno)),  scr$(3,null_NO),1,dup    ;-new_img
  2275.         null_NO = choice_NO
  2276.  
  2277.         move_01 != $(StrNo_Ans, 1), goto bfRp
  2278.         move_02 != $(StrNo_Ans, 2), goto bfRp
  2279.         move_03 != $(StrNo_Ans, 3), goto bfRp
  2280.         move_04 != $(StrNo_Ans, 4), goto bfRp
  2281.         move_05 != $(StrNo_Ans, 5), goto bfRp
  2282.         move_06 != $(StrNo_Ans, 6), goto bfRp
  2283.         move_07 != $(StrNo_Ans, 7), goto bfRp
  2284.         move_08 != $(StrNo_Ans, 8), goto bfRp
  2285.         move_09 != $(StrNo_Ans, 9), goto bfRp
  2286.  
  2287. ;------ Right Answer case ------
  2288. background = $(1,1)\P_Game\$(2,12).gif,scr15,5
  2289. Mouse = On,LoadShape4                    ;After kill
  2290. Loadstr20 = 3dw256.str,Voice_Choice
  2291. Loadstr5  = 3dw256.str,Voice_Correct
  2292.  
  2293.     Get(V_Choice)  = Random(1~2)    
  2294.     Get(V_Correct) = Random(1~5)
  2295.  
  2296. Voice = $(1, 2)\Voice$(20, V_Choice)\$(5, V_Correct).voc,1
  2297. playnow(0) = Item(voice)
  2298.     {
  2299.     If Key = Esc, End
  2300.     If Voice,Next
  2301.     If mouse = left,next
  2302.     If mouse = right,next
  2303.     }
  2304.         A          = A + 1
  2305.         CorrCnt_NO = CorrCnt_NO + 1
  2306.         Cnt_NO     = Cnt_NO+ 1
  2307.         ex_NO      = ex_NO + 1
  2308. Background = $(1,1)\P_game\$(12,Cnt_NO).gif,scr16,3    ;Cnt_NO 
  2309.         ex_NO      > 10, goto Pgame_Nextitem
  2310.  
  2311. flx1  = (Loadflx1),scr17,1,900                ;Time
  2312.         Voice = (Loadvoc1),0
  2313.  
  2314.         goto move_next
  2315.  
  2316. ;===============================================================
  2317. ;    Correct Count Add Display
  2318. ;===============================================================
  2319. [Pgame_Nextitem]
  2320. scr15 = ( 14,156,384,432),0,(0,0,0)            ;-full_img_screen
  2321. background = $(1,1)\P_Game\$(16 ,CorrCnt_NO).gif,scr15,3
  2322. Loadstr4  = 3dw256.str,Voice_Choice
  2323. Loadstr15 = 3dw256.str,Voice_Count
  2324.     Get(V_Choice)  = Random(1~2)    
  2325. Voice = $(1, 2)\Voice$(4, V_Choice)\$(15 ,CorrCnt_NO).voc,1    ;re_voc
  2326. playnow(0)=Item(voice)
  2327.     {
  2328.     If voice,next
  2329.     If key   = esc,goto end
  2330.     If key   = space,next
  2331.     If mouse = left,next
  2332.     If mouse = right,next
  2333.     }
  2334.  
  2335. flx1  = (Loadflx1),scr17,1,900                ;Time
  2336. Voice = (Loadvoc1),0
  2337.         goto Mg_next
  2338.  
  2339.  
  2340. ;------ Wrong Answer case ------
  2341. [bfRp]
  2342. Mouse = On,LoadShape2                    
  2343.         goto move_same
  2344. [Pgame_Wrong]
  2345. Mouse = On,LoadShape3                    
  2346. Loadstr4 = 3dw256.str,Voice_Choice
  2347. Loadstr11 = 3dw256.str,Voice_Wrong
  2348. Voice = (Loadvoc3),1
  2349. PlayNow(0) = Item(voice)
  2350.     {
  2351.     If Key = Esc, End
  2352.     If Voice,Next
  2353.     }
  2354.  
  2355. Get(V_Choice) = Random(1~2)    
  2356. Voice = $(1,2)\Voice$(4,V_Choice)\Time_UP.voc,1
  2357. PlayNow(0) = Item(voice)
  2358.     {
  2359.     If Key = Esc, End
  2360.     If Voice,Next
  2361.     }
  2362.  
  2363. Get(V_Wrong ) = Random(1~5)    
  2364. Voice = $(1,2)\Voice$(4,V_Choice)\$(11,V_wrong).voc,1
  2365. PlayNow(0) = Item(voice)
  2366.     {
  2367.     If Key = Esc, End
  2368.     If Voice,Next
  2369.     }
  2370.  
  2371.         A           = A + 1
  2372.         ex_NO       = ex_NO + 1
  2373.         ex_NO       > 10, goto Pgame_Nextitem
  2374.  
  2375. flx1  = (Loadflx1),scr17,1,900                ;Time
  2376. Mouse = On,LoadShape1                    
  2377.         Voice = (Loadvoc1),0
  2378.         goto move_next
  2379.  
  2380. ;---------------------------------------------------------------
  2381.  
  2382. [move_final]
  2383.         goto move_exit
  2384.  
  2385. [move_exit]
  2386.         mouse = on,loadshape1
  2387. Loadstr4 = 3dw256.str,Voice_Choice
  2388.     Get(V_Choice)  = Random(1~2)    
  2389. Voice = $(1, 2)\Voice$(4, V_Choice)\Move_e.voc,1    ;re_voc
  2390. playnow(0)=Item(voice)
  2391.     {
  2392.     If voice,next
  2393.     If key   = esc,goto end
  2394.     If key   = space,next
  2395.     If mouse = left,next
  2396.     If mouse = right,next
  2397.     }
  2398.     goto Quit
  2399.  
  2400. [Ds_card]
  2401.     Restbk1
  2402.     Restbk2
  2403.     Restbk7
  2404.  
  2405.     Discard    = (Loadvoc1, Loadvoc2, Loadvoc3) 
  2406.  
  2407.     Discard    = (Loadback1, Loadback2, Loadback3, Loadback4, Loadback5) 
  2408.     Discard    = (Loadback6, Loadback7, Loadback8, Loadback9, Loadback10)
  2409.     Discard    = (Loadback11, Loadback12, Loadback13, Loadback14, Loadback15)
  2410.     Discard    = (Loadback16)
  2411.     
  2412.     Discard    = (Loadflx1, Loadflx2, Loadflx3, Loadflx4, Loadflx5)
  2413.     Discard    = (Loadflx6, Loadflx7, Loadflx8, Loadflx9, Loadflx10)
  2414.  
  2415.     Discard    = (Loadstr2,  Loadstr3,  Loadstr4,  Loadstr5) 
  2416.     Discard    = (Loadstr6,  Loadstr7,  Loadstr8,  Loadstr9,  Loadstr10)
  2417.     Discard    = (Loadstr11, Loadstr12, Loadstr13, Loadstr14, Loadstr15) 
  2418.     Discard    = (Loadstr16, Loadstr17, Loadstr18, Loadstr19, Loadstr20)
  2419.  
  2420.     pass_NO1 = 1
  2421.  
  2422. Return
  2423.  
  2424.  
  2425. [Quit]
  2426. Mouse = off
  2427. Discard = (Loadback20)
  2428.  
  2429. scr1 = (  0,  0,512,700),0,(0,0,0)            ; main
  2430. scr3 = ( 64,144,366,500),0,(0,0,0)            ; Open V.S
  2431. scr4 = ( 90,  0,316,144),0,(0,0,0)             ; Open V.S_pre
  2432. scr5 = (420,284, 92,162),0,(0,0,0)             ; Open V.S_pre
  2433.  
  2434. Loadstr4 = 3dw256.str,Voice_Choice
  2435.  
  2436. Background = ( 0, 0, 0),scr1                ;256
  2437. Background = $(1,2)\flx1\tv_sc02.gif,scr1,1        
  2438.     Get(V_Choice)  = Random(1~2)    
  2439. Voice = $(1, 2)\Voice$(4, V_Choice)\Menu_e.voc,1    ;re_voc
  2440. playnow(0)=Item(voice)
  2441.     {
  2442.     If voice,next
  2443.     If key   = esc,goto end
  2444.     If key   = space,next
  2445.     If mouse = left,next
  2446.     If mouse = right,next
  2447.     }
  2448.  
  2449. voice = $(1,2)\bgm\W_open.voc,0
  2450. flx1  = $(1,2)\flx1\Ep_ma.flc(1),scr3,1,0        ;256(clr)
  2451. playnow(0)=Item(flx1, voice),continue(voice)
  2452.     {
  2453.     If flx1,next
  2454.     If key   = esc,goto end
  2455.     If key   = space,goto ep_vs1
  2456.     If mouse = left, goto ep_vs1
  2457.     If mouse = right,goto ep_vs1
  2458.     }
  2459. [Ep_vs1]
  2460.     St_NO = 1
  2461.     LoadStr7 = 3dw256.str,ST_item
  2462.     Get(St_Max)     = StrCnt(7)
  2463. Background = $(1,2)\flx1\Ep_sb.gif,scr3,6             ;256(clr)
  2464. [Ep_back]
  2465. Background = $(1,2)\flx1\$(7,St_NO).gif,scr3(34,100),6;256(clr)
  2466. playnow(2s)=Item(voice),continue(voice)
  2467.     {
  2468.     If key   = esc,goto end
  2469.     If key   = space,goto ep_vs2
  2470.     If mouse = left, goto ep_vs2
  2471.     If mouse = right,goto ep_vs2
  2472.     }
  2473.     St_NO = St_NO + 1
  2474.     St_NO > St_Max, goto Ep_last
  2475. goto ep_back
  2476.  
  2477. [Ep_last]
  2478. voiceoff
  2479. Background = $(1,2)\flx1\tv_off.gif,scr3,4        ;256(clr)
  2480. playnow(2s)=Item(voice),continue(voice)
  2481.     {
  2482.     If key   = esc,goto end
  2483.     If key   = space,goto ep_vs2
  2484.     If mouse = left, goto ep_vs2
  2485.     If mouse = right,goto ep_vs2
  2486.     }
  2487. Background = $(1,2)\flx1\bg.gif,scr1,4         ;256(clr)
  2488. playnow(1s)=Item()
  2489.     {
  2490.     If key   = esc,goto end
  2491.     If key   = space,goto ep_vs2
  2492.     If mouse = left, goto ep_vs2
  2493.     If mouse = right,goto ep_vs2
  2494.     }
  2495. [Ep_vs2]
  2496.  
  2497. [end]
  2498.