HGE引擎专用的积分回收系统脚本

[@main]

#IF
#ACT
MOV S10
MOV S11
MOV S12
MOV S13
MOV S14
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\抽取字符.TXT S10
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\抽取字符.TXT S11
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\抽取字符.TXT S12
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\抽取字符.TXT S13
ENCODETEXT S14 S10 S11 S12 S13
GOTO @提取字符
BREAK

[@提取字符]
#IF
#ACT
MOV S20
MOV S21
MOV S22
MOV S23
MOV S24
MOV S25
MOV S26
MOV S30
MOV S31
MOV S32
MOV S33
MOV S34
MOV S35
MOV S36
MOV S40
MOV S41
MOV S42
MOV S43
MOV S44
MOV S45
MOV S46
MOV S50
MOV S51
MOV S52
MOV S53
MOV S54
MOV S55
MOV S56
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S10)>.TXT S20 1
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S10)>.TXT S21 2
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S10)>.TXT S22 3
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S10)>.TXT S23 4
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S10)>.TXT S24 5
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S10)>.TXT S25 6
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S10)>.TXT S26 7
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S11)>.TXT S30 1
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S11)>.TXT S31 2
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S11)>.TXT S32 3
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S11)>.TXT S33 4
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S11)>.TXT S34 5
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S11)>.TXT S35 6
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S11)>.TXT S36 7
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S12)>.TXT S40 1
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S12)>.TXT S41 2
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S12)>.TXT S42 3
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S12)>.TXT S43 4
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S12)>.TXT S44 5
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S12)>.TXT S45 6
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S12)>.TXT S46 7
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S13)>.TXT S50 1
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S13)>.TXT S51 2
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S13)>.TXT S52 3
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S13)>.TXT S53 4
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S13)>.TXT S54 5
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S13)>.TXT S55 6
GETRANDOMNAME ..\QuestDiary\防脱机功能\防脱机字符\<$STR(S13)>.TXT S56 7
ENCODETEXT S60 S20 S30 S40 S50
ENCODETEXT S61 S21 S31 S41 S51
ENCODETEXT S62 S22 S32 S42 S52
ENCODETEXT S63 S23 S33 S43 S53
ENCODETEXT S64 S24 S34 S44 S54
ENCODETEXT S65 S25 S35 S45 S55
ENCODETEXT S66 S26 S36 S46 S56
#SAY
<$STR(S60)>\<$STR(S61)>\<$STR(S62)>\<$STR(S63)>\<$STR(S64)>\<$STR(S65)>\<$STR(S66)>\ \
　　　　　<请点这里输入上面数字中的绿色数字/@@InPutString70|TITLE=请输入以上4位字符，30秒内不输入自动踢出游戏>\

[@InPutString70]
#IF
EQUAL S70 <$STR(S14)>
#ACT
CLEARDELAYGOTO
GOto @跳转脚本1
#ELSESAY
您输入的验证码是错误的，现在踢出游戏处理。\
请重新登录游戏\
#ELSEACT
KICK 1
BREAK

[@跳转脚本1]
<致命装备       积分        2个/fcolor=244>         <一键回收全部装备/@积分回收> \
<星辰装备       积分        4个/fcolor=244>         <一键回收全部装备/@积分回收> \
<光辉装备       积分        8个/fcolor=244>         <一键回收全部装备/@积分回收> \
<亡灵装备       积分        15个/fcolor=244>         <一键回收全部装备/@积分回收> \

[@积分回收]
#if
checkitem 致命头盔 1
#ACT
TAKE 致命头盔 1
CALCVAR HUMAN 消费积分 + 2
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“致命头盔”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[致命头盔]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 致命面巾 1
#ACT
TAKE 致命面巾 1
CALCVAR HUMAN 消费积分 + 2
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“致命面巾”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[致命面巾]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 致命斗笠 1
#ACT
TAKE 致命斗笠 1
CALCVAR HUMAN 消费积分 + 2
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“致命斗笠”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[致命斗笠]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 致命护腕 1
#ACT
TAKE 致命护腕 1
CALCVAR HUMAN 消费积分 + 2
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“致命手镯”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[致命手镯]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 致命项链 1
#ACT
TAKE 致命项链 1
CALCVAR HUMAN 消费积分 + 2
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“致命项链”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[致命项链]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 星辰头盔 1
#ACT
TAKE 星辰头盔 1
CALCVAR HUMAN 消费积分 + 4
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“星辰头盔”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[星辰头盔]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 星辰面巾 1
#ACT
TAKE 星辰面巾 1
CALCVAR HUMAN 消费积分 + 4
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“星辰面巾”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[星辰面巾]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 星辰斗笠 1
#ACT
TAKE 星辰斗笠 1
CALCVAR HUMAN 消费积分 + 4
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“星辰斗笠”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[星辰斗笠]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 星辰护腕 1
#ACT
TAKE 星辰护腕 1
CALCVAR HUMAN 消费积分 + 4
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“星辰手镯”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[星辰手镯]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 星辰项链 1
#ACT
TAKE 星辰项链 1
CALCVAR HUMAN 消费积分 + 4
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“星辰项链”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[星辰项链]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 光辉头盔 1
#ACT
TAKE 光辉头盔 1
CALCVAR HUMAN 消费积分 + 8
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“光辉头盔”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[光辉头盔]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 光辉面巾 1
#ACT
TAKE 光辉面巾 1
CALCVAR HUMAN 消费积分 + 8
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“光辉面巾”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[光辉面巾]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 光辉斗笠 1
#ACT
TAKE 光辉斗笠 1
CALCVAR HUMAN 消费积分 + 8
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“光辉斗笠”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[光辉斗笠]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 光辉护腕 1
#ACT
TAKE 光辉护腕 1
CALCVAR HUMAN 消费积分 + 8
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“光辉手镯”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[光辉手镯]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 光辉项链 1
#ACT
TAKE 光辉项链 1
CALCVAR HUMAN 消费积分 + 8
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“光辉项链”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[光辉项链]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收






#if
checkitem 亡灵头盔 1
#ACT
TAKE 亡灵头盔 1
CALCVAR HUMAN 消费积分 + 15
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“亡灵头盔”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[亡灵头盔]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 亡灵面巾 1
#ACT
TAKE 亡灵面巾 1
CALCVAR HUMAN 消费积分 + 15
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“亡灵面巾”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[亡灵面巾]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 亡灵斗笠 1
#ACT
TAKE 亡灵斗笠 1
CALCVAR HUMAN 消费积分 + 15
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“亡灵斗笠”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[亡灵斗笠]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 亡灵护腕 1
#ACT
TAKE 亡灵护腕 1
CALCVAR HUMAN 消费积分 + 15
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“亡灵手镯”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[亡灵手镯]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收


#if
checkitem 亡灵项链 1
#ACT
TAKE 亡灵项链 1
CALCVAR HUMAN 消费积分 + 15
SAVEVAR HUMAN 消费积分 ..\QuestDiary\元宝充值\消费积分Save.txt
SENDMSG 7 く回收：你回收了“亡灵项链”换取了积分2个.
sendcentermsg 250 251 [<$USERNAME>]回收[亡灵项链]获得充值积分2个! 1 1 3
DELAYGOTO 2 @积分回收

强烈支持楼主ing……

楼主加油，我们都看好你哦。

真是被感动的痛哭流涕……

激动人心，无法言表！

强烈支持楼主ing……

太生气了，无法HOLD啦 >_<......

感恩无私的分享与奉献 :)

感恩无私的分享与奉献 :)

淡定，淡定，淡定……