0 Members and 1 Guest are viewing this topic.
EXPORT wavyanim() BEGIN DIMGROB_P(G4,336,256); DIMGROB_P(G3,320,240); DIMGROB_P(G1,63,15, {#0:64,#0:64,#0:64,#0:64,#0:64,#0:64,#0:64,#0:64,#4010401000000000:64,#4010:64,#0:64,#0:64,#4010000000000000:64,#40104010:64,#0:64,#4000000000000:64,#4000400040004:64,#4000400040004:64,#4000400040004:64,#4000400040004:64,#4000400040004:64,#4000400040004:64,#4000400040004:64,#4000400040004:64,#4010401040100004:64,#4000400040004:64,#4000400040004:64,#4000400040004:64,#4010401000040004:64,#4000400044010:64,#4000400040004:64,#7FFF000900040004:64,#97FFF00097FFF:64,#7FFF7FFF00097FFF:64,#7FFF7FFF00097FFF:64,#97FFF7FFF0009:64,#7FFF00097FFF7FFF:64,#7FFF00097FFF7FFF:64,#7FFF00097FFF7FFF:64,#97FFF7FFF0009:64,#9401040104010:64,#97FFF7FFF7FFF:64,#97FFF7FFF7FFF:64,#7FFF000900097FFF:64,#4010401040100009:64,#7FFF00097FFF0009:64,#7FFF7FFF7FFF0009:64,#67FF67FF000D0009:64,#67FF000D67FF000D:64,#67FF67FF67FF000D:64,#D67FF67FF000D:64,#67FF000D67FF67FF:64,#67FF67FF000D67FF:64,#67FF67FF000D67FF:64,#D67FF000D67FF:64,#4010000D67FF67FF:64,#67FF000D40104010:64,#67FF000D67FF67FF:64,#67FF000D67FF67FF:64,#D67FF000D000D:64,#D401040104010:64,#D67FF000D67FF:64,#D67FF67FF67FF:64,#1200124FFF0012:64,#124FFF00124FFF:64,#124FFF00124FFF:64,#4FFF001200124FFF:64,#124FFF00120012:64,#4FFF00124FFF0012:64,#4FFF00124FFF0012:64,#4FFF00124FFF0012:64,#4010401000120012:64,#124FFF00124010:64,#124FFF00124FFF:64,#124FFF00124FFF:64,#401000124FFF0012:64,#4FFF001240104010:64,#4FFF00124FFF0012:64,#1600124FFF0012:64,#33FF0016001633FF:64,#33FF001633FF0016:64,#33FF001633FF0016:64,#1633FF00160016:64,#16001633FF0016:64,#1633FF001633FF:64,#1633FF001633FF:64,#1633FF001633FF:64,#4010401040100016:64,#33FF001633FF0016:64,#33FF001633FF0016:64,#16001633FF0016:64,#40104010001633FF:64,#1633FF00164010:64,#1633FF001633FF:64,#1BFF001B001633FF:64,#1B1BFF001B1BFF:64,#1BFF1BFF001B1BFF:64,#1BFF1BFF001B1BFF:64,#1B001B1BFF001B:64,#1BFF001B1BFF1BFF:64,#1BFF001B1BFF001B:64,#1BFF001B1BFF001B:64,#2573001B1BFF001B:64,#1B401040104010:64,#1B1BFF1BFF1BFF:64,#1B1BFF1BFF1BFF:64,#1BFF001B001B1BFF:64,#401040104010001B:64,#1BFF1BFF1BFF001B:64,#1BFF1BFF1BFF001B:64,#3FF03FF001F001B:64,#3FF001F03FF001F:64,#3FF03FF03FF001F:64,#1F03FF03FF001F:64,#3FF001F001F03FF:64,#1F03FF001F03FF:64,#1F03FF001F03FF:64,#1F03FF001F03FF:64,#40104010001F03FF:64,#3FF001F40104010:64,#3FF001F03FF03FF:64,#3FF001F03FF03FF:64,#1F03FF001F001F:64,#1F401040104010:64,#1F03FF03FF03FF:64,#1F03FF03FF03FF:64,#1B1BFF001B001B:64,#1B1BFF001B1BFF:64,#1B001B001B1BFF:64,#1BFF001B001B1BFF:64,#1BFF001B001B001B:64,#1BFF001B1BFF001B:64,#1BFF001B1BFF001B:64,#1BFF001B1BFF001B:64,#40104010001B001B:64,#1B1BFF001B4010:64,#1B1BFF001B1BFF:64,#1B1BFF001B1BFF:64,#1B001B1BFF001B:64,#1BFF001B40104010:64,#1BFF001B1BFF001B:64,#16001B001B001B:64,#33FF001633FF0016:64,#33FF001633FF0016:64,#33FF001600160016:64,#1633FF00160016:64,#1633FF00160016:64,#1633FF001633FF:64,#1633FF001633FF:64,#1633FF001633FF:64,#4010401040100016:64,#33FF001633FF0016:64,#33FF001633FF0016:64,#16001633FF0016:64,#40100016001633FF:64,#1633FF00164010:64,#1633FF001633FF:64,#4FFF001200160016:64,#4FFF4FFF00124FFF:64,#124FFF00124FFF:64,#4FFF4FFF00122573:64,#1200124FFF0012:64,#4FFF00124FFF4FFF:64,#4FFF00124FFF4FFF:64,#4FFF00124FFF0012:64,#124FFF4FFF0012:64,#12401040104010:64,#124FFF4FFF4FFF:64,#124FFF00124FFF:64,#4FFF00124FFF4FFF:64,#4010401000124FFF:64,#4FFF00124FFF0012:64,#257300124FFF0012:64,#67FF67FF000D2573:64,#67FF67FF67FF000D:64,#4010000D67FF000D:64,#D67FF67FF000D:64,#67FF000D000D67FF:64,#67FF67FF000D67FF:64,#D67FF000D67FF:64,#D67FF000D67FF:64,#4010000D67FF67FF:64,#67FF000D40104010:64,#67FF000D67FF67FF:64,#67FF000D67FF000D:64,#67FF67FF000D67FF:64,#D40104010000D:64,#D67FF000D67FF:64,#40104010000D67FF:64,#9000900090009:64,#9000900090009:64,#9401000090009:64,#9000900090009:64,#9000900090009:64,#9000900090009:64,#9000900090009:64,#9000900090009:64,#4010401000090009:64,#9000900094010:64,#9000900090009:64,#9000900090009:64,#9000900090009:64,#9000940104010:64,#9000900090009:64,#4401040100009:64,#4000400040004:64,#4000400040004:64,#4000440100004:64,#4000400040004:64,#4000400040004:64,#4000400040004:64,#4000400040004:64,#4000400040004:64,#4010401040100004:64,#4000400040004:64,#4000400040004:64,#4000400040004:64,#4010000400040004:64,#4000400044010:64,#4000400040004:64,#2573257340104010:64,#2573257325732573:64,#2573257325732573:64,#2573257325734010:64,#2573257325732573:64,#2573257325732573:64,#2573257325732573:64,#2573257325732573:64,#2573257325732573:64,#2573401040104010:64,#2573257325732573:64,#2573257325732573:64,#2573257325732573:64,#4010401025732573:64,#2573257325732573:64,#4010257325732573:64,#4010:64}); FOR B FROM 0 TO 240 STEP 16 DO FOR A FROM 0 TO 320 STEP 16 DO BLIT_P(G4,A,B,A+16,B+16,G2,0,160,16,176); END; END; 62▶A; 0▶B; 0▶C; 0▶D; .03▶E; WHILE 1 DO BLIT_P(G3,0,0,320,240,G4,D,D,320+D,240+D); FOR A FROM 0 TO 62.75 STEP .25 DO C+E▶C; IF C>.5 OR C<-.5 THEN -E▶E; END; B+C▶B; BLIT_P(G3,32+(A*4),30-B,34+(A*4),114+B,G1,A,0,A+1,15,RGB(128,0,128)); END; D+1▶D; IF D=16 THEN 0▶D; END; FOR A FROM 0 TO 3 DO FOR F FROM 0 TO 3 DO TEXTOUT_P("©2014 DJ Omnimaga - www.omnimaga.org",G3,17+F,215+A,3,#000039); TEXTOUT_P("Press Enter",G3,107+F,151+A,6,#000039); END; END; TEXTOUT_P("©2014 DJ Omnimaga - www.omnimaga.org",G3,18,216,3,#FFFFFF); TEXTOUT_P("Press Enter",G3,108,152,6,#FFFFFF); BLIT_P(G0,G3); END; END;
Mockup of what could be a remake of an early Illusiat game on the Casio PRIZM by abusing RecallPict and Text commands to erase stuff:Yay for 3-bit pixel art Same method as the Zelda mockup posted a while ago, basically this pic is recalled with rocks blocking all sides, then the program would check which path is open then erase the rocks using spaces in a Text command. The sprites would be ASCII art. Recalling the pic would actually be faster than erasing the rocks.The only problem, though, like the Zelda thing, would be that most rooms would look identical, except rock locations, and since there is no known way to draw 8-color pictures on a computer, you would need to draw them pixel by pixel using a program, so get ready to use a few sets of batteries to do so.