 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 : Software for PicoMite VGA
| Author | Message | ||||
PilotPirx Regular Member  Joined: 03/11/2020 Location: GermanyPosts: 65 |
I am searching demos or games which are running on PicoMite VGA. Which software is suitable for this? Is there a list? Thanks for tips, Peter |
||||
Mixtel90 Guru  Joined: 05/10/2019 Location: United KingdomPosts: 5707 |
You could start here: https://multimite.strongedge.net/ There are links there to CMM2.fun and Fruit of the Shed. Most of the above will be for CMM2 machines rather than the PicoMite, I think, but there might be stuff on Fruit of the Shed. There are a few odds and ends if you look back through this forum, probably not marked as demos so a search on that won't find them. The PicoMite VGA is still a relatively new platform and is, in fact still under development now and again. :) . I don't know of an actual list of PicoMite VGA demos. Perhaps you'd like to put one together as you find them? There is a fair amount of software, but it's mostly not demos. Edited 2023-01-24 01:02 by Mixtel90 Mick Zilog Inside! nascom.info for Nascom & Gemini Preliminary MMBasic docs & my PCB designs |
||||
| JohnS Guru Joined: 18/11/2011 Location: United KingdomPosts: 3649 |
I don't have a list but here's something Sierpinski John |
||||
thwill Guru Joined: 16/09/2019 Location: United KingdomPosts: 3833 |
It's a shame we haven't really got this organised yet, it would be unfortunate if someone found the PicoMite VGA and then gave up because they couldn't find examples to run: - PicoVaders game - @Martin H - Racing game proof of concept - @Martin H - 3D (lack of) monster maze proof of concept - @Martin H - Raycasting proof of concept - @Martin H - Four Equals Ten (game) - @vegipete - PWM music demos - @thwill - and a good proportion of CMM2 software should work if adjusted to use MODE 2 I've got other stuff cooking, but am having difficulty getting it to the boil. Best wishes, Tom Edited 2023-01-24 05:36 by thwill Game*Mite, CMM2 Welcome Tape, Creaky old text adventures |
||||
| Volhout Guru Joined: 05/03/2018 Location: NetherlandsPosts: 3496 |
Circle, a 2 player game for picomite and 2 nes controllers. Edited 2023-01-24 13:54 by Volhout PicomiteVGA PETSCII ROBOTS |
||||
Martin H. Guru Joined: 04/06/2022 Location: GermanyPosts: 891 |
Dont forget the modified version of Stellar Battle in the Seven Green Hills Zone especially for the PicoMITE-VGA. by vegipete Stellar Battle in the Seven Green Hills Zone btw: @Tom .. till now, you did not add Picovaders to your GidHub Page. Maybee the "Software" region there, would be a nice Place for a Pico VGA Games collection Edited 2023-01-24 17:03 by Martin H. 'no comment |
||||
| Volhout Guru Joined: 05/03/2018 Location: NetherlandsPosts: 3496 |
Circle listing PicomiteVGA PETSCII ROBOTS |
||||
| thwill Guru Joined: 16/09/2019 Location: United KingdomPosts: 3833 |
Hi Martin, Cool, I knew he was doing it but missed (or forgot) that he had actually succeeded  .Which GitHub page, https://github.com/thwill1000/cmm2-sptools/wiki https://github.com/thwill1000/pico-game-vga/wiki/Software The former is really just a list I keep for my convenience, the latter I have sadly neglected (like the rest of the PicoGAME) whilst trying to keep up with other things. No blame intended but as a community I think we are failing when it comes to a Wiki. I know that valiant effort has been put into "Fruit of the Shed" by @CaptainBoing but the Wiki software is just too ancient and IMO looks awful and is not as easy to navigate or edit as it should be - I know by personal experience, I tried to do something with it early on in the life of the CMM2 and just decided the results were not worth the effort and so found other things to do. Best wishes, Tom Edited 2023-01-24 20:25 by thwill Game*Mite, CMM2 Welcome Tape, Creaky old text adventures |
||||
| Martin H. Guru Joined: 04/06/2022 Location: GermanyPosts: 891 |
Found at PicoVaders Tree 'no comment |
||||
| thwill Guru Joined: 16/09/2019 Location: United KingdomPosts: 3833 |
Ah right, I hadn't completely forgotten. Either: a) We haven't yet reached "some future point", or b) This is another of my unfulfilled MMBasic commitments - story of my life at the moment. Best wishes, Tom Game*Mite, CMM2 Welcome Tape, Creaky old text adventures |
||||
| Volhout Guru Joined: 05/03/2018 Location: NetherlandsPosts: 3496 |
Ten Line Sokoban from the 2021 programming challenge, ported to picomite VGA s=11:z=16:Dim f(s,s),t(s,s),v$(16):GoSub 1:Sprite Load "x.s":Do :MODE 2:Read x,y For i=1To s:Read a$:l=Val("&h"+a$):For j=1To s:f(i,j)=3And l:t(i,j)=(f(i,j)=1) l=l\4:Next j,i:CLS :Print w,,"TLS":f(x,y)=4:Do :d=0:For i=1To s:For j=1To s:k=f(i,j) o=120+z*(i-6):p=99+z*(j-6):Sprite write Int(k+1+((k=4)*n)),o,p,0:d=d+(k=1):Next j,i If d+q=0Then:w=w+1:Exit :EndIf :Data 9,2,FFC,3003,3003,30C3:Do :a$=Inkey$ Loop While a$="":n=3And Asc(a$):c=(n<2)*(n*2-1):b=(n>1)*(n*2-5):e=x+b:g=y+c If f(e,g)=3Then:b=0:c=0:ElseIf f(e,g)=2Then:If f(e+b,g+c)<2Then:f(e,g)=t(e,g) f(e+b,g+c)=2:Else :b=0:c=0:EndIf :EndIf :f(x,y)=t(x,y):x=x+b:y=y+c:f(x,y)=4:q=t(x,y) If a$="r"Then:Exit :EndIf :Data FC0,,FFC,3217,3203,3003,FFC,5,2,,,,FFFF,D5F3,CBC3 Loop :Restore :For i=1To(s+2)*w:Read a$:Next i:Loop :Data C023,C3CF,EC0C,C0FC,FFC0 Data 8,5,,,,FC0,DC0,CFF,FE87,D83F,FFB0,370,3F0,6,3,,,3FF,3FF03,30FA3,30083,303FF Data 3F300,C3F0,C570,FFF0,5,4,,,,FF0,C30,E3F,3DA3,3163,3163,3F03,3FF,7,7,,,,FF00 Data C3F0,C03F,CE07,C897,C87F,C3F0,FF00,6,6,,,3FF,3F03,3023,30E3,3163,317F,32F0 Data 30C0,3FC0,9,7,,,,,FFFF,C017,C897,FABB,C897,C017,FFFF,7,6,,,FFFF,D503,D1B3 Data CB03,C23F,F30C,328C,3F0C,3FC,7,6,,,,3FF0,303F,3053,3373,32B3,3C23,C0F,FFC Data 8,2,,,,FF0,C3F,FC03,C273,CE23,C44F,FF0C,3FC,6,2,,,,,FFFF,C303,C0B3,DA13 Data CDEF,C10C,FFFC,2,3,FFC,3FC0C,30C8C,300BF,37F23,37203,3703F,37230,37F30 Data 30030,3FFF0,6,3,,,,3FFFC,321DC,32FCF,31323,36683,32043,31FFF,3FC00,10,7,,FF Data 3FFCC3,300FE3,339003,331FEF,339C0C,301CEC,3F100C,30FFC,3FC00,5,10,,,3FFFC0 Data 3005C0,33F5FF,303003,32B0C3,3E3FCF,32000C,303F0C,3FF3FC,5,3,3FC0,30FF,F023 Data C2C3,CC8F,C0BC,FF0C,F0C,D0C,D5C,FFC,3,8,FFFFC,C3C0C,C008C,C0F0F,FC8C3,C803 Data FC3F,3570,3030,30F0,3FC0,9,7,,,,3FFF,3003,3333,3003,FF3F,C2A3,C153,FFFF Data 10,10,3FF003,3333FF,303003,0,3FF3FF,8030,3FF3FF,0,3FF3FF,307333,FC303 1 Open "x.s"For output As#1:Print #1,"16,8":Do :Read a$:Loop Until a$="s" For i=1To 8:For j=1To 14:Read a$:b=Len(a$):v$(j)="":If b=1Then:v$(j)=v$(Val(a$)) Else :For k=1To b Step 2:n=Val("&h"+Mid$(a$,k,1)):r$=Mid$(a$,k+1,1):For l=1To n v$(j)=v$(j)+r$:Next l,k:EndIf :Print #1,v$(j)+" ":Next j:Print #1,Space$(16) Print #1,Space$(16):Next i:Close #1:Restore :Return :Data s,E0,1,1,1,1,1,1,1,1,1,1,1,1 Data 1,E0,1,1,3016601630,4016401640,5016201650,602660,7,6,5,4,1,1,1,2210821022 Data 1,E0,1,1,1,1,1,1,1,1,3,1,1,4410441044,1,E0,14104410441024,4,3,1,1,3,4,4,3 Data 1,1,2730443027,2720642027,2710841027,27102445241027,271014154415141027 Data 27111564151127,2711841127,7,7,10171184111710,1031643110,2031443120,308130 Data 406140,406140,308130,2031443120,1031643110,10171184111710,2711841127,6,6 Data 27111564151127,271014154415141027,27102445241027,2710841027,2720642027 Data 2730443027,9750,A71130,507120,203415443110,1034156431,34158421,6,6,6,5,4,3 Data 2,1,5097,3011A7,207150,103144153420,3164153410,21841534,6,6,6,5,4,3,2,1 Description for those who want to understand (unbelievable) what's going on ..... Sokoban for the Color Maximite 1 This game is writte for the 2021 Color Maximite programming challenge. The challenge is to write a program where the whole listing fit's on a CMM2 screen (48 lines @ 100 chars). This is 37 lines of 80 characters, in line with the CMM1 screen. Using sprites 14x14 Game task: move the green boxes onto the yellow crosses. You (the Mario type guy) can only push the boxes, not pull. Typing lower case "r" reloads the current level. There are 20 levels. The level is shown in the left top corner. Mario is controlled using cursor keys. Cheat: by adding the line w=xx before the game,"pressing "r" will bring you to level xx Explain: ' TLS_game = Ten Line Sokoban (with Sprites) ' control by cursor keys-128 (128,129,130,131 => 0,1,2,3 => ^ V < >) ' playfield values 0=empty, 1=target, 2=block, 3=wall ' press "r" to redo the level 'z = size block 'x,y = position human 'e,g = new position human 'o,p = position onscreen 'n = ascii value key 'b,c = direction human 'd = done 'a$ = key pressed 'l,m = vars for decoding rooms / sprites 'i,j = counters 'k = value field f(i,j) 'f() = playing field 't() = target locations for the boxes 's = size playfield (sxs) 'q = boolean (human on target) 'w = level (0....nn) 'v$()= array to create sprites 'r$ = sprite pixel color 'h,u = not used History TLS is 10 line Sokoban: what can you do in 10 lines of code. TLSS is same with 18 additional levels, actually playable. TLS_game is the fancy 20 level game using sprites If you want to make additional levels: What is important Fields are maximum 11x11 determined by variable "s". Larger are possible but all provided levels must be adapted. The DATA statement needs 13 entries per level 1 - X coordinate guy (number 1 .. 11) 2 - Y coordinate guy (number 1 .. 11) 3.....13 : field information The field information uses 2 bits per cel &b00 = empty &b01 = target (destination field) &b10 = box &b11 = wall There is one caveat: due to the above definition it is not possible to add a level that starts out with one or more boxes already on it's destination. If a field is smaller, simply add blanks (,,) until you have 13 entries. PicomiteVGA PETSCII ROBOTS |
||||
 Print this page |
