【Leg引擎】巩义传奇网站推广系统脚本
先上图
声明：没有仔细测试过，可能有问题，自己看着办吧
核心代码如下：
;///////////////////////////////////////////////////////////////////////////////
;// 巩义传奇
;///////////////////////////////////////////////////////////////////////////////
[@系统推广]
{
#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
} |
上一篇：【Leg引擎】激情派对脚本下一篇：传奇只允许一个人进入固定地点打装备★并按时返回脚本
|
