Home
JAQForum Ver 24.01
Log In or Join  
Active Topics
Local Time 12:48 24 Nov 2024 Privacy Policy
Jump to

Notice. New forum software under development. It's going to miss a few functions and look a bit ugly for a while, but I'm working on it full time now as the old forum was too unstable. Couple days, all good. If you notice any issues, please contact me.

Forum Index : Microcontroller and PC projects : MaxiBlip

Author Message
crackerjack

Senior Member

Joined: 11/07/2011
Location: Australia
Posts: 164
Posted: 01:18pm 08 Nov 2011
Copy link to clipboard 
Print this post

Hi all,

A bit of fun again...

The game of MaxiBlip is a bit of blast to days gone by when simple things held attention for long spans of time. The screenshot below will give you a taste of what I mean....



The zip file linked to above contains all the details to setup the game, paddles and simple calibration required. Check the README.TXT within.

The code gives the Maximite a little bit of a workout - but it is truly a marvellous machine. The whole deal uses 16% program memory, 16% variable memory and 2% string/array memory. It utilises Fonts, Sound, lots of pixel manipulation and even the MPF format file for the splash screen. The paddles (controls) are simple analog devices. Thanks to Geoff for the XMODEM inclusion in 2.7 - it has made working with the Maxi so much easier - ditto for the new editing features and function key assignments.

It was my intention to make the game workable on both VGA and Composite displays, but as I don't have a composite display setup for my Maxi, I wasn't able to verify this. I've left comments in the code where I believe changes for composite displays would be required, but it may take more work than it seems at first glance to get it right. As always, variable names are probably more cryptic than they ought to be and some of the code may leave you pondering why/what/who and when? But maybe not.

Finally, MaxiBlip may have a passing resemblance to a game from the 1970's with a name that stinks and by a company whose name is an anagram of TIARA. Then again it may not.

Have fun...

Cheers, CrackerJack
 
CircuitGizmos

Guru

Joined: 08/09/2011
Location: United States
Posts: 1425
Posted: 02:19pm 08 Nov 2011
Copy link to clipboard 
Print this post

Looks impressive. I was just telling an Xbox/PSP/whatever owner that I really hadn't played a video game since I played one similar to this: Gnop, I think. By "I a rat".
Micromites and Maximites! - Beginning Maximite
 
donmck

Guru

Joined: 09/06/2011
Location: Australia
Posts: 1313
Posted: 05:07pm 08 Nov 2011
Copy link to clipboard 
Print this post


5K pots for paddles, simple.

I think you put in more that a couple of hours to get this going CJ.

Could be a Maxi-Classic.

Cheers Don...
https://www.dontronics.com
 
VK6MRG

Guru

Joined: 08/06/2011
Location: Australia
Posts: 347
Posted: 02:25am 09 Nov 2011
Copy link to clipboard 
Print this post

Awesome, thanks for your efforts!
Its easier to ask forgiveness than to seek permission!

............VK6MRG.............VK3MGR............
 
TassyJim

Guru

Joined: 07/08/2011
Location: Australia
Posts: 6097
Posted: 05:45am 09 Nov 2011
Copy link to clipboard 
Print this post

I think I still have the paddles I made for the Electronics Australia version from 30 odd years ago.

Somewhere in the shed...

Jim
VK7JH
MMedit   MMBasic Help
 
crackerjack

Senior Member

Joined: 11/07/2011
Location: Australia
Posts: 164
Posted: 09:12am 09 Nov 2011
Copy link to clipboard 
Print this post

TassieJim, this might be the very one you built way back when. You could still do it with a bucketful of 74xx chips. Or one Maximite.

Cheers...
 
ajkw
Senior Member

Joined: 29/06/2011
Location: Australia
Posts: 290
Posted: 10:57pm 12 Nov 2011
Copy link to clipboard 
Print this post

Nice game for the Maxitmite. Good work Crackerjack. After a couple of tweaks and an addition I have it running very nicely on mine (VGA).

Tweaks are
Paddle movement is smoothed
Redraw the centre line only on serve
Added Difficulty selection to opening screen

Next is to make the computer beatable in player 1 mode!

Am happy to post it if Crackerjack is happy with someone else mucking with his code.

Cheers,
Anthony.
 
crackerjack

Senior Member

Joined: 11/07/2011
Location: Australia
Posts: 164
Posted: 01:12am 13 Nov 2011
Copy link to clipboard 
Print this post

Hey Anthony - that's great. I'd be more than happy for you to post it. As for "mucking with the code" - that's what open source is all about - I'm flattered that anybody would take the time and make the effort to improve, change, adapt or whatever.

I've actually had a bit of fun playing it against my wife - the kids are disinterested - they have no connection to the 70's in any way and to them it seems boring to bat a blip back and forth across the screen (in black and white, nevertheless!).

Cheers mate...
 
ajkw
Senior Member

Joined: 29/06/2011
Location: Australia
Posts: 290
Posted: 02:15am 13 Nov 2011
Copy link to clipboard 
Print this post

Crackerjack,

I have listed the changes I've made below. My wife also seems to enjoy these older games as does my 5 yo daughter. My 3 yo boy prefers Tux Cart on the colour screen!

I wrote a Artillery game for the Maxi and that gets a run with the girls every now and again also. Great to have another choice on the Maxi.

Cheers,
Anthony.

---------------------------
Smoother Paddle movement
change is to format statement - was %2.1f now %2.3f

change lines
was
1070 LV=VAL(FORMAT$(PIN(1),"%2.1f"))*10
now
1070 LV=VAL(FORMAT$(PIN(1),"%2.3f"))*10

