传奇仙魔传奇论坛技术之**脚本

(@@InPutInteger @@InPutString )
[@MAIN]
#IF
LARGE I74 5
#ACT
MESSAGEBOX 论坛进行中！错误代码:<$STR(I74)>！\稍等即可开始游戏！
BREAK
#if
check [009] 0
#ACT
DELNAMELIST ..\QuestDiary\临时名单\压注单双.txt
DELNAMELIST ..\QuestDiary\临时名单\压注大小.txt
DELNAMELIST ..\QuestDiary\临时名单\压注点数.txt
SET [008] 0
SET [009] 0
MOV M26 0
MOV M27 0
MOV M28 0   
MOV S27
MOV S28
MOV S29
MOV S30
MOV S31
#IF
equal H70 1
ISADMIN
#SAY
当前税率为<$STR(H71)>  当前吃赢率为<$STR(H72)>  限制下注为：<$STR(H71)>-<$STR(H75)>\
共有<$STR(H73)>人参与游戏,当前元宝收支状态为:<$STR(H74)>\
<输入赢钱后收的税率/@@InPutInteger11>    <多方赢钱的机率/@@InPutInteger12> 数字越小机率越小\ \
<最大下注限制/@@InPutInteger13>     <输入你想开的点数/@@InPutInteger14>   <开启城/@开启城>  <关闭城/@关闭城>\ \
机率状态：【<$STR(A58)>】 <重置变量/@重置城>\
3倍:【 <大/@大> 】 【 <中/@中> 】 【 <小/@小> 】    2倍:【 <单/@单> 】 【 <双/@双> 】  \
5倍:【<一点/@一点>】 【<二点/@二点>】 【<三点/@三点>】 【<四点/@四点>】 【<五点/@五点>】 【<六点/@六点>】\
#ACT
BREAK
#IF
equal H70 1
#ACT
BREAK
#SAY
**目前正在关闭
请注意下次开放时间！
#IF
ISADMIN
#ACT
BREAK
#SAY
亲爱的玩家：〖<$USERNAME>〗   <你拥有元宝数量>：〖<$GAMEGOLD>〗颗！\
选择你要下注的类型！<论坛中掉线
下线
换地图会导致压注丢失>！\
【 <单/@单> 】：<$STR(I50)>人押<$STR(I51)>注【 <双/@双> 】：<$STR(I52)>人押<$STR(I53)>注【 <进/@后台> 】后台机率！点字<$STR(a48)>步骤<$STR(I74)>点数<$STR(I73)>作比步骤<$STR(I20)>\
【 <大/@大> 】：<$STR(I54)>人押<$STR(I55)>注【 <中/@中> 】：<$STR(I56)>人押<$STR(I57)>注【 <小/@小> 】：<$STR(I58)>人押<$STR(I59)>注\
【<一点/@一点>】：<$STR(I60)>人押<$STR(I61)>注【<二点/@二点>】：<$STR(I62)>人押<$STR(I63)>注【<三点/@三点>】：<$STR(I64)>人押<$STR(I65)>注\
【<四点/@四点>】：<$STR(I66)>人押<$STR(I67)>注【<五点/@五点>】：<$STR(I68)>人押<$STR(I69)>注【<六点/@六点>】：<$STR(I70)>人押<$STR(I71)>注\
历史记录：【<$STR(A47)>】你当前押了：【<$STR(S27)>】！\
　　　【<查看规则/@规则>】　　　【<返回盟重/@返回到盟重>】　　　　【<刷新显示/@main>】\
离开局时间还剩下<$STR(I72)>秒
请抓紧时间下注！【注只能压<$STR(H71)>-<$STR(H75)>】\
#ELSESAY
亲爱的玩家：〖<$USERNAME>〗   <你拥有元宝数量>：〖<$GAMEGOLD>〗颗！\
选择你要下注的类型！<论坛中掉线
下线
换地图会导致压注丢失>！\
【 <单/@单> 】：<$STR(I50)>人押<$STR(I51)>注【 <双/@双> 】：<$STR(I52)>人押<$STR(I53)>注\
【 <大/@大> 】：<$STR(I54)>人押<$STR(I55)>注【 <中/@中> 】：<$STR(I56)>人押<$STR(I57)>注【 <小/@小> 】：<$STR(I58)>人押<$STR(I59)>注\
【<一点/@一点>】：<$STR(I60)>人押<$STR(I61)>注【<二点/@二点>】：<$STR(I62)>人押<$STR(I63)>注【<三点/@三点>】：<$STR(I64)>人押<$STR(I65)>注\
【<四点/@四点>】：<$STR(I66)>人押<$STR(I67)>注【<五点/@五点>】：<$STR(I68)>人押<$STR(I69)>注【<六点/@六点>】：<$STR(I70)>人押<$STR(I71)>注\
历史记录：【<$STR(A47)>】你当前押了：【<$STR(S27)>】！\
　　　【<查看规则/@规则>】　　　【<返回盟重/@返回到盟重>】　　　　【<刷新显示/@main>】\
离开局时间还剩下<$STR(I72)>秒
请抓紧时间下注！【注只能压<$STR(H71)>-<$STR(H75)>】\
[@后台]
#IF
ISADMIN
#SAY
当前税率为<$STR(H71)>  当前吃赢率为<$STR(H72)>  限制下注为：<$STR(H71)>-<$STR(H75)>\
共有<$STR(H73)>人参与游戏,当前元宝收支状态为:<$STR(H74)>\
<输入赢钱后收的税率/@@InPutInteger11>    <多方赢钱的机率/@@InPutInteger12> 数字越小机率越小\ \
<最大下注限制/@@InPutInteger13>     <输入你想开的点数/@@InPutInteger14> <重置变量/@重置城>  <开启城/@开启城>  <关闭城/@关闭城>\ \
机率状态：【<$STR(A58)>】 \
3倍:【 <大/@大> 】 【 <中/@中> 】 【 <小/@小> 】    2倍:【 <单/@单> 】 【 <双/@双> 】  \
5倍:【<一点/@一点>】 【<二点/@二点>】 【<三点/@三点>】 【<四点/@四点>】 【<五点/@五点>】 【<六点/@六点>】\
#ACT
BREAK
#ELSEACT
BREAK

