逍遥MIR 发表于 2024-7-16 21:05:13

传奇开区一条龙独家发布的雨涵古币捐献脚本


(@@InPutString @@InPutInteger )


[@Main]
#if
      CheckLevelEx      <      59
#Act
      Messagebox      60级以后才可以查询!
BREAK
#if
      CheckLevelEx      >      59
#Act
      OPENMERCHANTBIGDLG 20 30 0 0 0 0 1 564 1
      Mov      S60      <$STR(A60)>
      Mov      S61      <$STR(A61)>
      Mov      S62      <$STR(A62)>
      Mov      S63      <$STR(A63)>
      Mov      S64      <$STR(A64)>
      Mov      S65      <$STR(A65)>
      Mov      S66      <$STR(A66)>
      Mov      S67      <$STR(A67)>
      Mov      S68      <$STR(A68)>
      SetStringBlank <$STR(S60)> 15 1
      SetStringBlank <$STR(S61)> 15 1
      SetStringBlank <$STR(S62)> 15 1
      SetStringBlank <$STR(S63)> 15 1
      SetStringBlank <$STR(S64)> 15 1
      SetStringBlank <$STR(S65)> 15 1
      SetStringBlank <$STR(S66)> 15 1
      SetStringBlank <$STR(S67)> 15 1
      SetStringBlank <$STR(S68)> 15 1
#say
\ \ \
 <★★★★★★★★★★★★★★★★★/FCOLOR=250><雨涵古币捐献排行榜/FCOLOR=253><★★★★★★★★★★★★★★★★★/FCOLOR=250>\
 <第一名:/FCOLOR=250><全属性+12目标死亡爆率+12%/FCOLOR=251><募捐者:/FCOLOR=168>{<$STR(S60)>/FCOLOR=249}< 捐献雨涵古币:/FCOLOR=168>{<$STR(G60)>/FCOLOR=253}\
 <第二名:/FCOLOR=250><全属性+10目标死亡爆率+10%/FCOLOR=251><募捐者:/FCOLOR=168>{<$STR(S61)>/FCOLOR=249}< 捐献雨涵古币:/FCOLOR=168>{<$STR(G61)>/FCOLOR=253}\
 <第三名:/FCOLOR=250><全属性+ 8目标死亡爆率+ 8%/FCOLOR=251><募捐者:/FCOLOR=168>{<$STR(S62)>/FCOLOR=249}< 捐献雨涵古币:/FCOLOR=168>{<$STR(G62)>/FCOLOR=253}\
 <第四名:/FCOLOR=250><全属性+ 7目标死亡爆率+ 7%/FCOLOR=251><募捐者:/FCOLOR=168>{<$STR(S63)>/FCOLOR=249}< 捐献雨涵古币:/FCOLOR=168>{<$STR(G63)>/FCOLOR=253}\
 <第五名:/FCOLOR=250><全属性+ 6目标死亡爆率+ 6%/FCOLOR=251><募捐者:/FCOLOR=168>{<$STR(S64)>/FCOLOR=249}< 捐献雨涵古币:/FCOLOR=168>{<$STR(G64)>/FCOLOR=253}\
 <第六名:/FCOLOR=250><全属性+ 5目标死亡爆率+ 5%/FCOLOR=251><募捐者:/FCOLOR=168>{<$STR(S65)>/FCOLOR=249}< 捐献雨涵古币:/FCOLOR=168>{<$STR(G65)>/FCOLOR=253}\
 <第七名:/FCOLOR=250><全属性+ 4目标死亡爆率+ 4%/FCOLOR=251><募捐者:/FCOLOR=168>{<$STR(S66)>/FCOLOR=249}< 捐献雨涵古币:/FCOLOR=168>{<$STR(G66)>/FCOLOR=253}\
 <第八名:/FCOLOR=250><全属性+ 3目标死亡爆率+ 3%/FCOLOR=251><募捐者:/FCOLOR=168>{<$STR(S67)>/FCOLOR=249}< 捐献雨涵古币:/FCOLOR=168>{<$STR(G67)>/FCOLOR=253}\
 <第九名:/FCOLOR=250><全属性+ 2目标死亡爆率+ 2%/FCOLOR=251><募捐者:/FCOLOR=168>{<$STR(S68)>/FCOLOR=249}< 捐献雨涵古币:/FCOLOR=168>{<$STR(G68)>/FCOLOR=253}\
 <★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★/FCOLOR=250>\
 <剩余充值雨涵古币:/FCOLOR=250>{<$GAMEDIAMOND>/FCOLOR=253}\
 <已捐献雨涵古币:/FCOLOR=250>{<$HUMAN(捐献雨涵古币额度)>/FCOLOR=253} \ \

 <温馨提示:捐献上榜玩家称号系统自动更换! 合区后因2个区同时存在排行,所有排行显示以/FCOLOR=254>\
      <主区排行但是你原来的募捐数量不会减少,只需要重新捐赠一次,系统自动检测再/FCOLOR=254>\
           <合并游戏中的排行,并进行调整!/FCOLOR=254>\

                 <【/FCOLOR=251><我要捐献雨涵古币/@@InPutInteger60><】/FCOLOR=251>\
\                               <每日凌晨更新排行,数据清空/FCOLOR=253>\
[@InPutInteger60]
#If
      Small      N60      20
#Act
      Messagebox      每次捐献最少20雨涵古币!
Break
#If
#Act
      Mov      N61      <$STR(N60)>
      Dec      N61      1
#If
      CHECKGAMEDIAMOND      >      <$STR(N61)>
#Act
      GAMEDIAMOND      -      <$STR(N60)>
CALCVAR HUMAN 捐献雨涵古币额度 + <$STR(N60)>
SAVEVAR HUMAN 捐献雨涵古币额度 ..\QuestDiary\功能\捐献记录额度\捐献记录额度.txt
      Mov      N60      <$HUMAN(捐献雨涵古币额度)>
      Goto      @Main
      #CALL [捐献雨涵古币.txt] @雨涵古币排名
#ElseAct
      MessageBox      您的雨涵古币不足!
[@捐献规则]
#if
#Act
      MessageBox      \ \

页: [1]
查看完整版本: 传奇开区一条龙独家发布的雨涵古币捐献脚本