传奇1.85英雄合击中赌博脚本

传奇私服脚本技术

学习传奇1.85英雄合击中赌博脚本，让我们的1.85英雄合击版本中有更多的游戏玩耍，请大家多多支持··

[@Resume]
#IF
#ACT
SENDMSG 5 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
SENDMSG 5 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
SENDMSG 5 　　　　　　因为你上次下线的时候使用了离线挂机功能　　　　　　　
SENDMSG 5 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
SENDMSG 5 　　　　　　　管理员为避免你在游戏中出现数据错误　　　　　　　　
SENDMSG 5 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
SENDMSG 5 　　　　　　　　　所以请你小退一下再重新登陆　　　　　　　　　　
SENDMSG 5 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
SENDMSG 5 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
KICK 1
BREAK

[@Login]
#IF
CHECKLEVELEX > 0
#ACT
VAR Integer HUMAN ZMSJ
VAR Integer HUMAN 杀怪数
VAR Integer HUMAN 可领经验
VAR Integer HUMAN 固定经验
VAR Integer HUMAN 获得经验
VAR Integer HUMAN 申请总数
VAR Integer HUMAN 已完成数
VAR Integer HUMAN 已领取数
VAR Integer HUMAN 可领取数
VAR Integer HUMAN 未完成数
VAR Integer HUMAN 金刚石
VAR String HUMAN 任务内容
VAR Integer HUMAN 任务数量
VAR Integer HUMAN 元宝奖励
VAR Integer HUMAN 经验奖励
VAR Integer HUMAN 任务完成否
VAR Integer HUMAN 每日次数
VAR Integer HUMAN 杀怪数量
VAR Integer HUMAN 奖励类别
VAR Integer HUMAN 实际数量
VAR Integer HUMAN 斩杀数
VAR Integer HUMAN 排行
VAR Integer HUMAN 排行开关
LOADVAR HUMAN 排行 ..\QuestDiary\宠物系统\变量.txt
LOADVAR HUMAN 排行开关 ..\QuestDiary\宠物系统\变量.txt
LOADVAR HUMAN 斩杀数 ..\QuestDiary\宠物系统\变量.txt
LOADVAR HUMAN 实际数量 ..\QuestDiary\数据文件\变量.txt
LOADVAR HUMAN 奖励类别 ..\QuestDiary\数据文件\变量.txt
LOADVAR HUMAN 杀怪数量 ..\QuestDiary\数据文件\变量.txt
LOADVAR HUMAN 任务内容 ..\QuestDiary\数据文件\变量.txt
LOADVAR HUMAN 任务数量 ..\QuestDiary\数据文件\变量.txt
LOADVAR HUMAN 元宝奖励 ..\QuestDiary\数据文件\变量.txt
LOADVAR HUMAN 经验奖励 ..\QuestDiary\数据文件\变量.txt
LOADVAR HUMAN 每日次数 ..\QuestDiary\数据文件\变量.txt
LOADVAR HUMAN 任务完成否 ..\QuestDiary\数据文件\变量.txt
LOADVAR HUMAN 金刚石 ..\QuestDiary\数据文件\金刚石\金刚石.txt
LOADVAR HUMAN 可领经验 ..\QuestDiary\数据文件\金刚石\可领经验.txt
LOADVAR HUMAN 获得经验 ..\QuestDiary\数据文件\金刚石\获得经验.txt
LOADVAR HUMAN 固定经验 ..\QuestDiary\数据文件\金刚石\固定经验.txt
LOADVAR HUMAN 申请总数 ..\QuestDiary\数据文件\金刚石\申请总数.txt
LOADVAR HUMAN 已完成数 ..\QuestDiary\数据文件\金刚石\已完成数.txt
LOADVAR HUMAN 已领取数 ..\QuestDiary\数据文件\金刚石\已领取数.txt
LOADVAR HUMAN 可领取数 ..\QuestDiary\数据文件\金刚石\可领取数.txt
LOADVAR HUMAN 未完成数 ..\QuestDiary\数据文件\金刚石\未完成数.txt
LOADVAR HUMAN 杀怪数  ..\QuestDiary\数据文件\杀怪数.txt
LOADVAR HUMAN ZMSJ ..\QuestDiary\数据文件\ZMSJSave.txt
GOTO @锦囊
#CALL [\登陆设置\新手登陆.txt] @新手登陆
;#CALL [\\封号系统\封号系统.txt] @封号分类
;#CALL [\官职系统\上线封号.txt]  @封号
#CALL [\\登陆设置\全局变量.txt] @全局自定义变量
#CALL [\\杀手系统\杀手登陆.txt] @登陆杀手
#if
isnewhuman
#act
#CALL [\新手指导\新人礼物.txt] @新人礼物

