HCALL用法，修改玩家属性值

meinvwudi

NPC或者QF中可以写上

[@A进入调整界面]
#IF
EQUAL S28 
#ACT
MESSAGEBOX 对不起！您还没有输入玩家名字无法操作。
BREAK

#IF
#ACT
CloseBigDialogBox
GetHumVar S28 <$STR(U26)> S$累计私下发送 0
GetHumVar S28 <$STR(U27)> S$累计私下发送A 0
#SAY
<>  玩 家 名字:<$STR(S28)>   \
<>  玩家等级调整范围<2-70/scolor=250>超过这无法调整\
<>  玩 家 等级:<$STR(N$激情等级玩家A)>           <输入玩家等级/@@InPutInteger17>\
<>  累计发送元宝上限<18000000/scolor=250> 当前玩家领取:<$STR(S$累计私下发送)>\
<>  元 宝 数量:<$STR(N$激情元宝数量)>           <输入元宝数量/@@InPutInteger18>\
<>  累计发送金刚石上限<2400/scolor=250> 当前玩家领取:<$STR(S$累计私下发送A)>\
<>  金刚石数量:<$STR(N$激情金刚石数量)>           <输入金刚石/@@InPutInteger19>\
<>  灵 符 数量:<$STR(N$激情灵符数量)>           <输入灵符数量/@@InPutInteger20>\
<>                                                <确认发送/@A提交发送ACCCC>

[@A提交发送ACCCC]
#IF
EQUAL S28 
#ACT
MESSAGEBOX 对不起!您没有输入对应玩家的名字
BREAK

#IF
CHECKTEXTLIST ..\QuestDiary\激情文件\人员名单.TXT <$STR(S28)>|
#ACT
#ELSEACT
MESSAGEBOX 对不起！您没有提交对应名单。
BREAK

#IF
S28.checkonline
#ACT
MESSAGEBOX <$STR(S28)>
MOV A494 <$STR(S28)>
HCALL <$STR(A494)> @大双发送数据
MOV N17 0
MOV N18 0
MOV N19 0
MOV N20 0
MOV N$激情元宝数量 0
MOV N$激情金刚石数量 0
MOV N$激情灵符数量 0
MOV N$激情等级玩家 0
MOV N$激情等级玩家A 0
DELAYGOTO 6000 @A进入调整界面
#ELSEACT
MESSAGEBOX 对不起！玩家当前不在线。
BREAK

meinvwudi

QM中的调用

[@大双发送数据]
#IF
A494.checkonline
EQUAL A494 <$USERNAME>
#ACT
<$STR(A494)>.CHANGELEVEL = <$STR(G480)>
<$STR(A494)>.GAMEGOLD + <$STR(G479)>
<$STR(A494)>.GAMEDIAMOND + <$STR(G478)>
<$STR(A494)>.GAMEGIRD + <$STR(G477)>
<$STR(A494)>.INC U26 <$STR(G479)>
<$STR(A494)>.INC U27 <$STR(G478)>
<$STR(A494)>.MOV M48 1
AddTextListEx ..\QuestDiary\激情文件\发送名单记录.TXT <$SERVERNAME>|<$STR(A494)>|等级:<$STR(G480)>|元宝:<$STR(G479)>|金刚石:<$STR(G478)>|灵符:<$STR(G477)>|<$DATETIME>
MOV N17 0
MOV N18 0
MOV N19 0
MOV N20 0
MOV N$激情元宝数量 0
MOV N$激情金刚石数量 0
MOV N$激情灵符数量 0
MOV N$激情等级玩家 0
MOV N$激情等级玩家A 0
MOV A494 
MOV G480 0
MOV G479 0
MOV G478 0
MOV G476 0
MOV G477 0
BREAK
#ELSEACT
MESSAGEBOX 对不起！玩家当前不在线。
BREAK