?login_element?

Subversion Repositories NedoOS

Rev

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

  1. ;       В│ВнВчВ╠ЛGР▀    FILENAME:CSas#_##(CS+П═+╝┼╪╡ No.(+╗╠▐┼▌╩▐░))
  2. ;               ГVБ[ГУБ@ВUВPВR
  3. ;               МbИ╦Ф№ЧРУ№
  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,      'НlВжВщ',0
  32. VV3:    DB      3,      "THINK",0
  33.  
  34. ;NN1:   DB      1,      'МbИ╦Ф№',0
  35. NN1:    DB      1,      "MEIMI",0
  36.  
  37. ;       Б@Б@Б@ УоОМ Ц╝ОМ ╠╫╕▐ ╥п╛░╝▐
  38. S1:             DW      VV1, NN1,  1, M2                ;МйВщБ@МbИ╦Ф№
  39. S2:             DW      VV2, NN1,  2, M3, M4, M5                ;ШbВ╖Б@МbИ╦Ф№
  40. S3:             DW      VV3, -1,  3, M6         ;НlВжВщ
  41.  
  42.  
  43. ;ГCГjГVГГГЛГБГbГZБ[ГW
  44. M1:
  45.         DB      BGM,9
  46.         BAK_INIT "AB_17_2"
  47.         DB BUF,B_COPY01
  48.         TU_CG "CT08","F","D",30,1
  49.         T_CG "CT03","M",0,0,2
  50. ;       DB      'БyМbИ╦Ф№БzБFВ┐ВхВ┴В╞%001БI'
  51.         DB      "Meimi:  Excuse me, %001!"
  52.         DB      NEXT
  53. ;       DB      'Бy%001БzБFТЖЦьБEБEБEБH'
  54.         DB      "%001:  Meimi...?"
  55.         DW      0000H
  56.  
  57. M2:             ;МйВщБ@МbИ╦Ф№
  58. ;       DB      'ТЖЦьВкЙ╜ВтВчУ{В┴В─ВщБB'
  59.         DB      "Meimi looks mad about something."
  60.         DB      NEXT
  61. ;       DB      'БiБEБEБEЙ┤БAВ╚ВёВйВ╡В╜В╠ВйБHБj'
  62.         DB      "Did I do something wrong?"
  63.         DW      0000H
  64.  
  65. M3:             ;ШbВ╖Б@МbИ╦Ф№
  66. ;       DB      'Бy%001БzБFВ╟Б[В╡В╜Х|ВвКчВ╡В─БB'
  67.         DB      "%001:  Why are you looking at me like that?"
  68.         DB      NEXT
  69. ;       DB      'БyМbИ╦Ф№БzБFВаВёВ╜БAИъС╠В╟Б[ВфБ[В┬ВрВшБIБH'
  70.         DB      "Meimi:  What do you think you're doing?"
  71.         DB      NEXT
  72. ;       DB      'Бy%001БzБFВ╛ВйВчЙ╜ВкБH'
  73.         DB      "%001:  ....?? I'm talking to Mio, what else?"
  74.         DB      NEXT
  75. ;       DB      'БyМbИ╦Ф№БzБFБEБEБEБEБEБEБEБEБEБEБEБE'
  76.         DB      "Meimi:  ....................."
  77.         DB      FLG,F_COPYI,2,1
  78.         DW      0000H
  79.  
  80. M4:             ;ШbВ╖Б@МbИ╦Ф№
  81. ;       DB      'Бy%001БzБFЙ┤БAЙ╜ВйВ╡В╜ВйБEБEБEБH'
  82.         DB      "%001:  Did I do something wrong....?"
  83.         DB      NEXT
  84. ;       DB      'БyМbИ╦Ф№БzБFБEБEБEБEБEБE'
  85.         DB      "Meimi:  ........................."
  86.         EF_SET 101
  87.         DW      0000H
  88.  
  89. M5:             ;ШbВ╖Б@МbИ╦Ф№
  90.         K_CG "CT08","I",30,3
  91.         DB ANI,A_ON,2
  92. ;       DB      'БyМbИ╦Ф№БzБFБEБEБEБEБEБEБEБEБEВ╗ВыВ╗ВыЧ[РHВ╠ОЮК╘ВцБB'
  93.         DB      "Meimi:  ...Anyway, it's almost dinnertime."
  94.         DB      NEXT
  95. ;       DB      'Бy%001БzБFВжБAВрВдВ╗ВёВ╚ОЮК╘БH'
  96.         DB      "%001:  What, already?"
  97.         DB      NEXT
  98. ;       DB      'Бy%001БzБFВэВйВ┴В╜БBНsВ▒ВдБAФ№ППВ┐ВсВёБB'
  99.         DB      "%001:  All right. Well, let's go, Mio!"
  100.         DB      NEXT
  101. ;       DB      'БyФ№ППБzБFВдБAВдВёБI'
  102.         DB      "Mio:  Y- yes!"
  103.         DB      NEXT
  104. ;       DB      'Бy%001БzБFИлГBВ╚БAТЖЦьБBВэВ┤ВэВ┤М─В╤В╔ЧИВ─ВрВчВ┴В─БB'
  105.         DB      "%001:  Sorry, Meimi, that you had to come all the way to"
  106.         DB      CR
  107.         DB      "call us."
  108.         DB      NEXT
  109. ;       DB      'БyМbИ╦Ф№БzБFВ╗ВъВ╢ВсБEБEБEВаВ╜В╡БAЧpОЦВкВаВщВйВчБB'
  110.         DB      "Meimi:  Well, nevermind."
  111.         DB      NEXT
  112.         DB BUF,B_COPY01
  113.         T_CG "CT03","M",0,0,2
  114. ;       DB      'БEБEБEТЖЦьВ═В╖В╜В╖В╜В╞ХрВвВ─ВвВ┴В─В╡В▄В┴В╜БB'
  115.         DB      "Meimi walked off briskly."
  116.         DB      NEXT
  117. ;       DB      'Бy%001БzБFГNГЙГXИ╧ИїВ┴В─СхХ╧В╚ВёВ╛В╚БEБEБEБB'
  118.         DB      "%001:  Wow, it must be hard to be class chairperson."
  119.         DB      NEXT
  120. ;       DB      'БyФ№ППБzБF%001РцФyБAКLОЭВ┴В─ВвВйВ╚ВлВсБB'
  121.         DB      "Mio:  %001, don't forget the clams."
  122.         DB      NEXT
  123. ;       DB      'Бy%001БzБFВаБAЦYВъВ─В╜БB'
  124.         DB      "%001:  Oh, whoops."
  125.         DB      NEXT
  126.         DB SINARIO,'CS614.OVL',0
  127.         DW      0000H
  128.  
  129. M6:             ;НlВжВщ
  130. ;       DB      'БiТЖЦьВ╠ВтВ┬БAЙ╜У{В┴В─ВёВ╛БHБj'
  131.         DB      "I wonder why Meimi's mad?"
  132.         DB      NEXT
  133. ;       DB      'БiНlВжВ─ВрХкВйВчВёБBТ╝Р┌Х╖ВвВ╜Х√ВкСБВвБBБj'
  134.         DB      "I have no idea. I should probably just ask."
  135.         EF_SET 102
  136.         DW      0000H
  137.  
  138. M_EXIT:
  139.         DB FLG,F_AND,255,101,102
  140.         DB FLG,F_EXIT,255
  141.         DB FLG,F_COPYI,2,2      ;ШbВ╖Б@МbИ╦Ф№ВR
  142.         DW      0000H
  143.  
  144. end
  145.