|
TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
SET ::WM_LBUTTONDOWN=0x0201
FROM
_SUB FROM,W500H580,中國象棋,,#2,*F:\遊戲\象棋\Piece\MiniBoard.bmp
ENVI ZZF=R
ENVI YZZ=
ENVI BCD=
//IMAG Image1,L42T40W403H447,F:\遊戲\象棋\Piece\MiniBoard.bmp
ENVI @FROM.MSG=0x0201: CALL ZZJS
LABE LabelR01,L45T45W40H40,車,*,0x0000ff#0x00ffff,30
ENVI @LabelR01.MSG=0x0201: FIND $%ZZF%=R,ENVI YZZ=LabelR01! TEAM ENVI BCD=LabelR01| CALL ZZJS
_END
_SUB ZZJS
ENVI @FROM.Cur=?L;T
CALC L=int(%L%/40)*40
CALC T=int(%T%/40)*40
FIND $%BCD%=Image1,! ENVI @%BCD%.Visible=0
ENVI @%YZZ%.POS=%L%:%T%
ENVI @%BCD%.Visible=0
ENVI @%YZZ%.POS=?I:J
FIND $%ZZF%=R,ENVI ZZF=B! ENVI ZZF=R
ENVI @FROM=%L%:%T%$%BCD%%I%:%J%@%YZZ%%ZZF%
_END |
|