0 Members and 2 Guests are viewing this topic.
wow the frame rate and smoothness is impressive for a calc. welldone!
Mhmm nice, at least the ball doesn't always bounce back at the same horizontal speed. It makes the game more challenging. Are you planning to add more features to it? Are you also planning to eventually work on your very own games from scratch (without re-using anyone's code) in the near future?
yunhua98: If I make any improvements to this game it'll probably be a two players in one calculator version, because what you did is weird xD It's good, I'm not negatively judging your program, but it's hard to understand your program :S
[16:48:48] <@DJ_Omni> Scout you complain about people checking your source code, yet you release other people program adding yourself as co-author, without adding any single noticeable new thing but a menu
Quote[16:48:48] <@DJ_Omni> Scout you complain about people checking your source code, yet you release other people program adding yourself as co-author, without adding any single noticeable new thing but a menuI can't take this off my head... I am quite sure I added way more stuff than a menu (both in uPong and Racer3D: Replay).I just made a new version! Added a pig mode where the ball is substituded by a pig face and changed the "made by" in the title screen Screenshots:The pig mode is activated by pressing 8. The collision doesn't work so well in this mode
.UPONG"<easy>"->Str4"SCORE:"->Str2[6363636363633F1F]->Pic3[FCFEC6C6FEFCC0C0C0]->Pic4[3C7EE7C3C3E77E3C]->Pic5[00CEDFF3E3C3C3C3]->Pic6[3F7FC3C37F3F037FFE]->Pic7[FF00000000000000]->Pic8[1F2868A76A2A271F]->Pic9[F81416E55654E4F8]->Pic0DiagnosticOffLbl 1ClrDrawClrHomeFix 5.Code for imagePt-On(25,10,Pic3 Pt-On(34,9,Pic4 Pt-On(34,10,Pic4+1 Pt-On(42,10,Pic5 Pt-On(51,10,Pic6 Pt-On(60,9,Pic7 Pt-On(60,10,Pic7+1Pt-On(0,19,Pic8Pt-On(8,19,Pic8Pt-On(16,19,Pic8Pt-On(24,19,Pic8Pt-On(32,19,Pic8Pt-On(40,19,Pic8Pt-On(48,19,Pic8Pt-On(56,19,Pic8Pt-On(64,19,Pic8Pt-On(72,19,Pic8Pt-On(80,19,Pic8Pt-On(88,19,Pic8Pt-On(96,19,Pic8Text(32,21,"2nd:playIf sub(CS,"<easy>",Str4)Text(35,28,Str4ElseText(34,28,Str4EndText(29,35,"clear:quit"|vPongHS"->Str5GetCalc(Str5)->H!If HUnArchive Str5GetCalc(Str5)->HEnd!If HGetCalc(Str5,8)->HEndIf sub(CS,"<easy>",Str4)If {H}>9Text(25,42,"Highscore:",{H}>DecElseText(27,42,"Highscore:",{H}>DecEndElseIf {H+1}>9Text(25,42,"Highscore:",{H+1}>DecElseText(27,42,"Highscore:",{H+1}>DecEndEndFix 3Text(0,49," made by: David G. Text(0,55," Kevin H. Fix 2DispGraphRepeat getKey->thetaEndIf getKey(3) or getKey(19)104->{Str4+1} 114->{Str4+3} 100->{Str4+4}EndIf getKey(2) or getKey(35)101->{Str4+1}115->{Str4+3}121->{Str4+4}EndIf theta=281->GEndIf theta=15Fix 4ClrHomeClrDrawReturnEnd.THIS IS THE START OF THE GAME CODEIf theta=54ClrDraw0->S-1->D44->Z*256->X10->Ysub(HT)Repeat getKey(15)If sub(CS,"<hard>",Str4)4->MElse2->MEnd.MOVE LEFT CODEIf getKey(2) or getKey(35) and (Z!=0Z-M->ZEnd.MOVE RIGHT CODEIf getKey(3) or getKey(19) and (Z!=88Z+M->ZEnd.RANDOM POSITION FOR BALLX+V->XY+D->Y.LOSING CODE If Y>70Goto DEnd.RANDOM POSITION FOR BALL WHEN HIT UPPER BARRIERIf Y=0sub(HT)End.HIT IMAGE CODEIf Y=54 and (abs(X/256-Z)<8sub(HT)S+1->SEndIf X/256=0 or (X/256=88~V->V+X->XEndClrDraw[000000000000FFFF]->Pic1[0000182C3C180000]->Pic2If sub(CS,"<easy>",Str4Line(0,0,96,0)Line(0,0,0,64)Line(95,0,95,63)Line(0,63,95,63)EndPt-On(Z,54,Pic1If G=1Pt-On(X/256,Y,Pic9Pt-On(X/256+8,Y,Pic0ElsePt-On(X/256,Y,Pic2EndDispGraphEnd.LOSE LABELLbl DClrDrawClrHomeFix 5.Code for imagePt-On(25,25,Pic3 Pt-On(34,24,Pic4 Pt-On(34,25,Pic4+1 Pt-On(42,25,Pic5 Pt-On(51,25,Pic6 Pt-On(60,24,Pic7 Pt-On(60,25,Pic7+1Pt-On(0,35,Pic8Pt-On(8,35,Pic8Pt-On(16,35,Pic8Pt-On(24,35,Pic8Pt-On(32,35,Pic8Pt-On(40,35,Pic8Pt-On(48,35,Pic8Pt-On(56,35,Pic8Pt-On(64,35,Pic8Pt-On(72,35,Pic8Pt-On(80,35,Pic8Pt-On(88,35,Pic8Pt-On(96,35,Pic8If G=1Pt-On(40,48,Pic9Pt-On(48,48,Pic0EndIf S>9Text(33,38,Str2,S>DecElseText(35,38,Str2,S>DecEndIf sub(CS,Str4,"<easy>")S->{H}ElseS->{H+1}EndDispGraphPause 1500Repeat getKey->UEndGoto 1.ROUTINESReturnLbl CS0->r3 Repeat {r2+r3}->r4 != {r1+r3} or ({r1+r3}->r5 = 0) or (r4 = 0) ::r3+1->r3 End If r4 or r5=0 ::1 ::Return End 0 ReturnLbl HTrand^512-256->V~D->DElseGoto 1End
What do you mean by "finished"? Normally, when you say that, you're saying that the game is completely done... Are you canceling the game?
Quote from: JosJuice on December 22, 2010, 08:18:00 amWhat do you mean by "finished"? Normally, when you say that, you're saying that the game is completely done... Are you canceling the game?Yes, I realized that both of my Axe games (Racer 3D: Replay and uPong) were not well welcomed by some people, this is, I am sure I added a few things to the original games, but some people still think all I added was a menu, so I'd better make a game from scratch so that I can get some respect