IP(2012/8/10)传奇版本大中小论坛脚本

[@main]
#IF
#SAY
欢迎来到我的**，要来试下手气吗？\
游戏规则很简单，猜骰子大小，猜中1赔3。\
1、2为小，3、4为中，5、6为大，押好请离手。\
\ \
#IF
small G4 61
#SAY
离开局还有 <$STR(G4)> 秒！每注1元宝，请抓紧时间下注。\
#if
large G4 60
#SAY
数据正在整理，暂时无法下注！\
#if
#say
┏  ┓    ┏  ┓    ┏  ┓\
　<小/@@InPutInteger1>　　    <中/@@InPutInteger2>　　  　<大/@@InPutInteger3>　　　你的元宝数量为：<$GAMEGOLD> 个\
┗  ┛    ┗  ┛    ┗  ┛\
<查看下注情况/@查看下注情况>　<返回盟重/@返回盟重>　                     <刷新/@main>\
[@返回盟重]
#ACT
MAPMOVE 3 333 333
[@查看下注情况]
#if
large G4 60
#ACT
Break
#SAY
数据正在整理，暂时无法查询！\
\ \
<返回/@main>
#IF
#SAY
押小的人总共有 <$STR(G1)> 人。\
押中的人总共有 <$STR(G2)> 人。\
押大的人总共有 <$STR(G3)> 人。\
\ \
#IF
checknamelist ..\QuestDiary\数据文件\猜大小\小.txt
#ACT
break
#SAY
你押的是小，押了<$HUMAN(CDX)>注！\
\ \
<返回/@main>
#IF
checknamelist ..\QuestDiary\数据文件\猜大小\中.txt
#ACT
break
#SAY
你押的是中，押了<$HUMAN(CDX)>注！\
\ \
<返回/@main>
#IF
checknamelist ..\QuestDiary\数据文件\猜大小\大.txt
#ACT
break
#SAY
你押的是大，押了<$HUMAN(CDX)>注！\
\ \
<返回/@main>
#IF
#SAY
你还没有押注，请赶快押注哦！\
\ \
<返回/@main>
[@InPutInteger1]
#IF
#ACT
MOV M1 <$STR(N1)>
DELAYGOTO 1 ~InPutI
[~InPutI]
#if
large G4 60
#ACT
break
#SAY
数据正在整理，暂时无法下注！
#IF
checknamelist ..\QuestDiary\数据文件\猜大小\小.txt
#ACT
MessageBox 你已经押过注，不能再押！
break
#IF
checknamelist ..\QuestDiary\数据文件\猜大小\中.txt
#ACT
MessageBox 你已经押过注，不能再押！
break
#IF
checknamelist ..\QuestDiary\数据文件\猜大小\大.txt
#ACT
MessageBox 你已经押过注，不能再押！
break
#IF
small M1 1
#ACT
MessageBox 请输入一个整数！
break
#IF
large M1 2000
#ACT
MessageBox 你押太多了！我不起！
break
#IF
CHECKGAMEGOLD > <$STR(M1)>
#ACT
GAMEGOLD - <$STR(M1)>
inc G1 1
addnamelist ..\QuestDiary\数据文件\猜大小\小.txt
Calcvar HUMAN CDX = <$STR(M1)>
SAVEVAR HUMAN CDX ..\QuestDiary\数据文件\注.txt
MOV A2 <$STR(M1)>
SENDMSG 4 %s押了<$STR(A2)>注“小”！
GOTO @MAIN
MessageBox 下注成功，你押了<$HUMAN(CDX)>注！离开局还有<$STR(G4)>秒\注意：如果在开局后你不在线，将无法收到元宝\
#ELSEACT
MessageBox 下注失败，你的元宝不足！
[@InPutInteger2]
#IF
#ACT
MOV M2 <$STR(N2)>
DELAYGOTO 1 ~InPueger2
[~InPueger2]
#if
large G4 60
#ACT
break
#SAY
数据正在整理，暂时无法下注！
#IF
checknamelist ..\QuestDiary\数据文件\猜大小\小.txt
#ACT
MessageBox 你已经押过注，不能再押！
break
#IF
checknamelist ..\QuestDiary\数据文件\猜大小\中.txt
#ACT
MessageBox 你已经押过注，不能再押！
break
#IF
checknamelist ..\QuestDiary\数据文件\猜大小\大.txt
#ACT
MessageBox 你已经押过注，不能再押！
break
#IF
small M2 1
#ACT
MessageBox 请输入一个整数！
break

#IF
large M2 2000
#ACT
MessageBox 你押太多了！我不起！
break
#IF
CHECKGAMEGOLD > <$STR(M2)>
#ACT
GAMEGOLD - <$STR(M2)>
inc G2 1
addnamelist ..\QuestDiary\数据文件\猜大小\中.txt
Calcvar HUMAN CDX = <$STR(M2)>
SAVEVAR HUMAN CDX ..\QuestDiary\数据文件\注.txt
MOV A2 <$STR(M2)>
SENDMSG 4 %s押了<$STR(A2)>注“中”！
MessageBox 下注成功，你押了<$HUMAN(CDX)>注！离开局还有<$STR(G4)>秒\注意：如果在开局后你不在线，将无法收到元宝\
GOTO @MAIN
#ELSEACT
MessageBox 下注失败，你的元宝不足！
[@InPutInteger3]
#IF
#ACT
MOV M3 <$STR(N3)>
DELAYGOTO 1 ~InPuteger3
[~InPuteger3]
#if
large G4 60
#ACT
break
#SAY
数据正在整理，暂时无法下注！
#IF
checknamelist ..\QuestDiary\数据文件\猜大小\小.txt
#ACT
MessageBox 你已经押过注，不能再押！
break
#IF
checknamelist ..\QuestDiary\数据文件\猜大小\中.txt
#ACT
MessageBox 你已经押过注，不能再押！
break
#IF
checknamelist ..\QuestDiary\数据文件\猜大小\大.txt
#ACT
MessageBox 你已经押过注，不能再押！
break
#IF
small M3 1
#ACT
MessageBox 请输入一个整数！
break

#IF
large M3 2000
#ACT
MessageBox 你押太多了！我不起！
break
#IF
CHECKGAMEGOLD > <$STR(M3)>
#ACT
GAMEGOLD - <$STR(M3)>
inc G3 1
addnamelist ..\QuestDiary\数据文件\猜大小\大.txt
Calcvar HUMAN CDX = <$STR(M3)>
SAVEVAR HUMAN CDX ..\QuestDiary\数据文件\注.txt
MOV A2 <$STR(M3)>
SENDMSG 4 %s押了<$STR(A2)>注“大”！
MessageBox 下注成功，你押了<$HUMAN(CDX)>注！离开局还有<$STR(G4)>秒\注意：如果在开局后你不在线，将无法收到元宝\
GOTO @MAIN
#ELSEACT
MessageBox 下注失败，你的元宝不足！


论坛一条龙

这个帖子会火的，鉴定完毕！

楼主，你腾飞腾飞喊你回家吃饭！

楼主的头像是本人吗？

收藏了，很不错的内容！

楼主加油，看好你哦！

对牛弹琴的人越来越多了！

听楼主一席话，省我十本书！

楼上的真不讲道理！

楼主很有艺术范！