模仿传奇赌博脚步做的一个软件

狗苟蝇营

模仿私服赌博脚步做的一个软件   以前用朋友的号发过，没引起重视

相似度99%     代码自己看就知道了   运行原理完全一样
   这个研究号了赌博肯定没问题
赌博的脚步是：
(@@InPutString @@InPutInteger )
%100
[@main]
#if
random 10
#act
SENDMSG 4 赌博广场欢迎您，恭喜您开年发财！发财！发发财！！！
#if
CHECKGAMEGOLD > 0
#act
MOV N5 0
MOV N6 0
MOV N7 0
MOV N8 0
MOV N11 0
MOV N12 0
MOV N13 0
MOV N14 0
MOV S5 请选择
#SAY
╔┄┄┄┄╗┏━━━━━━━〓阳光老虎机〓━━━━━━━━┓\
┆<熟悉规则>＝＞你有元宝：<$GAMEGOLD>　　　　　　   　　　　       　┃\
┆<比 大 小/@比大小>┆┃赔率<1:1>,当你压注后扔的点大于系统就获胜      ┃\
┆<赌 大 小/@赌大小>┆┃赔率<1:3>,转出的点与你猜的点相同就获胜        ┃\
┆< 猜　点 /@猜点>┆┃多人群赌,获胜的人将拿到所有的押注           ┃\
┆<集体赌博/@集体赌>┆┃赔率1:1000,非常的诱人,不妨来试下自己的手气哦┃\
┆<五 合 彩/@五合彩>┆┃　　　　　　　　　　　　　　　　　　　　    ┃\
┆< 离 开 /@exit>┆┃<这是一个赌博游戏，未满18岁的玩家请离场。>    ┃\
╚┄┄┄┄╝┗━━━━━━━━━━━━━━━━━━━━━━┛
#ELSEact
SENDMSG 4 哦天那！%s你居然连一个元宝都没有，还是先去打点元宝再来找我吧！！！
[@猜点]
╔┄┄┄┄╗┏━━━━━━━━〓阳光猜点〓━━━━━━━━┓\
┆熟悉规则┆┃您目前拥有：<$GAMEGOLD>个元宝　<输入猜测数字/@@InPutInteger7> <开始压注/@@InPutInteger8> ┃\
┆<比 大 小/@比大小>┆┃当您压注后扔出的点数等同您猜的点数就获胜    ┃\
┆<赌 大 小/@赌大小>┆┃赔率<1:3> <注意>:猜测数字请从<1-18>之间挑选      ┃\
┆< 猜　点 >＝＞您目前压注为:<$STR(N8)>个元宝 猜测数字为:<$STR(N7)>          ┃\
┆<集体赌博/@集体赌>┆┃                                            ┃\
┆<五 合 彩/@五合彩>┆┃　　　　　　 <开始摇动色子/@caidian> 　                ┃\
┆< 离 开 /@exit>┆┃<这是一个赌博游戏，未满18岁的玩家请离场。>    ┃\
╚┄┄┄┄╝┗━━━━━━━━━━━━━━━━━━━━━━┛
[@赌大小]
╔┄┄┄┄╗┏━━━━━━━〓阳光赌大小〓━━━━━━━━┓\
┆<熟悉规则/@main>┆┃您目前拥有：<$GAMEGOLD>个元宝　　　<开始压注/@@InPutInteger6>　    　　┃\
┆<比 大 小/@比大小>┆┃当您压注后扔的点数大于系统扔的点数就获胜    ┃\
┆<赌 大 小>＝＞赔率<1:1>     选择赌： <大/@大>   <小/@小>                ┃\
┆< 猜　点 /@猜点>┆┃您目前压注为：<$STR(N6)>个元宝 赌：<$STR(S5)>             ┃\
┆<集体赌博/@集体赌>┆┃                                            ┃\
┆<五 合 彩/@五合彩>┆┃　　　　　　 <开始摇动色子/@daxiao> 　　 　 　　      ┃\
┆< 离 开 /@exit>┆┃<这是一个赌博游戏，未满18岁的玩家请离场。>    ┃\
╚┄┄┄┄╝┗━━━━━━━━━━━━━━━━━━━━━━┛
[@比大小]
╔┄┄┄┄╗┏━━━━━━━〓阳光比大小〓━━━━━━━━┓\
┆<熟悉规则/@main>┆┃您目前拥有：<$GAMEGOLD>个元宝　　　<开始压注/@@InPutInteger5>　    　　┃\
┆<比 大 小>＝＞当您压注后扔的点数大于系统扔的点数就获胜    ┃\
┆<赌 大 小/@赌大小>┆┃赔率<1:1>                                     ┃\
┆< 猜　点 /@猜点>┆┃您目前压注为：<$STR(N5)>个元宝                       ┃\
┆<集体赌博/@集体赌>┆┃                                            ┃\
┆<五 合 彩/@五合彩>┆┃　　　　　　 <开始摇动色子/@shaizi> 　　 　 　　      ┃\
┆< 离 开 /@exit>┆┃<这是一个赌博游戏，未满18岁的玩家请离场。>    ┃\
╚┄┄┄┄╝┗━━━━━━━━━━━━━━━━━━━━━━┛
[@集体赌]
#ACT
messagebox 等待开放中。。。。。。
[@五合彩]
#ACT
messagebox 等待开放中。。。。。。
[@InPutInteger5]
#if
CHECKGAMEGOLD > <$STR(N5)>
#act
SENDMSG 6 投入<$STR(N5)>枚元宝。
goto @比大小
#ELSEACT
MOV N5 0
messagebox 你没有<$STR(N5)>枚元宝，请凑足了再来。
[@InPutInteger6]
#if
CHECKGAMEGOLD > <$STR(N6)>
#act
SENDMSG 6 投入<$STR(N6)>枚元宝。
goto @赌大小
#ELSEACT
MOV N6 0
messagebox 你没有<$STR(N6)>枚元宝，请凑足了再来。
[@InPutInteger7]
#if
large N7 18
#act
MOV N7 0
messagebox 猜测数字请从<1-18>之间挑选。
#ELSEACT
goto @猜点
SENDMSG 6 您输入的猜测数字为<$STR(N7)>
[@InPutInteger8]
#if
CHECKGAMEGOLD > <$STR(N8)>
#act
SENDMSG 6 投入<$STR(N8)>枚元宝。
goto @猜点
#ELSEACT
MOV N8 0
messagebox 你没有<$STR(N8)>枚元宝，请凑足了再来。
[@大]
#act
MOV S5 大
MOV N11 1
goto @赌大小
[@小]
#act
MOV S5 小
MOV N11 2
goto @赌大小
[@caidian]
#if
EQUAL N8 0
#ACT
messagebox 请先点开始压注，进行压注元宝，然后才能开始摇动色子。
break
#if
EQUAL N7 0
#ACT
messagebox 请先输入猜测数字，然后才能开始摇动色子。
break
#if
#ACT
movr d0 1 6
movr d1 1 6
movr d2 1 6
INC N13 <$STR(d0)>
INC N13 <$STR(d1)>
INC N13 <$STR(d2)>
playdice 3 @cai
[@cai]
#IF
CHECKGAMEGOLD < <$STR(N8)>
#ACT
MOV N7 0
MOV N8 0
MOV N13 0
GAMEGOLD - 1
close
messagebox 由于你想赌博作弊，我们决定对你进行惩罚扣除你1点元宝。
break
#IF
EQUAL N7 <$STR(N13)>
#ACT
MOV N14 0
MUL N14 <$STR(N8)> 3
GAMEGOLD + <$STR(N14)>
SENDMSG 0 [赌博机]：玩家[%s]:参与[猜大小]，赢得了3倍奖励共[<$STR(N14)>]个元宝，有想试试手气的赶紧来呀！！！
messagebox 您猜测数字为：<$STR(N7)>　压注为：<$STR(N8)>个元宝\系统摇色子获得的点数为：<$STR(N13)>点\祝贺你，赌博获胜了，赢得了3倍奖励。
MOV N7 0
MOV N8 0
MOV N13 0
MOV N14 0
goto @猜点
break
#IF
#ACT
GAMEGOLD - <$STR(N8)>
messagebox 您猜测数字为：<$STR(N7)>　压注为：<$STR(N8)>个元宝\系统摇色子获得的点数为：<$STR(N13)>点\输了，再来一盘吧，下盘说不定会赢哦。
MOV N7 0
MOV N8 0
MOV N13 0
goto @猜点
[@daxiao]
#if
EQUAL N6 0
#ACT
messagebox 请先点开始压注，进行压注元宝，然后才能开始摇动色子。
break
#if
EQUAL N11 0
#ACT
messagebox 请先选择大小，然后才能开始摇动色子。
break
#if
random 5
EQUAL N11 1
#ACT
movr d0 1 5
movr d1 1 6
movr d2 1 5
INC N12 <$STR(d0)>
INC N12 <$STR(d1)>
INC N12 <$STR(d2)>
playdice 3 @daxiao1
break
#if
random 3
EQUAL N11 1
#ACT
movr d0 1 6
movr d1 1 6
movr d2 1 6
INC N12 <$STR(d0)>
INC N12 <$STR(d1)>
INC N12 <$STR(d2)>
playdice 3 @daxiao1
break
#if
EQUAL N11 1
#ACT
movr d0 1 6
movr d1 1 7
movr d2 1 6
INC N12 <$STR(d0)>
INC N12 <$STR(d1)>
INC N12 <$STR(d2)>
playdice 3 @daxiao1
break
#if
random 5
EQUAL N11 2
#ACT
movr d0 2 7
movr d1 3 7
movr d2 3 7
INC N12 <$STR(d0)>
INC N12 <$STR(d1)>
INC N12 <$STR(d2)>
playdice 3 @daxiao1
break
#if
random 3
EQUAL N11 2
#ACT
movr d0 2 7
movr d1 2 7
movr d2 2 7
INC N12 <$STR(d0)>
INC N12 <$STR(d1)>
INC N12 <$STR(d2)>
playdice 3 @daxiao1
break
#if
EQUAL N11 2
#ACT
movr d0 1 7
movr d1 2 7
movr d2 1 7
INC N12 <$STR(d0)>
INC N12 <$STR(d1)>
INC N12 <$STR(d2)>
playdice 3 @daxiao1
[@daxiao1]
#IF
CHECKGAMEGOLD < <$STR(N6)>
#ACT
MOV N6 0
MOV N11 0
MOV N12 0
GAMEGOLD - 1
close
messagebox 由于你想赌博作弊，我们决定对你进行惩罚扣除你1点元宝。
break
#IF
EQUAL N11 1
#ACT
goto @da1
break
#IF
EQUAL N11 2
#ACT
goto @xiao1
[@da1]
#IF
large N12 9
#ACT
GAMEGOLD + <$STR(N6)>
SENDMSG 0 [赌博机]：玩家[%s]:参与[赌大小]，赢得了[<$STR(N6)>]个元宝，有想试试手气的赶紧来呀！！！
messagebox 您赌：<$STR(S5)>　压注为：<$STR(N6)>个元宝\系统摇色子获得的点数为：<$STR(N12)>点\祝贺你，赌博获胜了，赢得了1倍奖励。
MOV N6 0
MOV N11 0
MOV N12 0
MOV S5 请选择
goto @赌大小
#ELSEACT
GAMEGOLD - <$STR(N6)>
messagebox 您赌：<$STR(S5)>　压注为：<$STR(N6)>个元宝\系统摇色子获得的点数为：<$STR(N12)>点\输了，再来一盘吧，下盘说不定会赢哦。
MOV N6 0
MOV N11 0
MOV N12 0
MOV S5 请选择
goto @赌大小
[@xiao1]
#IF
large N12 9
#ACT
GAMEGOLD - <$STR(N6)>
messagebox 您赌：<$STR(S5)>　压注为：<$STR(N6)>个元宝\系统摇色子获得的点数为：<$STR(N12)>点\输了，再来一盘吧，下盘说不定会赢哦。
MOV N6 0
MOV N11 0
MOV N12 0
MOV S5 请选择
goto @赌大小
#ELSEACT
GAMEGOLD + <$STR(N6)>
SENDMSG 0 [赌博机]：玩家[%s]:参与[赌大小]，赢得了[<$STR(N6)>]个元宝，有想试试手气的赶紧来呀！！！
messagebox 您赌：<$STR(S5)>　压注为：<$STR(N6)>个元宝\系统摇色子获得的点数为：<$STR(N12)>点\祝贺你，赌博获胜了，赢得了1倍奖励。
MOV N6 0
MOV N11 0
MOV N12 0
MOV S5 请选择
goto @赌大小
[@shaizi]
#if
EQUAL N5 0
#ACT
messagebox 请先点开始压注，进行压注元宝，然后才能开始摇动色子。
break
#if
random 2
#ACT
movr d0 1 6
movr d1 2 7
playdice 2 @cube
break
#if
#ACT
movr d0 1 7
movr d1 1 7
playdice 2 @cube
[@cube]
#IF
CHECKGAMEGOLD < <$STR(N5)>
#ACT
MOV N5 0
GAMEGOLD - 1
close
messagebox 由于你想赌博作弊，我们决定对你进行惩罚扣除你1点元宝。
break
#IF
large D0 <$STR(D1)>
#ACT
GAMEGOLD + <$STR(N5)>
SENDMSG 0 [赌博机]：玩家[%s]:参与[比大小]，赢得了[<$STR(N5)>]个元宝，有想试试手气的赶紧来呀！！！
messagebox 您目前压注为：<$STR(N5)>个元宝\您摇动色子获得的点数为：<$STR(D0)>点\系统摇色子获得的点数为：<$STR(D1)>点\祝贺你，赌博获胜了，赢得了1倍奖励。
MOV N5 0
goto @比大小
break
#IF
EQUAL D0 <$STR(D1)>
#ACT
messagebox 您目前压注为：<$STR(N5)>个元宝\您摇动色子获得的点数为：<$STR(D0)>点\系统摇色子获得的点数为：<$STR(D1)>点\平局，再来一盘吧。
MOV N5 0
goto @比大小
break
#IF
#ACT
GAMEGOLD - <$STR(N5)>
messagebox 您目前压注为：<$STR(N5)>个元宝\您摇动色子获得的点数为：<$STR(D0)>点\系统摇色子获得的点数为：<$STR(D1)>点\输了，再来一盘吧，下盘说不定会赢哦。
MOV N5 0
goto @比大小
[@IsInFilterList]
#ACT
MESSAGEBOX 请输入数字，进行赌博!