was
1160 RV=VAL(FORMAT$(PIN(2),"%2.1f"))*10
now
1160 RV=VAL(FORMAT$(PIN(2),"%2.3f"))*10
------------------------

Redraw centre line on serve (removes game pause as the ball passes the centre).
It does mean the line erodes during a point but that gives a visual on the length of the rally.

change line (line 300 either comment out or delete it)
300 ' IF BALLX>HLFX-TH AND BALLX<HLFX+TH THEN GOSUB 820

add new line
1005 GOSUB 820

------------------------

Difficulty Selection
change line
was
40 TH=5:STEPX=TH+1:INITSPEED=30:SPEED=INITSPEED:PDLH=TH*5 :SND=1
now
40 TH=5:DF=TH:STEPX=TH+1:INITSPEED=30:SPEED=INITSPEED:PDLH=TH*5 :SND=1

add new lines
1361 LOCATE 188,120
1362 FONT #1,1,(df=1)*2 : PRINT "1"; : FONT #1,1,0 : PRINT " ";
1363 FONT #1,1,(df=2)*2 : PRINT "2"; : FONT #1,1,0 : PRINT " ";
1364 FONT #1,1,(df=3)*2 : PRINT "3"; : FONT #1,1,0 : PRINT " ";
1365 FONT #1,1,(df=4)*2 : PRINT "4"; : FONT #1,1,0 : PRINT " ";
1366 FONT #1,1,(df=5)*2 : PRINT "5"; : FONT #1,1,0 : PRINT " ";
1367 FONT #1,1,(df=6)*2 : PRINT "6"; : FONT #1,1,0 : PRINT " ";
1368 FONT #1,1,(df=7)*2 : PRINT "7"; : FONT #1,1,0 : PRINT " ";
1369 FONT #1,1,(df=8)*2 : PRINT "8"; : FONT #1,1,0 : PRINT " ";
1370 FONT #1,1,(df=9)*2 : PRINT "9"; : FONT #1,1,0 : PRINT " ";
1371 FONT #1,1,(df=10)*2 : PRINT "10"; : FONT #1,1,0 : PRINT " ";
1372 LOCATE 182,132 : PRINT "Press < > to adj level"
1375 LOCATE 110,180:? "<Enter> to play with current selections..."

1481 IF UCASE$(in$)= "," AND df>1 THEN df = df - 1
1482 IF UCASE$(in$) = "." AND df < 10 THEN df = df + 1

1494 th = 11 - df
1495 stepx = th + 1
1496 pdlh = th * 5
1497 initspeed = 60 - (df*5): speed = initspeed
----------------------------Edited by ajkw 2011-11-14
 
ajkw
Senior Member

Joined: 29/06/2011
Location: Australia
Posts: 290
Posted: 09:54am 13 Nov 2011
Copy link to clipboard 
Print this post

For a better chance to beat the computer try the following

----------
add new line
45 cm = 3 'the higher the value the faster the computer moves

change line 1140 (either comment out or delete)
1140 ' RPDLY=FIX(BALLY-PDLH/2)+ERR

add new lines
1141 IF rpdly < bally THEN rpdly = rpdly + cm
1142 IF rpdly > bally THEN rpdly = rpdly - cm

----------


Cheers,
Anthony.
 
sparkey

Senior Member

Joined: 15/06/2011
Location: Australia
Posts: 819
Posted: 10:02am 13 Nov 2011
Copy link to clipboard 
Print this post

does your download tell how to hook up the paddles or is it with the use of the keyboard ...what electrical connections need to be connected ...
technicians do it with least resistance
 
crackerjack

Senior Member

Joined: 11/07/2011
Location: Australia
Posts: 164
Posted: 11:33am 13 Nov 2011
Copy link to clipboard 
Print this post

Sparkey, check the download. It has the hookup details for the paddles which are minimal. A couple of resistors, a couple of pots and some wire. 5 minutes with a soldering iron and you are done. Cheers.
 
crackerjack

Senior Member

Joined: 11/07/2011
Location: Australia
Posts: 164
Posted: 01:06pm 13 Nov 2011
Copy link to clipboard 
Print this post

Hey Anthony - thanks for those mods. They actually make quite a big difference - particularly with the smoothness of play. The eroding centre-line is no big deal and as you say, it gives a clue as to the rally length. I was pretty sure I'd tried the greater resolution of the voltage for the paddles, but at some point while I was working on the code, the 3 digits right of the decimal point was making the paddles "jittery". Anyway, all good now.

I'm stoked too because I finally beat the computer while it was still being quite a competitive opponent! I seriously didn't think it would be as much fun to play as to develop.

Nice one though - thanks mate! I'll include the mods in the downloadable code soon if Ok with you.

Cheers...
 
ajkw
Senior Member

Joined: 29/06/2011
Location: Australia
Posts: 290
Posted: 08:34am 15 Nov 2011
Copy link to clipboard 
Print this post

No worries. Glad the code helps and yes you can add it to your downloadable. I have also done a "winner" routine, see below.

Is anyone else playing??

Cheers,
Anthony.

------------------------------------
change line

970 SETTICK 0,0:GOSUB 2000: PAUSE 1500:CLS:FONT #1

add lines

2000 ' WINNER Display
2001 ' ---------------------------------------------------
2010 inv = 1
2020 FOR i = 1 TO 20
2030 IF lscr = 21 THEN LOCATE 70, 100 ELSE LOCATE 320,100
2040 FONT 2,1,inv
2050 PRINT "WINNER"
2060 IF inv = 1 THEN inv = 0 ELSE inv = 1
2065 PAUSE 100
2070 NEXT i
2080 RETURN
 
Print this page


To reply to this topic, you need to log in.

© JAQ Software 2024