antyvfl 发表于 2022-10-9 00:44:43

传奇世界开放测试装备领取功能脚本

(@zzsd)

[@main]FLASH(2)
\\   本服务器为了测试BUG,给大家做出更好的版本,特开放\测试领取\
<COLOR=green 改变性别:>{男/@GM命令&改变性别&<$USERNAME>&男} {女/@GM命令&改变性别&<$USERNAME>&女}\
<COLOR=green 改变职业:>{战士/@GM命令&改变职业&<$USERNAME>&Warr} {法师/@GM命令&改变职业&<$USERNAME>&Wizard} {道士/@GM命令&改变职业&<$USERNAME>&Taos}\
<COLOR=green 学习技能:><战士/@学习技能&战士技能> <法师/@学习技能&法师技能> <道士/@学习技能&道士技能> \
<COLOR=green 领取装备:><战士/@战士装备> <法师/@法师装备> <道士/@道士装备>\
<COLOR=green 元神学习技能:><战士/@学习技能&元神战士技能> <法师/@学习技能&元神法师技能> <道士/@学元神技&道士&治疗术&精神战法&施毒术&灵魂道符&骷髅召唤术&幽灵盾&神圣战甲术&狮子吼&道心清明&召唤神兽&解毒术&神光术&幽冥火咒&强化骷髅术&强化施毒术>\
<COLOR=green 元神领取装备:><战士/@元神战士装备> <法师/@元神法师装备> <道士/@元神道士装备>\
<color=fc7ff5 提升><等级46/@等级>\
\
<color=red ━━━━━━><color=red ━━━━━━><color=red ━━━━━━> <Color=FF0900 ><Color=FF7C00 ><Color=FFEF00 ><Color=9CFF00 ><Color=29FF00 菜><Color=00FF4A 猪><Color=00FFBD 出><Color=00CEFF 品>
\

[@装备1]
#IF
random 1
#ACT
give 炎神套装
break
[@等级]
#IF
random 1
#ACT
CHANGELEVEL = 46
break

[@元宝1]
#IF
random 1
#ACT
GAMEGOLD + 20000000
break
[@]
怪物攻城

[@商店物品] TRUE
#IF
random 1
#ACT
Calcvar GLOBAL 商店物品 = $SCRIPTPARAM(1)
SAVEVAR GLOBAL 商店物品 ..\QuestDiary\游戏数据\公共变量\后台管理.txt
goto @游戏功能

#IF
CHECKVAR GLOBAL 商店物品 = 盛大模式
#ACT
SENDMSG 5 现在NPC出售的装备与盛大一样,此功能需要重启以后才会生效。

#IF
CHECKVAR GLOBAL 商店物品 = 方案一
#ACT
SENDMSG 5 现在NPC出售的装备为逆魔级别,此功能需要重启以后才会生效。

#IF
CHECKVAR GLOBAL 商店物品 = 方案二
#ACT
SENDMSG 5 现在NPC出售的装备为禁地级别,此功能需要重启以后才会生效。

[@老兵传送] TRUE
#IF
random 1
#ACT
Calcvar GLOBAL 老兵传送 = $SCRIPTPARAM(1)
SAVEVAR GLOBAL 老兵传送 ..\QuestDiary\游戏数据\公共变量\后台管理.txt
goto @游戏功能

[@下线挂机]
#IF
CHECKVAR GLOBAL 下线挂机 = 开
#ACT
Calcvar GLOBAL 下线挂机 = 关
SAVEVAR GLOBAL 下线挂机 ..\QuestDiary\游戏数据\公共变量\后台管理.txt
goto @游戏功能
break

#IF
CHECKVAR GLOBAL 下线挂机 = 关
#ACT
Calcvar GLOBAL 下线挂机 = 开
SAVEVAR GLOBAL 下线挂机 ..\QuestDiary\游戏数据\公共变量\后台管理.txt
goto @游戏功能
break

[@游戏模式]
#IF
CHECKVAR GLOBAL 游戏模式 = 正常
#ACT
Calcvar GLOBAL 游戏模式 = 测试
SAVEVAR GLOBAL 游戏模式 ..\QuestDiary\游戏数据\公共变量\后台管理.txt
SENDMSG 5 测试模式中新玩家上线会获得顶级装备和9999个元宝
goto @游戏功能
break

#IF
CHECKVAR GLOBAL 游戏模式 = 测试
#ACT
Calcvar GLOBAL 游戏模式 = 正常
SAVEVAR GLOBAL 游戏模式 ..\QuestDiary\游戏数据\公共变量\后台管理.txt
goto @游戏功能
break

[@经验倍数]

[@GM命令] TRUE
#ACT
Gmexecute $SCRIPTPARAM(1) $SCRIPTPARAM(2) $SCRIPTPARAM(3)

[@删除元神]
#ACT
DELPNEUMA

[@清除宝宝]
#ACT
KILLSLAVE

[@清除物品]
#ACT
Showspotdlg 6 请放入要删除的物品 @清除物品1

[@清除物品1]
#ACT
takem $PARAM(1)
goto @调试功能

[@灵力]
#ACT
QUERYVAL 0 1 5 @灵力1 输入灵力数量:

[@灵力1]
#ACT
NIMBUSPOINT + $STR(M0)
SENDMSG 5 获得了<$STR(M0)>点灵力!

[@极品值]
#ACT
QUERYVAL 0 1 9 @极品值1 输入极品值数量:

[@极品值1]
#ACT
give 极品值 $STR(M0)
SENDMSG 5 获得了<$STR(M0)>点极品值!

[@神秘符石]
#ACT
QUERYVAL 0 1 9 @神秘符石1 输入神秘符石数量:

[@神秘符石1]
#ACT
give 神秘符石 1
UPGRADEUSERITEM $PARAM(10) 71 = $STR(M0)
SENDMSG 5 获得了<$STR(M0)>点神秘符石!

[@圣灵精华]
#ACT
QUERYVAL 0 1 5 @圣灵精华1 输入圣灵精华数量:

[@圣灵精华1]
#ACT
give 圣灵精华 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(M0)
SENDMSG 5 获得了<$STR(M0)>点圣灵精华!

[@学习技能] TRUE
#ACT
mov S0
mov S1
mov S2
mov S3
mov S4
mov S5 @
inc S5 $SCRIPTPARAM(1)
goto $STR(S5)

[@战士技能]

\\        <color=orange 请选择要学习的分支技能>\
#IF
equal S0
#SAY
        <血影刀法/@选择技能&S0&血影刀法> <残影刀法/@选择技能&S0&残影刀法> <攻杀剑法/@选择技能&S0&攻杀剑法>\

#IF
equal S0 血影刀法
#SAY
        <血影刀法/@选择技能&S0&血影刀法> <COLOR=Gray 残影刀法> <COLOR=Gray 攻杀剑法>\

#IF
equal S0 残影刀法
#SAY
        <COLOR=Gray 血影刀法> <残影刀法/@选择技能&S0&残影刀法> <COLOR=Gray 攻杀剑法>\

#IF
equal S0 攻杀剑法
#SAY
        <COLOR=Gray 血影刀法> <COLOR=Gray 残影刀法> <攻杀剑法/@选择技能&S0&攻杀剑法>\

#IF
equal S1
#SAY
<COLOR=green 学习技能:><COLOR=red 战士>→ <抱月刀/@选择技能&S1&抱月刀>  <半月弯刀/@选择技能&S1&半月弯刀>\

#IF
equal S1 抱月刀
#SAY
<COLOR=green 学习技能:><COLOR=red 战士>→ <抱月刀/@选择技能&S1&抱月刀>  <COLOR=Gray 半月弯刀>\

#IF
equal S1 半月弯刀
#SAY
<COLOR=green 学习技能:><COLOR=red 战士>→ <COLOR=Gray 抱月刀>  <半月弯刀/@选择技能&S1&半月弯刀>\

#IF
equal S2
#SAY
        <烈火剑法/@选择技能&S2&烈火剑法> <雷霆剑/@选择技能&S2&雷霆剑>\

#IF
equal S2 烈火剑法
#SAY
        <烈火剑法/@选择技能&S2&烈火剑法> <COLOR=Gray 雷霆剑>\

#IF
equal S2 雷霆剑
#SAY
        <COLOR=Gray 烈火剑法> <雷霆剑/@选择技能&S2&雷霆剑>\

#IF
#SAY
\
\
<返回/@@main> <确认学习/@学战士技>

[@选择技能] TRUE
#IF
!equal $SCRIPTPARAM(1) $SCRIPTPARAM(2)
#ACT
mov $SCRIPTPARAM(1) $SCRIPTPARAM(2)
goto $STR(S5)
#ELSEACT
mov $SCRIPTPARAM(1)
goto $STR(S5)

[@学战士技]
#ACT
CLEARSKILL
ADDSKILL 初级剑法 3

#IF
!equal S0
#ACT
ADDSKILL $STR(S0) 3

#IF
random 1
#ACT
ADDSKILL 护身真气 3
ADDSKILL 刺杀剑术 3

#IF
!equal S1
#ACT
ADDSKILL $STR(S1) 3

#IF
random 1
#ACT
ADDSKILL 野蛮冲撞 3

#IF
!equal S2
#ACT
ADDSKILL $STR(S2) 3

#IF
random 1
#ACT
ADDSKILL 战魂真悟 3
ADDSKILL 破击剑法 3
ADDSKILL 突斩 3
ADDSKILL 破盾斩 3
ADDSKILL 金刚护体 3
ADDSKILL 移形换影 3
ADDSKILL 擒龙手 3
ADDSKILL 真元诀 3
ADDSKILL 强化攻杀剑法 5
ADDSKILL 翱风斩 3
SENDMSG 5 战士技能学习完毕

