賭場腳本

專屬司機 · 台灣省桃園縣

automacro CreateChat {
#console /您的座標: (.*), (.*)/
console /Your Coordinates: (.*), (.*)/
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 "10元1000元1萬元大中小1:2.3猜數字1:4.9" 2 1
pause 0.2
do conf dealAuto 2
}
}
automacro JoinChat {
#console /(.*) 已加入這個聊天室/
console /(.*) has joined the Chat Room/
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 0.5
do c 可押注金額: 10元 1000元 10000元
pause 0.5
do c 先付我 17(ZENY) 押小骰子開(1,2)
pause 0.5
do c 先付我 18(ZENY) 押中骰子開(3,4)
pause 0.5
do c 先付我 19(ZENY) 押大骰子開(5,6)
pause 0.5
do c 猜數字(1~6): 付我 11(ZENY) 猜數字1
pause 0.5
do c 猜數字(1~6): 付我 13(ZENY) 猜數字3
pause 0.5
do c 猜數字(1~6): 付我 16(ZENY) 猜數字6
pause 0.5
do c exp:17(ZENY)即為押10玩比大小
pause 0.5
do c 押金，以此類推
pause 0.5
do c 麻煩請先付押金，賭場便會開始!
pause 0.5
do c 如有疑問請詢我
]
:next
release all
}
}
automacro DenyDeal {
#console /Engaged Deal with (.*)/
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 /(.*) 加入物品以交易: (.*) x (.*)/
console /(.*) added Item to Deal : (.*) x (.*)/
call {
do deal no
}
}
#對方放入(.*),(.*),(.*)賭金後,執行確認交易動作!
automacro Deal2 {
#console /(.*) 加入 (.*),(.*) z 以交易/
console /(.*) added (.*),(.*) z to Deal/
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
pause 0.5
$AssignNumber = @eval($LabMoney % 10)
pause 0.5
if ($AssignNumber = 0) goto NO
pause 0.2
$SureDealZ = @eval($LabMoney - $AssignNumber)
pause 1
#----------------------修改能投注的金額 ---------------------------------------------------------
if ($SureDealZ == 10) goto conn
pause 0.2
if ($SureDealZ == 1000) goto conn
pause 0.2
if ($SureDealZ == 10000) goto conn
pause 0.2
:NO
do c $LabMoney Z << 放入金額，錯誤!
do c 可押注金額: 1元 1000元 10000元
do c 交易 17 押小骰子開(1,2)
do c 交易 18 押中骰子開(3,4)
do c 交易 19 押大骰子開(5,6)
do c 猜數字2: 交易 12 猜數字 2
do c 猜數字5: 交易 15 猜數字 5
do c 押金，以此類推
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 /交易完成/
console /Deal Complete/
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 開
do e 骰子
}
}
automacro Emotions {
console /emotion 你的ID: *骰子(.*)點\*/
call {
pause 0.1
$emotion = $.lastMatch1
pause 0.5
if ($AssignNumber < 7) goto OneToSix
pause 0.1
#賭大中小,開出點數為 1,2
if ($emotion < 3) goto Seven
pause 0.1
#賭大中小,開出點數為 5,6
if ($emotion > 4) goto Nine
pause 0.1
#賭大中小,開出點數為 3,4
goto Eight
:OneToSix
pause 0.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 * 4.9)
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.3)
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 (.*)/
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 /交易完成/
console /Deal Complete/
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 /交易已取消/
console /Deal Cancelled /
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 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)
}
}

複製代碼

外掛聯合國

[分享] 賭場腳本

相關POST