mov esi ,offset Map ; Pos = y*14 + x ; Get M1 mov eax,NewY mov ebx,14D mul bx add eax,NewX mov ebx,eax mov nPos1,eax mov al ,[esi][ebx] mov M1,al ; Get M2 mov eax,NewY2 mov ebx,14D mul bx add eax,NewX2 mov ebx,eax mov nPos2,eax mov al ,[esi][ebx] mov M2,al
mov al,M1
.if (al == MAP_ROAD || al == MAP_OBJECT ) push NewX pop ManXPos push NewY pop ManYPos
.elseif al == MAP_BOX1 ; push box mov al ,M2
.if al == MAP_ROAD ; push ok mov ebx,nPos2
13
mov al,MAP_BOX1 mov [esi][ebx],al mov ebx,nPos1 mov al,MAP_ROAD mov [esi][ebx],al push NewX pop ManXPos push NewY pop ManYPos
.elseif al == MAP_OBJECT mov ebx,nPos2 mov al,MAP_BOX2 mov [esi][ebx],al mov ebx,nPos1 mov al,MAP_ROAD mov [esi][ebx],al push NewX pop ManXPos push NewY pop ManYPos .endif
.elseif al == MAP_BOX2 mov al,M2
.if al == MAP_ROAD mov ebx,nPos2 mov al,MAP_BOX1 mov [esi][ebx],al mov ebx,nPos1 mov al,MAP_OBJECT mov [esi][ebx],al push NewX
14
pop ManXPos push NewY pop ManYPos
.elseif al == MAP_OBJECT mov ebx,nPos2 mov al,MAP_BOX2 mov [esi][ebx],al mov ebx,nPos1 mov al,MAP_OBJECT mov [esi][ebx],al push NewX pop ManXPos push NewY pop ManYPos .endif .else .endif
invoke Repaint pop esi ret
2.3游戏数据模块
（3）函数实现的功能分别是人空地移动箱子到空地、从目的地移动箱子到空地、
从空地移动箱子到目的地和中从目的地移动箱子到目的地。X、y指明小人当前所处的位置，字符a表示移动的方向，有“u”、“d”、“l”和“r”4个值，分别表示向上、下、左、右移动。这几个函数的实现原理大致相似。对于前面两个函数，首先判断移动的方向，人小人所在的位置沿着移动的方向移动一步画小人，移动两步画箱子，并设置状态为“b”；
15
对于后面两个参数，首先判断移动的方向，从小人所在的位置沿着移动方向移动一步画小人，移动两上在目的地画箱子，并设置状态为“i”，表明箱子在目的地上。
ManMove endp
XYtoPos proc x:DWORD,y:DWORD ; pos = y *14 + x Zero-Based mov eax, y mov ebx, 14D mul bx add eax ,x ret XYtoPos endp
Repaint proc LOCAL R:RECT
invoke GetClientRect,hWnd,Addr R invoke InvalidateRect,hWnd,Addr R,0 ret
Repaint endp
Check proc
; Check Success and return true or false LOCAL Result :DWORD push esi push TRUE pop Result lea esi,Map
16