[@法师技能]
\\
           <color=orange 请选择要学习的分支技能>\
#IF
equal S0
#SAY
           <雷电术/@选择技能&S0&雷电术> <冰箭术/@选择技能&S0&冰箭术>\
#IF
equal S0 雷电术
#SAY
           <雷电术/@选择技能&S0&雷电术> <COLOR=Gray 冰箭术>\

#IF
equal S0 冰箭术
#SAY
           <COLOR=Gray 雷电术> <冰箭术/@选择技能&S0&冰箭术>\


#IF
equal S1
#SAY
<COLOR=green 学习技能:>   <COLOR=red 法师>→ <风火轮/@选择技能&S1&风火轮> <火炎刀/@选择技能&S1&火炎刀>\

#IF
equal S1 风火轮
#SAY
<COLOR=green 学习技能:>   <COLOR=red 法师>→ <风火轮/@选择技能&S1&风火轮> <COLOR=Gray 火炎刀>\

#IF
equal S1 火炎刀
#SAY
<COLOR=green 学习技能:>   <COLOR=red 法师>→ <COLOR=Gray 风火轮> <火炎刀/@选择技能&S1&火炎刀>\

#IF
equal S2
#SAY
           <冰龙破/@选择技能&S2&冰龙破> <疾光电影/@选择技能&S2&疾光电影>\

#IF
equal S2 冰龙破
#SAY
           <冰龙破/@选择技能&S2&冰龙破> <COLOR=Gray 疾光电影>\

#IF
equal S2 疾光电影
#SAY
           <COLOR=Gray 冰龙破> <疾光电影/@选择技能&S2&疾光电影>\

#IF
equal S3
#SAY
           <玄冰刃/@选择技能&S3&玄冰刃> <地狱雷光/@选择技能&S3&地狱雷光>\

#IF
equal S3 玄冰刃
#SAY
           <玄冰刃/@选择技能&S3&玄冰刃> <COLOR=Gray 地狱雷光>\

#IF
equal S3 地狱雷光
#SAY
           <COLOR=Gray 玄冰刃> <地狱雷光/@选择技能&S3&地狱雷光>\

#IF
equal S4
#SAY
           <五雷轰/@选择技能&S4&五雷轰> <冰咆哮/@选择技能&S4&冰咆哮>\

#IF
equal S4 五雷轰
#SAY
           <五雷轰/@选择技能&S4&五雷轰> <COLOR=Gray 冰咆哮>\

#IF
equal S4 冰咆哮
#SAY
           <COLOR=Gray 五雷轰> <冰咆哮/@选择技能&S4&冰咆哮>\

#IF
#SAY
<返回/@main> <确认学习/@学法师技>

[@学法师技]
#IF
random 1
#ACT
CLEARSKILL
ADDSKILL 小火球 3
ADDSKILL 抗拒火环 3
ADDSKILL 诱惑之光 3
ADDSKILL 地狱火焰 3

#IF
!equal S0
#ACT
ADDSKILL $STR(S0) 3

#IF
random 1
#ACT
ADDSKILL 瞬间移动 3

#IF
!equal S1
#ACT
ADDSKILL $STR(S1) 3

#IF
random 1
#ACT
ADDSKILL 爆裂火焰 3
ADDSKILL 火墙 3

#IF
!equal S2
#ACT
ADDSKILL $STR(S2) 3

#IF
!equal S3
#ACT
ADDSKILL $STR(S3) 3

#IF
random 1
#ACT
ADDSKILL 魔法盾 3
ADDSKILL 圣言术 3


#IF
!equal S4
#ACT
ADDSKILL $STR(S4) 3

#IF
equal S4 五雷轰
#ACT
ADDSKILL 冰旋风 3

#IF
random 1
#ACT
ADDSKILL 法之魄 3
ADDSKILL 兽灵术 3
ADDSKILL 风影盾 3
ADDSKILL 狂龙紫电 3
ADDSKILL 化身蝙蝠 3
ADDSKILL 魔魂术 3
ADDSKILL 流星火雨 3
ADDSKILL 真元诀 3
ADDSKILL 强化火球术 5
ADDSKILL 纵雷诀 3
SENDMSG 5 法师技能学习完毕

[@道士技能]
\\
              <color=orange 请选择要学习的分支技能>\
#IF
equal S0
#SAY
              <施毒术/@选择技能&S0&施毒术>  <诅咒术/@选择技能&S0&诅咒术>\

#IF
equal S0 施毒术
#SAY
              <施毒术/@选择技能&S0&施毒术>  <COLOR=Gray 诅咒术>\

#IF
equal S0 诅咒术
#SAY
              <COLOR=Gray 施毒术>  <诅咒术/@选择技能&S0&诅咒术>\

#IF
equal S1
#SAY
<COLOR=green 学习技能:>      <COLOR=red 道士>→ <赶尸术/@选择技能&S1&赶尸术>  <骷髅召唤术/@选择技能&S1&骷髅召唤术>\

#IF
equal S1 赶尸术
#SAY
<COLOR=green 学习技能:>      <COLOR=red 道士>→ <赶尸术/@选择技能&S1&赶尸术>  <COLOR=Gray 骷髅召唤术>\

#IF
equal S1 骷髅召唤术
#SAY
<COLOR=green 学习技能:>      <COLOR=red 道士>→ <COLOR=Gray 赶尸术>  <骷髅召唤术/@选择技能&S1&骷髅召唤术>\


#IF
equal S1 赶尸术
equal S2
#SAY
              <替身法符/@选择技能&S2&替身法符> <隐身术/@选择技能&S2&隐身术>\

#IF
equal S1 赶尸术
equal S2 替身法符
#SAY
              <替身法符/@选择技能&S2&替身法符> <COLOR=Gray 隐身术>\

#IF
equal S1 赶尸术
equal S2 隐身术
#SAY
              <COLOR=Gray 替身法符> <隐身术/@选择技能&S2&隐身术>\

#IF
equal S3
#SAY
              <灵魂墙/@选择技能&S3&灵魂墙>  <困魔咒/@选择技能&S3&困魔咒>\

#IF
equal S3 灵魂墙
#SAY
              <灵魂墙/@选择技能&S3&灵魂墙>  <COLOR=Gray 困魔咒>\

#IF
equal S3 困魔咒
#SAY
              <COLOR=Gray 灵魂墙>  <困魔咒/@选择技能&S3&困魔咒>\

#IF
!equal S1 赶尸术
#SAY
\

#IF
#SAY
\
<返回/@main> <确认学习/@学道士技>

[@学道士技]
#IF
random 1
#ACT
CLEARSKILL
ADDSKILL 治疗术 3
ADDSKILL 精神战法 3

#IF
!equal S0
#ACT
ADDSKILL $STR(S0) 3

#IF
random 1
#ACT
ADDSKILL 灵魂道符 3

#IF
!equal S1
#ACT
ADDSKILL $STR(S1) 3

#IF
!equal S2
#ACT
ADDSKILL $STR(S2) 3

#IF
random 1
#ACT
ADDSKILL 集体隐身术 3
ADDSKILL 幽灵盾 3
ADDSKILL 神圣战甲术 3
ADDSKILL 狮子吼 3

#IF
!equal S3
#ACT
ADDSKILL $STR(S3) 3

#IF
random 1
#ACT
ADDSKILL 道心清明 3
ADDSKILL 群体治愈术 3
ADDSKILL 召唤神兽 3
ADDSKILL 神光术 3
ADDSKILL 解毒术 3
ADDSKILL 幽冥火咒 3
ADDSKILL 强化骷髅术 3
ADDSKILL 心灵召唤 3
ADDSKILL 遁地 3
ADDSKILL 真元诀 3
ADDSKILL 强化施毒术 5
ADDSKILL 毒凌波 3
SENDMSG 5 道士技能学习完毕

[@元神战士技能]
\\
        <color=orange 请选择要学习的分支技能>\
\
#IF
equal S1
#SAY
<COLOR=green 学习技能:><COLOR=red 战士>→ <抱月刀/@选择技能&S1&抱月刀>  <半月弯刀/@选择技能&S1&半月弯刀>\

#IF
equal S1 抱月刀
#SAY
<COLOR=green 学习技能:><COLOR=red 战士>→ <抱月刀/@选择技能&S1&抱月刀>  <COLOR=Gray 半月弯刀>\

#IF
equal S1 半月弯刀
#SAY
<COLOR=green 学习技能:><COLOR=red 战士>→ <COLOR=Gray 抱月刀>  <半月弯刀/@选择技能&S1&半月弯刀>\

#IF
#SAY
\
\
\
<返回/@main> <确认学习/@学元神技&战士&初级剑法&攻杀剑法&护身真气&刺杀剑术&野蛮冲撞&战魂真悟&烈火剑法&破击剑法&破盾斩&突斩&金刚护体&强化攻杀剑法>

[@元神法师技能]
\\
          <color=orange 请选择要学习的分支技能>\
\
#IF
equal S1
#SAY
<COLOR=green 学习技能:>  <COLOR=red 法师>→ <雷电术/@选择技能&S1&雷电术>  <冰箭术/@选择技能&S1&冰箭术>\

#IF
equal S1 雷电术
#SAY
<COLOR=green 学习技能:>  <COLOR=red 法师>→ <雷电术/@选择技能&S1&雷电术>  <COLOR=Gray 冰箭术>\

#IF
equal S1 冰箭术
#SAY
<COLOR=green 学习技能:>  <COLOR=red 法师>→ <COLOR=Gray 雷电术>  <冰箭术/@选择技能&S1&冰箭术>\

