Is it possible to make destructible landscapes like worms, in AGK?

Author

Message

Zubby1970

AGK Backer

16

Years of Service

User Offline

Joined: 22nd May 2008

Playing: AGK Studio Always

Posted: 31st Oct 2013 02:26

Link

Is it possible to make destructible landscapes like worms, in AppGameKit?

what I would like to do is to be able to cut out a circle where an explosion takes place , but not sure of which command I should use.

Thanks for any advice.

There can only be one

Back to top

Profile PM Email Website

Ancient Lady

Valued Member

20

Years of Service

User Offline

Joined: 17th Mar 2004

Location: Anchorage, Alaska, USA

Posted: 31st Oct 2013 03:14

Link

There aren't any commands that do that. It is something you would have to work out.

Having played almost all versions of Worms, I think I know what you are looking for and it might be hard to do in a game timely fashion in AGK.

But, maybe someone else has worked out something like that.

Cheers,
Ancient Lady
AGK Community Tester and AppGameKit Master

Back to top

Profile PM

xCept

21

Years of Service

User Offline

Joined: 15th Dec 2002

Location:

Posted: 31st Oct 2013 05:37 Edited at: 31st Oct 2013 05:41

Link

To achieve the precise effect seen in Worms, you'd have to make use of the memblock commands from 108. With them, you can read through pixel data of a given image or area of the screen and manually update each pixel as needed, such as turning the impact radius fully transparent to simulate destructible terrain.

Note however that memblock commands of this nature in AppGameKit are not very fast so would have to be used very selectively especially if targeting mobile devices. You can't really manipulate many pixels each frame. For added effect, however, you could generate a particle system at the origin of the explosion to mimic their animated destruction while still only calling the memblock command once to actually destroy them.

If you don't have to go into such granular detail, you could mimic this effect by using larger sprites (e.g., a bunch of 32x32 pixel sprites) and then animate the sprites accordingly to destroy them. Baxlash did a tremendous job of this in a Tank Battle concept he was working on. You can check that out here:

http://forum.thegamecreators.com/?m=forum_view&t=203892&b=48

P.S., I developed a pretty extreme form of pixel destruction last year in DBP and HTML5 (with an early start in Objective C as well). Below is a video of this--skip to 0:45 for the fun. But again, the pixel manipulation capabilities in AppGameKit are far too slow for this to be effective.

Back to top

Profile PM Email Website

Van B

Moderator

22

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 31st Oct 2013 10:08

Link

As xCept says, Memblocks are the answer. But to maintain decent frame rates, you'd be well advised to use several memblocks and sprites, and only update the ones that are affected.

Having 1 massive memblock, sprite, and image would be pretty slow - not during gameplay, but as soon as you need to destruct the terrain, there would be a noticeable delay. If you only have to update 1 or 2 smaller memblock and images, then the delay probably won't be noticable. It would take a bit of work and time, but I think that's the only way - and really it's not a lot to worry about, for the effect you'd end up with I think it's well worth doing.

Just think of your game terrain map as a tiled kitchen floor, and the destruction is like someone spilling soup. But you have to clean an entire tile if any soup get's on it and you have to clean a tile the instant that it get's dirty. Even though you have to clean the whole tile, it's still quicker than having to clean the whole floor every time.

Hope that makes sense!, it has been a whole hour since I had any coffee.

I am the one who knocks...

Back to top

Profile PM Email

Matty H

16

Years of Service

User Offline

Joined: 7th Oct 2008

Location: England

Posted: 31st Oct 2013 10:42

Link

I agree with above posts.

I find if I split the screen into sprites(images/memblocks) of 128x128 pixels then you can update portions of the screen in real time.

Just remember you can keep the memblocks and use 'memblock to image' on the same image over and over again.

Back to top

Profile PM Email

Fallout

22

Years of Service

User Offline

Joined: 1st Sep 2002

Location: Basingstoke, England

Posted: 31st Oct 2013 14:50 Edited at: 31st Oct 2013 15:02

Link

While I agree with the above as the best method, a really fast method would be to overlay transparent sprites. So you have your landscape in place to start. If all your ordinance (explosion craters, bullet holes) are of a set size, you could simply place a transparent sprite at the explosion point. With some draw order jiggerypokery, AppGameKit would draw the transparent sprite first, then attempt to draw the opaque sprite beneath it and not draw over the transparent explosion pixels.

I'm not sure if that's possible with the sprite commands, but it's definitely possible with the 3D commands which offer a lot of control over z-buffer read/write.

The upside of this approach is it'd be by far the fastest, but only to a certain point. When the whole scene is filled with impact crater sprites it'd probably start to crawl, so it'd only work for low-medium terrain destruction.

There you go. Call me maverick and also this idea may totally not work.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 31st Oct 2013 15:03

Link

The problem with using lots overlapping transparent sprites is that it may not run very fast. Personally I'd rather take a split second hit over a general lag, besides the multiple memblock route would be very quick too...

oct(31) = dec(25)

Back to top

Profile PM Email

Ancient Lady

Valued Member

20

Years of Service

User Offline

Joined: 17th Mar 2004

Location: Anchorage, Alaska, USA

Posted: 31st Oct 2013 15:08

Link

See, I knew others would have good ideas. I had been thinking about memblock usage, but thought it might be too slow.

Cheers,
Ancient Lady
AGK Community Tester and AppGameKit Master

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 2nd Nov 2013 09:57

Link

The best point to create your newly obliterated terrain is at the point of fire. Hopefully you can project your explosion point before when the weapon is fired. You can deceive the user at firing point with a slight delay by using a weapon-loading effect, when what you are actually doing is creating the new terrain behind the scenes. When the explosion hits, you already have your replacement destructed terrain.

2D physics may help with the collision detection. Lee once did a demo on how to flood fill an area with colour, the same principles could probably be used to create collision polygons. In brief, it would involve working in horizontal stripes and calculating where your areas must "stop" as a boundary is hit.

ten-net consulting limited

Back to top

Profile PM Email

Zubby1970

AGK Backer

16

Years of Service

User Offline

Joined: 22nd May 2008

Playing: AGK Studio Always

Posted: 2nd Nov 2013 18:28

Link

ok Guys I took your advice and went down the memblock route, I have the exact same effect as we had at team17, this is how I did it for anyone else, and no lag what so ever, ok a little prep was needed.

I obviously had a landscape then I had a purple circle which will be the hole to be left in the landscape eventually. so at this point the circle is following the mouse , now when you click, we draw the landscape and the circle in that order to the back buffer, we then grab that whole image from the back buffer and make a memblock of this, I then check the memblock for the purple circle colour, I also gave it some leeway either side of the whole value, if this colour is found I then change the alpha state of that pixel to see through. bingo job done. needs some tweaking but as a whole (no pun intended) it works. thanks very much indeed for your time and effort

There can only be one

Back to top

Profile PM Email Website

Zubby1970

AGK Backer

16

Years of Service

User Offline

Joined: 22nd May 2008

Playing: AGK Studio Always

Posted: 2nd Nov 2013 18:30

Link

sorry forgot to include this little lot lol

rem
rem AGK Application
rem

rem A Wizard Did It!

