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