Printed Amstrad Addict magazine announced, check it out here!
Started by arnoldemu, 14:23, 22 May 09
0 Members and 3 Guests are viewing this topic.
Quote from: ZbyniuR on 10:01, 16 January 16Palette in string?10 c$="\0@@\1zz\2kk\3bb\4aa\5cc\6ff\7pp\8yy\9vv\:oo\;mm\<ss\=rr\>nn\?ii":PRINT c$Type it but instead "\" put ctrl+"\" and effect is the same, without FOR-NEXT. This is exactly your palette.
Quote from: pelrun on 07:49, 17 January 16Being able to set colours and move the cursor using control codes lets you do overprinting. Set transparent mode, set the first colour, print a character, move the cursor back, set the second colour, print the second character, repeat.
Quote from: Morri on 06:05, 17 January 16Wow! You blew my mind with the GUI code.I didn't know the multi-coloured characters were even possible. How did you do that? I assume it has something to do with your .fnt file but to be fair, trying to read control codes is near impossible so I have no idea what happening past the first line setting MODE and INKS.
Quote from: AMSDOS on 22:59, 24 January 16I nearly forgot, I typed in this program from Home Computing Weekly from 1985. So the concept is very old, but their using CHR$ instead of control codes to get the job done.
Quote from: Morri on 10:07, 30 January 16For my new game, I have decided on a mixture of using CHR$ and control codes.It was far easier to use the SYMBOL command over the control code equivalent CHR$(25) or CTRL-Y, but putting a multicoloured sprite into a string with all needed control codes makes for much shorter code.
10 MODE 1:SYMBOL 244,60,56,60,24,24,24,56,24:SYMBOL 245,20,56,60,24,58,26,52,48:SYMBOL 246,0,40,56,60,24,24,60,102:SYMBOL 247,24,60,60,24,24,28,120,76:WHILE-1:FOR a=244 TO 247:PRINT CHR$(a)CHR$(8 );:FOR b=1 TO 80:NEXT:NEXT:WEND
Quote from: ZbyniuR on 22:55, 25 March 16The first rule of inventiveness is: Everything can be done better.Here you are. Bunch of colorful Lemmings moving on screen. Still in 1 line of pure Basic. I'm proud about myself. If you swap digits 7 and 2 in RIGHT$ and LEFT$ they walk backward.
Quote from: ZbyniuR on 19:42, 25 March 16Do you need combination space and arrow simultaneous?If not, maybe better is use INKEY$ insted INKEY(). One more benefit is you can KEY DEF left, right and fire in joystick the same codes as arrows and space and both way of steering will be work without extra INKEY$.
Quote from: ZbyniuR on 22:55, 25 March 16The first rule of inventiveness is: Everything can be done better.
Quote from: arnoldemu on 06:28, 07 August 16I missed this post until now. This is awesome.
10 a=120 IF a=1 THEN b=130 IF a=3 THEN b=-140 PRINT a50 a=a+b60 GOTO 20
Page created in 0.165 seconds with 23 queries.