家教机 点读机 校园内外 亲子部落 礼物兑换
您的位置: 论坛/校园内外/帖子详情
Hi,您好!|步步高消息(0)
楼主

标题:

[原创]这样做ARPG(动作类角色扮演游戏)

2跳转到确定

 这个是今晚上的第三个帖子了!!~~差不多也就是今早上了吧!
靠 6.20了!!!!!!

图示:
[upload=gif,game.gif]UploadFile/2010-10/20101046234417333.gif[/upload]
说明:按右是行走,双击是快跑
        a键是工具

这里有个让我意外的地方,就是这么点代码汇编过后达到了1300多行~~~~~~~~~~~~~~我着实无语!~~~虽然有注释,但是也太大啦~~

说明下,这个压缩包本来不该有那么大的,一是因为图片太多了,没必要这么多的,待会在代码中我给你指出来你就知道了。
二是那个图片大多都是空白,在这里想请人做这样一个软件,取出图片中的有效部分,也就是中心的那些有图的,请打开附件中的rlb来看了那些图片,你就知道我说的什么意思了,要是有意要做的话请回帖通知一下,red要不要做~? 。所以呢,本来这个压缩包可能最多只有1mb左右的吧,缩减了n多!!!!
代码;
[quote]DIM TICK, TIMER
DIM Y,PAGE,i ''''''''用来举例的
DIM STATE_STR$,STATE,LAST_STATE,LL_STATE ''0站立 1慢跑 2快跑 3攻击
''last_state 是上一个状态 ll_state是上上一个状态!
Y=0
TIMER = 0
i = 0
SETLCD(240,320)

page = CREATEPAGE()
SETPEN(PAGE,1,1,&hffffff)




VASM("MAIN_LOOP:")

VASM("IN [VINT_TICK],15")

FPS = TICK - TIMER

WHILE( FPS >= 18)
FLIPPAGE(PAGE)
FILLPAGE(page,0,0,240,320,&H000000)

PIXLOCATE(0,0)
PRINT 1000/FPS
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''主要区域
'LOCATE(0,0)
'PRINT STATE,I

IF( LAST_STATE != STATE)THEN
I = 1
END IF
LL_STATE = LAST_STATE
LAST_STATE = STATE
STATE_STR$ = STR$(STATE)
ig = LOADRES( STATE_STR$+".rlb",i)
ShowPic(PAGE,ig,0,0,197,174,0,0,1)

FreeRes(ig)''这些是主要代码 下面的是用来保持循环的代码吧!~不知道怎么称呼

IF( STATE = 0)THEN
IF( I <= 67)THEN''原本是70 ,67=70-3 下面都是这样的
I = I+3 ''这就是为什么说图片很多是多余的的原因!
ELSE
I=1
END IF
END IF

IF( STATE = 1)THEN
IF( I <= 55)THEN
I = I+3
ELSE
I=1
END IF
END IF

IF( STATE = 3)THEN
IF( I <= 54)THEN
I = I+4
ELSE
AT =0''攻击状态
I=8''连续攻击
END IF
END IF

IF( STATE = 2)THEN
IF( I <= 37)THEN
I = I+2
ELSE
I=1
END IF
END IF

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''内控制区域


'''''''''''''''''''''
FPS = 0
VASM("IN [VINT_TIMER],15")
WEND
''''''''''''外控制区域
IF( AT = 0)THEN''攻击高于一切!~~~~任何状态都可以攻击
IF( STATE = 2)THEN

IF(KEYPRESS(KEY_RIGHT)) THEN''这里不知道怎么写取反 就只有这样了~~~这里是不回到普通状态~~~~

ELSE
STATE = 0
END IF

ELSE

STATE = 0

END IF

END IF


IF( KEYPRESS(KEY_LEFT)) THEN


IF( AT = 0)THEN

IF( STATE = 2 )THEN''奔跑的持续
STATE = 2
ELSE
STATE = 1
END IF

IF( LL_STATE = 1)THEN''何时进入奔跑状态

IF( LAST_STATE = 0)THEN
STATE = 2
END IF

END IF


END IF


END IF

IF( INKEY$() = "A" ) THEN''这里来判断攻击

AT =1

STATE = 3

END IF

''''''''''''''''''''''
IF( KEYPRESS(KEY_ESCAPE)) THEN

VASM("JMP MAIN_LOOP_EXIT:")

END IF

VASM("JMP MAIN_LOOP")'''''''''''''''''''''''''''''''''''来 让我们跳上去

VASM("MAIN_LOOP_EXIT:")''''''''''''''''''''好 就到这里吧!
print "All is well!!!"
WAITKEY()



[/quote]




看完整个代码你有什么样的感受呢?  以前讲的东西还是在反复反复的在用,所以听到那些说什么你的这个没用,没什么实用性那些就特别的窝火啊!!!
这个都是在原地的动作,因为没有加入移动代码,所以就是这样了。

这个帖子告诉了你怎么用先发的那个帖子~~~~那个模型我会一并的放在压缩包里面


[upload=zip,bbasic.zip]viewFile.asp?ID=81945[/upload]

我今天已经不能上传附件了,可能今天不会写什么了!


我大靠,天都亮了~~~~~~~~~~~~~



发表于2010-10-04 06:45:00
个性签名这个人很懒,什么也没留下!
楼主
沙发

 累了 坐沙发歇息~~~~
发表于2010-10-04 06:46:00
发表
个性签名这个人很懒,什么也没留下!
楼主
2楼

 郁闷 说放模型进去 忘了~~~这个模型放在群共享里面了~

发表于2010-10-04 06:52:00
发表
个性签名这个人很懒,什么也没留下!
3楼

前排置顶
发表于2010-10-04 07:50:00
发表
个性签名这个人很懒,什么也没留下!
4楼

  顶好贴
发表于2010-10-04 10:28:00
发表
个性签名这个人很懒,什么也没留下!
5楼

BB2D超仿3D!!!

 

BB有救了!!!

发表于2010-10-04 10:46:00
发表
个性签名这个人很懒,什么也没留下!
楼主
6楼

以下是引用我是弟弟在2010-10-4 10:46:00的发言:

BB2D超仿3D!!!

 

BB有救了!!!

、。,、,没懂你的意思诶~~~要不要你来拯救下~~
发表于2010-10-04 10:48:00
发表
个性签名这个人很懒,什么也没留下!
7楼

 就是截点咯
发表于2010-10-04 15:26:00
发表
个性签名这个人很懒,什么也没留下!
8楼

支持个
发表于2010-10-05 15:51:00
发表
个性签名这个人很懒,什么也没留下!
9楼

收藏下,

以后学会BB后再考虑做个

发表于2010-10-05 17:25:00
发表
个性签名这个人很懒,什么也没留下!
  • 1
  • 2
  • 下一页
  • 11回复 共 2页 跳转到 确定