仿传奇赌博元宝软件.rar (117.57 KB, 下载次数: 447)

2010-6-17 16:59 上传

点击文件名下载附件        给点分分嘛

狗苟蝇营

我的代码  
Dim k!
Private Sub Command1_Click()

Label10.Caption = Str(k) + "点"
If k = 1 Or k = 3 Or k = 5 Then
Label6.Caption = Val(Label6.Caption) + Val(Text1.Text) * 2
MsgBox "o(∩_∩)o...恭喜你赢了" + Str(Val(Text1.Text) * 2) + "万注!"
Else
Label6.Caption = Val(Label6.Caption) - Val(Text1.Text)
MsgBox "嘿嘿~你输掉了" + Text1.Text + "万注!"
End If
If Val(Label6.Caption) < 0 Then
MsgBox "不好意思~~~~你输光了~~~~~请离开赌场~~~~~!"


Unload Me
End If
End Sub

Private Sub Command10_Click()
Label10.Caption = Str(k) + "点"
If k = 2 Then
Label6.Caption = Val(Label6.Caption) + Val(Text1.Text) * 6
MsgBox "o(∩_∩)o...恭喜你赢了" + Str(Val(Text1.Text) * 6) + "万注!"
Else
Label6.Caption = Val(Label6.Caption) - Val(Text1.Text)
MsgBox "嘿嘿~你输掉了" + Text1.Text + "万注!"
End If
If Val(Label6.Caption) < 0 Then
MsgBox "不好意思~~~~你输光了~~~~~请离开赌场~~~~~!"
Unload Me
End If
End Sub

