Author Topic: uPong (Read 20905 times)

Happybobjr · « **Reply #150 on:** February 10, 2011, 10:41:01 am »

*puppy eyes* ok....

darkduck · « **Reply #151 on:** February 10, 2011, 10:44:11 am »

Munchor · « **Reply #152 on:** February 10, 2011, 11:17:24 am »

Quote from: Happybobjr on February 10, 2011, 10:41:01 am

*puppy eyes* ok....

Happybojr, you can try it yourself if *cough* we *cough* can't. (the cough is because Fast Crash is doing it).

Also, I'll release the source code later today (game and multiplayer). Do you mind Fast Crash?

EDIT: Here it goes.

Spoiler For "Source Code":

Main Game:

Code: [Select]

:.UPONG uPong  v5
:DiagnosticOff
:"    uPong v5    Inspired by the original game of Kevin Horowitz                  Single player      modes by      David Gomes                       fixes and    multiplayer by Jonathan Vannier"→Str9
:identity(FFFFFFFFC003C003C003C0C3C1A3C1E3C0C3C003C003C003C003CFFBC003C003)
:
:[000018343C180000→Pic2
:[000000000000FFFF→Pic1
:Fix 5
:"vPongHS"→Str5
:UnarchiveStr5
:GetCalc(Str5)→H
:!If H
:0→{GetCalc(Str5,2)→H}r
:End
:Lbl 1
:ClrDraw
:Lbl 10
:0→W
:9→A
:sub(PIC
:Text(33,20,"2nd:play
:Text(30,32,"clear:exit
:Text(3,44,"Alpha:swap  to  multiplayer
:Text(28,50,"Stat:credits
:While 1
:!If W
:Text(35,26,"<easy>
:Else
:Text(35,26,"<hard>
:End
:Text(26,38,"Highscore:",{H+W}►Dec
:DispGraph
:getKey→θ
:!If θ-56
:0→{H+W}
:End
:!If θ-48
:1→B
:sub(SC
:Lbl MP
:ClrDraw
:9→A:sub(PIC
:Text(30,20,"Multiplayer
:Text(28,32,"2nd:on-calc
:Text(16,38,"mode:linked  as  host
:Text(16,44,"Del:linked  as  joiner
:Text(6,50,"Alpha:swap  to  main  menu
:Text(30,56,"clear:exit
:DispGraph
:While 1
:getKey→θ
:!If θ-15
:Goto Q
:End
:!If θ-48
:0→B
:sub(SC
:Goto 10
:End
:!If θ-54
:prgmAMP0
:End
:If θ>54
:prgmAMP1
:End:End:End
:!If θ-32
:ClrHome
:For(A,0,191
:Disp {Str9+A}►Frac
:Pause 100
:End
:Pause 3000
:End
:
:If θ=3 or (θ=2
:W=0→W
:End
:Lbl Q
:!If θ-15
:Full
:ArchiveStr5
:Return
:End
:
:.GAME CODE
:!If θ-54
:55→T
:0→S→E-1→D
:44→Z*64→X
:9→Y
:sub(HT)
:‾W*2+4→M
:W*4+1→U
:Repeat getKey(15)
:
:
:If getKey(9)
:sub(SD
:End
:If getKey(2) and (Z≠0
:Z-M→Z
:End
:If getKey(3) and (Z≠88
:Z+M→Z
:End
:
:X+V→X
:Y+D→Y
:
:If Y>61
:Goto D
:End
:.UPPER BARRIER
:!If Y
:sub(HT
:DispGraph
:End
:
:.HIT IMAGE CODE
:If Y=T and (abs(X/64-Z)<8
:sub(HT
:S+1→S
:If T>25
:T-U→T
:Y-(U+1)→Y
:End
:End
:
:If (X/64)=0 or (X/64=88
:‾V→V+X→X
:End
:
:ClrDraw
:
:Pt-On(Z,T,Pic1)
:
:Pt-On(X/64,Y,Pic2
:
:If T<40
:50→R
:Else
:5→R
:End
:
:Text(5,R,S►Dec
:
:If {H}>S
:Text(5,R+6,{H}►Dec
:Else
:Text(5,R+6,S►Dec
:End
:If W
:DrawInv 
:End
:If W
:If S>5
:If E
:ref(0,,96,64
:E-1→E
:Else
:!If rand^150-149
:rand^10+10→E
:End
:End
:End
:End
:DispGraph
:
:
:End
:
:.LOSE LABEL
:Lbl D
:ClrDraw
:25→A
:sub(PIC
:
:
:Text(34,38,"SCORE:",S►Dec
:
:If S>{H+W}
:S→{H+W}
:End
:
:DispGraph
:Pause 1500
:Repeat getKey
:End:Goto 1
:End:End
:Lbl HT
:rand^128-64→V
:‾D→D
:If X/64=0
:If V>0:‾V→V:End:End
:If X/64=88
:If V<0:‾V→V:End:End
:Return
:Lbl PIC
:Pt-On(25,A,[6363636363633F1F
:Pt-On(34,A-1,[FCFEC6C6FEFCC0C0
:Pt-On(34,A,[FEC6C6FEFCC0C0C0
:Pt-On(42,A,[3C7EE7C3C3E77E3C
:Pt-On(51,A,[00CEDFF3E3C3C3C3
:Pt-On(60,A-1,[3F7FC3C37F3F037F
:Pt-On(60,A,[7FC3C37F3F037FFE
:Line(0,A+10,95,A+10
:Return
:Lbl SD
:Asm(3E01D303FB76FDCB09A6C9
:Lbl SC
:For(D,0,7
:For(C,0,11
:If B
:Horizontal -
:Else
:Horizontal +
:End
:End
:ref(0,,96,20
:rref(0,,96,20
:9→A:sub(PIC
:DispGraph
:End
:Return

MP0:

Code: [Select]

:.ABC
:0→W→S+1→D
:44→Z→M*64→X
:55→Y
:sub(HT
:Repeat getKey(15)
:If getKey(9):sub(SD:End
:If getKey(2) and (Z≠0:Z-2→Z:End
:If getKey(3) and (Z≠88:Z+2→Z:End
:If getKey(33) and (M≠0:M-2→M:End
:If getKey(25) and (M≠88:M+2→M:End
:X+V→X
:Y+D→Y
:!If Y-63
:1→W
:End
:!If Y+7
:2→W
:End
:If W
:Goto D0
:End
:If Y=56 and (abs(X/64-Z)<8
:S+1→S
:sub(HT
:End
:If Y=0 and (abs(X/64-M)<8
:S+1→S
:sub(HT
:End
:If X/64=0 or (X/64=88
:{-}V→V+X→X
:End
:ClrDraw
:Pt-On(Z,55,Pic1
:Pt-On(M,{-}5,Pic1
:Pt-On(X/64,Y,Pic2
:DispGraph
:Pause 10
:End
:Goto MP
:Lbl D0
:ClrDraw
:25→A
:sub(PIC
:Text(26,38,"Player  ",W►Dec,"lost !
:Text(33,44,"score:",S►Dec
:DispGraph
:Pause 1500
:Repeat getKey
:End
:Goto MP

MP1:

Code: [Select]

:.ABC
:θ-55→θ
:ref(15,27,66,11:rref(15,27,66,11:ref(16,28,64,9:rref(17,29,62,7
:If θ
:Text(34,29,"Joining...
:DispGraph
:Repeat Get(+1
:If getKey(15):Goto MP:End
:End
:Else
:Text(34,29,"Hosting...
:DispGraph
:Repeat Send(1,100
:If getKey(15):Goto MP:End
:End
:End
:0→W→S+1→D
:44→Z→M*64→X
:55→Y
:Repeat getKey(15)
:sub(HT0
:If getKey(55)
:Text(0,0,"Y:",Y►Dec
:Text(0,6,"X:",X►Dec
:Text(0,12,"D:",D►Dec
:Text(0,16,"V:",V►Dec
:End
:
:If getKey(2) and (Z≠0:Z-2→Z:End
:If getKey(3) and (Z≠88:Z+2→Z:End
:If θ
:Repeat Get(+1→M
:If getKey(15):Goto MP:End
:End
:M-1→M
:Repeat Send(Z,100
:If getKey(15):Goto MP:End:End
:Else
:Repeat Send(Z,100
:If getKey(15):Goto MP:End:End
:Repeat Get(+1→M
:If getKey(15):Goto MP:End:End
:End
:X+V→X
:Y+D→X
:!If Y-63
:1→W
:End
:!If Y+7
:2→W
:End
:If W
:Goto D0
:End
:If Y=(θ*56) and (abs(X/64-Z)<8
:S+1→S
:sub(HT0
:End
:If Y=(56-(θ*56)) and (abs(X/64-M)<8
:S+1→S
:sub(HT0
:End
:If X/64=0 or (X/64=88
:{-}V→V+X→X
:End
:ClrDraw
:Pt-On(Z,55-(θ*60),Pic1
:Pt-On(M,θ*60-5,Pic1
:Pt-On(X/64,Y,Pic2
:DispGraph
:End
:Goto MP
:Lbl HT0
:sub(HT
:If θ
:Repeat Get(+1→V
:If getKey(15):Goto MP:End:End
:V-1→V
:Else
:Repeat Send(V,100
:If getKey(15):Goto MP:End:End
:End
:Return

Munchor · « **Reply #153 on:** February 10, 2011, 03:26:04 pm »

Note: Please watch until the end so you can the *darkflash* effect in the Hard Mode.

Update - uPong 5
> Multiplayer on the same calculator (the screenshot doesn't really show it because I couldn't play both players at the same time); // The keys are '0' and '.' for upper player and arrows for lower player;
> Hard/Easy mode improved;
> Press STAT for cool credits;
> Appvar archiving much better;

Attached is the file.

Note 2: I have to remind you again, that most of this last version was coded by Fast Crash.

Happybobjr · « **Reply #154 on:** February 10, 2011, 04:01:04 pm »

looks great.

Does the latest edition have the multiplayer part in it?
Is it compiled?
I looked over it and would enjoy messing with the code.

Fast Crash · « **Reply #155 on:** February 10, 2011, 04:03:35 pm »

Only the on-calc, Scout if you are reading this, post the screenshots you did of the linked multiplayer, to show what is the problem.

Ashbad · « **Reply #156 on:** February 10, 2011, 04:23:36 pm »

yeah happybob, we all know you are well equiped with knowledge of Axe linked play

scout and fast crash I suggest you also listen to happybobjr's code examples, they're quite fast, optimized, and almost failproof.

Fast Crash · « **Reply #157 on:** February 10, 2011, 04:34:02 pm »

Well i've also good skills in linking, but here there is a bug... I can't find where does it come from ! I hope habbybob will

good luck !

DJ Omnimaga · « **Reply #158 on:** February 10, 2011, 04:49:58 pm »

This looks nice, as always. Link play will be a big plus since not a lot of Pong games on calc has it.

Quote from: darkduck on February 10, 2011, 10:44:11 am

<(")

Wut? (this reminds me the blub ASCII fish on Cemetech)

Happybobjr · « **Reply #159 on:** February 10, 2011, 04:57:25 pm »

I was serious, try not to be hard on him.

Ashbad · « **Reply #160 on:** February 10, 2011, 04:59:38 pm »

Quote from: Happybobjr on February 10, 2011, 04:57:25 pm

I was serious, try not to be hard on him.

if that's true, will someone rate the poor kid's post back up to 0 again? I was able to raise it to -1, but someone else needs to help (though don't make it above 0 though, just keep it at that to leave it be)

and also fast crash I would prefer if you would edit that word out of your post

DJ Omnimaga · « **Reply #161 on:** February 10, 2011, 05:00:26 pm »

Oh ok. Just try to make sure he doesn't break the rules too much, though, right?

Munchor · « **Reply #162 on:** February 11, 2011, 09:23:06 am »

And I have to say I don't think this is the right topic for that x)

Concerning the multiplayer, I am finished with this project, I don't want to work on it anymore.

If you do release a multiplayer linking version of it, I can give a help with it, but I won't organize it (I mean lead it).

Author Topic: uPong (Read 20905 times)

Happybobjr

Re: uPong

darkduck

Re: uPong

Munchor

Re: uPong

Munchor

Re: uPong

Happybobjr

Re: uPong

Fast Crash

Re: uPong

Ashbad

Re: uPong

Fast Crash

Re: uPong

DJ Omnimaga

Re: uPong

Happybobjr

Re: uPong

Ashbad

Re: uPong

DJ Omnimaga

Re: uPong

Munchor

Re: uPong