#IF
#SAY
\
\
\
<返回/@main> <确认学习/@学元神技&法师&小火球&抗拒火环&法之魄&魔法盾&狂龙紫电&强化火球术>

[@学元神技] TRUE
#IF
random 1
#ACT
$PNEUMANAME.CLEARSKILL
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(2) 3
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(3) 3

#IF
$PNEUMANAME.CHECKJOB WIZARD
#ACT
$PNEUMANAME.ADDSKILL $STR(S1) 3

#IF
random 1
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(4) 3
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(5) 3

#IF
$PNEUMANAME.CHECKJOB WARR
#ACT
$PNEUMANAME.ADDSKILL $STR(S1) 3

#IF
!equal $SCRIPTPARAM(6)
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(6) 3

#IF
equal $SCRIPTPARAM(7) 强化火球术
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(7) 5

#IF
!equal $SCRIPTPARAM(7)
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(7) 3

#IF
!equal $SCRIPTPARAM(8)
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(8) 3

#IF
!equal $SCRIPTPARAM(9)
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(9) 3

#IF
!equal $SCRIPTPARAM(10)
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(10) 3

#IF
!equal $SCRIPTPARAM(11)
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(11) 3

#IF
!equal $SCRIPTPARAM(12)
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(12) 3

#IF
equal $SCRIPTPARAM(13) 强化攻杀剑法
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(13) 5

#IF
!equal $SCRIPTPARAM(13)
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(13) 3

#IF
!equal $SCRIPTPARAM(14)
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(14) 3

#IF
!equal $SCRIPTPARAM(15)
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(15) 3

#IF
equal $SCRIPTPARAM(16) 强化施毒术
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(16) 5

#IF
!equal $SCRIPTPARAM(16)
#ACT
$PNEUMANAME.ADDSKILL $SCRIPTPARAM(16) 3

#IF
#ACT
SENDMSG 5 元神<$SCRIPTPARAM(1)>技能学习完毕

[@灵兽石] TRUE
#ACT
mov M0
mov M1
mov M2
mov M3
mov M4
mov M5
mov M6
mov M7
mov M8
mov M9
mov M10
mov M11
mov M12
mov M13
mov M14
mov M15
mov M16
mov M17
mov M18
mov M19
mov M20
mov M21
mov M22
mov S5 无
mov S6 $SCRIPTPARAM(1)
mov S7
goto @灵兽石1

[@灵兽石1]
#ACT
FormatStr S0 %-3s $STR(M0)
FormatStr S1 %-3s $STR(M1)
FormatStr S2 %-4s $STR(M2)
FormatStr S3 %-3s $STR(M3)
FormatStr S4 %-3s $STR(M22)
#SAY
<菜猪出品/@游戏信息><菜猪出品/@游戏功能><COLOR=red 菜猪出品> <菜猪出品@奖品设置> <菜猪出品/@版本说明>\
─────────┴────┴──────────\

#IF
equal $STR(S6) 豹魔石
#SAY
<COLOR=green 领灵兽石:>{COLOR=red <$STR(S6)>} <随便领一个/@随便领灵石&豹魔石>\

#IF
equal $STR(S6) 狮魔石
#SAY
<COLOR=green 领灵兽石:>    {COLOR=red <$STR(S6)>} <随便领一个/@随便领灵石&狮魔石>\

#IF
equal $STR(S6) 麒麟石
#SAY
<COLOR=green 领灵兽石:>        {COLOR=red <$STR(S6)>} <随便领一个/@随便领灵石&麒麟石>\

#IF
equal $STR(S6) 虎魔石
#SAY
<COLOR=green 领灵兽石:>{COLOR=red <$STR(S6)>} <随便领一个/@随便领灵石&虎魔石>\

#IF
equal $STR(S6) 凤凰石
#SAY
<COLOR=green 领灵兽石:>    {COLOR=red <$STR(S6)>} <随便领一个/@随便领灵石&凤凰石>\

#IF
equal $STR(S6) 战鲨石
#SAY
<COLOR=green 领灵兽石:>        {COLOR=red <$STR(S6)>} <随便领一个/@随便领灵石&战鲨石>\


#IF
#SAY
<生命值/@灵兽属性&0&1&3&生命值:0-255&M0&256> <$STR(S0)><资质/@灵兽属性&3&1&3&资质:0-100&M3&101> <$STR(S3)> <攻击下限/@灵兽属性&8&1&1&攻击下限:0-7&M8&8> <$STR(M8)> <攻击上限/@灵兽属性&14&1&1&攻击上限:0-7&M14&8> <$STR(M14)> <物理命中/@灵兽属性&19&1&1&物理命中:0-7&M19&8> <$STR(M19)>\
<魔法值/@灵兽属性&1&1&3&魔法值:0-255&M1&256> <$STR(S1)> <幸运/@灵兽属性&4&1&1&幸运:0-3&M4&4> <$STR(M4)>   <魔法下限/@灵兽属性&9&1&1&魔法下限:0-7&M9&8> <$STR(M9)> <魔法上限/@灵兽属性&15&1&1&魔法上限:0-7&M15&8> <$STR(M15)> <魔法命中/@灵兽属性&20&1&1&魔法命中:0-7&M20&8> <$STR(M20)>\
<经验值/@灵兽属性&2&1&4&经验值:0-2000&M2&2001> <$STR(S2)> <速度/@灵兽属性&5&1&1&速度:0或1 0为骑战速度慢 1为快&M5&2> <$STR(M5)>   <道术下限/@灵兽属性&10&1&1&道术下限:0-7&M10&8> <$STR(M10)> <道术上限/@灵兽属性&16&1&1&道术上限:0-7&M16&8> <$STR(M16)> <中毒命中/@灵兽属性&21&1&1&中毒命中:0-7&M21&8> <$STR(M21)>\
<五行值/@灵兽属性&22&1&2&五行值:0-10&M22&11> <$STR(S4)> <五行/@灵兽属性&5&0&2&五行:金、木、水、火、土> <$STR(S5)><防御下限/@灵兽属性&6&1&1&防御下限:0-7&M6&8> <$STR(M6)> <防御上限/@灵兽属性&11&1&1&防御上限:0-7&M11&8> <$STR(M11)> <物理躲避/@灵兽属性&17&1&1&物理躲避:0-7&M17&8> <$STR(M17)>\
<确认属性/@灵兽确认>  {恢复默认/@灵兽石&<$STR(S6)>} <魔御下限/@灵兽属性&7&1&1&魔御下限:0-7&M7&8> <$STR(M7)> <魔御上限/@灵兽属性&12&1&1&魔御上限:0-7&M12&8> <$STR(M12)> <魔法躲避/@灵兽属性&18&1&1&魔法躲避:0-7&M18&8> <$STR(M18)>\
<返回/@调试功能2> 你可以通过调整参数来获得想要的灵兽石 <中毒躲避/@灵兽属性&13&1&1&中毒躲避:0-7&M13&8> <$STR(M13)>\

[@随便领灵石] TRUE
#IF
random 1
#ACT
give $STR(S6) 1
MOV M0 $PARAM(10)
goto @灵兽加属性
mov M0 $STR(S0)

[@灵兽属性] TRUE
#ACT
QUERYVAL $SCRIPTPARAM(1) $SCRIPTPARAM(2) $SCRIPTPARAM(3) @灵兽属性1 $SCRIPTPARAM(4)

[@灵兽属性1]
#IF
equal S5 金
#ACT
goto @灵兽石1
break

#IF
equal S5 木
#ACT
goto @灵兽石1
break

#IF
equal S5 水
#ACT
goto @灵兽石1
break

#IF
equal S5 火
#ACT
goto @灵兽石1
break

#IF
equal S5 土
#ACT
goto @灵兽石1
break

#IF
!equal $SCRIPTPARAM(4) 五行:金、木、水、火、土
small $SCRIPTPARAM(5) $SCRIPTPARAM(6)
#ACT
goto @灵兽石1
#ELSEACT
MessageBox 输入的数值有误
break

[@灵兽确认]
#IF
equal M3 0
#ACT
mov M3 1

#IF
random 1
#ACT
give $STR(S6) 1
SETPETATTRIBUTE $PARAM(10) 3 = $STR(M0)
SETPETATTRIBUTE $PARAM(10) 4 = $STR(M1)
SETPETATTRIBUTE $PARAM(10) 0 = $STR(M2)
SETPETATTRIBUTE $PARAM(10) 2 = $STR(M3)
SETPETATTRIBUTE $PARAM(10) 26 = $STR(M4)
SETPETATTRIBUTE $PARAM(10) 27 = $STR(M5)
SETPETATTRIBUTE $PARAM(10) 10 = $STR(M6)
SETPETATTRIBUTE $PARAM(10) 6 = $STR(M7)
SETPETATTRIBUTE $PARAM(10) 23 = $STR(M8)
SETPETATTRIBUTE $PARAM(10) 19 = $STR(M9)
SETPETATTRIBUTE $PARAM(10) 21 = $STR(M10)
SETPETATTRIBUTE $PARAM(10) 11 = $STR(M11)
SETPETATTRIBUTE $PARAM(10) 7 = $STR(M12)
SETPETATTRIBUTE $PARAM(10) 5 = $STR(M13)
SETPETATTRIBUTE $PARAM(10) 24 = $STR(M14)
SETPETATTRIBUTE $PARAM(10) 20 = $STR(M15)
SETPETATTRIBUTE $PARAM(10) 22 = $STR(M16)
SETPETATTRIBUTE $PARAM(10) 9 = $STR(M17)
SETPETATTRIBUTE $PARAM(10) 12 = $STR(M18)
SETPETATTRIBUTE $PARAM(10) 25 = $STR(M19)
SETPETATTRIBUTE $PARAM(10) 8 = $STR(M20)
SETPETATTRIBUTE $PARAM(10) 13 = $STR(M21)
mov M1 0

