中国留学之家，中国最优秀的留学咨询公司，全球顶尖大学申请专家！记牌器

djlz2008 - 2008-4-14 13:27:00

UserVar Sum
UserVar intX
UserVar intY
Plugin t1=GetSysInfo.GetTime()
Dim Char(56),PK(56),Str(39),Top(56),Bottom(56),Left(56),Right(56),intX,intY,x,y,I,k,m
//大王
Char(55)="0000000000000000000000000000000000000011000110000100000000000000000000000000000100011000110001100011000110000100011"
//小王
Char(54)="0000000000000000000000000000000000000110001110001100000000000000000000000010001100111001100011000110001110001100011"
//Char(0)="0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
Char(1)="1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
//A 以下从A开始到K,黑红梅方
Char(2)="0000100001000110001100110001100110001111111111100011100111000000000000000000000100011001110111111111111111111101101"
//2
Char(3)="0011101111011000000000000000010001100111011100110001111011110000000000000000000100011001110111111111111111111101101"
//3
Char(4)="0111101111011000000100011001110011100000000000110001111001110000000000000000000100011001110111111111111111111101101"
//4
Char(5)="0000000001000110011101110111001111111111000000000000001000010000000000000000000100011001110111111111111111111101101"
//5
Char(6)="1111111111110001100011111111110000000000110001100011111011110000000000000000000100011001110111111111111111111101101"
//6
Char(7)="0001100111011100110001111011110110001100011000110001111001110000000000000000000100011001110111111111111111111101101"
//7
Char(8)="0111101111011000000000000000010000100001000110001100011000110000000000000000000100011001110111111111111111111101101"
//8
Char(9)="0011101111011000110001100001110111101100011000110001111001110000000000000000000100011001110111111111111111111101101"
//9
Char(10)="0011101111011000110001100011000111100111000000000000111001110000000000000000000100011001110111111111111111111101101"
//10
Char(11)="1100111011110111101111011110111101111011110111101111011110010000000000000000000100011001110111111111111111111101101"
//J
Char(12)="0001100011000010000100001000010000100001110011100111111011110000000000000100011101111111111111111111111111101001111"
//Q
Char(13)="0111111111110001100011000110001100011000110001100011111011110000100000000100011101111111111111111111111111101001111"
//K
Char(14)="1110111101110011101111110111001111011011110011100011101111010000000000000100011101111111111111111111111111101001111"
//A
Char(15)="0000000000000010000100011000110011000111011110110011110111100000000000000000111011110111111111111111011110011100011"
//2
Char(16)="0011101111011000000000000000010001100111011100110001111011110000000000000000111011110111111111111111011110011100011"
//3
Char(17)="0111101111011000000100011001110011100000000000110001111001110000000000000000111011110111111111111111011110011100011"
//4
Char(18)="0000000001000110011101110111001111111111000000000000001000010000000000000000111011110111111111111111011110011100011"
//5
Char(19)="0111101111011000110001111011110000000000011000110001111001110000000000000000111011110111111111111111011110011100011"
//6
Char(20)="0001100111011100110001111011110110001100011000110001111001110000000000000000111011110111111111111111011110011100011"
//7
Char(21)="0111101111011000000000000000010000100001000110001100011000110000000000000000111011110111111111111111011110011100011"
//8
Char(22)="0011101111011000110001100001110111101100011000110001111001110000000000000000111011110111111111111111011110011100011"
//9
Char(23)="0011101111011000110001100011000111100111000000000000111001110000000000000000111011110111111111111111011110011100011"
//10
Char(24)="1100111011110111101111011110111101111011110111101111011110010000000000000000111011110111111111111111011110011100011"
//J
Char(25)="0001100011000010000100001000010000100001110011100111111011110000000000111011110111111111111111111111011110011100010"
//Q
Char(26)="0111111111110001100011000110001100011000110001100011111011110000100000000001110111101111111111111111111110111100111"
//K
Char(27)="1110111101110011101111110111001111011011110011100011101111010000000000111011110111111111111111111111011110011100010"
//A
Char(28)="0000000000000010000100011000110011000111011110110011110111100000000000000010001100011000110110111111111111111101110"
//2
Char(29)="0011101111011000000000000000010001100111011100110001111011110000000000000010001100011000110110111111111111111101110"
//3
Char(30)="0111101111011000000100011001110011100000000000110001111001110000000000000010001100011000110110111111111111111101110"
//4
Char(31)="0000000001000110011101110111001111111111000000000000001000010000000000000010001100011000110110111111111111111101110"
//5
Char(32)="0111101111011000110001111011110000000000011000110001111001110000000000000010001100011000110110111111111111111101110"
//6
Char(33)="0001100111011100110001111011110110001100011000110001111001110000000000000010001100011000110110111111111111111101110"
//7
Char(34)="0111101111011000000000000000010000100001000110001100011000110000000000000010001100011000110110111111111111111101110"
//8
Char(35)="0011101111011000110001100001110111101100011000110001111001110000000000000010001100011000110110111111111111111101110"
//9
Char(36)="0011101111011000110001100011000111100111000000000000111001110000000000000010001100011000110110111111111111111101110"
//10
Char(37)="1100111011110111101111011110111101111011110111101111011110010000000000000010001100011000110110111111111111111101110"
//J
Char(38)="0001100011000010000100001000010000100001110011100111111011110000000000001110111101111101111111111111111111101001111"
//Q
Char(39)="0111111111110001100011000110001100011000110001100011111011110000100000001110111101111101111111111111111111101001111"
//K
Char(40)="1110111101110011101111110111001111011011110011100011101111010000000000001110111101111101111111111111111111101001111"
Plugin Mywin = Maple.GetForegroundWindow()
Plugin Maple.GetClientRect(Mywin,Px,Py)
ZTopX=512+Px
ZTopY=158+Py
BottomX=770+Px
BottomY=503+Py
ZLeftX=199+Px
ZLeftY=250+Py
ZRightX=585+Px
ZRightY=248+Py
//清除上轮牌,开始工作
VBS I=2
For 54
PK(I)=3
I=I+1
EndFor
//BottomX=831
//BottomY=554
//*****************************Bottom*******************************
//读自己手里的牌
BColor="000000"
Rem Bottom
VBSCall BottomC=GetPixelColor(BottomX,BottomY)
If BottomC=BColor
//清除上轮牌,开始工作
VBS I=2
For 54
PK(I)=3
I=I+1
EndFor
TopB=""
BottomB=""
LeftBB=""
RightBB=""
//查询自己的牌
Goto ReadBottom
Else
Delay 2000
Goto Bottom
EndIf
EndIf
Rem one
//开始循环判断出牌情况
//*************************************************************************************************
//******************************************主程序区***********************************************
//*************************************************************************************************
Rem Start
// ZColor="104CD8"
VBS ZColor="104CD8"
//*****************************Top*******************************
VBSCall TopC=GetPixelColor(ZTopX,ZTopY)
If TopC=ZColor
//开始检测Top是否出牌
Rem Top
VBSCall Findpic(260,190,360,260,"start.bmp",1,intX,intY)
Delay 50
If intX>=0 and intY>=0
Rem FCT
VBSCall FColor=GetPixelColor(intX-15,intY+10)
If Fcolor="000000"
intX=intX-15
Delay 1000
Goto FCT
EndIf
Delay 50
//调用识别程序
Goto ReadTop
Else
Delay 500
Goto Top
EndIf
EndIf
Rem two
Delay 500
//*****************************Left*******************************
VBSCall LeftC=GetPixelColor(ZLeftX,ZLeftY)
If LeftC=ZColor
//开始检测Top是否出牌
Rem Left
VBSCall Findpic(100,280,200,350,"start.bmp",1,intX,intY)
Delay 50
If intX>=0 and intY>=0
Rem FCL
VBSCall FColor=GetPixelColor(intX-15,intY+10)
If Fcolor="000000"
intX=intX-15
Delay 1000
Goto FCL
EndIf
Delay 50
//调用识别程序
Goto ReadLeft
Else
Delay 500
Goto Left
EndIf
EndIf
Rem three
Delay 500
//*****************************Right*******************************
VBSCall RightC=GetPixelColor(ZRightX,ZRightY)
If RightC=ZColor
//开始检测Top是否出牌
Rem Right
VBSCall Findpic(430,280,530,350,"start.bmp",1,intX,intY)
Delay 50
If intX>=0 and intY>=0
Rem FCR
VBSCall FColor=GetPixelColor(intX-15,intY+10)
If Fcolor="000000"
intX=intX-15
Delay 1000
Goto FCR
EndIf
Delay 50
//调用识别程序
Goto ReadRight
Else
Delay 500
Goto Right
EndIf
EndIf
Rem four
Delay 500
i=2
For 54
Plugin File.WriteINI("PK("&i&")","PK("&i&")",PK(i),"c:\Game.ini")
i=i+1
EndFor
Goto Start
EndScript
//*************************************************************************************************
//******************************************子程序区***********************************************
//*************************************************************************************************
//******************************************统计***********************************************
Sub 统计
Plugin t2=GetSysInfo.GetTime()
S0=" 出牌情况一览表"&chr(13)&chr(13)
S1=" _____________________________________________________________________________"&chr(13)
S2="牌| A | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | J | Q | K |"&chr(13)
S3="黑| "&PK(2)&" | "&PK(3)&" | "&PK(4)&" | "&PK(5)&" | "&PK(6)&" | "&PK(7)&" | "&PK(8)&" | "&PK(9)&" | "&PK(10)&" | "&PK(11)&" | "&PK(12)&" | "&PK(13)&" | "&PK(14)&" |"&chr(13)
S4="红| "&PK(15)&" | "&PK(16)&" | "&PK(17)&" | "&PK(18)&" | "&PK(19)&" | "&PK(20)&" | "&PK(21)&" | "&PK(22)&" | "&PK(23)&" | "&PK(24)&" | "&PK(25)&" | "&PK(26)&" | "&PK(27)&" |"&chr(13)
S5="梅| "&PK(28)&" | "&PK(29)&" | "&PK(30)&" | "&PK(31)&" | "&PK(32)&" | "&PK(33)&" | "&PK(34)&" | "&PK(35)&" | "&PK(36)&" | "&PK(37)&" | "&PK(38)&" | "&PK(39)&" | "&PK(40)&" |"&chr(13)
S6="方| "&PK(41)&" | "&PK(42)&" | "&PK(43)&" | "&PK(44)&" | "&PK(45)&" | "&PK(46)&" | "&PK(47)&" | "&PK(48)&" | "&PK(49)&" | "&PK(50)&" | "&PK(51)&" | "&PK(52)&" | "&PK(53)&" |"&chr(13)
S7=" |_____|_____|_____|_____|_____|_____|_____|_____|_____|_____|_____|_____|_____|"&chr(13)
S8=" 大王:"&PK(55)&" 小王:"&PK(54)&chr(13)
t=t2-t1
S9="消耗时间T="&t&chr(13)
S=S0&S9&S8&S1&S2&S7&S3&S7&S4&S7&S5&S7&S6&S7
VBSCall MSGBOX(S,4096,"54")
Goto Start
Return
//******************************************上部识别***********************************************
Sub ReadTop
VBS I=0
VBS m=0
TopA=""
x=intX+3
y=intY+3
//读各玩家的牌,最多35张牌
For 39
Plugin S=Maple.EamChar(Char,1,&HF8FCF8,0,x,y,5,23,0)
TracePrint S
If S>=2
//+10主要为了防止出现35和3-5分不清,
Top(I)=S
//TracePrint S
S=S+10
TopA=TopA&S
//TracePrint TopA
//计数本次有几张牌
I=I+1
Else
VBS colorA="000000"
VBSCall SFF=GetPixelColor(x-3+15,y-3)
If SFF=colorA and m<1
//代表本次不记录,下面还有牌没记录
m=m+1
Else
Goto PKone
EndIf
EndIf
EndIf
x=x+15
EndFor
Rem PKone
Plugin t2=GetSysInfo.GetTime()
//VBSCall MSGBox( "OK！T="&t2-t1&","&TopA,4096,"牌")
//判断是否是新出的牌
If TopA=TopB
TopA=""
Else
k=0
For I
PK(Top(k))=PK(Top(k))-1
k=k+1
//TracePrint Top(k)
//TracePrint PK(Top(k))
EndFor
TopB=TopA
TopA=""
EndIf
Goto two
Return
////******************************************下部识别***********************************************
Sub ReadBottom
VBS I=0
VBS m=0
BottomA=""
x=130+3
y=503+3
//读各玩家的牌,最多35张牌
For 39
Plugin S=Maple.EamChar(Char,1,&HF8FCF8,0,x,y,5,23,0)
TracePrint S
If S>=2
//+10主要为了防止出现35和3-5分不清,
Bottom(I)=S
//TracePrint S
S=S+10
BottomA=BottomA&S
//TracePrint BottomA
//计数本次有几张牌
I=I+1
Else
VBS colorA="000000"
VBSCall SFF=GetPixelColor(x-3+15,y-3)
If SFF=colorA and m<1
//代表本次不记录,下面还有牌没记录
m=m+1
Else
Goto PKtwo
EndIf
EndIf
EndIf
x=x+15
EndFor
Rem PKtwo
Plugin t2=GetSysInfo.GetTime()
VBSCall MSGBox( "OK！T="&t2-t1&","&BottomA,4096,"牌")
//判断是否是新出的牌
If BottomA=BottomB
BottomA=""
Else
k=0
For I
PK(Bottom(k))=PK(Bottom(k))-1
TracePrint Bottom(k)
TracePrint PK(Bottom(k))
k=k+1
EndFor
BottomB=BottomA
BottomA=""
EndIf
Goto one
Return
//******************************************左边识别***********************************************
Sub ReadLeft
VBS I=0
VBS m=0
LeftA=""
x=intX+3
y=intY+3
//读各玩家的牌,最多35张牌
For 39
Plugin S=Maple.EamChar(Char,1,&HF8FCF8,0,x,y,5,23,0)
TracePrint S
If S>=2
//+10主要为了防止出现35和3-5分不清,
Left(I)=S
//TracePrint S
S=S+10
LeftA=LeftA&S
//TracePrint LeftA
//计数本次有几张牌
I=I+1
Else
VBS colorA="000000"
VBSCall SFF=GetPixelColor(x-3+15,y-3)
If SFF=colorA and m<1
//代表本次不记录,下面还有牌没记录
m=m+1
Else
Goto PKthree
EndIf
EndIf
EndIf
x=x+15
EndFor
Rem PKthree
Plugin t2=GetSysInfo.GetTime()
//VBSCall MSGBox( "OK！T="&t2-t1&","&LeftA,4096,"牌")
//判断是否是新出的牌
If LeftA=LeftBB
LeftA=""
Else
k=0
For I
PK(Left(k))=PK(Left(k))-1
k=k+1
//TracePrint Left(k)
//TracePrint PK(Left(k))
EndFor
LeftBB=LeftA
LeftA=""
EndIf
Goto three
Return
//******************************************右边识别***********************************************

留学之家留学DIY社区