best way for physical destruction

Author

Message

brunuu

5

Years of Service

User Offline

Joined: 4th Jun 2018

Location:

Posted: 29th Feb 2020 00:50

Link

That's a good idea, I hadn't thought about it.

Back to top

Profile PM

brunuu

5

Years of Service

User Offline

Joined: 4th Jun 2018

Location:

Posted: 1st Mar 2020 16:38 Edited at: 1st Mar 2020 16:41

Link

i was doing this in c++ in tier 2 but i converted to BASIC
in case someone in the future looks for this subject.

I did 2 methods with several ideas from this thread

Static Method

SetErrorMode(2)
SetWindowTitle("Test")
SetWindowSize(1280, 720, 0)
SetWindowAllowResize(1)
SetVirtualResolution(1280, 720 ) 
SetSyncRate(60, 0) 
SetScissor(0,0,0,0) 
UseNewDefaultFonts(1) 
SetClearColor(0, 149, 255)

SetPhysicsGravity(0, 100)
SetPhysicsScale(0.01) 
SetPhysicsDebugOn()

Height as integer = 12
Width as integer = 5
active as integer = 0

idn as integer = 1000

for y = 0 to Height-1
    for x = 0 to Width-1
        CreateSprite(idn, 0)
        SetSpriteSize(idn, 20, 20)
        SetSpritePosition(idn, 500 + (GetSpriteWidth(idn) * x), 700 - (GetSpriteHeight(idn) * y))
        SetSpritePhysicsOn(idn, 1)
        SetSpritePhysicsCanRotate(idn, 0)
        SetSpritePhysicsFriction(idn, 1)
        SetSpriteColor(idn, 220, 220, 220, 255)
        SetSpriteOffset(idn, GetSpriteWidth(idn)/2, GetSpriteHeight(idn)/2)
    inc idn
    next x
next y

CreateSprite(2, 0)
SetSpriteSize(2, 50, 80)
SetSpritePosition(2, 50, 600)
setspritephysicsOn(2, 2)
SetSpriteGroup(2, -100)
SetSpritePhysicsCanRotate(2, 0)

do
	if GetRawKeyState(68)
		vx = 250
		vy = GetSpritePhysicsVelocityY(2)
		active = 1
	endif

if GetRawKeyState(65)
		vx = -250
		vy = GetSpritePhysicsVelocityY(2)
		active = 1
	endif

if GetRawKeyPressed(87)
		noAr = 1
		vy = -650
		vx = GetSpritePhysicsVelocityX(2)
		active = 1
	endif
	
	if active = 1 
		SetSpritePhysicsVelocity(2, vx, vy)
		active = 0
	endif

for i = 1000 to 2000
		if GetSpriteExists(i) 
			if GetPhysicsCollision(2, i) 
				SetSpritePhysicsDelete(i)
				SetSpritePhysicsOn(i, 2)
				SetSpriteShapebox(i, -(GetSpriteWidth(i)/2) + 1,  -(GetSpriteHeight(i)/2) + 1, GetSpriteWidth(i)/2 - 1, GetSpriteHeight(i)/2 - 1, 0)
				SetSpriteGroup(i, -100)
				SetSpriteColorAlpha(i, 150)
			endif
		endif
	next i 
	
	for i = 1000 to 2000
		if GetSpriteExists(i)
			if (GetSpritePhysicsVelocityY(i) = 0)
				if GetSpriteYByOffset(i) + GetSpriteHeight(i) > 720 then continue
				obj = GetSpriteHit(GetSpriteXByOffset(i), GetSpriteYByOffset(i) + GetSpriteHeight(i))
				if obj = 0 and not obj = 2
					SetSpritePhysicsDelete(i)
					SetSpritePhysicsOn(i, 2)
					SetSpriteShapebox(i, -(GetSpriteWidth(i)/2) + 1,  -(GetSpriteHeight(i)/2) + 1, GetSpriteWidth(i)/2 - 1, GetSpriteHeight(i)/2 - 1, 0)
					SetSpriteGroup(i, -100)
					
					obj = GetSpriteHit(GetSpriteXByOffset(i) + GetSpriteWidth(i), GetSpriteYByOffset(i))
					if obj > 0 and not obj = 2
						SetSpritePhysicsDelete(obj)
						SetSpritePhysicsOn(obj, 2)
						SetSpriteShapebox(obj, -(GetSpriteWidth(obj)/2) + 1,  -(GetSpriteHeight(obj)/2) + 1, GetSpriteWidth(obj)/2 - 1, GetSpriteHeight(obj)/2 - 1, 0)
						SetSpriteGroup(obj, -100)
					endif
					
					obj = GetSpriteHit(GetSpriteXByOffset(i) - GetSpriteWidth(i), GetSpriteYByOffset(i))
					if obj > 0 and not obj = 2
						SetSpritePhysicsDelete(obj)
						SetSpritePhysicsOn(obj, 2)
						SetSpriteShapebox(obj, -(GetSpriteWidth(obj)/2) + 1,  -(GetSpriteHeight(obj)/2) + 1, GetSpriteWidth(obj)/2 - 1, GetSpriteHeight(obj)/2 - 1, 0)
						SetSpriteGroup(obj, -100)
					endif
				endif
				
			endif
		endif
	next i

Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

