?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;       В│ВнВчВ╠ЛGР▀    FILENAME:CSas#_##(CS+П═+╝┼╪╡ No.(+╗╠▐┼▌╩▐░))
  2. ;               ГVБ[ГУБ@
  3. ;               Ф№ППВ╞ЧxВщ
  4.  
  5.         INCLUDE SUPER_S.INC
  6.  
  7. START:
  8.         DW      SCTBL,MSGTBL,COMTBL,VNTBL,ENDTBL
  9. SCTBL:
  10.         DW      S1, S2, S3, S4, S5
  11. MSGTBL:
  12.         DW      M1
  13. COMTBL:
  14.         DW      CM1, CM2, CM3, CM4
  15. VNTBL:
  16.         DW      V_FNAME,N_FNAME
  17. ENDTBL:
  18.  
  19.         INCLUDE "V_NAME00.INC"                  ; 0=NoCommand , 1-49=NormalCommand
  20.         INCLUDE "N_NAME00.INC"                  ; 50-99=HseenCommand
  21.  
  22. ;       Б@Б@Б@ УоОМБ@Б@Ц╝ОММQ
  23. CM1:    DW      VV1,    NN1,NN2,-1
  24. CM2:    DW      VV2,    NN1,-1
  25. CM3:    DW      VV3,    -1
  26. CM4:    DW      VV4,    -1
  27.  
  28. ;VV1:   DB      1,      'МйВщ',0
  29. VV1:    DB      1,      'LOOK',0
  30. ;VV2:   DB      2,      'ШbВ╖',0
  31. VV2:    DB      2,      'TALK',0
  32. ;VV3:   DB      3,      'НlВжВщ',0
  33. VV3:    DB      3,      'THINK',0
  34. ;VV4:   DB      4,      'ЧxВщ',0
  35. VV4:    DB      4,      'DANCE',0
  36.  
  37. ;NN1:   DB      1,      'Ф№ПП',0
  38. NN1:    DB      1,      'MIO',0
  39. ;NN2:   DB      2,      'В▄ВэВш',0
  40. NN2:    DB      2,      'AROUND',0
  41.  
  42. ;       Б@Б@Б@ УоОМ Ц╝ОМ ╠╫╕▐ ╥п╛░╝▐
  43. S1:             DW      VV1, NN1,  1, M2, M3            ;МйВщБ@Ф№ПП
  44. S2:             DW      VV1, NN2,  2, M4                ;МйВщБ@В▄ВэВш
  45. S3:             DW      VV2, NN1,  3, M5, M6            ;ШbВ╖Б@Ф№ПП
  46. S4:             DW      VV3, -1,  4, M7         ;НlВжВщ
  47. S5:             DW      VV4, -1,  5, M8, M9, M10, M11           ;ЧxВщ
  48.  
  49.  
  50. ;ГCГjГVГГГЛГБГbГZБ[ГW
  51. M1:
  52.         DB      BGM,24
  53.         BAK_INIT 'AB_27_2'
  54.         DB BUF,B_COPY01
  55.         T_CG "CT03","C",0,10,1
  56.         ;       DB      'БyФ№ППБzБFВаБEБEБE%001РцФyБEБEБE'
  57.         DB      "Mio:  Ah, %001..."
  58.         DB      NEXT
  59.         ;       DB      'Бy%001БzБFВтБAВтВаБAФ№ППВ┐ВсВёБB'
  60.         DB      "%001:  Hi, Mio."
  61.         DB      NEXT
  62.         ;       DB      'БyФ№ППБzБFВ╟БAВ╟ВдВ╡В╜ВёВ┼В╖ВйБH'
  63.         DB      "Mio:  Is anything wrong?"
  64.         DB      NEXT
  65.         ;       DB      'Бy%001БzБFВвВтБAВаВ╠БEБEБEФ№ППВ┐ВсВёВ═Г_ГУГXБAВ┼ВлВщБH'
  66.         DB      "%001:  No, I just wanted to ask you... Do you know"
  67.         DB      CR
  68.         DB      "how to dance?"
  69.         DB      NEXT
  70.         ;       DB      'БyФ№ППБzБFВжБEБEБEВ┼БAВ┼ВлБAВ┼ВлВщВцБB'
  71.         DB      "Mio:  Um, a little."
  72.         DB      NEXT
  73.         ;       DB      'Бy%001БzБFБEБEБEЙ┤В╔БEБEБEЛ│ВжВ─Ч~В╡ВвВёВ╛БB'
  74.         DB      "%001:  Would you teach me?"
  75.         DB      NEXT
  76.         ;       DB      'БyФ№ППБzБFВжБEБEБEВаВ╜В╡БEБEБEБHБEБEБEБEБEБEВдВёБIВвВвВцБI'
  77.         DB      "Mio:  Me? Sure, I'll do it."
  78.         DB      NEXT
  79.         ;       DB      'Бy%001БzБFВ╢БAВ╢ВсВаБAНsВ▒ВдВйБB'
  80.         DB      "%001:  Thanks. Let's go."
  81.         DB      NEXT
  82.         ;       DB      'БEБEБEБEБEБEБEБEБEБEБEБEБEБEБEБEБEБEБEБEБE'
  83.         DB      "............................................."
  84.         DB      NEXT
  85.         DB      BGM,8
  86.         E_CG B_FADE,'AE_035'
  87.         ;       DB      'Й┤В═Ф№ППВ┐ВсВёВ╔Г_ГУГXВЁЛ│ВэВ┴В─ВвВщБB'
  88.         DB      "Mio's teaching me how to dance."
  89.         DB      NEXT
  90.         ;       DB      'Р│Т╝В╚ШbБAЙ┤В═Г_ГУГXВкВ┼ВлВ╚ВвБB'
  91.         DB      "When I told her I didn't know how to dance, I was telling"
  92.         DB      CR
  93.         DB      "the truth."
  94.         DB      NEXT
  95.         ;       DB      'БEБEБEТPВ╔МoМ▒ВкВ╚ВйВ┴В╜В╣ВвВ╛В┴В╜ВшВ╖ВщБB'
  96.         DB      "I just never had the chance to learn."
  97.         DB      NEXT
  98.         ;       DB      'ВвВ┤ЧxВ┴В─В╡В▄ВжВ╬В╟ВдВ╔ВйВ╚ВщБAВ╞ВйОvВ┴В╜В╠В═К├ВйВ┴В╜ВчВ╡ВвБB'
  99.         DB      "I always thought it was something you could pick up"
  100.         DB      CR
  101.         DB      "without any special lessons, but I was wrong."
  102.         DB      NEXT
  103.         ;       DB      'В╚В╔ВкВ╚ВёВ╛ВйХкВйВчВ╕В╔ГIГНГIГНВ╡В─ВвВщЙ┤В╔БAФ№ППВ┐ВсВёВ═РhХ°ЛнВнХtВлНЗВ┴В─ВнВъВ─ВвВщБB'
  104.         DB      "Mio's a good teacher."
  105.         DW      0000H
  106.        
  107. M2:             ;МйВщБ@Ф№ПП
  108.         ;       DB      'Й┤В╔Г_ГУГXВЁЛ│ВжВ─ВнВъВ─ВщБB'
  109.         DB      "She's teaching me how to dance."
  110.         DB      NEXT
  111.         ;       DB      'БyФ№ППБzБFВ┘ВчБA%001РцФyБI'
  112.         DB      "Mio:  %001, you have to pay attention to your feet!"
  113.         DB      NEXT
  114.         ;       DB      'Бy%001БzБFВаБAВ▓В▀ВёБI'
  115.         DB      "%001:  Oh, sorry."
  116.         DB      FLG,F_COPYI,1,1
  117.         DW      0000H
  118.        
  119. M3:             ;МйВщБ@Ф№ПП
  120.         ;       DB      'В┐ВсВёВ╞МйВ─В╚ВлВсВэВйВёВ╚ВвВпВ╟БEБEБE'
  121.         DB      "If I stare at her, she'll get angry again."
  122.         DB      NEXT
  123.         ;       DB      'В┌Б[В┴В╞МйВ─ВщВ╞У{ВчВъВщВ╝БB'
  124.         DB      "I've got to do it casually."
  125.         DW      0000H
  126.        
  127. M4:             ;МйВщБ@В▄ВэВш
  128.         ;       DB      'НбВ═В▄ВэВшВ╠В▒В╞ВцВшВрГ_ГУГXВЁКoВжВщВ▒В╞ВкРцМИВ╛БB'
  129.         DB      "After I learn how to dance, I'll waste time looking at"
  130.         DB      CR
  131.         DB      "the other people."
  132.         DW      0000H
  133.        
  134. M5:             ;ШbВ╖Б@Ф№ПП
  135.         ;       DB      'Бy%001БzБFВ▓В▀ВёВ╚БAФ№ППВ┐ВсВёБEБEБE'
  136.         DB      "%001:  I'm sorry, Mio."
  137.         DB      NEXT
  138.         ;       DB      'БyФ№ППБzБFСSСRХ╜ЛCВ╛ВцБI'
  139.         DB      "Mio:  Don't worry about it!"
  140.         DB      NEXT
  141.         ;       DB      'БyФ№ППБzБFВ│БA%001РцФyБIОЯВ═В▒ВдБEБEБEВтВ┴В─В▌В─БI'
  142.         DB      "Mio:  Okay, not, try doing this..."
  143.         DB      NEXT
  144.         ;       DB      'Бy%001БzБFВжБEБEБEВ╞БAВ▒ВдВйВ╚БH'
  145.         DB      "%001:  Is this right?"
  146.         DB      NEXT
  147.         ;       DB      'БyФ№ППБzБFВдВёБAВ╗ВдБI'
  148.         DB      "Mio:  Yes, that's good."
  149.         DB      FLG,F_COPYI,3,1
  150.         DW      0000H
  151.        
  152. M6:             ;ШbВ╖Б@Ф№ПП
  153.         ;       DB      'Бy%001БzБFВаВшВкВ╞БAФ№ППВ┐ВсВёБB'
  154.         DB      "%001:  Thanks, Mio."
  155.         DB      NEXT
  156.         ;       DB      'БyФ№ППБzБFВжБHВтВ╛БA%001РцФyБAВ▄В╛ПIВэВ┴В─В╚ВвВцБH'
  157.         DB      "Mio:  Why are you thanking me? I'm not done teaching you"
  158.         DB      CR
  159.         DB      "yet."
  160.         DB      NEXT
  161.         ;       DB      'Бy%001БzБFВаВаБEБEБEВ╗ВдВ╛В╦БB'
  162.         DB      "%001:  Oh, you're right."
  163.         DW      0000H
  164.        
  165. M7:             ;НlВжВщ
  166.         ;       DB      'В╗БAВ╗ВёВ╚Ч]ЧTВ═В╚ВвВ╝БEБEБE'
  167.         DB      "I don't have time for that."
  168.         DW      0000H
  169.        
  170. M8:             ;ЧxВщ
  171.         ;       DB      'БyФ№ППБzБFВдВдВёБAИсВдВцБA%001РцФyБAВ▒В▒В═БAВ▒ВдВ╛ВцБAВ▒ВдБB'
  172.         DB      "Mio:  No, that's wrong. Try your left foot this way."
  173.         DB      NEXT
  174.         ;       DB      'Бy%001БzБFВжБHВ▒БAВ▒ВдБH',PAUSE,CR,'БiВ║БAВ║ВёВ║ВёХкВйВчВёБj'
  175.         DB      "%001:  Is this right? ",PAUSE,CR,"(I don't know what the hell I'm doing.)"
  176.         DB      NEXT
  177.         ;       DB      'БyФ№ППБzБFВдВёБAВ╗ВдБIВтВ┴В╧ВшРцФyБAХиКoВжВкВвВвВ╚ВаБB'
  178.         DB      "Mio:  Yes, that's good. You're really a fast learner."
  179.         DB      NEXT
  180.         ;       DB      'Бy%001БzБFВ╗БAВ╗ВдБH',PAUSE,CR,'БiНбВ╠БAВ╟В▒ВкИсВ┴В╜ВёВ╛ВыВдБj'
  181.         DB      "%001:  Really? ",PAUSE,CR,"(How is what I'm doing now different from what I was just"
  182.         DB      CR
  183.         DB      "doing?)"
  184.         DB      NEXT
  185.         ;       DB      'БyФ№ППБzБFВ╗ВдБAВ╗ВдБEБEБEВаБI%001РцФyБAВ╗В▒БAВ▒ВдВ╛ВцБI'
  186.         DB      "Mio:  Yes, you're great. Oops, that's wrong..."
  187.         DB      NEXT
  188.         ;       DB      'Бy%001БzБFВжБHВ▒БAВ▒ВдВйВ╚БH',PAUSE,CR,'БiВтВ┴В╧ВшХкВйВчВёВ╚ВаБj'
  189.         DB      "%001:  Um, is this right? ",PAUSE,CR,"(I don't know what she wants me to do!)"
  190.         DB      NEXT
  191.         ;       DB      'БyФ№ППБzБFВдВёБAВ╗ВдБI'
  192.         DB      "Mio:  That's right!"
  193.         DB      NEXT
  194.         ;       DB      'Бy%001БzБFБEБEБEБEБEБE'
  195.         DB      "%001:  ................................."
  196.         DB      NEXT
  197.         ;       DB      'БiВ╟В▒ВкИсВдВёВ╛ВыВдБHБj'
  198.         DB      "I don't understand dancing!"
  199.         DB      FLG,F_COPYI,5,1
  200.         DW      0000H
  201.        
  202. M9:             ;ЧxВщ
  203.         ;       DB      'БyФ№ППБzБFВ╗ВдБAВ╗В╠Т▓ОqБIВтВ┴В╧ВшБA%001РцФyВ┴В─В╖В▓ВвВцБI'
  204.         DB      "Mio:  You're great, %001!"
  205.         DB      NEXT
  206.         ;       DB      'Бy%001БzБFБEБEБEВ╓В╓БAУЦСRБB',PAUSE,CR,'БiБEБEБEО└В═ВаВёВ▄ВшВцВнХкВйВ┴В─В╚ВвВёВ╛ВпВ╟БEБEБEБj'
  207.         DB      "%001:  ....Of course, ha ha. ",PAUSE,CR,"(I don't know what she's so happy about...)"
  208.         DB      NEXT
  209.         ;       DB      'БyФ№ППБzБFВжВ┴В╞БAОЯВ═В▒ВдБI'
  210.         DB      "Mio:  Okay, let's try the next step."
  211.         DB      NEXT
  212.         ;       DB      'Бy%001БzБFВ╚ВёВ╛БAК╚ТPВ╛В╚БBВ▒ВдВйВ┴БB'
  213.         DB      "%001:  Hey, this is really easy.....Whoops!"
  214.         DB      NEXT,GATA,1
  215.         ;       DB      'В╕В┼Б`ВёБB'
  216.         DB      "*CRASH*"
  217.         DB      NEXT
  218.         ;       DB      'Бy%001БzБFВвВ─В─В─В─БEБEБEВаВъБH'
  219.         DB      "%001:  Ouch."
  220.         DB      NEXT
  221.         ;       DB      'БyФ№ППБzБFБEБEБE%001РцФyБAСхПфХvБH'
  222.         DB      "Mio:  .....%001, are you alright?"
  223.         DB      NEXT
  224.         ;       DB      'Бy%001БzБFВаБAВаВаБAСхПфХvБBБiВ╚ВёВ┼У]ВёВ╛ВёВ╛БHЙ┤Бj'
  225.         DB      "%001:  Yes, I'm fine. I wonder what happened back there."
  226.         DB      FLG,F_COPYI,5,2
  227.         DW      0000H
  228.        
  229. M10:            ;ЧxВщ
  230.         ;       DB      'БyФ№ППБzБFОЯВ═БAВ▒ВдБEБEБEВ╦БH'
  231.         DB      "Mio:  Next, try this."
  232.         DB      NEXT
  233.         ;       DB      'Бy%001БzБFВдВёБBВжБEБEВ╞БAВ▒ВдБH'
  234.         DB      "%001:  Is this right?"
  235.         DB      NEXT
  236.         ;       DB      'ВоВчБEБEБE'
  237.         DB      "*SLIP*"
  238.         DB      NEXT
  239.         ;       DB      'БyФ№ППБzБFВаБIВаВ╘В╚ВвБA%001В╣ВёВ╧БEБEБEБI'
  240.         DB      "Mio:  Oh! Be careful, %001!"
  241.         DB      NEXT
  242.         ;       DB      'Бy%001БzБFВиВ┴В╞В┴В╞БI'
  243.         DB      "%001:  ....Not again!"
  244.         DB      NEXT
  245.         ;       DB      'В▄В╜ГXГbУ]В╤В╗ВдВ╔В╚В┴В╜Й┤ВЁБAФ№ППВ┐ВсВёВкОxВжВ─ВнВъВ╜БB'
  246.         DB      "Almost falling, I managed to grab ahold of Mio at the last"
  247.         DB      CR
  248.         DB      "moment."
  249.         DB      NEXT
  250.         ;       DB      'Бy%001БzБFВаБ`В╘В╦ВеБBВаВшВкВ╞В╚Ф№ППВ┐ВсВёБEБEБEБH'
  251.         DB      "%001:  That was dangerous. I almost went down again."
  252.         DB      NEXT
  253.         ;       DB      'БyФ№ППБzБFВаБEБEБE'
  254.         DB      "Mio:  %001..."
  255.         DB      NEXT
  256.         ;       DB      'БEБEБEФ№ППВ┐ВсВёВ╠КчВкБAВэВ╕ВйВRГZГУГ`В╠ЛЧЧгВ╔ВаВ┴В╜БB'
  257.         DB      "My face was just an inch away from Mio's."
  258.         DB      NEXT
  259.         ;       DB      'ИъПuВ╠Т╛Ц┘БB',PAUSE,'Й┤ТBВ═ВаВэВ─В─ФЄВ╤В╠ВвВ╜БB'
  260.         DB      "There was a silence. ",PAUSE,"And then I moved away from her."
  261.         DB      NEXT
  262.         ;       DB      'Бy%001БzБFБEБEБEВ┬БAС▒ВпВцВдВйБA',PAUSE,'БEБEБEЧxВшВ╠Ч√ПKБB'
  263.         DB      "%001:  .....Well, l- let's get on with the dance lessons."
  264.         DB      NEXT
  265.         ;       DB      'БyФ№ППБzБFБEБEБEВдБAВдВёБB'
  266.         DB      "Mio:  ......Okay."
  267.         DB      FLG,F_COPYI,5,3
  268.         DW      0000H
  269.        
  270. M11:            ;ЧxВщ
  271.         ;       DB      'БyФ№ППБzБFВ╖В▓ВвВ╖В▓ВвБAВрВдВ┘В╞ВёВ╟Кор°В╛В╦БI'
  272.         DB      "Mio:  You're almost perfect!"
  273.         DB      NEXT
  274.         ;       DB      'Бy%001БzБFВжБHВ╗Б[ВйВ╚БH'
  275.         DB      "%001:  Really? I don't know about that."
  276.         DB      NEXT
  277.         ;       DB      'БyФ№ППБzБFВдВёБAВ▄В╛В┐ВхВ┴В╞КыВ╚В┴ВйВ╡ВвВпВ╟БAВ│В┴ВлВцВшВ═РПХкПуОшВ╔В╚В┴В╜ВцБA%001В╣ВёВ╧БEБEБE'
  278.         DB      "Mio:  You're still a little wobbly, but you've improved"
  279.         DB      CR
  280.         DB      "a lot."
  281.         DB      NEXT,GATA,1
  282.         ;       DB      'В╕В┼Б`ВёБB'
  283.         DB      "*SMASH*"
  284.         DB      NEXT
  285.         ;       DB      'Бy%001БzБFВвВ─В─В─В─БEБEБE'
  286.         DB      "%001:  Ouch!"
  287.         DB      NEXT
  288.         ;       DB      'БyФ№ППБzБFБEБEБE%001РцФyБAВ╨ВхВ┴В╞В╡В─ЧVВёВ┼ВщБHБA'
  289.         DB      "Mio:  .....%001, are you doing that on purpose?"
  290.         DB      NEXT
  291.         ;       DB      'Бy%001БzБFВвВтБEБEБEВэВ┤В╞В╢ВсВ╚ВвВёВ╛ВпВ╟БEБEБE'
  292.         DB      "%001:  No, I'm not..."
  293.         DB      NEXT
  294.         ;       DB      'БEБEБEБEБEБEБEБEБEБEБEБEБEБEБEБEБEБEБEБEБE'
  295.         DB      "................................................"
  296.         DB      NEXT
  297.         ;       DB      'Й┤В═Ф№ППВ┐ВсВёВ╠ВиВйВ░В┼В╟ВдВ╔ВйРlХ└В╔ЧxВъВщВцВдВ╔В╚В┴В╜БB'
  298.         DB      "Thanks to Mio I was soon able to dance with the other"
  299.         DB      CR
  300.         DB      "dancers."
  301.         DB      NEXT
  302.         ;       DB      'БEБEБEФ№ППВ┐ВсВёВкЙ┤В╔НЗВэВ╣В─ВнВъВщВйВчВ╛ВпВ╟БB'
  303.         DB      "Although Mio was helping me quite a bit."
  304.         DB      NEXT
  305.         ;       DB      'БyФ№ППБzБFБEБEБEРцФyВ┴В─БAГzГУГgВ╔В╖ВоВ╔В╚ВёВ┼ВрПoЧИВ┐ВсВдВёВ╛БEБEБEБB'
  306.         DB      "Mio:  %001, you're really a fast learner."
  307.         DB      NEXT
  308.         ;       DB      'Бy%001БzБFЙ┤ВкВ▒ВдВ╡В─ЧxВъВщВ╠В═БAФ№ППВ┐ВсВёВкЙ┤В╔НЗВэВ╣В─ВнВъВщВйВчВ╛ВцБBИъРlВ┼ЧxВъВ┴В─М╛ВэВъВ╜ВчВ▄В╜ГRГPВ▄ВнВщВ╛ВыБ[В╚БB'
  309.         DB      "%001:  I couldn't do any of this on my own. It's all"
  310.         DB      CR
  311.         DB      "because you're leading me, keeping me from making"
  312.         DB      CR
  313.         DB      "mistakes."
  314.         DB      NEXT
  315.         ;       DB      'Бy%001БzБFБEБEБEВ╛ВйВчВ│БBНбУ·В═Й┤ВкГRГPВ╚ВвВцВдВ╔БAН┼МуВ▄В┼ИъППВ╔ЧxВ┴В─ВнВъВ╦Б[ВйБH'
  316.         DB      "%001:  .....I'm going to do my best to finish the evening"
  317.         DB      CR
  318.         DB      "without falling anymore."
  319.         DB      NEXT
  320.         ;       DB      'БyФ№ППБzБFБEБEБEВдВёБI'
  321.         DB      "Mio:  That's good."
  322.         DB      NEXT
  323.         ;       DB      'БEБEБEМОЦ╛ВйВшВ╠Й║БAЙ┤В╞Ф№ППВ┐ВсВёВ═РSВфВнВ▄В┼ЧxВ┴В╜БB'
  324.         DB      ".....In the silver moonlight, Mio and I danced and"
  325.         DB      CR
  326.         DB      "danced."
  327.         DB      NEXT
  328.         ;       DB      'НбЦщВ╠МОВЁБAЙ┤В═В╕В┴В╞ЦYВъВ╚ВвВ╛ВыВдБB'
  329.         DB      "I'll never forget that moonlit night."
  330.         DB      NEXT
  331.         DB      "...................................................."
  332.         DB      NEXT
  333.         DB G_FLG,G_COPYI,136,1
  334.         DB G_FLG,G_COPYF,130,130
  335.         DB      FLG,F_CALI,130,20
  336.         DB G_FLG,G_COPYG,130,130
  337.         DB      SINARIO,'CS901.OVL',0
  338.         DW      0000H
  339.  
  340.  
  341. end
  342.