传奇部落

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 710|回复: 3

GEE引擎爵位捐献脚本

  [复制链接]

1513

主题

357

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
12349
QQ
发表于 2018-3-16 23:38:16 | 显示全部楼层 |阅读模式
[@main]
<欢迎您使用爵位捐献系统!/SCOLOR=253>\
<收取爵位捐献金额提供给沙城每天的攻沙奖励!/SCOLOR=146>\
<爵位捐献不仅可以给你带来身份象征而且还有不错的属性叠加!/SCOLOR=146>\ 
Q  Q.群: 5 5 842 63 73  \
『<我要捐款/@开始捐款>』\
『<查看捐款排名/@捐款排名>』\ \
『<捐款奖励及捐款说明/@捐款说明>』\

[@捐款排名]
#say
<欢迎您使用爵位捐献系统,以下是本服爵位捐献排名信息:/SCOLOR=116>\ \
<第一名/SCOLOR=253>:<亲王>:<$STR(A200)>        <所捐金额/SCOLOR=146>:<$STR(G200)>\
<第二名/SCOLOR=253>:<公爵>:<$STR(A201)>        <所捐金额/SCOLOR=146>:<$STR(G201)>\
<第三名/SCOLOR=253>:<候爵>:<$STR(A202)>        <所捐金额/SCOLOR=146>:<$STR(G202)>\
<第四名/SCOLOR=253>:<伯爵>:<$STR(A203)>        <所捐金额/SCOLOR=146>:<$STR(G203)>\
<第五名/SCOLOR=253>:<子爵>:<$STR(A204)>        <所捐金额/SCOLOR=146>:<$STR(G204)>\
<第六名/SCOLOR=253>:<男爵>:<查看是否在排名内/@查看>\ \
『<我要捐款/@开始捐款>』 『<返回主页/@main>』

[@查看]
#IF
EQUAL T10 <$USERNAME>
#ACT
messagebox 你已记录在第六名内,如有更高排名则忽略词条!
#ELSEACT
messagebox 您不在第六排名里!
GOTO @开始捐款
BREAK

[@捐款说明]
{欢迎您以下是捐献获得属性奖励说明:/SCOLOR=116}\ \
{第一名:上线攻魔道+ :12-12/SCOLOR=250}\
{第二名:上线攻魔道+ :10-10/SCOLOR=250}\
{第三名:上线攻魔道+ :8-8/SCOLOR=250}\
{第四名:上线攻魔道+ :6-6/SCOLOR=250}\
{第五名:上线攻魔道+ :4-4/SCOLOR=250}\
{第六名:上线攻魔道+ :2-2/SCOLOR=250}\
<提示:第六名无限名额.只要超5000元宝的都可以排到第6名.>\ \
『<我要捐款/@开始捐款>』 『<返回主页/@main>』

