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

) J, W5 l  J, k; T
(@@InPutString @@InPutInteger)
[@main]
: K8 w$ g. ?. e# a6 M2 V( s& a#IF
#Act
: c" j/ T6 U, qCloseBigDialogBox
' D+ e% f4 U. [% b#say
\ \
. }  K3 |. O9 t/ L) M) x$ M
<大型公益/SCOLOR=254><≡≡【火龙微变】≡≡/SCOLOR=253><独家全新版本/SCOLOR=254>\
<---------------------------------------------------------/SCOLOR=9>\
<新人加入官方QQ商贸群平台.即可兑换超级大礼包!方便快捷/SCOLOR=154>\
<获取方法:兑换验证码：888888 输入即可兑换/SCOLOR=70>\
4 x0 b! d: s2 o9 X<---------------------------------------------------------/SCOLOR=9>\
<免费领取QQ礼包:/SCOLOR=250><100灵符/SCOLOR=243>        <点击兑换QQ群礼包/@@InPutString22>                   \
7 W6 A8 U0 l, V) X/ t7 Q% q! H( J
: ~) O; _5 X* t. K0 ?) W3 b% T
[@InPutString22]
#if
CHECKBAGSIZE  1
CHECKTEXTLIST ..\QuestDiary\数据文件\兑换码.txt <$STR(S6)>
#ACT
goto @奖励
& l7 s0 y- D% M$ R' l#elseact
MESSAGEBOX 提示:\　\1.QQ群兑换码错误,需要输入群号码哦!!!
7 F( \/ [) m- h2 g7 Ggoto @main
break
. N) C: A3 R% p! `: C3 i
# l3 {+ C2 i- ?
[@奖励]
#If
CheckTextList ..\QuestDiary\数据文件\玩家地址.txt <$IPADDR>
#Act
#SAY
<……………………………………………………………………………/SCOLOR=70>\
5 s) q! b) S8 X<  亲爱的玩家：/SCOLOR=253> 【<$USERNAME>】  < 欢迎您来到XX传奇/SCOLOR=253> \
<……………………………………………………………………………/SCOLOR=70>\
<您的IP地址重复<:已领过，无法重复领取/SCOLOR=6>\
) A1 r; c0 {0 c. @; X/ {5 ]1 q1 V<您的IP地址重复<:已领过，无法重复领取/SCOLOR=6>\
2 m) n7 N8 O+ T" r. I  _' }5 v<您的IP地址重复<:已领过，无法重复领取/SCOLOR=6>\
<……………………………………………………………………………/SCOLOR=70>\


4 X; C: R$ d6 j3 U$ C#ELSEACT
% {. W. n# g, ^$ v; j' i2 |1 BGOTO @开始

  _) a5 u  a  T. E6 y" _# V+ S8 A- k
0 s8 k( ]$ j8 J3 [! O" V1 X[@开始]
! |3 T& w0 K, P" D& Q! `) W% C$ ?#iF
. M( x- V* V; ~4 z" G5 j- s; t) K2 Pcheck [235] 1
& e, l% r! b2 x8 n- Y- n#ACT
#SAY
<……………………………………………………………………………/SCOLOR=70>\
<  亲爱的玩家：/SCOLOR=253> 【<$USERNAME>】    < 欢迎您来到XX传奇/SCOLOR=253> \
4 j# d4 G" c# q<……………………………………………………………………………/SCOLOR=70>\
- s( c* e$ [! A* [. J( n<您的人物【<$USERNAME>】<:已领过，无法重复领取/SCOLOR=6>\
" Z6 V! J. w8 V" K' o<您的人物【<$USERNAME>】<:已领过，无法重复领取/SCOLOR=6>\
<您的人物【<$USERNAME>】<:已领过，无法重复领取/SCOLOR=6>\  
, x8 X# `/ a4 Q, Z<……………………………………………………………………………/SCOLOR=70>\
#ELSEACT
GOTO @开始1


: @1 K: h' i" n  ^[@开始1]
#IF
#ACT
5 c4 c" w  |8 h8 ^- n* d0 c3 N* P0 BSET [235] 1
7 F! }% N% D3 W  Z" t% ?give 100灵符 1
0 ]3 b5 s7 ~* u0 A  [SENDMSG 1 ★玩家【<$USERNAME>】已经领取礼包，同IP无法再次领取！！！
  G" X$ W" }6 B! \0 _0 G$ ~( hAddTextList  ..\QuestDiary\数据文件\玩家地址.txt  <$IPADDR>
AddTextList  ..\QuestDiary\数据文件\玩家数据.txt  <$IPADDR>┊<$USERNAME>┊
9 J- a. H/ i! I* r3 J, E/ `5 L* }