查广告 idc yun qq 301传奇论坛 biue 教学 11 idc服务器 cz
查看: 46|回复: 6

[GOM引擎脚本] 传奇自定义指令超级管理指令

[复制链接]

该用户从未签到

68

主题

91

帖子

66万

积分

蓝胖子版主

Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88Rank: 88

积分
666490

最佳新人活跃会员热心会员推广达人灌水之王突出贡献优秀版主荣誉管理论坛元老

发表于 2020-8-21 22:07:02 | 显示全部楼层 |阅读模式
QQ图片20200821220128.png

QQ截图20200821220341.png



游戏里 管理向玩家发送 变量 称号 货币 系统脚本


[@自定义命令jj]
{

;本服情况du
[@usercmd1]
#IF
CheckTextList ..\QuestDiary\青龙调用\管理后台\超级管理机器码.txt <$MACHINEID>
#act
OPENMERCHANTBIGDLG 6 188 1 4 0 -75 1 570 30
goto @管理界面
break


[@管理界面]
#if
#act
break
#say
<>\ \ \
<>            <RMB提货--------------------------------------------------------------------->\
<>            <管理赠送RMB系统,请谨慎使用> \
<>            <输入人物名字:/@@InPutString17>:您输入的名字为:<$STR(S17)>  \
<>            <输入要提货RMB数量:/@@InPutInteger17>:您输入的RMB数量为:<$STR(N17)>   \
<>                                     <【确定提货】/@确定提货>\  \


<>            <特殊功能--------------------------------------------------------------------->\ \
<>            <抓监狱功能|输入名字即可抓/@@InPutString40>      <释放监狱玩家|输入名字即可释放/@@InPutString41>    <封机器码功能|输入名字即可封/@@InPutString15>   <赠送会员|输入名字即可赠送/@@InPutString19>   <清除手机二级|输入名字即可清除/@@InPutString18>\ \
<>            <团长功能--------------------------------------------------------------------->\ \
<>            <人物名字:|输入姓名/@@InPutString14><$STR(S14)>
<>        <发送元宝:|您只需要写入数量即可,输入多少送多少/@@InPutInteger14><$STR(N14)>个
<>        <发送RMB:|发送RMB比例为1:1^您只需要写入RMB数量即可/@@InPutInteger15><$STR(N15)>RMB
<>        <确定赠送|点击<$STR(S14)>将获得:^<$STR(N14)>个元宝^<$STR(N15)>RMB(<$STR(n$实得钻石)>)/@确定团长赠送>\ \


<>            <消耗产出----------------------------------------------------------------><->\
<>            <查看详细/@产出详细>      \

<>            <查询行会/@行会统计0902>  <改名人物/@@InputString42(请输入原名:)>-<输入新名字/@@InputString43(请输入原名:)>    {<$str(S42)> 修改成 <$STR(S43)>/fcolor=253}         <确定修改/@修改名字OK> \ \
<>            <称号赠送----------------------------------------------------------------><->\
<>            <万佛赠送|输入名字即可赠送/@@InPutString51>      <满魔赠送|输入名字即可赠送/@@InPutString52>      <时装之魂赠送|输入名字即可赠送/@@InPutString53>      <斗破装备必成|输入名字即可赠送/@@InPutString54>      <品质复制/@转移>   \


[@InputString56]
#IF
Equal S56
#ACT
SENDMSG 6 请输入一个正确的名称
Break

#if
<$STR(S56)>.checkonline
#act
S56.MOV N$归零x 0
S56.GOTO @循环归零x
SENDMSG 6 开始执行!!
break
#elseact
messagebox 没在线!无法转区!


[@循环归零x]
#IF
#ACT
SENDMSG 6 6

#if
equal N$归零x 17
#act
BREAK



#IF
EQUAL N$归零x 1
#act

CHANGEITEMADDVALUE 1 0 = 0
CHANGEITEMADDVALUE 1 1 = 0
CHANGEITEMADDVALUE 1 2 = 0
CHANGEITEMUPGRADECOUNT 1 = 0

INC N$归零x 1
GOTO @循环归零x
BREAK

#IF
#ACT
CHANGEITEMADDVALUE <$STR(N$归零x)> 2 = 0
CHANGEITEMADDVALUE <$STR(N$归零x)> 3 = 0
CHANGEITEMADDVALUE <$STR(N$归零x)> 4 = 0
CHANGEITEMUPGRADECOUNT <$STR(N$归零x)> = 0
INC N$归零x 1
GOTO @循环归零x
BREAK


[@InPutString53]
#IF
Equal S53
#ACT
SENDMSG 6 请输入一个正确的名称
Break

#if
<$STR(S53)>.checkonline
#act
S53.DEPRIVETITLE 时装之魂Lv.1
S53.DEPRIVETITLE 时装之魂Lv.2
S53.DEPRIVETITLE 时装之魂Lv.3
S53.DEPRIVETITLE 时装之魂Lv.4
S53.DEPRIVETITLE 时装之魂Lv.5
S53.DEPRIVETITLE 时装之魂Lv.6
S53.DEPRIVETITLE 时装之魂Lv.7
S53.DEPRIVETITLE 时装之魂Lv.8
S53.DEPRIVETITLE 时装之魂Lv.9
S53.DEPRIVETITLE 时装之魂MAX
S53.CONFERTITLE 时装之魂MAX
S53.MESSAGEBOX 恭喜您获得时装之魂MAX,小退一下即可!!!
messagebox 发送成功!
break
#elseact
messagebox 没在线!


[@InPutString54]
#IF
Equal S54
#ACT
SENDMSG 6 请输入一个正确的名称
Break


#if
<$STR(S54)>.checkonline
#act
S54.mov U43 5
S54.mov U44 5
S54.mov U45 5
S54.mov U46 5
messagebox 发送成功!
break
#elseact
messagebox 没在线!

[@InPutString55]
#IF
Equal S55
#ACT
SENDMSG 6 请输入一个正确的名称
Break


#if
<$STR(S55)>.checkonline
#act
S55.mov U1 7
S55.DEPRIVETITLE 锋芒毕露
S55.DEPRIVETITLE 一代宗师
S55.DEPRIVETITLE 名震八方
S55.DEPRIVETITLE 独孤求败
S55.DEPRIVETITLE 一花一世界
S55.DEPRIVETITLE 一草一天堂
S55.DEPRIVETITLE 一木一浮生
S55.DEPRIVETITLE 一道一乾坤
S55.DEPRIVETITLE 一叶一如来
S55.DEPRIVETITLE 一念一永恒
S55.DEPRIVETITLE 斩破红尘
S55.DEPRIVETITLE 万佛朝宗
S55.CONFERTITLE 一木一浮生
S55.MESSAGEBOX 恭喜您获得一木一浮生成功,小退一下即可!!!
messagebox 发送成功!
break
#elseact
messagebox 没在线!



[@兑换会员sdd]
#IF
check [888] 0
#ACT
SET [888] 1
CONFERTITLE [苍穹]至尊VIP
SetIcon 0 6 60 -40 -26 20 0 200 0
give 经验宝箱 50
GAMEGOLD + 500000
SENDMOVEMSG 0 249 251 115 1 恭喜{<$username>/fcolor=250}成为本服:{至尊VIP/fcolor=70},获得强大属性,可喜可贺(还没购买的小伙伴抓紧了)!!!
MESSAGEBOX 恭喜您成为本服至尊VIP!!属性即使生效!
break




[@jiazai]
#if
#act
#call [..\QuestDiary\行会统计配置\行会统计脚本.txt] @行会统计0902


[@InPutString51]
#IF
Equal S51
#ACT
SENDMSG 6 请输入一个正确的名称
Break
#if
<$STR(S51)>.checkonline
#act
S51.mov U1 12
S51.DEPRIVETITLE 锋芒毕露
S51.DEPRIVETITLE 一代宗师
S51.DEPRIVETITLE 名震八方
S51.DEPRIVETITLE 独孤求败
S51.DEPRIVETITLE 一花一世界
S51.DEPRIVETITLE 一草一天堂
S51.DEPRIVETITLE 一木一浮生
S51.DEPRIVETITLE 一道一乾坤
S51.DEPRIVETITLE 一叶一如来
S51.DEPRIVETITLE 一念一永恒
S51.DEPRIVETITLE 斩破红尘
S51.DEPRIVETITLE 万佛朝宗
S51.CONFERTITLE 万佛朝宗
S51.MESSAGEBOX 恭喜你获得称号万佛朝宗,小退一下即可!!!
messagebox 发送成功!
break
#elseact
messagebox 没在线

[@InPutString52]
#IF
Equal S52
#ACT
SENDMSG 6 请输入一个正确的名称
Break
#if
<$STR(S52)>.checkonline
#act
S52.mov u23 1200
S52.MESSAGEBOX 恭喜你获得满魔积分,直接保底领取!!!
messagebox 发送成功!
break
#elseact
messagebox 没在线



[@InputString42]
#IF
Equal S42
#ACT
SENDMSG 6 请输入一个正确的名称
Break

#OR
CheckStringlength S42 > 20
CheckStringlength S42 < 4
#ACT
mov S42
SENDMSG 6 输入名称长度不正确2-10个中文!
Break
#if
#act
goto @管理界面


[@InputString43]
#IF
Equal S42
#ACT
SENDMSG 6 请先输入原名称的名称
Break


#IF
Equal S43
#ACT
SENDMSG 6 请输入一个正确的名称
Break

#OR
CheckStringlength S43 > 20
CheckStringlength S43 < 4
#ACT
SENDMSG 6 输入名称长度不正确
Break

#IF
#ACT
S42.MOVEX S$返回人物 <$USERNAME>
S42.MOVEX S43 <$STR(S43)>
S42.QUERYHUMNAMEEXIST S43
GOTO @管理界面
BREAK

[@修改名字OK]
#IF
EQUAL S42
#ACT
MessageBox 请输入玩家原名字!
BREAK
#IF
EQUAL S43
#ACT
MessageBox 请输入玩家新的名字!
BREAK


#IF
#ACT
S42.MOVEX S$返回人物 <$USERNAME>
S42.CHANGEHUMNAME S43






[@产出详细]

#IF
#ACT
MOV S$消耗元宝 <$STR(G300)>
MOV S$消耗钻石 <$STR(G301)>

#if
large G300 9999
#act
div n$临时数据1 <$STR(G300)> 10000
mov S$消耗元宝 <$str(n$临时数据1)>万
mul n$临时数据2 <$str(n$临时数据1)> 10000
mov n$临时数据3 <$STR(G300)>
dec n$临时数据3 <$str(n$临时数据2)>
inc S$消耗元宝 <$str(n$临时数据3)>

#if
large G301 9999
#act
div n$临时数据1 <$STR(G301)> 10000
mov S$消耗钻石 <$str(n$临时数据1)>万
mul n$临时数据2 <$str(n$临时数据1)> 10000
mov n$临时数据3 <$STR(G301)>
dec n$临时数据3 <$str(n$临时数据2)>
inc S$消耗钻石 <$str(n$临时数据3)>


#IF
EQUAL A300
#ACT
MOV A300 0


#IF
EQUAL A301
#ACT
MOV A301 0

#if
#act

MOV N$产出累计 <$STR(G320)>
INC N$产出累计 <$STR(G321)>
INC N$产出累计 <$STR(G322)>
INC N$产出累计 <$STR(G323)>
INC N$产出累计 <$STR(G324)>
INC N$产出累计 <$STR(G325)>
INC N$产出累计 <$STR(G330)>
#say
<>\ \ \
<>            <┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈>\
<>            全服已产出统计查看: {统计日期/fcolor=250}【<$str(A308)> 至 <$YEAR>-<$MONTH>-<$DAY>(<$HOUR>:<$MINUTE>)】\ \
<>            
<>            <┊/fcolor=10><元宝产出:/fcolor=251><┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/fcolor=10>\
<>            <┊/fcolor=10><装备回收:/fcolor=254>{<$str(G310)>/fcolor=249}个        <掉落元宝:/fcolor=254>{<$str(G311)>/fcolor=249}个   \

<>            <┊/fcolor=10><兑换元宝:/fcolor=254>{<$str(G324)>/fcolor=251}个        <NPC元宝:/fcolor=254>{<$str(G312)>/fcolor=249}个\
<>            <┊/fcolor=10><钻石产出:/fcolor=253><┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/fcolor=10>\
<>            <┊/fcolor=10><怪物首杀:/fcolor=254>{<$str(G320)>/fcolor=249}个        <装备首爆:/fcolor=254>{<$str(G321)>/fcolor=249}个\
<>            <┊/fcolor=10><永久回收:/fcolor=254>{<$str(G322)>/fcolor=253}个        <掉落钻石:/fcolor=254>{<$str(G323)>/fcolor=70}个\
<>            <┊/fcolor=10> <狂暴产出:/fcolor=254>{<$str(G325)>/fcolor=70}个\
<>            <┊/fcolor=10><筹码产出:/fcolor=70><┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/fcolor=10>\
<>            <┊/fcolor=10><实物产出:/fcolor=254>{<$str(G330)>|^棒棒糖:<$str(G340)>^辣条包:<$str(G341)>^打火机:<$str(G331)>个^口香糖:<$str(G332)>个^冰红茶:<$str(G333)>个^脉动:<$str(G334)>个^红牛:<$str(G335)>个^云烟:<$str(G336)>个^芙蓉王:<$str(G337)>个^中华:<$str(G338)>个^雷蛇键盘:<$str(G339)>个/fcolor=249}个\
<>            <┊┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/fcolor=10>\
<>            <┊产出累计: <$STR(N$产出累计)>\
<>            <└┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/fcolor=10>\

<>            全服已消耗元宝查看:{统计日期/fcolor=250}【<$str(A309)> 至 <$YEAR>-<$MONTH>-<$DAY>(<$HOUR>:<$MINUTE>)】 \
<>            <┌┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/fcolor=10>\
<>            <┊/fcolor=10><已消耗元宝:/fcolor=251><$str(A300)>亿<$str(S$消耗元宝)> \
<>            <┊/fcolor=10><已消耗钻石:/fcolor=251><$str(A301)>亿<$str(S$消耗钻石)> \
<>            <┊┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/fcolor=10>\
<>            <┊/fcolor=10><查询玩家消耗:/fcolor=253><输入名字|输入名字直接显示/@@InPutString42>   <继续更新/@查询玩家消耗>:<$str(S42)>\
<>            <┊/fcolor=10> \
<>            <┊/fcolor=10><查询玩家结果:/fcolor=253><$str(S$消耗结果)>\
<>            <└┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/fcolor=10>\ \ \
<>            <返回首页/@管理界面>       <刷新数据/@产出详细>      <清除产出/@产出C>      <清除消耗/@消耗C>


[@查询玩家消耗]
#if
equal S42
#act
messagebox 请输入名字!
break

#if
<$STR(S42)>.checkonline
#act
hcall <$STR(S42)> @执行消耗数据
GetRandomText ..\QuestDiary\1.0管理后台\0.临时数据.txt S$消耗结果
goto @产出详细
sendmsg 6 查询玩家消耗成功!
#elseact
messagebox <$STR(S42)>没在线,无法查询!


[@产出C]
#if
#act
messagebox 你确定清除产出吗?此操作不可逆!!  @产出COK  @取消


[@产出COK]
#if
#act
mov G310 0
mov G311 0
mov G312 0
mov G320 0
mov G321 0
mov G322 0
mov G323 0
mov G330 0
mov G331 0
mov G332 0
mov G333 0
mov G334 0
mov G335 0
mov G336 0
mov G337 0
mov G338 0
mov G339 0
mov G324 0
mov G325 0
mov G340 0
mov G341 0
mov A308 <$YEAR>-<$MONTH>-<$DAY>(<$HOUR>:<$MINUTE>)
messagebox 清除产出成功!
goto @产出详细
break

[@消耗C]
#if
#act
messagebox 你确定清除消耗吗?此操作不可逆!!  @消耗COK  @取消


[@消耗COK]
#if
#act
mov G300 0
mov G301 0
mov A300 0
mov A301 0
mov A309 <$YEAR>-<$MONTH>-<$DAY>(<$HOUR>:<$MINUTE>)
messagebox 清除消耗成功!
goto @产出详细
break




[@InPutString19]
#if
equal S19
#act
break

#if
<$STR(S19)>.checkonline
<$STR(S19)>.check [888] 1
#act
messagebox <$STR(S19)>已经是会员了!无须增加!
break



#IF
#ACT
MOV N$当前区 0
#IF
CheckContainsText <$SERVERNAME> 01
#ACT
mov N$当前区 1


#IF
CheckContainsText <$SERVERNAME> 02
#ACT
mov N$当前区 2

#IF
CheckContainsText <$SERVERNAME> 03
#ACT
mov N$当前区 3

#IF
CheckContainsText <$SERVERNAME> 04
#ACT
mov N$当前区 4

#IF
<$STR(S19)>.checkonline

#ACT

AddTextListEx ..\QuestDiary\0.0开区清空文本\9.主播姓名.txt <$STR(S19)> 0
S19.goto @兑换会员sdd
messagebox \\赠送成功!
#ELSEACT
messagebox \\对不起,您输入的玩家不在线
BREAK

[@usercmd50]
#if
checknamelist ..\QuestDiary\0.0开区清空文本\9.主播姓名.txt
#act
mapmove 地图124
#say
<> \ \
回收号之前,请将仓库,商铺,身上的,装备材料全部放入背包!\ \
系统自动清理背包-元宝、钻石、等级、转生、并记录备用!\ \
技术不定时抽查~望各位主播配合!\ \

<确定无误开始删除/@主播删除OK>  <稍等我整理一下/@exit>

[@主播删除OK]
#if
checknamelist ..\QuestDiary\0.0开区清空文本\9.主播姓名.txt
#act
GMEXECUTE 清理背包 <$username>
mov s$主播删除 <$username>:<$DATETIME>:回收<$gamegold>元宝:回收<$gamepoint>钻石:回收<$LEVEL>等级:回收<$RELEVEL>转生:
AddTextListEx ..\QuestDiary\0.0开区清空文本\9.主播删除.txt <$STR(s$主播删除)> 0
gamegold = 0
gamepoint = 0
CHANGELEVEL = 50
RestRenewLevel
delnamelist ..\QuestDiary\0.0开区清空文本\9.主播姓名.txt
messagebox 恭喜处理成功!可以下线了!
break



[@InPutString18]
#if
equal S18
#act
break


#IF
<$STR(S18)>.checkonline
#ACT
<$STR(S18)>.MOV T0
<$STR(S18)>.MOV T2
<$STR(S18)>.MOV T3
<$STR(S18)>.MOV T4
messagebox \\清理成功
#ELSEACT
messagebox \\对不起,您输入的玩家不在线
BREAK
[@InPutString14]
#if
#act
goto @管理界面
break

[@InPutInteger14]
#IF
small N14 10000
#ACT
MOV N14 0
messagebox \\输入错误,请输入大于9999.小于10000000的数字
#IF
large N14 1000000000
#ACT
MOV N14 0
messagebox \\输入错误,请输入大于9999.小于1000000000的数字


#if
#act
goto @管理界面
break
[@InPutInteger15]
#if
#act
MUL n$实得钻石 <$STR(N15)> 1
goto @管理界面
break
[@确定团长赠送]
#if
equal s14
#act
messagebox \\您还没有输入团长名字
break

#IF
equal N14 0
equal N15 0
#ACT
messagebox \\你至少要输入1种货币呀!
goto @管理界面
BREAK


#IF
not <$STR(S14)>.checkonline
#ACT
messagebox \\玩家[<$STR(S14)>]不在线
MOV S14
MOV N14 0
MOV N15 0
goto @管理界面
break


#if
large N14 0
#act
MOV <$STR(N$发送元宝数量)> <$STR(N14)>
<$STR(S14)>.MOVEX <$STR(N$获得元宝数量)> <$STR(N$发送元宝数量)>
<$STR(S14)>.GAMEGOLD + <$STR(N$获得元宝数量)>
;FYPlayerExpGameGold GM赠送元宝 <$STR(N$发送元宝数量)> <$GUILDNAME> 1
MOV S$赠送记录 <$SERVERNAME> <$username> 发送给 <$STR(S14)> <$STR(N$发送元宝数量)> 元宝 <$YEAR>年<$MONTH>月<$DAY>日<$HOUR>点<$MINUTE>分<$SECOND>秒!
AddTextListEx ..\QuestDiary\钻石发送数据\发送药钱数据(元宝币).TXT <$str(S$赠送记录)> 0
messagebox 发送成功.玩家【<$STR(S14)>】获得【<$STR(N$发送元宝数量)>】元宝
<$STR(S14)>.messagebox \\您获得来自管理员的元宝【<$STR(N$获得元宝数量)>】个
MOV N14 0

#if
large N15 0
#act

MOV <$STR(N$发送钻石数量)> <$STR(n$实得钻石)>
<$STR(S14)>.MOVEX <$STR(N$获得钻石数量)> <$STR(N$发送钻石数量)>
<$STR(S14)>.GAMEpoint + <$STR(N$获得钻石数量)>
;FyPlayerGird GM赠送钻石 <$STR(N$发送钻石数量)> <$GUILDNAME> 1
MOV S$赠送记录 <$SERVERNAME> <$username> 发送给 <$STR(S14)> <$STR(N15)>RMB  共计 <$STR(N$发送钻石数量)> 钻石 <$YEAR>年<$MONTH>月<$DAY>日<$HOUR>点<$MINUTE>分<$SECOND>秒!
AddTextListEx ..\QuestDiary\钻石发送数据\发送药钱数据(钻石).TXT <$str(S$赠送记录)> 0
messagebox 发送成功.玩家【<$STR(S14)>】获得【<$STR(N$发送钻石数量)>】钻石
<$STR(S14)>.messagebox \\您获得来自管理员的RMB【<$STR(N$获得钻石数量)>】个
MOV N15 0
mov n$实得钻石 0
#if
#act
goto @管理界面






[@确定提货]
#IF
equal S17
#ACT
messagebox \\您还没有输入商行名字
goto @管理界面
BREAK

#IF
equal N17 0
#ACT
messagebox \\你还没输入提货RMB数量
goto @管理界面
BREAK

#IF
<$STR(S17)>.checkonline
#ACT
MOV N18 <$STR(N17)>
MUL N18 1
MOV <$STR(N$提货数量)> <$STR(N18)>
<$STR(S17)>.MOVEX <$STR(N$收到数量)> <$STR(N$提货数量)>
<$STR(S17)>.MOVEX <$STR(N$人民币数)> <$STR(N17)>
<$STR(S17)>.GAMEPOINT + <$STR(N$收到数量)>
;FyGamegoldSend <$STR(S17)> GM发货  <$STR(N$提货数量)>
MOV S$提货记录 <$SERVERNAME> <$username> 提货给商行 <$STR(S17)> <$STR(N17)>RMB 共计 <$STR(N$提货数量)> 钻石 <$YEAR>年<$MONTH>月<$DAY>日<$HOUR>点<$MINUTE>分<$SECOND>秒!
AddTextListEx ..\QuestDiary\钻石发送数据\商行提货数据(钻石).TXT <$str(S$提货记录)> 0
messagebox 发送成功.商行【<$STR(S17)>】获得【<$STR(N17)>RMB】.共计【<$STR(N$提货数量)>】钻石
<$STR(S17)>.messagebox \\您获得来自管理员提货【<$STR(N$人民币数)>RMB】共计【<$STR(N$收到数量)>】个钻石

MOV S17
MOV N17 0
MOV N18 0
goto @管理界面
BREAK
#ELSEACT
messagebox \\玩家[<$STR(S17)>]不在线
MOV S17
MOV N17 0
MOV N18 0
goto @管理界面
BREAK


[@InPutString17]
#IF
<$STR(S17)>.checkonline
#ACT
messagebox \\您输入的商行名字为:<$STR(S17)>
goto @管理界面
#ELSEACT
messagebox \\对不起,您输入的玩家不在线
MOV S17
MOV N17 0
goto @管理界面

[@InPutInteger17]
#IF
small N17 1
#ACT
MOV N17 0
messagebox \\输入错误,请输入大于0.小于50000的数字
goto @管理界面
BREAK
#IF
large N17 49999
#ACT
MOV N17 0
messagebox \\输入错误,请输入大于0.小于50000的数字
goto @管理界面
BREAK
#IF
<$STR(S17)>.checkonline
#ACT
messagebox \\您输入的RMB数量为:<$STR(N17)>
goto @管理界面
BREAK



[@InPutString15]
#IF
<$STR(S15)>.checkonline
#ACT
AddTextListEx ..\QuestDiary\青龙调用\封机器码名单.txt <$STR(S15)>
<$STR(S15)>.AddTextListEx ..\QuestDiary\青龙调用\禁止登录机器码.txt <$STR(S$机器码)>
<$STR(S15)>.KICK
goto @管理界面
messagebox 操作成功,踢下线并封机器码!
#ELSEACT
messagebox \\对不起,您输入的玩家不在线
BREAK




[@InPutString42]
#if
<$STR(S42)>.checkonline
#act
hcall <$STR(S42)> @执行消耗数据
GetRandomText ..\QuestDiary\1.0管理后台\0.临时数据.txt S$消耗结果
goto @产出详细
sendmsg 6 查询玩家消耗成功!
break
#elseact
messagebox <$STR(S42)>没在线,无法查询!



[@InPutString41]
#IF
<$STR(S41)>.checkonline
#ACT
<$STR(S41)>.MAP 3
<$STR(S41)>.SET [2] 0
<$STR(S41)>.SETOFFTIMER 223
DELTextList ..\QuestDiary\青龙开区清区文本\脱机玩家名单.txt <$STR(S41)>
goto @管理界面
MessageBox \\释放成功
#ELSEACT
MessageBox \\您输入的玩家不在线



[@InPutString40]
#IF
<$STR(S40)>.checkonline
#ACT
<$STR(S40)>.MAP JYDT
<$STR(S40)>.SET [2] 1
<$STR(S40)>.SETONTIMER 223 1
AddTextList ..\QuestDiary\青龙开区清区文本\脱机玩家名单.txt <$STR(S40)>
goto @管理界面
MessageBox \\抓捕成功
#ELSEACT
MessageBox \\您输入的玩家不在线





[@usercmd33]
#if
CHECKTEXTLIST ..\QuestDiary\青龙调用\管理后台\商行名单.txt <$username>
#act
#CALL [\青龙调用\管理后台\商行后台.txt] @商行脚本
break



[@钻石回收统计]
#if
large U33 99999999
#act
dec U33 100000000
MOV n$回收钻石 0
mov n$回收钻石 <$str(T33)>
INC n$回收钻石 1
MOV T33 <$STR(n$临时钻石)>
break


[@行会回收]
#IF
HAVEGUILD
#ACT
CALCVAR GUILD 行会回收数量 + <$STR(N$行会回收)>
SAVEVAR GUILD 行会回收数量 ..\QUESTDIARY\行会统计配置\行会数据统计.txt
mov N$行会回收 0

[@usercmd11]
#if
#act
#CALL [\FY.系列脚本\自助提现\NPC.txt]  @RMB赠送
break

[@转移]
#if
#act
ReturnBoxItem 0
ReturnBoxItem 3
#say
<>\
<>                                               <品质转移/fcolor=251>\ \ \


<>           <品质转移说明:/fcolor=161>\ \

<>                          1.放入带有<传说(包含传说品质)/fcolor=251>品质以上的装备才可以转移! \
<>                          2.转移目标的品质必须低于放入装备的品质! \
<>                          3.转移后1号框装备品质消失,2号框装备继承1号框装备品质属性! \ \ \ \

<>           <请分别放入装备:> \

<>                                放入装备:                   转移目标:\
<>                               <ITEMBOX:1:6:580:-8:-10:76:76:*:250#放入装备 !>   <ITEMBOX:2:6:580:65:-10:76:76:*:250#放入装备 !>\

<>                                             <品质转移>\
<>                                          -------------->\  \

<>                                   需要转移的品质为:<传说/fcolor=251>以上 \  \


<>                                        <imgex:6:204:204:205:20:-8|146#转移费用:1000钻石/@转移品质OK>\ \
<>                                               \ \




[@转移品质OK]
#or
equal <$BOXITEM[1].NAME>
equal <$BOXITEM[2].NAME>
#act
messagebox 请放入装备!
break



#if
not CHECKTEXTLIST ..\QuestDiary\0.2其他文件\装备等级\0.txt <$BOXITEM[1].NAME>
#act
ReturnBoxItem 1
messagebox 当前物品不支持!
break

#if
#ACT
mov S$当前品质 <$BOXITEM[1].NAME_G>
DEC S$当前品质 <$BOXITEM[1].NAME>
mov S$鉴定名字 <$BOXITEM[1].NAME>


#if
not CHECKTEXTLIST ..\QuestDiary\0.2其他文件\装备等级\0.txt <$BOXITEM[2].NAME>
#act
ReturnBoxItem 2
messagebox 当前物品不支持!
break

#if
#ACT
mov S$当前品质2 <$BOXITEM[2].NAME_G>
DEC S$当前品质2 <$BOXITEM[2].NAME>
mov S$鉴定名字2 <$BOXITEM[2].NAME>




#if
equal N$转移成功 1
#act
messagebox 转移成功,请取下转移装备!
break

#if
#act
mov n$当前品质 0
mov n$当前品质2 0

#if
EQUAL S$当前品质 [传说]
#act
mov n$当前品质 1

#if
EQUAL S$当前品质 [神圣]
#act
mov n$当前品质 2

#if
EQUAL S$当前品质 [至尊]
#act
mov n$当前品质 3

#if
EQUAL S$当前品质2 [传说]
#act
mov n$当前品质2 1

#if
EQUAL S$当前品质2 [神圣]
#act
mov n$当前品质2 2

#if
EQUAL S$当前品质2 [至尊]
#act
mov n$当前品质2 3


#if
equal n$当前品质 0
#act
messagebox 只有转移传说以上的装备!
break

#if
equal n$当前品质 <$str(n$当前品质2)>
#act
messagebox 无法转移,装备品质一样1<$str(n$当前品质)>=<$str(n$当前品质2)>!
break


#if
SMALL n$当前品质 <$str(n$当前品质2)>
#act
messagebox 无法转移,等待转移的品质大于原装备品质!
break


#if
EQUAL S$当前品质 [至尊]
#act
MOV n$鉴定属性 1
mov s$鉴定属性 至尊
mov n$鉴定颜色 249
movr N$鉴定血量 850 1001
movr N$鉴定切割 450 551




#if
EQUAL S$当前品质 [神圣]
#act
MOV n$鉴定属性 1
mov s$鉴定属性 神圣
mov n$鉴定颜色 70
movr N$鉴定血量 700 851
movr N$鉴定切割 350 451



#if
EQUAL S$当前品质 [传说]
#act
MOV n$鉴定属性 1
mov s$鉴定属性 传说
mov n$鉴定颜色 251
movr N$鉴定血量 600 701
movr N$鉴定切割 270 351


#if
#ACT
SetUpgradeItem 1
CHANGECUSTOMITEMTEXT -1 [鉴定品质]: [<$str(s$鉴定属性)>]
CHANGECUSTOMITEMTEXTCOLOR -1 255
ChangeItemName -1 <$str(S$鉴定名字)>[<$STR(s$鉴定属性)>]
ChangeItemNameColor -1 <$str(n$鉴定颜色)>
;修改颜色
CHANGECUSTOMITEMABIL -1 0 0 <$str(n$鉴定颜色)>
CHANGECUSTOMITEMABIL -1 1 0 <$str(n$鉴定颜色)>
;修改绑定属性
CHANGECUSTOMITEMABIL -1 0 1 6
CHANGECUSTOMITEMABIL -1 1 1 13
;修改显示位置
CHANGECUSTOMITEMABIL -1 0 2 0
CHANGECUSTOMITEMABIL -1 1 2 1

;修改绑定的值
CHANGECUSTOMITEMVALUE -1 0 = <$str(N$鉴定血量)>
CHANGECUSTOMITEMVALUE -1 1 = <$str(N$鉴定切割)>
UpDateBoxItem 1


SetUpgradeItem 2
CHANGECUSTOMITEMTEXT -1 [鉴定品质]: [<$str(s$鉴定属性)>]
CHANGECUSTOMITEMTEXTCOLOR -1 70
ChangeItemName -1 <$str(S$鉴定名字2)>[<$STR(s$鉴定属性)>]
ChangeItemNameColor -1 <$str(n$鉴定颜色)>
;修改颜色
CHANGECUSTOMITEMABIL -1 0 0 <$str(n$鉴定颜色)>
CHANGECUSTOMITEMABIL -1 1 0 <$str(n$鉴定颜色)>
;修改绑定属性
CHANGECUSTOMITEMABIL -1 0 1 6
CHANGECUSTOMITEMABIL -1 1 1 13
;修改显示位置
CHANGECUSTOMITEMABIL -1 0 2 0
CHANGECUSTOMITEMABIL -1 1 2 1

;修改绑定的值
CHANGECUSTOMITEMVALUE -1 0 = <$str(N$鉴定血量)>
CHANGECUSTOMITEMVALUE -1 1 = <$str(N$鉴定切割)>
UpDateBoxItem 2
goto @ItemIntoBox1
goto @ItemIntoBox2
messagebox 转移成功!获得<$STR(s$鉴定属性)><$str(S$鉴定名字)>装备!
break

[@ItemIntoBox1]
#if
not CHECKTEXTLIST ..\QuestDiary\0.2其他文件\装备等级\0.txt <$BOXITEM[1].NAME>
#act
ReturnBoxItem 1
messagebox 当前物品不支持!
break

#if
#ACT
mov S$当前品质 <$BOXITEM[1].NAME_G>
DEC S$当前品质 <$BOXITEM[1].NAME>
mov S$鉴定名字 <$BOXITEM[1].NAME>
goto @转移
break



[@ItemIntoBox2]
#if
not CHECKTEXTLIST ..\QuestDiary\0.2其他文件\装备等级\0.txt <$BOXITEM[2].NAME>
#act
ReturnBoxItem 2
messagebox 当前物品不支持!
break

#if
#ACT
mov S$当前品质2 <$BOXITEM[2].NAME_G>
DEC S$当前品质2 <$BOXITEM[2].NAME>
mov S$鉴定名字2 <$BOXITEM[2].NAME>
goto @转移
break



[@ItemIntoBox3]
#if
not CHECKTEXTLIST ..\QuestDiary\0.2其他文件\装备等级\0.txt <$BOXITEM[3].NAME>
#act
ReturnBoxItem 3
messagebox 当前物品不支持!
break

#If
#act
mov S$当前品质 <$BOXITEM[3].NAME_G>
DEC S$当前品质 <$BOXITEM[3].NAME>
mov S$鉴定名字 <$BOXITEM[3].NAME>
goto @装备鉴定
break

[@ItemOUTBox3]
#If
#act
mov S$当前品质
mov S$鉴定名字
goto @装备鉴定
break





}