[@锦囊]
#IF
checknamelist ..\QuestDiary\数据文件\锦囊.txt
#ACT
break
#IF
checkitem 锦囊 1
#ELSEACT
GIVE 锦囊 1

[@风雷召唤]
#IF
HaveGuild
CheckOfGuild A35
#SAY
同门师兄弟〖<$STR(A34)>〗需要帮助！\
你是否愿意前往？\ \
<前往帮助/@风雷召唤_1>　　<不前往帮助/@EXIT>\
#ACT
BREAK
#ELSEACT
BREAK

[@风雷召唤_1]
#IF
HaveGuild
CheckOfGuild A35
#ACT
Gmexecute 跟踪 <$STR(A34)>
BREAK
#ELSEACT
BREAK

[@增加金刚石]
#IF
  checknamelist ..\QuestDiary\数据文件\金刚石\锻造名单.txt
  CHECKVAR HUMAN 未完成数 > 0
#ACT
  CALCVAR HUMAN 已完成数 + 1
  SAVEVAR HUMAN 已完成数 ..\QuestDiary\数据文件\金刚石\已完成数.txt
  CALCVAR HUMAN 可领取数 + 1
  SAVEVAR HUMAN 可领取数 ..\QuestDiary\数据文件\金刚石\可领取数.txt
  CALCVAR HUMAN 未完成数 - 1
  SAVEVAR HUMAN 未完成数 ..\QuestDiary\数据文件\金刚石\未完成数.txt
  break

[@全服封号调整]
#CALL [\\封号系统\天下第一.txt] @第一封号
#CALL [\\封号系统\封号系统.txt] @封号分类
[@OnTimer1]
#if
ISCASTLEMASTER
#ELSEACT
TakeOffItem 城主战袍(男) 0
TakeOffItem 城主战袍(女) 0
SETOFFTIMER 1
take 城主战袍(男) 46
take 城主战袍(女) 46
SENDMSG 6 你不是沙城主了，系统自动收回城主战袍！~
SENDMSG 6 你不是沙城主了，系统自动收回城主战袍！~

[@fgfgfg]
#If
isonmap cddou
check [65] 1
checknamelist ..\QuestDiary\数据文件\压注名单.txt
#ACT
mov D0 <$STR(G72)>
playdice 1 @cube_cds
break

#IF
isonmap cddou
#ACT
mov D0 <$STR(G72)>
playdice 1 @dutouzi_ll
#SAY
正在投骰子。。。\ \

[@cube_cds]
#IF
check [65] 0
#ACT
goto @dutouzi_ll
break

