一个可以八方向走的小人。源代码
blitzbasic吧
全部回复
仅看楼主
level 14
起帆远航 楼主
Graphics 800,600,32,2
SetBuffer 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
压缩包里图片源代码都有了。可以直接下载。
2013年06月06日 08点06分 1
level 2
用的是动态图文件?不是动画文件?可以导入动画(maya C4d之类)文件吗?
2013年11月09日 19点11分 2
额 不 说错了 不是动图。 好神奇
2013年11月09日 19点11分
回复 cjh970825 :呵呵。。。这个blitzplus就是对2d的支持好些。。。
2013年11月12日 05点11分
level 12
我想学习游戏编程 要怎么开始?
2014年05月09日 11点05分 3
1