[@Ƽ]
{
ãǱƼϷ\
ǵĻͿͨƼ˸һЩ\
ֻ轫()ָҾͿˡ\
ȻȼҪ<$STR(G65)>ſԸƼ˱\
Ƽһõ <$STR(G64)> ҽƼԽõԽࡣ\ \

<ΪƼ/@Ƽ>      <Ƽ˽/@>      <ҵƼһЩ/@@InPutString0>\


[@]
#IF
  CHECKGAMEDIAMOND < 1
#ACT
  MESSAGEBOX ĿǰûгɹƼһˣܻý\ 
  break
#IF
  checknamelist ..\QuestDiary\ļ\Ƽ.txt
#ACT
  MOV N1 <$GAMEDIAMOND>
  MUL N2 N1 G64
#SAY
ĿǰɹƼ<$GAMEDIAMOND> ˣԻã<$STR(N2)> \
ƼԽõĽҲԽ࣬Ŷ~\ \

<Ƽ/@JIANGLI>\ \

</@Ƽ>

[@JIANGLI]
#IF
  CHECKGAMEDIAMOND < 1
#ACT
  MESSAGEBOX ĿǰûгɹƼһˣܻý\ 
  break
#IF
#ACT
  GAMEGOLD + N2
  Gmexecute Ƽ S99 = 0
  SENDMSG 5 ϲ㣡ɹȡƼ˽<$STR(N2)>ңѴ!
  GOTO @Ƽ
  break
  
[@Ƽ]
#IF
  checknamelist ..\QuestDiary\ļ\Ƽ.txt
#ACT
  MESSAGEBOX ѾУ벻Ҫظ룡\ 
  break
#IF
#ACT
  addnamelist ..\QuestDiary\ļ\Ƽ.txt
#SAY
лԱ֧֣ѾΪƼˡ \
ƼԽõĽҲԽ࣬Ŷ~\ \
</@Ƽ>

[@InPutString0]
#IF
  checknamelist ..\QuestDiary\ļ\.txt
#ACT
  MESSAGEBOX ԲѾˣ\ 
  break

#IF
  CHECKLEVELEX < G65
#ACT
  MESSAGEBOX Բȼ<$STR(G65)>
  break
  
#IF
  equal S0 S99
#ACT
  MESSAGEBOX ԲֲԼ
  break

#IF
  CHECKONLINE S0
#ACT
  GOTO @GEITJRJQ
  break
#ELSEACT
  MESSAGEBOX Ƽ<$STR(S0)>ʱߣߺ룡\ 
  break

[@GEITJRJQ]
#IF
  CHECKTEXTLIST S0 ..\QuestDiary\ļ\Ƽ.txt
#ACT
  ADDnamelist ..\QuestDiary\ļ\.txt
  Gmexecute Ƽ S0 + 1
#SAY
лԱ֧֣\
Ƽ˽õ <$STR(G64)> ҡ \ \

</@Ƽ>

#ELSESAY
Բ˲Ƽˣ\ \
</@Ƽ>
}