loadimage(1,"worms2.png")
loadimage(3,"backdrop.jpg")
loadimage(4,"purplecircle.png")

SetVirtualResolution( 1024, 768 )
createsprite(2,3)
createsprite(1,1)

global nightvision

nightvision=1
createsprite(4,4)
do

x=getpointerx()
y=getpointery()
setspriteposition(4,x,y)

print (width)
    print (height)
    print(nightvision)

if getpointerpressed()=1
      drawsprite(1)
      drawsprite(4)
      GetImage( 5, 0, 0, 1024, 768 )
      creatememblockfromimage(1,5)
        width=getmemblockint(1,0)
        height=getmemblockint(1,4)

Show_image(1)
    endif

sync()
loop

function show_Image(Image_to_show)

if Image_to_show = 1
size=getmemblocksize(1)
for c = 12 to size  - 1 step 4
    // each color byte is inverted
    Red=GetMemblockByte(1, c)
    Green=GetMemblockByte(1, c + 1)
    Blue=GetMemblockByte(1, c + 2)
    Total = red+blue+green
    if total<550 and total > 450
     SetMemblockByte(1, c + 3, 0 - GetMemblockByte(1, c + 0))
    endif
    // the alpha (position c + 3) is ignored because we don't want to invert that

next c
    CreateImageFromMemblock(2,1)
    setspriteimage(1,2)
    deleteimage(5)
    deletememblock(1)

endif

if Image_to_show = 2
print(size)
endif

endfunction

+ Code Snippet

rem
rem AGK Application
rem

rem A Wizard Did It!


loadimage(1,"worms2.png")
loadimage(3,"backdrop.jpg")
loadimage(4,"purplecircle.png")


SetVirtualResolution( 1024, 768 )
createsprite(2,3)
createsprite(1,1)


global nightvision

nightvision=1
createsprite(4,4)
do

x=getpointerx()
y=getpointery()
setspriteposition(4,x,y)



    print (width)
    print (height)
    print(nightvision)


    if getpointerpressed()=1
      drawsprite(1)
      drawsprite(4)
      GetImage( 5, 0, 0, 1024, 768 )
      creatememblockfromimage(1,5)
        width=getmemblockint(1,0)
        height=getmemblockint(1,4)

      Show_image(1)
    endif


sync()
loop


function show_Image(Image_to_show)

if Image_to_show = 1
size=getmemblocksize(1)
for c = 12 to size  - 1 step 4
    // each color byte is inverted
    Red=GetMemblockByte(1, c)
    Green=GetMemblockByte(1, c + 1)
    Blue=GetMemblockByte(1, c + 2)
    Total = red+blue+green
    if total<550 and total > 450
     SetMemblockByte(1, c + 3, 0 - GetMemblockByte(1, c + 0))
    endif
    // the alpha (position c + 3) is ignored because we don't want to invert that



next c
    CreateImageFromMemblock(2,1)
    setspriteimage(1,2)
    deleteimage(5)
    deletememblock(1)

endif

if Image_to_show = 2
print(size)
endif


endfunction

There can only be one

Back to top

Profile PM Email Website

Van B

Moderator

22

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 3rd Nov 2013 11:46

Link

I think that the whole move would be pre-calculated, sorta like a time line of events - at least in the later Worms, which had action replays and mind-boggling stuff like that.

The purple sphere idea is nice, and it will work - but my concern would be the delay on slower devices - and devices that don't have that high of a resolution. Might be cool to have a single screen terrain though, make a virtual ant farm for tablets

- probably been done though.

I still think that multiple memblocks, images and sprites to make up the terrain as a grid would be the fastest method, no need to re-grab the image, or step through the whole memblock.

I am the one who knocks...

Back to top

Profile PM Email

Van B

Moderator

22

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 3rd Nov 2013 12:34

Link

This is what I was thinking, 1024x1024 terrain, randomly destructs as it's just a test really, scroll around with the mouse.

Should just be able to make a fresh project and paste this into the main code:

rem
rem AGK 2D destructable memblock terrain
rem

rem Landscape App
SetDisplayAspect( 4.0/3.0 )
SetVirtualResolution(640,480)
SetViewZoomMode( 1 )

gosub init

do
 Print("FPS:"+str(screenfps()))
 if random(1,3)=1
    //Random explosions
    ex=random(0,1024)
    ey=random(0,1024)
    er=random(5,20)
    terr_explosion(ex,ey,er)
    terr_update()
    sleep(10)   //Don't know why it needs this - probably to allow time to update something internal
 endif

mx=getrawmousex()-128
    my=getrawmousey()-128
    setviewoffset(mx*2,my*2)

Sync()
loop

init:

dim terr_ID[8,8]
    dim terr_Update[8,8]

ID=1
    for y=0 to 7
    for x=0 to 7
        terr_ID[x,y]=ID
        terr_Update[x,y]=1
        sz=12+(129*129*4)
        creatememblock(ID,sz)
        setmemblockint(ID,0,128)
        setmemblockint(ID,4,128)
        setmemblockint(ID,8,32)
        for yy=0 to 127
        for xx=0 to 127
            pos=12+(((yy*128)+xx)*4)
            dirt=random(32,255)
            setmemblockbyte(ID,pos+0,dirt)          //r
            setmemblockbyte(ID,pos+1,dirt*0.6)      //g
            setmemblockbyte(ID,pos+2,dirt*0.3)      //b
            setmemblockbyte(ID,pos+3,255)           //A
        next xx
        next yy

createimagefrommemblock(ID,ID)
        createsprite(ID,ID)
        setspritepositionbyoffset(ID,x*128,y*128)
        inc ID
    next x
    next y

return

function terr_explosion(x,y,r)

for yy=y-r to y+r
    for xx=x-r to x+r
        dx#=xx-x
        dy#=yy-y
        d#=sqrt((dx#*dx#)+(dy#*dy#))
        if d#<=r
            terr_killpixel(xx,yy)
        endif
    next xx
    next yy

endfunction

function terr_killpixel(x,y)

tx=x/128
    ty=y/128

if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

mem_pixel_alpha(ID,x-ox,y-oy,v)

terr_Update[tx,ty]=1

endfunction

function terr_update()

for y=0 to 7
    for x=0 to 7
        if terr_Update[x,y]=1
            ID=terr_ID[x,y]
            terr_Update[x,y]=0
            createimagefrommemblock(ID,ID)
        endif
    next x
    next y

endfunction

function mem_pixel_alpha(ID,xx,yy,v)

if xx<0 or xx>127 or yy<0 or yy>127 then exitfunction

pos=12+(((yy*128)+xx)*4)
    setmemblockbyte(ID,pos+3,v)        //A

endfunction

+ Code Snippet

rem
rem AGK 2D destructable memblock terrain
rem

rem Landscape App
SetDisplayAspect( 4.0/3.0 )
SetVirtualResolution(640,480)
SetViewZoomMode( 1 )

gosub init

do
 Print("FPS:"+str(screenfps()))
 if random(1,3)=1
    //Random explosions
    ex=random(0,1024)
    ey=random(0,1024)
    er=random(5,20)
    terr_explosion(ex,ey,er)
    terr_update()
    sleep(10)   //Don't know why it needs this - probably to allow time to update something internal
 endif

    mx=getrawmousex()-128
    my=getrawmousey()-128
    setviewoffset(mx*2,my*2)

 Sync()