#IF
equal S5 金
#ACT
SETPETATTRIBUTE $PARAM(10) 15 0 = $STR(M22)

#IF
equal S5 木
#ACT
SETPETATTRIBUTE $PARAM(10) 15 1 = $STR(M22)

#IF
equal S5 水
#ACT
SETPETATTRIBUTE $PARAM(10) 15 3 = $STR(M22)

#IF
equal S5 火
#ACT
SETPETATTRIBUTE $PARAM(10) 16 0 = $STR(M22)

#IF
equal S5 土
#ACT
SETPETATTRIBUTE $PARAM(10) 15 2 = $STR(M22)

[@灵兽转生]
#ACT
UPGRADEMON

[@合击技能]
<菜猪出品/@游戏信息><菜猪出品/@游戏功能><COLOR=red 菜猪出品> <菜猪出品/@奖品设置> <菜猪出品/@版本说明>\
─────────┴────┴──────────\
                   战+战 {怒斩天下/@GM命令&添加技能&<$USERNAME>&怒斩天下&3}\
                   法+法 {天怒惊雷/@GM命令&添加技能&<$USERNAME>&天怒惊雷&3}\
<COLOR=green 学习技能:>         <COLOR=red 合击技能>→ 道+道 {天女散花咒/@GM命令&添加技能&<$USERNAME>&天女散花咒&3}\
                   战+法 {迷光烈焰/@GM命令&添加技能&<$USERNAME>&迷光烈焰&3}\
                   法+道 {神之召唤/@GM命令&添加技能&<$USERNAME>&神之召唤&3}\
                   道+战 {火毒攻心剑/@GM命令&添加技能&<$USERNAME>&火毒攻心剑&3}\
<返回/@调试功能>

[@战士装备]
\
\

<COLOR=green 领取装备:><COLOR=red 战士>→ Lv44 <神武套/@本体领装备&神武套&神武战甲&神武战袍&雷裂刀&荣誉勋章23号&神武项链&神武头盔&神武手镯&神武戒指&神武腰带&神武战靴&火晶石(中)>\

<返回/@main>

[@法师装备]
\
\
<COLOR=green 领取装备:><COLOR=red 法师>→Lv44 <幻魔套/@本体领装备&幻魔套&幻魔披风&幻魔羽衣&霹雳法杖&荣誉勋章24号&幻魔项链&幻魔头盔&幻魔手镯&幻魔戒指&幻魔腰带&幻魔法靴&冰月石(中)>\

<返回/@main>


[@道士装备]
\
\
<COLOR=green 领取装备:><COLOR=red 道士>→ Lv44 <天玄套/@本体领装备&天玄套&天玄道袍&天玄道衣&道玄剑&荣誉勋章25号&天玄项链&天玄头盔&天玄手镯&天玄戒指&天玄腰带&天玄道靴&水云石(中)&道尊神符&道尊灵毒(红)&道尊灵毒(绿)>\

<返回/@main>

[@本体领装备] TRUE
#IF
gender man
#ACT
give $SCRIPTPARAM(2) 1

#IF
!gender man
#ACT
give $SCRIPTPARAM(3) 1

#IF
#IF
random 1
#ACT
give $SCRIPTPARAM(4) 1
give $SCRIPTPARAM(5) 1
give $SCRIPTPARAM(6) 1
give $SCRIPTPARAM(7) 1
give $SCRIPTPARAM(8) 2
give $SCRIPTPARAM(9) 2
give $SCRIPTPARAM(10) 1
give $SCRIPTPARAM(11) 1
give $SCRIPTPARAM(12) 1

#IF
!equal $SCRIPTPARAM(13)
#ACT
give $SCRIPTPARAM(13) 1

#IF
!equal $SCRIPTPARAM(14)
#ACT
give $SCRIPTPARAM(14) 1

#IF
!equal $SCRIPTPARAM(15)
#ACT
give $SCRIPTPARAM(15) 1

#IF
gender man
#ACT
TAKEON 0 $SCRIPTPARAM(2)

#IF
!gender man
#ACT
TAKEON 0 $SCRIPTPARAM(3)

#IF
random 1
#ACT
TAKEON 1 $SCRIPTPARAM(4)
TAKEON 2 $SCRIPTPARAM(5)
TAKEON 3 $SCRIPTPARAM(6)
TAKEON 4 $SCRIPTPARAM(7)
TAKEON 5 $SCRIPTPARAM(8)
TAKEON 6 $SCRIPTPARAM(8)
TAKEON 7 $SCRIPTPARAM(9)
TAKEON 8 $SCRIPTPARAM(9)
TAKEON 10 $SCRIPTPARAM(10)
TAKEON 9 $SCRIPTPARAM(11)
TAKEON 11 $SCRIPTPARAM(12)
TAKEON 12 $SCRIPTPARAM(13)
SENDMSG 5 <$SCRIPTPARAM(1)>已经装备到您的身上

[@元神战士装备]
\
\
<COLOR=green 领取装备:><COLOR=red 战士>→ Lv44 <神武套/@元神领装备&神武套&神武战甲&神武战袍&雷裂刀&荣誉勋章23号&神武项链&神武头盔&神武手镯&神武戒指&神武腰带&神武战靴&火晶石(中)>\

<返回/@main>

[@元神法师装备]
\
\
<COLOR=green 领取装备:><COLOR=red 法师>→ Lv44 <幻魔套/@元神领装备&幻魔套&幻魔披风&幻魔羽衣&霹雳法杖&荣誉勋章24号&幻魔项链&幻魔头盔&幻魔手镯&幻魔戒指&幻魔腰带&幻魔法靴&冰月石(中)>\

<返回/@main>


[@元神道士装备]
\
\
<COLOR=green 领取装备:><COLOR=red 道士>→  Lv44 <天玄套/@元神领装备&天玄套&天玄道袍&天玄道衣&道玄剑&荣誉勋章25号&天玄项链&天玄头盔&天玄手镯&天玄戒指&天玄腰带&天玄道靴&水云石(中)&道尊神符&道尊灵毒(红)&道尊灵毒(绿)>\

<返回/@main>

[@元神领装备] TRUE
#IF
$PNEUMANAME.gender man
#ACT
$PNEUMANAME.give $SCRIPTPARAM(2) 1

#IF
$PNEUMANAME.!gender man
#ACT
$PNEUMANAME.give $SCRIPTPARAM(3) 1

#IF
$PNEUMANAME.random 1
#ACT
$PNEUMANAME.give $SCRIPTPARAM(4) 1
$PNEUMANAME.give $SCRIPTPARAM(5) 1
$PNEUMANAME.give $SCRIPTPARAM(6) 1
$PNEUMANAME.give $SCRIPTPARAM(7) 1
$PNEUMANAME.give $SCRIPTPARAM(8) 2
$PNEUMANAME.give $SCRIPTPARAM(9) 2
$PNEUMANAME.give $SCRIPTPARAM(10) 1
$PNEUMANAME.give $SCRIPTPARAM(11) 1
$PNEUMANAME.give $SCRIPTPARAM(12) 1

#IF
$PNEUMANAME.!equal $SCRIPTPARAM(13)
#ACT
$PNEUMANAME.give $SCRIPTPARAM(13) 1

#IF
$PNEUMANAME.!equal $SCRIPTPARAM(14)
#ACT
$PNEUMANAME.give $SCRIPTPARAM(14) 1

#IF
$PNEUMANAME.!equal $SCRIPTPARAM(15)
#ACT
$PNEUMANAME.give $SCRIPTPARAM(15) 1

#IF
$PNEUMANAME.gender man
#ACT
$PNEUMANAME.TAKEON 0 $SCRIPTPARAM(2)

#IF
$PNEUMANAME.!gender man
#ACT
$PNEUMANAME.TAKEON 0 $SCRIPTPARAM(3)

#IF
$PNEUMANAME.random 1
#ACT
$PNEUMANAME.TAKEON 1 $SCRIPTPARAM(4)
$PNEUMANAME.TAKEON 2 $SCRIPTPARAM(5)
$PNEUMANAME.TAKEON 3 $SCRIPTPARAM(6)
$PNEUMANAME.TAKEON 4 $SCRIPTPARAM(7)
$PNEUMANAME.TAKEON 5 $SCRIPTPARAM(8)
$PNEUMANAME.TAKEON 6 $SCRIPTPARAM(8)
$PNEUMANAME.TAKEON 7 $SCRIPTPARAM(9)
$PNEUMANAME.TAKEON 8 $SCRIPTPARAM(9)
$PNEUMANAME.TAKEON 10 $SCRIPTPARAM(10)
$PNEUMANAME.TAKEON 9 $SCRIPTPARAM(11)
$PNEUMANAME.TAKEON 11 $SCRIPTPARAM(12)
$PNEUMANAME.TAKEON 12 $SCRIPTPARAM(13)
$PNEUMANAME.SENDMSG 5 <$SCRIPTPARAM(1)>已经装备到您的身上

[@创建元神] TRUE
#ACT
mov S0 $SCRIPTPARAM(1)
mov S1 $SCRIPTPARAM(2)
QUERYVAL 2 0 14 @确认创建元神 请输入想要取的元神名字

[@确认创建元神]
#ACT
CreatePneuma $STR(S2) $STR(S0) $STR(S1)
#SAY
元神创建成功!\
\
<返回/@调试功能1>