[@开始捐款]
{捐款详细说明:/SCOLOR=116}\ \
使用说明:在输入框内输入<捐款金额>\
{第一次捐款不得低于5000元宝否则不列入排名/SCOLOR=253}\
{友情提示:每次捐款最少为1000元宝以上/SCOLOR=250}\ \
『<输入要捐款金额/@@InPutInteger1(请输入捐献元宝数量>』\ \
『<返回主页/@main>』\

[@InPutInteger1]
#if
check [450] 0
#act
goto @one第一次
BREAK

#if
check [450] 1
#act
goto @one每次
BREAK


[@one第一次]
#if
LARGE N1 4999
#act
goto @第一捐献
#elseact
MESSAGEBOX 捐献错误:第一次输入捐献数量最少为:5000元宝!
BREAK

[@one每次]
#if
LARGE N1 999
#act
goto @每次捐献
#ELSEACT
MESSAGEBOX 捐献错误:每次捐献数量应大于1000元宝!
BREAK

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

[@每次捐献]
#if
CHECKGAMEGOLD ? <$STR(N1)>
#act
GAMEGOLD - <$STR(N1)>
INC <$HUMAN(JK)> <$STR(N1)>
SAVEVAR HUMAN JK ..\QuestDiary\元宝捐款\元宝捐款.txt
SENDMSG 7 提示:本次共捐款:<$STR(N1)>,共捐款:【<$HUMAN(JK)>】
Delaygoto 100 @检测排名对比
#ELSEACT
MESSAGEBOX 我看看,你好像没有足够的元宝捐献吧!
BREAK


[@第一捐献]
#if
CHECKGAMEGOLD ? <$STR(N1)>
#act
GAMEGOLD - <$STR(N1)>
SET [450] 1
INC <$HUMAN(JK)> <$STR(N1)>
SAVEVAR HUMAN JK ..\QuestDiary\元宝捐款\元宝捐款.txt
MOV T10 <$USERNAME>
SENDMSG 7 提示:本次共捐款:<$STR(N1)>,共捐款:【<$HUMAN(JK)>】
Delaygoto 100 @检测排名对比
#ELSEACT
MESSAGEBOX 我看看,你好像没有足够的元宝捐献吧!
BREAK

;-------------------------------------------------------------------------------
[@检测排名对比]
#IF
LARGE <$HUMAN(JK)> <$STR(G200)>
#ACT
GOTO @BAOCUN
MESSAGEBOX 感谢您对本服的支持,目前排名第一!
BREAK
close
#ELSEACT
GOTO @JKPAIM1
BREAK

[@JKPAIM1]
#IF
LARGE <$HUMAN(JK)> <$STR(G201)>
#ACT
GOTO @BAOCUN1
MESSAGEBOX 感谢您对本服的支持,目前排名第二!
BREAK
close
#ELSEACT
GOTO @JKPAIM2
BREAK

[@JKPAIM2]
#IF
LARGE <$HUMAN(JK)> <$STR(G202)>
#ACT
GOTO @BAOCUN2
MESSAGEBOX 感谢您对本服的支持,目前排名第三!
BREAK
close
#ELSEACT
GOTO @JKPAIM3
BREAK

[@JKPAIM3]
#IF
LARGE <$HUMAN(JK)> <$STR(G203)>
#ACT
GOTO @BAOCUN3
MESSAGEBOX 感谢您对本服的支持,目前排名第四!
BREAK
close
#ELSEACT
GOTO @JKPAIM4
BREAK

[@JKPAIM4]
#IF
LARGE <$HUMAN(JK)> <$STR(G204)>
#ACT
GOTO @BAOCUN4
MESSAGEBOX 感谢您对本服的支持,目前排名第五!
BREAK
close
#ELSEACT
MESSAGEBOX 感谢您对本服的支持,目前排名第六!
BREAK
close

[@BAOCUN]
#IF
EQUAL <$STR(A200)> <$USERNAME>
#ACT
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(JK)>
BREAK

#IF
EQUAL <$STR(A201)> <$USERNAME>
#ACT
MOV A201 <$STR(A200)>
MOV G201 <$STR(G200)>
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(JK)>
BREAK

#IF
EQUAL <$STR(A202)> <$USERNAME>
#ACT
MOV A202 <$STR(A201)>
MOV G202 <$STR(G201)>
MOV A201 <$STR(A201)>
MOV G201 <$STR(G200)>
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(JK)>
BREAK

#IF
EQUAL <$STR(A203)> <$USERNAME>
#ACT
MOV A203 <$STR(A202)>
MOV G203 <$STR(G202)>
MOV A202 <$STR(A201)>
MOV G202 <$STR(G201)>
MOV A201 <$STR(A200)>
MOV G201 <$STR(G200)>
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(JK)>
BREAK

#ELSEACT
MOV A204 <$STR(A203)>
MOV A203 <$STR(A202)>
MOV A202 <$STR(A201)>
MOV A201 <$STR(A200)>
MOV A200 <$USERNAME>
MOV G204 <$STR(G203)>
MOV G203 <$STR(G202)>
MOV G202 <$STR(G201)>
MOV G201 <$STR(G200)>
MOV G200 <$HUMAN(JK)>
BREAK

[@BAOCUN1]
#IF
EQUAL A201 <$USERNAME>
#ACT
MOV A201 <$USERNAME>
MOV G201 <$HUMAN(JK)>
BREAK

#IF
EQUAL A202 <$USERNAME>
#ACT
MOV A202 <$STR(A202)>
MOV G202 <$STR(G201)>
MOV A201 <$USERNAME>
MOV G201 <$HUMAN(JK)>
BREAK

#IF
EQUAL A203 <$USERNAME>
#ACT
MOV A203 <$STR(A202)>
MOV G203 <$STR(G202)>
MOV A202 <$STR(A201)>
MOV G202 <$STR(G201)>
MOV A201 <$USERNAME>
MOV G201 <$HUMAN(JK)>
BREAK

#ELSEACT
MOV A204 <$STR(A203)>
MOV A203 <$STR(A202)>
MOV A202 <$STR(A201)>
MOV A201 <$USERNAME>
MOV G204 <$STR(G203)>
MOV G203 <$STR(G202)>
MOV G202 <$STR(G201)>
MOV G201 <$HUMAN(JK)>
BREAK

[@BAOCUN2]
#IF
EQUAL A202 <$USERNAME>
#ACT
MOV A202 <$USERNAME>
MOV G202 <$HUMAN(JK)>
BREAK

#IF
EQUAL A202 <$USERNAME>
#ACT
MOV A203 <$STR(A202)>
MOV G203 <$STR(G202)>
MOV A202 <$USERNAME>
MOV G202 <$HUMAN(JK)>
BREAK

#ELSEACT
MOV A204 <$STR(A203)>
MOV A203 <$STR(A202)>
MOV A202 <$USERNAME>
MOV G204 <$STR(G203)>
MOV G203 <$STR(G202)>
MOV G202 <$HUMAN(JK)>
BREAK

[@BAOCUN3]
#IF
EQUAL A203 <$USERNAME>
#ACT
MOV A203 <$USERNAME>
MOV G203 <$HUMAN(JK)>
BREAK
#ELSEACT
MOV A204 <$STR(A203)>
MOV A203 <$USERNAME>
MOV G204 <$STR(G203)>
MOV G203 <$HUMAN(JK)>
BREAK

[@BAOCUN4]
#IF
EQUAL A204 <$USERNAME>
#ACT
MOV A204 <$USERNAME>
MOV G204 <$HUMAN(JK)>
BREAK
#ELSEACT
BREAK


开传奇学技术,版本修改定做,在本站开服客户给所有后台,免费教学开服技术 站长QQ137919001
回复

使用道具 举报

0

主题

16

帖子

15

积分

新手上路

Rank: 1

积分
15
发表于 2018-3-21 11:01:03 | 显示全部楼层
传奇部落值得信赖开传奇一条龙就找传奇部落
开传奇学技术,版本修改定做,在本站开服客户给所有后台,免费教学开服技术 站长QQ137919001
回复

使用道具 举报

0

主题

10

帖子

21

积分

新手上路

Rank: 1

积分
21
发表于 2018-12-12 15:04:47 | 显示全部楼层
思钱想厚 发表于 2018-3-21 11:01
传奇部落值得信赖开传奇一条龙就找传奇部落

6ehehehehehehhejeuejee
开传奇学技术,版本修改定做,在本站开服客户给所有后台,免费教学开服技术 站长QQ137919001
回复

使用道具 举报

0

主题

10

帖子

21

积分

新手上路

Rank: 1

积分
21
发表于 2018-12-12 15:05:40 | 显示全部楼层
523791 发表于 2018-12-12 15:04
6ehehehehehehhejeuejee

HOHO明明哦公明狗狗公民
开传奇学技术,版本修改定做,在本站开服客户给所有后台,免费教学开服技术 站长QQ137919001
回复

使用道具 举报

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

本版积分规则

站长QQ137919001|小黑屋|网站地图|传奇部落 ( 皖ICP备18020244号-1 )

GMT+8, 2019-6-19 19:33 , Processed in 0.140008 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表