SmileBASIC Switch - Sale

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|513\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Console Coding -> SmileBASIC Switch - Sale
Page : 1 2 3 Prev 4 5 Next 6 7
Mon, 01 Aug 2022, 08:26
spinal	Screenshots to the rescue! Invert colours, reduce palette, Online OCR, cleanup... ' MAIN. PRGw GCLS CLS XSCREEN 1280,720,1,2 'GTarget 4 'PRINT â€œMAKING RANDOM BACKGROUND" 'GTARGET 4 'FOR Y = 6 TO 2047 ' FOR X = Â© TO 2647 ' GCOLOR_ RGB(RND (255) , RND (255) , RND (255)) ' GPSET X,Y ' NEXT 'NEXT 'GTarget 4 'PRINT "SAVING BACKGROUND" 'GTARGET 4 'SAVEG "SPRITE_TEST",4 'GTarget 4 'PRINT "DONE!" DIM INPUTBUFFER[20482048+1024] VAR DATACOUNTER=6 DIM PALETTE[3, 256] DIM B[16] VAR IMGWIDTH = 0 VAR IMGHEIGHT = 0 VAR IMGSTART = 0 VAR IMGBIT = 0 VAR NUMCOLS = 0 VAR IMGCOMP = 0 ' WHILE (1) ' LOCATE 0,154 ' STICK 0,0 OUT X1,Y1 ' PRINT "FINISHED:";INT(X4+.7);" " ' WEND DOTEST END DEF GETBUTTONS B[0] = BUTTON(0, #B_R2) B[1] = BUTTON(0, #B_L2) B[2] = BUTTON(0, #B_R1) B[3] = BUTTON(0, #B_L1) B[4] = BUTTON(0, #B_RUP) B[5] = BUTTON(0, #B_RRIGHT) B[6] = BUTTON(0, #B_RDOWN) B[7] = BUTTON(0, #B_RLEFT) B[8] = BUTTON(0, #B_LSTICK) B[9] = BUTTON(0, #B_RSTICK) END DEF CHECKDATA DATACOUNTER, NUM CASE (DATACOUNTER) 4 WHEN 10: IMGSTART = NUM WHEN 14: IMGSTART = IMGSTART OR (NUM << 8) WHEN 12: IMGSTART = IMGSTART OR (NUM << 16) WHEN 13: IMGSTART = IMGSTART OR (NUM << 24) WHEN 14: PRINT IMGSTART WHEN 18: ' IMAGE WIDTH 4 BYTES MGWIDTH = NUM WHEN 19: IMGWIDTH = IMGWIDTH OR (NUM << 8) WHEN 20: IMGWIDTH = IMGWIDTH OR (NUM << 16) WHEN 24: IMGWIDTH = IMGWIDTH OR (NUM << 24) PRINT "WIDTH = "; IMGWIDTH WHEN 22: ' IMAGE HEIGH 4 BYTES IMGHETGHT = NUM WHEN 23: IMGHEIGHT = IMGHEIGHT OR (NUM << 8) WHEN 24: IMGHEIGHT = IMGHEIGHT OR (NUM << 16) WHEN 25: IMGHEIGHT_= IMGHEIGHT OR (NUM << 24) PRINT "HEIGHT = "; IMGHEIGHT WHEN 28: IMGBIT = NUM 'PRINT â€œBIT DEPTH = ";IMGBIT NUMCOLS = 16 IF IMGBIT == 8 THEN NUMCOLS = 256 PRINT "COLOURS = ";NUMCOLS WHEN 30: ' IMAGE COMPRESSIONS IMGCOMP = NUMJ 'PRINT â€œCOMPRESSION = â€; IMGCOMP4 CASE (IMGCOMP) WHEN 0: 'PRINT "UNCOMPRESSED" WHEN 1: 'PRINT "RLE 8-BIT" WHEN 2: 'PRINT "RLE 4-BIT" ENDCASE GCOLOR RGB (255,255,255) GFILL 255,06, 255+128,128 ENDCASE END DEF DOTEST BPRESS = 0 FINISHED = 6 STARTED = 0 WHILE (FINISHED==0) LOCATE 6,15 'PRINT â€œFINISHED:" ;BUTTON(0,#B_RSTICK) ;" " PRINT â€œFINISHED:";%4;" " 'STICK 0,8 OUT X1, Y1 WHILE (BUTTON (0, #B_RSTICK) ==1) STARTED = 1 IF BUTTON(@,#B-LSTICK) == BPRESS THEN LOCATE 9,10 PRINT "IMGWIDTH:"; IMGWIDTH;" PRINT "IMGHEIGHT:";IMGHEIGHT;" PRINT "IMGSTART:";IMGSTART;" PRINT "IMGBIT:" ;IMGBIT;" PRINT "NUMCOLS:";NUMCOLS;" PRINT "IMGCOMP:";IMGCOMP;" PRINT "STARTED:";STARTED; ' GRAB SOME BUTTON PRESSES TO REPRESENT BYTES4 GETBUTTONS STICK 0,0 OUT X1,Y1 NUM = (B[6]<<7) OR(B[1]<<6) OR (B[2]<<5) OR (B[3]<<4) OR (B[4]<<3) OR (B[5]<<2) OR (B[6]<<4) OR B[7] INPUTBUFFER[DATACOUNTER]=NUM ' THIS FUNCTION CHECKS IF THE INPUT BYTE IS NEEDED, IF SO ITâ€™S USED CHECKDATA DATACOUNTER, NUM ' LOAD THE PALETTE4 IF (DATACOUNTER >=54 AND DATACOUNTER < 54+(NUMCOLS4)) THEN OLDINDEX = MYINDEX MYINDEX = INT(DATACOUNTER -54)/4) IF OLDINDEX != MYINDEX THEN COLOURNUMBER = 0 IF DATACOUNTER == 54 THEN COLOURNUMBER = 2 'PRINT MYINDEXs CASE (COLOURNUMBER) WHEN 0: PALETTE[2,MYINDEX] = NUM WHEN 1: PALETTE[1,MYINDEX] = NUM WHEN 2: PALETTE[0,MYINDEX] = NUM WHEN 3: GCOLOR RGB(PALETTE[9, MYINDEX], PALETTE[1,MYINDEX],PALETTE[2,MYINDEX]) GFILL 256+ (X8),1+(Y8), 256+ (X8) +6, Y8 +7 IF X == 16 THEN X = O Y=Y+1 ENDIF ENDCASE COLOURNUMBER = COLOURNUMBER + 1 ENDIF IF IMGSTART != 0 THEN IF DATACOUNTER == IMGSTART THEN Y = IMGHEIGHT-1 CLS ENDIF IF DATACOUNTER >= IMGSTART THEN 'DRAW THE IMAGE GCOLOR RGB (PALETTE[0,NUM],PALETTE[1,NUM],PALETTE[2,NUM]) GPSET X,Y GTARGET 4 GPSET _X,Y GTARGET O X=X+1 IF X == IMGWIDTH THEN X = O Y=Y-1 IF Y<0 THEN FINISHED = 1 ENDIF ENDIF ENDIF DATACOUNTER = DATACOUNTER + 1 WHILE BUTTON(0, #B_LSTICK) ==BPRESS WEND ENDIF WEND ' GETTING DATA 'IF STARTED == 1 THEN 'FINISHED = 1 'ENDIF WEND GTarget 4 PRINT "SAVING BACKGROUND" GTARGET 4 SAVEG "SPRITE_TEST" ,4 GTarget 0 PRINT "DONE!" END --v Probably only about 95% correct, but a good start. -=-=- Check out my excellent homepage!
Thu, 04 Aug 2022, 14:54
Jayenkai	Answer : Not well. The quality of a Switch's jpeg is shockingly poor. I mean lost look at this.. Cropped and Zoomed. It's horrific!!!! I guarantee, that hasn't been falsified.. That's literally how bad the screenshots on a Switch are. Aaack.. The white isn't even 255,255,255 all the way through. How on earth are you supposed to extract data from that kind of a screenshot? Good grief.. Full image of data -=-=- ''Load, Next List!''
Fri, 05 Aug 2022, 03:54
spinal	What about a coded pattern instead, something like a QR code? If your using a screenshot, then you will always get the angle correct, so there will be no warping or anything like that. Even just straight up binary, theres a lot of screen space to use. -=-=- Check out my excellent homepage!
Fri, 05 Aug 2022, 04:13
Jayenkai	I was looking into QRCode Code about a week ago, and it blew my mind how overly complex it was!!! Today I'm trying binary "0 or 255".. Will let you know in a short while how well it went. (See tweet for the output!) -=-=- ''Load, Next List!''
Fri, 05 Aug 2022, 04:26
spinal	wait, so I can make my gfx loader a 'tool' and load it from whatever project i'm in, then when it saves the image, it will save it in the current project? -=-=- Check out my excellent homepage!
Fri, 05 Aug 2022, 04:42
Jayenkai	Download JNK_Spriter and take a look at its code. > 4K4QQF3N4 -=-=- ''Load, Next List!''
Fri, 05 Aug 2022, 04:48
spinal	Today I'm trying binary "0 or 255" So 3 bits per 'pixel'? -=-=- Check out my excellent homepage!
Fri, 05 Aug 2022, 05:00
Jayenkai	Yeah, well per square, anyway... :/ I've squeezed 4 JNKPlat levels down to this. Format name at the top, then 4 sets of level data, then "FIN" Seems to work out well enough. -=-=- ''Load, Next List!''
Fri, 05 Aug 2022, 05:20
spinal	I bet that could be used to send source code also! I bet meybe 3 or 4 levels of brightness could survive the jpg'ing... -=-=- Check out my excellent homepage!
Fri, 05 Aug 2022, 05:31
Jayenkai	Also, I'm actually using a 424x240 (3x scaled up) resolution. If you used a 1280x720 then it'd hold ...? 9* as much data, but .. would it be too small to be clear when screenshotted? -=-=- ''Load, Next List!''
Fri, 05 Aug 2022, 05:47
spinal	Yeah, I wouldn't suggest hi-res, but keep it as integer multiples so It can be downscaled accurately. -=-=- Check out my excellent homepage!
Fri, 05 Aug 2022, 07:39
Jayenkai	There we go!! I can now edit a level on the Switch and extract the level data from a screenshot, using a PHP script on the Mac. OK, next job, build up a sturdy level editor. > Reveal 🔎 Data Image SmileBASIC Code PHP Code <?php $img=imagecreatefromjpeg("FZZpvLmUEAEWiYL.jpeg"); $w=imagesx($img); $h=imagesy($img); $GridW=12; $GridH=12; $OffX=4; $OffY=0; $rx=$OffX; $ry=$OffY; $x1=Floor($GridW0.5); $y1=Floor($GridH0.5); $x2=$x1+$GridW; $y2=$y1; $x3=$GridW; $y3=$y1+$GridH; $u=0; $out="";$count=0; $a=0;$b=0;$c=0; $wr=0; while ($ry<$h) { $count++; $cr=0; $r1=0;$g1=0;$b1=0; $r2=0;$g2=0;$b2=0; $r3=0;$g3=0;$b3=0; for ($x=-1;$x<2;$x++){for ($y=-1;$y<2;$y++){ $c1=imagecolorat($img,$x+$rx+$x1,$y+$ry+$y1); $c2=imagecolorat($img,$x+$rx+$x2,$y+$ry+$y2); $c3=imagecolorat($img,$x+$rx+$x3,$y+$ry+$y3); $r1+= ($c1 >> 16) & 0xFF; $g1+= ($c1 >> 8) & 0xFF; $b1+= $c1 & 0xFF; $r2+= ($c2 >> 16) & 0xFF; $g2+= ($c2 >> 8) & 0xFF; $b2+= $c2 & 0xFF; $r3+= ($c3 >> 16) & 0xFF; $g3+= ($c3 >> 8) & 0xFF; $b3+= $c3 & 0xFF; }} $r1=Floor($r1/9); $r2=Floor($r2/9); $r3=Floor($r3/9); $g1=Floor($g1/9); $g2=Floor($g2/9); $g3=Floor($g3/9); $b1=Floor($b1/9); $b2=Floor($b2/9); $b3=Floor($b3/9); $v=0; if ($r1>128) {$v+=128;} if ($g1>128) {$v+=64;} if ($b1>128) {$v+=32;} if ($r2>128) {$v+=16;} if ($g2>128) {$v+=8;} if ($b2>128) {$v+=4;} if ($r3>128) {$v+=2;} if ($g3>128) {$v+=1;} if ($b3>128) {$cr=1;$u=-1;} if ($cr==0) {$out.=chr($v);} $wr++; if ($cr==1 \|\| $wr==26) {$out.=chr(10); $wr=0;} $rx+=($GridW2); if ($rx+$OffX>=$w) {$rx=$OffX;$ry+=$GridH2;} $a=$b;$b=$c;$c=$v; if ($a==70 && $b==73 && $c==78) {$ry=$h+1000;} } echo "Count ".$count.chr(10); echo $out.chr(10); imagedestroy($img); ?> --v Updated with screenshot of SmileBASIC code -=-=- ''Load, Next List!''
Tue, 09 Aug 2022, 14:06
spinal	I wonder if I've found a bug... I've put a check in my code to select the controller number by pressing L+R and the start. But if my fake controller is USB controller 2, it will not detect the buttons. So either this doesn't do what I think it does... OR smilebasic doesn't like 2 USB controllers? -=-=- Check out my excellent homepage!
Tue, 09 Aug 2022, 14:33
Jayenkai	Just a check.. Did you set up the Switch to two-controller mode? You need to specify how many controllers you're going to be accessing. See "XCtrlStyle" command. -=-=- ''Load, Next List!''
Tue, 09 Aug 2022, 15:17
spinal	Ah, OK. Silly me for assuming that it would automatically work. Now to figure out why I can't decode a 2 colour bitmap correctly... \|edit\| Are variables supposed to be global? there seems to be a little inconcistancy with mine -=-=- Check out my excellent homepage!
Tue, 09 Aug 2022, 16:51
Jayenkai	As long as you declare them (var xyz) at the top, they should be. Anything not declared seems to be pot luck I think the rule is, if you start using a variable, then go into a function, that function has access to the parent's variable. But if you hop into a function start using a variable, then come back out and carry on using it, it doesn't carry the value.. Basically, its less "global" and more stack based.. The earlier you register it, the more you can use it. -=-=- ''Load, Next List!''
Thu, 18 Aug 2022, 04:58
spinal	Had to write the oled driver by hand because every library I found used Serial to print debug data, which is not included in the switch controller usb stack. -=-=- Check out my excellent homepage!
Thu, 18 Aug 2022, 05:07
Jayenkai	Epic! I look forward to the results.
Thu, 25 Aug 2022, 15:05
spinal	Arduino part driving me crazy again. if(digitalRead(DPAD_DOWN)==LOW){ while(digitalRead(DPAD_DOWN)==LOW){;} fileNumber++; updateList=true; }else if(digitalRead(DPAD_UP)==LOW){ while(digitalRead(DPAD_UP)==LOW){;} fileNumber--; updateList=true; } if(updateList==true){ updateList=false; bool done=false; int l = 0; int start = fileNumber; if(start<0)start=0; int ending = start+3; if(ending>=maxFiles)ending=maxFiles-1; File root = SD.open("/"); while(done==false){ File entry = root.openNextFile(); if (entry){ char tempText[32]; if(l==fileNumber){ sprintf(tempText,">%s ",entry.name()); }else{ sprintf(tempText," %s ",entry.name()); } if(l>=start && l<=ending){ int s = -start+l+1; if(s>0 && s<7) myPrint(0,s,tempText); } sprintf(tempText," %d, %d ",fileNumber, maxFiles); myPrint(0,0,tempText); l++; if(l>maxFiles)maxFiles=l; entry.close(); }else{ done=true; } entry.close(); } } OLED_updateScreen(); --v I don't have enough RAM left to just dump the filenames into an array, so I tried just listing all the files each time, but it stops working when fileNumber = 9 (sometimes 8).... no idea why yet. -=-=- Check out my excellent homepage!
Mon, 31 Oct 2022, 04:26
spinal	Finally decided to get back to this... -=-=- Check out my excellent homepage!
Mon, 31 Oct 2022, 05:27
Jayenkai	.. not sure what's going on there!!
Mon, 31 Oct 2022, 06:50
rockford	I'm sure there's some logic there, but like Jay, I haven't got a clue what's going on there either.
Mon, 31 Oct 2022, 07:13
spinal	Oh, you guys will like it. The logic is only partially in place, finding it tricky to code on the switch, it think the editor is a bit crap. -=-=- Check out my excellent homepage!
Mon, 31 Oct 2022, 07:50
Jayenkai	What's wrong with the editor? I haven't had any issues. My biggest issue with the language in general is that I keep leaving out then's in multi-line if's. -=-=- ''Load, Next List!''
Mon, 07 Nov 2022, 16:28
spinal	Apparently I have a type mismatch error in 637 that I just can't see Update buttons is called first. Edit. Fixed -=-=- Check out my excellent homepage!
Mon, 14 Nov 2022, 03:06
spinal	View on YouTube Very simple game, struggling to code it, but still, very simple game. Turn over a card, the number value of that card dictates how many moves you have to make befor turning over the next card. There are of course other rules to be added, obvious "card doesn't have a number value" situations, but that's all taken care of in my head. -=-=- Check out my excellent homepage!
Page : 1 2 3 Prev 4 5 Next 6 7