[@重置城]
#IF
ISADMIN
#ACT
MOV A47
SENDMSG 5 重置成功！
BREAK
#ELSEACT
BREAK
[@@InPutInteger14]
#IF
ISADMIN
#ACT
DelayGoto 1 ~@@InPutInteger14
BREAK
#ELSEACT
BREAK
[~@@InPutInteger14]
#IF
ISADMIN
LARGE M14 0
SMALL M14 7
#ACT
MOV I73 <$STR(M14)>
SENDMSG 5 设置成功
本局开：<$STR(I73)>点！
BREAK
#ELSEACT
BREAK
[@@InPutInteger13]
#IF
ISADMIN
#ACT
DelayGoto 1 ~@@InPutInteger13
BREAK
#ELSEACT
BREAK
[~@@InPutInteger13]
#IF
ISADMIN
LARGE M13 0
#ACT
MOV H75 <$STR(M13)>
SENDMSG 5 设置成功
最大下注限制为：<$STR(H75)>！
BREAK
[@@InPutInteger12]
#IF
ISADMIN
#ACT
DelayGoto 1 ~@@InPutInteger12
BREAK
#ELSEACT
BREAK
[~@@InPutInteger12]
#IF
ISADMIN
LARGE M12 0
SMALL M12 100
#ACT
MOV H72 <$STR(M12)>
SENDMSG 5 设置成功
多方赢钱机率为：<$STR(H72)>%！
BREAK
#ELSEACT
MessageBox 错误提示：机率为大于1小于100！
BREAK
[@@InPutInteger11]
#IF
ISADMIN
#ACT
DelayGoto 1 ~@@InPutInteger11
BREAK
#ELSEACT
BREAK
[~@@InPutInteger11]
#IF
ISADMIN
#ACT
MOV H71 <$STR(M11)>
SENDMSG 5 设置成功
当前税率为：<$STR(H71)>%！
BREAK
#ELSEACT
BREAK
[@关闭城]
#IF
CheckLevelEx > 0
#ACT
mov H70 1
SENDMSG 0 系统公告：**暂时关闭
请各位玩家等待下次开放时间！ 151 219
SENDMSG 0 系统公告：**暂时关闭
请各位玩家等待下次开放时间！ 151 219
BREAK
[@开启城]
#IF
CheckLevelEx > 0
#ACT
mov H70 0
SENDMSG 0  系统公告：**正式营业！玩家可由盟重酒馆处进入！ 151 219
SENDMSG 0  系统公告：**正式营业！玩家可由盟重酒馆处进入！ 151 219
BREAK
[@六点]
#IF
CHECKNAMELIST ..\QuestDiary\临时名单\压注点数.txt
#ACT
MessageBox 错误提示：你已经下过注压《点数》了
不能重复下注！
BREAK
#IF
SMALL M28 1
EQUAL S30
#ACT
MOV S26 六点
MOV M24 6
DelayGoto 1 @压显示
BREAK
#ELSEACT
MessageBox 错误提示：你已经下过注压《点数》了
不能重复下注！
BREAK
[@五点]
#IF
CHECKNAMELIST ..\QuestDiary\临时名单\压注点数.txt
#ACT
MessageBox 错误提示：你已经下过注压《点数》了
不能重复下注！
BREAK
#IF
SMALL M28 1
EQUAL S30
#ACT
MOV S26 五点
MOV M24 6
DelayGoto 1 @压显示
BREAK
#ELSEACT
MessageBox 错误提示：你已经下过注压《点数》了
不能重复下注！
BREAK
[@四点]
#IF
CHECKNAMELIST ..\QuestDiary\临时名单\压注点数.txt
#ACT
MessageBox 错误提示：你已经下过注压《点数》了
不能重复下注！
BREAK
#IF
SMALL M28 1
EQUAL S30
#ACT
MOV S26 四点
MOV M24 6
DelayGoto 1 @压显示
BREAK
#ELSEACT
MessageBox 错误提示：你已经下过注压《点数》了
不能重复下注！
BREAK
[@三点]
#IF
CHECKNAMELIST ..\QuestDiary\临时名单\压注点数.txt
#ACT
MessageBox 错误提示：你已经下过注压《点数》了
不能重复下注！
BREAK
#IF
SMALL M28 1
EQUAL S30
#ACT
MOV S26 三点
MOV M24 6
DelayGoto 1 @压显示
BREAK
#ELSEACT
MessageBox 错误提示：你已经下过注压《点数》了
不能重复下注！
BREAK
[@二点]
#IF
CHECKNAMELIST ..\QuestDiary\临时名单\压注点数.txt
#ACT
MessageBox 错误提示：你已经下过注压《点数》了
不能重复下注！
BREAK
#IF
SMALL M28 1
EQUAL S30
#ACT
MOV S26 二点
MOV M24 6
DelayGoto 1 @压显示
BREAK
#ELSEACT
MessageBox 错误提示：你已经下过注压《点数》了
不能重复下注！
BREAK
[@一点]
#IF
CHECKNAMELIST ..\QuestDiary\临时名单\压注点数.txt
#ACT
MessageBox 错误提示：你已经下过注压《点数》了
不能重复下注！
BREAK
#IF
SMALL M28 1
EQUAL S30
#ACT
MOV S26 一点
MOV M24 6
DelayGoto 1 @压显示
BREAK
#ELSEACT
MessageBox 错误提示：你已经下过注压《点数》了
不能重复下注！
BREAK
[@小]
#IF
CHECKNAMELIST ..\QuestDiary\临时名单\压注大小.txt
#ACT
MessageBox 错误提示：你已经下过注压《大小》了
不能重复下注！
BREAK
#IF
SMALL M27 1
EQUAL S29
#ACT
MOV S26 小
MOV M24 3
DelayGoto 1 @压显示
BREAK
#ELSEACT
MessageBox 错误提示：你已经下过注压《大小》了
不能重复下注！
BREAK
[@中]
#IF
CHECKNAMELIST ..\QuestDiary\临时名单\压注大小.txt
#ACT
MessageBox 错误提示：你已经下过注压《大小》了
不能重复下注！
BREAK
#IF
SMALL M27 1
EQUAL S29
#ACT
MOV S26 中
MOV M24 3
DelayGoto 1 @压显示
BREAK
#ELSEACT
MessageBox 错误提示：你已经下过注压《大小》了
不能重复下注！
BREAK
[@大]
#IF
CHECKNAMELIST ..\QuestDiary\临时名单\压注大小.txt
#ACT
MessageBox 错误提示：你已经下过注压《大小》了
不能重复下注！
BREAK
#IF
SMALL M27 1
EQUAL S29
#ACT
MOV S26 大
MOV M24 3
DelayGoto 1 @压显示
BREAK
#ELSEACT
MessageBox 错误提示：你已经下过注压《大小》了
不能重复下注！
BREAK
[@双]
#IF
CHECKNAMELIST ..\QuestDiary\临时名单\压注单双.txt
#ACT
MessageBox 错误提示：你已经下过注压《单双》了
不能重复下注！
BREAK
#IF
SMALL M26 1
EQUAL S28
#ACT
MOV S26 双
MOV M24 2
DelayGoto 1 @压显示
BREAK
#ELSEACT
MessageBox 错误提示：你已经下过注压《单双》了
不能重复下注！
BREAK
[@单]
#IF
CHECKNAMELIST ..\QuestDiary\临时名单\压注单双.txt
#ACT
MessageBox 错误提示：你已经下过注压《单双》了
不能重复下注！
BREAK
#IF
SMALL M26 1
EQUAL S28
#ACT
MOV S26 单
MOV M24 2
DelayGoto 1 @压显示
BREAK
#ELSEACT
MessageBox 错误提示：你已经下过注压《单双》了
不能重复下注！
BREAK
[@压显示]
你当前选择押【<$STR(S26)>】
赔率【<$STR(M24)>】倍！\ \
你拥有元宝数量：【<$GAMEGOLD>】颗！\ \
<点击输入你要下注的元宝数量/@@InPutInteger25>\ \ \
                                                   <重新选择下注类型/@main>\