[@提升境界] PNEUMA
#ACT
$PNEUMANAME.FENGHAO 3
MessageBox 此功能等待完善!!!

[@客服QQ]
#ACT
QUERYVAL 0 1 15 @客服QQ0 请输入QQ号:

[@客服QQ0]
#ACT
Calcvar GLOBAL 客服QQ = $STR(M0)
SAVEVAR GLOBAL 客服QQ ..\QuestDiary\游戏数据\公共变量\后台管理.txt
goto @游戏功能

[@官方网站]
#ACT
QUERYVAL 0 0 15 @官方网站0 请输入网站地址:

[@官方网站0]
#ACT
Calcvar GLOBAL 官方网站 = $STR(S0)
SAVEVAR GLOBAL 官方网站 ..\QuestDiary\游戏数据\公共变量\后台管理.txt
goto @游戏功能

[新手设置]
训练营地:关\
包裹物品:盛大模式 自定义\
学习技能:盛大模式方案一 方案二 方案三\
新手任务:盛大模式方案一 方案二 方案三\
\
恢复默认值

[@学习技能1]
到达可学习技能的等级后自动学习技能

[@学习技能2]
出生自动学习满40级以下全部技能

[@学习技能3]
出生自动学习满所有相应职业的技能

[@新手任务1]
#ACT

[@奖品设置]
<菜猪出品/@游戏信息><菜猪出品/@游戏功能><菜猪出品/@调试功能> <COLOR=red 菜猪出品> <菜猪出品/@版本说明>\
──────────────┴────┴─────\
<COLOR=green 此功能等待完善!!!>\

[沙城功能]
调整可以攻沙时间:7天后
申请攻沙:开
所有行会加入攻沙列表:关

[综合功能]
赏金令牌兑换元宝:关

.名人堂领技能书.
需要等级:46
战士领取:破盾斩或金刚护体
法师领取:风影盾或狂龙紫电
道士领取:幽明火咒或强化骷髅术

[炼狱]
炼狱模式:收费模式/免费模式
收费标准:金币 元宝
1元宝可兑换时间:小时
100W金币可兑换时间:小时


可调整服务器内BOSS刷新时间

[闯 天 关]
天关是否开放:开\关

[救 公 主]

[天魔宝藏]

[拜师收徒]



[@管理后台1]
<COLOR=GREEN 游数GM管理系统>:有疑问或BUG请联系:<COLOR=GREEN 菜猪><COLOR=GREENQQ:444538044>\\
GM管理密码为服务器目录<COLOR=red D:|Cmirserver|mir200|String.ini>\
文件里<COLOR=red BankAccount9=>,这个=号后面的数字即是管理密码!\\
  <输入管理密码获取管理权限/@KLS45235423>\\
                           <关闭/@exit>


[@管理菜圃]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#SAY
<COLOR=GREEN 游数GM管理系统>:有疑问或BUG请联系:<COLOR=GREEN 菜猪><COLOR=GREENQQ:444538044>\\
<[进入后台地图]/@进入后台地图>   \

<[刷人形怪]/@刷新人型>   \
<[功能设置]/@游戏功能9>\
-----------------------------------------------------\
<color=red [><在线刷活动怪系统/@在线活动><color=red ]>      <color=red [><GM攻击调整/@gmmaster><color=red ]>\
                        <关闭/@exit>


[@在线活动]

<落霞安全区刷新金猪公告/@落霞金猪公告>--刷之前请先发公告│<color=red 送财活动>\
<中州安全区刷新金猪公告/@中州金猪公告>--刷之前请先发公告│<[刷圣兽预告]/@s011> \
<落霞安全区刷新金猪宝宝/@落霞432>--1次6只金猪爆元宝│<[刷圣兽中州]/@s009>\
<中州安全区刷新金猪宝宝/@中州ghf>--1次6只金猪爆元宝│<[刷圣兽死水]/@s010>\
┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄\
<[刷怪在中州]/@s001><[刷怪在皇宫]/@s002><[刷怪在死水]/@s003><[刷怪在热沙]/@s004> \
<[刷怪在边界]/@s005><[刷怪在禁地]/@s006><[刷怪在魔隐]/@s007><[刷怪在西域]/@s008> \
<[怪物攻城预告示警]/@s012>---------------<COLOR=RED 诗风网络怪物攻城系统>\
<[怪物攻城结束公告]/@s013>        <精心制作/@@url@@urlgamem.5d6d.com> <返回/@管理菜圃>
[@s009]
#IF
#act
Param1 0
Param2 487
Param3 236
MonGen 吉祥兔子 1 5
MESSAGEBOX 当前操作成功!
SENDMSG 8 {送财活动}:身带大量元宝的{吉祥兔子}出现在{中州487.236处},抢钱行动正式开始!
SENDMSG 10 {送财活动}:身带大量元宝的{吉祥兔子}出现在{中州487.236处},抢钱行动正式开始!
SENDMSG 1 {送财活动}:身带大量元宝的{吉祥兔子}出现在{中州487.236处},抢钱行动正式开始!
SENDMSG 15 {送财活动}:身带大量元宝的{吉祥兔子}出现在{中州487.236处},抢钱行动正式开始!

[@s010]
#IF
#act
Param1 7
Param2 71
Param3 39
MonGen 吉祥兔子 1 5
MESSAGEBOX 当前操作成功!
SENDMSG 8 {送财活动}:身带大量元宝的{吉祥兔子}出现在{死水药店71.39处},抢钱行动正式开始!
SENDMSG 10 {送财活动}:身带大量元宝的{吉祥兔子}出现在{死水药店71.39处},抢钱行动正式开始!
SENDMSG 1 {送财活动}:身带大量元宝的{吉祥兔子}出现在{死水药店71.39处},抢钱行动正式开始!
SENDMSG 15 {送财活动}:身带大量元宝的{吉祥兔子}出现在{死水药店71.39处},抢钱行动正式开始!

[@s011]
#ACT
SENDMSG 8 {送财活动公告}:身带大量元宝的{吉祥兔子}将出现在{中州487.236}和{死水药店71.39}处,请勇士们做好准备。
SENDMSG 10 {送财活动公告}:身带大量元宝的{吉祥兔子}将出现在{中州487.236}和{死水药店71.39}处,请勇士们做好准备。
SENDMSG 1 {送财活动公告}:身带大量元宝的{吉祥兔子}将出现在{中州487.236}和{死水药店71.39}处,请勇士们做好准备。
SENDMSG 15 {送财活动公告}:身带大量元宝的{吉祥兔子}将出现在{中州487.236}和{死水药店71.39}处,请勇士们做好准备。
break



[@落霞金猪公告]
#ACT
SENDMSG 8 {金猪送财公告}:身带大量元宝的{金猪宝宝}将出现在{落霞236.235}处,请勇士们做好准备。
SENDMSG 10 {金猪送财公告}:身带大量元宝的{金猪宝宝}将出现在{落霞236.235}处,请勇士们做好准备。
SENDMSG 1 {金猪送财公告}:身带大量元宝的{金猪宝宝}将出现在{落霞236.235}处,请勇士们做好准备。
SENDMSG 15 {金猪送财公告}:身带大量元宝的{金猪宝宝}将出现在{落霞236.235}处,请勇士们做好准备



[@中州金猪公告]
#ACT
SENDMSG 8 {金猪送财公告}:身带大量元宝的{金猪宝宝}将出现在{中州467.228}处,请勇士们做好准备。
SENDMSG 10 {金猪送财公告}:身带大量元宝的{金猪宝宝}将出现在{中州467.228}处,请勇士们做好准备。
SENDMSG 1 {金猪送财公告}:身带大量元宝的{金猪宝宝}将出现在{中州467.228}处,请勇士们做好准备。
SENDMSG 15 {金猪送财公告}:身带大量元宝的{金猪宝宝}将出现在{中州467.228}处,请勇士们做好准备。

[@落霞432]
#ACT
PARAM1 1
PARAM2 236
PARAM3 235
MonGen 金猪宝宝 6 6
SENDMSG 0 (*)[{金猪宝宝}]携带着大量的{元宝}出现在{落霞岛}安全区!此活动仅在新区开区时出现!
SENDMSG 10 (*)[{金猪宝宝}]携带着大量的{元宝}出现在{落霞岛}安全区!此活动仅在新区开区时出现!
SENDMSG 14 (*)[{金猪宝宝}]携带着大量的{元宝}出现在{落霞岛}安全区!此活动仅在新区开区时出现!
messagebox 落霞岛-金猪宝宝-刷新成功!
break

[@中州ghf]
#ACT
PARAM1 0
PARAM2 467
PARAM3 228
MonGen 金猪宝宝 6 8
SENDMSG 0 (*)[{金猪宝宝}]携带着大量的{元宝}出现在{中州}安全区!此活动仅在新区开区时出现!
SENDMSG 10 (*)[{金猪宝宝}]携带着大量的{元宝}出现在{中州}安全区!此活动仅在新区开区时出现!
SENDMSG 14 (*)[{金猪宝宝}]携带着大量的{元宝}出现在{中州}安全区!此活动仅在新区开区时出现!
messagebox 中州-金猪宝宝-刷新成功!
break

;=======================================================================================
[@s001]
#IF
#act
Param1 0
Param2 470
Param3 225
MonGen 通天教主 1 20
MonGen 妖力士   4 20
MonGen 逆魔   1 20
MonGen 烈焰使   1 20
MonGen 炼狱魔君 1 20
MonGen 无相天魔 1 20
MonGen 黑袍修罗 2 20
MonGen 阿修罗神 1 20
MESSAGEBOX 当前操作成功!
SENDMSG 8 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{中州安全区},请勇士尽快赶来杀怪!
SENDMSG 10 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{中州安全区},请勇士尽快赶来杀怪!
SENDMSG 15 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{中州安全区},请勇士尽快赶来杀怪!

