;;ѧԺ  college.e-168.cn 2005-4-11
[@ָ]
{
#IF
#ACT
   LOADVALUE D1 "QuestDiary\\\ݿ.txt" [%A1] []
   #SAY
ĿǰĻֵΪ {FCOLOR/10}<$OUTPUT(D1)>{FCOLOR/12} .\
Իָɾ.\
ָһҪ50.
ҪָҪָ.\
\
<뱻ɾ/@@shuru>\
< /@exit>\

[@@shuru]
#ACT
mov  A4  %INPUTSTR

#IF
#ACT
   FormatStr "FLD_CHARACTER='%s'" %A4
   ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_DELETED"  [@shanchu]

[@shanchu()]
#ACT
   mov    A1      %ARG(1)
   mov    A2      %ARG(2)
   goto @quedingmzi

[@quedingmzi]
#IF
   equal  A1 ""
#SAY
޴ˣȷ.\\
< /@ָ>\
< /@exit>\
#IF
   equal  A1 %A4
   equal  A2 "0"

#SAY
 {FCOLOR/10}<$OUTPUT(A4)>{FCOLOR/12} ûɾ.\\
< /@ָ>\
< /@exit>\
#IF
   equal  A1 %A4
   equal  A2 "1"
#SAY
ĿǰĻֵΪ {FCOLOR/10}<$OUTPUT(D1)>{FCOLOR/12} .\
 {FCOLOR/10}<$OUTPUT(A4)>{FCOLOR/12} ɾˣȷҪָ\\
<ָ/@hueifurw>\
< /@exit>\

[@hueifurw]
#SAY
ĿǰĻֵΪ {FCOLOR/10}<$OUTPUT(D1)>{FCOLOR/12} .\
һIDܴ4.ȷпλ?\
<ȷ/@hueifurenwu>\

[@hueifurenwu]
#IF
large  D1 49
#ACT
   dec D1 50
   SaveValue "QuestDiary\\\ݿ.txt" [%A1] [] %D1
goto @hueifurenwu+

#ELSESAY
Ļֲ.޷ִлָĹ.\
<ֵ˵/@helpjf1+>\
< /@exit>\

[@hueifurenwu+]
#IF
#ACT
   FormatStr "FLD_CHARACTER='%s'" %A4
   mov   A8     %A9
   mov   A3      0
   FormatStr "FLD_DELETED='%s'" %A3
   UPDATEVALUESQL "TBL_CHARACTER" %A8 %A9
#SAY
 {FCOLOR/1}<$OUTPUT(A4)>{FCOLOR/12} ɹָ.\\
ĿǰĻֵΪ {FCOLOR/10}<$OUTPUT(D1)>{FCOLOR/12} .\
< /@EXIT>\


}

;;ѧԺ  college.e-168.cn 2005-4-11




