|
|
在來我在分享openkore賭場範本給各位仙境傳說的愛好者分享!~有什麼問題歡迎問我喔~!
automacro CreateChat {
#console /您的座標: (.*), (.*)/
console /Your Coordinates ABC: (.*), (.*)/
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.8猜數字1:5.3" 20 1
pause 0.2
do conf dealAuto 2
}
}
automacro JoinChat {
#console /(.*) 已加入這個聊天室/
console /(.*) has joined the Chat Room ABC/
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 (.*)/
console /Engaged Deal with ABC (.*)/
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 ABC: (.*) x (.*)/
call {
do deal no
}
}
#對方放入(.*),(.*),(.*)賭金後,執行確認交易動作!
automacro Deal2 {
#console /(.*) 加入 (.*),(.*) z 以交易/
console /(.*) Added (.*),(.*),(.*) zeny to Deal ABC/
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 /交易完成/
console /Deal Complete ABC/
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 {
console /原宿: \*Dicee\#(.*)\*/
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 (.*)/
console /Engaged Deal with ABC (.*)/
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
 eal
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 ABC/
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 ABC/
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)
}
} |
|
IP卡
狗仔卡
收藏
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
顯身卡