Show Posts

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 - p2

Pages: 1 ... 28 29 [30] 31 32 ... 61
436
TI Z80 / Re: mrmprog's game
« on: July 29, 2011, 01:28:24 pm »
Good reasons for it:
first: it would look more realistic
second: It would be easyer because then you'll have more time to react!

437
Axe / Re: My little program
« on: July 29, 2011, 11:47:30 am »
Yesterday, Ive written the complete code new, with a line with a lenth of 5 as object.
It was really not bad, but the line was a bit too small.

When I saved my progress in a group, it was a RAMCLEAR!
 (while saving progress  :banghead:)

Now, I'll write it all again.

438
Site Feedback and Questions / Re: So... how about having a Chinese section...
« on: July 29, 2011, 11:43:21 am »
我用了一个翻译！  ;D

439
TI Z80 / Re: zStart - an app that runs on ram clears
« on: July 29, 2011, 11:36:25 am »
wow!
trippleposting!

nice!

440
TI Z80 / Re: mrmprog's game
« on: July 29, 2011, 11:27:13 am »
what???

sounds interresting!
Maybe the posibillitys in the menue have changed place, but not the text!

441
TI Z80 / Re: mrmprog's game
« on: July 29, 2011, 11:18:52 am »
Spoiler For Spoiler:
Code: [Select]
:.JUMP
:DiagnosticOff
:Full
:[3C42A5A581A599FF3C66A581A5A55A3C3C42A58199A5423C]→Pic1
:"YOU DIED        YOUR SCORE:"→Str1
:"NEW HIGHSCORE!"→Str2
:"vJMPSCR"→Str3
:Lbl ZZ
:ClrHomeClrDraw
:Disp "      JUMP      ",i,i,"  PLAY",i,"  HIGHSCORE",i,"  QUIT"
:3→A
:Pause 900
:Repeat getKey(54) or getKey(15)
:A+(A<3)→A
:A-(A>5)→A
:Output(1,A,">"
:Pause 600
:Output(1,A," "
:A+getKey(1)→A
:A-getKey(4)→A
:End
:
:If getKey(15):Goto E
:End
:If A=3:Goto G:End
:If A=4:Goto H:End
:If A=5:Goto E:End
:
:
:Lbl G
:ClrDraw
:40→A
:1→B
:0→X
:1→C
:
:Line(0,63,95,63)
:1→C
:0→D
:0→E
:0→H
:Line(0,9,95,9
:Repeat getKey(15)
:If H^7=0
:rand^(70-0+1)+0→F
:F+(rand^(25-8+1)+8)→G
:Line(F,1,G,1)
:
:.Line(0,1,30,1
:End
:StorePic
:Pt-On(A,B,Pic1+E)
:DispGraph
:RecallPic
:
:A-getKey(2)→A
:A+getKey(3)→A
:If A>87
:1→A
:End
:If A<<1
:87→A
:End
:pxl-Test(A+4,B+8)→C
:B+((C=0))→B
:B-D→B
:If C≠0:(6*getKey(54))→D
:0→E
:Else
:8→E
:End
:If D≥1
:D-1→D
:End
:If B≥≥65
:Goto D
:End
:H+1→H
:If H^2=0:Vertical +
:B+1→B
:End
:Pause 35
:End
:Goto ZZ
:
:Lbl D
:ClrDraw
:[FEFDFBF7EFDFBD7F]→Str4
:Line(0,63,95,63
:10→A
:Repeat A>50 or getKey(15)
:
:A+1→A
:Pt-On(40,A,Pic1+16
:For(F,L6+12,L6+767
:{F} and {rand^8+Str4}→{F-12}
:End
:DispGraph
:End
:Pause 600
:ClrDrawClrHome
:Disp Str1
:Disp H►Dec
:Disp i
:!If GetCalc(Str3)→A
:GetCalc(Str3,2)→A
:Return!If A
:0→{A}r
:End
:If H>{A}r
:H→{A}r
:Disp "NEW HIGHSCORE!"
:End
:Pause 8000
:Repeat getKey
:End
:If getKey(15)
:Goto ZZ
:End
:Goto G
:
:Lbl H
:ClrHome
:GetCalc(Str3)→A
:!If A
:Disp "NO SCORE"
:Pause 3000
:Goto E
:End
:{A}r→B
:Disp "HIGHSCORE:",B►Dec
:Pause 8000
:Repeat getKey
:End
:Goto ZZ
:
:Lbl E
:ClrDrawClrHome

442
TI Z80 / Re: mrmprog's game
« on: July 29, 2011, 11:17:11 am »
Spoiler For code:
Code: [Select]
:.JUMP
:DiagnosticOff
:Full
:[3C42A5A581A599FF3C66A581A5A55A3C3C42A58199A5423C]→Pic1
:"YOU DIED        YOUR SCORE:"→Str1
:"NEW HIGHSCORE!"→Str2
:"vJMPSCR"→Str3
:Lbl 1
:ClrHomeClrDraw
:Disp "      JUMP      ",i,i,"  PLAY",i,"  HIGHSCORE",i,"  QUIT"
:3→A
:Pause 900
:Repeat getKey(9) or getKey(15)
:A+(A<3)→A
:A-(A>5)→A
:Output(1,A,">"
:Pause 600
:Output(1,A," "
:A+getKey(1)→A
:A-getKey(4)→A
:End
:
:If getKey(15):Goto E
:End
:If A=4:Goto G:End
:If A=5:Goto H:End
:If A=6:Goto E:End
:
:
:Lbl G
:ClrDraw
:40→A
:1→B
:0→X
:1→C
:
:Line(0,63,95,63)
:1→C
:0→D
:0→E
:0→H
:Line(0,9,95,9
:Repeat getKey(15)
:If H^7=0
:rand^(70-0+1)+0→F
:F+(rand^(25-8+1)+8)→G
:Line(F,1,G,1)
:
:.Line(0,1,30,1
:End
:StorePic
:Pt-On(A,B,Pic1+E)
:DispGraph
:RecallPic
:
:A-getKey(2)→A
:A+getKey(3)→A
:If A>87
:1→A
:End
:If A<<1
:87→A
:End
:pxl-Test(A+4,B+8)→C
:B+((C=0))→B
:B-D→B
:If C≠0:(6*getKey(54))→D
:0→E
:Else
:8→E
:End
:If D≥1
:D-1→D
:End
:If B≥≥65
:Goto D
:End
:H+1→H
:If H^2=0:Vertical +
:B+1→B
:End
:Pause 35
:End
:Goto 1
:
:Lbl D
:ClrDraw
:[FEFDFBF7EFDFBD7F]→Str4
:Line(0,63,95,63
:10→A
:Repeat A>50 or getKey(15)
:
:A+1→A
:Pt-On(40,A,Pic1+16
:For(F,L6+12,L6+767
:{F} and {rand^8+Str4}→{F-12}
:End
:DispGraph
:End
:Pause 600
:ClrDrawClrHome
:Disp Str1
:Disp H►Dec
:Disp i
:!If GetCalc(Str3)→A
:GetCalc(Str3,2)→A
:Return!If A
:0→{A}r
:End
:If H>{A}r
:H→{A}r
:Disp "NEW HIGHSCORE!"
:End
:Repeat getKey
:End
:If getKey(15)
:Goto 1
:End
:Goto G
:
:Lbl H
:ClrHome
:GetCalc(Str3)→A
:!If A
:Disp "NO SCORE"
:Pause 3000
:Goto E
:End
:{A}r→B
:Disp "HIGSCORE:",B►Dec
:Repeat getKey
:End
:Goto 1
:
:Lbl E
:ClrDrawClrHome

443
TI Z80 / Re: mrmprog's game
« on: July 29, 2011, 10:57:44 am »
You should make
Code: [Select]
:clearDraw
:clearDraw^rbefore showing the score.
Then the flames wouldn't be black before showing the score

And you may show the score and the text around it in the second line, not in the first line.

try not to make the jump more like on my pic.
wait betwean jumping up and falling.

444
TI Z80 / Re: mrmprog's game
« on: July 29, 2011, 06:28:31 am »
I haven't found a tutorial for sound, too.




Hayleia:
Sure, you are an eggplant?
You are sitting in the ugliest face in the pacific!


Spoiler For Spoiler:

445
Axe / Re: My little program
« on: July 29, 2011, 06:00:09 am »
I don't use the M.
It was if I wanted the ball moving horizontal slower while falling than while standing (So that it's more realistic)

But I think that would be possible, too.

446
Axe / Re: My little program
« on: July 29, 2011, 05:57:55 am »
In the code it works:
Code: [Select]
X-getKey(2)+getKey(3) -> X
Yeah, I'm right!  ;D

447
Axe / Re: My little program
« on: July 29, 2011, 05:52:03 am »
Yes, that may be the problem.

I've planned that the ball can move faster hotizontal, if he's standing, than if he's falling.
But I've deleted that.
I've had:
Code: [Select]
X-M*getKey(2)+M*getKey(3) -> XBut of cause it hasn't worked, so I deleted it.

You may make it faster if you remove the part where it saves something as M and change in the whole code, that it should check A, and not M.
(A is defined by the large block of pxlTest( at the top of the code)

448
TI Z80 / Re: mrmprog's game
« on: July 29, 2011, 05:41:42 am »
would sounds be possible, or is that too hard to program?

freq( ?? , ??

449
Introduce Yourself! / Re: Salut tout le monde ! :)
« on: July 28, 2011, 01:39:01 pm »
http://ourl.ca/11661/231288;topicseen#new
The discussion

The download link is in Chockostas sign.

450
TI Z80 / Re: mrmprog's game
« on: July 28, 2011, 12:36:03 pm »
Try it with a 8x12 white space behind your smiley.




Or, better idea:

Make the smiley 12x12

Pages: 1 ... 28 29 [30] 31 32 ... 61