Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|390\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> JSE - Jay's Scripting Engine
Page : 1 2 Prev 3 4 Next 5 6 7 8 9 10 11 12 13 14
Tue, 04 May 2021, 08:40
Jayenkai	// Dice Roller // An And/Or tester, albeit one that doesn't include any or's // by Jayenkai // Created 2021/05/01 Symbol 1,"1__0F_F?0F_F_F_F_F_F_F_F_F_F!vvF_F.v.F_F,v.F_F.vvF_F_F_F_F_F_F_F_F_F!0F_F?"; Symbol 2,"1__0F_F?0F_FFvvF_F.v.F_F,v.F_F.vvF_F_F_F_F_F_F_F_F_F_F_F,vvF_F.v.F_F,v.F_F.vvF_FF0F_F?"; Symbol 3,"1__0F_F?0F,vvF_F.v.F_F,v.F_F.vvF_F_F_F/vvF_F.v.F_F,v.F_F.vvF_F_F_F/vvF_F.v.F_F,v.F_F.vvF,0F_F?"; Symbol 4,"1__0F_F?0F,vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF_F_F_F_F_F_F_F_F_F_F_F,vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF,0F_F?"; Symbol 5,"1__0F_F?0F,vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF_F_F@vvF_F.v.F_F,v.F_F.vvF_F_F@vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF,0F_F?"; Symbol 6,"1__0F_F?0F,vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF_F_F.vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF_F_F.vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF,0F_F?"; Graphics 640,480,1 hold=1 Started=0 CLS 60,120,200 SetCol 0,0,0;SetFontSize 64 Print "Dice Roller!" Print:Print:Print " Click to Roll" Repeat if MouseDown()<1 then hold=0 If ((MouseDown()>0) and (hold==0)) then CLS 60,120,200 ResetDraw SetCol 0,0,0 SetFontSize 64 Print "Dice Roller!" spin=Rand(10,30);hold=1;Flip dx1=jscrw0.4 dx2=jscrw0.6 if Started==0 then Started=1:JMTrackr(110,0,"C8G32r16r32>G8<G32r16r32C8G32r16r32>G8<G32r16r32\|<C8>A8G8A8<C8>A8G8r8\|C16E16G16B16<C16>B16G16E16C16r8r16r32r8r16r32\|r2<C16>B16G16E16C16r8r16\|C8<C16r16>G8<C16r16>C8<C16r16>G8<C16r16\|C4E4G4E4\|<C32r32C32r32C32r32C32r32C32r8r16r32E32r32E32r32E32r32E32r32E32r8r16r32\|<C32r32C32r16r32C32r32C32r8r16r32>G32r32G32r16r32G32r32G32r8r16r32\|<G32r16G32r16E32r32C16r2r8r16\|r1\|[d]\|C4C4C4C4\|C4D4C8C8D4\|C8G+8D8G+8C8G+8D8G+8\|r1\|"); Wait 0.25 PlaySFX("beeper_fruit_bonus"); endif if spin>0 then dx1=dx1+Rand(0-16,16) if dx1<32 then dx1=32 if dx1>(ScreenWidth()-32) then dx1=ScreenWidth()-32 dx2=dx2+Rand(0-16,16) if dx2<32 then dx2=32 if dx2>(ScreenWidth()-32) then dx2=ScreenWidth()-32 dy1=dy1+Rand(0-16,16) if dy1<320 then dy1=320 if dy1>(ScreenHeight()-32) then dy1=ScreenHeight()-32 dy2=dy2+Rand(0-16,16) if dy2<320 then dy2=320 if dy2>(ScreenHeight()-32) then dy2=ScreenHeight()-32 r1=r1+Rand(0-40,40) r2=r2+Rand(0-40,40) if ((Abs(dx1-dx2)<64) and (Abs(dy1-dy2)<64)) dx1=dx1-Rand(16,48) dx2=dx2+Rand(16,48) dy1=dy1+Rand(0-32,32) dy2=dy2+Rand(0-32,32) endif spin=spin-1 CLS 60,120,200;SetRot 0;SetSize 1 SetCol 0,0,0;SetFontSize 64 a=Rand(1,6) b=Rand(1,6) Print "Dice Roller!" if spin<1 then SetCol 255,255,255 if a==b then InkRot Mills(),0.5,1 endif Print "You rolled a "+a+"," Print " and a "+b+"." Print SetCol 0,0,0 if ((spin<1) and ((a+b)>2)) then Print "You scored "+(a+b) if ((spin<1) and ((a+b)==2) then Print " Snake Eyes!!";PlaySFX("beeper_fruit_extra"); SetRot r1;SetSize 2 DrawImg dx1,dy1,a SetRot r2 DrawImg dx2,dy2,b Endif flip Forever --v JSE A Dice Roller. Simply click on the screen to roll the dice. See if you can spot today's new additions. -=-=- ''Load, Next List!''
Fri, 07 May 2021, 12:17
Jayenkai	Today was the day for BODMAS. Oh, lordy, was it tricky.. But. .. I think I managed it. // Latest BODMAS Test Graphics 640,480,1 SetFontSize(16) repeat cls 80,30,30 Print "Bodmas Test" Print "1+23" Print Print 1+23+" <- Works" Print " "+1+23+" <- Incorrectly assumes first '1 +' should be acting as a string" // The result is "1" + (23) which is "1"+6, "16".. // In this case, I think I'm ok with it doing this. // I'm not really sure how else it should handle it. Print " "+(1+23)+" <- Works fine" Print (1+2)3+" <- Doesn't work.." // Incorrectly thinks you're asking // Print(1+2) then adding random stuff // on the end of the line, // for no apparent reason! Print ((1+2)3+" <- Does work.") // This time it knows what you're asking. Print If MouseX()>ScreenWidth()/2 and MouseY()<ScreenHeight()/2 then Rect ScreenWidth()0.5,0,ScreenWidth*0.5,ScreenHeight()/2 // Move your mouse over the top right to make it white. This line used to confuse the heck out of the poor thing! a=Mills()%1000<500 Print a+" <- Mills()%1000<500 - placed into a variable, then displayed" flip forever --v I can still manage to trip it up in a couple of places, but .. for the most part, it's seemingly working pretty well. BODMAS is going, and/or's are behaving, too. Pretty much the only thing that's currently failing repeatedly is "NOT".. And I'm NOT sure why. Next step.. Arrays. Aaaaaaaarggghhhh!!! -=-=- ''Load, Next List!''
Fri, 07 May 2021, 13:52
rockford	SOunds like it's really coming along nicely
Fri, 07 May 2021, 14:43
Jayenkai	I think so.. .. (Gawd, I hope so. if it all breaks at this point, I'll be super p'dof !) -=-=- ''Load, Next List!''
Fri, 07 May 2021, 16:01
Afr0	You should port Doom to this!! Or else, write a VM that can run Doom. It isnâ€™t a real language until it runs Doom -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Fri, 07 May 2021, 16:36
Jayenkai	Calm down, I've not even ported SpikeDislike, yet!! Need to get those arrays going, first. Trying to figure out how to decipher the numbers is proving to be quite tricky. -=-=- ''Load, Next List!''
Sat, 08 May 2021, 11:09
Jayenkai	5 Graphics 512,512,0 10 Print "Hello World" 11 a=Rand(1,10) 12 if a==1 then Gosub SmileBASICStyleLabel 13 if a==3 then Gosub BlitzStyleLabel 14 if a==5 then Gosub BMaxStyleLabel 15 if a==7 then Gosub 30 16 Wait 0.1 20 Goto 10 30 Print "Hello >> Line Thirty"; Return @SmileBASICStyleLabel Print "Hello >> SmileBASIC";Return .BlitzStyleLabel Print "Hello >> Blitz";Return #BMaxStyleLabel Print "Hello >> BlitzMax";Return --v Teehee Graphics 1024,1024,2 SetThick 4 Repeat If MouseDown<1 then tick=0 If MouseDown>0 If tick==0 then Move MouseX,MouseY tick=tick+1; LineTo MouseX,MouseY Endif Flip Forever --v -=-=- ''Load, Next List!''
Sat, 08 May 2021, 16:45
Jayenkai	View on YouTube Shit's coming on good! -=-=- ''Load, Next List!''
Sun, 09 May 2021, 08:59
Pakz	Does your code get translated to Javascript and runs at javascript speed? How does this work?
Sun, 09 May 2021, 09:30
Jayenkai	It's more interpreter than compiler, but semi compiled before it gets going. Everything gets reduced down to simple commands and references and the like. A ton of strings, which Javascript can more easily interpret. Eg, instead of "Print a+b" The "compiler" reduces it down to something more like 0=a, 1=b, 2=+, 3=Print. 0 becomes "the value of a" 1 the value of b 2, it subtracts "the number before" from "the number at zero" Then 3 prints what's at zero. The whole thing gets super confusing when you add brackets and BODMAS and stuff, but at its heart, everything is reduced to those simple singular commands which Javascript can fly through at a decent pace. Of course, It's not the "most" optimised way of doing it.. To speed things up a bit, I could convert keywords to numbers, then simply have to select/case those numbers instead of doing it with strings. .. but from what I've seen, that doesn't seem to make it "too" much quicker. Javascript doesn't seem to give a munkies whichever it's dealing with. Most of the bottleneck is from the whole javascript/canvas drawing methods. If I switched to WebGL that'd be a lot faster, but also less compatible with default settings. sheugs -=-=- ''Load, Next List!''
Sun, 09 May 2021, 11:19
Jayenkai	Today's mostly been spent staring at things like this.. Suffice to say.. Arrays still aren't working! -=-=- ''Load, Next List!''
Sun, 09 May 2021, 18:48
steve_ancell	Looks like it's coming along nicely, having the compiler reducing commands down to byte code is a bit like how Blitz3D works with a runtime.
Mon, 10 May 2021, 11:55
Pakz	Someone asked me if there is going to be a desktop version? I have no idea if this is possible with javascript though.
Mon, 10 May 2021, 14:35
Jayenkai	It kinda works. I mean, I'm doing all the dev-work using files sat on my hard drive. Thing is, though, Javascript has oodles of security things when it comes to running things on the desktop. It's .. Shall we say, slightly flawed like that. It also seems to lose all your saved data if the browser updates. The online save data is fine, but local-host saves don't appear to be permanent. Ask the person to visit Browsercade.com, close the browser, disconnect their internet, then head back to Browsercade.com without any internet access. If that works, then this should hopefully be able to do the same.. Once I've enabled that. I currently haven't, but will be doing so at a later point. -=-=- ''Load, Next List!''
Mon, 10 May 2021, 15:34
Jayenkai	// The Wall // Use your mouse to graffiti the wall! // by Jayenkai // Created 2021/5/10 Symbol 0,"0__5_9AB?5AB?C5B.C,5@B.59AB.C5AB,C,5B,"; Graphics 1024,1024,0 SetTilemapSize(64,64) x=0;y=0 Repeat y=0 Repeat SetTile(x,y,0) SetTileCol(x,y,(x+y)%8) y=y+1 Until y>=64 x=x+1 Until x>=64 Repeat CLS 40,40,80 scx=Sin(Mills()0.025)1024 scy=0-Cos(Mills()0.0134)1024 WrapTilemap 0-scx,0-scy x=Floor(((MouseX()+16)+scx)/32) y=Floor(((MouseY()+16)+scy)/32) If MouseDown() SetTileCol(x,y,8) endif Flip Forever --v Play with JSE here Added a basic Tilemap engine, today, 'cos .. you know... shrugs Why not make a tilemap!? -=-=- ''Load, Next List!''
Wed, 12 May 2021, 08:47
Jayenkai	// SpikeDislike // by Jayenkai // Created 2021/4/13 Symbol 0,"0__20!203044030,30030,404404004044040,30030,304403020!2"; Symbol 1,"0__00A,B0,A9AB,0A9AB.CAAB?CAAB?CB!CD0B.CD0,C,D"; Symbol 2,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/y0_0_0_0_0_0_0_;0_0_0_0y0;0;0y0_0_0_0;0_0_0_0_0_0_0_y"; Graphics 1024,720,2; AA Off SetTilemapSize(128,8) DebugMode 1 Highscore=0 Gosub Restart Repeat Button=Gamepad(ButtonA) or Gamepad(ButtonB) or Gamepad(ButtonRight)>0 or MouseDown() if Button==0 then bdis=0 If Ingame==0 then Gosub Menu If Ingame==1 then Gosub Game Flip Forever @Menu if Score>Highscore then Highscore=Score ResetDraw SetCol 255,100,100 SetFontSize 48 Text ScreenWidth0.5-64,(ScreenHeight0.4)+128,"Spike",1 Text ScreenWidth0.5+64,(ScreenHeight0.4)+160,"Dislike",1 SetCol 255,255,255 Text ScreenWidth0.5,(ScreenHeight0.4)+192,"Highscore : "+Highscore,1 SetSize 6,6 DrawImg ScreenWidth0.5,ScreenHeight0.4,0,0 if Button==1 and bdis==0 then Gosub Restart Return @Restart Passed=0 Score=0 ScoreShow=0 Combo=0 ComboTick=0 SuperCombo=0 Gap=360 Speed=0.6 Bounce=3.5 BounceRot=0 SpikesMade=0 BNoise=0 Delta=1 SpikeScroll=640 Ingame=1 bdis=1 n=0 repeat SeedRnd SpikesMade SetTileData(n,0,Rand(0,7)) SpikesMade=SpikesMade+1;SetTileData(n,1,SpikesMade) n=n+1 until n>10 return @Game CLS;ResetDraw ScoreShow=ScoreShow-((ScoreShow-Score)/5) if Abs(ScoreShow-Score)<1 then ScoreShow=Score if Button<0.5 then SuperCombo=0 dx=0 if Button>0.5 and bdis==0 then dx=Neg(-16) Starfield dx0.5,0,2 SpikeScroll=SpikeScroll+dx SetRot 0 was=Abs(Sin(BounceRot) (328)) BounceRot=BounceRot+(BounceDelta) is=Abs(Sin(BounceRot) * (328)) if is<was then BNoise=0 if is>was and BNoise==0 then PlaySFX("Beeper_Jingle_Up",1):BNoise=1 dead=0 SetFontSize 48 SetCol 180,255,180 Text ScreenWidth/2,32,Right("000000000000"+Floor(ScoreShow),12),1 ComboTick=ComboTick-2.5 if ComboTick<0 and Combo>0 thenPlaySFX("Beeper_2tone_Down"):Combo=0:SuperCombo=0 endif SetAlpha 0.5 if ComboTick>0 then Rect ScreenWidth/2,48,ComboTick2,16,1 SetAlpha 1 SetCol 0,96,0 Rect 0,((ScreenHeight()-64)+32),ScreenWidth(),8 SetCol 80,40,0 Rect 0,((ScreenHeight()-64)+40),ScreenWidth(),100 SetCol 255,180,96 SetSize 2 DrawImg 100,((ScreenHeight()-64)-is),1,0; px=100;py=((ScreenHeight()-64)-is); if SpikeScroll<0-Gap n=0 Repeat // Draw Spikes h=GetTileData(n+1,0) SetTileData(n,0,h) h=GetTileData(n+1,1) SetTileData(n,1,h) n=n+1 Until n>10 SeedRnd SpikesMade SetTileData(10,0,Rand(0,7)) SpikesMade=SpikesMade+1;SetTileData(10,1,SpikesMade) SpikeScroll=SpikeScroll+Gap endif n=0 Repeat // Draw Spikes x=(Gapn)+SpikeScroll h=GetTileData(n,0) y=(ScreenHeight()-64)-(h32) DrawImg(x,y,0,h) h=GetTileData(n,1);SetFontSize 12 Text(x,ScreenHeight()-16,h,1) d=Pyth(x,y,px,py) if d<32 then dead=1 d=Pyth(x-32,y-32,px,py) if d<31 then dead=1 d=Pyth(x+32,y-32,px,py) if d<31 then dead=1 d=Pyth(x-32,y+32,px,py) if d<31 then dead=1 d=Pyth(x+32,y+32,px,py) if d<31 then dead=1 if x<68 and h>Passed then Passed=h Combo=Combo+1 ComboTick=160 SuperCombo=SuperCombo+1 Score=Score+(Combo*SuperCombo) pitch=((Combo)/20)+1 if SuperCombo<2 then PlaySFX("beeper_2tone_up",pitch) if SuperCombo>1 then PlaySFX("beeper_4tone_up",pitch) endif n=n+1 Until n>10 If dead==1 then bdis=1:Ingame=0:PlaySFX("Explode_Low_1"):PlaySFX("Explode_Low_2"):PlaySFX("Beeper_Fall") Return --v -=-=- ''Load, Next List!''
Thu, 13 May 2021, 01:48
Dan	Hmm, please add "Select all" and "Paste" buttons.
Thu, 13 May 2021, 02:41
Jayenkai	Browser securities don't seem to like having a Javascript based paste. I can copy fine, but a ton of device/browser configurations seem to stop paste from working. What device/browser are you using? -=-=- ''Load, Next List!''
Thu, 13 May 2021, 15:22
Jayenkai	// For Test Graphics 512,512,1 CLS 40,40,80 for g=1 to 4 for e=1 to 5 step g txt="" if e<>3 then for f=0 to e step 0.5 txt=txt+f+", " next else txt="Skipped a 3" endif Print g+":"+e+" "+txt next Print next Print "-=-=-" Print for g=4 to 1 step -1 for e=5 to 1 step -g txt="" if e<>3 then for f=0 to e step 0.5 txt=txt+f+", " next else txt="Skipped a 3" endif Print g+":"+e+" "+txt next Print next --v ^ For loops! // Array Test Dim Name(4) Dim Age(4) i=0 Name(i)="Jay"; Age(i)=DateYear-1980; i=i+1 Name(i)="Platdude"; Age(i)=DateYear-1998; i=i+1 Name(i)="Greenie"; Age(i)=DateYear-1908; i=i+1 Name(i)="Spike"; Age(i)=DateYear-2010; i=i+1 Print Left(Name(3)+(" "8),8)+" : "+Age(3) Print Left(Name(1)+(" "8),8)+" : "+Age(1) Print Left(Name(0)+(" "8),8)+" : "+Age(0) Print Left(Name(2)+(" "8),8)+" : "+Age(2) --v Arrays!! I've had a productive day!! I need to sleep, now! -=-=- ''Load, Next List!''
Thu, 13 May 2021, 19:05
9572AD	You've gone a LONG way from CardAgain, mate!
Fri, 14 May 2021, 04:30
Jayenkai	Cardagain... Hmmm.. That's a good idea.. 25% complete.. Currently adding gameplay. -=-=- ''Load, Next List!''
Fri, 14 May 2021, 05:17
Dan	Windows 10, SrWare iron (chrome based browser) I asked for the buttons because it would make it easier to test the code. e.g. open the browser and click on the paste button. (p.s. i usually use the right-click-menue to paste the files, but it is disabled there)
Fri, 14 May 2021, 05:33
Jayenkai	Ctrl+V? I'm trying to work out an easy way to have a clickable link that automagically copies the code across, but getting that to work from the forum might not be easy. Trying to figure it out. I'll let you know. -=-=- ''Load, Next List!''
Fri, 14 May 2021, 08:04
Jayenkai	// Cardagain and again and again and again // by Jayenkai // Created 2021/5/14 Symbol 0,"1__0@v0_0?v,0_0.v,0_0,v?0_00v?0_0v/0_v/0@v_0/v_0/v_0@v/0_0v?0_0.v0_0.v?"; Symbol 1,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0!;_;_;_;0,;_;_;_;,0;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;_;;"; Symbol 2,"1__0_0_0_0_0_0_0_0_0_06_6,0,6_6?006_6?006_6?006_6?006_6?006_6?006_6?006_6?006_6?006_6?"; Symbol 3,"0__5_0!550!550!550!550!550!5_"; Symbol 4,"0__00Q.0,Q0.Q0Q0!QQ0!QQ0!QQ0!Q0Q0.Q0,Q."; Symbol 5,"0__0,WW0!WW0?W00W0.W00W0,W0.W00W0.W,0!W_"; Symbol 6,"1__0?J!0@J_J0?J,0!J,0,J,0@J,00JJ0_0JJ0JJ0_0,J.0_0,J.0_0,J.0_0,J.0_0,J.0_0,JJ0JJ0_0JJ00J,0@J,0,J,0!J,0?J_J0@J!"; Symbol 7,"0__C0!C0C0.C0,C00C0?CC0!CC0?C00C0,C0.C0C0!C"; Symbol 8,"0__0,ss0!ss0!ss0,s_s/0,ss0!ss0!ss"; Symbol 9,"0__0d0.d0,d00d0?dd0?d00d0.d00d0?dd0?d00d0,d0.d"; Symbol 10,"0__0X0.X00X,00X00X0.X00X0.X00X0.X00X0.X00X00X,00X0.X"; Symbol 11,"0__0050050,500500550050050,50050,500500550050050,50050,5005005"; Symbol 12,"0__0_KK0K0K00KK0K0K0?K0K00K.0K0/K00K!"; Symbol 13,"0__0_00RR0!RR0.R!00R0.R00R0.R00R!"; Symbol 14,"0__0_6!0060.6006,0060/6006!006"; Symbol 15,"0__0_f!0.ff0.f!0_0f!0,f00f"; Symbol 16,"0__s0!s0s0.s0,s00s0.s00s0.s00s0.s00s0,s0.s0s0!s"; Symbol 17,"1__0_0_04,0.4,0?4224400422440,424!24?04_4_4_4_4_4_4_4_4@04_4?004_4?0,4_4,0?4_40/4@0_4!0_004."; Dim order(50) Graphics 480,560,1 AntiAlias False Debugmode on Highscore=0 Score=0 ShowScore=0 Ingame=0 SetTilemapSize(5,5) mdis=1 LogoHigh=1 Repeat CLS 40,80,120;ResestDraw if LogoHigh>0.5 then LogoHigh=0.5 if LogoHigh<0.25 then LogoHigh=0.25 if MouseDown<1 then mdis=0 if Ingame==0 then Gosub Menu:LogoHigh=LogoHigh+0.01 if Ingame==1 then Gosub Game:LogoHigh=LogoHigh-0.01 Flip Forever .DrawLogo SetSize 6,6 DrawImg ScreenWidth/2-6,(ScreenHeightLogoHigh)-4,0 SetSize 1,1:SetFontSize 64 Text ScreenWidth/2,(ScreenHeightLogoHigh),"Card gain",1 SetFontSize 96 Text ScreenWidth/2,(ScreenHeightLogoHigh),"A",1 ResetDraw showscore=showscore-((showscore-score)/5) if Abs(showscore-score)<1 then showscore=score ResetDraw SetCol 180,255,180,0.7:SetFontSize 32 Text jscrw/2,16,Right$("00000000"+Floor(showscore),8),1 SetCol 180,200,255,0.5 Text jscrw/2,jscrh-16,"High : "+Right$("00000000"+Floor(Highscore),8),1 return .Menu ResetDraw Gosub DrawLogo if mdis==0 and MouseDown>0 mdis=1 Gosub LoadGame endif if Score>Highscore then Highscore=Score return .LoadGame for x=0 to 4 for y=0 to 4 SetTile(x,y,Neg(1)) next next Ingame=1 moving=8 lives=3 tick=0 stage=0 step=0 upto=0 playto=0 score=0 combo=0 showscore=0 level=0 shuffle=0 return .Game moving=moving-1 if moving<1 then moving=0 ResetDraw SetAlpha 0.1 Gosub DrawLogo ResetDraw canplay=0 if step==4 then canplay=1 for x=0 to 4 for y=4 to 0 step -1 c=GetTile(x,y) if c>Neg(1) sat=0 sx=GetTileOffsetX(x,y) sy=GetTileOffsetY(x,y) sx=sx0.84 if Abs(sx)<0.5 then sx=0 sy=sy0.84 if Abs(sy)<0.5 then sy=0 SetTileOffset(x,y,sx,sy) sp=GetTileScaleX(x,y) if sx==0 and sy==0 if sp<0.25 sp=(sp+Rnd(0.015,0.05))%1 moving=4 if sp>=0.25 sp=0.25 endif endif if sp>0.25 and sp<0.75 moving=4 sp=(sp+Rnd(0.015,0.05))%1 if sp>=0.75 then sp=0.75 endif if sp>0.75 moving=4 sp=(sp+Rnd(0.015,0.05))%1 endif if sp>=1 then sp=sp-1 endif sc=Sin(sp360) dx=(x80+80)+sx dy=(y100+75)+sy SetSize sc2,2 DrawImg(dx,dy-30,1) if sp<=0.5 then DrawImg(dx,dy-30,2) SetSize sc2,Neg(2) DrawImg(dx,dy+30,1) if sp<=0.5 then DrawImg(dx,dy+30,2) if sp>=0.5 then DrawImg(dx,dy,c+3) if sp==0.25 and moving==0 and canplay==1 if Abs(dx-MouseX())<35 and Abs(dy-MouseY())<45 if MouseDown()>0 and mdis==0 SetSize 1,1 if sp==0.25 then sp=0.26 order(playto+25)=c if order(playto+25)==order(playto) then PlaySFX("Beeper_4tone_Up"):combo=combo+1:score=score+(combocombo) if order(playto+25)<>order(playto) then PlaySFX("Beeper_4tone_Down"):combo=0 playto=playto+1 endif endif endif SetTileScale(x,y,sp,1) endif ResetDraw() sx=GetTileOffsetX(x,y) sy=GetTileOffsetY(x,y) dx=(x80+80)+sx dy=(y100+75)+sy next next if moving==0 then tick=tick+1 if ((step==0 or step==1) and tick>30) repeat x=Rand(0,4) y=Rand(0,4) c=0 if x>0 and GetTile(x-1,y)>Neg(1) then c=1 if y>0 and GetTile(x,y-1)>Neg(1) then c=1 if x<4 and GetTile(x+1,y)>Neg(1) then c=1 if y<4 and GetTile(x,y+1)>Neg(1) then c=1 if GetTile(x,y)>Neg(1) then x=Neg(1) if stage==0 and step==0 then x=2:y=2:c=1 if c==0 then x=Neg(1) until x>Neg(1) PlaySFX("Beeper_Fruit_Extra") SetTile(x,y,stage) SetTileScale(x,y,0.251,1) SetTileOffset(x,y,0,1024) step=step+1:tick=0 if step==2 and stage==0 stage=1:step=0 endif endif if step==2 and tick>90 for x=0 to 4 for y=4 to 0 step -1 sx=GetTileScale(x,y) SetTileScale(x,y,sx+0.05,1) next next PlaySFX("Beeper_Jingle_Up") step=3 for m=0 to stage order(m)=(m+1)-1 // That's an odd issue. next txt="" for m=0 to stage txt=txt+","+order(m) next for m=0 to stage r=Rand(0,stage) t=order(m) order(m)=order(r) order(r)=t order(m+25)=Neg(1) next txt="" for m=0 to stage txt=txt+","+order(m) next tick=0 upto=0 playto=0 endif if step==3 and tick>12 find=order(upto) for q=0 to 10 x=Rand(0,4):y=Rand(0,4) if GetTile(x,y)==find PlaySFX("Beeper_2tone_Up") tick=0 q=20 sx=GetTileScale(x,y) SetTileScale(x,y,0.26,1) upto=upto+1 if upto>stage then step=4 endif next endif txt="" txt2="" for m=0 to stage txt=txt+","+order(m) txt2=txt2+","+order(m+25) next if step==4 and upto==playto if txt==txt2 PlaySFX("Beeper_Rise",1) level=level+1 step=2:tick=0 if level>2 then step=5 endif if txt<>txt2 PlaySFX("Beeper_Fall",1) lives=lives-1 level=level-1 if level<0 then level=0 if lives>Neg(1) then step=2 if lives<0 then step=99 tick=0 endif endif if step==5 shuffle=shuffle+1 if shuffle<3 step=6 level=0 endif if shuffle>=3 and stage>12 step=2 level=0 endif if shuffle>=3 and stage<13 stage=stage+1 shuffle=0 level=0 step=0 endif endif if step==6 and tick>30 for m=0 to 200 x1=Rand(0,4) y1=Rand(0,4) f=Rand(0,1) if f==0 if y1==0 then y1=1 x2=x1 y2=y1-1 endif if f==1 if x1==0 then x1=1 x2=x1-1 y2=y1 endif d=GetTile(x1,y1) e=GetTile(x2,y2) if d>=0 and e>=0 if d<>e dx=(x1-x2)80 dy=(y1-y2)100 SetTile(x1,y1,e) SetTile(x2,y2,d) SetTileOffset(x1,y1,Neg(dx),Neg(dy)) SetTileOffset(x2,y2,dx,dy) tick=0 Shuffle=Shuffle+1 m=500 if Shuffle>3 then step=2 PlaySFX("Beeper_Jump") endif endif next endif if lives<0 and tick==60 then PlaySFX("Beeper_Toot_Lose",1) if lives<0 and tick>120 then Ingame=0 for x=0 to 2 SetAlpha 1 SetCol 80,0,0 SetSize 1 if x<level then SetCol 80,180,80 Rect ((jscrw-140)+(x12),8,8,16)) SetSize 0.5 if x+1>Lives then SetAlpha 0.3 DrawImg 100+x*18,16,17 next Text 32,32,Stage,1 return --v ^ Cardagain! JSE is here -=-=- ''Load, Next List!''
Sat, 15 May 2021, 06:52
Dan	Here is my wishlist for the Sprite(symbol) editor: Mirror, Flip, Copy and Paste (or at least duplicate the current image ?!), move the graphics up/down/left/right. And maybe set the right mouse button to erase or to second color.
Page : 1 2 Prev 3 4 Next 5 6 7 8 9 10 11 12 13 14