腾飞论坛 发表于 2012-8-10 16:08:36

传(2012/8/10)奇大中小**脚本

(@@InPutInteger)
[@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 下注失败，你的元宝不足！


论坛一条龙

伊泽浩 发表于 2014-2-23 10:40:54

楼主，替我问候您主治大夫！

孤心浪客 发表于 2014-2-23 10:17:52

我默默的回帖，从不声张！

軒動我心 发表于 2014-2-23 10:36:27

记得吃药！

中国龙三 发表于 2014-2-23 10:02:00

楼主好聪明啊！

郝晓琳 发表于 2014-2-23 10:15:52

缺乏激情了！

此人危险 发表于 2014-3-12 15:03:39

收藏了，楼主加油！

赵勇 发表于 2014-3-12 14:56:19

看帖不回帖的人就是耍流氓，我回复了！

小志 发表于 2014-3-12 14:40:53

楼主很有激情啊！

曹林 发表于 2014-3-12 14:41:43

很有看点！
页: [1] 2 3
查看完整版本: 传(2012/8/10)奇大中小**脚本