Hero引擎脚本-擂台比武

(@@InPutString @@InPutInteger )

[@main]
#IF
#ACT
CloseBigDialogBox -1
Close
#SAY
<★/SCOLOR=69> <露天比武擂台激情刺激/SCOLOR=250>,还设有观擂台,可观战,更人性化<★/SCOLOR=69>\
<★/SCOLOR=69> 上台与你比武，谁赢了谁就获得所押的元宝。比武中<不/SCOLOR=249> <★/SCOLOR=69>\
<★/SCOLOR=69> <允许使用药品以及任何作弊行为/SCOLOR=250>,<比武时间:必须在10分/SCOLOR=249> <★/SCOLOR=69>\
<★/SCOLOR=69> <钟内完成/SCOLOR=250>，如果10分钟内不分胜负，所押的元宝 将会被<★/SCOLOR=69>\
<★/SCOLOR=69> 系统没收哦！<提示:本服独家设计,体验真正的打擂模式!/SCOLOR=253><★/SCOLOR=69>\
　　<『开设擂台』/@开设擂台>     <『我要打擂』/@进入观战>     <『进入观战』/@进入观战a>\


[@进入观战]
#IF
CHECKMAPHUMANCOUNT leitai > 0
#ACT
SetOnTimer 18 1
ChangeModeEx 1 99999
GetRandomText .\QuestDiary\擂台随机坐标.txt S10
#ELSEACT
MESSAGEBOX [错误]:目前没有玩家摆擂...
BREAK

#IF
EQUAL S10 1
#ACT
SetHumAttackMode 1 99999
MapMove leitai 15 15
BREAK

#IF
EQUAL S10 2
#ACT
SetHumAttackMode 1 99999
MapMove leitai 16 14
BREAK

#IF
EQUAL S10 3
#ACT
SetHumAttackMode 1 99999
MapMove leitai 19 11
BREAK

#IF
EQUAL S10 4
#ACT
SetHumAttackMode 1 99999
MapMove leitai 24 15
BREAK

#IF
EQUAL S10 5
#ACT
SetHumAttackMode 1 99999
MapMove leitai 27 18
BREAK

#IF
EQUAL S10 6
#ACT
SetHumAttackMode 1 99999
MapMove leitai 23 22
BREAK

#IF
EQUAL S10 7
#ACT
SetHumAttackMode 1 99999
MapMove leitai 23 22
BREAK

#IF
EQUAL S10 8
#ACT
SetHumAttackMode 1 99999
MapMove leitai 20 25
BREAK

#IF
EQUAL S10 9
#ACT
SetHumAttackMode 1 99999
MapMove leitai 16 21
BREAK






[@进入观战a]

#IF
CHECKMAPHUMANCOUNT leitai > 0
#ACT
SetOnTimer 18 1
ChangeModeEx 1 99999
GetRandomText .\QuestDiary\擂台随机坐标.txt S10
#ELSEACT
MESSAGEBOX [错误]:目前没有玩家摆擂...
BREAK



#IF
CHECKLEVELEX > 0
#ACT
GetRandomText .\QuestDiary\擂台随机坐标.txt S10


#IF
EQUAL S10 1
#ACT
SetHumAttackMode 1 99999
MapMove leitai 15 15
BREAK

#IF
EQUAL S10 2
#ACT
SetHumAttackMode 1 99999
MapMove leitai 16 14
BREAK

#IF
EQUAL S10 3
#ACT
SetHumAttackMode 1 99999
MapMove leitai 19 11
BREAK

#IF
EQUAL S10 4
#ACT
SetHumAttackMode 1 99999
MapMove leitai 24 15
BREAK

#IF
EQUAL S10 5
#ACT
SetHumAttackMode 1 99999
MapMove leitai 27 18
BREAK

#IF
EQUAL S10 6
#ACT
SetHumAttackMode 1 99999
MapMove leitai 23 22
BREAK

