?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. ;       В│ВнВчВ╠ЛGР▀    FILENAME:CSas#_##(CS+П═+╝┼╪╡ No.(+╗╠▐┼▌╩▐░))
  2. ;               ГVБ[ГУБ@ВUВPВP
  3. ;               ФjВъОPУБПMБ@ТкК▒ОыВш
  4.  
  5.         INCLUDE SUPER_S.INC
  6.  
  7. START:
  8.         DW      SCTBL,MSGTBL,COMTBL,VNTBL,ENDTBL
  9. SCTBL:
  10.         DW      S1, S2, S3
  11. MSGTBL:
  12.         DW      M1
  13. COMTBL:
  14.         DW      CM1, CM2, CM3
  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,    NN1,-1
  25. CM3:    DW      VV3,    -1
  26.  
  27. ;VV1:   DB      1,      'МйВщ',0
  28. VV1:    DB      1,      "LOOK",0
  29. ;VV2:   DB      2,      'ШbВ╖',0
  30. VV2:    DB      2,      "TALK",0
  31. ;VV3:   DB      3,      'М@Вщ',0
  32. VV3:    DB      3,      "DIG",0
  33.  
  34. ;NN1:   DB      1,      'Ф№ПП',0
  35. NN1:    DB      1,      "MIO",0
  36.  
  37. ;       Б@Б@Б@ УоОМ Ц╝ОМ ╠╫╕▐ ╥п╛░╝▐
  38. S1:             DW      VV1, NN1,  1, M2                ;МйВщБ@Ф№ПП
  39. S2:             DW      VV2, NN1,  2, M3, M4, M5, M6, M7, M8, M9, M10           ;ШbВ╖Б@Ф№ПП
  40. S3:             DW      VV3, -1,  3, M11                ;М@Вщ
  41.  
  42.  
  43. ;ГCГjГVГГГЛГБГbГZБ[ГW
  44. M1:
  45.         DB      BGM,19
  46.         BAK_INIT "AB_17_1"
  47.         DB BUF,B_COPY01
  48.         T_CG "CT03","M",0,15,1
  49. ;       DB      'Й┤ТBВ═Й═М√В╠Л▀ВнВ╠К▒КГВ╔ЧИВ╜БB'
  50.         DB      "We came to the flat area by the mouth of the river."
  51.         DB FLG,F_COPYI,100,0
  52.         DW      0000H
  53.  
  54. M2:             ;МйВщБ@Ф№ПП
  55. ;       DB      'ВлВъВвВ╚КLКkВЁМйВ┬ВпВ─ПWВ▀В─ВщВцВдВ╛БB'
  56.         DB      "Looks like we could find lots of pretty shells here."
  57.         DW      0000H
  58.  
  59. M3:             ;ШbВ╖Б@Ф№ПП
  60. ;       DB      'Бy%001БzБFВ╚ВаБAГAГПГrВ╞ВйГTГUГGВ┴В─В╟В╠ВнВчВвМ@ВъВ╬ПoВ─ВнВщВёВ╛БH'
  61.         DB      "%001:  Can we find some abalone and conch?"
  62.         DB      NEXT
  63. ;       DB      'БyФ№ППБzБFВаБ[ВфБ[КLВ═БAН╗В╔В═ВрВоВчВ╚ВвВёВ╢ВсВ╚ВвВйВ╚ВЯБEБEБEБB'
  64.         DB      "Mio:  I don't think they burrow in the sand..."
  65.         DB      NEXT
  66. ;       DB      'Бy%001БzБFВ╗ВйБEБEБEОcФOБB'
  67.         DB      "%001:  Really? That's too bad."
  68.         DB      FLG,F_COPYI,2,1
  69.         DW      0000H
  70.  
  71. M4:             ;ШbВ╖Б@Ф№ПП
  72. ;       DB      'Бy%001БzБFБEБEБEГJГLВ╞ВйГzГ^ГeВ═БH'
  73.         DB      "%001:  What about oysters and scallops?"
  74.         DB      NEXT
  75. ;       DB      'БyФ№ППБzБFКCВ╔РЎВчВ╚ВвВ╞БAМйВ┬ВйВчВ╚ВвВцБB'
  76.         DB      "Mio:  We won't find them unless we wade in the water."
  77.         DB      NEXT
  78. ;       DB      'Бy%001БzБFБEБEБEБEБEБEВ┐ВеБB'
  79.         DB      "%001:  ....Damn."
  80.         DB      FLG,F_COPYI,2,2
  81.         DW      0000H
  82.  
  83. M5:             ;ШbВ╖Б@Ф№ПП
  84. ;       DB      'БyФ№ППБzБFРцФyБAВ▒ВъВ╚ВёВ─ВвВдКLВ╠КkБH'
  85.         DB      "Mio:  %001, what do you call this shell?"
  86.         DB      NEXT
  87. ;       DB      'Бy%001БzБFВ│ВЯБBРVУбВ│ВёВ╚ВчТmВ┴В─ВщВёВ╢ВсВ╦Б[ВйБH'
  88.         DB      "%001:  Hmm, Kiyomi would probably know."
  89.         DB      NEXT
  90. ;       DB      'БyФ№ППБzБFБEБEБEР┤Ф№РцФyБH'
  91.         DB      "Mio:  Kiyomi?"
  92.         DB      NEXT
  93. ;       DB      'Бy%001БzБFНЁУ·УёРlВ┼УЗВ╔НsВ┴В╜ОЮБAВвВыВвВыЛ│ВжВчВъВ╜ВйВчВ╚БB'
  94.         DB      "%001:  When we went to the island yesterday, she taught"
  95.         DB      CR
  96.         DB      "me a lot of about the ocean."
  97.         DB      NEXT
  98. ;       DB      'БyФ№ППБzБFБEБEБEВ╙ВгВёБB'
  99.         DB      "Mio:  Oh."
  100.         DB      FLG,F_COPYI,2,3
  101.         DW      0000H
  102.  
  103. M6:             ;ШbВ╖Б@Ф№ПП
  104. ;       DB      'Бy%001БzБFВ╗Б[ВвВтБAНбУ·В═МйК|ВпВ╦Б[В╚БAРVУбВ│ВёБB',CR,'Ф№ППВ┐ВсВёБAТmВчВ╦Б[ВйБH'
  105.         DB      "%001:  I haven't seen Kiyomi today. Have you, Mio?"
  106.         DB      NEXT
  107. ;       DB      'БyФ№ППБzБFБEБEБEВэВйВёВ╚ВвБB'
  108.         DB      "Mio:  I don't know."
  109.         DB      FLG,F_COPYI,2,4
  110.         DW      0000H
  111.  
  112. M7:             ;ШbВ╖Б@Ф№ПП
  113. ;       DB      'БyФ№ППБzБFВаБIРцФyБAВ┘ВчБAНўКLБI'
  114.         DB      "Mio:  Oh! %001, look, a cherry shell."
  115.         DB      NEXT
  116. ;       DB      'Бy%001БzБFВ╗ВъВ┴В─РHВжВщВ╠ВйБH'
  117.         DB      "%001:  Can you eat it?"
  118.         DB      NEXT
  119. ;       DB      'БyФ№ППБzБFБEБEБEКkВ╛ВпВ╛ВйВчРHВ╫ВчВъВ╚ВвВцБB'
  120.         DB      "Mio:  It's just the shell, so you can't eat it."
  121.         DB      NEXT
  122. ;       DB      'Бy%001БzБFВ╓ВеБEБEБEГLГМГCВ╛В╚БAВ╗В╠КLБB',CR,'Ф№ППВ┐ВсВёВ╠ОwВ╠Т▄В▌В╜ВвВ╚РFВ╛БB'
  123.         DB      "%001:  Wow...it's pretty, isn't it. It looks the same"
  124.         DB      CR
  125.         DB      "color as your fingernails."
  126.         DB      NEXT
  127. ;       DB      'БyФ№ППБzБFВжБEБEБE'
  128.         DB      "Mio:  Oh."
  129.         DB      NEXT
  130.         K_CG "CT03","R",15,2
  131. ;       DB      'В▒В▒ВыВ╚В╡БAФ№ППВ┐ВсВёВ╠КчВкР╘ВнВ╚В┴В╜ВцВдВ╚ЛCВкВ╖ВщБB'
  132.         DB      "I noticed that Mio had turned as red as a beet."
  133.         DB      NEXT
  134. ;       DB      'БiУ·ВтВпВйВ╚БHБj'
  135.         DB      "She must be sunburned."
  136.         DB      FLG,F_COPYI,2,5
  137.         DW      0000H
  138.  
  139. M8:             ;ШbВ╖Б@Ф№ПП
  140. ;       DB      'БyФ№ППБzБFВаВъБEБEБEВ▒ВёВ╚ПКВ╔ГrГУВкВаВщБB'
  141.         DB      "Mio:  That's odd. There's a bottle here."
  142.         DB      NEXT
  143. ;       DB      'Бy%001БzБFКCВ╔ГSГ~ВЁО╠В─В┐ВсВвВпВ╦Б[ВцВ╚БB'
  144.         DB      "%001:  People shouldn't throw garbage in the ocean."
  145.         DB      NEXT
  146. ;       DB      'БyФ№ППБzБFВдВдВёБAТЖВ╔ОшОЖВкУ№В┴В─ВщБB'
  147.         DB      "Mio:  Yes, but there's a letter in it."
  148.         DB      NEXT
  149. ;       DB      'Бy%001БzБFГzГУГgБHВ╟ВъВ╟ВъБEБEБE'
  150.         DB      "%001:  Really? Let me see it."
  151.         DB      NEXT
  152. ;       DB      'БyФ№ППБzБFВжВ┴В╞БEБEБE',CR,'В▒ВъБAГНГVГAМъВйВ╚БHЙ╜ВйБAУЗВ╠ТnР}В▌В╜ВвВ╚КGВкХ`ВвВ─ВаВщВцБEБEБEБB'
  153.         DB      "Mio:  Hmm, is this Russian maybe? It looks like someone"
  154.         DB      CR
  155.         DB      "drew a map of an island..."
  156.         DB      NEXT
  157. ;       DB      'Бy%001БzБFБEБEБEВ╚Б[ВёВ╞В╚ВнГДГoВ╗ВдВ╛В╚БEБEБE'
  158.         DB      "%001:  I don't know, it's pretty strange..."
  159.         DB      NEXT
  160. ;       DB      'БyФ№ППБzБFМйВ╚ВйВ┴В╜ОЦВ╔В╡В╜Х√ВкВвВвВ╠ВйВ╚БEБEБEБH'
  161.         DB      "Mio:  Maybe we should pretend we never found it...?"
  162.         DB      NEXT
  163. ;       DB      'Бy%001БzБFВ╗ВдВ╡ВцВдБB'
  164.         DB      "%001:  Good idea."
  165.         DB      NEXT
  166. ;       DB      'Й┤В═ОшОЖВЁВ╬ВчВ╬ВчВ╔РчР╪В┴В─БAН╗В╔ЦДВ▀В╜БB'
  167.         DB      "I ripped up the letter and buried it in the sand."
  168.         DB      FLG,F_COPYI,2,6
  169.         DW      0000H
  170.  
  171. M9:             ;ШbВ╖Б@Ф№ПП
  172. ;       DB      'БyФ№ППБzБFРцФyБAМуВ┼В╗В╠КLВиЧ┐ЧЭВ╔ОgВ┴В─ВрВвВвБH'
  173.         DB      "Mio:  %001, should I cook the shellfish later?"
  174.         DB      NEXT
  175. ;       DB      'Бy%001БzБFВиБ`БAЧКВ▐ВцБB'
  176.         DB      "%001:  Oh, good idea."
  177.         DB      NEXT
  178. ;       DB      'БyФ№ППБzБFВ▒В╠К╘РTОбМNВ╔БAВиВвВ╡ВвВиЦбСXП`В╠НьВшХ√Л│ВжВ─ВрВчВ┴В╜ВёВ╛БB'
  179.         DB      "I learned this really good miso soup recipe from Shinji"
  180.         DB      CR
  181.         DB      "recently."
  182.         DB      NEXT
  183. ;       DB      'Бy%001БzБFВ╗ВшВсКyВ╡В▌В╛В╚БB',CR,'ВёВ╢ВсБAВ▌ВёВ╚В╠ХкВрКLОцВ┴В─ВйВ╦Б[В╞БB'
  184.         DB      "%001:  Sounds wonderful. But, shouldn't we get enough"
  185.         DB      CR
  186.         DB      "for the others too?"
  187.         DB      FLG,F_COPYI,2,7
  188.         DW      0000H
  189.  
  190. M10:            ;ШbВ╖Б@Ф№ПП
  191. ;       DB      'БyФ№ППБzБFРцФyБIВ┘ВчБAГAГУГВГiГCГgБI'
  192.         DB      "Mio:  %001! Look, an ammonite!"
  193.         DB      NEXT
  194. ;       DB      'Бy%001БzБFВ╗ВёВ╚ФnОнВ╚БEБEБE'
  195.         DB      "%001:  What? Where? What's that?"
  196.         EF_SET 201
  197.         DW      0000H
  198.  
  199. M11:            ;М@Вщ
  200.         DB FLG,F_CALI,100,1
  201.         DB FLG,F_COMPI,101,100,10
  202.         DB FLG,F_JGR,101
  203.         DW M_S4
  204. ;       DB      'Й┤В═МFОшВ┼Н╗ВЁМ@В┴В╜БB'
  205.         DB      "I started digging in the sand with both hands."
  206.         DB      NEXT
  207. ;       DB      'В┤В┴ВнВ┤В┴ВнВ┤В┴ВнБEБEБE'
  208.         DB      "*DIG* *DIG*"
  209.         DB FLG,F_COPYI,255,0
  210.         DB FLG,F_RAND,255,4
  211.         DB FLG,F_JEQ,255
  212.         DW M_S0
  213.         DB FLG,F_CALI,255,-1
  214.         DB FLG,F_JEQ,255
  215.         DW M_S1
  216.         DB FLG,F_CALI,255,-1
  217.         DB FLG,F_JEQ,255
  218.         DW M_S2
  219.         DB FLG,F_CALI,255,-1
  220.         DB FLG,F_JEQ,255
  221.         DW M_S3
  222.         DW      0000H
  223.  
  224. M_S0:
  225.         DB      NEXT
  226. ;       DB      'Бy%001БzБFБEБEБEЙ╜ВрМйВ┬ВйВёВ╦Б[БB'
  227.         DB      "%001:  I'm not finding anything."
  228.         DW      0000H
  229.  
  230. M_S1:
  231.         DB      NEXT
  232. ;       DB      'Бy%001БzБFВиБAГnГ}ГOГКФнМйБI'
  233.         DB      "%001:  Oh, I found a clam!"
  234.         DW      0000H
  235.  
  236. M_S2:
  237.         DB      NEXT
  238. ;       DB      'Бy%001БzБFВиБAГAГTГКФнМйБI'
  239.         DB      "%001:  Oh, I found a goose-neck clam!"
  240.         DW      0000H
  241.  
  242. M_S3:
  243.         DB      NEXT
  244. ;       DB      'Бy%001БzБFВиБAГVГWГ~ФнМйБI'
  245.         DB      "%001:  Oh, I found a 'sazae'!"
  246.         DW      0000H
  247.  
  248. M_S4:
  249.         EF_SET 202
  250.         DW      0000H
  251.  
  252. M_EXIT:
  253.         DB      NEXT
  254. ;       DB      'Бy%001БzБFВ│В─БAВ▒В╠Х╙ИъС╤В═М@ВшВ┬ВнВ╡В╜В╡БAПъПКХ╧ВжВцВдВйБB'
  255.         DB      "%001:  Well, it looks like we've really dug up this place."
  256.         DB      CR
  257.         DB      "We should probably move to another spot."
  258.         DB      NEXT
  259. ;       DB      'БyФ№ППБzБFРцФyБAМ@В┴В╜МКВ═М│В╔Ц▀В╡В─ВвВйВ╚ВлВсКыВ╚ВвВцБB'
  260.         DB      "Mio:  First we have to fill the holes in again, though."
  261.         DB      NEXT
  262. ;       DB      'Бy%001БzБFВёБAВ╗В╛В╚БB'
  263.         DB      "%001:  Yeah, I guess so."
  264.         DB      NEXT
  265. ;       DB      'БEБEБEВ▒ВдВ╡В─Й┤ТBВ═Ч[Х√В▄В┼ТкК▒ОыВшВЁС▒ВпВ╜БB'
  266.         DB      "We kept looking for clams until evening came."
  267.         DB      NEXT
  268.         DB SINARIO,'CS612.OVL',0
  269.         DW      0000H
  270.  
  271.  
  272. end
  273.