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 ... 367 368 [369] 370
5521
« on: May 09, 2009, 03:53:22 pm »
because I need to be able to revert back a few times, read this:
:For(A,2,9) ;
:Text(‾1,8A-2(8),0,sub(Str1,15A-(14+15),15 ;this is my
:StorePic 2 ;dual text
:Text(‾1,8A-2(8),0,sub(Str2,15A-(14+15),15 ;sprite engine
:RecallPic 2 ;
:End
:L1(4→B:L1(5→A ;store initial starting point
:DelVar J ;delete jump variable
:Text(‾1,8,90,L1(2 ;display health
:While A≠1 and A≠10 and B≠1 and B≠15 and L1(2 ;check to make sure that you have health and are not on edge of map
:A→C ;store Y
:B→D ;store x
:Text(‾1,8A-8,6B-6,"Ω ;display character
:If L1(3 ;if you are on a spike
:Then
:2→L1(3
:Text(‾1,8A-8,6B-6,"* ;replace spike sprite
:End
:DelVar K ;I have no idea why I put it here...I'll get rid of it
:getKey→K ;store key press
:If K:Then ;if keypress
:B+(K=26)-(K=24→B ;movement
:If B≠D ;tests to see if you moved
:Then
:If ""=sub(Str1,15A-14+B-1,1 ;tests to make sure you are moving onto a blank spot
:D→B ;if not, revert x
:End
:End
:If ""≠sub(Str1,15(A+1)-14+B-1,1 ;if you are not above a tile
:Then
:A+1→A ;gravity happens
:If J:A-1→A ;unless you are jumping
:Else
:J+L1(1)(K=21→J
:End
:If J:Then ;if you are jumping
:If ""≠sub(Str1,15(A-1)-14+B-1,1 ;test to make sure there is a blank above you
:Then
:A-1→A ;if not, you stay still
:End
:J-1→J ;minus one to jump time
:End
:If A≠C or B≠D ;if you have moved
:Then
:Text(‾1,8A-8,6B-6,"Ω ;move character
:Text(‾1,8C-8,6D-6," ;clear last spot you were on
:If 2=L1(3 ;if you were on a spike
:Then
:Text(‾1,8C-8,6D-6,"* ;reset spike sprite
:0→L1(3 ;clear spike flag
:End
:End
:If Instring("Δ*~",sub(Str1,15A-14+B-1,1 ;If you are on something that does something to you
:then
:If "Δ"=sub(Str1,15A-14+B-1,1 ;if on a health pack
:Then
:L1(2)+3→L1(2 ;add health!
:If 9<L1(2 ;but keep it below 10
:9→L1(2
:sub(Str1,15A-14+B,length(Str1)-15A-14+B→Str3 ;get rid of health from map
:sub(Str1,1,15A-14+B-2→Str1 ;still get rid of it
:Str1+" "+Str3→Str1 ;piece together map
:Text(‾1,8,90,L1(2
:Pause "HEALTH +3 ;tell the player what happened
:End
:If "~"=sub(Str1,15A-14+B-1,1 ;this is actually a small 0, but there is no equvalent on computers
:Then
:Pause "JUMP BOOST ;tell them that they are one step closer to flying
:sub(Str1,15A-14+B,length(Str1)-15A-14+B→Str3 ;delete boost
:sub(Str1,1,15A-14+B-2→Str1 ;delete I say!
:Str1+" "+Str3→Str1 ;now replace
:L1(1)+1→L1(1 ;actually give them the upgrade
:End
:If "*"=sub(Str1,15A-14+B-1,1 ;if you are on a spike
:Then
:L1(2)-1→L1(2 ;lower health
:Text(‾1,8,90,L1(2 ;update health in corner
:1→L1(3 ;set spike flag
:End
:End
:If "..."=sub(Str1,15(C-1)-14+D-1,1 ;if on monkey bars
:Then
:If A>C ;and gravity is making you fall
:Then
:A-1→A ;don't!
:Text(‾1,8(A+1)-8,6B-6," ;clear the sprite that is falling
:End
:End
:End
:A→L1(4 ;store new y
:B→L1(5 ;store new x
5522
« on: May 09, 2009, 03:22:56 pm »
A and B are the current location, C and D are the ones I'm using for saving my location in case I need to revert it back
5523
« on: May 09, 2009, 02:33:38 pm »
thanks, I'll take a look, and maybe I'll find some optimizations  I haven't added in moving enemies, but I still haven't optimized my code, so mine is slower then it could be.
5524
« on: May 09, 2009, 01:55:35 pm »
I don't use Instring( yet because I am only testing for one right now, but I may add more ones later.  I wonder which one of ours is faster right now? (I'm using a TI-83+ ROM) oh yeah, those "..." tiles are monkey bars which my character is climbing across
5525
« on: May 09, 2009, 01:01:26 am »
unless of course you are trying for a very large string right?
5526
« on: May 09, 2009, 01:00:32 am »
Invasion of privacy/identity theft will always be illegal for regular citizens such as me, you and the other users of these forums.
but not for non regular citizens?! 0.o
5527
« on: May 09, 2009, 12:53:49 am »
and a cookie 
5528
« on: May 09, 2009, 12:51:17 am »
I think we are talking about chips not chili, though it has chili flavour...I've never had Chili in Arizona before...not even sure I've been there 
5529
« on: May 09, 2009, 12:43:05 am »
I figured it out, and I also figured out how to detect the way it is, I'll post my code in a bit.
:For(A,1,8)
:Text(‾1,8A-8,0,sub(Str1,15A-14,15
:StorePic 2
:Text(‾1,8A-8,0,sub(Str2,15A-14,15
:RecallPic 2
:End
:2→B:3→A
:DelVar J
:While 1
:A→C
:B→D
:Text(‾1,8A-8,6B-6,"Ω
:DelVar K
:getKey→K
:If K:Then
:B+(K=26)-(K=24→B
:If B≠D
:Then
:If ""=sub(Str1,15A-14+B-1,1
:D→B
:End
:End
:If ""≠sub(Str1,15(A+1)-14+B-1,1
:Then
:A+1→A
:If J:A-1→A
:Else
:J+L1(1)(K=21→J
:End
:If J:Then
:A-1→A
:J-1→J
:End
:If A≠C or B≠D
:Then
:Text(‾1,8A-8,6B-6,"Ω
:Text(‾1,8C-8,6D-6,"
:End:End
it runs pretty quickly on the 83+. this version also includes spikes and stuff.
5530
« on: May 09, 2009, 12:38:23 am »
isn't it the sweet chili heat up here?
5531
« on: May 08, 2009, 07:14:20 pm »
ah, well I could do the boarder thing but still make it so the maps don't need to be very large, but what about detecting a tile above your character? how did you do that?
5532
« on: May 08, 2009, 06:47:08 pm »
^^ nice
5533
« on: May 08, 2009, 06:12:16 pm »
sounds like a good idea, let me look at the rules to see if you can submit it, because you have already announced it, but you haven't entered it into any other contest yet. Participating in a Contest
* No Used Entries - You may NOT submit an entry that was previously submitted in another contest.
* No Teaming - Unless otherwise specified, you may not submit entries created through collaboration with other people.
* No Stealing - Obviously, do NOT submit someone else's work.
* Be Punctual Within Reason - When a contest ends, the thread will be locked with a final post saying the contest has ended. You may not submit your work beyond then. Any entry emails received afterwards will probably be discarded (unless the judges feel really nice). looks like you could
5534
« on: May 08, 2009, 04:41:24 pm »
hmm, interesting stuff, I just played around with your code trevmeister66
and I was able to cut four bytes from it and display the same amount.
For(A,2,9)
Text(-1,8A-16,0,sub(Str1,14A-12,12
StorePic 1
Text(-1,8A-16,0,sub(Str2,14A-12,12
RecallPic1
EndI also was testing it out and it loads at about teh same speed, but it might be a little faster, I can't really tell.
EDIT: oh yeah I modified it some more and made it 15*8 and I also made it so it doesn't waste memory by making the maps have extra characters that aren't displayed.
For(A,1,8)
Text(-1,8A-8,0,sub(Str1,15A-14,15
StorePic 1
Text(-1,8A-8,0,sub(Str2,15A-14,15
RecallPic 1
Endthis also cut's two more bytes. and that excludes the bytes saved on the maps.
EDIT2: ok, I also added a little bit of game play to it, but I'm having some trouble detecting tiles above your character... how did you do detection?
5535
« on: May 07, 2009, 06:36:32 pm »
so you use a string as a map, hmm, this is what I did, it's kind of slow
:ClrDraw
:For(A,0,60,7)
:For(B,0,94,5)
:If [B](A/7+1,B/5+1
:Then
:Text(-1,A,B,"O
:StorePic 2
:Text(-1,A,B,"X
:RecallPic 2
:End
:End
:End
Pages: 1 ... 367 368 [369] 370
|
Show Posts