賭場腳本問題!!

yang1

我腳本已經到可以給錢－＞骰完－＞贏了可以點買家交易、輸了就說沒中，但是點交易卻不能成功給錢，會在交易時呆掉
a. 點交易卻不能成功給錢，會在交易時呆掉
b. "恭喜 $DealID 中獎! 請領取獎金~" 在BB中沒有出現ID，只有顯示 "恭喜  中獎! 請領取獎金~"，不知有沒有關係?但是可以成功點買家交易!
以下是一個賭贏的BB內容

天使魔心 (等級 107) 向您要求一個交易
請輸入'deal'以開始交易, 或'deal no'以拒絕本交易.
Config 'dealAuto' 設定為 2 (原為 0)
開始與天使魔心進行交易
請輸入 deal add 背包物品編號數量來進行物品交易
或輸入 deal add z 金額來進行金額交易
確認或交換都是輸入 deal 來執行
一次完整的交易都要輸入3次"deal"
您完成了本交易
天使魔心加入 1,000,008 z 以交易
[macro] automacro Deal2 triggered.
Config 'dealAuto' 設定為 0 (原為 2)
天使魔心完成了本交易
Config 'dealAuto' 設定為 2 (原為 0)
交易完成
[macro] automacro DealMoney triggered.
您獲得 1,000,008 zeny.
Config 'dealAuto' 設定為 0 (原為 2)
RuinKy : 押"中" 金額:1000008 Z
RuinKy : 開
RuinKy: *骰子4點*
[macro] automacro Emotions triggered.
RuinKy : 開出: "骰子4" (中)
Config 'dealAuto' 設定為 1 (原為 0)
'e' 功能語法錯誤 (表情符號)
使用方法: e <指令>
RuinKy : 恭喜  中獎! 請領取獎金~
Config 'dealAuto' 設定為 0 (原為 1)
'deal' 功能錯誤 (與玩家交易)
無傳過來的或正在交易的訊息可供取消
'deal' 功能錯誤 (與玩家交易)
無傳過來的或正在交易的訊息可供取消
試圖與 Player 天使魔心 (0) 交易
開始與天使魔心進行交易
請輸入 deal add 背包物品編號數量來進行物品交易
或輸入 deal add z 金額來進行金額交易
確認或交換都是輸入 deal 來執行
一次完整的交易都要輸入3次"deal"
天使魔心完成了本交易
Config 'dealAuto' 設定為 2 (原為 0)
您完成了本交易
'deal' 功能錯誤 (與玩家交易)
您接受了最終的交易
交易完成
'deal' 功能錯誤 (與玩家交易)
無交易訊息可供接受
'deal' 功能錯誤 (與玩家交易)
無傳過來的或正在交易的訊息可供取消
'deal' 功能錯誤 (與玩家交易)
無傳過來的或正在交易的訊息可供取消

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
}
}

#對方放入(.*),(.*),(.*)賭金後,執行確認交易動作!
#(.*),(.*),(.*) z 是百萬的情況, (.*),(.*) z 是十萬的情況 ,
#十萬百萬都接受則要其他寫法, 在此不提供
automacro Deal2 {
  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 骰子
}
}
automacro Emotions {
  console /RuinKy: \*骰子(.*)點\*/
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 5
  do conf dealAuto 2
  do deal no
  do deal no
  release all
  goto end
#-------------------------------[loss]-------------------------------------
:loss
  pause 0.5
  do e 流冷汗
  pause 0.2
  do c 沒中~ 祝您下次中獎~
  do deal no
  do conf dealAuto 2
  release all
:end
}
}

automacro WinDeal {
console /開始與 (.*) 進行交易/
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)
}
}

外掛聯合國

[發問] 賭場腳本問題!!

最佳答案

相關POST