Legendm2引擎-亲王爵位竞拍脚本

(@@InPutInteger @@InPutString )
[@main]
拥有无与伦比的力量之外，更暗含着某种<COLOR=clLime 神秘特权属性> \
属<COLOR=clLime 爵位>玩家专享奖励， 游戏内无其他任何途径获得。 \
把握机会，让玛法大陆上的人们全部用羡慕的眼光看者您关注您！ \
<注意:捐助完了后，需要小退再上才可以享受爵位超级属性> \
目前:亲王位:<$STR(A41)>        所捐助数量<$STR(G31)> \  \
        <我要竞拍/@juanzhu>            您当前捐助了<$HUMAN(YBJZ)>元宝\     \
        <捐助奖励及捐款说明/@shuomin>\

;VAR INTEGER HUMAN YBJZ
;LOADVAR HUMAN YBJZ ..\QuestDiary\重要数据\YBJZSave.tx
;变量 A41
;变量 G31
;变量 M36
;最少捐献 1000元宝   替换1000 跟999  为你想要的
;变量 直接用字符替换器 替换

[@juanzhu]
\ \
使用说明:在输入框内输入<捐助数量>\
每次捐助最少为1000元宝！\   \
<输入要捐助的数量/@@InPutInteger36>

[@@InPutInteger36]
#IF
CHECKGAMEGOLD > 0
#Act
DelayGoto 1 @InPutInteger36
#ELSEAct
MessageBox 你的元宝数量不足！请冲值。

[@InPutInteger36]
#If
CHECKGAMEGOLD > <$STR(M36)>
LARGE M36 999
#ACT
GameGold - <$STR(M36)>
mov G36 <$STR(M36)>
INC G36 <$HUMAN(YBJZ)>
mov A46 <$USERNAME>
mov M37 <$STR(M36)>
DIV M37 1000
CREDITPOINT + <$STR(M37)>
goto @mingdan
#ELSEsay
捐助的元宝数量必须大于1000,或者你元宝数量不足.

[@mingdan]
#IF
checknamelist ..\QuestDiary\重要数据\捐助名单.txt
#ACT
CALCVAR HUMAN YBJZ + <$STR(M36)>
SAVEVAR HUMAN YBJZ ..\QuestDiary\重要数据\YBJZSave.txt
#CALL [\\重要数据\捐助系统.txt] @捐助检测
#elseact
goto @canshu2

[@canshu2]
#ACT
CALCVAR HUMAN YBJZ = <$STR(M36)>
SAVEVAR HUMAN YBJZ ..\QuestDiary\重要数据\YBJZSave.txt
addnamelist ..\QuestDiary\重要数据\捐助名单.txt
#CALL [\\重要数据\捐助系统.txt] @捐助检测
break

[@shuomin]
\ \ \
<COLOR=cllime 第一名:战士+1000HP、道士+500HP、法师+360HP>\ \
<COLOR=cllime 攻击魔法道术30-30>\ \
<上述属性，主号英雄共享，捐助后小退生效>\ \
<返回/@main>


回复下载：

游客，如果您要查看本帖隐藏内容请回复

站位支持

支持支持再支持

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

有竞争才有进步嘛

占坑编辑ing

6666666666666

Legendm2引擎-亲王爵位竞拍

csdcesrfdrfdrfdrfdrsfdrfsdrf

完善叫把呢大苏打