PlanetJanus Posted May 29, 2019 Share Posted May 29, 2019 (edited) Reading and deciphering code and trying to understand some of the way programmers write.Mangled, but I've got this,INTYBUILD and INTYNEW help immensly.' =========================================================================' IntyBASIC SDK Project: bitmapb' -------------------------------------------------------------------------' Programmer: PLANETJANUS ' Created: 05/28/2019' Updated: 05/28/2019'' Project automatically generated by INTYNEW.' -------------------------------------------------------------------------' History:' 05/28/2019 - bitmapb project created.' ========================================================================= ' Include useful predefined constants INCLUDE "constants.bas" ' Remove the line below if you want to include your own custom title page. 'INCLUDE "title.bas" 'Invoke 1 bitmapCLS WAITDEFINE DEF00,2,pimpmapWAIT x1=80 y1=56'LOOP 100 XFOR L = 1 to 100'print Sprites at x1, y1'Sprite (# of Sprite), (X location) + Visible + size x axis, (Y location) +size y axis, SPR00(?) then colorSPRITE 0, (x1-20)+ VISIBLE + ZOOMX2, (y1+20) + ZOOMY2, SPR00 + SPR_WHITEWAITWAITWAITWAITWAITWAITWAITSPRITE 1, (x1+20)+ VISIBLE + ZOOMX2, (y1-20) + ZOOMY2, SPR00 + SPR_WHITEWAITWAITWAITWAITWAITWAITSPRITE 0, (x1+20)+ VISIBLE + ZOOMX2, (y1+20) + ZOOMY2, SPR00 + SPR_REDWAITWAITWAITWAITWAITWAITWAITSPRITE 1, (x1-20)+ VISIBLE + ZOOMX2, (y1-20) + ZOOMY2, SPR00 + SPR_BLUEWAITWAITWAITWAITWAITWAITSPRITE 0, (x1+20)+ VISIBLE + ZOOMX2, (y1-20) + ZOOMY2, SPR00 + SPR_WHITEWAITWAITWAITWAITWAITWAITWAITSPRITE 1, (x1-20)+ VISIBLE + ZOOMX2, (y1+20) + ZOOMY2, SPR00 + SPR_WHITEWAITWAITWAITWAITWAITWAITSPRITE 0, (x1-20)+ VISIBLE + ZOOMX2, (y1-20) + ZOOMY2, SPR00 + SPR_BLUEWAITWAITWAITWAITWAITWAITWAITSPRITE 1, (x1+20)+ VISIBLE + ZOOMX2, (y1+20) + ZOOMY2, SPR00 + SPR_REDWAITWAITWAITWAITWAITWAITNEXT L InfiniteLoop: GOTO InfiniteLooppimpmap:REM SPRITEBITMAP "#......#"BITMAP ".#....#."BITMAP "..#..#.."BITMAP "...##..."BITMAP "...##..."BITMAP "..#..#.."BITMAP ".#....#."BITMAP "#......#" bitmapb.zip Edited May 29, 2019 by PlanetJanus Quote Link to comment https://forums.atariage.com/topic/291642-minor-success/ Share on other sites More sharing options...
PlanetJanus Posted May 29, 2019 Author Share Posted May 29, 2019 (edited) There is a lot of different ways I could have done this.I'll probably be creating a couple of hella simple programs. I will try to REM the HELL out of them so newbies like myself can understand what is going on. Edited May 29, 2019 by PlanetJanus Quote Link to comment https://forums.atariage.com/topic/291642-minor-success/#findComment-4282923 Share on other sites More sharing options...
Like us on Facebook
Follow us on Twitter
AtariAge on Instagram
Watch us on YouTube
Chat on Discord
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.