賭場劇本分享

isolet0202

我逛了這麼久也沒有人分享賭場劇本,我來分享一下好了
目前掛四枝在城中, 假日有大客人每天能賺數百萬, 上學天則每日數十萬
賠率建議不要太明顯, 比喻不要設估大小 1:2, 這樣絕對沒人玩, 要複雜一點, 比喻客人比你大的點數大多少則多少倍, 這樣會很好賺客人也不覺太不公平
我分享一個比較簡單的賭法, 你們要複雜的再設定吧,
提醒一下, 要開wxstart.exe才可以正常運作

#創造聊天室
automacro CreateChat {
console /您的座標: (.*), (.*)/
call {
pause 0.2
release all
pause 1
lock WinDeal
pause 2.5
do look 5 0
do sit
pause 0.2
do chat create "100~300W大中小1:2.5猜數字1:5" 20 1
pause 0.2
do conf dealAuto 2
}
}
automacro JoinChat {
console /(.*) 已加入這個聊天室/
run-once 1
call {
lock JoinChat
pause 0.1
if ($.lastMatch1 == GM01) goto next
pause 0.1
if ($.lastMatch1 == GM02) goto next
pause 0.1
if ($.lastMatch1 == GM03) goto next
pause 0.1
if ($.lastMatch1 == GM[0-99]) goto next
pause 0.5
do c 押注方式: [押金] + [1~9z]玩法
pause 1
do c 可押注金額: 100萬 200萬 300萬
pause 1
do c 交易 1,000,007 押小骰子開(1,2)
pause 1
do c 交易 1,000,008 押中骰子開(3,4)
pause 1
do c 交易 1,000,009 押大骰子開(5,6)
pause 1
do c 猜數字(1~6): 交易 1,000,001 猜數字1
pause 1
do c 猜數字(1~6): 交易 1,000,003 猜數字3
pause 1
do c 猜數字(1~6): 交易 1,000,006 猜數字6
:next
release all
}
}
automacro DenyDeal {
console /Engaged Deal with (.*)/
run-once 1
call {
lock JoinChat
$DealID = $.lastMatch1
do conf dealAuto 0
pause 0.1
lock WinDeal
lock DealEnd
lock DenyDeal
pause 40
do deal no
}
}
#如果對方放入的是物品,則取消交易
automacro DealItem {
console /(.*) 加入物品以交易: (.*)/
call {
do deal no
}
}
#對方放入(.*),(.*),(.*)賭金後,執行確認交易動作!
automacro Deal2 {
#看你設定的價錢, (.*),(.*),(.*) z 是百萬的情況, (.*),(.*) z 是十萬的情況 , 十萬百萬都接受則要其他寫法, 在此不提供
console /(.*) 加入 (.*),(.*),(.*) z 以交易/
run-once 1
call {
do conf dealAuto 0
pause 0.1
lock Deal2
pause 0.1
lock WinDeal
pause 0.1
lock DealEnd
pause 0.1
lock DenyDeal
pause 0.1
lock DealEnd
pause 0.1
$LabMoney = $.lastMatch2$.lastMatch3$.lastMatch4
pause 0.5
$AssignNumber = @eval($LabMoney % 10)
pause 0.5
if ($AssignNumber = 0) goto NO
pause 0.2
$SureDealZ = @eval($LabMoney - $AssignNumber)
pause 1.5
#----------------------修改能投注的金額 ---------------------------------------------------------
if ($SureDealZ == 1000000) goto conn
pause 0.2
if ($SureDealZ == 2000000) goto conn
pause 0.2
if ($SureDealZ == 3000000) goto conn
pause 0.2
:NO
do c $LabMoney Z << 放入金額，錯誤!
do c 可押注金額: 100萬 200萬 300萬
do c 交易 1,000,007 押小骰子開(1,2)
do c 交易 1,000,008 押中骰子開(3,4)
do c 交易 1,000,009 押大骰子開(5,6)
do c 猜數字2: 交易 1,000,002 猜數字 2
do c 猜數字5: 交易 1,000,005 猜數字 5
do deal no
pause 0.2
do deal no
release all
stop
:conn
do conf dealAuto 2
pause 50
do deal no
}
}
automacro DealMoney {
console /交易完成/
call {
lock DealRe
do conf dealAuto 0
pause 0.2
if ($AssignNumber == 7) goto SEVEN
pause 0.2
if ($AssignNumber == 8) goto EIGHT
pause 0.2
if ($AssignNumber == 9) goto NIGHT
pause 0.2
:ONETOSIX
do c $DealID 猜數字-"$AssignNumber" 金額: $LabMoney Z
goto connnn
:SEVEN
do c $DealID 押"小" 金額:$LabMoney Z
goto connnn
:EIGHT
do c $DealID 押"中" 金額:$LabMoney Z
goto connnn
:NIGHT
do c $DealID 押"大" 金額:$LabMoney Z
goto connnn
:connnn
lock DealMoney
pause 0.5
do c 開
pause 0.2
#擲骰子
do e dice2
}
}
automacro Emotions {
#名字請打你的id上去, 如果你的表情table不是中文,請把骰子改成dice
console /名字: \*骰子\#(.*)\*/
call {
pause 0.2
$emotion = $.lastMatch1
pause 0.5
if ($AssignNumber < 7) goto OneToSix
pause 0.2
#賭大中小,開出點數為 1,2
if ($emotion < 3) goto Seven
pause 0.2
#賭大中小,開出點數為 5,6
if ($emotion > 4) goto Nine
pause 0.2
#賭大中小,開出點數為 3,4
goto Eight
:OneToSix
pause 1
do c 開出: 數字-$emotion
pause 0.1
if ($emotion == $AssignNumber) goto OneToSixWin
goto loss
:Seven
pause 1
do c 開出: "骰子$emotion" (小)
pause 0.1
if ($AssignNumber == 7) goto SevenToNineWin
goto loss
:Eight
pause 1
do c 開出: "骰子$emotion" (中)
pause 0.1
if ($AssignNumber == 8) goto SevenToNineWin
goto loss
:Nine
pause 1
do c 開出: "骰子$emotion" (大)
pause 0.1
if ($AssignNumber == 9) goto SevenToNineWin
goto loss
#-------------------- [1 ~ 6] ----------------------------------------------
:OneToSixWin
lock DealRe
pause 0.2
$WinSum = @eval ($LabMoney * 5.3)
pause 0.5
do conf dealAuto 1
pause 0.3
do e pea
pause 0.1
release WinDeal
do c 恭喜 $DealID 中獎! 請領取獎金~
pause 0.2
do conf dealAuto 0
do deal no
pause 0.3
do deal no
do deal @player($DealID)
lock JoinChat
pause 60
do conf dealAuto 2
do deal no
do deal no
release all
goto end
#--------------------------[大 --- 中 --- 小 ]------------------------------
:SevenToNineWin
lock DealRe
pause 0.2
$WinSum = @eval ($LabMoney * 2.8)
pause 0.5
do conf dealAuto 1
pause 0.3
do e pea
pause 0.2
release WinDeal
do c 恭喜 $DealID 中獎! 請領取獎金~
pause 0.2
do conf dealAuto 0
do deal no
pause 0.3
do deal no
do deal @player($DealID)
lock JoinChat
pause 60
do conf dealAuto 2
do deal no
do deal no
release all
goto end
#-------------------------------[loss]-------------------------------------
:loss
pause 2
do e swt
pause 0.2
do c 沒中~ 祝您下次中獎~
do deal no
do conf dealAuto 2
release all
:end
}
}
automacro WinDeal {
console /Engaged Deal with (.*)/
run-once 1
call {
$DealIDA = $.lastMatch1
if ( $DealID == $DealIDA ) goto Deal
lock DealRe
do conf dealAuto 1
pause 0.3
do c $DealID 讀取不到座標,請移動一格!
pause 0.1
release WinDeal
pause 0.1
release payagen
pause 0.1
release IngRE
pause 0.1
do conf dealAuto 0
do deal no
pause 0.3
do deal no
do deal @player($DealID)
goto end
:Deal
pause 0.2
release DealEnd
pause 2.5
do deal add z $WinSum
pause 0.5
do deal add z $WinSum
pause 0.5
do conf dealAuto 2
:end
}
}
automacro DealEnd {
console /交易完成/
run-once 1
call {
do conf dealAuto 2
pause 0.2
do e omg
pause 0.2
do c 恭喜 $DealID 獲得:$WinSum z
pause 0.2
do deal no
release all
stop
}
}
automacro DealRe {
console /交易已取消/
run-once 1
call {
do conf dealAuto 2
pause 0.1
lock WinDeal
pause 0.1
release all
stop
}
}
automacro IngRE {
console /您必須先取消傳過來的交易訊息|對方正在進行另一個交易中./
run-once 1
call {
lock DealRe
do c 交易未結束,勿點交易!
pause 0.2
do conf dealAuto 1
pause 0.3
release IngRE
pause 0.1
release payagen
pause 0.1
release WinDeal
pause 0.1
do conf dealAuto 0
do deal no
pause 0.3
do deal no
do deal @player($DealID)
pause 60
do conf dealAuto 2
do deal no
release all
}
}
automacro payagen {
console /對方距離您太遠以致於無法交易./
run-once 1
call {
lock DealRe
do deal no
do c $DealID 讀取不到座標,請移動一格!
pause 0.1
do conf dealAuto 1
pause 0.3
release payagen
pause 0.1
release WinDeal
pause 0.1
do conf dealAuto 0
do deal no
pause 0.3
do deal no
do deal @player($DealID)
pause 60
do conf dealAuto 2
do deal no
do deal no
release all
}
}
automacro DealE {
console /您已經在交易中了/
run-once 1
call {
lock DealRe
release DealE
pause 0.1
do c $DealID 讀取不到您的座標,請移動一格!
do conf dealAuto 1
pause 0.3
release WinDeal
pause 0.1
release payagen
pause 0.1
release IngRE
pause 0.1
do conf dealAuto 0
do deal no
pause 0.3
do deal no
do deal @player($DealID)
}
}

複製代碼

外掛聯合國

[分享] 賭場劇本分享