Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|729\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> Gotojse sharing on forum
Sat, 14 May 2022, 10:10
Pakz	Gotojse sharing on forum Ok. I have made something and would want to share it here on the forum. I am using a iphone. I pressed the globe button and the site asks if I would like to share it. I get taken to a page where there is a line of text asking me what to share. I can select nothing. The download or export project also seems to compres a project but gives me nothing. There is nothing in the files app download folder either. How do I post my code here? Edit: my phone keyboard does not have a tab key I think I can space it. But while working on things. This can get involved.
Sat, 14 May 2022, 11:55
Jayenkai	As far as the globe goes, click the screen and it copies that shortcut code, which is a link to your uploaded version. But you don't need to do that. JSE is forum friendly. Just copy & paste your source code between [jse] tags. -=-=- ''Load, Next List!''
Sat, 14 May 2022, 12:16
Pakz	Ah, ok. I could not find it in the bbcode help. Wil post something when I added/fixed the latest features.
Sat, 14 May 2022, 13:09
Pakz	Ok messy, buggy, unpolished game. Pea, meat and potato Spear peaâ€™s, grab meat. 5 meat turns into 1 potato. Ps - enable touch screen controls. // pea meat and potato // by <Your Name Here!> // Created 2022/5/13 Symbol 0,"0__0,440!440!440,4_4/0,440!440!44"; Symbol 1,"0__0_0_0440?4.0.4.0?44"; Symbol 2,"1__0_0_0_0_0_0_0_0_0_0_0,x0_0/z0D?EEDDEEDzyy;0_0?z0_0?x"; Symbol 3,"1__0_0_0_0_0_0_QNNQ0_00QO.Q0_PRM;;MRP0/PQS4SS4SQP0!PQROMMORQP0!QQPQvvQPQQ0/SRQSSQRS0_RQNNQR0_00RQQR"; Symbol 4,"1__0_0_0_0_11210_00242442;z0@5312,10_542112,;z0!5541212420/;522121210/z542,3120_64451220_;6652450_z00656:10_0?y;;0_0?z;"; Symbol 5,"1__0_0_0_0_0_0_0E,0_00EEDDCDE0@ED,CBCDE0!ED,CBBCDE0!DDC?DDE0?DBCDDC,DDE0?ED,CD.E0!EDED,EDDE0/ED!E0_E!"; nummeat = 0 // 5 meat + 1 potato numpotato = 0 Graphics 512,512,1 Print "Hello World" firedelay = 0 dim sp(32,32) maxsp = 10 sp(0,0)=false sp(0,1)=screenwidth()/2 sp(0,2)=screenheight()/2 sp(0,3)=0 sp(0,4)=50 //state sp(0,5)=0 dim ai(32,32) maxai=32 for i=0 to 16 ai(i,0)=true ai(i,1)=rand(screenwidth()) ai(i,2)=50 ai(i,4)=3 //direction ai(i,3)=rand(358) next px = screenwidth()/2 py = screenheight()/2 pangle = -90 plen = 48 repeat cls gosub drawline gosub updatespears gosub drawupdateai gosub pinput gosub collision gosub drawscore flip forever .drawscore if nummeat>0 then for i = 1 to nummeat drawimage 16,32+i32,4 next endif if numpotato>0 then for i=1 to numpotato drawimage 16,16+256+i32,5 next endif return .drawupdateai setrot 0 for i=0 to maxai if ai(i,0)==true then if ai(i,5)==true then ai(i,1)=sp(ai(i,6),1) ai(i,2)=sp(ai(i,6),2) q1=sp(ai(i,6),3) ai(i,1)=ai(i,1)+(cos(q1)32) ai(i,2)=ai(i,2)+(sin(q1)32) endif drawimage ai(i,1),ai(i,2),ai(i,4) if ai(i,4)==3 then ai(i,1)=ai(i,1)+cos(ai(i,3))/4 ai(i,2)=ai(i,2)+sin(ai(i,3))/4 if rand(50)==1 then ai(i,3)=rand(359) endif if rand(50)==1 then ai(i,3)=atan2(screenwidth()/2-ai(i,2),screenheight()/2-ai(i,1)) end if endif endif next return .pinput if gamepad(dpadleft,5) then pangle=pangle-3 endif if gamepad(dpadright,5) then pangle=pangle+3 endif firedelay = firedelay - 1 if firedelay < 0 and gamepad(buttona,5) then firedelay=20 for i=0 to maxsp if sp(i,0)==false and then sp(i,0)=true sp(i,1)=screenwidth()/2 sp(i,2)=screenheight()/2 sp(i,3)=pangle sp(i,4)=50 sp(i,5)=0 sp(i,6)=-1 exit 1 end if next endif return .pinputx if mousedown() then if mousex()<screenwidth()/2 then pangle=pangle-3 else pangle=pangle+3 endif endif return .drawline tx = px+cos(pangle)plen ty = py+sin(pangle)plen drawline px,py,tx,ty setrot pangle drawimage px,py,2 return .updatespears for i=0 to maxsp if sp(i,0)==true setrot 0 drawline sp(i,1),sp(i,2),screenwidth/2,screenheight/2 setrot sp(i,3) drawimage sp(i,1),sp(i,2),2 if sp(i,5)==0 then sp(i,1)=sp(i,1)+cos(sp(i,3))10 sp(i,2)=sp(i,2)+sin(sp(i,3))10 else sp(i,1)=sp(i,1)-cos(sp(i,3))10 sp(i,2)=sp(i,2)-sin(sp(i,3))10 endif if sp(i,5)==0 then sp(i,4)=sp(i,4)-1 if sp(i,5)==1 then sp(i,4)=sp(i,4)+1 if sp(i,4)<0 then sp(i,5)=1 if sp(i,4)==50 then sp(i,0)=false nummeat=nummeat+1 if nummeat == 5 then nummeat=0 ; numpotato=numpotato+1 if sp(i,6)>-1 then ai(sp(i,6),0)=false endif endif next return .collision for i = 0 to maxsp if sp(i,0) ==true then for j= 0 to maxai if ai(j,0)==true and ai(j,4)==3 then if collidepointtocircle(sp(i,1),sp(i,2),ai(j,1),ai(j,2),32,32)==true then //ai(j,0)=false ai(j,4)=4 ai(j,5)=true ai(j,6)=i sp(i,5)=1 sp(i,6)=j //sp(i,0)=false exit 2 endif endif next endif next return --v Edit : I also tried to use gotojse outside with no internet connection. This seems to work without problems. I think I need to be sure every page had been loaded before. Editing code and gfx and compiling works.
Sat, 14 May 2022, 14:59
Jayenkai	What a bizarre game!!
Sun, 15 May 2022, 07:00
Jayenkai	Possible Tweaks.. Input You've specified Port 5 for the input. This means your game only plays when someone's playing with the onscreen controls. Most people probably won't even activate those. Instead, leave out the port number (or use port -1) and the game will run on all devices, whether the user is using those onscreen controls, or keyboard, or gamepad.. Pickup Failure The game currently picks up "nothings" from off the edge of the screen. -=-=- ''Load, Next List!''
Sun, 15 May 2022, 07:12
Pakz	The sprites on the left side of the screen are the score? There is a bug where the harpoon retracts and grabs things. Also sometimes a sprite does not get disabled once picked up. I was trying to do a screen fade just yet. I did not want to use a bresenham circle. i did a distance check between the pixels in a cos sin circle. It is a bit slow. I think it is to slow to put into the snippets on the site here. // circle fade in // by <Your Name Here!> // Created 2022/5/15 Graphics 512,512,1 Print "Hello World" px = screenwidth()/2 py = screenheight()/2 d = 0 cnt=1 repeat cls 40,100,0 setscale 4,4 drawtext screenwidth()/8,screenheight()/2,"Welcome!" setscale 1,1 if d<screenwidth()/1.5 then gosub fadeout flip forever end .fadeout // step value for circle between pixels // decrease the step until distance is less then 1 pixel. st = 10 repeat st=st-.1 until distance(cos(0)d,sin(0)d,cos(0+st)d,sin(0+st)d)<.6 // draw the circle. lines from the edges to the circle edges. // also top and botton to circle edges. setcolor 0,0,0 top = screenheight() bottom = 0 for i=0 to 360 step st drawrect px+cos(i)d,py+sin(i)d,2,2 if i>90 and i<270 then drawline px+cos(i)d,py+sin(i)d,0,py+sin(i)d else drawline px+cos(i)d,py+sin(i)d,screenwidth(),py+sin(i)d endif q=py+sin(i)*d if q<top then top=q if q>bottom then bottom=q next fillrect 0,0,screenwidth()+1,top fillrect 0,bottom,screenwidth()+1,screenheight()-bottom d=d+cnt cnt=cnt+.5 return --v
Sun, 15 May 2022, 07:24
Jayenkai	Tip 1.. There's a DrawCircle/DrawOval instead of 360 lines. Tip 2.. There's a SetThick to make the line thicker. All you have to do is "draw" (not fill) a circle, and slowly reduce the width of its line. Graphics 512,512,1 For x=0 to 900 step 4 CLS:ResetDraw SetCol 0,120,0:Rect 0,0,512,512 SetCol 0,128,255:SetFontSize 32:Text 256,256,"Hello World",1 SetCol 0,0,0 SetThick 900-x DrawOval 256,256,900,900,128 Flip next --v Why not try mixing in some SetBlend, too! Graphics 512,512,1 For x=0 to 900 step 4 CLS:ResetDraw SetCol 0,120,0:Rect 0,0,512,512 SetCol 0,128,255:SetFontSize 32:Text 256,256,"Hello World",1 SetBlend 5 SetCol 255,255,255 SetThick 900-x DrawOval 256,256,900,900,128 Flip next --v -=-=- ''Load, Next List!''
Sun, 15 May 2022, 07:29
Pakz	Ok, that is a much easier way! You should write a book

Gotojse sharing on forum