【GOM引擎】巩义传奇网站推广系统脚本

传奇服务端

【GOM引擎】巩义传奇网站推广系统脚本
先上图





声明：没有仔细测试过，可能有问题，自己看着办吧
核心代码如下：
;///////////////////////////////////////////////////////////////////////////////
;// 巩义传奇
;///////////////////////////////////////////////////////////////////////////////

[@系统推广]
{
#IF
CHECKTEXTLIST ..QuestDiary随缘整理推广系统推广员ID.txt <$USERID>
#ACT
MOV <$STR(S$是否未领取)>
goto @推广员
#ELSEACT
GOTO @非推广员

[@推广员]
#ACT
GetListString ..QuestDiary随缘整理推广系统数据<$USERNAME>.txt <$STR(N$行数)> <$STR(S$下家)>

#IF
EQUAL <$STR(S$下家)>
#ACT
goto @推广检测
goto @显示信息
BREAK

#IF
#ACT
INC <$STR(N$行数)> 1
goto @推广员

[@推广检测]
#ACT
GetListString ..QuestDiary随缘整理推广系统数据<$USERNAME>推广未领取.txt 0 <$STR(S$下家)>
#IF
NOT EQUAL <$STR(S$下家)>
#ACT
MOV S$是否未领取 <当前有被你推广的玩家达要求/FCOLOR=70>,<点此领取奖励/@推广领取>

#IF
SMALL <$HUMAN(推广人数)> 5
#ACT
MOV S$推广级别 <普通推广员/FCOLOR=255>
BREAK

#IF
NOT SMALL <$HUMAN(推广人数)> 5
SMALL <$HUMAN(推广人数)> 20
#ACT
MOV S$推广级别 <青铜推广员/FCOLOR=223>
SetShopItemPriceRate 98
BREAK

#IF
NOT SMALL <$HUMAN(推广人数)> 20
SMALL <$HUMAN(推广人数)> 50
#ACT
MOV S$推广级别 <白银推广员/FCOLOR=21>
SetShopItemPriceRate 96
BREAK

#IF
NOT SMALL <$HUMAN(推广人数)> 50
SMALL <$HUMAN(推广人数)> 100
#ACT
MOV S$推广级别 <黄金推广员/FCOLOR=254>
SetShopItemPriceRate 94
BREAK

#IF
NOT SMALL <$HUMAN(推广人数)> 100
SMALL <$HUMAN(推广人数)> 180
#ACT
MOV S$推广级别 <白金推广员/FCOLOR=70>
SetShopItemPriceRate 92
BREAK

#IF
NOT SMALL <$HUMAN(推广人数)> 180
#ACT
MOV S$推广级别 <钻石推广员/FCOLOR=70>
SetShopItemPriceRate 90
BREAK

; 0 5 20 50 100 180
;普通 青铜 白银 黄金 白金 钻石

[@推广领取]
#ACT
MOV N$次数 0
GetListString ..QuestDiary随缘整理推广系统数据<$USERNAME>推广未领取.txt <$STR(N$次数)> <$STR(S$下家)>
#IF
EQUAL <$STR(S$下家)>
#ACT
BREAK

#IF
#ACT
INC N$次数 1
<$HUMAN(邀请人)>.CALCVAR HUMAN 推广人数 + 1
<$HUMAN(邀请人)>.SAVEVAR HUMAN 推广人数 ..QuestDiary随缘整理推广系统综合数据.txt
GUILDAURAEPOINT + 5
<$HUMAN(邀请人)>.CALCVAR HUMAN 推广积分 + 10
<$HUMAN(邀请人)>.SAVEVAR HUMAN 推广积分 ..QuestDiary随缘整理推广系统综合数据.txt
SENDMSG 7 223 17 被你邀请的玩家{[<$STR(S$下家)>]|251:0:1}已经成功提升到60级,你获得了{[推广人数+1,推广积分+10,人气度+1]|254:0:1}
DelTextList ..QuestDiary随缘整理推广系统数据<$USERNAME>推广未领取.txt <$STR(S$下家)>
goto @推广领取
GOTO @系统推广

[@显示信息]
#IF
#ACT
OPENMERCHANTBIGDLG 6 3130 1 4 0 0 1 785 0
;OPENMERCHANTBIGDLG WIL文件序号 图片序号 是否可以移动(0,1) 显示位置(0=左上角,1=右上角,2=左下角,3=右下角,4=居中) 微调坐标X 微调坐标Y 是否显示关闭按钮(0,1) 关闭按钮坐标X 关闭按钮坐标Y
#SAY
　　　　　　　　　　　　　　　　　　　　　　　　巩义传奇推广系统　　　　　　　　　　　　　　　　　　　<级别|242#满足要求系统会自动升级推广员的品级>　　 <推广人数要求|254#被推广玩家等级达到要求后,推广人数才会增加>

　　　<我的角色名称:/FCOLOR=103>　{<$USERNAME>/FCOLOR=223}
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<普通推广员/FCOLOR=255>　　 <0/FCOLOR=223> 人
　　　<我的推广员ID:/FCOLOR=103>　{<$USERID>/FCOLOR=223}　<复制推广员ID/@复制推广员ID>
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<青铜推广员/FCOLOR=251>　　 <5/FCOLOR=223> 人
　　　<当前邀请人数:/FCOLOR=103>　{<$STR(N$行数)>/FCOLOR=223}
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<白银推广员/FCOLOR=254> <20/FCOLOR=223>人
　　　<当前成功数量:/FCOLOR=103>　{<$HUMAN(推广人数)>/FCOLOR=223}
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<黄金推广员/FCOLOR=223> <50/FCOLOR=223>人

　　　<当前推广积分:/FCOLOR=103>　{<$HUMAN(推广积分)>/FCOLOR=223}　<[积分兑换元宝]/@积分兑换元宝>　<[积分兑换金刚石]/@积分兑换金刚石>　<[积分兑换属性点]/@积分兑换属性点>

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<白金推广员/FCOLOR=244> <100/FCOLOR=223>人

　　　<当前　人气度:/FCOLOR=103>　{<$GUILDAURAEPOINT>/FCOLOR=223}　<当前我的元宝:/FCOLOR=103>　{<$GAMEGOLD>/FCOLOR=223}　<当前金刚石:/FCOLOR=103>　{<$GAMEDIAMOND>/FCOLOR=223}

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<钻石推广员/FCOLOR=70> <180/FCOLOR=223>人
　　　<您的推广级别:/FCOLOR=103>　<$STR(S$推广级别)>　　　<$STR(S$是否未领取)>

　　　<我的　邀请人:/FCOLOR=103>　{<$HUMAN(邀请人)>/FCOLOR=223}　<设置我的邀请人ID|填写邀请人名字ID后将会和邀请人绑定,可使用命令快速到邀请人旁边。/@@InPutString26>

　　　<普通推广员:/FCOLOR=255><无/FCOLOR=223>　　　　　　　　　　　　<级别/FCOLOR=70>　　　　<享有福利|21#提示:^223#除特别物品以外大部分支持打折购物>
　　　<青铜推广员:/FCOLOR=251><商铺购物享受9.8折优惠/FCOLOR=223> 　　<被推广玩家充值返利2%/FCOLOR=21>
　　　<白银推广员:/FCOLOR=254><商铺购物享受9.6折优惠/FCOLOR=223> 　　<被推广玩家充值返利4%/FCOLOR=21>
　　　<黄金推广员:/FCOLOR=223><商铺购物享受9.4折优惠/FCOLOR=223> 　　<被推广玩家充值返利6%/FCOLOR=21>
　　　<白金推广员:/FCOLOR=244><商铺购物享受9.2折优惠/FCOLOR=223> 　　<被推广玩家充值返利8%/FCOLOR=21>
　　　<钻石推广员:/FCOLOR=70><商铺购物享受9.0折优惠/FCOLOR=223> 　　<被推广玩家充值返利10%/FCOLOR=21>

[@非推广员]
#IF
NOT CHECKTEXTLIST ..QuestDiary随缘整理推广系统推广员ID.txt <$USERID>
#SAY
<尊敬的玩家:/FCOLOR=251>{<$USERNAME>/FCOLOR=223}→<[您当前还不是推广员]/FCOLOR=21>
<如果你想成为,/FCOLOR=103><《巩义传奇》/FCOLOR=116><的游戏推广员,请仔细阅读以下事项/FCOLOR=103>
<①:/FCOLOR=223><等级达到30即可成为推广员/FCOLOR=103>
<②:/FCOLOR=223><所推广的玩家达到/FCOLOR=103><50级/FCOLOR=254>,<推广员将获得/FCOLOR=103><5个推广积分/FCOLOR=254>
<③:/FCOLOR=223><推广员如果长时间持续未有推广成绩,将删除推广员身份/FCOLOR=103>
<④:/FCOLOR=223><同台机器以及IP多次重复进行下线推广,将视为作弊处理/FCOLOR=103>
<⑤:/FCOLOR=223><推广积分可以兑换游戏内的/FCOLOR=103><金刚石,元宝等/FCOLOR=254>　　　<[申请推广员]{FCOLOR=223}/@生成推广员ID>

[@积分兑换元宝]
#IF
CHECKVAR HUMAN 推广积分 > 9
#ACT
CALCVAR HUMAN 推广积分 - 10
SAVEVAR HUMAN 推广积分 ..QuestDiary随缘整理推广系统综合数据.txt
GAMEGOLD + 1
SENDMSG 7 223 17 兑换成功,你获得了{[元宝+1]|254:0:1}
break
#ELSEACT
messagebox [提示]您的积分不足10分，无法进行兑换

[@积分兑换金刚石]
#IF
CHECKVAR HUMAN 推广积分 > 9
#ACT
CALCVAR HUMAN 推广积分 - 10
SAVEVAR HUMAN 推广积分 ..QuestDiary随缘整理推广系统综合数据.txt
GAMEDIAMOND + 1
SENDMSG 7 223 17 兑换成功,你获得了{[金刚石+1]|254:0:1}
break
#ELSEACT
messagebox [提示]您的积分不足10分，无法进行兑换

[@积分兑换属性点]
#IF
CHECKVAR HUMAN 推广积分 > 9
#ACT
CALCVAR HUMAN 推广积分 - 10
SAVEVAR HUMAN 推广积分 ..QuestDiary随缘整理推广系统综合数据.txt
BONUSPOINT + 10
SENDMSG 7 223 17 兑换成功,你获得了{[属性点+10]|254:0:1}
break
#ELSEACT
messagebox [提示]您的积分不足10分，无法进行兑换

[@生成推广员ID]
#IF
CHECKTEXTLIST ..QuestDiary随缘整理推广系统推广员ID.txt <$USERID>
#ACT
messagebox [提示]您的推广ID已经有了
break

#IF
CHECKLEVELEX > 29
#ACT
AddTextList ..QuestDiary随缘整理推广系统推广员ID.txt <$USERID>
AddTextList ..QuestDiary随缘整理推广系统推广员绑定.txt <$USERID>:<$USERNAME>
AddTextList ..QuestDiary随缘整理推广系统MAC列表.txt <$MACHINEID>
CREATEFILE ..QuestDiary随缘整理推广系统数据<$USERNAME>.txt
CREATEFILE ..QuestDiary随缘整理推广系统数据<$USERNAME>推广未领取.txt

CALCVAR HUMAN 推广人数 = 0
SAVEVAR HUMAN 推广人数 ..QuestDiary随缘整理推广系统综合数据.txt
CALCVAR HUMAN 推广积分 = 0
SAVEVAR HUMAN 推广积分 ..QuestDiary随缘整理推广系统综合数据.txt
CALCVAR HUMAN 邀请人 = 暂无
SAVEVAR HUMAN 邀请人 ..QuestDiary随缘整理推广系统综合数据.txt

sendmsg 1 223 0 恭喜{[<$USERNAME>]|251:0:1}成功成为《巩义传奇》的推广员!
messagebox [提示:]您的ID已经生成,发给别人就可以推广了哦！
goto @系统推广
break
#ELSEACT
messagebox [提示]您的级别太低，无法申请成为推广员，30级才行哦

[@复制推广员ID]
#IF
#ACT
MOV <$STR(S$推广人ID)> <$USERID>
SENDMSG 5 {您的推广ID<$STR(S$推广人ID)>|250:0:1}复制中间的数字ID即可
goto @系统推广
break
#ELSEACT
messagebox [提示:]可笑，您连推广人ID都没申请复制什么玩意？

[@InPutString26]
#IF
CHECKTEXTLIST ..QuestDiary随缘整理推广系统MAC列表.txt <$MACHINEID>
#ACT
MessageBox 请不要作弊,自己不可以邀请自己同机角色
BREAK

#IF
NOT EQUAL <$HUMAN(邀请人)> 暂无
#ACT
MessageBox 已经推广过了无法再次推广
BREAK

#IF
EQUAL <$STR(S26)> <$USERID>
#ACT
MessageBox 你可真会玩,自己邀请自己,赶紧走吧88不送？
BREAK

#IF
NOT CHECKTEXTLIST ..QuestDiary随缘整理推广系统推广员ID.txt <$STR(S26)>
#ACT
MessageBox 你输入的帐号不是本游戏的推广员
BREAK

#IF
#ACT
GetStringPos ..QuestDiary随缘整理推广系统推广员ID.txt <$STR(S26)>
GetListString ..QuestDiary随缘整理推广系统推广员绑定.txt <$STR(N0)> <$STR(S$推广员绑定)>
DEC <$STR(S$推广员绑定)> <$STR(S26)>:
MOV <$HUMAN(邀请人)> <$STR(S$推广员绑定)>
CALCVAR HUMAN 邀请人 = <$STR(S$推广员绑定)>
SAVEVAR HUMAN 邀请人 ..QuestDiary随缘整理推广系统综合数据.txt
AddTextList ..QuestDiary随缘整理推广系统数据<$HUMAN(邀请人)>.txt <$USERNAME>
sendmsg 7 223 0 你的邀请人为:{[<$HUMAN(邀请人)>]|251:0:1}
MOV A400 <$USERNAME>
<$HUMAN(邀请人)>.sendmsg 7 223 0 玩家:{[<$STR(A400)>]|251:0:1},成功通过你的邀请加入《巩义传奇》
MOV A400
goto @系统推广
BREAK
}

哈批

我是来刷分的，嘿嘿

龙小雅

为保住菊花，这个一定得回复！

无奈的冰

为毛老子总也抢不到沙发？！！

飞翔工作室

我抢、我抢、我抢沙发~

小迪

看帖回帖是美德！:lol

王杰作

确实不错，顶先

一二一

垃圾内容，路过为证。

版本库我来了

大人，此事必有蹊跷！

情人哥哥

相当不错，感谢无私分享精神！