SetErrorMode(2)
SetWindowTitle("Test")
SetWindowSize(1280, 720, 0)
SetWindowAllowResize(1)
SetVirtualResolution(1280, 720 ) 
SetSyncRate(60, 0) 
SetScissor(0,0,0,0) 
UseNewDefaultFonts(1) 
SetClearColor(0, 149, 255)

SetPhysicsGravity(0, 100)
SetPhysicsScale(0.01) 
SetPhysicsDebugOn()

Height as integer = 12
Width as integer = 5
active as integer = 0

idn as integer = 1000


for y = 0 to Height-1
    for x = 0 to Width-1
        CreateSprite(idn, 0)
        SetSpriteSize(idn, 20, 20)
        SetSpritePosition(idn, 500 + (GetSpriteWidth(idn) * x), 700 - (GetSpriteHeight(idn) * y))
        SetSpritePhysicsOn(idn, 1)
        SetSpritePhysicsCanRotate(idn, 0)
        SetSpritePhysicsFriction(idn, 1)
        SetSpriteColor(idn, 220, 220, 220, 255)
        SetSpriteOffset(idn, GetSpriteWidth(idn)/2, GetSpriteHeight(idn)/2)
    inc idn
    next x
next y


CreateSprite(2, 0)
SetSpriteSize(2, 50, 80)
SetSpritePosition(2, 50, 600)
setspritephysicsOn(2, 2)
SetSpriteGroup(2, -100)
SetSpritePhysicsCanRotate(2, 0)


do
	if GetRawKeyState(68)
		vx = 250
		vy = GetSpritePhysicsVelocityY(2)
		active = 1
	endif

	if GetRawKeyState(65)
		vx = -250
		vy = GetSpritePhysicsVelocityY(2)
		active = 1
	endif

	if GetRawKeyPressed(87)
		noAr = 1
		vy = -650
		vx = GetSpritePhysicsVelocityX(2)
		active = 1
	endif
	
	if active = 1 
		SetSpritePhysicsVelocity(2, vx, vy)
		active = 0
	endif


	for i = 1000 to 2000
		if GetSpriteExists(i) 
			if GetPhysicsCollision(2, i) 
				SetSpritePhysicsDelete(i)
				SetSpritePhysicsOn(i, 2)
				SetSpriteShapebox(i, -(GetSpriteWidth(i)/2) + 1,  -(GetSpriteHeight(i)/2) + 1, GetSpriteWidth(i)/2 - 1, GetSpriteHeight(i)/2 - 1, 0)
				SetSpriteGroup(i, -100)
				SetSpriteColorAlpha(i, 150)
			endif
		endif
	next i 
	
	for i = 1000 to 2000
		if GetSpriteExists(i)
			if (GetSpritePhysicsVelocityY(i) = 0)
				if GetSpriteYByOffset(i) + GetSpriteHeight(i) > 720 then continue
				obj = GetSpriteHit(GetSpriteXByOffset(i), GetSpriteYByOffset(i) + GetSpriteHeight(i))
				if obj = 0 and not obj = 2
					SetSpritePhysicsDelete(i)
					SetSpritePhysicsOn(i, 2)
					SetSpriteShapebox(i, -(GetSpriteWidth(i)/2) + 1,  -(GetSpriteHeight(i)/2) + 1, GetSpriteWidth(i)/2 - 1, GetSpriteHeight(i)/2 - 1, 0)
					SetSpriteGroup(i, -100)
					
					obj = GetSpriteHit(GetSpriteXByOffset(i) + GetSpriteWidth(i), GetSpriteYByOffset(i))
					if obj > 0 and not obj = 2
						SetSpritePhysicsDelete(obj)
						SetSpritePhysicsOn(obj, 2)
						SetSpriteShapebox(obj, -(GetSpriteWidth(obj)/2) + 1,  -(GetSpriteHeight(obj)/2) + 1, GetSpriteWidth(obj)/2 - 1, GetSpriteHeight(obj)/2 - 1, 0)
						SetSpriteGroup(obj, -100)
					endif
					
					obj = GetSpriteHit(GetSpriteXByOffset(i) - GetSpriteWidth(i), GetSpriteYByOffset(i))
					if obj > 0 and not obj = 2
						SetSpritePhysicsDelete(obj)
						SetSpritePhysicsOn(obj, 2)
						SetSpriteShapebox(obj, -(GetSpriteWidth(obj)/2) + 1,  -(GetSpriteHeight(obj)/2) + 1, GetSpriteWidth(obj)/2 - 1, GetSpriteHeight(obj)/2 - 1, 0)
						SetSpriteGroup(obj, -100)
					endif
				endif
				
			endif
		endif
	next i 

    Print( ScreenFPS() )
    Sync()
