天下骰王倍攻脚本

meinvwudi

NPC

[@main]
#if
not EQUAL A111 
#act
MOV s$骰王名字 {<$str(A111)>/SCOLOR=253}
#elseact
MOV s$骰王名字 <暂无/SCOLOR=253>



#if
#act
setstringblank s$骰王名字 20 1

#say

\ \ \
<>      <┈┈┈┈┈┈骰王属性可与天下第一属性叠加,最高1.2倍┈┈┈┈┈┈/SCOLOR=251>\ \

<>            <骰王(1.1倍攻击)/SCOLOR=250>              <当前骰王:/SCOLOR=254>[  <$str(s$骰王名字)>  ]\
<﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍/SCOLOR=239>\
<>    <所有人都可以通过扔骰子抢夺骰王封号,不限职业,等级,装备!/SCOLOR=254>\
<﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍/SCOLOR=228>\
<>    只要人品够好.就可以发起挑战,每次需要<10000>元宝!          <扔骰王|250#扔到豹子(111,222,333,444,555,666)即可以获得对应的骰王称号^250#之前对应的骰王玩家就会被弹劾,失去骰王称号和倍攻属性^250#每个人只能获得一个骰王称号,骰王属性可与天下第一属性叠加,最高1.2倍/@throw>\
<﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍﹍/SCOLOR=242>\
<>    有钱能使鬼推磨老板只需<18.8W>元宝直接扔出豹子           <老板扔骰子|250#扔到豹子(111,222,333,444,555,666)即可以获得对应的骰王称号^250#之前对应的骰王玩家就会被弹劾,失去骰王称号和倍攻属性^250#每个人只能获得一个骰王称号,骰王属性可与天下第一属性叠加,最高1.2倍/@bossthrow>



[@throw]
#IF
EQUAL A111 <$USERNAME>
#ACT
MESSAGEBOX \提示：您已经是五岳骰王了！
BREAK

#if
checkgamegold < 10000
#act
MESSAGEBOX \提示：你没有1W元宝！
BREAK

#IF
CHECKGAMEGOLD ? 10000
#ACT
GAMEGOLD - 10000
MOVR D0 1 7
MOVR D1 1 7
MOVR D2 1 7
PlayDice 3 @五岳骰王随机开始
BREAK

[@五岳骰王随机开始]
#IF
EQUAL <$STR(D0)> <$STR(D1)>
EQUAL <$STR(D0)> <$STR(D2)>
#ELSEACT
MESSAGEBOX \提示：很遗憾！骰子点数为：<$STR(D0)>、<$STR(D1)>、<$STR(D2)>！
goto @main
BREAK

#IF
EQUAL <$STR(D0)> <$STR(D1)>
EQUAL <$STR(D0)> <$STR(D2)>
EQUAL A111 
#ACT
MOV A111 <$USERNAME>
MOV A112 <$LEVEL>
MOV A113 <$DATETIME>
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[五岳骰王]|255:0:1}处摇出了{「<$STR(D0)><$STR(D0)><$STR(D0)>」|254:0:1}，获得{[骰王]|255:0:1}称号奖励！！！
; CONFERTITLE 骰王
#CALL [\系统功能\封号提示.txt] @封号提示1
#CALL [\系统功能\属性奖励.txt] @属性奖励1
goto @main
BREAK

#IF
EQUAL <$STR(D0)> <$STR(D1)>
EQUAL <$STR(D0)> <$STR(D2)>
NOT EQUAL A111 
#ACT
MOV S$上届骰王 <$STR(A111)>
MOV A111 <$USERNAME>
MOV A112 <$LEVEL>
MOV A113 <$DATETIME>
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[五岳骰王]|255:0:1}处摇出了{「<$STR(D0)><$STR(D0)><$STR(D0)>」|254:0:1}，获得{[骰王]|255:0:1}称号奖励！！！
; CONFERTITLE 骰王
#CALL [\系统功能\封号提示.txt] @封号提示1
#CALL [\系统功能\属性奖励.txt] @属性奖励1
goto @main
GOTO @上届骰王清空
BREAK



