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

[复制链接]
查看7349 | 回复89 | 2014-12-5 18:55:13 | 显示全部楼层 |阅读模式
【GOM引擎】巩义传奇网站推广系统脚本
先上图
145210iym5ydzdcbg6zzbb.jpg.thumb.jpg




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

[@系统推广]
{
#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
}




上一篇:【hero引擎】激情派对脚本
下一篇:传奇只允许一个人进入固定地点打装备★并按时返回脚本
购买商业版本请联系站长 论坛所有资源均免费下载,回复帖子即出现下载地址!站长QQ:1109852670
回复

使用道具 举报

哈批 | 2014-12-5 21:16:47 | 显示全部楼层
我是来刷分的,嘿嘿
购买商业版本请联系站长 论坛所有资源均免费下载,回复帖子即出现下载地址!站长QQ:1109852670
回复 支持 反对

使用道具 举报

龙小雅 | 2014-12-5 23:29:01 | 显示全部楼层
为保住菊花,这个一定得回复!
购买商业版本请联系站长 论坛所有资源均免费下载,回复帖子即出现下载地址!站长QQ:1109852670
回复 支持 反对

使用道具 举报

无奈的冰 | 2014-12-6 00:42:29 | 显示全部楼层
为毛老子总也抢不到沙发?!!
购买商业版本请联系站长 论坛所有资源均免费下载,回复帖子即出现下载地址!站长QQ:1109852670
回复 支持 反对

使用道具 举报

飞翔工作室 | 2014-12-6 10:00:56 | 显示全部楼层
我抢、我抢、我抢沙发~
购买商业版本请联系站长 论坛所有资源均免费下载,回复帖子即出现下载地址!站长QQ:1109852670
回复 支持 反对

使用道具 举报

小迪 | 2014-12-6 11:28:32 | 显示全部楼层
看帖回帖是美德!
购买商业版本请联系站长 论坛所有资源均免费下载,回复帖子即出现下载地址!站长QQ:1109852670
回复 支持 反对

使用道具 举报

王杰作 | 2014-12-6 13:39:21 | 显示全部楼层
确实不错,顶先
购买商业版本请联系站长 论坛所有资源均免费下载,回复帖子即出现下载地址!站长QQ:1109852670
回复 支持 反对

使用道具 举报

一二一 | 2014-12-6 14:08:35 | 显示全部楼层
垃圾内容,路过为证。
购买商业版本请联系站长 论坛所有资源均免费下载,回复帖子即出现下载地址!站长QQ:1109852670
回复 支持 反对

使用道具 举报

版本库我来了 | 2014-12-6 16:35:53 | 显示全部楼层
大人,此事必有蹊跷!
购买商业版本请联系站长 论坛所有资源均免费下载,回复帖子即出现下载地址!站长QQ:1109852670
回复 支持 反对

使用道具 举报

情人哥哥 | 2014-12-6 17:20:03 | 显示全部楼层
相当不错,感谢无私分享精神!
购买商业版本请联系站长 论坛所有资源均免费下载,回复帖子即出现下载地址!站长QQ:1109852670
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则