loop


init:

    dim terr_ID[8,8]
    dim terr_Update[8,8]

    ID=1
    for y=0 to 7
    for x=0 to 7
        terr_ID[x,y]=ID
        terr_Update[x,y]=1
        sz=12+(129*129*4)
        creatememblock(ID,sz)
        setmemblockint(ID,0,128)
        setmemblockint(ID,4,128)
        setmemblockint(ID,8,32)
        for yy=0 to 127
        for xx=0 to 127
            pos=12+(((yy*128)+xx)*4)
            dirt=random(32,255)
            setmemblockbyte(ID,pos+0,dirt)          //r
            setmemblockbyte(ID,pos+1,dirt*0.6)      //g
            setmemblockbyte(ID,pos+2,dirt*0.3)      //b
            setmemblockbyte(ID,pos+3,255)           //A
        next xx
        next yy

        createimagefrommemblock(ID,ID)
        createsprite(ID,ID)
        setspritepositionbyoffset(ID,x*128,y*128)
        inc ID
    next x
    next y

return


function terr_explosion(x,y,r)

    for yy=y-r to y+r
    for xx=x-r to x+r
        dx#=xx-x
        dy#=yy-y
        d#=sqrt((dx#*dx#)+(dy#*dy#))
        if d#<=r
            terr_killpixel(xx,yy)
        endif
    next xx
    next yy

endfunction


function terr_killpixel(x,y)

    tx=x/128
    ty=y/128

    if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

    mem_pixel_alpha(ID,x-ox,y-oy,v)

    terr_Update[tx,ty]=1

endfunction


function terr_update()

    for y=0 to 7
    for x=0 to 7
        if terr_Update[x,y]=1
            ID=terr_ID[x,y]
            terr_Update[x,y]=0
            createimagefrommemblock(ID,ID)
        endif
    next x
    next y

endfunction

function mem_pixel_alpha(ID,xx,yy,v)

    if xx<0 or xx>127 or yy<0 or yy>127 then exitfunction

    pos=12+(((yy*128)+xx)*4)
    setmemblockbyte(ID,pos+3,v)        //A

endfunction

I am the one who knocks...

Back to top

Profile PM Email

Zubby1970

AGK Backer

16

Years of Service

User Offline

Joined: 22nd May 2008

Playing: AGK Studio Always

Posted: 3rd Nov 2013 19:41

Link

tried changing the code to cut an image up into 8 x 8 sections but creating the memblock is throwing me an unexspected error when creating the memblock.

rem
rem AGK 2D destructable memblock terrain
rem

rem Landscape App
SetDisplayAspect( 4.0/3.0 )
SetVirtualResolution(640,480)
SetViewZoomMode( 2 )

loadimage(100,"worms2.png")
loadimage(101,"backdrop.jpg")
//createsprite(101,101)
gosub init

do
 Print("FPS:"+str(screenfps()))
 if random(1,3)=1
    //Random explosions
    ex=random(0,1024)
    ey=random(0,1024)
    er=random(20,30)
    terr_explosion(ex,ey,er)
    terr_update()
    sleep(10)   //Don't know why it needs this - probably to allow time to update something internal
 endif

mx=getrawmousex()-128
    my=getrawmousey()-128
    setviewoffset(mx*2,my*2)

mx=getpointerx()-128
    my=getpointery()-128
    setviewoffset(mx*2,my*2)

Sync()
loop

init:
 createsprite(100,100)
 setspritesize(100,1025,768)
 drawsprite(100)
deletesprite(100)
    dim terr_ID[8,8]
    dim terr_Update[8,8]

ID=1
    for y=0 to 7
    for x=0 to 7
        terr_ID[x,y]=ID
        terr_Update[x,y]=1
        sz=12+(129*129*4)

GetImage( ID, x, y, x*128, y*128)
      creatememblockfromimage(ID,ID)

createimagefrommemblock(ID,ID)
        createsprite(ID,ID)
        setspritepositionbyoffset(ID,x*128,y*128)
        inc ID

next x
    next y

return

function terr_explosion(x,y,r)

for yy=y-r to y+r
    for xx=x-r to x+r
        dx#=xx-x
        dy#=yy-y
        d#=sqrt((dx#*dx#)+(dy#*dy#))
        if d#<=r
            terr_killpixel(xx,yy)
        endif
    next xx
    next yy

endfunction

function terr_killpixel(x,y)

tx=x/128
    ty=y/128

if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

mem_pixel_alpha(ID,x-ox,y-oy,v)

terr_Update[tx,ty]=1

endfunction

function terr_update()

for y=0 to 7
    for x=0 to 7
        if terr_Update[x,y]=1
            ID=terr_ID[x,y]
            terr_Update[x,y]=0
            createimagefrommemblock(ID,ID)
        endif
    next x
    next y

endfunction

function mem_pixel_alpha(ID,xx,yy,v)

if xx<0 or xx>127 or yy<0 or yy>127 then exitfunction

pos=12+(((yy*128)+xx)*4)
    setmemblockbyte(ID,pos+3,v)        //A

endfunction

+ Code Snippet


rem
rem AGK 2D destructable memblock terrain
rem

rem Landscape App
SetDisplayAspect( 4.0/3.0 )
SetVirtualResolution(640,480)
SetViewZoomMode( 2 )

loadimage(100,"worms2.png")
loadimage(101,"backdrop.jpg")
//createsprite(101,101)
gosub init

do
 Print("FPS:"+str(screenfps()))
 if random(1,3)=1
    //Random explosions
    ex=random(0,1024)
    ey=random(0,1024)
    er=random(20,30)
    terr_explosion(ex,ey,er)
    terr_update()
    sleep(10)   //Don't know why it needs this - probably to allow time to update something internal
 endif

    mx=getrawmousex()-128
    my=getrawmousey()-128
    setviewoffset(mx*2,my*2)

     mx=getpointerx()-128
    my=getpointery()-128
    setviewoffset(mx*2,my*2)


 Sync()
loop


init:
 createsprite(100,100)
 setspritesize(100,1025,768)
 drawsprite(100)
deletesprite(100)
    dim terr_ID[8,8]
    dim terr_Update[8,8]

    ID=1
    for y=0 to 7
    for x=0 to 7
        terr_ID[x,y]=ID
        terr_Update[x,y]=1
        sz=12+(129*129*4)

      GetImage( ID, x, y, x*128, y*128)
      creatememblockfromimage(ID,ID)



        createimagefrommemblock(ID,ID)
        createsprite(ID,ID)
        setspritepositionbyoffset(ID,x*128,y*128)
        inc ID

    next x
    next y

return


function terr_explosion(x,y,r)

    for yy=y-r to y+r
    for xx=x-r to x+r
        dx#=xx-x
        dy#=yy-y
        d#=sqrt((dx#*dx#)+(dy#*dy#))
        if d#<=r
            terr_killpixel(xx,yy)
        endif
    next xx
    next yy

endfunction


function terr_killpixel(x,y)

    tx=x/128
    ty=y/128

    if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

    mem_pixel_alpha(ID,x-ox,y-oy,v)

    terr_Update[tx,ty]=1

