发一个霸王 超级夺宝脚本， 大家学习下，告诉你怎么刷

秘密之光

[@超级夺宝配置]
超级夺宝活动，你可以在这里设置定时举行的超级夺宝活动，\
设定好后，活动将在你设置好的时间举行！\\
当前超级夺宝活动状态：<COLOR=red [><$STR(G79)><COLOR=red ]>　(0为关闭,1为开启)\
当前超级夺宝活动奖品：<COLOR=red [><$STR(A76)><COLOR=red ]>　(100%获得)\
当前超级夺宝活动时间：<COLOR=red [><$STR(G75)>月<$STR(G76)>日<$STR(G77)>点<$STR(G78)>分<COLOR=red ]>\\
<设置夺宝奖品/@设置奖品1>　<设置夺宝时间/@设置时间1>　<开启关闭超级夺宝/@开关夺宝1>\
<返回上页/@进入设置管理>

[@设置时间1]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ACT
queryvalue 请输入夺宝活动时间(单位/月，，范围1~12) 2 2 3116

[@getstring3116]
#ACT
Getstring s11
MOV G75 $STR(S11)
SENDMSG 5 夺宝时间设置：<<$STR(G75)>月>
GOTO @设置时间2
break

[@设置时间2]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ACT
queryvalue 请输入夺宝活动时间(单位/日，，范围0~30) 2 2 3117

[@getstring3117]
#ACT
Getstring s11
MOV G76 $STR(S11)
SENDMSG 5 夺宝时间设置：<<$STR(G75)>月<$STR(G76)>日>
GOTO @设置时间3
break

[@设置时间3]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ACT
queryvalue 请输入夺宝活动时间(单位/点，范围0~23) 2 2 3118

[@getstring3118]
#ACT
Getstring s11
MOV G77 $STR(S11)
SENDMSG 5 夺宝时间设置：<<$STR(G75)>月<$STR(G76)>日<$STR(G77)>点>
GOTO @设置时间4
break

[@设置时间4]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ACT
queryvalue 请输入夺宝活动时间(单位/分钟，范围0~59) 2 2 3119

[@getstring3119]
#ACT
Getstring s11
MOV G78 $STR(S11)
MOV G79 1
SENDMSG 5 夺宝时间设置：<<$STR(G75)>月<$STR(G76)>日<$STR(G77)>点<$STR(G78)>分>举行
GOTO @超级夺宝配置
break

[@开关夺宝1]
#IF
LARGE G79 0
#ACT
MOV G75 0
MOV G76 0
MOV G77 0
MOV G78 0
MOV G79 0
MOV A75
SENDMSG 5 你将超级夺宝奖品关闭了...
GOTO @超级夺宝配置
#ELSEACT
MOV G79 1
SENDMSG 5 你将超级夺宝奖品打开了...
GOTO @超级夺宝配置

[@设置奖品1]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ACT
queryvalue 请输入夺宝奖品(需物品数据库内存在的物品名) 2 14 3115

[@getstring3115]
#ACT
Getstring s1
MOV A76 $STR(S1)
SENDMSG 5 你将超级夺宝奖品设置为：<<$STR(A76)>>
GOTO @超级夺宝配置
break

[@输入玩家名字]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ACT
queryvalue 请输入你要操作的玩家名字: 2 30 1188
break

[@getstring1188]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ACT
Getstring S90
SENDMSG 5 (*)你将要操作的玩家名字设置成：<<$STR(S90)>>
GOTO @发送物品18
break

[@发送物品18]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#SAY
在线玩家装备发送、属性修改：\
请先<输入你要操作的玩家名字/@输入玩家名字>：[<$STR(S4)>]\
------------------------------------------------------\
<发送游戏元宝/@操作01>　<发送游戏积分/@操作02>　<发送极品修炼/@操作03>　<发送游戏声望/@操作04>\
<调整玩家等级/@操作05>　<增加玩家经验/@操作06>　<设置攻击倍数/@操作07>　<添加钻石帐号/@操作08>\
----------------------------------------　<定身/@操作22>　　<解除/@操作23>\
<封闭玩家IP段/@操作09>　<关玩家进监狱/@操作10>　<监狱玩家释放/@操作11>　<秒杀/@操作20>　　<重击/@操作21>\
<封闭家族名字/@操作13>　<查询玩家属性/@操作14>　<侦听玩家私聊/@操作12>　<召唤/@操作16>　　<跟踪/@操作17>\
<发送单件装备/@操作18>　<发送玩家套装/@操作19>　<收取玩家装备/@操作15>　<返回/@进入设置管理>
#ACT
MOV S4 <Color=green[]
INC S4 $STR(S90)
INC S4 >
break

;===================================================================================