Private Sub Command11_Click()
Label10.Caption = Str(k) + "点"
If k = 1 Then
Label6.Caption = Val(Label6.Caption) + Val(Text1.Text) * 6
MsgBox "o(∩_∩)o...恭喜你赢了" + Str(Val(Text1.Text) * 6) + "万注!"
Else
Label6.Caption = Val(Label6.Caption) - Val(Text1.Text)
MsgBox "嘿嘿~你输掉了" + Text1.Text + "万注!"
End If
If Val(Label6.Caption) < 0 Then
MsgBox "不好意思~~~~你输光了~~~~~请离开赌场~~~~~!"
Unload Me
End If

End Sub

Private Sub Command2_Click()
Label10.Caption = Str(k) + "点"
If k = 2 Or k = 4 Or k = 6 Then
Label6.Caption = Val(Label6.Caption) + Val(Text1.Text) * 3
MsgBox "o(∩_∩)o...恭喜你赢了" + Str(Val(Text1.Text) * 3) + "万注!"
Else
Label6.Caption = Val(Label6.Caption) - Val(Text1.Text)
MsgBox "嘿嘿~你输掉了" + Text1.Text + "万注!"
End If
If Val(Label6.Caption) < 0 Then
MsgBox "不好意思~~~~你输光了~~~~~请离开赌场~~~~~!"
Unload Me
End If