#IF
EQUAL S10 7
#ACT
SetHumAttackMode 1 99999
MapMove leitai 23 22
BREAK

#IF
EQUAL S10 8
#ACT
SetHumAttackMode 1 99999
MapMove leitai 20 25
BREAK

#IF
EQUAL S10 9
#ACT
SetHumAttackMode 1 99999
MapMove leitai 16 21
BREAK




[@打擂]

#IF
CHECKVAR GLOBAL 是否打擂 = 1
#ACT
CALCVAR GLOBAL 是否打擂 = 0
MESSAGEBOX [错误]:已经有人打擂了...
BREAK


#IF
CHECKGAMEGOLD > <$GLOBAL(摆擂元宝)>
#ACT
CALCVAR GLOBAL 打擂玩家 = <$USERNAME>
MapMove leitai 23 17
HCALL <$GLOBAL(摆擂玩家)>  @我要打擂
MOV S3 <$GLOBAL(摆擂玩家)>
SetOnTimer 17 1
GAMEGOLD - <$GLOBAL(摆擂元宝)>
CALCVAR GLOBAL 摆擂元宝 + <$GLOBAL(摆擂元宝)>
CALCVAR GLOBAL 是否打擂 = 1
GuildNoticeMsg 0  146  玩家【%s】使用【<$GLOBAL(摆擂元宝)>】元宝成功摆擂！勇士们速度前往挑战擂台！
GuildNoticeMsg 0  146  玩家【%s】使用【<$GLOBAL(摆擂元宝)>】元宝成功摆擂！勇士们速度前往挑战擂台！
GuildNoticeMsg 0  146  玩家【%s】使用【<$GLOBAL(摆擂元宝)>】元宝成功摆擂！勇士们速度前往挑战擂台！
SetHumAttackMode 0 5

[@开设擂台]
#IF
CHECKMAPHUMANCOUNT leitai > 0
#ACT
MESSAGEBOX [错误]:现在已经有人在摆擂了...您可以直接进去挑战他赢得元宝
BREAK



#IF
CHECKLEVELEX > 0
#ACT
CALCVAR GLOBAL 摆擂元宝 = 0
#SAY
\ \
<请输入摆擂的元宝/@@InPutInteger2>:<$GLOBAL(摆擂元宝)>

[@@InPutInteger2]
#If
CheckLevelEx > 0
#Act
MOV N2 0
DelayGoto 0 ~InPutInteger2
[~InPutInteger2]

#IF
CHECKMAPHUMANCOUNT leitai > 0
#ACT
MESSAGEBOX [错误]:现在已经有人在摆擂了...您可以直接进去挑战他赢得元宝
BREAK



#IF
SMALL N2 1
#ACT
MESSAGEBOX [错误]:请输入1以上的数值..
BREAK


#IF
CHECKGAMEGOLD > <$STR(N2)>
#ACT
GAMEGOLD - <$STR(N2)>
MapMove leitai 17 17
HCALL <$GLOBAL(摆擂玩家)>  @打擂封号取消
CALCVAR GLOBAL 摆擂玩家 = <$USERNAME>
CALCVAR GLOBAL 摆擂元宝 = <$STR(N2)>
;SetIcon 0 463
;SetIcon 1 514
;SetIcon 2 482
;SetIcon 3 464
SetHumAttackMode 0 5
GuildNoticeMsg 0  146  玩家【%s】使用【<$GLOBAL(摆擂元宝)>】元宝成功摆擂！勇士们速度前往挑战擂台！
GuildNoticeMsg 0  146  玩家【%s】使用【<$GLOBAL(摆擂元宝)>】元宝成功摆擂！勇士们速度前往挑战擂台！
GuildNoticeMsg 0  146  玩家【%s】使用【<$GLOBAL(摆擂元宝)>】元宝成功摆擂！勇士们速度前往挑战擂台！
#elseact
MESSAGEBOX [错误]:你的元宝不足<$STR(N2)>.