loop

Dynamic method with connections

SetErrorMode(2)
SetWindowTitle("Test")
SetWindowSize(1280, 720, 0)
SetWindowAllowResize(1)
SetVirtualResolution(1280, 720 ) 
SetSyncRate(60, 0) 
SetScissor(0,0,0,0) 
UseNewDefaultFonts(1) 
SetClearColor(0, 149, 255)

SetPhysicsGravity(0, 100)
SetPhysicsScale(0.01) 
SetPhysicsDebugOn()

//Player
CreateSprite(2, 0)
SetSpriteSize(2, 50, 80)
SetSpritePosition(2, 50, 600)
setspritephysicsOn(2, 2)
SetSpriteGroup(2, -100)
SetSpritePhysicsCanRotate(2, 0)

//Building
Height as integer = 12
Width as integer = 5
active as integer = 0
idn as integer = 1000
for y = 0 to Height-1
    for x = 0 to Width-1
        CreateSprite(idn, 0)
        SetSpriteSize(idn, 20, 20)
        SetSpritePosition(idn, 500 + (GetSpriteWidth(idn) * x), 700 - (GetSpriteHeight(idn) * y))
        SetSpritePhysicsOn(idn, 2)
        SetSpritePhysicsCanRotate(idn, 0)
        SetSpritePhysicsFriction(idn, 1)
        SetSpriteColor(idn, 220, 220, 220, 255)
        SetSpriteOffset(idn, GetSpriteWidth(idn)/2, GetSpriteHeight(idn)/2)
    inc idn
    next x
next y

//Joints
idn = 1000
for n = 0 to Height
	for i = 0 to Width
		if GetSpriteExists(idn + 1)
			if GetSpriteY(idn + 1) = GetSpriteY(idn) 
				id = CreateDistanceJoint(idn, idn + 1, GetSpriteXByOffset(idn), GetSpriteYByOffset(idn), GetSpriteXByOffset(idn + 1), GetSpriteYByOffset(idn + 1), 1)
				SetJointDamping(id, 0, 30)
				if not GetSpriteExists(idn + Width) 
					inc idn
					continue
				endif
				id2 = CreateDistanceJoint(idn, idn + Width, GetSpriteXByOffset(idn), GetSpriteYByOffset(idn), GetSpriteXByOffset(idn + Width), GetSpriteYByOffset(idn + Width), 1)
				SetJointDamping(id2, 0, 30)
			else 
				id3 = CreateDistanceJoint(idn, idn + Width, GetSpriteXByOffset(idn), GetSpriteYByOffset(idn), GetSpriteXByOffset(idn + Width), GetSpriteYByOffset(idn + Width), 1)
				SetJointDamping(id3, 0, 30)
			endif
			inc idn
		endif
	next i
next n

do
	//Collision
	for i = 1000 to 2000
		if (GetSpriteExists(i)) 
			if (GetPhysicsCollision(2, i))
				SetSpritePhysicsDelete(i)
				SetSpritePhysicsOn(i, 2)
				SetSpriteColorAlpha(i, Random2(150, 255))
				SetSpriteGroup(i, -100)
			endif
		endif
	next i
	
	
    if GetRawKeyState(68)
		vx = 250
		vy = GetSpritePhysicsVelocityY(2)
		active = 1
	endif

