你的位置：
棋牌游戏梭哈自动打牌思路
19:06:00 |
来源: 按键精灵资源站
本帖最后由 huangliang72 于
21:24 编辑
Function 思考操作
& & dm_ret = dm.UseDict(1)
& & 电脑操作 = &&
& & dm.moveto 485, 851
& && &&&Delay 1000
& & 对方牌型 = dm.Ocr(428,104,610,139,&020|cb0b00-.0) //===信息：识别对方牌型===//
& & 本方牌型 = dm.Ocr(428,815,610,850,&020|cb0b00-.0) //===信息：识别本方牌型===//
& & dm_ret = dm.UseDict(0)
& & //& & 对方牌型 = Form1.InputBox1.Text
& & //& & 本方牌型 = Form1.InputBox2.Text
& & 张数 = len(对方牌型) + 1 : 牌面 = 0 : 对方操作 = &未全压&: 对子是否相同 = &否& : 明牌面 = 0
& & dm_ret = dm.FindPic(0,0,,&梭哈.bmp&,&.9,0,intX,intY)// 这里找对方梭哈信息
& & If intX &= 0 and intY &= 0 Then
& && &&&对方操作 = &梭哈&
& & End If
& & 本方信息 = 牌面信息(本方牌型)& & //===信息：判断对方最大的牌面===//2
& & 对方信息 = 牌面信息(对方牌型)& & //===信息：判断对方最大的牌面===//2
& & 对方最大牌面 = 取最大值(对方牌型)//===信息：判断对方最大的牌面===//2
& & TracePrint &本方信息& & 本方信息
& & TracePrint &对方信息& & 对方信息
& & If 张数 = 2 Then
& && &&&本方是否对子 = instr(本方信息, &20&)//===信息：判断本方是否有对子===//
& && &&&For i = 1 To 张数 //循环找最大牌
& && && && &If clng(mid(本方牌型, i, 1)) &= clng(对方最大牌面) Then
& && && && && & 牌面 = 牌面 + 1
& && && && &End If
& && &&&Next
& && &&&If 牌面 = 张数 Then // 牌面都比对方大
& && && && &本方最大牌面 = 取最大值(本方牌型)//===信息：判断本方最大的牌面===//2
& && && && &If 本方是否对子 & 0 Then // 本方有对牌面都比对方大
& && && && & 电脑操作 = &下注& : TracePrint &下注& // 〖下注〗2
& && && && &ElseIf clng(mid(本方牌型, 1, 1)) & 6 and clng(mid(本方牌型, 2, 1)) & 6 Then //本方没对本方牌没有8910
& && && && && & 电脑操作 = &弃不& : TracePrint &弃不& // 〖弃不〗2
& && && && &Else
& && && && && & 电脑操作 = &下注& : TracePrint &下注& // 〖下注〗2
& && && && &End If
& && &&&ElseIf 本方是否对子 & 0 Then // 本方有对子
& && && && &本方对子面 = clng(mid(本方信息, 本方是否对子 - 1, 1))//===信息：判断本方对子面===//2
& && && && &If 本方对子面 & 5 Then //本方对子面小于9
& && && && && & 电脑操作 = &弃不& : TracePrint &弃不& // 〖弃不〗2
& && && && &Else
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗2
& && && && &End If
& && &&&Else
& && && && &本方最大牌面 = 取最大值(本方牌型)//===信息：判断本方最大的牌面===//2
& && && && &本方最小牌面 = 取最小值(本方牌型)//===信息：判断本方最大的牌面===//2
& && && && &If 本方最大牌面 & 对方最大牌面 and 本方最大牌面 &= 8 and 本方最小牌面 &= 5 Then //本方最大牌面比对方最大牌面大，本方最大牌面&K,本方最小牌面&9
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗2
& && && && &ElseIf 本方最大牌面 = 9 and 本方最小牌面 & 6 Then//本方牌是A K Q
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗2
& && && && &Else
& && && && && & 电脑操作 = &弃不& : TracePrint &弃不& // 〖弃不〗2
& && && && &End If
& && &&&End If
& & ElseIf 张数 = 3 Then
& && &&&本方是否三张 = instr(本方信息, &30&)//===信息：判断本方是否有三张===//3
& && &&&本方是否对子 = instr(本方信息, &20&)//===信息：判断本方是否有对子===//3
& && &&&对方是否对子 = instr(对方信息, &20&)//===信息：判断对方是否有对子===//3
& && &&&For i = 1 To 张数 //循环找最大牌
& && && && &If clng(mid(本方牌型, i, 1)) &= 对方最大牌面 Then
& && && && && & 牌面 = 牌面 + 1
& && && && && & If i & 1 Then
& && && && && && &&&明牌面 = 明牌面 + 1
& && && && && & End If
& && && && &End If& && &&&
& && &&&Next
& && &&&If 牌面 = 张数 and 对方是否对子 = 0 Then //牌面都比对方大and对方不是对子
& && && && &电脑操作 = &梭哈& : TracePrint &梭哈& // 〖梭哈〗3
& && &&&ElseIf 本方是否三张 & 0 Then//本方有3张
& && && && &电脑操作 = &梭哈& : TracePrint &梭哈& // 〖梭哈〗3
& && &&&ElseIf 本方是否对子 & 0 and 对方是否对子 & 0 Then //双方都有对子
& && && && &本方对子面 = clng(mid(本方信息, 本方是否对子 - 1, 1))//===信息：判断本方对子面===//3
& && && && &对方对子面 = clng(mid(对方信息, 对方是否对子 - 1, 1))//===信息：判断对方对子面===//3
& && && && &If 对方操作 = &梭哈& Then //对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗3
& && && && &ElseIf 本方对子面 & 对方对子面 Then //本方对子比对方对子小，对方没梭哈
& && && && && & 电脑操作 = &弃不& : TracePrint &弃不& // 〖弃不〗3
& && && && &Else //本方对子比对方对子大，对方没梭哈
& && && && && & 电脑操作 = &下注& : TracePrint &下注& // 〖下注〗3
& && && && &End If
& && &&&ElseIf 本方是否对子 & 0 and 对方是否对子 = 0&&Then //本方有对 对方没对
& && && && &本方对子面 = clng(mid(本方信息, 本方是否对子 - 1, 1))//===信息：判断本方对子面===//3
& && && && &If 本方对子面 &= 对方最大牌面 Then // 本方对子大于对方最大牌
& && && && && & 电脑操作 = &梭哈& : TracePrint &梭哈& // 〖梭哈〗3
& && && && &ElseIf 对方操作 = &梭哈& Then //对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗3
& && && && &ElseIf 本方对子面 & 取最小值(对方牌型) Then
& && && && && & 电脑操作 = &下注& : TracePrint &下注& // 〖下注〗3
& && && && &Else // 本方有对，对方牌面大，对方没梭哈
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗3
& && && && &End If
& && &&&ElseIf&&本方是否对子 = 0 and 对方是否对子 & 0 Then//本方没对，对方有对
& && && && &If 对方操作 = &梭哈& Then //对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗3
& && && && &Else // 对方有对没梭哈加注就放弃，不加就不加
& && && && && & If 牌面 = 张数 Then
& && && && && && &&&电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗3
& && && && && & Else
& && && && && && &&&电脑操作 = &弃不& : TracePrint &弃不& // 〖弃不〗3
& && && && && & End If
& && && && &End If
& && &&&ElseIf 牌面 &= 1 Then //双方都是散牌 本方大牌张数大于=1张
& && && && &对方第一张牌 = clng (mid(对方牌型, 1, 1))
& && && && &If 明牌面 = 2 and 对方第一张牌 & 5 Then //本方明牌面都比对方最大的大,对方对方第一张牌小于10
& && && && && & 电脑操作 = &梭哈& : TracePrint &梭哈& // 〖梭哈〗3
& && && && &ElseIf 明牌面 = 2 Then//本方明牌面都比对方最大的大
& && && && && & 电脑操作 = &下注& : TracePrint &下注& // 〖放弃〗3
& && && && &ElseIf 对方操作 = &梭哈& Then //对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗3
& && && && &Else // 本方大牌张数大于=2张
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗3
& && && && &End If
& && &&&Else //双方都是散牌 本方大牌张数小于=1张
& && && && &If 对方操作 = &梭哈& Then //对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗3
& && && && &Else
& && && && && & 电脑操作 = &弃不& : TracePrint &弃不& // 〖弃不〗3
& && && && &End If
& && &&&End If
& & ElseIf 张数 = 4 Then
& && &&&本方是否四张 = instr(本方信息, &40&)//===信息：判断本方是否有四张===//4
& && &&&本方是否三张 = instr(本方信息, &30&)//===信息：判断本方是否有三张===//4
& && &&&对方是否三张 = instr(对方信息, &30&)//===信息：判断对方是否有三张===//4
& && &&&本方是否对子 = instr(本方信息, &20&)//===信息：判断本方是否有对子===//4
& && &&&对方是否对子 = instr(对方信息, &20&)//===信息：判断对方是否有对子===//4
& && &&&本方对子数量 = 最多次数(本方信息, &20&)//===信息：判断本方对子数量===//4
& && &&&对方对子数量 = 最多次数(对方信息, &20&)//===信息：判断对方对子数量===//4
& && &&&For i = 1 To 张数 //循环找最大牌
& && && && &If clng(mid(本方牌型, i, 1)) &= 对方最大牌面 Then
& && && && && & 牌面 = 牌面 + 1& && && &
& && && && &End If& && &&&
& && &&&Next
& && &&&If 本方是否四张 & 0 Then //本方是四张
& && && && &电脑操作 = &梭哈& : TracePrint &梭哈& // 〖梭哈〗4
& && &&&ElseIf 本方是否三张 = 0 and 对方是否三张 & 0 Then // 本方没有3张，对方3张
& && && && &电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗4
& && &&&ElseIf 本方是否三张 & 0 and 对方是否三张 & 0 Then //双方都是3张
& && && && &本方三张面 = clng(mid(本方信息, 本方是否三张 - 1, 1))//===信息：判断本方三张面===//4
& && && && &对方三张面 = clng(mid(对方信息, 对方是否三张 - 1, 1))//===信息：判断对方三张面===//4
& && && && &If 本方三张面 & 对方三张面 Then // 本方三张面比对方三张面大
& && && && && & 电脑操作 = &梭哈& : TracePrint &梭哈& // 〖梭哈〗4
& && && && &ElseIf 对方操作 =&&&梭哈& Then //对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗4
& && && && &Else //本方三张面比对方三张面小
& && && && && & 电脑操作 = &弃不& : TracePrint &弃不& // 〖弃不〗4
& && && && &End If
& && &&&ElseIf 本方是否三张 & 0 and 对方是否三张 = 0 Then //本方有三张，对方没有三张
& && && && &本方三张面 = clng(mid(本方信息, 本方是否三张 - 1, 1))//===信息：判断本方三张面===//4
& && && && &If 本方三张面 = clng(mid(本方牌型, 1, 1)) Then //本方是暗三张
& && && && && & 电脑操作 = &加梭& : TracePrint &加梭& // 〖梭哈〗4
& && && && &Else
& && && && && & 电脑操作 = &梭哈& : TracePrint &梭哈& // 〖梭哈〗4
& && && && &End If
& && &&&ElseIf 本方对子数量 = 2 and 对方对子数量 = 0 Then//&&本方有两对，对方没对
& && && && &电脑操作 = &梭哈& : TracePrint &梭哈& // 〖梭哈〗4
& && &&&ElseIf 本方对子数量&&= 2 and 对方对子数量 = 1 Then //本方两对，对方一对
& && && && &对方对子面 = clng(mid(对方信息, instr(对方信息, &20&) - 1, 1))//===信息：判断对方对子面===//4
& && && && &对方替换对子 = Replace(对方牌型, 对方对子面, &0&)//===信息：判断对方替换对子===//4
& && && && &本方替换对子 = Replace(本方牌型, 对方对子面, &0&)//===信息：判断对方替换对子===//4
& && && && &For 循环 = 1 To len(本方信息)
& && && && && & If Mid(本方信息, 循环, 2) = &20& Then
& && && && && && &&&本方两对牌面 = clng(Mid(本方信息, 循环 - 1, 1))//===信息：判断本方两对牌面===//4
& && && && && && &&&If 本方两对牌面 = 对方对子面 Then // 本方两对和对方一对中相同
& && && && && && && && &对子是否相同 = &是&
& && && && && && && && &Exit For
& && && && && && &&&End If
& && && && && & End If
& && && && &Next
& && && && &If 对子是否相同 = &是& and 取最大值(本方替换对子) & 取最大值(对方替换对子) Then
& && && && && & 电脑操作 = &梭哈& : TracePrint &梭哈& // 〖梭哈〗4
& && && && &ElseIf 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗4
& && && && &Else //对方一对 本方两对
& && && && && & 电脑操作 = &下注& : TracePrint &下注& // 〖下注〗4
& && && && &End If
& && &&&ElseIf 本方是否对子 & 0 and 对方是否对子 & 0 Then //双方都是对子
& && && && &本方对子面 = clng(mid(本方信息, 本方是否对子 - 1, 1))//===信息：判断本方对子面===//4
& && && && &对方对子面 = clng(mid(对方信息, 对方是否对子 - 1, 1))//===信息：判断对方对子面===//4
& && && && &If 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗4
& && && && &ElseIf 本方对子面 & 对方对子面 Then //本方对子比对方对子小
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗4
& && && && &Else //双方有对没梭哈
& && && && && & 电脑操作 = &下注& : TracePrint &下注& // 〖下注〗4
& && && && &End If
& && &&&ElseIf 本方是否对子 & 0 and 对方是否对子 = 0 Then // 本方有对，对方没对
& && && && &本方对子面 = clng(mid(本方信息, 本方是否对子 - 1, 1))//===信息：判断本方对子面===//4
& && && && &If 本方对子面 &= 对方最大牌面&&//本方对大于对面单张
& && && && && & 电脑操作 = &梭哈& : TracePrint &梭哈& // 〖梭哈〗4
& && && && &ElseIf 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗4
& && && && &Else //本方有对没对方单张牌大
& && && && && & 电脑操作 = &下注& : TracePrint &下注& // 〖下注〗4
& && && && &End If
& && &&&ElseIf 本方是否对子 = 0 and 对方是否对子 & 0 Then // 本方没对，对方有对
& && && && &对方对子面 = clng(mid(对方信息, 对方是否对子 - 1, 1))//===信息：判断对方对子面===//4
& && && && &本方最小牌 = 取最小值(本方牌型)//===信息：判断本方最小牌===//4
& && && && &If 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗4
& && && && &ElseIf 取最大值(本方牌型) - 取最小值(本方牌型) &= 4 Then //本方牌面有机会成顺子
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗4
& && && && &Else //本方没对，对方有对，本方没机会成顺子
& && && && && & 电脑操作 = &弃不& : TracePrint &弃不& // 〖弃不〗4
& && && && &End If
& && &&&Else // 双方散牌
& && && && &If 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗4
& && && && &ElseIf 取最大值(本方牌型) - 取最小值(本方牌型) &= 4 Then //本方牌面有机会成顺子
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗4
& && && && &ElseIf 牌面 &= 1 and 取最大值(本方牌型)&9 and 取最大值(本方牌型)&8 Then //双方散牌 本方牌面有2张以上比对方最大的大
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗4
& && && && &ElseIf 取最大值(本方牌型) & 6 Then //本方最大牌J以上
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗4
& && && && &Else
& && && && && & 电脑操作 = &弃不& : TracePrint &弃不& // 〖弃不〗4
& && && && &End If
& && &&&End If
& & ElseIf 张数 = 5 Then
& && &&&本方是否四张 = instr(本方信息, &40&)//===信息：判断本方是否有四张===//5
& && &&&对方是否四张 = instr(对方信息, &40&)//===信息：判断对方是否有四张===//5
& && &&&本方是否三张 = instr(本方信息, &30&)//===信息：判断本方是否有三张===//5
& && &&&对方是否三张 = instr(对方信息, &30&)//===信息：判断对方是否有三张===//5
& && &&&本方是否对子 = instr(本方信息, &20&)//===信息：判断本方是否有对子===//5
& && &&&对方是否对子 = instr(对方信息, &20&)//===信息：判断对方是否有对子===//5
& && &&&本方对子数量 = 最多次数(本方信息, &20&)//===信息：判断本方对子数量===//5
& && &&&对方对子数量 = 最多次数(对方信息, &20&)//===信息：判断对方对子数量===//5
& && &&&本方信息分割 = split(本方信息,&|&)//===信息：判断本方全部为散牌===//5
& && &&&对方信息分割 = split(对方信息,&|&)//===信息：判断对方全部为散牌===//5
& && &&&If 本方是否四张 & 0 and 对方是否四张 & 0 Then //双方都是铁枝
& && && && &对方铁枝 = clng(mid(对方信息, 对方是否四张 - 1, 1))//===信息：判断对方四张牌面===//5
& && && && &本方铁枝 = clng(mid(本方信息, 本方是否四张 - 1, 1))//===信息：判断本方四张牌面===//5
& && && && &If 本方铁枝 & 对方铁枝 Then
& && && && && & 电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && && && &Else
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &End If
& && &&&ElseIf 本方是否四张 = 0 and 对方是否四张 & 0 Then //本方没有铁枝对方有铁枝
& && && && &电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && &&&ElseIf 本方是否四张 & 0 and 对方是否四张 = 0 Then //本方有铁枝对方没有铁枝
& && && && &电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && &&&ElseIf 本方是否三张 & 0 and 本方是否对子 & 0 and 对方是否三张 & 0 Then //本方有葫芦，对方有三张
& && && && &本方三张面 = clng(mid(本方信息, 本方是否三张 - 1, 1))//===信息：判断本方三张面===//5
& && && && &对方三张面 = clng(mid(对方信息, 对方是否三张 - 1, 1))//===信息：判断本方三张面===//5
& && && && &If 本方三张面 & 对方三张面 Then //本方三张面大于对方三张面
& && && && && & 电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && && && &ElseIf 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &Else
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗5
& && && && &End If
& && &&&ElseIf 本方是否三张 & 0 and 本方是否对子 & 0 and 对方对子数量 = 2 Then //本方有葫芦，对方有两对
& && && && &本方三张面 = clng(mid(本方信息, 本方是否三张 - 1, 1))//===信息：判断本方三张面===//5
& && && && &If 本方三张面 & 最大对子(对方信息) Then
& && && && && & 电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && && && &ElseIf 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &Else
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗5
& && && && &End If
& && &&&ElseIf 本方是否三张 & 0 and 本方是否对子 & 0 Then//只有本方有葫芦
& && && && &电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && &&&ElseIf UBound(本方信息分割) = 5 and 取最大值(本方牌型) - 取最小值(本方牌型) = 4 Then //本方是顺子
& && && && &本方最大牌面 = 取最大值(本方牌型)//===信息：判断对方最大的牌面===//5
& && && && &对方最大牌面 = 取最大值(对方牌型)//===信息：判断对方最大的牌面===//5
& && && && &If 对方是否三张 & 0 or 对方对子数量 = 2 Then //对方有三张面，对方有两对
& && && && && & If 对方操作 = &梭哈& Then // 对方梭哈
& && && && && && &&&电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && && & Else
& && && && && && &&&电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗5
& && && && && & End If
& && && && &ElseIf UBound(对方信息分割) = 4 and 取最大值(对方牌型) - 取最小值(对方牌型) & 5 Then// 对方有顺子面
& && && && && & If 本方最大牌面 & 对方最大牌面 Then //本方顺子比对方顺子大
& && && && && && &&&电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && && && && & ElseIf 对方操作 = &梭哈& Then // 对方梭哈
& && && && && && &&&电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && && & Else
& && && && && && &&&电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗5
& && && && && & End If
& && && && &Else
& && && && && & 电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && && && &End If
& && &&&ElseIf 本方是否三张 & 0 and 对方是否三张 & 0 Then //双方都是3张
& && && && &本方三张面 = clng(mid(本方信息, 本方是否三张 - 1, 1))//===信息：判断本方三张面===//5
& && && && &对方三张面 = clng(mid(对方信息, 对方是否三张 - 1, 1))//===信息：判断对方三张面===//5
& && && && &If 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &ElseIf 本方三张面 & 对方三张面 Then //本方三张面大于对方三张面
& && && && && & 电脑操作 = &下注& : TracePrint &下注& // 〖下注〗5
& && && && &Else
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &End If
& && &&&ElseIf 本方是否三张 & 0 and&&对方对子数量 = 2 Then //本方有三张，对方有两对
& && && && &If 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &Else
& && && && && & 电脑操作 = &下注& : TracePrint &下注& // 〖下注〗5
& && && && &End If
& && &&&ElseIf 本方是否三张 & 0&&and 对方是否对子 & 0 Then //本方有三张，对方有一对
& && && && &本方三张面 = clng(mid(本方信息, 本方是否三张 - 1, 1))//===信息：判断本方三张面===//5
& && && && &对方对子面 = clng(mid(对方信息, 对方是否对子 - 1, 1))//===信息：判断对方对子面===//5
& && && && &If 本方三张面 & 对方对子面 Then //本方三张面大于对方对子面
& && && && && & 电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && && && &ElseIf 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &Else
& && && && && & 电脑操作 = &下注& : TracePrint &下注& // 〖下注〗5
& && && && &End If
& && &&&ElseIf 本方是否三张 & 0 and UBound(对方信息分割) = 4 and 取最大值(对方牌型) - 取最小值(对方牌型) & 4 Then //本方有三张，对方散牌，对方没顺字面
& && && && &电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && &&&ElseIf 本方是否三张 = 0 and 对方是否三张 & 0 Then//本方没有三张，对方有三张
& && && && &电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && &&&ElseIf 本方对子数量 = 2 and 对方对子数量 = 2 Then //双方都有两对
& && && && &If 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &ElseIf 最大对子(本方信息) & 最大对子(对方信息) Then //本方最大对子大于对方最大对子
& && && && && & 电脑操作 = &下注& : TracePrint &下注& // 〖下注〗5
& && && && &Else //本方最大对子小于对方最大对子
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &End If
& && &&&ElseIf 本方对子数量 = 2 and 对方是否对子 & 0 Then //本方有两对,对方有一对
& && && && &对方对子面 = clng(mid(对方信息, 对方是否对子 - 1, 1))//===信息：判断对方对子面===//5
& && && && &For 循环 = 1 To len(本方信息)
& && && && && & If Mid(本方信息, 循环, 2) = &20& Then
& && && && && && &&&本方两对牌面 = clng(Mid(本方信息, 循环 - 1, 1))//===信息：判断本方两对牌面===//5
& && && && && && &&&If 本方两对牌面 = 对方对子面 Then // 本方两对和对方一对中相同
& && && && && && && && &对子是否相同 = &是&
& && && && && && && && &Exit For
& && && && && && &&&End If
& && && && && & End If
& && && && &Next
& && && && &If 对子是否相同 = &是& Then // 本方两对和对方一对中相同
& && && && && & 对方替换对子 = Replace(对方牌型, 对方对子面, &0&)//===信息：判断对方替换对子===//5
& && && && && & 对方最大牌面 = 取最大值(对方替换对子)//===信息：判断对方替换对子后的最大牌===//5
& && && && && & If 最小对子(本方信息) &= 对方最大牌面 Then//本方小对比对方最大单张大
& && && && && && &&&电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && && && && & Else //本方小对比对方最大单张小
& && && && && && &&&电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗5
& && && && && & End If
& && && && &ElseIf 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &Else //本方两对对方一对
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗5
& && && && &End If
& && &&&ElseIf 本方对子数量 = 2 and UBound(对方信息分割) = 4 and 取最大值(对方牌型) - 取最小值(对方牌型) & 4&&Then //本方有两对，对方散牌，对方没顺字面
& && && && &电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && &&&ElseIf 本方对子数量 && 2 and 对方对子数量 = 2 Then //本方没两对，对方有两对
& && && && &电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && &&&ElseIf 本方是否对子 & 0 and 对方是否对子 & 0 Then //双方都是对子
& && && && &本方对子面 = clng(mid(本方信息, 本方是否对子 - 1, 1))//===信息：判断本方对子面===//5
& && && && &对方对子面 = clng(mid(对方信息, 对方是否对子 - 1, 1))//===信息：判断对方对子面===//5
& && && && &If 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &ElseIf 本方对子面 & 对方对子面 Then //本方对子面小于对方对子面
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &Else //本方对字面大于对方对子面
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗5
& && && && &End If
& && &&&ElseIf 本方是否对子 & 0 and UBound(对方信息分割) = 4 and 取最大值(对方牌型) - 取最小值(对方牌型) & 4&&Then //本方有对子，对方散牌，对方没顺字面
& && && && &本方对子面 = clng(mid(本方信息, 本方是否对子 - 1, 1))//===信息：判断本方对子面===//5
& && && && &If 本方对子面 &= 对方最大牌面&&//本方对大于对面单张
& && && && && & 电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && && && &ElseIf 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &Else //本方有对没对方单张牌大
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗5
& && && && &End If
& && &&&ElseIf 本方是否对子 & 0 and 对方是否对子 = 0 Then // 本方有对，对方没对
& && && && &If 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &Else //本方子面没对方打
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗5
& && && && &End If
& && &&&ElseIf 本方是否对子 = 0 and 对方是否对子 & 0 Then // 本方没对，对方有对
& && && && &本方替换A = Replace(本方牌型, &9&, &2&)//===信息：判断本方替换A===//5
& && && && &If 取最大值(本方替换A) - 取最小值(本方替换A) = 4 Then //本方是小顺子 78910J
& && && && && & 电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && && && &Else
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &End If
& && &&&ElseIf&&本方是否对子 = 0 and 取最大值(对方牌型) - 取最小值(对方牌型) &= 4 Then //本方没对，对方有顺子面
& && && && &本方替换A = Replace(本方牌型, &9&, &2&)//===信息：判断本方替换A===//5
& && && && &If 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &Else
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗5
& && && && &End If
& && &&&Else
& && && && &本方替换A = Replace(本方牌型, &9&, &2&)//===信息：判断本方替换A===//5
& && && && &If 取最大值(本方替换A) - 取最小值(本方替换A) = 4 Then //都是散牌本方是小顺子 78910J
& && && && && & 电脑操作 = &加梭& : TracePrint &加梭& // 〖加梭〗5
& && && && &ElseIf 对方操作 = &梭哈& Then // 对方梭哈
& && && && && & 电脑操作 = &放弃& : TracePrint &放弃& // 〖放弃〗5
& && && && &Else
& && && && && & 电脑操作 = &跟不& : TracePrint &跟不& // 〖跟不〗5
& && && && &End If
& && &&&End If
& & End If
& & 思考操作 = 电脑操作
& & Call Plugin.Msg.Tips( &对方信息& & 对方信息 & vbcrlf & &本方信息& & 本方信息 & vbcrlf & 电脑操作 )
& & Delay 1000
End Function
Function 区域获取(X坐标, Y坐标)
& & 获取 = &&
& & For y = 0 To 6
& && &&&For x = 0 To 60 step 2
& && && && &If dm.GetColor(X坐标 + x, Y坐标 + y) = &ffffff& Then
& && && && && & 获取 = 获取 & &1&
& && && && &Else
& && && && && & 获取 = 获取 & &0&
& && && && &End If
& && &&&Next
& & 区域获取 = 获取
End Function
Function 随机判断
& & 随机判断 =Int(3 * Rnd + 1)
End Function
Function 取最小值(字符串)
& & 小 = clng(mid(字符串, 1, 1))
& & For 循环 = 1 To len(字符串)
& && &&&If clng(mid(字符串, 循环, 1)) & 小 Then 小 = clng(mid(字符串, 循环, 1))
& & 取最小值 = 小
End Function
Function 取最大值(字符串)
& & 大 = clng(mid(字符串, 1, 1))
& & For 循环 = 1 To len(字符串)
& && &&&If clng(mid(字符串, 循环, 1)) & 大 Then 大 = clng(mid(字符串, 循环, 1))
& & 取最大值 = 大
End Function
Function 最大对子(总文本)
& & 牌 = 0
& & 数组 = split(总文本, &|&)
& & For ii = 0 To UBound(数组)
& && &&&If mid(数组(ii), 2, 1) = &2& Then
& && && && &If clng(mid(数组(ii), 1, 1)) & 牌 Then
& && && && && & 牌 = clng(mid(数组(ii), 1, 1))
& && && && &End If
& && &&&End If
& & 最大对子 = 牌
End Function
Function 最小对子(总文本)
& & 牌 = 9
& & 数组 = split(总文本, &|&)
& & For ii = 0 To UBound(数组)
& && &&&If mid(数组(ii), 2, 1) = &2& Then
& && && && &If clng(mid(数组(ii), 1, 1)) & 牌 Then
& && && && && & 牌 = clng(mid(数组(ii), 1, 1))
& && && && &End If
& && &&&End If
& & 最小对子 = 牌
End Function
Function 最多次数(总文本,查找字符串) // 查找相同字符串连续出现的最多次数
& & 次数 = 0
& & For 循环 = 1 To len(总文本)
& && &&&If Mid(总文本, 循环, len(查找字符串)) = 查找字符串 Then&&次数 = 次数 + 1
& & 最多次数 = 次数
End Function
Function 牌面信息(总文本) //320|810|510|410|代表3两张,8一张,5一张,4一张
& & 牌面信息 = &&
& & For 外循环 = 1 To len(总文本)
& && &&&查找字符串 = Mid(总文本, 外循环, 1) : 次数 = 0& && &&&
& && &&&For 循环 = 1 To len(总文本)
& && && && &If Mid(总文本, 循环, 1) = 查找字符串 Then&&次数 = 次数 + 10
& && &&&Next
& && &&&If instr(牌面信息, 查找字符串 & 次数) &= 0 Then 牌面信息 = 牌面信息 & 查找字符串 & 次数 & &|&
End Function
==============================================================================
需要这么咋,或者阴 看思路这么样就直接写就可以了 讨论QQ群}