Subversion Repositories NedoOS

;       В│ВнВчВ╠ЛGР▀      FILENAME:CSas#_##(CS+П═+╝┼╪╡ No.(+╗╠▐┼▌╩▐░))
;               ГVБ[ГУБ@ВUВPВP
;               ФjВъОPУБПMБ@ТкК▒ОыВш

        INCLUDE SUPER_S.INC

START:
        DW      SCTBL,MSGTBL,COMTBL,VNTBL,ENDTBL
SCTBL:
        DW      S1, S2, S3
MSGTBL:
        DW      M1
COMTBL:
        DW      CM1, CM2, CM3
VNTBL:
        DW      V_FNAME,N_FNAME
ENDTBL:

        INCLUDE "V_NAME00.INC"                  ; 0=NoCommand , 1-49=NormalCommand
        INCLUDE "N_NAME00.INC"                  ; 50-99=HseenCommand

;       Б@Б@Б@ УоОМБ@Б@Ц╝ОММQ
CM1:    DW      VV1,    NN1,-1
CM2:    DW      VV2,    NN1,-1
CM3:    DW      VV3,    -1

;VV1:   DB      1,      'МйВщ',0
VV1:    DB      1,      "LOOK",0
;VV2:   DB      2,      'ШbВ╖',0
VV2:    DB      2,      "TALK",0
;VV3:   DB      3,      'М@Вщ',0
VV3:    DB      3,      "DIG",0

;NN1:   DB      1,      'Ф№ПП',0
NN1:    DB      1,      "MIO",0

;       Б@Б@Б@ УоОМ Ц╝ОМ ╠╫╕▐ ╥п╛░╝▐
S1:             DW      VV1, NN1,  1, M2                ;МйВщБ@Ф№ПП
S2:             DW      VV2, NN1,  2, M3, M4, M5, M6, M7, M8, M9, M10           ;ШbВ╖Б@Ф№ПП
S3:             DW      VV3, -1,  3, M11                ;М@Вщ


;ГCГjГVГГГЛГБГbГZБ[ГW
M1:
        DB      BGM,19
        BAK_INIT "AB_17_1"
        DB BUF,B_COPY01
        T_CG "CT03","M",0,15,1
;       DB      'Й┤ТBВ═Й═М√В╠Л▀ВнВ╠К▒КГВ╔ЧИВ╜БB'
        DB      "We came to the flat area by the mouth of the river."
        DB FLG,F_COPYI,100,0
        DW      0000H

M2:             ;МйВщБ@Ф№ПП
;       DB      'ВлВъВвВ╚КLКkВЁМйВ┬ВпВ─ПWВ▀В─ВщВцВдВ╛БB'
        DB      "Looks like we could find lots of pretty shells here."
        DW      0000H

M3:             ;ШbВ╖Б@Ф№ПП
;       DB      'Бy%001БzБFВ╚ВаБAГAГПГrВ╞ВйГTГUГGВ┴В─В╟В╠ВнВчВвМ@ВъВ╬ПoВ─ВнВщВёВ╛БH'
        DB      "%001:  Can we find some abalone and conch?"
        DB      NEXT
;       DB      'БyФ№ППБzБFВаБ[ВфБ[КLВ═БAН╗В╔В═ВрВоВчВ╚ВвВёВ╢ВсВ╚ВвВйВ╚ВЯБEБEБEБB'
        DB      "Mio:  I don't think they burrow in the sand..."
        DB      NEXT
;       DB      'Бy%001БzБFВ╗ВйБEБEБEОcФOБB'
        DB      "%001:  Really? That's too bad."
        DB      FLG,F_COPYI,2,1
        DW      0000H

M4:             ;ШbВ╖Б@Ф№ПП
;       DB      'Бy%001БzБFБEБEБEГJГLВ╞ВйГzГ^ГeВ═БH'
        DB      "%001:  What about oysters and scallops?"
        DB      NEXT
;       DB      'БyФ№ППБzБFКCВ╔РЎВчВ╚ВвВ╞БAМйВ┬ВйВчВ╚ВвВцБB'
        DB      "Mio:  We won't find them unless we wade in the water."
        DB      NEXT
;       DB      'Бy%001БzБFБEБEБEБEБEБEВ┐ВеБB'
        DB      "%001:  ....Damn."
        DB      FLG,F_COPYI,2,2
        DW      0000H

M5:             ;ШbВ╖Б@Ф№ПП
;       DB      'БyФ№ППБzБFРцФyБAВ▒ВъВ╚ВёВ─ВвВдКLВ╠КkБH'
        DB      "Mio:  %001, what do you call this shell?"
        DB      NEXT
;       DB      'Бy%001БzБFВ│ВЯБBРVУбВ│ВёВ╚ВчТmВ┴В─ВщВёВ╢ВсВ╦Б[ВйБH'
        DB      "%001:  Hmm, Kiyomi would probably know."
        DB      NEXT
;       DB      'БyФ№ППБzБFБEБEБEР┤Ф№РцФyБH'
        DB      "Mio:  Kiyomi?"
        DB      NEXT
;       DB      'Бy%001БzБFНЁУ·УёРlВ┼УЗВ╔НsВ┴В╜ОЮБAВвВыВвВыЛ│ВжВчВъВ╜ВйВчВ╚БB'
        DB      "%001:  When we went to the island yesterday, she taught"
        DB      CR
        DB      "me a lot of about the ocean."
        DB      NEXT
;       DB      'БyФ№ППБzБFБEБEБEВ╙ВгВёБB'
        DB      "Mio:  Oh."
        DB      FLG,F_COPYI,2,3
        DW      0000H

M6:             ;ШbВ╖Б@Ф№ПП
;       DB      'Бy%001БzБFВ╗Б[ВвВтБAНбУ·В═МйК|ВпВ╦Б[В╚БAРVУбВ│ВёБB',CR,'Ф№ППВ┐ВсВёБAТmВчВ╦Б[ВйБH'
        DB      "%001:  I haven't seen Kiyomi today. Have you, Mio?"
        DB      NEXT
;       DB      'БyФ№ППБzБFБEБEБEВэВйВёВ╚ВвБB'
        DB      "Mio:  I don't know."
        DB      FLG,F_COPYI,2,4
        DW      0000H

M7:             ;ШbВ╖Б@Ф№ПП
;       DB      'БyФ№ППБzБFВаБIРцФyБAВ┘ВчБAНўКLБI'
        DB      "Mio:  Oh! %001, look, a cherry shell."
        DB      NEXT
;       DB      'Бy%001БzБFВ╗ВъВ┴В─РHВжВщВ╠ВйБH'
        DB      "%001:  Can you eat it?"
        DB      NEXT
;       DB      'БyФ№ППБzБFБEБEБEКkВ╛ВпВ╛ВйВчРHВ╫ВчВъВ╚ВвВцБB'
        DB      "Mio:  It's just the shell, so you can't eat it."
        DB      NEXT
;       DB      'Бy%001БzБFВ╓ВеБEБEБEГLГМГCВ╛В╚БAВ╗В╠КLБB',CR,'Ф№ППВ┐ВсВёВ╠ОwВ╠Т▄В▌В╜ВвВ╚РFВ╛БB'
        DB      "%001:  Wow...it's pretty, isn't it. It looks the same"
        DB      CR
        DB      "color as your fingernails."
        DB      NEXT
;       DB      'БyФ№ППБzБFВжБEБEБE'
        DB      "Mio:  Oh."
        DB      NEXT
        K_CG "CT03","R",15,2
;       DB      'В▒В▒ВыВ╚В╡БAФ№ППВ┐ВсВёВ╠КчВкР╘ВнВ╚В┴В╜ВцВдВ╚ЛCВкВ╖ВщБB'
        DB      "I noticed that Mio had turned as red as a beet."
        DB      NEXT
;       DB      'БiУ·ВтВпВйВ╚БHБj'
        DB      "She must be sunburned."
        DB      FLG,F_COPYI,2,5
        DW      0000H

M8:             ;ШbВ╖Б@Ф№ПП
;       DB      'БyФ№ППБzБFВаВъБEБEБEВ▒ВёВ╚ПКВ╔ГrГУВкВаВщБB'
        DB      "Mio:  That's odd. There's a bottle here."
        DB      NEXT
;       DB      'Бy%001БzБFКCВ╔ГSГ~ВЁО╠В─В┐ВсВвВпВ╦Б[ВцВ╚БB'
        DB      "%001:  People shouldn't throw garbage in the ocean."
        DB      NEXT
;       DB      'БyФ№ППБzБFВдВдВёБAТЖВ╔ОшОЖВкУ№В┴В─ВщБB'
        DB      "Mio:  Yes, but there's a letter in it."
        DB      NEXT
;       DB      'Бy%001БzБFГzГУГgБHВ╟ВъВ╟ВъБEБEБE'
        DB      "%001:  Really? Let me see it."
        DB      NEXT
;       DB      'БyФ№ППБzБFВжВ┴В╞БEБEБE',CR,'В▒ВъБAГНГVГAМъВйВ╚БHЙ╜ВйБAУЗВ╠ТnР}В▌В╜ВвВ╚КGВкХ`ВвВ─ВаВщВцБEБEБEБB'
        DB      "Mio:  Hmm, is this Russian maybe? It looks like someone"
        DB      CR
        DB      "drew a map of an island..."
        DB      NEXT
;       DB      'Бy%001БzБFБEБEБEВ╚Б[ВёВ╞В╚ВнГДГoВ╗ВдВ╛В╚БEБEБE'
        DB      "%001:  I don't know, it's pretty strange..."
        DB      NEXT
;       DB      'БyФ№ППБzБFМйВ╚ВйВ┴В╜ОЦВ╔В╡В╜Х√ВкВвВвВ╠ВйВ╚БEБEБEБH'
        DB      "Mio:  Maybe we should pretend we never found it...?"
        DB      NEXT
;       DB      'Бy%001БzБFВ╗ВдВ╡ВцВдБB'
        DB      "%001:  Good idea."
        DB      NEXT
;       DB      'Й┤В═ОшОЖВЁВ╬ВчВ╬ВчВ╔РчР╪В┴В─БAН╗В╔ЦДВ▀В╜БB'
        DB      "I ripped up the letter and buried it in the sand."
        DB      FLG,F_COPYI,2,6
        DW      0000H

M9:             ;ШbВ╖Б@Ф№ПП
;       DB      'БyФ№ППБzБFРцФyБAМуВ┼В╗В╠КLВиЧ┐ЧЭВ╔ОgВ┴В─ВрВвВвБH'
        DB      "Mio:  %001, should I cook the shellfish later?"
        DB      NEXT
;       DB      'Бy%001БzБFВиБ`БAЧКВ▐ВцБB'
        DB      "%001:  Oh, good idea."
        DB      NEXT
;       DB      'БyФ№ППБzБFВ▒В╠К╘РTОбМNВ╔БAВиВвВ╡ВвВиЦбСXП`В╠НьВшХ√Л│ВжВ─ВрВчВ┴В╜ВёВ╛БB'
        DB      "I learned this really good miso soup recipe from Shinji"
        DB      CR
        DB      "recently."
        DB      NEXT
;       DB      'Бy%001БzБFВ╗ВшВсКyВ╡В▌В╛В╚БB',CR,'ВёВ╢ВсБAВ▌ВёВ╚В╠ХкВрКLОцВ┴В─ВйВ╦Б[В╞БB'
        DB      "%001:  Sounds wonderful. But, shouldn't we get enough"
        DB      CR
        DB      "for the others too?"
        DB      FLG,F_COPYI,2,7
        DW      0000H

M10:            ;ШbВ╖Б@Ф№ПП
;       DB      'БyФ№ППБzБFРцФyБIВ┘ВчБAГAГУГВГiГCГgБI'
        DB      "Mio:  %001! Look, an ammonite!"
        DB      NEXT
;       DB      'Бy%001БzБFВ╗ВёВ╚ФnОнВ╚БEБEБE'
        DB      "%001:  What? Where? What's that?"
        EF_SET 201
        DW      0000H

M11:            ;М@Вщ
        DB FLG,F_CALI,100,1
        DB FLG,F_COMPI,101,100,10
        DB FLG,F_JGR,101
        DW M_S4
;       DB      'Й┤В═МFОшВ┼Н╗ВЁМ@В┴В╜БB'
        DB      "I started digging in the sand with both hands."
        DB      NEXT
;       DB      'В┤В┴ВнВ┤В┴ВнВ┤В┴ВнБEБEБE'
        DB      "*DIG* *DIG*"
        DB FLG,F_COPYI,255,0
        DB FLG,F_RAND,255,4
        DB FLG,F_JEQ,255
        DW M_S0
        DB FLG,F_CALI,255,-1
        DB FLG,F_JEQ,255
        DW M_S1
        DB FLG,F_CALI,255,-1
        DB FLG,F_JEQ,255
        DW M_S2
        DB FLG,F_CALI,255,-1
        DB FLG,F_JEQ,255
        DW M_S3
        DW      0000H

M_S0:
        DB      NEXT
;       DB      'Бy%001БzБFБEБEБEЙ╜ВрМйВ┬ВйВёВ╦Б[БB'
        DB      "%001:  I'm not finding anything."
        DW      0000H

M_S1:
        DB      NEXT
;       DB      'Бy%001БzБFВиБAГnГ}ГOГКФнМйБI'
        DB      "%001:  Oh, I found a clam!"
        DW      0000H

M_S2:
        DB      NEXT
;       DB      'Бy%001БzБFВиБAГAГTГКФнМйБI'
        DB      "%001:  Oh, I found a goose-neck clam!"
        DW      0000H

M_S3:
        DB      NEXT
;       DB      'Бy%001БzБFВиБAГVГWГ~ФнМйБI'
        DB      "%001:  Oh, I found a 'sazae'!"
        DW      0000H

M_S4:
        EF_SET 202
        DW      0000H

M_EXIT:
        DB      NEXT
;       DB      'Бy%001БzБFВ│В─БAВ▒В╠Х╙ИъС╤В═М@ВшВ┬ВнВ╡В╜В╡БAПъПКХ╧ВжВцВдВйБB'
        DB      "%001:  Well, it looks like we've really dug up this place."
        DB      CR
        DB      "We should probably move to another spot."
        DB      NEXT
;       DB      'БyФ№ППБzБFРцФyБAМ@В┴В╜МКВ═М│В╔Ц▀В╡В─ВвВйВ╚ВлВсКыВ╚ВвВцБB'
        DB      "Mio:  First we have to fill the holes in again, though."
        DB      NEXT
;       DB      'Бy%001БzБFВёБAВ╗В╛В╚БB'
        DB      "%001:  Yeah, I guess so."
        DB      NEXT
;       DB      'БEБEБEВ▒ВдВ╡В─Й┤ТBВ═Ч[Х√В▄В┼ТкК▒ОыВшВЁС▒ВпВ╜БB'
        DB      "We kept looking for clams until evening came."
        DB      NEXT
        DB SINARIO,'CS612.OVL',0
        DW      0000H


end