if GetRawKeyState(65)
		vx = -250
		vy = GetSpritePhysicsVelocityY(2)
		active = 1
	endif

if GetRawKeyPressed(87)
		noAr = 1
		vy = -650
		vx = GetSpritePhysicsVelocityX(2)
		active = 1
	endif
	
	if active = 1 
		SetSpritePhysicsVelocity(2, vx, vy)
		active = 0
	endif

Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

SetErrorMode(2)
SetWindowTitle("Test")
SetWindowSize(1280, 720, 0)
SetWindowAllowResize(1)
SetVirtualResolution(1280, 720 ) 
SetSyncRate(60, 0) 
SetScissor(0,0,0,0) 
UseNewDefaultFonts(1) 
SetClearColor(0, 149, 255)

SetPhysicsGravity(0, 100)
SetPhysicsScale(0.01) 
SetPhysicsDebugOn()

//Player
CreateSprite(2, 0)
SetSpriteSize(2, 50, 80)
SetSpritePosition(2, 50, 600)
setspritephysicsOn(2, 2)
SetSpriteGroup(2, -100)
SetSpritePhysicsCanRotate(2, 0)


//Building
Height as integer = 12
Width as integer = 5
active as integer = 0
idn as integer = 1000
for y = 0 to Height-1
    for x = 0 to Width-1
        CreateSprite(idn, 0)
        SetSpriteSize(idn, 20, 20)
        SetSpritePosition(idn, 500 + (GetSpriteWidth(idn) * x), 700 - (GetSpriteHeight(idn) * y))
        SetSpritePhysicsOn(idn, 2)
        SetSpritePhysicsCanRotate(idn, 0)
        SetSpritePhysicsFriction(idn, 1)
        SetSpriteColor(idn, 220, 220, 220, 255)
        SetSpriteOffset(idn, GetSpriteWidth(idn)/2, GetSpriteHeight(idn)/2)
    inc idn
    next x
next y


//Joints
idn = 1000
for n = 0 to Height
	for i = 0 to Width
		if GetSpriteExists(idn + 1)
			if GetSpriteY(idn + 1) = GetSpriteY(idn) 
				id = CreateDistanceJoint(idn, idn + 1, GetSpriteXByOffset(idn), GetSpriteYByOffset(idn), GetSpriteXByOffset(idn + 1), GetSpriteYByOffset(idn + 1), 1)
				SetJointDamping(id, 0, 30)
				if not GetSpriteExists(idn + Width) 
					inc idn
					continue
				endif
				id2 = CreateDistanceJoint(idn, idn + Width, GetSpriteXByOffset(idn), GetSpriteYByOffset(idn), GetSpriteXByOffset(idn + Width), GetSpriteYByOffset(idn + Width), 1)
				SetJointDamping(id2, 0, 30)
			else 
				id3 = CreateDistanceJoint(idn, idn + Width, GetSpriteXByOffset(idn), GetSpriteYByOffset(idn), GetSpriteXByOffset(idn + Width), GetSpriteYByOffset(idn + Width), 1)
				SetJointDamping(id3, 0, 30)
			endif
			inc idn
		endif
	next i
next n

do
	//Collision
	for i = 1000 to 2000
		if (GetSpriteExists(i)) 
			if (GetPhysicsCollision(2, i))
				SetSpritePhysicsDelete(i)
				SetSpritePhysicsOn(i, 2)
				SetSpriteColorAlpha(i, Random2(150, 255))
				SetSpriteGroup(i, -100)
			endif
		endif
	next i
	
	
    if GetRawKeyState(68)
		vx = 250
		vy = GetSpritePhysicsVelocityY(2)
		active = 1
	endif

	if GetRawKeyState(65)
		vx = -250
		vy = GetSpritePhysicsVelocityY(2)
		active = 1
	endif

	if GetRawKeyPressed(87)
		noAr = 1
		vy = -650
		vx = GetSpritePhysicsVelocityX(2)
		active = 1
	endif
	
	if active = 1 
		SetSpritePhysicsVelocity(2, vx, vy)
		active = 0
	endif

    Print( ScreenFPS() )
    Sync()
loop