[@bossthrow]
#if
checkgamegold < 188000
#act
MESSAGEBOX \提示：你没有18.8W元宝！
BREAK

#IF
EQUAL A111 <$USERNAME>
#ACT
MESSAGEBOX \提示：您已经是五岳骰王了！
BREAK


#IF
CHECKGAMEGOLD ? 188000
not EQUAL A111 <$USERNAME>
#ACT
GAMEGOLD - 188000
MOVR D0 1 7
MOV D1 <$STR(D0)>
MOV D2 <$STR(D0)>
PlayDice 3 @土豪骰王随机开始
BREAK

[@土豪骰王随机开始]
#IF
EQUAL A111 
#ACT
MOV A111 <$USERNAME>
MOV A112 <$LEVEL>
MOV A113 <$DATETIME>
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[五岳骰王]|255:0:1}处摇出了{「<$STR(D0)><$STR(D0)><$STR(D0)>」|254:0:1}，获得{[骰王]|255:0:1}称号奖励！！！
#CALL [\系统功能\封号提示.txt] @封号提示1
#CALL [\系统功能\属性奖励.txt] @属性奖励1
goto @main
BREAK

#IF
NOT EQUAL A111 
#ACT
MOV S$上届骰王 <$STR(A111)>
MOV A111 <$USERNAME>
MOV A112 <$LEVEL>
MOV A113 <$DATETIME>
GUILDNOTICEMSG 251 0 [传闻]:》恭喜玩家{「<$USERNAME>」|250:0:1}在{[五岳骰王]|255:0:1}处摇出了{「<$STR(D0)><$STR(D0)><$STR(D0)>」|254:0:1}，获得{[骰王]|255:0:1}称号奖励！！！
#CALL [\系统功能\封号提示.txt] @封号提示1
#CALL [\系统功能\属性奖励.txt] @属性奖励1
goto @main
GOTO @上届骰王清空
BREAK

[@上届骰王清空]
#IF
S$上届骰王.CHECKONLINE
#ACT
HCALL <$STR(S$上届骰王)> @骰王清空
S$上届骰王.MESSAGEBOX 你的骰王称号已经被玩家<$STR(A111)>顶替,骰王封号已经消失
BREAK

meinvwudi

封号提示

 #IF
    #ACT
    MOV N$顶部称号 0
    seticon 8 -1
    seticon 9 -1
#IF
EQUAL A111 <$USERNAME>
EQUAL N$顶部称号 0
#ACT
MOV N$顶部称号 1
sendmsg 5 【五岳骰王】属性激活，攻击倍数增加0.1倍！
seticon 8 26 522 -3 -35 1 0 150 0
seticon 9 26 530 42 72 12 1 150 0

meinvwudi

增中倍攻脚本

