黃易群俠傳M脫機外掛應用程式黃易神行
630
0

[發問] 開賭場問題!!另外誰會開21點賭場?!

急速123 發表於 2013-2-19 19:13:45 | 只看該作者 回帖獎勵 |倒序瀏覽 |
#創造聊天室
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)
        
        }
}
  

這腳本怎會交易完一次後!!  就不能交易?!

上面這是網路抓的!!  但我比較想要21點的賭場!!誰能教我!!我想要學!!
收藏收藏 分享分享 讚 幹 分享分享 FB分享
回覆

使用道具 舉報


您需要登錄後才可以回帖 登錄 | 註冊


手機版 | Archiver | 外掛聯合國

GMT+8, 2024-11-12 11:54 , Processed in 0.058823 second(s), 16 queries , Memcache On.

版權說明:
  本站不會製作、經銷、代理外掛程式。僅免費提供外掛程式下載前之掃毒及掃木馬等安全檢測驗證,協助會員遠離盜號危險程式。本站所有資料均來自網際網路收集整理,說明文字暨下載連結轉載自原程 式開發站。站上出現之公司名稱、遊戲名稱、程式等,商標及著作權,均歸各公司及程式原創所有,本站程式所有權歸外掛聯合國所有。本程式所有權歸外掛聯合國所有.......

回頂部
第二步?
第三步?