the Virtual Nomad method is also great
https://forum.thegamecreators.com/thread/225827?page=1#msg2653100

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 1st Mar 2020 17:08

Link

Thanks for sharing the solution it will come in handy to others im sure

The static method is my personal favourite the dynamic method with connections
looks a bit like the start of a Christmas tree to me on my old pc which im sure some
updating might fix and or closing off some of the apps im running atm. Weird how
I have that issue now and not before.

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 1st Mar 2020 19:38

Link

That looks superb. What an excellent set of solutions. Thanks!!

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 1st Mar 2020 19:51 Edited at: 1st Mar 2020 19:55

Link

Quote: "the Virtual Nomad method is also great"

not quite

2 mistakes in mine:

1) not also checking the y velocity to ensure the sprite is static; easily fixed:

+ Code Snippet

if ABS(GetSpritePhysicsVelocityX(BSprite)) > threshold# or ABS(GetSpritePhysicsVelocityY(BSprite)) > threshold#
	if GetSpritePhysicsVelocityX(Asprite) = 0.0 and GetSpritePhysicsVelocityY(Asprite) = 0.0 then ToReplace.Insert (Asprite) `static to dynamic
Endif
if ABS(GetSpritePhysicsVelocityX(ASprite)) > threshold# or ABS(GetSpritePhysicsVelocityY(ASprite)) > threshold#
	if GetSpritePhysicsVelocityX(Bsprite) = 0.0 and GetSpritePhysicsVelocityY(Bsprite) = 0.0 then ToReplace.Insert (BSprite) `static to dynamic
Endif

2) not checking if there is a block below to hold it up (which should also make it dynamic/let it fall - if there's something on both sides, maybe they'd squeeze it in place?). this is where i like your latest jointed effort. i would go back into mine and add the check, but that will lead to something more (and more, and more). i'm not up for that ATM.

but, thanks for the mention. and, thanks for the OP; i hope to revisit some day.

My Itch.io Home.

Back to top

Profile PM Website

brunuu

5

Years of Service

User Offline

Joined: 4th Jun 2018

Location:

Posted: 2nd Mar 2020 03:45

Link

I tried to use shaders but then I got to the conclusion that I have no idea how shaders work

Back to top

Profile PM

janbo

15

Years of Service

User Offline

Joined: 10th Nov 2008

Location: Germany

Posted: 2nd Mar 2020 12:45

Link

@brunuu: What shader do you need ?

Back to top

Profile PM Email Website

brunuu

5

Years of Service

User Offline

Joined: 4th Jun 2018

Location:

Posted: 2nd Mar 2020 13:26 Edited at: 2nd Mar 2020 13:26

Link

I don't know very well, because I have no idea how they look in 2D
I tried to find shader tutorials for AppGameKit but most of them are for 3D

Back to top

Profile PM

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 2nd Mar 2020 20:40

Link

Quote: "What shader do you need ?"

I think a "stamp" shader would be the go.

Have an image with shapes that need to be erased in one texture slot

Back to top

Profile PM

Mesher

User Banned

Posted: 3rd Mar 2020 01:13 Edited at: 3rd Mar 2020 01:24

Link

A shader or anything is 2D unless we change projections to 3D ourselves. Just thought give you that insight.

thats why there is * Projection in shaders to convert to 3D

but everthing is indeed in 2D unless we tell it otherwise by the projection

A shader works on pixels from top right to bottom left in a 2D screen resolution

Each frame in the shader main loop is per pixel - so what ever you wish to do in every main loop of the pixel PS file, is your choice. with only certain limitations of Fract, len, mix, smoothstep, dot etc i cannot see how this can be acheived by shaders

Interested....

Back to top

Profile

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 3rd Mar 2020 02:30

Link

Attached is a project that will "erase" a particular shape from an image at the cursor position when you click.
The idea would be that you would track the motion of the wrecking ball and apply the "stamp" to each position erasing that piece of the image, which i guess, (In the case of a rampage game) would reveal the underlying girders and support structure (image below)

Attachments

Login to view attachments

Back to top

Profile PM

janbo

15

Years of Service

User Offline

Joined: 10th Nov 2008

Location: Germany

Posted: 3rd Mar 2020 15:44 Edited at: 3rd Mar 2020 15:46

Link