[@属性奖励1]
{
#IF
#ACT
ChangeHumAbility 2 = 0 
ChangeHumAbility 4 = 0 
ChangeHumAbility 6 = 0 
ChangeHumAbility 8 = 0 
ChangeHumAbility 10 = 0 
ChangeHumAbility 1 = 0
ChangeHumAbility 3 = 0 
ChangeHumAbility 5 = 0 
ChangeHumAbility 7 = 0 
ChangeHumAbility 9 = 0
MOV N$登录所有攻魔道 0
MOV N$登录所有双防 0
MOV N$官位登录攻魔道 0
MOV N$狂暴登录攻魔道 0
MOV N$转生登录攻魔道 0
MOV N$爵位登录攻魔道 0
MOV N$赞助登录攻魔道 0
MOV N$沙捐登录攻魔道 0
MOV N$官位登录双防 0
MOV N$狂暴登录双防 0
MOV N$转生登录双防 0
MOV N$爵位登录双防 0
MOV N$赞助登录双防 0
MOV N$沙捐登录双防 0
MOV N$行会登录双防 0
MOV N$行会登录攻魔道 0
MOV N$攻击力倍数 100
DEPRIVETITLE 捐献第一名
SUM N9 0

;===================================行会捐献========================================
#if
  HAVEGUILD
#act
  LOADVAR GUILD 九尾MirJw行会捐献 ..\QuestDiary\杰森添加\行会捐献\九尾Mirjw行会数量.txt
  sortvartolist 九尾MirJw行会捐献 ..\QuestDiary\杰森添加\行会捐献\九尾Mirjw行会数量.txt ..\QuestDiary\杰森添加\行会捐献\九尾Mirjw行会名单.txt 0 1
  GetListString ..\QuestDiary\杰森添加\行会捐献\九尾Mirjw行会名单.txt 0 S$第一行会名称A S$第一行会数量
  GetListString ..\QuestDiary\杰森添加\行会捐献\九尾Mirjw行会名单.txt 1 S$第二行会名称A S$第二行会数量

#if
  equal S$第一行会名称A <$GUILDNAME>
#act
MOV N$行会登录双防 10
MOV N$行会登录攻魔道 10

#if
  equal S$第二行会名称A <$GUILDNAME>
#act
MOV N$行会登录双防 5
MOV N$行会登录攻魔道 5
;===================================行会捐献========================================



#IF
checknamelist ..\QuestDiary\沙城捐献\捐献数据.txt
#ACT
MOV N$沙捐登录双防 5
MOV N$沙捐登录攻魔道 5



#IF
CHECK [318] 1
#ACT
MOV N$赞助登录双防 5
MOV N$赞助登录攻魔道 5

#IF
CHECK [168] 1
#ACT
MOV N$狂暴登录双防 0
MOV N$狂暴登录攻魔道 30

#IF
CHECKNAMELIST ..\QuestDiary\阿云制作\第六排名.txt
#ACT
mov N9 5
MOV N$爵位登录双防  0
MOV N$爵位登录攻魔道  5

#IF
CHECKNAMELIST ..\QuestDiary\阿云制作\第五排名.txt
#ACT
inc N9 10
MOV N$爵位登录双防  0
MOV N$爵位登录攻魔道  10

#IF
CHECKNAMELIST ..\QuestDiary\阿云制作\第四排名.txt
#ACT
inc N9 15
MOV N$爵位登录双防  0
MOV N$爵位登录攻魔道  15

#IF
CHECKNAMELIST ..\QuestDiary\阿云制作\第三排名.txt
#ACT
inc N9 20
MOV N$爵位登录双防  0
MOV N$爵位登录攻魔道  20

#IF
CHECKNAMELIST ..\QuestDiary\阿云制作\第二排名.txt
#ACT
inc N9 30
MOV N$爵位登录双防  0
MOV N$爵位登录攻魔道  30

#or
CHECKNAMELIST ..\QuestDiary\阿云制作\第一排名.txt
CHECKVAR HUMAN JK > 49999999
#ACT
inc N9 40
MOV N$爵位登录双防  0
MOV N$爵位登录攻魔道  40
CONFERTITLE 捐献第一名









#IF
CHECKRENEWLEVEL = 0
#ACT
MOV N$转生登录双防 0
MOV N$转生登录攻魔道 0

#IF
CHECKRENEWLEVEL = 1
#ACT
MOV N$转生登录双防 2
MOV N$转生登录攻魔道 2


#IF
CHECKRENEWLEVEL = 2
#ACT
MOV N$转生登录双防 5
MOV N$转生登录攻魔道 5


#IF
CHECKRENEWLEVEL = 3
#ACT
MOV N$转生登录双防 7
MOV N$转生登录攻魔道 7

#IF
CHECKRENEWLEVEL = 4
#ACT
MOV N$转生登录双防 10
MOV N$转生登录攻魔道 10


#IF
CHECKRENEWLEVEL = 5
#ACT
MOV N$转生登录双防 12
MOV N$转生登录攻魔道 12

#IF
CHECKRENEWLEVEL = 6
#ACT
MOV N$转生登录双防 15
MOV N$转生登录攻魔道 15


#IF
CHECKRENEWLEVEL = 7
#ACT
MOV N$转生登录双防 20
MOV N$转生登录攻魔道 20

#IF
CHECKRENEWLEVEL = 8
#ACT
MOV N$转生登录双防 25
MOV N$转生登录攻魔道 25


#IF
CHECKRENEWLEVEL = 9
#ACT
MOV N$转生登录双防 30
MOV N$转生登录攻魔道 30

#OR
CHECKVAR GLOBAL 男战名字 = <$USERNAME>
CHECKVAR GLOBAL 男道名字 = <$USERNAME>
CHECKVAR GLOBAL 男法名字 = <$USERNAME>
CHECKVAR GLOBAL 女战名字 = <$USERNAME>
CHECKVAR GLOBAL 女道名字 = <$USERNAME>
CHECKVAR GLOBAL 女法名字 = <$USERNAME>
#ACT
CHANGENAMECOLOR 253
INC N$攻击力倍数 10


#IF
equal a111 <$USERNAME>
#act
INC N$攻击力倍数 10

#IF 
Equal U11 1
#ACT
MOV N$官位登录双防 0
MOV N$官位登录攻魔道 2

#IF 
Equal U11 2
#ACT
MOV N$官位登录双防 0
MOV N$官位登录攻魔道 4

#IF 
Equal U11 3
#ACT
MOV N$官位登录双防 0
MOV N$官位登录攻魔道 6

#IF 
Equal U11 4
#ACT
MOV N$官位登录双防 0
MOV N$官位登录攻魔道 8

#IF 
Equal U11 5
#ACT
MOV N$官位登录双防 0
MOV N$官位登录攻魔道 10

#IF 
Equal U11 6
#ACT
MOV N$官位登录双防 0
MOV N$官位登录攻魔道 12

#IF 
Equal U11 7
#ACT
MOV N$官位登录双防 0
MOV N$官位登录攻魔道 14

#IF 
Equal U11 8
#ACT
MOV N$官位登录双防 0
MOV N$官位登录攻魔道 17

#IF 
Equal U11 9
#ACT
MOV N$官位登录双防 0
MOV N$官位登录攻魔道 20

#if
large N$攻击力倍数 100
#act 
powerrate <$str(N$攻击力倍数)> 65535 

#if
#ACT
INC N$登录所有双防 <$STR(N$行会登录双防)>
INC N$登录所有攻魔道 <$STR(N$行会登录攻魔道)>
INC N$登录所有攻魔道 <$STR(N$爵位登录攻魔道)>
INC N$登录所有攻魔道 <$STR(N$狂暴登录攻魔道)>
INC N$登录所有攻魔道 <$STR(N$官位登录攻魔道)>
INC N$登录所有攻魔道 <$STR(N$转生登录攻魔道)>
INC N$登录所有攻魔道 <$STR(N$赞助登录攻魔道)>
INC N$登录所有攻魔道 <$STR(N$沙捐登录攻魔道)>
INC N$登录所有双防 <$STR(N$爵位登录双防)>
INC N$登录所有双防 <$STR(N$狂暴登录双防)>
INC N$登录所有双防 <$STR(N$官位登录双防)>
INC N$登录所有双防 <$STR(N$转生登录双防)>
INC N$登录所有双防 <$STR(N$赞助登录双防)>
INC N$登录所有双防 <$STR(N$沙捐登录双防)>
ChangeHumAbility 1 = <$STR(N$登录所有双防)>
ChangeHumAbility 2 = <$STR(N$登录所有双防)>
ChangeHumAbility 3 = <$STR(N$登录所有双防)>
ChangeHumAbility 4 = <$STR(N$登录所有双防)>
ChangeHumAbility 5 = <$STR(N$登录所有攻魔道)>
ChangeHumAbility 6 = <$STR(N$登录所有攻魔道)>
ChangeHumAbility 7 = <$STR(N$登录所有攻魔道)>
ChangeHumAbility 8 = <$STR(N$登录所有攻魔道)>
ChangeHumAbility 9 = <$STR(N$登录所有攻魔道)>
ChangeHumAbility 10 = <$STR(N$登录所有攻魔道)>

}