Fun with Magellan

[Opry99er]

My son and I played around designing a game screen for his "first game." Enjoy

 

 

***BTW, most of the tile graphics are his... I did the house

 

 

[Plastik]

Love the purple beast a pixel artist in the making

[Opry99er]

I dont know what he wants to DO with the game yet, but he said he wanted to have the aliens "Beat up the monster and save the family inside".

 

Should be a fun project... Probably use XB256 and the compiler.

[Tursi]

I like where this is going - the graphics are great!

[Dexter]

I hope we get a fair chance to win this battle!

[globeron]

The graphics are good --> TI-Zilla

[Opry99er]

He will be encouraged by your words. Thanks guys.

 

Tonight he has already said he wants to make the ships "move", so we will be doing some actual coding when I get home. I have a terrible bug in 'Beryl' right now that has me floored. I don't mind sidelining it for a bit to work on Buck's monster game.

[Opry99er]

He told me on the phone a few minutes ago that he has been thinking about the game alot today. Apparently you lose the game if the babies fall out of the house into the crater...

 

Is this wrong? LOL!! I find it hilarious that he would come up with that, but I also recognize it as disturbing.

[Dexter]

Not anything less disturbing than bouncing babies. LOL

[Willsy]

You should teach him Forth. He'll get it straight away, as he has no real pre-conceptions about other programming languages!

[Opry99er]

^^a good thought...

[Plastik]

what about LOGO? wasn't that made to teach children code?

[+Ksarul]

It was--and the TI version also has the weird advantage of having the commands available in multiple input languages--I have Logo cartridges in English, German, Dutch, Italian, and Spanish. They also exist in French, but I haven't been able to get my hands on one of those yet. For some of these, the cartridges exist in both the Logo I and Logo II flavors, for others, they were only released as the Logo II flavor. I've only seen Spanish, German, and French as Logo I releases--and physical copies of Logo II for all but the German release, although I have seen the GRAM files for the German Logo II release.

[Opry99er]

He has a little experience in TIXB... Just basic color, screen, print, loop commands. He has been playing around in Classic99 for a few weeks.

 

I would really like to encourage him to learn Forth, but I am not yet proficient myself, and he is at that "instant gratification" stage that all 6 year olds go through.

[Opry99er]

So we have the screen coming up in Classic99. We have a UFO flying overhead using automotion and a LITTLE animation on the monster.

 

Tonight we will be adding joystick functionality and hopefully "lasers".

[Opry99er]

 

100 CALL CLEAR
110 CALL SCREEN(2) :: FOR X=9 TO 14 :: CALL COLOR(X,2,1) :: NEXT X
120 CALL CHAR(96,"FFFF66441144FFFF",97,"D8D8FB7B1B1F1E18",98,"0000181818181818",99,"0000003C4040403C")
130 CALL CHAR(100,"0000007824242478",101,"0000007C4078407C",102,"0000007C40784040",103,"0000003C405C4438")
140 CALL CHAR(104,"0000FC7F3F0C3C7F",105,"C2466CF8F0FEFFFF",106,"0F7F7F7F0F070303",107,"03010103FFFFFF01")
150 CALL CHAR(108,"00000000FFFFFF1C",109,"FFFFFFFFFFFFFFFF",110,"000036EF9B929292",111,"1F0F070703070F1F")
160 CALL CHAR(112,"F8F0E0E0C0E0F0F8",113,"0000E0F88EE6F77F",114,"07070606060E1C38",115,"E0E060606070381C")
170 CALL CHAR(116,"1818181818181818",117,"18181818183C7CFC",118,"000000FEABA90901",119,"00C040603C040404")
180 CALL CHAR(120,"80C0E07F3F05C089",121,"01030FFCFA060C41",122,"",124,"0306051F30253F1F")
190 CALL CHAR(126,"C060A0F80C54FCF8",128,"FF55FF7EF7BDFF00",129,"0F0D0F0D0F0A0F00",130,"F050F0B0F050F000")
200 CALL CHAR(131,"200CE000FF55FFAA",132,"D80C7603FFB0F0B0",133,"1B306EC0FF0D0F0A",134,"000000000103060C")
210 CALL CHAR(135,"0000000080C06030",136,"183C66C3815C01C6",123,"",125,"",127,"")
220 CALL HCHAR(24,1,96,32)
230 CALL HCHAR(23,1,97,1) :: CALL HCHAR(23,6,97,1) :: CALL HCHAR(23,10,97,1)
240 CALL HCHAR(23,22,97,1) :: CALL HCHAR(23,27,97,1) :: CALL HCHAR(23,30,97,1)
250 CALL HCHAR(22,1,98,1) :: CALL HCHAR(22,6,98,1) :: CALL HCHAR(22,10,98,1) :: CALL HCHAR(22,22,98,1)
260 CALL HCHAR(22,27,98,1) :: CALL HCHAR(22,30,98,1)
270 GOSUB 410
280 DISPLAY AT(17,15):MH$ :: DISPLAY AT(18,15):MN$ :: DISPLAY AT(19,13):MB$
290 DISPLAY AT(20,16):MW$ :: DISPLAY AT(21,16):MTH$ :: DISPLAY AT(22,16):MLG$; :: DISPLAY AT(23,16):MFT$;
300 DISPLAY AT(20,11):HTR$;
310 DISPLAY AT(21,11):HRF$;
320 DISPLAY AT(22,11):HWLS$;
330 DISPLAY AT(24,12):CRAT$;
340 CALL SCREEN(
350 CALL COLOR(9,13,1,10,14,1,11,14,1,12,2,1,13,2,1,14,2,1)
360 CALL MAGNIFY(3) :: CALL SPRITE(#1,124,2,50,50,0,10)
370 CALL SPRITE(#2,124,5,89,10,0,15)
380 CALL CHAR(106,"0F070F1F3F674303",110,"00603E071FF30D18") :: CALL SOUND(100,440,30)
390 CALL CHAR(106,"0F7F7F7F0F070303",110,"000036EF9B929292") :: CALL SOUND(100,440,30)
400 GOTO 380
410 MH$="hi" :: MN$="jmq" :: MB$="nlkmmlv" :: MW$="op" :: MTH$="rs" :: MLG$="tt" :: MFT$="uu"
420 HRF$=CHR$(133)&CHR$(131)&CHR$(132)
430 HTR$=CHR$(134)&CHR$(136)&CHR$(135)
440 HWLS$=CHR$(129)&CHR$(128)&CHR$(130)
450 CRAT$=CHR$(120)&CHR$(121)
460 RETURN

Edited July 4, 2015 by Opry99er

[ti99iuc]

haha... very funny, i love this cooperation with your child

[Tursi]

hah.. nice. You can tell him that someone all the way in China ran it today

[Opry99er]

tHis is buck, thank you for loving my game The UFO is going to drop bombs on the Monster.

[Opry99er]

Rember you have to destroy the monster before the baby falls into the crater