[@@InPutInteger25]
#if
check [008] 0
#ACT
SET [008] 1
DelayGoto 1 @Inger25
BREAK
#ELSEACT
MessageBox 错误提示：非法下注！
BREAK
[@Inger25]
#IF
LARGE I74 2
#ACT
SET [008] 0
MessageBox 错误提示：距离开局不足【<$STR(I72)>】秒了
禁止下注！\下次行动要快哦！
BREAK
#IF
LARGE M25 <$STR(H75)>
#ACT
SET [008] 0
MessageBox 错误提示：最大下注不能超过<$STR(H75)>！
BREAK
#IF
small M25 <$STR(H71)>
#ACT
SET [008] 0
MessageBox 错误提示：最小下注不能少于<$STR(H71)>！
BREAK
#IF
EQUAL S26
#ACT
SET [008] 0
MessageBox 错误提示：非法数据！
BREAK
#IF
CheckStringList ..\QuestDiary\临时名单\限制下注.txt <$STR(S26)>
#ELSEACT
SET [008] 0
MessageBox 错误提示：非法数据<$STR(S26)>！
BREAK
#IF
CHECKGAMEGOLD < <$STR(M25)>
#ACT
SET [008] 0
MessageBox 错误提示：你的元宝不足「<$STR(M25)>」颗
不能进行下注！\元宝出处：\1.所有地图内怪物有机率获得
按怪物难度爆率不同！\3.威武级以上装备可以获得元宝！\3.通过在线充值或短信充值获得
或联系客服进行充值！\客服QQ：<$QQ>　　客服电话：<$PHONE>\官方网址：<$WEBSITE>　在线时间：10-23点
break
#if
check [008] 0
#ACT
MessageBox 错误提示：非法数据！
BREAK
#IF
EQUAL S26 单
#ACT
MOV S28 单
GameGold - <$STR(M25)>
MOV M26 <$STR(M25)>
INC I50 1
INC I51 <$STR(M25)>
INC S27 <$STR(S28)><$STR(M26)>注
addnamelist ..\QuestDiary\临时名单\压注单双.txt