End Sub

Private Sub Command3_Click()
Label10.Caption = Str(k) + "点"
If k = 6 Or k = 5 Then
Label6.Caption = Val(Label6.Caption) + Val(Text1.Text) * 3
MsgBox "o(∩_∩)o...恭喜你赢了" + Str(Val(Text1.Text) * 3) + "万注!"
Else
Label6.Caption = Val(Label6.Caption) - Val(Text1.Text)
MsgBox "嘿嘿~你输掉了" + Text1.Text + "万注!"
End If
If Val(Label6.Caption) < 0 Then
MsgBox "不好意思~~~~你输光了~~~~~请离开赌场~~~~~!"
Unload Me
End If

End Sub

Private Sub Command4_Click()
Label10.Caption = Str(k) + "点"
If k = 3 Or k = 4 Then
Label6.Caption = Val(Label6.Caption) + Val(Text1.Text) * 3
MsgBox "o(∩_∩)o...恭喜你赢了" + Str(Val(Text1.Text) * 3) + "万注!"
Else
Label6.Caption = Val(Label6.Caption) - Val(Text1.Text)
MsgBox "嘿嘿~你输掉了" + Text1.Text + "万注!"
End If
If Val(Label6.Caption) < 0 Then
MsgBox "不好意思~~~~你输光了~~~~~请离开赌场~~~~~!"
Unload Me
End If

