|
|
(@@InPutInteger @@InPutString )
[@main]
我是一只小小小小猪...却想跑也跑不了...\
天天被人追着砍、如今想想,反正被追着砍...\
还不如收点元宝过小日子,只要你给的起元宝,\
我就给的起经验,你元宝给的越多砍我附加经验越高.\
比例:1000元宝=每砍一下猪多附加30W经验...\
每小时清理一次你捐款的元宝...你当前元宝为：$GAMEGOLD 颗\ \
我这就给你元宝让我砍吧!/@@InPutInteger10没米,下次再捐吧 /@exit\ \
$USERNAME你当前总捐款元宝数量是：/SCOLOR=254$HUMAN(捐款经验元宝数量) 颗\
$USERNAME你当前砍猪附加经验是：/SCOLOR=254$HUMAN(元宝捐款经验)
[@InPutInteger10]
#IF
EQUAL N10 0
#ACT
MESSAGEBOX 输入数据等于0，请重新输入。
break
#IF
CHECKLEVELEX 214
#ACT
MESSAGEBOX [提示]：你等级大于215级无法在捐款！
BREAK
#IF
SMALL N10 1000
#ACT
MESSAGEBOX [提示]：输入醉少要1000元宝。
BREAK
#IF
LARGE N10 100000
#ACT
MESSAGEBOX [提示]：输入不能超过10W元宝。
BREAK
#IF
CHECKVAR HUMAN 捐款经验元宝数量 499000
#ACT
MESSAGEBOX [提示]：你捐款经验元宝数量大于50万无法在捐款！
BREAK
#IF
CHECKGAMEGOLD $STR(N10)
CHECKVAR HUMAN 元宝捐款经验 100000000
#ACT
GAMEGOLD - $STR(N10)
CALCVAR HUMAN 捐款经验元宝数量 + $STR(N10)
SAVEVAR HUMAN 捐款经验元宝数量 ..\QuestDiary\元宝捐款\元宝捐款经验S呵呵e.txt
MUL N11 $STR(N10) 300
CALCVAR HUMAN 元宝捐款经验 + $STR(N11)
SAVEVAR HUMAN 元宝捐款经验 ..\QuestDiary\元宝捐款\元宝捐款经验S呵呵e.txt
SendCenterMsg 223 0 [小猪告白]：恭喜($USERNAME)用$STR(N10)元宝附加了砍猪$STR(N11)经验！ 1 10
SENDMSG 0 [小猪告白]：恭喜($USERNAME)用$STR(N10)元宝附加了砍猪$STR(N11)经验！
SENDMSG 0 [小猪告白]：恭喜($USERNAME)用$STR(N10)元宝附加了砍猪$STR(N11)经验！
GOTO @main
break
#ELSESAY
\ \
对不起，您身上没有$STR(N10)以上的元宝~\
或者你的捐款经验数量已超过啦！！！\
你可别想从我这里作弊。\ \
关闭对话框/@exit\
以上是，希望对你有所帮助，本文由传奇游戏服务端www.7bbz.com站长呕心沥血创新撰写，致力于帮助更多新手GM轻松玩转传奇，转载请留链接，谢谢合作!
|
|
[复制链接]
发表于 2023-12-17 17:23:22
发表于 2023-12-17 17:33:36
