This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Messages - Eeems
Pages: 1 ... 366 367 [368] 369 370
5506
« on: May 09, 2009, 10:59:12 pm »
^^, that was what I was thinking
EDIT: well I'm going to start on that now
5507
« on: May 09, 2009, 10:50:59 pm »
yeah, they don't make that many platformers... I should probably make a map making program so it's easier for me.
5508
« on: May 09, 2009, 10:39:19 pm »
probably, I haven't really made any games. and this one is fun so far...I might just make it into a platform engine though
5509
« on: May 09, 2009, 10:26:32 pm »
lol, I think the For( loop looks a bit more aesthetically appealing. then the way I did, and it's not that much faster
5510
« on: May 09, 2009, 10:17:11 pm »
so far it seems faster
5511
« on: May 09, 2009, 10:10:19 pm »
I'm going to test it yet, but I don't know
5512
« on: May 09, 2009, 10:01:24 pm »
you could just use two store and recall pics
5513
« on: May 09, 2009, 09:57:14 pm »
much faster! hmm, I just noticed that your character slows down a lot when he is in the air...
5514
« on: May 09, 2009, 09:52:51 pm »
sounds good, I'm going to test it out too
5515
« on: May 09, 2009, 09:46:52 pm »
the flickers not that bad, but it is a little slow. hmm, I wonder how big it will be. maybe I'll make it so that you can choose which one you want to use, the big one or the slower one
5516
« on: May 09, 2009, 08:50:25 pm »
well I got them fixed, here it is:
:For(A,2,9)
:Text(-1,8A-2(8),0,sub(Str1,15A-(14+15),15
:StorePic 2
:Text(-1,8A-2(8),0,sub(Str2,15A-(14+15),15
:RecallPic 2
:End
:L1(3→B:L1(4→A
:L1(1→G
:L1(2→H
:DelVar M
:DelVar JText(-1,0,90,H
:While A≠0 and A≠10 and B≠0 and B≠16 and H
:If E
:Then
:E-1→E
:If not(E
:Then
:Text(-1,8,90,"
:End:End
:A→C
:B→D
:Text(-1,8A-8,6B-6,"Ω
:If M
:Then
:2→M
:Text(-1,8A-8,6B-6,"Î
:End
:getKey→K
:If K:Then
:B+(K=26)-(K=24→B
:If B≠D
:Then
:If B and B≠16 and ""=sub(Str1,15A-14+B-1,1
:D→B
:End
:End
:If not(J) and ""≠sub(Str1,15(A+1)-14+B-1,1) and ""≠sub(Str1,15(A-1)-14+B-1,1
:Then
:A+1→A
:Else
:J+G(K=21→J
:End
:If J:Then
:If ""≠sub(Str1,15(A-1)-14+B-1,1
:Then
:A-1→A
:End
:J-1→J
:End
:If (A≠C or B≠D) and B
:Then
:Text(-1,8A-8,6B-6,"Ω
:Text(-1,8C-8,6D-6,"
:If ""=sub(Str1,15C-14+B-1,1
:Text(-1,8C-8,6D-6,"
:If 2=M
:Then
:Text(-1,8C-8,6D-6,"Î
:DelVar M
:End
:End
:If inString("Î*Δ",sub(Str1,15A-14+B-1,1
:Then
:If "Δ"=sub(Str1,15A-14+B-1,1
:Then
:H+3→H
:If 9<H
:Then
:9→H
:End
:sub(Str1,15A-14+B,length(Str1)-15A-14+B→Str3
:sub(Str1,1,15A-14+B-2→Str1
:Str1+" "+Str3→Str1
:Text(-1,0,90,H
:Text(-1,8,90,"+
:3→E
:End
:If "~"=sub(Str1,15A-14+B-1,1
:Then
:Text(-1,16,90,"
:sub(Str1,15A-14+B,length(Str1)-15A-14+B→Str3
:sub(Str1,1,15A-14+B-2→Str1
:Str1+" "+Str3→Str1
:3→G
:End
:If "Î"=sub(Str1,15A-14+B-1,1
:Then
:Text(-1,0,90,H
:H-1→H
:1→M
:End
:End
:End
:If B=16
:Text(-1,8A-8,6B-6,"
:G→L1(1
:H→L1(2
:A→L1(3
:B→L1(4
again ~ is that little square 0
5517
« on: May 09, 2009, 05:47:47 pm »
yeah I know, but that's easy to fix, and I was going to get around to fixing the monkeybars
5518
« on: May 09, 2009, 05:37:11 pm »
sure, how 'bout I upload the code and programs
wait for the edit
EDIT: ok, here is the programs so far, in a bit, I'll get you the code for prgmB (it's the game handler)
EDIT2::ClrDraw:ClrHome
:{2,9,0,2,2→L1
:Lbl 1
:"map data→Str1
:"map data→Str2
:prgmBB
:If not(L1(2
:Then
:ClrHome:ClrDraw:Output(1,4,"YOU HAVE DIED
:Return
:End
:"map data→Str1
:"map data→Str2
:{L1(1),L1(2),0,2,7,2→L1
:prgmBB
:If not(L1(2
:Then
:ClrHome
:Output(1,4,"YOU HAVE DIED
:Return
:End
:If L1(5)=15 and 7=L1(4
:Then
:ClrHome
:Output(1,4,"YOU HAVE WON
:Return
:End
:{L1(1),L1(2),0,14,7→L1
:Goto 1
5519
« on: May 09, 2009, 05:28:17 pm »
of course that's on the TI-84+ SE. mines on the TI-83+ and it's just a tad slow, but fast enough to be fun If I made levels and such
5520
« on: May 09, 2009, 05:16:07 pm »
ok, I was going to use the list so that anybody could use this engine, but maybe I'll just load everything into the list afterwords, and from the list before
Pages: 1 ... 366 367 [368] 369 370
|
Show Posts
