level 14
起帆远航
楼主

Graphics 800,600,32,2SetBuffer BackBuffer()frameTimer = CreateTimer(60)
p_Speed = 5
x=200
y=200npc_n = LoadAnimImage("magier_frames/npc_n.bmp", 96, 96, 0, 7)
npc_ne = LoadAnimImage("magier_frames/npc_ne.bmp", 96, 96, 0, 7)
npc_e = LoadAnimImage("magier_frames/npc_e.bmp", 96, 96, 0, 7)
npc_se = LoadAnimImage("magier_frames/npc_se.bmp", 96, 96, 0, 7)
npc_s = LoadAnimImage("magier_frames/npc_s.bmp", 96, 96, 0, 7)
npc_sw = LoadAnimImage("magier_frames/npc_sw.bmp", 96, 96, 0, 7)
npc_w = LoadAnimImage("magier_frames/npc_w.bmp", 96, 96, 0, 7)
npc_nw = LoadAnimImage("magier_frames/npc_nw.bmp", 96, 96, 0, 7)
MaskImage(npc_n, 110, 80, 52)
MaskImage(npc_ne, 110, 80, 52)
MaskImage(npc_e, 110, 80, 52)
MaskImage(npc_se, 110, 80, 52)
MaskImage(npc_s, 110, 80, 52)
MaskImage(npc_sw, 110, 80, 52)
MaskImage(npc_w, 110, 80, 52)
MaskImage(npc_nw, 110, 80, 52)
ClsColor 67,15,68
Cls
DrawImage npc_s, x, y, frameRepeat
If MilliSecs() > bTimer + 40 Then
bTimer = MilliSecs() If KeyDown(200) Then ;UP
Cls
frame = (frame + 1) Mod 7
y = y - p_Speed
DrawImage npc_n, x, y, frame
If KeyDown(205) Then ;UP + R
x = x + p_Speed
DrawImage npc_ne, x, y, frame
EndIf
If KeyDown(203) Then ;UP + L
x = x - p_Speed
DrawImage npc_nw, x, y, frame
EndIf
Flip
EndIf
If KeyDown(208) Then ;down
Cls
frame = (frame + 1) Mod 7
y = y + p_Speed
DrawImage npc_s, x, y, frame
If KeyDown(205) Then ;down + R
x = x + p_Speed
DrawImage npc_se, x, y, frame
EndIf
If KeyDown(203) Then ;down + L
x = x - p_Speed
DrawImage npc_sw, x, y, frame
EndIf
Flip
EndIf
If KeyDown(203) Then ;L
Cls
frame = (frame + 1) Mod 7
x = x - p_Speed
DrawImage npc_w, x, y, frame
If KeyDown(200) Then ;UP + L
y = y - p_Speed
DrawImage npc_nw, x, y, frame
EndIf
If KeyDown(208) Then ;down + L
y = y + p_Speed
DrawImage npc_sw, x, y, frame
EndIf
Flip
EndIf
If KeyDown(205) Then ;R
Cls
frame = (frame + 1) Mod 7
x = x + p_Speed
DrawImage npc_e, x, y, frame
If KeyDown(200) Then ;UP + R
y = y - p_Speed
DrawImage npc_ne, x, y, frame
EndIf
If KeyDown(208) Then ;down + R
y = y + p_Speed
DrawImage npc_se, x, y, frame
EndIf
Flip
EndIf
EndIf
WaitTimer(frameTimer)
Until KeyHit(1)
FreeTimer frameTimer















压缩包里图片源代码都有了。可以直接下载。