GOM引擎每个IP地址限制领取一次的QQ大礼包脚本

& u! e. X0 }: Y3 }& |. a
2 S' p& }. `- S  n: {
5 c% U/ M7 I- C8 y0 h. M(@@InPutString @@InPutInteger)
[@main]
7 ?8 z& B# f! u: P& L9 }#IF
. W9 ]) e3 L% r#Act
9 p* H" T& v' [( A  K, h0 `6 F7 `CloseBigDialogBox
  l) X0 E, p- F! G#say
\ \
- u( u" \# R& i1 w9 C
$ K6 a. w, h" n, m0 N: o' |<大型公益/SCOLOR=254><≡≡【火龙微变】≡≡/SCOLOR=253><独家全新版本/SCOLOR=254>\
$ W& @! f5 P+ y& t" l& S; R<---------------------------------------------------------/SCOLOR=9>\
<新人加入官方QQ商贸群平台.即可兑换超级大礼包!方便快捷/SCOLOR=154>\
<获取方法:兑换验证码：888888 输入即可兑换/SCOLOR=70>\
9 Y( m/ g- v3 n$ Q<---------------------------------------------------------/SCOLOR=9>\
<免费领取QQ礼包:/SCOLOR=250><100灵符/SCOLOR=243>        <点击兑换QQ群礼包/@@InPutString22>                   \


[@InPutString22]
#if
CHECKBAGSIZE  1
CHECKTEXTLIST ..\QuestDiary\数据文件\兑换码.txt <$STR(S6)>
#ACT
goto @奖励
#elseact
  n- @9 t# Z4 Y9 hMESSAGEBOX 提示:\　\1.QQ群兑换码错误,需要输入群号码哦!!!
; W- n* a7 D/ k0 l. S  \goto @main
break


: A) @8 J8 A7 u% X. |[@奖励]
#If
# k7 C7 N: z# ECheckTextList ..\QuestDiary\数据文件\玩家地址.txt <$IPADDR>
& F" n) A, x; O; v5 [#Act
2 Z# b5 f, q3 I* Y" L5 x#SAY
& q- w; E) f9 f8 @# R; s( C: @<……………………………………………………………………………/SCOLOR=70>\
; ^" a, [5 e6 ~<  亲爱的玩家：/SCOLOR=253> 【<$USERNAME>】  < 欢迎您来到XX传奇/SCOLOR=253> \
<……………………………………………………………………………/SCOLOR=70>\
<您的IP地址重复<:已领过，无法重复领取/SCOLOR=6>\
<您的IP地址重复<:已领过，无法重复领取/SCOLOR=6>\
<您的IP地址重复<:已领过，无法重复领取/SCOLOR=6>\
<……………………………………………………………………………/SCOLOR=70>\
' F( A& n4 H. p9 A5 Z6 {

6 J- ~8 N  E5 T#ELSEACT
; `5 p/ U7 R( I5 a# `( XGOTO @开始
8 p+ ^4 O0 A4 b) N- y
; b0 y) g- e* C
# i4 U9 M% `( a, B: i& L  k  [" Q! x[@开始]
#iF
check [235] 1
( s! H2 |8 _0 Q3 N9 u- J. o* y$ T#ACT
8 y0 M" }& t0 P7 q5 U- A) ~% u7 \#SAY
% N& |$ z2 o+ `8 C<……………………………………………………………………………/SCOLOR=70>\
" |1 s% x5 j5 F<  亲爱的玩家：/SCOLOR=253> 【<$USERNAME>】    < 欢迎您来到XX传奇/SCOLOR=253> \
<……………………………………………………………………………/SCOLOR=70>\
<您的人物【<$USERNAME>】<:已领过，无法重复领取/SCOLOR=6>\
<您的人物【<$USERNAME>】<:已领过，无法重复领取/SCOLOR=6>\
<您的人物【<$USERNAME>】<:已领过，无法重复领取/SCOLOR=6>\  
<……………………………………………………………………………/SCOLOR=70>\
#ELSEACT
GOTO @开始1
2 Q: w, F4 u9 p

[@开始1]
#IF
1 R0 W4 S+ s; D! J" E6 Q4 T#ACT
7 a* s# x. [% q# `5 P6 P, G. ASET [235] 1
: k# z! j% ^' m6 ^- j* a% Kgive 100灵符 1
2 \' e3 f% r1 K0 [SENDMSG 1 ★玩家【<$USERNAME>】已经领取礼包，同IP无法再次领取！！！
AddTextList  ..\QuestDiary\数据文件\玩家地址.txt  <$IPADDR>
AddTextList  ..\QuestDiary\数据文件\玩家数据.txt  <$IPADDR>┊<$USERNAME>┊
; w; P0 G" c( h/ g. E: Z
9 c) j7 T/ H5 C% ^3 h) c3 i0 w) c