So I too made a little test demo.
As you can see there are many problems with it.
AGK's mesh generation only produces convex meshes thats why I'd take a marching quad algorithm or something to produce a custom concarve mesh.
If you cut through the whole sprite like I did in the video, It doesn't split into 3 seperate sprites at the end(the stamp, the top and bottom sprite), so you end up with a floating part.
I think the guys who made notia made a good job, if you know what i mean ^^

Back to top

Profile PM Email Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 3rd Mar 2020 21:23

Link

Nice work. It looks quite good.

Back to top

Profile PM

brunuu

5

Years of Service

User Offline

Joined: 4th Jun 2018

Location:

Posted: 4th Mar 2020 18:39

Link

it would be nice if the forum had a way to give upvotes or likes
there is a lot of cool stuff in this thread.

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 4th Mar 2020 22:55

Link

Quote: "it would be nice if the forum had a way to give upvotes or likes"

a sound +1 from me.

My Itch.io Home.

Back to top

Profile PM Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 5th Mar 2020 06:33

Link

@janbo
what would be the best method of showing like a bullet hole effect with AppGameKit (it looks like your stamp demo would work well for that)

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

janbo

15

Years of Service

User Offline

Joined: 10th Nov 2008

Location: Germany

Posted: 5th Mar 2020 21:53 Edited at: 5th Mar 2020 21:56

Link

@fubarpk: I guess Blink0K's will do too, with some raycasting to get the normal and rotate the bullethole appropriately.
Our shaders are pritty basic but gathering all the attributes and calculation from world position into render target pixel position is somewhat harder.
One part might look like this:

+ Code Snippet

ScreenBoundsWidth=GetScreenBoundsRight()-GetScreenBoundsLeft()
ScreenBoundsHeight=GetScreenBoundsBottom()-GetScreenBoundsTop()

