仙境傳說|RO私服

標題: openkore賭場範本 [打印本頁]

作者: RO-online 時間: 2010-12-9 21:23
標題: openkore賭場範本
在來我在分享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)

      }
}

作者: 祭司 時間: 2010-12-9 21:27
大大那我問你我的仙境傳說openkore在製作箭是點下去然後要選擇東西嗎?
知道很多東西可以製作箭
是那些東西放身上，然後點技能就直接做了嗎?
不清楚這招怎麼使用不知道怎麼解決這問題~

作者: kurt790810 時間: 2010-12-15 02:48
本帖最後由 kurt790810 於 2010-12-15 18:22 編輯

請問一下..是把這貼到macro.txt就可以跑嗎?
我的跑不起來是不是還要輸入什麼呢!?
要如何觸發這個腳本呢!?
這行lock WinDeal 是什麼意思呢!?
裡面的ABC是什麼呢!?

歡迎光臨仙境傳說|RO私服 (http://ro.private-servers-game.com/)