endfunction


function terr_update()

    for y=0 to 7
    for x=0 to 7
        if terr_Update[x,y]=1
            ID=terr_ID[x,y]
            terr_Update[x,y]=0
            createimagefrommemblock(ID,ID)
        endif
    next x
    next y

endfunction

function mem_pixel_alpha(ID,xx,yy,v)

    if xx<0 or xx>127 or yy<0 or yy>127 then exitfunction

    pos=12+(((yy*128)+xx)*4)
    setmemblockbyte(ID,pos+3,v)        //A

endfunction

There can only be one

Back to top

Profile PM Email Website

Fallout

22

Years of Service

User Offline

Joined: 1st Sep 2002

Location: Basingstoke, England

Posted: 3rd Nov 2013 20:25

Link

Can't run the code on this machine, but look at this bit ...

+ Code Snippet

for y=0 to 7
    for x=0 to 7
        terr_ID[x,y]=ID
        terr_Update[x,y]=1
        sz=12+(129*129*4)

      GetImage( ID, x, y, x*128, y*128)
      creatememblockfromimage(ID,ID)

Your get image line is wrong. It should be:
getimage(id,x*128,y*128,(x+1)*128,(y+1)*128)

When x and y are zero, you're attempting to getimage a 0,0 size image which is probably causing your error.

Back to top

Profile PM

Zubby1970

AGK Backer

16

Years of Service

User Offline

Joined: 22nd May 2008

Playing: AGK Studio Always

Posted: 4th Nov 2013 14:18

Link

ok this has fixed the memblock error now lol, but im getting an awful result back in instead of a reconstruction of the original image. ??? any ideas. I've poured over the code for too long got a head ache now lol

There can only be one

Back to top

Profile PM Email Website

Van B

Moderator

22

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 4th Nov 2013 14:29

Link

I think your asking for trouble cutting the image up with get image. Couldn't you use subimages? - like have a 1024x1024 image, and give it a subimage file cutting it into 128x128 blocks. Then, you'd choose the level image, and load the subimages rather than the whole thing. You would need a subimage file for each level image, but it doesn't have to do much, so you'd just copy and rename the same subimage file each time.

I just don't trust grabbed images with memblocks, seems risky to me... I mean in terms of cross-platform compatibility.

I am the one who knocks...

Back to top

Profile PM Email

Zubby1970

AGK Backer

16

Years of Service

User Offline

Joined: 22nd May 2008

Playing: AGK Studio Always

Posted: 4th Nov 2013 17:12

Link

how would I go about making a sub image file?

There can only be one

Back to top

Profile PM Email Website

Van B

Moderator

22

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 4th Nov 2013 23:58

Link

Awww, subimages can't be converted into memblocks

I will see about making a memblock image splitter though, so you can load the main image, then make the smaller memblocks and images from that automatically. Should do the same job.

I am the one who knocks...

Back to top

Profile PM Email

Zubby1970

AGK Backer

16

Years of Service

User Offline

Joined: 22nd May 2008

Playing: AGK Studio Always

Posted: 5th Nov 2013 16:31

Link

thanks vanb

There can only be one

Back to top

Profile PM Email Website

Van B

Moderator

22

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 5th Nov 2013 18:57

Link

Attached an example, media is just a backdrop image and a test terrain at 1024x1024.

This time, you click to destroy the terrain, and right click to shift the view. As a bonus, I added some particle effects, mainly just to show how collision detection could be achieved, but it looks cool and is a little bit like that video xCept posted.

Here is the code as well:

rem
rem AGK 2D destructable memblock terrain
rem

rem Landscape App
SetDisplayAspect( 4.0/3.0 )
SetVirtualResolution(640,480)
SetViewZoomMode( 0 )

gosub init

scrollx=320
scrolly=240

do
 Print("FPS:"+str(screenfps()))

mx=getrawmousex()
 my=getrawmousey()
 mb=getrawmouseleftpressed()+(getrawmouserightpressed()*2)

if lastmb=0 and mb=1
    //Random explosions
    ex=mx+scrollx
    ey=my+scrolly
    er=8
    terr_explosion(ex,ey,er)
    terr_update()
    sleep(10)   //Don't know why it needs this - probably to allow time to update something internal
 endif

if mb=2

scrollx=(mx+scrollx)-320
     scrolly=(my+scrolly)-240

if scrollx<0 then scrollx=0
     if scrollx>1024-640 then scrollx=1024-640
     if scrolly<0 then scrolly=0
     if scrolly>1024-480 then scrolly=1024-480

endif

//update particles
 particle_update()

setviewoffset(scrollx,scrolly)

Sync()
loop

init:

dim terr_ID[8,8]
    dim terr_Update[8,8]

loadimage(100,"backdrop.png")
    loadimage(101,"terrain.png")

creatememblockfromimage(101,101)

ID=1
    for y=0 to 7
    for x=0 to 7
        terr_ID[x,y]=ID
        terr_Update[x,y]=1
        mem_surgeon(101,ID,x*128,y*128,128,128)
        createimagefrommemblock(ID,ID)
        createsprite(ID,ID)
        setspriteoffset(ID,0,0)
        setspritedepth(ID,5)
        setspritepositionbyoffset(ID,x*128,y*128)
        inc ID
    next x
    next y

createsprite(100,100)
    setspritesize(100,2048,2048)
    setspritepositionbyoffset(100,320,240)
    setspritedepth(100,100)

//particles
    type _particle
        x as float
        y as float
        xs as float
        ys as float
        life as float
    endtype
    global part_count=512
    dim part[part_count] as _particle
    global part_cur colr colg colb cola

return

function terr_explosion(x,y,r)

for yy=y-r to y+r
    for xx=x-r to x+r
        dx#=xx-x
        dy#=yy-y
        d#=sqrt((dx#*dx#)+(dy#*dy#))
        if d#<=r
            terr_killpixel(xx,yy)
        endif
    next xx
    next yy

endfunction

function terr_killpixel(x,y)

tx=x/128
    ty=y/128

if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

mem_pixel_alpha(ID,x-ox,y-oy,0)
    if cola>0 then particle_spawn(x,y,colr,colg,colb)

terr_Update[tx,ty]=1

endfunction

function terr_checkalpha(x,y)

tx=x/128
    ty=y/128

if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction 0
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

a=get_mem_pixel_alpha(ID,x-ox,y-oy)

endfunction a

function terr_update()

for y=0 to 7
    for x=0 to 7
        if terr_Update[x,y]=1
            ID=terr_ID[x,y]
            terr_Update[x,y]=0
            createimagefrommemblock(ID,ID)
        endif
    next x
    next y

endfunction

function mem_pixel_alpha(ID,xx,yy,v)

if xx<0 or xx>127 or yy<0 or yy>127 then exitfunction

pos=12+(((yy*128)+xx)*4)
    //store current pixel colour
    colr=getmemblockbyte(ID,pos+0)
    colg=getmemblockbyte(ID,pos+1)
    colb=getmemblockbyte(ID,pos+2)
    cola=getmemblockbyte(ID,pos+3)
    //set alpha
    setmemblockbyte(ID,pos+3,v)        //A