HitSpriteID=GetSpriteHit(PointerX#,PointerY#)
			HitImageID=GetSpriteImageID(HitSpriteID)
			HitImageWidth=GetImageWidth(HitImageID)
			HitImageHeight=GetImageHeight(HitImageID)
			
			HitSpriteX#=GetSpriteXByOffset(HitSpriteID)
			HitSpriteY#=GetSpriteYByOffset(HitSpriteID)
			HitWidth#=GetSpriteWidth(HitSpriteID)
			HitHeight#=GetSpriteHeight(HitSpriteID)
			HitAngle#=GetSpriteAngle(HitSpriteID)
			
			HitPixelX#=GetSpriteXFromWorld(HitSpriteID,PointerX#,PointerY#)
			HitPixelY#=GetSpriteYFromWorld(HitSpriteID,PointerX#,PointerY#)
			TargetU#=GetScreenBoundsLeft()+((HitWidth#*0.5+HitPixelX#)/HitWidth#)*ScreenBoundsWidth
			TargetV#=GetScreenBoundsTop()+((HitHeight#*0.5+HitPixelY#)/HitHeight#)*ScreenBoundsHeight

Back to top

Profile PM Email Website

brunuu

5

Years of Service

User Offline

Joined: 4th Jun 2018

Location:

Posted: 4th Apr 2020 19:07

Link

these strange dents
I still don't know why that happens
sometimes it doesn't and sometimes it does

SetErrorMode(2)
SetWindowTitle("Test")
SetWindowSize(1280, 720, 0)
SetWindowAllowResize(1)
SetVirtualResolution(1280, 720 ) 
SetSyncRate(60, 0) 
SetScissor(0,0,0,0) 
UseNewDefaultFonts(1) 
SetClearColor(0, 149, 255)

SetPhysicsGravity(0, 100)
SetPhysicsScale(0.01) 
//SetPhysicsDebugOn()

//Building
Height as integer = 10
Width as integer = 10
active as integer = 0
idn as integer = 1000
for y = 0 to Height-1
    for x = 0 to Width-1
        CreateSprite(idn, 0)
        SetSpriteSize(idn, 20, 20)
        SetSpritePosition(idn, 500 + (GetSpriteWidth(idn) * x), 700 - (GetSpriteHeight(idn) * y))
        SetSpritePhysicsOn(idn, 2)
        SetSpritePhysicsCanRotate(idn, 0)
        SetSpriteColor(idn, 220, 220, 220, 255)
        SetSpritePhysicsRestitution(idn, 0)
        SetSpriteOffset(idn, GetSpriteWidth(idn)/2, GetSpriteHeight(idn)/2)
        SetSpriteShapeBox(idn, -(GetSpriteWidth(idn) / 2) + 1, -(GetSpriteHeight(idn) / 2) + 1, (GetSpriteWidth(idn) / 2) - 1, (GetSpriteHeight(idn) / 2) - 1, 0)
    inc idn
    next x
next y

//Joints
idn = 1000
for n = 0 to Height
	for i = 0 to Width
		if GetSpriteExists(idn + 1)
			if GetSpriteY(idn + 1) = GetSpriteY(idn) 
				id = CreateDistanceJoint(idn, idn + 1, GetSpriteXByOffset(idn), GetSpriteYByOffset(idn), GetSpriteXByOffset(idn + 1), GetSpriteYByOffset(idn + 1), 1)
				SetJointDamping(id, 0, 30)
				if not GetSpriteExists(idn + Width) 
					inc idn
					continue
				endif
				id2 = CreateDistanceJoint(idn, idn + Width, GetSpriteXByOffset(idn), GetSpriteYByOffset(idn), GetSpriteXByOffset(idn + Width), GetSpriteYByOffset(idn + Width), 1)
				SetJointDamping(id2, 0, 30)
			else 
				id3 = CreateDistanceJoint(idn, idn + Width, GetSpriteXByOffset(idn), GetSpriteYByOffset(idn), GetSpriteXByOffset(idn + Width), GetSpriteYByOffset(idn + Width), 1)
				SetJointDamping(id3, 0, 30)
			endif
			inc idn
		endif
	next i
next n

do
    Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

SetErrorMode(2)
SetWindowTitle("Test")
SetWindowSize(1280, 720, 0)
SetWindowAllowResize(1)
SetVirtualResolution(1280, 720 ) 
SetSyncRate(60, 0) 
SetScissor(0,0,0,0) 
UseNewDefaultFonts(1) 
SetClearColor(0, 149, 255)

SetPhysicsGravity(0, 100)
SetPhysicsScale(0.01) 
//SetPhysicsDebugOn()


//Building
Height as integer = 10
Width as integer = 10
active as integer = 0
idn as integer = 1000
for y = 0 to Height-1
    for x = 0 to Width-1
        CreateSprite(idn, 0)
        SetSpriteSize(idn, 20, 20)
        SetSpritePosition(idn, 500 + (GetSpriteWidth(idn) * x), 700 - (GetSpriteHeight(idn) * y))
        SetSpritePhysicsOn(idn, 2)
        SetSpritePhysicsCanRotate(idn, 0)
        SetSpriteColor(idn, 220, 220, 220, 255)
        SetSpritePhysicsRestitution(idn, 0)
        SetSpriteOffset(idn, GetSpriteWidth(idn)/2, GetSpriteHeight(idn)/2)
        SetSpriteShapeBox(idn, -(GetSpriteWidth(idn) / 2) + 1, -(GetSpriteHeight(idn) / 2) + 1, (GetSpriteWidth(idn) / 2) - 1, (GetSpriteHeight(idn) / 2) - 1, 0)
    inc idn
    next x
next y


//Joints
idn = 1000
for n = 0 to Height
	for i = 0 to Width
		if GetSpriteExists(idn + 1)
			if GetSpriteY(idn + 1) = GetSpriteY(idn) 
				id = CreateDistanceJoint(idn, idn + 1, GetSpriteXByOffset(idn), GetSpriteYByOffset(idn), GetSpriteXByOffset(idn + 1), GetSpriteYByOffset(idn + 1), 1)
				SetJointDamping(id, 0, 30)
				if not GetSpriteExists(idn + Width) 
					inc idn
					continue
				endif
				id2 = CreateDistanceJoint(idn, idn + Width, GetSpriteXByOffset(idn), GetSpriteYByOffset(idn), GetSpriteXByOffset(idn + Width), GetSpriteYByOffset(idn + Width), 1)
				SetJointDamping(id2, 0, 30)
			else 
				id3 = CreateDistanceJoint(idn, idn + Width, GetSpriteXByOffset(idn), GetSpriteYByOffset(idn), GetSpriteXByOffset(idn + Width), GetSpriteYByOffset(idn + Width), 1)
				SetJointDamping(id3, 0, 30)
			endif
			inc idn
		endif
	next i
next n

do
    Print( ScreenFPS() )
    Sync()
loop

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / best way for physical destruction

Attachments