请点击此处下载

请先注册会员后再进行下载

已注册会员,请先登录后下载

文件名称:自定义命令.zip 
下载次数:0  文件大小:6.17 KB  售价:10 金钱[记录]
下载权限: 新手上路  以上或 VIP会员   [购买VIP]   [金钱充值]







回复

使用道具 举报

该用户从未签到

0

主题

10

帖子

11

积分

新手上路

Rank: 1

积分
11
发表于 2020-8-21 22:07:07 | 显示全部楼层
膜拜神贴,后面的请保持队形~

回复

使用道具 举报

  • TA的每日心情
    慵懒
    2020-7-31 05:38
  • 0

    主题

    120

    帖子

    653

    积分

    高级会员

    Rank: 4

    积分
    653
    发表于 2020-8-21 22:08:16 | 显示全部楼层
    果断MARK,前十有我必火!

    回复

    使用道具 举报

    该用户从未签到

    0

    主题

    13

    帖子

    54

    积分

    注册会员

    Rank: 2

    积分
    54
    发表于 2020-8-21 22:09:31 | 显示全部楼层
    果断MARK,前十有我必火!

    回复

    使用道具 举报

    该用户从未签到

    0

    主题

    8

    帖子

    9

    积分

    新手上路

    Rank: 1

    积分
    9
    发表于 2020-8-21 22:11:43 | 显示全部楼层
    看了LZ的帖子,我只想说一句很好很强大!

    回复

    使用道具 举报

    该用户从未签到

    0

    主题

    12

    帖子

    13

    积分

    新手上路

    Rank: 1

    积分
    13
    发表于 2020-8-21 22:13:33 | 显示全部楼层
    找传奇版本,传奇教程就到301传奇论坛

    回复

    使用道具 举报

  • TA的每日心情
    无聊
    5 天前
  • 0

    主题

    7

    帖子

    15

    积分

    新手上路

    Rank: 1

    积分
    15
    发表于 2020-8-22 14:47:25 | 显示全部楼层
    啥也不说了,楼主就是给力!

    回复

    使用道具 举报