外调命令
[@发射]
{
#IF
#ACT
MOV S20
MOV S21
MOV S22
MOV N20 100
Goto @MAIN_页面
BREAK
[@MAIN_页面]
#IF
#ACT
CloseBigDialogBox
#SAY
\ \ \ \
<输入玩家名字/@@InPutString20(请填写玩家的玩家名字:)>：<$Str(S20)>\ \
<输入装备名字/@@InPutString21(请填写装备的装备名字:)>：<$Str(S21)>\ \
<输入怪物名字/@@InPutString22(请填写正确的怪物名字:)>：<$Str(S22)>\ \
<输入爆出几率/@@InPutInteger20(请填写爆出几率[1%~100%])>：<$Str(N20)>％\ \
<发送装备/@发射装备2> <撤销装备/@撤销装备> <→ 装备撤销只需填写玩家名字即可!/FCOLOR=248>
[@撤销装备]
#IF
EQUAL S20
#Act
MessageBox 提示!~\\请输入要撤销的玩家名字...
Break
#if
CheckTextList ..\QuestDiary\装备发射\发送数据.txt [<$Str(S20)>]
#Act
DelConfigFileSection ..\QuestDiary\装备发射\发送数据.txt <$Str(S20)>
MessageBox 提示!~\\发送装备已撤销...
#ElseAct
MessageBox 提示!~\\此玩家不在发射列表中...
Break
[@发射装备2]
#if
CheckTextList ..\QuestDiary\装备发射\发送数据.txt [<$Str(S20)>]
#Act
MessageBox 提示!~\\此玩家尚有装备发送中...
Break
#or
EQUAL S20
EQUAL S21
EQUAL S22
#Act
MessageBox 提示!~\\请完整填写发送数据...
Break
#if
#Act
AddTextListEx ..\QuestDiary\装备发射\发送数据.txt [<$Str(S20)>] 0
WriteConfigFileItem .\envir\QuestDiary\装备发射\发送数据.txt <$Str(S20)> 装备 <$Str(S21)>
WriteConfigFileItem .\envir\QuestDiary\装备发射\发送数据.txt <$Str(S20)> 怪物 <$Str(S22)>
WriteConfigFileItem .\envir\QuestDiary\装备发射\发送数据.txt <$Str(S20)> 几率 <$Str(N20)>
WriteConfigFileItem .\envir\QuestDiary\装备发射\发送数据.txt <$Str(S20)> 分割 =========================
MessageBox 提示!~\\数据已发送完毕!
Goto @发射
Break
[@InPutString20]
#IF
#ACT
GOTO @MAIN_页面
BREAK
[@InPutString21]
#IF
#ACT
GOTO @MAIN_页面
BREAK
[@InPutString22]
#IF
#ACT
GOTO @MAIN_页面
BREAK
[@InPutInteger20]
#IF
LARGE N20 0
SMALL N20 101
#ACT
GOTO @MAIN_页面
BREAK
}
