按键精灵php中控台,最近很流行的机器人话题，我贴一部分用按键精灵写的代码...

很多平台都有机器人的，这确实是事实，PS ipoker都爆过机器人，像ps 的plo 200都有机器人赢了好像大概200w刀？不过这机器人肯定不是像另外一个帖子提到的什么翻牌前不管任何牌都跟别人all in，假如这是机器人的话，那写这个程序的程序员肯定是个智障。我贴的这个程序去年以前大概能打赢德扑圈的1-2不带anti的级别，总体来讲这个程序打得特别的紧弱，spr>6面对flop的raise它能弃掉底set,在天顺，天花面顶set都会弃掉，所以这程序大概赢率是3bb/100h左右吧，比较弱智，以下是部分源码

Function 翻牌(card1, card2, color1, color2, a1, a2, a3, b1, b2, b3, id)

Dim flopface,pairface,flashface,wet,power,draw

flopface = 牌面(a1, a2, a3, b1, b2, b3)

pairface = CInt(Mid(flopface, 1, 1))

flashface = CInt(Mid(flopface, 2, 1))

straightface= CInt(Mid(flopface, 3, 1))

wet=CInt(Mid(flopface, 3, 1))

power=牌力(card1,card2,color1,color2,a1,a2,a3,b1,b2,b3)

draw=Lib.德扑数学.听牌(card1,card2,color1,color2,a1,a2,a3,b1,b2,b3)

if pairface=2 then

if power=12 then

翻牌= "6"+CStr(wet)

ElseIf power = 4 and card1 >= 12 and card1 >= a1 Then

翻牌= "5"+CStr(wet)

elseif power=4 and card1<=11 and card1>=a1 then

翻牌 = "4" + CStr(wet)

ElseIf power >= 1 Then

翻牌 = "2" + CStr(wet)

ElseIf prepower <= 3 Then//AK

翻牌 = "1" + CStr(wet)

else 翻牌= "0"+CStr(wet)

end if

elseif  pairface=1 then

if power>=11 then

翻牌= "6"+CStr(wet)

elseif power>=4 then

if power=5 and a1<>14 and a2<>14 and a3<>14 and (card1=14 or card2=14) then

翻牌= "5"+CStr(wet)

elseif card1>=11 and power=4 or power=5 Then

翻牌 = "4" + CStr(wet)

Else 翻牌 = "2" + CStr(wet)

end if

elseif power>=3 or draw>=2 then

翻牌 = "2" + CStr(wet)

ElseIf power = 2 Then

翻牌 = "1" + CStr(wet)

else 翻牌= "0"+CStr(wet)

end if

elseif flashface=1 then

if power=10 and (card1=14 or card2=14) or power=12 then

翻牌= "6"+CStr(wet)

elseif power=10 and (card1>=12 or card2>=12) then

翻牌= "5"+CStr(wet)

elseif power=10 then

翻牌= "4"+CStr(wet)

elseif card1=14 and color1=b1 or card2=14 and color2=b2 or power=7 or power=8 or card1=13 and color1=b1 and Lib.德扑数学.三取大(a1, a2, a3)=14 or card2=13 and color2=b2 and Lib.德扑数学.三取大(a1, a2, a3)=14 then

翻牌= "3"+CStr(wet)

elseif power>=3 then

翻牌 = "2" + CStr(wet)

else 翻牌= "0"+CStr(wet)

end if

elseif straightface>=1 then

If power >= 10 or power = 9 and card1 <> Lib.德扑数学.四取小(card1, a1, a2, a3) and card2 <> Lib.德扑数学.四取小(card2, a1, a2, a3) or power = 9 and Lib.德扑数学.五取大(card1,card2, a1, a2, a3)=14 and Lib.德扑数学.五取小(card1,card2, a1, a2, a3)=10 or power = 9 and Lib.德扑数学.五取大(card1,card2, a1, a2, a3)=14 and Lib.德扑数学.五取小(card1,card2, a1, a2, a3)=5 and card1<>14 and card2<>14 Then

翻牌= "6"+CStr(wet)

elseif power>=7 then

翻牌= "5"+CStr(wet)

ElseIf power >= 4 Then

If card1<=10 and power = 4 Then

翻牌 = "2" + CStr(wet)

Else 翻牌 = "4" + CStr(wet)

End If

elseif draw>=2 then

翻牌= "3"+CStr(wet)

elseif power=3 then

翻牌 = "2" + CStr(wet)

ElseIf power = 2 Then

翻牌 = "1" + CStr(wet)

else 翻牌= "0"+CStr(wet)

end if

else