[@s002]
#IF
#act
Param1 SH000
Param2 20
Param3 45
MonGen 通天教主 1 20
MonGen 妖力士   4 20
MonGen 逆魔   1 20
MonGen 烈焰使   1 20
MonGen 炼狱魔君 1 20
MonGen 无相天魔 1 20
MonGen 黑袍修罗 2 20
MonGen 阿修罗神 1 20
MESSAGEBOX 当前操作成功!
SENDMSG 8 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{中州皇宫内},请勇士尽快赶来杀怪!
SENDMSG 10 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{中州皇宫内},请勇士尽快赶来杀怪!
SENDMSG 1 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{中州皇宫内},请勇士尽快赶来杀怪!
SENDMSG 15 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{中州皇宫内},请勇士尽快赶来杀怪!
[@s003]
#IF
#act
Param1 7
Param2 55
Param3 41
MonGen 通天教主 1 20
MonGen 妖力士   4 20
MonGen 逆魔   1 20
MonGen 烈焰使   1 20
MonGen 炼狱魔君 1 20
MonGen 无相天魔 1 20
MonGen 黑袍修罗 2 20
MonGen 阿修罗神 1 20
MESSAGEBOX 当前操作成功!
SENDMSG 8 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{死水沼泽安全区},请勇士尽快赶来杀怪!
SENDMSG 10 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{死水沼泽安全区},请勇士尽快赶来杀怪!
SENDMSG 15 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{死水沼泽安全区},请勇士尽快赶来杀怪!
[@s004]
#IF
#act
Param1 2
Param2 224
Param3 444
MonGen 通天教主 1 20
MonGen 妖力士   4 20
MonGen 逆魔   1 20
MonGen 烈焰使   1 20
MonGen 炼狱魔君 1 20
MonGen 无相天魔 1 20
MonGen 黑袍修罗 2 20
MonGen 阿修罗神 1 20
MESSAGEBOX 当前操作成功!
SENDMSG 8 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{热沙荒漠安全区},请勇士尽快赶来杀怪!
SENDMSG 10 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{热沙荒漠安全区},请勇士尽快赶来杀怪!
SENDMSG 1 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{热沙荒漠安全区},请勇士尽快赶来杀怪
SENDMSG 15 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{热沙荒漠安全区},请勇士尽快赶来杀怪!

[@s005]
新人点不对外操作任何一个函数 !\\
<返回/@功能>


[@s006]
#IF
#act
Param1 4
Param2 340
Param3 176
MonGen 通天教主 1 20
MonGen 妖力士   4 20
MonGen 逆魔   1 20
MonGen 烈焰使   1 20
MonGen 炼狱魔君 1 20
MonGen 无相天魔 1 20
MonGen 黑袍修罗 2 20
MonGen 阿修罗神 1 20
MESSAGEBOX 当前操作成功!
SENDMSG 8 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{禁地安全区},请勇士尽快赶来杀怪!
SENDMSG 10 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{禁地安全区},请勇士尽快赶来杀怪!
SENDMSG 1 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{禁地安全区},请勇士尽快赶来杀怪!
SENDMSG 15 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{禁地安全区},请勇士尽快赶来杀怪!
[@s007]
#IF
#act
Param1 6
Param2 171
Param3 119
MonGen 通天教主 1 20
MonGen 妖力士   4 20
MonGen 逆魔   1 20
MonGen 烈焰使   1 20
MonGen 炼狱魔君 1 20
MonGen 无相天魔 1 20
MonGen 黑袍修罗 2 20
MonGen 阿修罗神 1 20
MESSAGEBOX 当前操作成功!
SENDMSG 8 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{魔隐村安全区},请勇士尽快赶来杀怪!
SENDMSG 10 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{魔隐村安全区},请勇士尽快赶来杀怪!
SENDMSG 1 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{魔隐村安全区},请勇士尽快赶来杀怪!
SENDMSG 15 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{魔隐村安全区},请勇士尽快赶来杀怪
[@s008]
#IF
#act
Param1 5
Param2 462
Param3 109
MonGen 通天教主 1 20
MonGen 妖力士   4 20
MonGen 逆魔   1 20
MonGen 烈焰使   1 20
MonGen 炼狱魔君 1 20
MonGen 无相天魔 1 20
MonGen 黑袍修罗 2 20
MonGen 阿修罗神 1 20
MESSAGEBOX 当前操作成功!
SENDMSG 8 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{西域奇境安全区},请勇士尽快赶来杀怪!
SENDMSG 10 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{西域奇境安全区},请勇士尽快赶来杀怪!
SENDMSG 1 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{西域奇境安全区},请勇士尽快赶来杀怪!
SENDMSG 15 警告!警告!怪物攻城开始了,大量的怪物正在侵犯{西域奇境安全区},请勇士尽快赶来杀怪

[@s012]
#IF
#ACT
SENDMSG 8 警告!警告!恶魔军团即将对人类城市发起进攻,勇士们赶快做好战斗准备,{怪物攻城战}即将开始!
SENDMSG 10 警告!警告!恶魔军团即将对人类城市发起进攻,勇士们赶快做好战斗准备,{怪物攻城战}即将开始!
SENDMSG 1 警告!警告!恶魔军团即将对人类城市发起进攻,勇士们赶快做好战斗准备,{怪物攻城战}即将开始!

[@s013]
#IF
#ACT
SENDMSG 8 系统公告:{怪物攻城战}活动今天到此为止,下次开启时间,请留意系统公告。
SENDMSG 10 系统公告:{怪物攻城战}活动今天到此为止,下次开启时间,请留意系统公告。
SENDMSG 1 系统公告:{怪物攻城战}活动今天到此为止,下次开启时间,请留意系统公告。

[@gmmaster]

     <诗风网络联盟/@@urlgamem.5d6d.com>-<COLOR=GREEN 游盟版本>-专用GM管理平台\
---------------------------------------------------------\
管理员〖个人攻击倍数〗调整\\
</@100bei>       </@1000bei>       </@10000bei>      </@1000000bei>\\

---------------------------------------------------------\
<gamem.5d6d.com/@@urlgamem.5d6d.com> <color=green 诗风网络联盟奥运特别版>        <返回/@管理菜圃>

[@1000000bei]
#IF
ISADMIN
#ACT
POWERRATE 100000000 6000
#ACT
MessageBox 您当前攻击力倍数为1000000倍,有效时间6000秒。
Break

[@10000bei]
#IF
ISADMIN
#ACT
POWERRATE 1000000 6000
#ACT
MessageBox 您当前攻击力倍数为10000倍,有效时间600秒。
Break


[@1000bei]
#IF
ISADMIN
#ACT
POWERRATE 100000 6000
#ACT
MessageBox 您当前攻击力倍数为1000倍,有效时间6000秒。
Break


[@100bei]
#IF
ISADMIN
#ACT
POWERRATE 10000 6000
#ACT
MessageBox 您当前攻击力倍数为100倍,有效时间6000秒。
Break


[@防脱机]
你可以在这里对会员练级地图防挂机系统进行设置:\\
<COLOR=GREEN 目前防挂机系统状态:><$STR(G97)> 0为关闭、1为开启\\
开启该功能后,会员练级地图会在每30分钟内提示一个输入窗口,\
如果在一分钟内不输入或者输入错误将会被踢出游戏!\\
<开关防挂机系统/@挂机系统1>\
                       <返回上页/@管理菜圃>

[@挂机系统1]
#IF
LARGE G97 0
#ACT
MOV G97 0
SENDMSG 7 练级地图防挂机系统——关闭
goto @防脱机
break
#ELSEACT
MOV G97 1
SENDMSG 7 练级地图防挂机系统——开启
goto @防脱机
break

[@调等级]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
queryval 1 0 20 @getstring801213 请输入玩家的名字

[@getstring801213]
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKONLINE $STR(S1)
#ACT
queryval 2 0 20 @getstring801214 请输入你想给玩家增加的等级数
#ELSEACT
SENDMSG 5 玩家[<$STR(S1)>]当前不在线,不能调整等级!
break

[@getstring801214]
#ACT
MOV I14 $STR(S2)
#IF
CHECKONLINE $STR(S1)
#ACT
HCALL $STR(S1) @TZLEVEL
SENDMSG 5 你成功的给玩家[<$STR(S1)>]增加了等级[<$STR(I14)>]级
break
#ELSEACT
SENDMSG 5 玩家[<$STR(S1)>]当前不在线,不能调整等级!
break

[@调和03]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
queryval 1 0 20 @getstring17205 请输入玩家的名字

[@getstring17205]
#ACT
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKONLINE $STR(S1)
#ACT
queryval 2 0 20 @getstring17206 请输入你想给玩家增加的极品修炼值数量
#ELSEACT
SENDMSG 5 玩家[<$STR(S1)>]当前不在线,不能调整极品修炼值!
break

[@getstring17206]
#ACT
MOV I13 $STR(S2)
#IF
CHECKONLINE $STR(S1)
#ACT
HCALL $STR(S1) @ZJJZBSJ
SENDMSG 5 你成功的给玩家[<$STR(S1)>]增加了极品修炼值[<$STR(I13)>]个
break
#ELSEACT
SENDMSG 5 玩家[<$STR(S1)>]当前不在线,不能调整极品修炼值!
break


[@开区天]
#ACT
queryval 1 0 2 @getstring18823 请输入数字:
break

[@getstring18823]
#ACT
MOV G30 $STR(S1)
SENDMSG 7 你将开区天数设置成了:[<$STR(G30)>]天
break