[@操作01]
#IF
EQUAL S90
#ACT
messagebox 请先输入玩家名字后，再进行操作！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ELSEACT
SENDMSG 5 (*)你不是管理员，没有权利使用此功能！
break
#IF
!CHECKONLINE $STR(S90)
#ACT
SENDMSG 5 <$STR(S90)>　现在不在线，或在其它服务器上，不能进行操作！
break
#ELSEACT
MOV S2 请输入你要发送给[
INC S2 $STR(S90)
INC S2 ]的元宝数量:
queryvalue $STR(S2) 2 14 1201
break

[@getstring1201]
#IF
!CHECKONLINE $STR(S90)
#ACT
SENDMSG 5 <$STR(S90)>　现在不在线，或在其它服务器上，不能进行操作！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ACT
Getstring S91
MOV P9 $STR(S91)
GMEXECUTE 元宝5 $STR(S90) + $STR(P9)
break

;===================================================================================

[@操作02]
#IF
EQUAL S90
#ACT
messagebox 请先输入玩家名字后，再进行操作！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ELSEACT
SENDMSG 5 (*)你不是管理员，没有权利使用此功能！
break
#IF
!CHECKONLINE $STR(S90)
#ACT
SENDMSG 5 <$STR(S90)>　现在不在线，或在其它服务器上，不能进行操作！
break
#ELSEACT
MOV S2 请输入你要发送给[
INC S2 $STR(S90)
INC S2 ]的游戏数量:
queryvalue $STR(S2) 2 14 1202
break

[@getstring1202]
#IF
!CHECKONLINE $STR(S90)
#ACT
SENDMSG 5 <$STR(S90)>　现在不在线，或在其它服务器上，不能进行操作！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ACT
Getstring S91
MOV P9 $STR(S91)
HCALL $STR(S90) @GM游戏积分
SENDMSG 5 (*)你成功的为<$STR(S90)>增加了<$STR(P9)>点游戏积分！
break




;===================================================================================

[@操作03]
#IF
EQUAL S90
#ACT
messagebox 请先输入玩家名字后，再进行操作！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ELSEACT
SENDMSG 5 (*)你不是管理员，没有权利使用此功能！
break
#IF
!CHECKONLINE $STR(S90)
#ACT
SENDMSG 5 <$STR(S90)>　现在不在线，或在其它服务器上，不能进行操作！
break
#ELSEACT
MOV S2 请输入你要发送给[
INC S2 $STR(S90)
INC S2 ]的极品修炼值数量:
queryvalue $STR(S2) 2 14 1203
break

[@getstring1203]
#IF
!CHECKONLINE $STR(S90)
#ACT
SENDMSG 5 <$STR(S90)>　现在不在线，或在其它服务器上，不能进行操作！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ACT
Getstring S91
MOV P9 $STR(S91)
HCALL $STR(S90) @GM极品修炼
SENDMSG 5 (*)你成功的为<$STR(S90)>增加了<$STR(P9)>点极品修炼值！
break


;===================================================================================

[@操作04]
#IF
EQUAL S90
#ACT
messagebox 请先输入玩家名字后，再进行操作！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ELSEACT
SENDMSG 5 (*)你不是管理员，没有权利使用此功能！
break
#IF
!CHECKONLINE $STR(S90)
#ACT
SENDMSG 5 <$STR(S90)>　现在不在线，或在其它服务器上，不能进行操作！
break
#ELSEACT
MOV S2 请输入你要发送给[
INC S2 $STR(S90)
INC S2 ]的声望值数量:(最大255点)
queryvalue $STR(S2) 2 14 1204
break

[@getstring1204]
#IF
!CHECKONLINE $STR(S90)
#ACT
SENDMSG 5 <$STR(S90)>　现在不在线，或在其它服务器上，不能进行操作！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\文本数据\管理名单.txt
#ACT
Getstring S91
MOV P9 $STR(S91)
HCALL $STR(S90) @GM声望值
SENDMSG 5 (*)你成功的为<$STR(S90)>增加了<$STR(P9)>点声望值！
break

孤单哥

一起研究吧 我QQ65447995

甜心辣椒

看不太明白,也想想学学刷,739952065

崔建良

我也想学！！！  412794569QQ

浪子心声

貌似都是些G M命令吧

封杀帝王

这个脚本没用，想研究啊不可能，这只是后台的操作设置脚本，不是执行脚本

杨波仔

教我学会了 给你回报 不让你白教 QQ105708117

清风小道

ATF引擎，呵呵，有待研究

名字都给拿了

难得一见的新帖啊！必须顶！

神马都是浮晕

看不懂，新鸟学习中

woshi188

可可 看不懂啥东西 可以交我不 QQ 95667666

新贵族

我也看不懂啊

爱情一生

看不懂 郁闷中

流星梦想

1.76复古传奇 | 1.85狂雷版本 | 1.950金牛无内功 | 1.80战神复古 | 1.76精品传奇 | 变态传奇 | 变态传奇私服 | 超级变态传奇私服 | 中变传奇私服 | 微变传奇私服发布网