endfunction

function get_mem_pixel_alpha(ID,xx,yy)

if xx<0 or xx>127 or yy<0 or yy>127 then exitfunction 0

pos=12+(((yy*128)+xx)*4)
    a=getmemblockbyte(ID,pos+3)        //A

endfunction a

function mem_surgeon(src,dst,x,y,w,h)

if getmemblockexists(src)=0
        message("Memblock exists?")
        exitfunction
    endif

if getmemblockexists(dst)=0
        sz=12+(h*w*4)
        creatememblock(dst,sz)
        setmemblockint(dst,0,w)
        setmemblockint(dst,4,h)
        setmemblockint(dst,8,32)
    endif

for dx=0 to w-1
        for dy=0 to h-1

sx=x+dx
            sy=y+dy
            spos=12+(((sy*1024)+sx)*4)
            dpos=12+(((dy*128)+dx)*4)

for c=0 to 3
                v=getmemblockbyte(src,spos+c)
                setmemblockbyte(dst,dpos+c,v)
            next c

next dx
    next dy

endfunction

function particle_spawn(x,y,r,g,b)

inc part_cur
    if part_cur>part_count then part_cur=0

part[part_cur].x=x
    part[part_cur].y=y
    part[part_cur].xs=((x-512.0)/1024.0)+(sin(random(0,360))*0.1)
    part[part_cur].ys=((y-512.0)/1024.0)+(sin(random(0,360))*0.1)
    part[part_cur].life=1.0

spr=part_cur+1000
    if getspriteexists(spr)=0
        createsprite(spr,0)
        setspritesize(spr,1,1)
        setspritephysicsoff(spr)
        setspritecolor(spr,r,g,b,255)
        setspritedepth(spr,4)
    endif
    setspritepositionbyoffset(spr,x,y)
    setspritecoloralpha(spr,255)
    setspritevisible(spr,1)

endfunction

function particle_update()

for p=0 to part_count
    spr=p+1000
    if part[p].life>0.0 and getspriteexists(spr)=1
        lx#=part[p].x
        ly#=part[p].y
        part[p].ys=part[p].ys+0.02
        if part[p].ys>1.0 then part[p].ys=1.0

part[p].x=part[p].x+part[p].xs
        part[p].y=part[p].y+part[p].ys