[@加天1]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
queryval 1 0 20 @getstring5201 请输入玩家的名字

[@getstring5201]
#ACT
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKONLINE $STR(S1)
#ACT
queryval 2 0 20 @getstring5202 请输入你想给玩家增加的天关积分数量
#ELSEACT
SENDMSG 5 玩家[<$STR(S1)>]当前不在线,不能调整天关积分!
break

[@getstring5202]
#ACT
MOV I11 $STR(S2)
#IF
CHECKONLINE $STR(S1)
#ACT
HCALL $STR(S1) @ZJYYYSK1
SENDMSG 5 你成功的给玩家[<$STR(S1)>]增加了天关积分[<$STR(I11)>]个
break
#ELSEACT
SENDMSG 5 玩家[<$STR(S1)>]当前不在线,不能调天关积分!
break


[@加游1]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
queryval 1 0 20 @getstring5203 请输入玩家的名字

[@getstring5203]
#ACT
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKONLINE $STR(S1)
#ACT
queryval 2 0 20 @getstring5204 请输入你想给玩家增加的游戏积分数量
#ELSEACT
SENDMSG 5 玩家[<$STR(S1)>]当前不在线,不能调整游戏积分!
break

[@getstring5204]
#ACT
MOV I11 $STR(S2)
#IF
CHECKONLINE $STR(S1)
#ACT
HCALL $STR(S1) @ZJYYYSK2
SENDMSG 5 你成功的给玩家[<$STR(S1)>]增加了游戏积分[<$STR(I11)>]个
break
#ELSEACT
SENDMSG 5 玩家[<$STR(S1)>]当前不在线,不能调游戏积分!
break



[@加元1]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
queryval 1 0 20 @getstring5205 请输入玩家的名字

[@getstring5205]
#ACT
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKONLINE $STR(S1)
#ACT
queryval 2 0 20 @getstring5206 请输入你想给玩家增加的元宝数量
#ELSEACT
SENDMSG 5 玩家[<$STR(S1)>]当前不在线,不能调整元宝!
break

[@getstring5206]
#ACT
MOV I11 $STR(S2)
#IF
CHECKONLINE $STR(S1)
#ACT
HCALL $STR(S1) @1234567890
SENDMSG 5 你成功的给玩家[<$STR(S1)>]增加了元宝[<$STR(I11)>]个
break
#ELSEACT
SENDMSG 5 玩家[<$STR(S1)>]当前不在线,不能元宝!
break


[@刷新人型]
请选择人形怪刷新地图:(<COLOR=GREEN 主要增加假象人气作用>)\\
<中州安全区/@中州安全区> <落霞安全区/@落霞安全区> <死水安全区/@死水安全区>\\
<土城安全区/@土城安全区> <西域安全区/@西域安全区>\\
<炼狱魔六层/@炼狱魔六层>\\
<返回/@管理菜圃>

[@发送套装]
请选择你要发放给玩家的套装名字?\\
套装包含(头盔、项链、手镯、戒指、腰带、靴子,无武器和衣服)\\
发放<圣战套装/@发1>  <法神套装/@发2>  <天尊套装/@发3>  <蟠龙金甲/@发14>\
  <神武套装/@发4>  <幻魔套装/@发5>  <天玄套装/@发6>  <蟠龙金袍/@发15>\
  <战神套装/@发7>  <魔神套装/@发8>  <道神套装/@发9>\
  <血煞套装/@发10>  <魔雷套装/@发11>  <幽泉套装/@发12>\
  <暗神套装/@发13>              <返回上页/@管理菜圃>




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

[@发1]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 101
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发2]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 102
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发3]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 103
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发4]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 104
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发5]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 105
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发6]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 106
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发7]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 107
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发8]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 108
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发9]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 109
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发10]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 110
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发11]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 111
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发12]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 112
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发13]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 113
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发14]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 114
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字

[@发15]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
MOV I11 115
queryval 1 0 20 @getstring5732请输入发送[玩家]的名字


[@getstring5732]
#ACT
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKONLINE $STR(S1)
#ACT
HCALL $STR(S1) @套装发送01
messagebox 你成功给玩家:[<$STR(S1)>]发送了一套装备!
SENDMSG 7 你成功给玩家:[<$STR(S1)>]发送了一套装备!
break
#ELSEACT
SENDMSG 5 [<$STR(S1)>]当前不在线,不能发送装备!
break



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

[@发送物品]
#ACT
queryval 1 0 20 @getstring3411 请输入你想给玩家的[装备名字]
break

[@getstring3411]
#ACT
queryval 2 0 20 @getstring3412 请输入你想给玩家的[装备数量]
break

[@getstring3412]
#ACT
queryval 3 0 20 @getstring7413 请输入你想给物品的玩家名字
break

[@getstring7413]
#ACT
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKONLINE $STR(s3)
#ACT
CALCVAR GLOBAL Z49 = $STR(S1)
CALCVAR GLOBAL Z50 = $STR(S2)
hcall $STR(S3) @接收物品4
SENDMSG 7 发送物品成功...
goto @功能
break
#ELSEACT
messagebox 你所输入的玩家当前不在线
break

[@进隐1]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
CHANGEMODE 3 1
SENDMSG 7 你已经开启隐身模式!
break

[@进隐2]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
CHANGEMODE 2 1
SENDMSG 7 你已经开启无敌模式!
break

[@进隐3]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
CHANGEMODE 2 0
CHANGEMODE 3 0
SENDMSG 7 你已经退出了隐身和无敌模式!
break

[@名字和IP]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
queryval 1 0 20 @getstring12313 请输入你要封闭的玩家名字


[@getstring12313]
#ACT
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKONLINE $STR(S1)
#ACT
HCALL $STR(S1) @KFe45EWNZHI
SENDMSG 5 你成功的将玩家[<$STR(S1)>]的IP地址和角色名字封闭了!禁止他的IP登陆游戏!
break
#ELSEACT
SENDMSG 5 玩家[<$STR(S1)>]当前不在线,不能封闭他的登陆IP!
break

[@添加金牌来了]
请选择你想给玩家办理何种会员:\\
  <添加金牌帐号/@帐号T01>\\
                           <返回/@管理菜圃>

[@帐号T01]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
queryval 1 0 20 @getstring17311 请输入玩家的名字

[@getstring17311]
#ACT
ADDVARLIST $STR(S1) ..\QuestDiary\数据文件\金牌帐号.txt
HCALL $STR(S1) @JFLFPDTXL01
messagebox 你成功将玩家:[<$STR(S1)>]加入到了金牌帐号名单!
SENDMSG 7 你成功将玩家:[<$STR(S1)>]加入到了金牌帐号名单!
break



[@KLS45235423]
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
queryval 1 0 20 @getstring15153 请输入当前版本的管理密码
break
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
queryval 1 0 20 @getstring15153 请输入当前版本的管理密码
break

[@getstring15153]
#ACT
MOV S0 $BANKACCOUNT9
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
EQUAL S1 $STR(S0)
#ELSEACT
SENDMSG 5 (*)管理密码输入错误!禁止使用GM管理功能!
MessageBox 对不起,你所输入的管理密码错误,请重新输入!\管理密码,禁止使用GM功能
break
close
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
CHANGEPERMISSION 10
GOTO @管理菜圃
SENDMSG 5 (*)你是超级管理员,获得管理权限10
break
#IF
checknamelist ..\MapQuest_def\特色功能\管理名单.txt
#ACT
CHANGEPERMISSION 6
SENDMSG 5 (*)你是客服管理员,获得管理权限6
break



[@炼狱魔六层]
#ACT
MOV I66 0
MOV S11 炼狱
SENDMSG 5 (*)每次点击刷新10只人形怪!请间隔1分钟再重复操作!你本次选择在[炼狱魔六层]刷新!
GOTO @开始随人
break

[@中州安全区]
#ACT
MOV I66 0
MOV S11 中州
SENDMSG 5 (*)每次点击刷新10只人形怪!请间隔1分钟再重复操作!你本次选择在[中州安全区]刷新!
GOTO @开始随人
break

[@落霞安全区]
#ACT
MOV I66 0
MOV S11 落霞
SENDMSG 5 (*)每次点击刷新10只人形怪!请间隔1分钟再重复操作!你本次选择在[落霞安全区]刷新!
GOTO @开始随人
break

[@死水安全区]
#ACT
MOV I66 0
MOV S11 死水
SENDMSG 5 (*)每次点击刷新10只人形怪!请间隔1分钟再重复操作!你本次选择在[死水安全区]刷新!
GOTO @开始随人
break

[@土城安全区]
#ACT
MOV I66 0
MOV S11 土城
SENDMSG 5 (*)每次点击刷新10只人形怪!请间隔1分钟再重复操作!你本次选择在[土城安全区]刷新!
GOTO @开始随人
break

[@西域安全区]
#ACT
MOV I66 0
MOV S11 西域
SENDMSG 5 (*)每次点击刷新10只人形怪!请间隔1分钟再重复操作!你本次选择在[西域安全区]刷新!
GOTO @开始随人
break


[@开始随人]
#ACT
MOVR P1 16
MOV S0 @1随机字符
INC S0 $STR(P1)
GOTO $STR(S0)
break

[@1随机字符0]
#ACT
MOV S10 天
GOTO @2号位置
break

[@1随机字符1]
#ACT
MOV S10 小
GOTO @2号位置
break

[@1随机字符2]
#ACT
MOV S10 英
GOTO @2号位置
break

[@1随机字符3]
#ACT
MOV S10 雄
GOTO @2号位置
break

[@1随机字符4]
#ACT
MOV S10 我
GOTO @2号位置
break