;-------------------大中小开始--------
#IF
isonmap cddou
check [65] 1
equal D0 6
LARGE N89 0
LARGE N78 2
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N78)>
inc G73 <$STR(N78)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N78)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 5
LARGE N89 0
LARGE N78 2
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N78)>
inc G73 <$STR(N78)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N78)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 4
LARGE N90 0
LARGE N79 2
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N79)>
inc G73 <$STR(N79)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N79)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 3
LARGE N90 0
LARGE N79 2
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N79)>
inc G73 <$STR(N79)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N79)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 2
LARGE N91 0
LARGE N80 2
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N80)>
inc G73 <$STR(N80)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N80)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 1
LARGE N91 0
LARGE N80 2
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N80)>
inc G73 <$STR(N80)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N80)>元宝的奖励！
goto @dutouzi_cds-lk
break
;-------------------大中小结束--------
;-------------------单双开始--------
#IF
isonmap cddou
check [65] 1
equal D0 6
LARGE N93 0
LARGE N82 1
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N82)>
inc G73 <$STR(N82)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N82)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 4
LARGE N93 0
LARGE N82 1
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N82)>
inc G73 <$STR(N82)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N82)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 2
LARGE N93 0
LARGE N82 1
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N82)>
inc G73 <$STR(N82)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N82)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 5
LARGE N92 0
LARGE N81 1
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N81)>
inc G73 <$STR(N81)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N81)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 3
LARGE N92 0
LARGE N81 1
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N81)>
inc G73 <$STR(N81)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N81)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 1
LARGE N92 0
LARGE N81 1
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N81)>
inc G73 <$STR(N81)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N81)>元宝的奖励！
goto @dutouzi_cds-lk
break
;-------------------单双结束--------
;-------------------点数开始--------
#IF
isonmap cddou
check [65] 1
equal D0 1
LARGE N94 0
LARGE N83 1
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N83)>
inc G73 <$STR(N83)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N83)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 2
LARGE N95 0
LARGE N84 1
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N84)>
inc G73 <$STR(N84)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N84)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 3
LARGE N96 0
LARGE N85 1
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N85)>
inc G73 <$STR(N85)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N85)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 4
LARGE N97 0
LARGE N86 1
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N86)>
inc G73 <$STR(N86)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N86)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 5
LARGE N98 0
LARGE N87 1
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N87)>
inc G73 <$STR(N87)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N87)>元宝的奖励！
goto @dutouzi_cds-lk
break

#IF
isonmap cddou
check [65] 1
equal D0 6
LARGE N99 0
LARGE N88 1
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N88)>
inc G73 <$STR(N88)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N88)>元宝的奖励！
goto @dutouzi_cds-lk
break

;-------------------点数结束--------

#ELSEACT
CLEARDELAYGOTO
Set [65] 0
mov G71 0
MOV G78 0
MOV G79 0
MOV G80 0
MOV G81 0
MOV G82 0
MOV G83 0
MOV G84 0
MOV G85 0
MOV G86 0
MOV G87 0
MOV G88 0
MOV G89 0
MOV G90 0
MOV G91 0
MOV G92 0
MOV G93 0
MOV G94 0
MOV G95 0
MOV G96 0
MOV G97 0
MOV G98 0
MOV G99 0
MOV N71 0
MOV N78 0
MOV N79 0
MOV N80 0
MOV N81 0
MOV N82 0
MOV N83 0
MOV N84 0
MOV N85 0
MOV N86 0
MOV N87 0
MOV N88 0
MOV N89 0
MOV N90 0
MOV N91 0
MOV N92 0
MOV N93 0
MOV N94 0
MOV N95 0
MOV N96 0
MOV N97 0
MOV N98 0
MOV N99 0
GOTO @dushuol
[@dushuol]
#SAY
很可惜...\
骰子的点数是<$STR(D0)> 和你猜的点数不同.\ \ \
<离 开/@exit>\

