[@main]

简单的宣传码脚本，使用宣传码来兑换你设置的奖励。\

这里的宣传码使用的是14位字符串\

<兑换/@@InPutString22>\

[@InPutString22]

#if

CheckStringlength <$STR(S22)> = 14

#act

#elseact

messagebox 你输入的宣传码长度不正确！！

break

#if

CHECKTEXTLIST ..\QuestDiary\宣传码.txt <$STR(S22)>

#act

MOV S$宣传码 正确

#ELSEACT

MESSAGEBOX 对不起，您输入的宣传码不正确！！

break

#if

EQUAL S$宣传码 正确

#ACT

DELTEXTLIST ..\QuestDiary\宣传码.txt <$STR(S22)>

GIVE 屠龙 1

GAMEGOLD + 10000

messagebox 恭喜你，兑换成功！！

break