End Sub

Private Sub Command5_Click()
Label10.Caption = Str(k) + "点"
If k = 1 Or k = 2 Then
Label6.Caption = Val(Label6.Caption) + Val(Text1.Text) * 2
MsgBox "o(∩_∩)o...恭喜你赢了" + Str(Val(Text1.Text) * 2) + "万注!"
Else
Label6.Caption = Val(Label6.Caption) - Val(Text1.Text)
MsgBox "嘿嘿~你输掉了" + Text1.Text + "万注!"
End If
If Val(Label6.Caption) < 0 Then
MsgBox "不好意思~~~~你输光了~~~~~请离开赌场~~~~~!"
Unload Me
End If

End Sub

Private Sub Command6_Click()
Label10.Caption = Str(k) + "点"
If k = 6 Then
Label6.Caption = Val(Label6.Caption) + Val(Text1.Text) * 6
MsgBox "o(∩_∩)o...恭喜你赢了" + Str(Val(Text1.Text) * 6) + "万注!"
Else
Label6.Caption = Val(Label6.Caption) - Val(Text1.Text)
MsgBox "嘿嘿~你输掉了" + Text1.Text + "万注!"
End If
If Val(Label6.Caption) < 0 Then
MsgBox "不好意思~~~~你输光了~~~~~请离开赌场~~~~~!"
Unload Me
End If
End Sub

Private Sub Command7_Click()
Label10.Caption = Str(k) + "点"
If k = 5 Then
Label6.Caption = Val(Label6.Caption) + Val(Text1.Text) * 6
MsgBox "o(∩_∩)o...恭喜你赢了" + Str(Val(Text1.Text) * 6) + "万注!"
Else
Label6.Caption = Val(Label6.Caption) - Val(Text1.Text)
MsgBox "嘿嘿~你输掉了" + Text1.Text + "万注!"
End If
If Val(Label6.Caption) < 0 Then
MsgBox "不好意思~~~~你输光了~~~~~请离开赌场~~~~~!"
Unload Me
End If
End Sub

Private Sub Command8_Click()
Label10.Caption = Str(k) + "点"
If k = 4 Then
Label6.Caption = Val(Label6.Caption) + Val(Text1.Text) * 6
MsgBox "o(∩_∩)o...恭喜你赢了" + Str(Val(Text1.Text) * 6) + "万注!"
Else
Label6.Caption = Val(Label6.Caption) - Val(Text1.Text)
MsgBox "嘿嘿~你输掉了" + Text1.Text + "万注!"
End If
If Val(Label6.Caption) < 0 Then
MsgBox "不好意思~~~~你输光了~~~~~请离开赌场~~~~~!"
Unload Me
End If
End Sub

Private Sub Command9_Click()
Label10.Caption = Str(k) + "点"
If k = 3 Then
Label6.Caption = Val(Label6.Caption) + Val(Text1.Text) * 6
MsgBox "o(∩_∩)o...恭喜你赢了" + Str(Val(Text1.Text) * 6) + "万注!"
Else
Label6.Caption = Val(Label6.Caption) - Val(Text1.Text) * 6
MsgBox "嘿嘿~你输掉了" + Text1.Text + "万注!"
End If
If Val(Label6.Caption) < 0 Then
MsgBox "不好意思~~~~你输光了~~~~~请离开赌场~~~~~!"
Unload Me
End If


End Sub


Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
Randomize
k = Int((Rnd * 6) + 1)
End Sub

狗苟蝇营

版主帮忙设个回复可见吧         看看赌博的油多少人

佐罗传奇

这是什么？

刘嘉

有什么用啊

狗苟蝇营

5# 刘嘉


找规律啊

刘嘉

账号和密码是多少啊

狗苟蝇营

号abc密码110

求知来了

不能下载啊

回头岸太远

帐户密码多少啊

我王海

哇，有才。看不懂

vipeople

加班加点，一天工作十几小时

888895

根本不 是跟游戏上的时间相同出的好快