[@dutouzi_cds-lk]
#IF
check [65] 1
LARGE N78 G70
#ACT
CLEARDELAYGOTO
SENDMSG 0 提示：【<$USERNAME>】在赌场赢得<$STR(N78)>元宝，想要发财的快快行动！
goto @dutouzi_ll
break
#IF
check [65] 1
LARGE N79 G70
#ACT
CLEARDELAYGOTO
SENDMSG 0 提示：【<$USERNAME>】在赌场赢得<$STR(N79)>元宝，想要发财的快快行动！
goto @dutouzi_ll
break
#IF
check [65] 1
LARGE N80 G70
#ACT
CLEARDELAYGOTO
SENDMSG 0 提示：【<$USERNAME>】在赌场赢得<$STR(N80)>元宝，想要发财的快快行动！
goto @dutouzi_ll
break
#IF
check [65] 1
LARGE N81 G70
#ACT
CLEARDELAYGOTO
SENDMSG 0 提示：【<$USERNAME>】在赌场赢得<$STR(N81)>元宝，想要发财的快快行动！
goto @dutouzi_ll
break
#IF
check [65] 1
LARGE N82 G70
#ACT
CLEARDELAYGOTO
SENDMSG 0 提示：【<$USERNAME>】在赌场赢得<$STR(N82)>元宝，想要发财的快快行动！
goto @dutouzi_ll
break
#IF
check [65] 1
LARGE N83 G70
#ACT
CLEARDELAYGOTO
SENDMSG 0 提示：【<$USERNAME>】在赌场赢得<$STR(N83)>元宝，想要发财的快快行动！
goto @dutouzi_ll
break
#IF
check [65] 1
LARGE N84 G70
#ACT
CLEARDELAYGOTO
SENDMSG 0 提示：【<$USERNAME>】在赌场赢得<$STR(N84)>元宝，想要发财的快快行动！
goto @dutouzi_ll
break
#IF
check [65] 1
LARGE N85 G70
#ACT
CLEARDELAYGOTO
SENDMSG 0 提示：【<$USERNAME>】在赌场赢得<$STR(N85)>元宝，想要发财的快快行动！
goto @dutouzi_ll
break
#IF
check [65] 1
LARGE N86 G70
#ACT
CLEARDELAYGOTO
SENDMSG 0 提示：【<$USERNAME>】在赌场赢得<$STR(N86)>元宝，想要发财的快快行动！
goto @dutouzi_ll
break
#IF
check [65] 1
LARGE N87 G70
#ACT
CLEARDELAYGOTO
SENDMSG 0 提示：【<$USERNAME>】在赌场赢得<$STR(N87)>元宝，想要发财的快快行动！
goto @dutouzi_ll
break
#IF
check [65] 1
LARGE N88 G70
#ACT
CLEARDELAYGOTO
SENDMSG 0 提示：【<$USERNAME>】在赌场赢得<$STR(N88)>元宝，想要发财的快快行动！
goto @dutouzi_ll
break
#ELSEACT
CLEARDELAYGOTO
goto @dutouzi_ll
break

[@dutouzi_ll]
#ACT
Set [65] 0
mov G71 0
MOV G78 0
MOV G79 0
MOV G80 0
MOV G81 0
MOV G82 0
MOV G83 0
MOV G84 0
MOV G85 0
MOV G86 0
MOV G87 0
MOV G88 0
MOV G89 0
MOV G90 0
MOV G91 0
MOV G92 0
MOV G93 0
MOV G94 0
MOV G95 0
MOV G96 0
MOV G97 0
MOV G98 0
MOV G99 0
MOV N71 0
MOV N78 0
MOV N79 0
MOV N80 0
MOV N81 0
MOV N82 0
MOV N83 0
MOV N84 0
MOV N85 0
MOV N86 0
MOV N87 0
MOV N88 0
MOV N89 0
MOV N90 0
MOV N91 0
MOV N92 0
MOV N93 0
MOV N94 0
MOV N95 0
MOV N96 0
MOV N97 0
MOV N98 0
MOV N99 0
CLEARNAMELIST ..\QuestDiary\数据文件\压注名单.txt
break
CLOSE