[@1随机字符5]
#ACT
MOV S10 谁
GOTO @2号位置
break

[@1随机字符6]
#ACT
MOV S10 龙
GOTO @2号位置
break

[@1随机字符7]
#ACT
MOV S10 无
GOTO @2号位置
break

[@1随机字符8]
#ACT
MOV S10 帝
GOTO @2号位置
break

[@1随机字符9]
#ACT
MOV S10 菜
GOTO @2号位置
break

[@1随机字符10]
#ACT
MOV S10 龙
GOTO @2号位置
break

[@1随机字符11]
#ACT
MOV S10 你
GOTO @2号位置
break

[@1随机字符12]
#ACT
MOV S10 小
GOTO @2号位置
break

[@1随机字符13]
#ACT
MOV S10 大
GOTO @2号位置
break

[@1随机字符14]
#ACT
MOV S10 美
GOTO @2号位置
break

[@1随机字符15]
#ACT
MOV S10 帅
GOTO @2号位置
break

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

[@2号位置]
#ACT
MOVR P2 11
MOV S0 @2随机字符
INC S0 $STR(P2)
GOTO $STR(S0)
break

[@2随机字符0]
#ACT
INC S10 伟
GOTO @3号位置
break

[@2随机字符1]
#ACT
INC S10 哥
GOTO @3号位置
break

[@2随机字符2]
#ACT
INC S10 妹
GOTO @3号位置
break

[@2随机字符3]
#ACT
INC S10 下
GOTO @3号位置
break

[@2随机字符4]
#ACT
INC S10 王
GOTO @3号位置
break

[@2随机字符5]
#ACT
INC S10 世
GOTO @3号位置
break

[@2随机字符6]
#ACT
INC S10 尊
GOTO @3号位置
break

[@2随机字符7]
#ACT
INC S10 敌
GOTO @3号位置
break

[@2随机字符8]
#ACT
INC S10 杀
GOTO @3号位置
break

[@2随机字符9]
#ACT
INC S10 天
GOTO @3号位置
break

[@2随机字符10]
#ACT
INC S10 大
GOTO @3号位置
break

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

[@3号位置]
#ACT
MOVR P3 11
MOV S0 @随机符
INC S0 $STR(P3)
GOTO $STR(S0)
break

[@随机符0]
#ACT
INC S10 龙
GOTO @4号位置
break

[@随机符1]
#ACT
INC S10 凤
GOTO @4号位置
break

[@随机符2]
#ACT
INC S10 珠
GOTO @4号位置
break

[@随机符3]
#ACT
INC S10 帝
GOTO @4号位置
break

[@随机符4]
#ACT
INC S10 快
GOTO @4号位置
break

[@随机符5]
#ACT
INC S10 剑
GOTO @4号位置
break

[@随机符6]
#ACT
INC S10 刀
GOTO @4号位置
break

[@随机符7]
#ACT
INC S10 大
GOTO @4号位置
break

[@随机符8]
#ACT
INC S10 真
GOTO @4号位置
break

[@随机符9]
#ACT
INC S10 传
GOTO @4号位置
break

[@随机符10]
#ACT
INC S10 圣
GOTO @4号位置
break

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

[@4号位置]
#ACT
MOVR P4 16
MOV S0 @3随机字符
INC S0 $STR(P4)
GOTO $STR(S0)
break

[@3随机字符0]
#ACT
INC S10 一
GOTO @结束随字
break

[@3随机字符1]
#ACT
INC S10 王
GOTO @结束随字
break

[@3随机字符2]
#ACT
INC S10 你
GOTO @结束随字
break

[@3随机字符3]
#ACT
INC S10 界
GOTO @结束随字
break

[@3随机字符4]
#ACT
INC S10 名
GOTO @结束随字
break

[@3随机字符5]
#ACT
INC S10 乐
GOTO @结束随字
break

[@3随机字符6]
#ACT
INC S10 猪
GOTO @结束随字
break

[@3随机字符7]
#ACT
INC S10 空
GOTO @结束随字
break

[@3随机字符8]
#ACT
INC S10 大
GOTO @结束随字
break

[@3随机字符9]
#ACT
INC S10 果
GOTO @结束随字
break

[@3随机字符10]
#ACT
INC S10 舞
GOTO @结束随字
break

[@3随机字符11]
#ACT
INC S10 神
GOTO @结束随字
break

[@3随机字符12]
#ACT
INC S10 人
GOTO @结束随字
break

[@3随机字符13]
#ACT
INC S10 泰
GOTO @结束随字
break

[@3随机字符14]
#ACT
INC S10 爱
GOTO @结束随字
break

[@3随机字符15]
#ACT
INC S10 家
GOTO @结束随字
break

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

[@结束随字]
#IF
EQUAL S11 中州
#ACT
INC I66 1
GOTO @中州刷点
break
#IF
EQUAL S11 落霞
#ACT
INC I66 1
GOTO @落霞刷点
break
#IF
EQUAL S11 死水
#ACT
INC I66 1
GOTO @死水刷点
break
#IF
EQUAL S11 土城
#ACT
INC I66 1
GOTO @土城刷点
break
#IF
EQUAL S11 西域
#ACT
INC I66 1
GOTO @西域刷点
break
#IF
EQUAL S11 炼狱
#ACT
INC I66 1
GOTO @炼狱刷点
break

[@炼狱刷点]
#IF
random 3
#ACT
PARAM1 NL006
PARAM2 36
PARAM3 37
MonGen 28pk 1 10 $STR(S10)
GOTO @检查循环次数
break
#IF
random 2
#ACT
PARAM1 NL006
PARAM2 36
PARAM3 37
MonGen 28pk1 1 10 $STR(S10)
GOTO @检查循环次数
break
#IF
random 1
#ACT
PARAM1 NL006
PARAM2 36
PARAM3 37
MonGen 28pk2 1 10 $STR(S10)
GOTO @检查循环次数
break

[@西域刷点]
#IF
random 3
#ACT
PARAM1 5
PARAM2 461
PARAM3 107
MonGen 28pk 1 15 $STR(S10)
GOTO @检查循环次数
break
#IF
random 2
#ACT
PARAM1 5
PARAM2 461
PARAM3 107
MonGen 28pk1 1 15 $STR(S10)
GOTO @检查循环次数
break
#IF
random 1
#ACT
PARAM1 5
PARAM2 461
PARAM3 107
MonGen 28pk2 1 15 $STR(S10)
GOTO @检查循环次数
break

[@死水刷点]
#IF
random 3
#ACT
PARAM1 7
PARAM2 55
PARAM3 39
MonGen 28pk 1 8 $STR(S10)
GOTO @检查循环次数
break
#IF
random 2
#ACT
PARAM1 7
PARAM2 55
PARAM3 39
MonGen 28pk1 1 8 $STR(S10)
GOTO @检查循环次数
break
#IF
random 1
#ACT
PARAM1 7
PARAM2 55
PARAM3 39
MonGen 28pk2 1 8 $STR(S10)
GOTO @检查循环次数
break

[@土城刷点]
#IF
random 3
#ACT
PARAM1 2
PARAM2 222
PARAM3 444
MonGen 28pk 1 15 $STR(S10)
GOTO @检查循环次数
break
#IF
random 2
#ACT
PARAM1 2
PARAM2 222
PARAM3 444
MonGen 28pk1 1 15 $STR(S10)
GOTO @检查循环次数
break
#IF
random 1
#ACT
PARAM1 2
PARAM2 222
PARAM3 444
MonGen 28pk2 1 15 $STR(S10)
GOTO @检查循环次数
break

[@落霞刷点]
#IF
random 3
#ACT
PARAM1 1
PARAM2 236
PARAM3 249
MonGen 28pk 1 15 $STR(S10)
GOTO @检查循环次数
break
#IF
random 2
#ACT
PARAM1 1
PARAM2 236
PARAM3 249
MonGen 28pk1 1 15 $STR(S10)
GOTO @检查循环次数
break
#IF
random 1
#ACT
PARAM1 1
PARAM2 236
PARAM3 249
MonGen 28pk2 1 15 $STR(S10)
GOTO @检查循环次数
break

[@中州刷点]
#IF
random 3
#ACT
PARAM1 0
PARAM2 470
PARAM3 225
MonGen 28pk 1 13 $STR(S10)
GOTO @检查循环次数
break
#IF
random 2
#ACT
PARAM1 0
PARAM2 470
PARAM3 225
MonGen 28pk1 1 13 $STR(S10)
GOTO @检查循环次数
break
#IF
random 1
#ACT
PARAM1 0
PARAM2 470
PARAM3 225
MonGen 28pk2 1 13 $STR(S10)
GOTO @检查循环次数
break

[@检查循环次数]
#IF
LARGE I66 10
#ELSEACT
delaycall 0 @开始随人
break


jz641268 发表于 2022-10-9 04:45:59

我只是路过打酱油的。

yaosine 发表于 2022-10-10 01:27:59

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

1gk 发表于 2022-10-11 03:28:53

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

czfngfu 发表于 2022-10-13 18:30:06

真是难得给力的帖子啊。

meidou. 发表于 2022-10-14 01:56:38

真是难得给力的帖子啊。

fgfvdfdfdf 发表于 2022-10-14 02:46:02

看到这帖子真是高兴!

qiya12345 发表于 2022-10-15 19:12:26

淡定,淡定,淡定……

lixi19901223 发表于 2022-10-19 07:28:54

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

yy86624092 发表于 2022-10-19 08:36:27

楼主加油,我们都看好你哦。
页: [1] 2
查看完整版本: 传奇世界开放测试装备领取功能脚本