if terr_checkalpha(part[p].x,ly#)>0
            part[p].x=lx#
            part[p].xs=part[p].xs*-0.7
        endif
        if terr_checkalpha(lx#,part[p].y)>0
            part[p].y=ly#
            part[p].ys=part[p].ys*-0.7
        endif

part[p].life=part[p].life-0.001
        if round((part[p].xs+part[p].ys)*10)=0 then part[p].life=part[p].life-0.01
        if part[p].life<=0.0
            part[p].life=0.0
            setspritevisible(spr,0)
        else
            setspritepositionbyoffset(spr,part[p].x,part[p].y)
            setspritecoloralpha(spr,part[p].life*255)
        endif
    endif
next p

endfunction

+ Code Snippet

rem
rem AGK 2D destructable memblock terrain
rem

rem Landscape App
SetDisplayAspect( 4.0/3.0 )
SetVirtualResolution(640,480)
SetViewZoomMode( 0 )

gosub init

scrollx=320
scrolly=240

do
 Print("FPS:"+str(screenfps()))

 mx=getrawmousex()
 my=getrawmousey()
 mb=getrawmouseleftpressed()+(getrawmouserightpressed()*2)

 if lastmb=0 and mb=1
    //Random explosions
    ex=mx+scrollx
    ey=my+scrolly
    er=8
    terr_explosion(ex,ey,er)
    terr_update()
    sleep(10)   //Don't know why it needs this - probably to allow time to update something internal
 endif

 if mb=2

     scrollx=(mx+scrollx)-320
     scrolly=(my+scrolly)-240

     if scrollx<0 then scrollx=0
     if scrollx>1024-640 then scrollx=1024-640
     if scrolly<0 then scrolly=0
     if scrolly>1024-480 then scrolly=1024-480

 endif

 //update particles
 particle_update()

    setviewoffset(scrollx,scrolly)

 Sync()
loop


init:

    dim terr_ID[8,8]
    dim terr_Update[8,8]

    loadimage(100,"backdrop.png")
    loadimage(101,"terrain.png")

    creatememblockfromimage(101,101)

    ID=1
    for y=0 to 7
    for x=0 to 7
        terr_ID[x,y]=ID
        terr_Update[x,y]=1
        mem_surgeon(101,ID,x*128,y*128,128,128)
        createimagefrommemblock(ID,ID)
        createsprite(ID,ID)
        setspriteoffset(ID,0,0)
        setspritedepth(ID,5)
        setspritepositionbyoffset(ID,x*128,y*128)
        inc ID
    next x
    next y

    createsprite(100,100)
    setspritesize(100,2048,2048)
    setspritepositionbyoffset(100,320,240)
    setspritedepth(100,100)

    //particles
    type _particle
        x as float
        y as float
        xs as float
        ys as float
        life as float
    endtype
    global part_count=512
    dim part[part_count] as _particle
    global part_cur colr colg colb cola

return


function terr_explosion(x,y,r)

    for yy=y-r to y+r
    for xx=x-r to x+r
        dx#=xx-x
        dy#=yy-y
        d#=sqrt((dx#*dx#)+(dy#*dy#))
        if d#<=r
            terr_killpixel(xx,yy)
        endif
    next xx
    next yy

endfunction


function terr_killpixel(x,y)

    tx=x/128
    ty=y/128

    if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

    mem_pixel_alpha(ID,x-ox,y-oy,0)
    if cola>0 then particle_spawn(x,y,colr,colg,colb)

    terr_Update[tx,ty]=1

endfunction

function terr_checkalpha(x,y)

    tx=x/128
    ty=y/128

    if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction 0
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

    a=get_mem_pixel_alpha(ID,x-ox,y-oy)

endfunction a

function terr_update()

    for y=0 to 7
    for x=0 to 7
        if terr_Update[x,y]=1
            ID=terr_ID[x,y]
            terr_Update[x,y]=0
            createimagefrommemblock(ID,ID)
        endif
    next x
    next y

endfunction

function mem_pixel_alpha(ID,xx,yy,v)

    if xx<0 or xx>127 or yy<0 or yy>127 then exitfunction

    pos=12+(((yy*128)+xx)*4)
    //store current pixel colour
    colr=getmemblockbyte(ID,pos+0)
    colg=getmemblockbyte(ID,pos+1)
    colb=getmemblockbyte(ID,pos+2)
    cola=getmemblockbyte(ID,pos+3)
    //set alpha
    setmemblockbyte(ID,pos+3,v)        //A

endfunction

function get_mem_pixel_alpha(ID,xx,yy)

    if xx<0 or xx>127 or yy<0 or yy>127 then exitfunction 0

    pos=12+(((yy*128)+xx)*4)
    a=getmemblockbyte(ID,pos+3)        //A

endfunction a

function mem_surgeon(src,dst,x,y,w,h)

    if getmemblockexists(src)=0
        message("Memblock exists?")
        exitfunction
    endif

    if getmemblockexists(dst)=0
        sz=12+(h*w*4)
        creatememblock(dst,sz)
        setmemblockint(dst,0,w)
        setmemblockint(dst,4,h)
        setmemblockint(dst,8,32)
    endif

    for dx=0 to w-1
        for dy=0 to h-1

            sx=x+dx
            sy=y+dy
            spos=12+(((sy*1024)+sx)*4)
            dpos=12+(((dy*128)+dx)*4)

            for c=0 to 3
                v=getmemblockbyte(src,spos+c)
                setmemblockbyte(dst,dpos+c,v)
            next c

        next dx
    next dy

endfunction

function particle_spawn(x,y,r,g,b)

    inc part_cur
    if part_cur>part_count then part_cur=0

    part[part_cur].x=x
    part[part_cur].y=y
    part[part_cur].xs=((x-512.0)/1024.0)+(sin(random(0,360))*0.1)
    part[part_cur].ys=((y-512.0)/1024.0)+(sin(random(0,360))*0.1)
    part[part_cur].life=1.0

    spr=part_cur+1000
    if getspriteexists(spr)=0
        createsprite(spr,0)
        setspritesize(spr,1,1)
        setspritephysicsoff(spr)
        setspritecolor(spr,r,g,b,255)
        setspritedepth(spr,4)
    endif
    setspritepositionbyoffset(spr,x,y)
    setspritecoloralpha(spr,255)
    setspritevisible(spr,1)

endfunction


function particle_update()

for p=0 to part_count
    spr=p+1000
    if part[p].life>0.0 and getspriteexists(spr)=1
        lx#=part[p].x
        ly#=part[p].y
        part[p].ys=part[p].ys+0.02
        if part[p].ys>1.0 then part[p].ys=1.0

        part[p].x=part[p].x+part[p].xs
        part[p].y=part[p].y+part[p].ys

        if terr_checkalpha(part[p].x,ly#)>0
            part[p].x=lx#
            part[p].xs=part[p].xs*-0.7
        endif
        if terr_checkalpha(lx#,part[p].y)>0
            part[p].y=ly#
            part[p].ys=part[p].ys*-0.7
        endif

        part[p].life=part[p].life-0.001
        if round((part[p].xs+part[p].ys)*10)=0 then part[p].life=part[p].life-0.01
        if part[p].life<=0.0
            part[p].life=0.0
            setspritevisible(spr,0)
        else
            setspritepositionbyoffset(spr,part[p].x,part[p].y)
            setspritecoloralpha(spr,part[p].life*255)
        endif
    endif
next p

endfunction

I am the one who knocks...

Attachments

Login to view attachments

Back to top

Profile PM Email

Ancient Lady

Valued Member

20

Years of Service

User Offline

Joined: 17th Mar 2004

Location: Anchorage, Alaska, USA

Posted: 5th Nov 2013 19:27

Link

Looks great! Something I probably want to try when I can make the time.

One comment. You should put an 'End' command after the main 'loop' command. If something caused the app to exit the loop, it would re-execute the init subroutine. (One of the reasons I don't use the gosub structure.)

Cheers,
Ancient Lady
AGK Community Tester and AppGameKit Master

Back to top

Profile PM

Van B

Moderator

22

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 5th Nov 2013 19:49

Link

Yeah, thanks for the headsup, will do that.

Here's an updated example, this one lets you destroy with the lmb, and draw with the rmb - scroll with arrow keys, and space to zoom in or out. Seems very fast to me, faster than I thought AppGameKit would be with memblocks. Probably decent on Android as well, although I couldn't test it properly without a mouse and keyboard.

Anyway, new example code:

rem
rem AGK 2D destructable memblock terrain
rem

rem Landscape App
SetDisplayAspect( 1024.0/768.0 )
SetVirtualResolution(1024,768)
SetViewZoomMode( 0 )

gosub init

scrollx=0
scrolly=0
zoom#=1.0
do
 Print("FPS:"+str(screenfps()))

print(str(getrawlastkey()))
 mx=getrawmousex()/zoom#
 my=getrawmousey()/zoom#
 mb=getrawmouseleftstate()+(getrawmouserightstate()*2)

if mb=1
    ex=mx+scrollx
    ey=my+scrolly
    er=8
    terr_explosion(ex,ey,er)
    terr_update()
    //sleep(10)   //Don't know why it needs this - probably to allow time to update something internal
 endif

if mb=2
    ex=mx+scrollx
    ey=my+scrolly
    er=8
    terr_draw(ex,ey,er)
    terr_update()
    //sleep(10)   //Don't know why it needs this - probably to allow time to update something internal
 endif

if getrawkeystate(32)=1
    if zoom#>1.0
        zoom#=1.0
        scrollx=0
        scrolly=0
    else
     scrollx=(mx+scrollx)-(512/zoom#)
     scrolly=(my+scrolly)-(384/zoom#)
     zoom#=4.0
    endif
    while getrawkeystate(32)=1
    sync()
    endwhile
 endif

if getrawkeystate(38)=1 then dec scrolly
 if getrawkeystate(40)=1 then inc scrolly
 if getrawkeystate(37)=1 then dec scrollx
 if getrawkeystate(39)=1 then inc scrollx

if scrollx<0 then scrollx=0
     if scrollx>1024-(640/zoom#) then scrollx=1024-(640/zoom#)
     if scrolly<0 then scrolly=0
     if scrolly>1024-(480/zoom#) then scrolly=1024-(480/zoom#)

//update particles
 particle_update()

setviewoffset(scrollx,scrolly)
    setviewzoom(zoom#)
 Sync()
loop

end

init:

dim terr_ID[8,8]
    dim terr_Update[8,8]

loadimage(100,"backdrop.png")
    loadimage(101,"terrain.png")

creatememblockfromimage(101,101)

ID=1
    for y=0 to 7
    for x=0 to 7
        terr_ID[x,y]=ID
        terr_Update[x,y]=1
        mem_surgeon(101,ID,x*128,y*128,128,128)
        createimagefrommemblock(ID,ID)
        createsprite(ID,ID)
        setspriteoffset(ID,0,0)
        setspritedepth(ID,5)
        setspritepositionbyoffset(ID,x*128,y*128)
        inc ID
    next x
    next y

createsprite(100,100)
    setspritesize(100,2048,2048)
    setspritepositionbyoffset(100,320,240)
    setspritedepth(100,100)

//particles
    type _particle
        x as float
        y as float
        xs as float
        ys as float
        life as float
    endtype
    global part_count=512
    dim part[part_count] as _particle
    global part_cur colr colg colb cola

return

function terr_explosion(x,y,r)

for yy=y-r to y+r
    for xx=x-r to x+r
        dx#=xx-x
        dy#=yy-y
        d#=sqrt((dx#*dx#)+(dy#*dy#))
        if d#<=r
            terr_killpixel(xx,yy)
        endif
    next xx
    next yy

endfunction

function terr_draw(x,y,r)

for yy=y-r to y+r
    for xx=x-r to x+r
        dx#=xx-x
        dy#=yy-y
        d#=sqrt((dx#*dx#)+(dy#*dy#))
        if d#<=r
            terr_resetpixel(xx,yy)
        endif
    next xx
    next yy

endfunction

function terr_killpixel(x,y)

tx=x/128
    ty=y/128

if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

mem_pixel_alpha(ID,x-ox,y-oy,0)
    if cola>0 then particle_spawn(x,y,colr,colg,colb)

terr_Update[tx,ty]=1

endfunction

function terr_resetpixel(x,y)

tx=x/128
    ty=y/128

if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

mem_pixel_alpha(ID,x-ox,y-oy,255)

terr_Update[tx,ty]=1

endfunction

function terr_checkalpha(x,y)

tx=x/128
    ty=y/128

if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction 0
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

a=get_mem_pixel_alpha(ID,x-ox,y-oy)

endfunction a

function terr_update()

for y=0 to 7
    for x=0 to 7
        if terr_Update[x,y]=1
            ID=terr_ID[x,y]
            terr_Update[x,y]=0
            createimagefrommemblock(ID,ID)
            setimageminfilter(ID,0)
            setimagemagfilter(ID,0)
        endif
    next x
    next y

endfunction

function mem_pixel_alpha(ID,xx,yy,v)

if xx<0 or xx>127 or yy<0 or yy>127 then exitfunction

pos=12+(((yy*128)+xx)*4)
    //store current pixel colour
    colr=getmemblockbyte(ID,pos+0)
    colg=getmemblockbyte(ID,pos+1)
    colb=getmemblockbyte(ID,pos+2)
    cola=getmemblockbyte(ID,pos+3)
    //set alpha
    setmemblockbyte(ID,pos+3,v)        //A

endfunction

function get_mem_pixel_alpha(ID,xx,yy)

if xx<0 or xx>127 or yy<0 or yy>127 then exitfunction 0

pos=12+(((yy*128)+xx)*4)
    a=getmemblockbyte(ID,pos+3)        //A

endfunction a

function mem_surgeon(src,dst,x,y,w,h)

if getmemblockexists(src)=0
        message("Memblock exists?")
        exitfunction
    endif

if getmemblockexists(dst)=0
        sz=12+(h*w*4)
        creatememblock(dst,sz)
        setmemblockint(dst,0,w)
        setmemblockint(dst,4,h)
        setmemblockint(dst,8,32)
    endif

for dx=0 to w-1
        for dy=0 to h-1

sx=x+dx
            sy=y+dy
            spos=12+(((sy*1024)+sx)*4)
            dpos=12+(((dy*128)+dx)*4)

for c=0 to 3
                v=getmemblockbyte(src,spos+c)
                setmemblockbyte(dst,dpos+c,v)
            next c

next dx
    next dy

endfunction

function particle_spawn(x,y,r,g,b)

inc part_cur
    if part_cur>part_count then part_cur=0

part[part_cur].x=x
    part[part_cur].y=y
    part[part_cur].xs=(sin(random(0,360))*0.1)
    part[part_cur].ys=(sin(random(0,360))*0.1)
    part[part_cur].life=1.0

spr=part_cur+1000
    if getspriteexists(spr)=0
        createsprite(spr,0)
        setspritesize(spr,1,1)
        setspritephysicsoff(spr)
        setspritedepth(spr,4)
    endif
    setspritepositionbyoffset(spr,x,y)
    setspritecolor(spr,r,g,b,255)
    setspritevisible(spr,1)

endfunction

function particle_update()

for p=0 to part_count
    spr=p+1000
    if part[p].life>0.0 and getspriteexists(spr)=1
        lx#=part[p].x
        ly#=part[p].y
        part[p].ys=part[p].ys+0.02
        if part[p].ys>1.0 then part[p].ys=1.0

part[p].x=part[p].x+part[p].xs
        part[p].y=part[p].y+part[p].ys

if terr_checkalpha(part[p].x,ly#)>0
            part[p].x=lx#
            part[p].xs=part[p].xs*-0.7
        endif
        if terr_checkalpha(lx#,part[p].y)>0
            part[p].y=ly#
            part[p].ys=part[p].ys*-0.7
        endif

part[p].life=part[p].life-0.001
        if round((part[p].xs+part[p].ys)*10)=0 then part[p].life=part[p].life-0.01
        if part[p].life<=0.0
            part[p].life=0.0
            setspritevisible(spr,0)
        else
            setspritepositionbyoffset(spr,part[p].x,part[p].y)
            setspritecoloralpha(spr,part[p].life*255)
        endif
    endif
next p

endfunction

+ Code Snippet

rem
rem AGK 2D destructable memblock terrain
rem

rem Landscape App
SetDisplayAspect( 1024.0/768.0 )
SetVirtualResolution(1024,768)
SetViewZoomMode( 0 )

gosub init

scrollx=0
scrolly=0
zoom#=1.0
do
 Print("FPS:"+str(screenfps()))

print(str(getrawlastkey()))
 mx=getrawmousex()/zoom#
 my=getrawmousey()/zoom#
 mb=getrawmouseleftstate()+(getrawmouserightstate()*2)

 if mb=1
    ex=mx+scrollx
    ey=my+scrolly
    er=8
    terr_explosion(ex,ey,er)
    terr_update()
    //sleep(10)   //Don't know why it needs this - probably to allow time to update something internal
 endif

 if mb=2
    ex=mx+scrollx
    ey=my+scrolly
    er=8
    terr_draw(ex,ey,er)
    terr_update()
    //sleep(10)   //Don't know why it needs this - probably to allow time to update something internal
 endif


if getrawkeystate(32)=1
    if zoom#>1.0
        zoom#=1.0
        scrollx=0
        scrolly=0
    else
     scrollx=(mx+scrollx)-(512/zoom#)
     scrolly=(my+scrolly)-(384/zoom#)
     zoom#=4.0
    endif
    while getrawkeystate(32)=1
    sync()
    endwhile
 endif

 if getrawkeystate(38)=1 then dec scrolly
 if getrawkeystate(40)=1 then inc scrolly
 if getrawkeystate(37)=1 then dec scrollx
 if getrawkeystate(39)=1 then inc scrollx

     if scrollx<0 then scrollx=0
     if scrollx>1024-(640/zoom#) then scrollx=1024-(640/zoom#)
     if scrolly<0 then scrolly=0
     if scrolly>1024-(480/zoom#) then scrolly=1024-(480/zoom#)



 //update particles
 particle_update()

    setviewoffset(scrollx,scrolly)
    setviewzoom(zoom#)
 Sync()
loop

end

init:

    dim terr_ID[8,8]
    dim terr_Update[8,8]

    loadimage(100,"backdrop.png")
    loadimage(101,"terrain.png")

    creatememblockfromimage(101,101)

    ID=1
    for y=0 to 7
    for x=0 to 7
        terr_ID[x,y]=ID
        terr_Update[x,y]=1
        mem_surgeon(101,ID,x*128,y*128,128,128)
        createimagefrommemblock(ID,ID)
        createsprite(ID,ID)
        setspriteoffset(ID,0,0)
        setspritedepth(ID,5)
        setspritepositionbyoffset(ID,x*128,y*128)
        inc ID
    next x
    next y

    createsprite(100,100)
    setspritesize(100,2048,2048)
    setspritepositionbyoffset(100,320,240)
    setspritedepth(100,100)

    //particles
    type _particle
        x as float
        y as float
        xs as float
        ys as float
        life as float
    endtype
    global part_count=512
    dim part[part_count] as _particle
    global part_cur colr colg colb cola

return


function terr_explosion(x,y,r)

    for yy=y-r to y+r
    for xx=x-r to x+r
        dx#=xx-x
        dy#=yy-y
        d#=sqrt((dx#*dx#)+(dy#*dy#))
        if d#<=r
            terr_killpixel(xx,yy)
        endif
    next xx
    next yy

endfunction

function terr_draw(x,y,r)

    for yy=y-r to y+r
    for xx=x-r to x+r
        dx#=xx-x
        dy#=yy-y
        d#=sqrt((dx#*dx#)+(dy#*dy#))
        if d#<=r
            terr_resetpixel(xx,yy)
        endif
    next xx
    next yy

endfunction

function terr_killpixel(x,y)

    tx=x/128
    ty=y/128

    if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

    mem_pixel_alpha(ID,x-ox,y-oy,0)
    if cola>0 then particle_spawn(x,y,colr,colg,colb)

    terr_Update[tx,ty]=1

endfunction

function terr_resetpixel(x,y)

    tx=x/128
    ty=y/128

    if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

    mem_pixel_alpha(ID,x-ox,y-oy,255)

    terr_Update[tx,ty]=1

endfunction

function terr_checkalpha(x,y)

    tx=x/128
    ty=y/128

    if tx<0 or ty<0 or tx>7 or ty>7 then exitfunction 0
    ID=terr_ID[tx,ty]
    ox=tx*128
    oy=ty*128

    a=get_mem_pixel_alpha(ID,x-ox,y-oy)

endfunction a

function terr_update()

    for y=0 to 7
    for x=0 to 7
        if terr_Update[x,y]=1
            ID=terr_ID[x,y]
            terr_Update[x,y]=0
            createimagefrommemblock(ID,ID)
            setimageminfilter(ID,0)
            setimagemagfilter(ID,0)
        endif
    next x
    next y

endfunction

function mem_pixel_alpha(ID,xx,yy,v)

    if xx<0 or xx>127 or yy<0 or yy>127 then exitfunction

    pos=12+(((yy*128)+xx)*4)
    //store current pixel colour
    colr=getmemblockbyte(ID,pos+0)
    colg=getmemblockbyte(ID,pos+1)
    colb=getmemblockbyte(ID,pos+2)
    cola=getmemblockbyte(ID,pos+3)
    //set alpha
    setmemblockbyte(ID,pos+3,v)        //A

endfunction

function get_mem_pixel_alpha(ID,xx,yy)

    if xx<0 or xx>127 or yy<0 or yy>127 then exitfunction 0

    pos=12+(((yy*128)+xx)*4)
    a=getmemblockbyte(ID,pos+3)        //A

endfunction a

function mem_surgeon(src,dst,x,y,w,h)

    if getmemblockexists(src)=0
        message("Memblock exists?")
        exitfunction
    endif

    if getmemblockexists(dst)=0
        sz=12+(h*w*4)
        creatememblock(dst,sz)
        setmemblockint(dst,0,w)
        setmemblockint(dst,4,h)
        setmemblockint(dst,8,32)
    endif

    for dx=0 to w-1
        for dy=0 to h-1

            sx=x+dx
            sy=y+dy
            spos=12+(((sy*1024)+sx)*4)
            dpos=12+(((dy*128)+dx)*4)

            for c=0 to 3
                v=getmemblockbyte(src,spos+c)
                setmemblockbyte(dst,dpos+c,v)
            next c

        next dx
    next dy

endfunction

function particle_spawn(x,y,r,g,b)

    inc part_cur
    if part_cur>part_count then part_cur=0

    part[part_cur].x=x
    part[part_cur].y=y
    part[part_cur].xs=(sin(random(0,360))*0.1)
    part[part_cur].ys=(sin(random(0,360))*0.1)
    part[part_cur].life=1.0

    spr=part_cur+1000
    if getspriteexists(spr)=0
        createsprite(spr,0)
        setspritesize(spr,1,1)
        setspritephysicsoff(spr)
        setspritedepth(spr,4)
    endif
    setspritepositionbyoffset(spr,x,y)
    setspritecolor(spr,r,g,b,255)
    setspritevisible(spr,1)

endfunction


function particle_update()

for p=0 to part_count
    spr=p+1000
    if part[p].life>0.0 and getspriteexists(spr)=1
        lx#=part[p].x
        ly#=part[p].y
        part[p].ys=part[p].ys+0.02
        if part[p].ys>1.0 then part[p].ys=1.0

        part[p].x=part[p].x+part[p].xs
        part[p].y=part[p].y+part[p].ys

        if terr_checkalpha(part[p].x,ly#)>0
            part[p].x=lx#
            part[p].xs=part[p].xs*-0.7
        endif
        if terr_checkalpha(lx#,part[p].y)>0
            part[p].y=ly#
            part[p].ys=part[p].ys*-0.7
        endif

        part[p].life=part[p].life-0.001
        if round((part[p].xs+part[p].ys)*10)=0 then part[p].life=part[p].life-0.01
        if part[p].life<=0.0
            part[p].life=0.0
            setspritevisible(spr,0)
        else
            setspritepositionbyoffset(spr,part[p].x,part[p].y)
            setspritecoloralpha(spr,part[p].life*255)
        endif
    endif
next p

endfunction

I am the one who knocks...

Back to top

Profile PM Email

Zubby1970

AGK Backer

16

Years of Service

User Offline

Joined: 22nd May 2008

Playing: AGK Studio Always

Posted: 6th Nov 2013 21:39

Link

ok guys i can't thank you enough for all your help with this, I'm going to look into bringing bigger landscapes in and stuff like that but hopefully this will be a great start. and work on some parallax backgrounds and all that should be good. van can i use the collision system for sprites as well or is it just for particles?

There can only be one

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 6th Nov 2013 21:49

Link

Quote: " can i use the collision system for sprites as well or is it just for particles?"

Sprites can use collision too.

VanB also has a DBPro tutorial that introduces parallax backgrounds in the newsletter. Although it's DBP the principles are applicable to AGK. (VanB can you believe it was 4 years ago that you wrote it!)

http://www.thegamecreators.com/pages/newsletters/newsletter_issue_80.html#11

ten-net consulting limited

Back to top

Profile PM Email

Van B

Moderator

22

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 6th Nov 2013 22:51

Link

Now I feel old... thanks for that Steve

For sprite collision, I'd just check a strip of pixels in front of the character, but it depends on how the characters etc will work. I mean, a grenade is easy, a missile could have a collision check on it's nose, like a warhead

... so weapons are probably quite straightforward. If you were making a lemmings style game, or worms, then you'd work out the general height of the sprite, and check the length of the sprite vertically. If you limit movements to 1 pixel maximum per loop, then you shouldn't really have too many problems with collision. I'm sure we'll have more advice if you tell us what you have in mind, but for lemmings or worms, the pixel collision checks should be fine - it's exactly how they did it back then... before worms got all 3D and all about the water effect.

I am the one who knocks...

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / Is it possible to make destructible landscapes like worms, in AGK?

Attachments