[@挑战结束]
#IF
LARGE M50 0
EQUAL S33 <$STR(A29)>
#ACT
INC M50 <$STR(M50)>
MOV M53 <$STR(M50)>
GAMEGOLD + <$STR(M50)>
SENDMSG 0 挑战结束擂主【<$STR(A29)>】了，【<$USERNAME>】押擂主【<$STR(A29)>】，获得了【<$STR(M50)>】元宝奖金。
MOV M49 0
MOV M50 0
MOV S33
BREAK

#IF
LARGE M50 0
#ACT
SENDMSG 0 挑战结束擂主【<$STR(A29)>】了，【<$USERNAME>】押擂主【<$STR(S33)>】，输了【<$STR(M50)>】元宝赌金。
MOV M49 0
MOV M50 0
MOV S33
BREAK

[@挑战完结]
#IF
EQUAL A22 <$USERNAME>
#Act
GIVE <$STR(A26)> 1
MAPMOVE 3 330 330
BREAK

#IF
EQUAL A24 <$USERNAME>
#Act
GIVE <$STR(A26)> 1
MAPMOVE 3 330 330
BREAK

[@挑战终结]
#IF
EQUAL A22 <$USERNAME>
ISONMAP DTPK
#Act
MOV A29 赢
GIVE <$STR(A26)> 2
MAPMOVE 3 330 330
MOV A27 暂停
MOV G52 0
SendMsg 0 擂台挑战者<$STR(A24)>吓跑了，离开擂台，<$STR(A22)>获胜！
MOV M53 <$STR(G55)>
GAMEGOLD + <$STR(G55)>
SENDMSG 0 挑战结束，擂台擂主收回了【<$STR(G55)>】个元宝的赌金。
GMEXECUTE 全服触发 @挑战结束
MOV A22 无
MOV A23 无
MOV A24 无
MOV A25 无
MOV A26 无
MOV G49 0
MOV G50 0
MOV G51 0
MOV G53 0
MOV G54 0
MOV G55 0
MOV G56 0
BREAK
;===================================================================
#IF
EQUAL A24 <$USERNAME>
ISONMAP DTPK
#ACT
MOV M53 <$STR(G56)>
DIV M53 <$STR(M53)> 10
DEC G56 <$STR(M53)>

#IF
EQUAL A24 <$USERNAME>
ISONMAP DTPK
SMALL G56 1
#Act
MOV A29 输
GIVE <$STR(A26)> 2
MAPMOVE 3 330 330
MOV A27 暂停
MOV G52 0
MOV G56 0
SendMsg 0 擂台擂主<$STR(A22)>吓跑了，离开擂台，<$STR(A24)>获胜！
SENDMSG 0 挑战结束，擂台擂主收回了【<$STR(G56)>】个元宝的赌金。
GMEXECUTE 全服触发 @挑战结束
MOV A22 无
MOV A23 无
MOV A24 无
MOV A25 无
MOV A26 无
MOV G49 0
MOV G50 0
MOV G51 0
MOV G53 0
MOV G54 0
MOV G55 0
MOV G56 0
BREAK
#ELSEACT
#IF
EQUAL A24 <$USERNAME>
ISONMAP DTPK
#ACT
MOV A29 输
GIVE <$STR(A26)> 2
MAPMOVE 3 330 330
MOV A27 暂停
MOV G52 0
SendMsg 0 擂台擂主<$STR(A22)>吓跑了，离开擂台，<$STR(A24)>获胜！
;MOV M53 <$STR(G56)>
;DIV M53 <$STR(M53)> 10
;DEC G56 <$STR(M53)>
GAMEGOLD + <$STR(G56)>
SENDMSG 0 挑战结束，擂台擂主收回了【<$STR(G56)>】个元宝的赌金。
GMEXECUTE 全服触发 @挑战结束
MOV A22 无
MOV A23 无
MOV A24 无
MOV A25 无
MOV A26 无
MOV G49 0
MOV G50 0
MOV G51 0
MOV G53 0
MOV G54 0
MOV G55 0
MOV G56 0
BREAK

开SF一条龙传奇一条龙