?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;       В│ВнВчВ╠ЛGР▀    FILENAME:CSas#_##(CS+П═+╝┼╪╡ No.(+╗╠▐┼▌╩▐░))
  2. ;               ГVБ[ГУБ@В`ВOВS
  3. ;               Й╖РЄЧ╖НsВ╠КйВ▀
  4.  
  5.                 INCLUDE SUPER_S.INC
  6.  
  7. START:
  8.                 DW      SCTBL,MSGTBL,COMTBL,VNTBL,ENDTBL
  9. SCTBL:
  10.                 DW      S1, S2, S3, S4
  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,-1
  24. CM2:    DW      VV2,    NN2,-1
  25. CM3:    DW      VV3,    -1
  26. CM4:    DW      VV4,    NN3,-1
  27.  
  28. ;VV1:   DB      1,      'МйВщ',0
  29. VV1:    DB      1,      'LOOK',0
  30. ;VV2:   DB      2,      'НlВжВщ',0
  31. VV2:    DB      2,      'THINK',0
  32. ;VV3:   DB      3,      'В╠ВёВ╤ВшВ╖Вщ',0
  33. VV3:    DB      3,      'RELAX',0
  34. ;VV4:   DB      4,      'РHВ╫Вщ',0
  35. VV4:    DB      4,      'EAT',0
  36.  
  37. ;NN1:   DB      1,      'ГeГМГr',0
  38. NN1:    DB      1,      'TELEVISION',0
  39. ;NN2:   DB      2,      'Р│МО',0
  40. NN2:    DB      2,      'NEW YEARS DAY',0
  41. ;NN3:   DB      3,      'Г~ГJГУ',0
  42. NN3:    DB      3,      'MIKAN',0
  43.  
  44. ;       Б@Б@Б@ УоОМ Ц╝ОМ ╠╫╕▐ ╥п╛░╝▐
  45. S1:             DW      VV1, NN1,  1, M2, M3            ;МйВщБ@ГeГМГr
  46. S2:             DW      VV2, NN2,  2, M4                ;НlВжВщБ@Р│МО
  47. S3:             DW      VV3, -1,  3, M5, M6, M7         ;В╠ВёВ╤ВшВ╖ВщВR
  48. S4:             DW      VV4, NN3,  4, M8, M9, M10               ;РHВ╫ВщБ@Г~ГJГУ
  49.  
  50.  
  51. ;ГCГjГVГГГЛГБГbГZБ[ГW
  52. M1:
  53.         DB      BGM,26
  54.         BAK_INIT 'AB_01_2'
  55.         DB      BUF,B_COPY01
  56.         DB      "Ah, New Year's Day in Japan."
  57.         DB      NEXT
  58.         DB      "New Year's Day is the most important of Japanese holidays."
  59.         DB      CR
  60.         DB      "We go to shinto shrines and pray for good luck in the new"
  61.         DB      CR
  62.         DB      "year, and spend time with our family."
  63.         DB      NEXT
  64.         DB      "Most Japanese do what I am doing now, which is sit at the"
  65.         DB      CR
  66.         DB      "kotatsu (a short table with a heater under it), watch TV,"
  67.         DB      CR
  68.         DB      "and eat mikan oranges."
  69.         DB      NEXT
  70.         DB      "Mikans are small oranges that come into season in Japan in"
  71.         DB      CR
  72.         DB      "the winter. They go with winter as much as Santa Claus does"
  73.         DB      CR
  74.         DB      "in America."
  75.         DB      NEXT
  76.         ;       DB      'Бy%001БzБFВ╡ВйВ╡БEБEБEР│МОВ┴В─ГНГNВ╚Ф╘СgВтВ┴В─В╦Б[ВцВ╚БEБEБE'
  77.         DB      "%001:  I hate the TV shows they put on on New Year's"
  78.         DB      CR
  79.         DB      "Eve..."
  80.         B_P1 B_SUDA
  81.         DB      NEXT
  82.         ;       DB      'Й┤В═В▒В╜В┬В╔РЎВшНЮВёВ┼Г{Б[ГbВ╞ГeГМГrВЁМйВ─В╜БB'
  83.         DB      "I had my feet in the kotatsu. I felt toasty."
  84.         DB      NEXT
  85.         T_CG 'CT09',0,0,20,1
  86.         ;       DB      'БyРLНKБzБF%001БAБuВ╟ВлВ┴БЩПЧВ╛ВчВпВ╠ЙFТИЧVЙjСхЙяБvВ╔Х╧ВжВ─ВвВвВйБH'
  87.         DB      "Nobuyuki:  Do you mind of I change the channel? There's"
  88.         DB      CR
  89.         DB      "a show called The Great Beauty Contest in Space."
  90.         DB      NEXT
  91.         ;       DB      'Бy%001БzБFБEБEБEНDВлВ╔В╡В─ВцБB'
  92.         DB      "%001:  .....Sure."
  93.         DB      NEXT
  94.         T_CG1 'CT10',0,0,5,2
  95.         DB      ANI,A_ON,1
  96.         ;       DB      'БyЙpФ№БzБFВ╡ВуВдВ┐ВсБ`ВёБAВиГ~ГJГУВ▐ВвВ─ВаВ░ВцВдВйБH'
  97.         DB      "Hidemi:  Shu-chan? Shall I peel some mikan for you?"
  98.         DB      NEXT
  99.         ;       DB      'Бy%001БzБFБEБEБEГ~ГJГУВнВчВвИъРlВ┼В▐ВпВщВцБEБEБE'
  100.         DB      "%001:  I can peel them myself!"
  101.         DW      0000H
  102.        
  103. M2:             ;МйВщБ@ГeГМГr
  104.         ;       DB      'ХГВ│ВёВ═БuВ╟ВлВ┴БЩПЧВ╛ВчВпВ╠ЙFТИЧVЙjСхЙяБvВ╔Г`ГГГУГlГЛВЁНЗВэВ╣В╜БB'
  105.         DB      "Dad has changed the channel to The Great Beauty Contest"
  106.         DB      CR
  107.         DB      "in Space."
  108.         DB      NEXT
  109.         ;       DB      'ЙцЦ╩В╔В═МОВЁГoГbГNВ╔ЙFТИЧVЙjВ╖ВщПЧВ╠ОqВ╜В┐ВкЙfВ┴В─ВвВ╜БB'
  110.         DB      "As expected, there were a lot of beautiful women. One"
  111.         DB      CR
  112.         DB      "was floating in zero gravity."
  113.         DB      NEXT
  114.         ;       DB      'БEБEБEС╜ХкБAПЧВ╠ОqВ╛В╞ОvВдБBВкБAВ▒ВёВ╚В▓В┬ВвЙFТИХЮВЁТЕНЮВёВ┼В┐ВсВаХкВйВчВ╚ВвВ╡КyВ╡ВнВрВ╚ВвБB'
  115.         DB      "There goes one in a spacesuit. Somehow the effect is lost."
  116.         DB      NEXT
  117.         ;       DB      'БyРLНKБzБFБEБEБEВ╚ВёВ╛В▒ВшВсБEБEБE'
  118.         DB      "Nobuyuki:  What the heck is this show?"
  119.         DB      NEXT
  120.         ;       DB      'Бy%001БzБFБEБEБEВлВ┴В╜В╦ВеБEБEБEН╝Л\В╛ВцВ╚БEБEБE'
  121.         DB      "%001:  I know. Look at that one woman. She's wearing a"
  122.         DB      CR
  123.         DB      "spacesuit. You can't see her tits or anything."
  124.         DB      NEXT
  125.         ;       DB      'БyРLНKБzБFВёВёБH%001БAНбВ╚ВёВ─М╛В┴В╜БH'
  126.         DB      "Nobuyuki:  What did you say, %001?"
  127.         DB      NEXT
  128.         ;       DB      'Бy%001БzБFВ┐БAИсВдВцБIЙ┤В═БEБEБE'
  129.         DB      "%001:  ...Mm? I just said..."
  130.         DB      NEXT
  131.         ;       DB      'БyРLНKБzБFВ╗Б[ВйВ╗Б[ВйБAВвВ┬В╠В▄В╔ВйВиСOВрПЧВ╠ОqВ╔Ц┌КoВ▀В─В╜ВёВ╛В╚БI'
  132.         DB      "Nobuyuki:  I see. So you've finally gotten interested in"
  133.         DB      CR
  134.         DB      "women, have you?"
  135.         DB      NEXT
  136.         ;       DB      'Бy%001БzБFИсВдВ┴В─В╬БI'
  137.         DB      "%001:  .............Well, of course."
  138.         DB      FLG,F_COPYI,1,1
  139.         DW      0000H
  140.        
  141. M3:             ;МйВщБ@ГeГМГr
  142.         ;       DB      'БiЙFТИХЮВ╠ПЧВ╠ОqВ╚ВёВйМйВ─В─ВрКyВ╡ВнВ╚ВвВ╡БAРeХГВ╔ВйВчВйВэВъВщВ╠ВрВтВ╛БBБj'
  143.         DB      "I'm not enjoying this stupid show."
  144.         EF_SET 102
  145.         DW      0000H
  146.        
  147. M4:             ;НlВжВщБ@Р│МО
  148.         ;       DB      'БiВ╡ВйВ╡БEБEБEР│МОВ┴В─ГzГУГgВ╔В╖ВоЦOВлВщВ╚БEБEБEБj'
  149.         DB      "This sucks."
  150.         DB      NEXT
  151.         ;       DB      'БiВ╣В┴ВйВнВ╠ЛxВ▌В╔Й╞В┼В▓ВыВ▓ВыВ▓ВыВ▓ВыБEБEБEБj'
  152.         DB      "I can't believe I don't have anything more interesting "
  153.         DB      CR
  154.         DB      "to do than stay home with my parents."
  155.         DB      NEXT
  156.         ;       DB      'БiЛgУcВ╞ТЖЦьВ═ГXГLБ[В╔НsВнВ╞ВйМ╛В┴В─В╜ВцВ╚Б`БEБEБEБj'
  157.         DB      "Seia and Meimi said they were going skiing."
  158.         DB      NEXT
  159.         ;       DB      'БiБEБEБEФТРЕВ│ВёВ═В╟В┴ВйНsВнВ╠ВйВ╚Б`БEБEБEБj'
  160.         DB      "Ruri's going...somewhere."
  161.         EF_SET 104
  162.         DW      0000H
  163.        
  164. M5:             ;В╠ВёВ╤ВшВ╖Вщ
  165.         ;       DB      'В┌ВзВзВзВзВзВзБEБEБE'
  166.         DB      "*Yawn!!*"
  167.         DB      NEXT
  168.         ;       DB      'БiБEБEБEР│МОВ╛В╚ВЯБEБEБEБj'
  169.         DB      "Ah, I do love New Year's Day.."
  170.         DB      FLG,F_COPYI,3,1
  171.         DW      0000H
  172.        
  173. M6:             ;В╠ВёВ╤ВшВ╖ВщВQ
  174.         ;       DB      'ВёВ┌ВзВзВзВзВзВзБEБEБE'
  175.         DB      "*stretch*"
  176.         DB      NEXT
  177.         ;       DB      'БiБEБEБEР│МОВ╛БEБEБEБj'
  178.         DB      "Ah, it's New Year's Day."
  179.         DB      FLG,F_COPYI,3,2
  180.         DW      0000H
  181.        
  182. M7:             ;В╠ВёВ╤ВшВ╖ВщВR
  183.         ;       DB      'В╩В┌ВзВзВзВзВзВзБEБEБE'
  184.         DB      "Ahhhh....."
  185.         DB      NEXT
  186.         ;       DB      'БiБEБEБEР│МОБEБEБEБj'
  187.         DB      "New Year's Day."
  188.         EF_SET 101
  189.         DB      FLG,F_COPYI,3,0
  190.         DW      0000H
  191.        
  192. M8:             ;РHВ╫ВщБ@Г~ГJГУ
  193.         ;       DB      'БiБEБEБEГ~ГJГУВ┼ВрРHВиБ[В┴В╞БBБj'
  194.         DB      "I guess I'll have a mikan."
  195.         DB      NEXT
  196.         ;       DB      'Й┤В═ГeБ[ГuГЛВ╠ПуВ╠Г~ГJГУВ╔ОшВЁРLВ╬В╡В╜БB'
  197.         DB      "I reach for a mikan from on top of the table."
  198.         DB      NEXT
  199.         ;       DB      'БyЙpФ№БzБFВ╡ВуВдВ┐ВсВёВ┴В─В╬ВЯБAЙpФ№ВкВ▐ВвВ─ВаВ░ВщВ┴В─М╛В┴В─ВщВ╠В╔ВбБB'
  200.         DB      "Hidemi:  Are you sure you don't want me to peel it for you,"
  201.         DB      CR
  202.         DB      "%001?"
  203.         DB      NEXT
  204.         ;       DB      'Бy%001БzБFГ~ГJГУВнВчВвИъРlВ┼В▐ВпВщВ┴В─В╬БB'
  205.         DB      "%001:  I told you, I can do it myself..."
  206.         DB      FLG,F_COPYI,4,1
  207.         DW      0000H
  208.        
  209. M9:             ;РHВ╫ВщБ@Г~ГJГУ
  210.         ;       DB      'БiВйБ[В┐ВсВёВкВдВ┴В╞Б[В╡ВвВйВчВтВ▀В╜БBБj'
  211.         DB      "I think I hurt Mom's feeling just now."
  212.         DB      NEXT
  213.         ;       DB      'БiБEБEБEВ╗ВдВвВтБAРVУбВ│ВёВ╠Й╞В┴В─ВиХъВ│ВёВвВ╚ВвВёВ╛В┴ВпБEБEБEБj'
  214.         DB      "I think of Kiyomi, who doesn't have a mother like me."
  215.         DB      NEXT
  216.         ;       DB      'БiЙ┤В┴В─БAц╥СЄВ╚В╠ВйВ╚БEБEБEБj'
  217.         DB      "I'm a terrible son...."
  218.         DB      NEXT
  219.         ;       DB      'БyЙpФ№БzБFВ┘ВчВ╡ВуВдВ┐ВсВёБAВаБ`ВёВ╡В─БB'
  220.         DB      "Hidemi:  Okay, Shu-chan, say 'Ah...'"
  221.         DB      NEXT
  222.         ;       DB      'БiБEБEБEВ╠В╡В┬ВпВ─РVУбВ│ВёЙ╞В╔СЧВ┴В─ВтВыБ[ВйБEБEБEБj'
  223.         DB      "Hmm... Maybe I'll give my mother to Kiyomi's family."
  224.         DB      FLG,F_COPYI,4,2
  225.         EF_SET 103
  226.         DW      0000H
  227.        
  228. M10:            ;РHВ╫ВщБ@Г~ГJГУ
  229.         ;       DB      'БiВйБ[В┐ВсВёВкВдВ┴В╞Б[В╡ВвВйВчВтВ▀В╜БBБj'
  230.         DB      "I don't want to hurt her feelings, so I won't bother."
  231.         DW      0000H
  232.        
  233. M_EXIT:         ;
  234.         DB FLG,F_COPYI,255,1
  235.         DB FLG,F_MAND,5,255,101,102,103,104
  236.         DB FLG,F_EXIT,255
  237.         DB      NEXT
  238.         ;       DB      'БyРLНKБzБFВ╗ВдВ╛БA%001БB'
  239.         DB      "Nobuyuki:  Oh, I just remembered, %001."
  240.         DB      NEXT
  241.         ;       DB      'Бy%001БzБFЙ╜БH'
  242.         DB      "%001:  What?"
  243.         DB      NEXT
  244.         ;       DB      'БyРLНKБzБFХГВ│ВёТBБAВRУ·ВйВчТмУрЙяВ╠Й╖РЄЧ╖НsВ╔БEБEБE'
  245.         DB      "Nobuyuki:  There are these wonderful hot springs that I"
  246.         DB      CR
  247.         DB      "was going to go to, and..."
  248.         DB      NEXT
  249.         ;       DB      'Бy%001БzБFВ╚ВЯВаВаВ╔ВбВвВвВвВвВвБI'
  250.         DB      "%001:  WHAT?!"
  251.         DB      NEXT
  252.         ;       DB      'Бy%001БzБFВ╕ВщВвВ╝ГIГДГWБI'
  253.         DB      "%001:  You're going to go to some hot springs, aren't you?"
  254.         DB      CR
  255.         DB      "And leave me?"
  256.         DB      NEXT
  257.         ;       DB      'БyРLНKБzБFВ═БAШbВ═Н┼МуВ▄В┼Х╖ВпБI'
  258.         DB      "Nobuyuki:  I'm not done talking! Shut up and listen!"
  259.         DB      NEXT
  260.         ;       DB      'БyРLНKБzБFХГВ│ВёТBВ═ВRУ·ВйВчТмУрЙяВ╠Й╖РЄЧ╖НsВ╔НsВнЧ\ТшВ╛В┴В╜ВкБAОЦПюВкВаВ┴В─Ч╖НsОйС╠ВкТЖО~В╔В╚В┴В╜ВёВ╛БB'
  261.         DB      "Nobuyuki:  I was supposed to go with the town friendship"
  262.         DB      CR
  263.         DB      "society, but the trip got cancelled."
  264.         DB      NEXT
  265.         ;       DB      'БyРLНKБzБFВlМзВ╠Й╖РЄЧ╖К┘ВЁИъФСУёУ·БAС▌Р╪В╔В╡В─ВаВ┴В─В╚БBВрВ┴В╜ВвВ╚ВвВйВчХГВ│ВёВкКiИ└В┼ФГВвОцВ┴В╜ВёВ╛ВкБAХГВ│ВёТBВрЦ@ОЦВ┼ГNГjВ╔ЛAВчВ╚ВлВсВ╚ВчВёБB'
  266.         DB      "Nobuyuki:  We rented the entire Japanese ryokan inn for two"
  267.         DB      CR
  268.         DB      "days, but now it's all going to go to waste..."
  269.         DB      NEXT
  270.         ;       DB      'БyРLНKБzБFПhФСФяВ═СOЛрВ┼ХеВвНЮВ▄ВъВ─ВщВйВчБAЙЭХЬВ╠УdО╘Т└В╛ВпВ┼ВвВвБBНЁУ·ЧИВ╜РlТBВ┼ВрЧUВ┴В─БAНsВ┴В─ЧИВ╜ВчВ╟ВдВ╛БH'
  271.         DB      "Nobuyuki:  The rooms are already paid for, so the only"
  272.         DB      CR
  273.         DB      "thing you left is the train fare. Why don't you invite"
  274.         DB      CR
  275.         DB      "the women who were here yesterday?"
  276.         DB      NEXT
  277.         ;       DB      'Бy%001БzБFБEБEБEВиХГВ│ВёБI'
  278.         DB      "%001:  Dad! I love you!"
  279.         DB      NEXT
  280.         ;       DB      'Й┤В═ВкВ┴ВлВ╞ХГВ│ВёВ╠ОшВЁИмВ┴В╜БB'
  281.         DB      "I hugged my father."
  282.         DB      NEXT
  283.         ;       DB      'Бy%001БzБFВаВшВкВ╞ВдБAВиХГВ│ВёБI'
  284.         DB      "%001:  Thank you, Dad!"
  285.         DB      NEXT
  286.         ;       DB      'БyРLНKБzБFВ═В┴В═В┴В═БAЧчВ╔В═ЛyВ╬ВёВ╝ВзБI'
  287.         DB      "Nobuyuki:  Ha ha, well, I hope you enjoy yourself."
  288.         DB      NEXT
  289.         ;       DB      'Бy%001БzБFВ╗ВъВ╢ВсБAВ│В┴В╗ВнВ▌ВёВ╚В╔УdШbВ╡ВцВдБI'
  290.         DB      "%001:  I've got to call everyone!"
  291.         DB      NEXT
  292.         ;       DB      'Й┤В═КKТiВЁЛьВпПуВкВ┴В─ОйХкВ╠ХФЙоВ╔НsВ┴В╜БB'
  293.         DB      "I ran up the stairs to my own room."
  294.         DB      NEXT
  295.         ;       DB      'БEБEБEБEБEБEБEБEБEБEБEБE'
  296.         DB      ".................................................."
  297.         DB      NEXT
  298.         ;       DB      'БyРLНKБzБFВцВ╡БEБEБEВnМvЙцВ╠В┬ВйВ▌В═ГIГbГPБ[БB'
  299.         DB      "Nobuyuki:  Okay... The plan is working."
  300.         DB      NEXT
  301.         ;       DB      'БyЙpФ№БzБFЙpФ№ВрЙ╖РЄБAНsВлВ╜ВвВ╚ВЯБ`БEБEБE'
  302.         DB      "Hidemi:  I want to go to the hot springs..."
  303.         DB      NEXT
  304.         DB SINARIO,'CSA05.OVL',0
  305.         DW      0000H
  306.  
  307.  
  308. end
  309.