if power>=8 and card1 <> Lib.德扑数学.四取小(card1, a1, a2, a3) and card2 <> Lib.德扑数学.四取小(card2, a1, a2, a3) or power>=7 and wet>=2 or power=7 and 翻牌两高张()=1 Then

翻牌= "6"+CStr(wet)

elseif power>=6 then

翻牌= "5"+CStr(wet)

elseif power>=4 then

If card1<=10 and power = 4 Then

翻牌 = "2" + CStr(wet)

Else 翻牌 = "4" + CStr(wet)

End If

elseif draw>=2 then

翻牌= "3"+CStr(wet)

elseif power=3 then

翻牌 = "2" + CStr(wet)

elseif power=2 then

翻牌 = "1" + CStr(wet)

else 翻牌= "0"+CStr(wet)

end if

End If

If prepower = 10 Then

翻牌 = "0" + CStr(wet)

dm.WriteFile "排错.txt", " id=" +id+ CStr(session)

End If

dm.WriteFile id+".txt", "  翻牌圈牌力=" + CStr(power)

dm.WriteFile id+".txt", "  翻牌圈听牌=" + CStr(draw)

dm.WriteFile id+".txt", "  翻牌圈成对牌面=" + CStr(pairface)

dm.WriteFile id+".txt", "  翻牌圈同花牌面=" + CStr(flashface)

dm.WriteFile id+".txt", "  翻牌圈湿度=" + CStr(wet)

end function

Function 牌面(a, b, c, x, y, z)

Dim min,mid2,max,flashface,straightface,pairface,wet

min = Lib.德扑数学.三取小(a, b, c)

mid2 = Lib.德扑数学.三取中(a, b, c)

max = Lib.德扑数学.三取大(a, b, c)

flashface = 0

straightface = 0

pairface = 0

wet= 0

if a=b and a=c then

牌面 = "2000"

Exit Function

end if

if max=mid2 or max=min or mid2=min then

pairface=1

end if

if max-min<=3 or max-min=4 and min>=10 then

straightface=1

elseif max-min=4 then

straightface=2

end if

if x=y and y=z then

flashface=1

elseif x=y or x=z or y=z then

flashface=2

end if

if pairface=1 then

if flashface=2 then

wet=1

else wet=0

end if

elseif flashface=1 and straightface>=1 then

wet=4

elseif flashface=1 and straightface=0 then

wet=3

elseif flashface=2 and straightface=1 then

wet=3

elseif flashface=2 then

wet=2

elseif straightface>=1 then

wet=1

end if

牌面= CStr(pairface)+CStr(flashface)+CStr(wet)+CStr(straightface)

end function

function 牌力(c1,c2,r1,r2,a,b,c,x,y,z)

if Lib.德扑数学.同花(r1,r2,x,y,z)=1 and Lib.德扑数学.顺子(c1,c2,a,b,c)=1 or Lib.德扑数学.四条(c1,c2,a,b,c)=1 then

牌力 = 12

ElseIf Lib.德扑数学.带A明三(c1, c2, a, b, c) = 1 Then

MessageBox "有带A明三"

牌力= 12

elseif Lib.德扑数学.葫芦(c1,c2,a,b,c)=1 then

牌力= 11

elseif Lib.德扑数学.同花(r1,r2,x,y,z)=1 then

牌力= 10

elseif Lib.德扑数学.顺子(c1,c2,a,b,c)=1 then

返回值 = Lib.德扑翻牌圈.牌力(c1,c2,r1,r2,a,b,c,x,y,z)

牌力= 9

elseif Lib.德扑数学.暗三(c1,c2,a,b,c)>=2 then

牌力= 8

elseif Lib.德扑数学.暗三(c1,c2,a,b,c)=1 then

牌力= 7

elseif Lib.德扑数学.明三(c1,c2,a,b,c)=1 then

牌力= 5

elseif Lib.德扑数学.顶两对(c1,c2,a,b,c)=1 then

牌力= 6

elseif Lib.德扑数学.中两对(c1,c2,a,b,c)=1 then

牌力= 5

elseif Lib.德扑数学.底两对(c1,c2,a,b,c)=1 then

牌力= 5

elseif Lib.德扑数学.超对(c1,c2,a,b,c)=1 then

牌力= 4

elseif Lib.德扑数学.顶对(c1,c2,a,b,c)=1 then

牌力= 3

elseif Lib.德扑数学.中对(c1,c2,a,b,c)=1 then

牌力= 2

elseif Lib.德扑数学.底对(c1,c2,a,b,c)=1 then

牌力= 1

else 牌力= 0

End If

TracePrint "牌力="+CStr(牌力)

End Function

这是按键精灵写的，我想大部分程序员都可以看懂个大概，看起来像是伪代码，实际上就是源码，想要源码的不用私聊我了，不会回，更不会给的。