#IF
EQUAL S26 双
#ACT
MOV S28 双
GameGold - <$STR(M25)>
MOV M26 <$STR(M25)>
INC I52 1
INC I53 <$STR(M25)>
INC S27 <$STR(S28)><$STR(M26)>注
addnamelist ..\QuestDiary\临时名单\压注单双.txt

#IF
EQUAL S26 大
#ACT
MOV S29 大
GameGold - <$STR(M25)>
MOV M27 <$STR(M25)>
INC I54 1
INC I55 <$STR(M25)>
INC S27 <$STR(S29)><$STR(M27)>注
addnamelist ..\QuestDiary\临时名单\压注大小.txt

#IF
EQUAL S26 中
#ACT
MOV S29 中
GameGold - <$STR(M25)>
MOV M27 <$STR(M25)>
INC I56 1
INC I57 <$STR(M25)>
INC S27 <$STR(S29)><$STR(M27)>注
addnamelist ..\QuestDiary\临时名单\压注大小.txt
#IF
EQUAL S26 小
#ACT
MOV S29 小
GameGold - <$STR(M25)>
MOV M27 <$STR(M25)>
INC I58 1
INC I59 <$STR(M25)>
INC S27 <$STR(S29)><$STR(M27)>注
addnamelist ..\QuestDiary\临时名单\压注大小.txt
#IF
EQUAL S26 一点
#ACT
MOV S30 一点
GameGold - <$STR(M25)>
MOV M28 <$STR(M25)>
INC I60 1
INC I61 <$STR(M25)>
INC S27 <$STR(S30)><$STR(M28)>注
addnamelist ..\QuestDiary\临时名单\压注点数.txt
#IF
EQUAL S26 二点
#ACT
MOV S30 二点
GameGold - <$STR(M25)>
MOV M28 <$STR(M25)>
INC I62 1
INC I63 <$STR(M25)>
INC S27 <$STR(S30)><$STR(M28)>注
addnamelist ..\QuestDiary\临时名单\压注点数.txt
#IF
EQUAL S26 三点
#ACT
MOV S30 三点
GameGold - <$STR(M25)>
MOV M28 <$STR(M25)>
INC I64 1
INC I65 <$STR(M25)>
INC S27 <$STR(S30)><$STR(M28)>注
addnamelist ..\QuestDiary\临时名单\压注点数.txt
#IF
EQUAL S26 四点
#ACT
MOV S30 四点
GameGold - <$STR(M25)>
MOV M28 <$STR(M25)>
INC I66 1
INC I67 <$STR(M25)>
INC S27 <$STR(S30)><$STR(M28)>注
addnamelist ..\QuestDiary\临时名单\压注点数.txt
#IF
EQUAL S26 五点
#ACT
MOV S30 五点
GameGold - <$STR(M25)>
MOV M28 <$STR(M25)>
INC I68 1
INC I69 <$STR(M25)>
INC S27 <$STR(S30)><$STR(M28)>注
addnamelist ..\QuestDiary\临时名单\压注点数.txt
#IF
EQUAL S26 六点
#ACT
MOV S30 六点
GameGold - <$STR(M25)>
MOV M28 <$STR(M25)>
INC I70 1
INC I71 <$STR(M25)>
INC S27 <$STR(S30)><$STR(M28)>注
addnamelist ..\QuestDiary\临时名单\压注点数.txt
#IF
SMALL I74 1
#ACT
MOV I74 1
#IF
CHECKLEVELEX > 0
#ACT
INC I36 1
INC H73 1
INC I75 <$STR(M25)>
INC H74 <$STR(M25)>
MOV M0 <$STR(M25)>
MUL M0 <$STR(M24)>
MOV M1 <$STR(M0)>
MOV M2 <$STR(M0)>
MOV M4 100
DIV M4 <$STR(H71)>
DIV M1 <$STR(M4)>
DEC M2 <$STR(M1)>
SET [008] 0
SET [009] 1
SENDMSG 0 恭喜玩家【%s】成功押了：【<$STR(M25)>】注【<$STR(S26)>】
买定离手！ 151 219
BREAK
#SAY
恭喜你下注成功！你押了：【<$STR(M25)>】注【<$STR(S26)>】！\
赔率【<$STR(M24)>】倍
假如中了的话
情况如下：\ \
总共赢取元宝：【<$STR(M0)>】！\
扣掉了「<$STR(H71)>」%的手续费为「<$STR(M1)>」元宝！\
实际可得到元宝：「<$STR(M2)>」颗！请记录你现有元宝
方便对账！\ \
你剩余的元宝数量：【<$GAMEGOLD>】颗！\
[@规则]
#IF
CheckLevelEx > 0
#ACT
MessageBox 赔率介绍：\赔率2倍【单】【双】
系统开出1-6点是单数为单
双数为双！\赔率3倍【大】【中】【小】1-2点为小、3-4为中、5-6为大！\赔率6倍【猜点数】与系统开出的点数相同即中！\赢的玩家需要支付【<$STR(H71)>%】的元宝为手续费！\小怡情
娱乐为本
祝愿大家金玉满堂！\
BREAK
[@返回到盟重]
#IF
CheckLevelEx > 0
#ACT
CLOSE
MAPMOVE 3 330 330
BREAK
[@IsInFilterList]
#IF
CheckLevelEx > 0
#ACT
MessageBox 输入数据中包含了非法字符.请重新编辑
Break
更多的技术、脚本、传奇一条龙技术文章、免费传奇服务端下载尽在sf05 !


论坛一条龙

不错哦，楼主这是要火的节奏啊！

好多兽医在广场上义诊，楼主去看看吧！

看在楼主的面子上，认真回帖！

终于看完了，很不错！

经典，收藏了！

写得实在太好了，我唯一能做的就是默默顶贴！

楼主今年多大了？

有机会找楼主好好聊聊！

看了这么多帖子，第一次看到这么有深度了！