Legendm2引擎-爵位捐赠脚本完整版

来源:原创作者:编辑:admin2020-04-16 08:30

  (@@InPutInteger @@InPutString )

  [@main]

  具有没有与伦比的力量以外,更暗含着某种 \

  属玩家专享嘉奖, 游戏内无其他任何门路取得。 \

  只要来我这捐助救济玛法大年夜陆上平穷的人。 \

  控制时机,让玛法大年夜陆上的人们全部用爱慕的眼光看者您存眷您! \

  <留心:捐助完了后,需求小退再上才可以享用爵位超等属性> \ \

  <我要捐助/@juanzhu> <捐助排名/@paiming> 您以后捐助了<$HUMAN(YBJZ)>元宝\ \

  <捐助嘉奖及捐款说明/@shuomin>\

  ;VAR INTEGER HUMAN YBJZ

  ;LOADVAR HUMAN YBJZ ..\QuestDiary\主要数据\YBJZSave.tx

  ;变量 A41 A42 A43 A44 A45 A46

  ;变量 G31 G32 G33 G34 G35 G36

  ;变量 M36

  ;起码捐赠 500元宝 交换500 跟499 为你想要的

  ;变量 直接用字符交换器 交换

  [@juanzhu]

  应用说明:在输入框内输入<捐助数量>\

  每次捐助起码为500元宝!\ \

  <输入要捐助的数量/@@InPutInteger36>

  [@@InPutInteger36]

  #IF

  CHECKGAMEGOLD > 0

  #Act

  DelayGoto 1 @InPutInteger36

  #ELSEAct

  MessageBox 你的元宝数量缺少!请冲值。

  [@InPutInteger36]

  #If

  CHECKGAMEGOLD > <$STR(M36)>

  LARGE M36 499

  #ACT

  GameGold - <$STR(M36)>

  mov G36 <$STR(M36)>

  INC G36 <$HUMAN(YBJZ)>

  mov A46 <$USERNAME>

  mov M37 <$STR(M36)>

  DIV M37 500

  CREDITPOINT + <$STR(M37)>

  goto @mingdan

  #ELSEsay

  捐助的元宝数量必须大年夜于500,或许你元宝数量缺少.

  [@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

  [@paiming]

   \

  第一名:亲王:<$STR(A41)> 所捐助数量<$STR(G31)> \

  第二名:公爵: