SetScissor () Problem - GameCreators Forum

Author

Message

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 11th Dec 2014 10:34

Link

Hi.

I create a game with (1280 x 800) resolution that show in windows without black border. but when I export it to android, left side have black border.

according to Development Tips (Removing black borders) at help file, I used SetScissor(0,0,0,0) for fix black borders but black border still exist.

I used GetScreenBoundsLeft() and GetScreenBoundsRight() for show what is negative value, that show -20 at left and 1300 at right.

how can fix this Problem?

Back to top

Profile PM

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 11th Dec 2014 11:41

Link

Can we see some code please? Even just a sort example to demonstrate the problem.

I use SetScissor(0,0,0,0) a lot, although I had no idea about the GetScreenBounds commands. Instead I had been working out the difference by using the device screen width and height.

It seems to work ok for me, using both versions of AppGameKit and on a whole variety of Android test devices.

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 11th Dec 2014 15:10

Link

Quote: "Can we see some code please?"

this is my code:

+ Code Snippet

// Landscape App
SetVirtualResolution (1280,800)

SetSyncRate (60,1)

// Load Image Animatios
idleImage = LoadImage ("idle.png")

// Create spr Sprite
spr = CreateSprite(idleImage)
SetSpritePosition (spr,40,50)
setSpriteSize(spr,120,130)
SetSpriteShape (spr,3)
setSpritePhysicsOn(spr,2)
setSpritePhysicsCanRotate(spr,0)
SetSpriteDepth (spr, 0)
SetSpriteAnimation ( spr, 170, 170, 4 )
PlaySprite ( spr, 10 , 1, 1, 4 )

SetScissor(0,0,0,0)

do


 Print ("Left" + str (GetScreenBoundsLeft()))
 Update2D(0) : Render2DFront() : Swap()
loop

Back to top

Profile PM

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 12th Dec 2014 13:58 Edited at: 20th Dec 2014 00:02

Link

1280 x 800 gives an unusual aspect ratio.
I\'m not saying it\'s wrong but it could be the cause if your device doesn\'t support those screen dimensions.

1280x720 is a more normal aspect ratio - Have you tried that?

[Edit to add image]

Attachments

Login to view attachments

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 12th Dec 2014 14:36

Link

1280x720 or 1280x720 have same problem.

Back to top

Profile PM

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 13th Dec 2014 21:38 Edited at: 13th Dec 2014 21:42

Link

The problem in this case is not the SetScissor() command, it's that although you have changed the drawing area, you have not changed AGK's "edge of screen" physics walls.

I couldn't find a command to change them, but you can turn them off

+ Code Snippet

SetPhysicsWallTop(0)
SetPhysicsWallBottom(0)
SetPhysicsWallLeft(0)
SetPhysicsWallRight(0)

And then create your own (by using invisible sprites or something) where the app needs them to be.

>Edit<

A better example of what SetScissor() does would be to create a full screen sprite to use as a background, Create it 50px too large all round, and position it at -50,-50. Then rem out the setscissor() command, run the program, un-rem the setscissor() and run it again.

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 13th Dec 2014 21:51 Edited at: 13th Dec 2014 21:52

Link

I turn off edge of screen with your code but black border still exist.

Quote: "Then rem out the setscissor() command, run the program, un-rem the setscissor() and run it again."

I can't understand your mean.

Back to top

Profile PM

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 14th Dec 2014 01:03 Edited at: 14th Dec 2014 01:05

Link

Using SetScissor() allows sprites to be drawn "outside" of the normal screen co'ords, but you still need to position them there.

+ Code Snippet


// Project: test 
// Created: 2014-12-13

// set window properties
SetWindowTitle( "test" )
SetWindowSize( 720, 480, 0 ) : // This is widescreen

// set display properties
SetVirtualResolution( 640, 480 ) : //	This is normal, to show the black bars
SetOrientationAllowed( 1, 1, 1, 1 )

//	Lets create a background sprite
bgSpriteID=CreateSprite(0)
SetSpriteColor(bgSpriteID,0,192,0,255)
SetSpriteSize(bgSpriteID,720,480)
SetSpritePosition(bgSpriteID,-40,0)

//	This is the line to rem and unrem
SetScissor(0,0,0,0)

do

    Print( ScreenFPS() )
    Sync()

loop

I hope this code explains better

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 18th Dec 2014 20:29 Edited at: 18th Dec 2014 20:41

Link

Quote: "
Using SetScissor() allows sprites to be drawn "outside" of the normal screen co'ords, but you still need to position them there."

I have AppGameKit v1. but I compiled your code like this:

+ Code Snippet

// set window properties
SetWindowTitle( "test" )

// set display properties
SetVirtualResolution( 640, 480 ) : //	This is normal, to show the black bars
SetOrientationAllowed( 1, 1, 1, 1 )

//	Lets create a background sprite
bgSpriteID=CreateSprite(0)
SetSpriteColor(bgSpriteID,0,192,0,255)
SetSpriteSize(bgSpriteID,640,480)
SetSpritePosition(bgSpriteID,-40,0)

//	This is the line to rem and unrem
SetScissor(0,0,0,0)

do
    Print( ScreenFPS() )
    Sync()

loop

but show me a Green background like this:

I don't understand your mean with this code. because it don't fix any Problem.

Back to top

Profile PM

Impetus73

13

Years of Service

User Offline

Joined: 28th Aug 2011

Location: Volda, Norway

Posted: 19th Dec 2014 07:32 Edited at: 19th Dec 2014 07:40

Link

You need to broadcast it to an android device, to get the borders, will not work in windows!

It means, that the coordinate system starts at 0,0 and if you have black borders, then this is not in the upper corner of the screen, but to the right of the black border.

To show a sprite on the black border, you need to use negative coordinates, to get it there.

If your black border at the left is 40 pixel wide, then the screen starts at -40,0

You can not "stretch" the game to fill the screen, just use the scissor command, to force the screen to show graphics there, even if it's outside the defined resolution.

It's like Commodore 64, and placing sprites in the border of the screen, if your old enough to remember that.

----------------
AGK programmer
Did Amiga / AMOS programming in the 90's.

Back to top

Profile PM Email

Impetus73

13

Years of Service

User Offline

Joined: 28th Aug 2011

Location: Volda, Norway

Posted: 19th Dec 2014 07:47

Link

Try this example on an android device, to understand it better

+ Code Snippet

// set window properties
SetWindowTitle( "test" )

// set display properties
SetVirtualResolution( 640, 480 ) : //	This is normal, to show the black bars
SetOrientationAllowed( 1, 1, 1, 1 )

//	Lets create a background sprite
bgSpriteID=CreateSprite(0)
SetSpriteColor(bgSpriteID,0,192,0,255)
SetSpriteSize(bgSpriteID,640,480)
SetSpritePosition(bgSpriteID,0,0)

//	Lets create a player sprite
plSpriteID=CreateSprite(0)
SetSpriteColor(plSpriteID,255,0,0,255)
SetSpriteSize(plSpriteID,48,48)


SetScissor(0,0,0,0)

x=-100

do
	SetSpritePosition(plSpriteID,x,100)
	inc x,2
	if x>740 then x=-100

    Print( ScreenFPS() )
    Sync()

loop

----------------
AGK programmer
Did Amiga / AMOS programming in the 90's.

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 19th Dec 2014 11:47

Link

Thanks Impetus73.

but I can't understand your mean.

at first post I said black border is -20 at left side and when I use SetScissor(0,0,0,0) no fix black border. the problem is that SetScissor(0,0,0,0) don't work.

this a Picture from your last code at my phone:

Back to top

Profile PM

Impetus73

13

Years of Service

User Offline

Joined: 28th Aug 2011

Location: Volda, Norway

Posted: 19th Dec 2014 12:03

Link

Does the red box not move over the black borders?, or is it hidden beneath?

The green will not be expanded, you need to add a sprite that is big enough to cover the black borders.

The black borders, are just areas of the screen of the physical device, that the resolution you selected does not cover.

If you don't understand this, then you should ignore the borders for now. Borderless programming, is harder, you need to adjust the UI, placements of physics borders, and handle the added negative values.

If you remove the scissor command from the code I gave you, you will see that the red dot does not move over the borders.

----------------
AGK programmer
Did Amiga / AMOS programming in the 90's.

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 19th Dec 2014 12:55 Edited at: 19th Dec 2014 12:56

Link

this is your code that I change Sprite size to (1300,800) and setvirtualResolution (1280,800) and set width and height at Setup.agc to (1280,800). but still black border exist.

+ Code Snippet

// set window properties
SetWindowTitle( "test" )

// set display properties
SetVirtualResolution( 1280, 800 ) : //	This is normal, to show the black bars
SetOrientationAllowed( 1, 1, 1, 1 )

//	Lets create a background sprite
bgSpriteID=CreateSprite(0)
SetSpriteColor(bgSpriteID,0,192,0,255)
SetSpriteSize(bgSpriteID,1300,800)
SetSpritePosition(bgSpriteID,0,0)

//	Lets create a player sprite
plSpriteID=CreateSprite(0)
SetSpriteColor(plSpriteID,255,0,0,255)
SetSpriteSize(plSpriteID,48,48)

SetScissor(0,0,0,0)

x=-100

do
	SetSpritePosition(plSpriteID,x,100)
	inc x,2
	if x>740 then x=-100

    Print( ScreenFPS() )
    Sync()

loop

this is a Picture:

Quote: "
you need to adjust the UI, placements of physics borders, and handle the added negative values."

how?

Back to top

Profile PM

Impetus73

13

Years of Service

User Offline

Joined: 28th Aug 2011

Location: Volda, Norway

Posted: 19th Dec 2014 18:03

Link

There is no black borders here:

// set display properties
SetVirtualResolution( 1280, 800 ) : //	This is normal, to show the black bars
SetOrientationAllowed( 1, 1, 1, 1 )

// Get exact physical device screen size
psxL=GetScreenBoundsLeft()-1
psxR=GetScreenBoundsright()+1

// Lets create a background sprite, and adjust to physical screen
bgSpriteID=CreateSprite(0)
SetSpriteColor(bgSpriteID,0,196,0,255)
SetSpriteSize(bgSpriteID,abs(psxL)+psxR,800)
SetSpritePosition(bgSpriteID,psxL,0)

// Lets create a player sprite
plSpriteID1=CreateSprite(0)
SetSpriteColor(plSpriteID1,255,0,0,255)
SetSpriteSize(plSpriteID1,128,128)
plSpriteID2=CreateSprite(0)
SetSpriteColor(plSpriteID2,255,0,0,255)
SetSpriteSize(plSpriteID2,128,128)

SetScissor(0,0,0,0)

x=-96

do
    SetSpritePosition(plSpriteID1,psxL-64+x,200)
    SetSpritePosition(plSpriteID2,psxR-64-x,200)

inc x,1
    if x>196 then x=-96

Print("Virtual resolution: 1280x800")
    Print("Physical screen start left: "+str(psxL))
    Print("Physical screen end right:  "+str(psxR))
    
    Sync()

loop

+ Code Snippet

// set display properties
SetVirtualResolution( 1280, 800 ) : //	This is normal, to show the black bars
SetOrientationAllowed( 1, 1, 1, 1 )

// Get exact physical device screen size
psxL=GetScreenBoundsLeft()-1
psxR=GetScreenBoundsright()+1

// Lets create a background sprite, and adjust to physical screen
bgSpriteID=CreateSprite(0)
SetSpriteColor(bgSpriteID,0,196,0,255)
SetSpriteSize(bgSpriteID,abs(psxL)+psxR,800)
SetSpritePosition(bgSpriteID,psxL,0)

// Lets create a player sprite
plSpriteID1=CreateSprite(0)
SetSpriteColor(plSpriteID1,255,0,0,255)
SetSpriteSize(plSpriteID1,128,128)
plSpriteID2=CreateSprite(0)
SetSpriteColor(plSpriteID2,255,0,0,255)
SetSpriteSize(plSpriteID2,128,128)

SetScissor(0,0,0,0)

x=-96

do
    SetSpritePosition(plSpriteID1,psxL-64+x,200)
    SetSpritePosition(plSpriteID2,psxR-64-x,200)

    inc x,1
    if x>196 then x=-96

    Print("Virtual resolution: 1280x800")
    Print("Physical screen start left: "+str(psxL))
    Print("Physical screen end right:  "+str(psxR))
    
    Sync()

loop

To answer the last question, Not easily! This would require a whole tutorial, and everything in the game would have to be set up to compensate for the real width and height of the user's screen.

Most people either let the black bars just appear, or they fill them with some static graphics.

----------------
AGK programmer
Did Amiga / AMOS programming in the 90's.

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 19th Dec 2014 20:10 Edited at: 19th Dec 2014 20:39

Link

thanks Impetus73. you could hide black border under green sprite but important Problem is hidden under background.

I create a sprite that can move to left and right with Virtualjoystic in android devices. but sprite can't move more than red line in below picture.

for fix this Problem I disable Physics wall with below code:

+ Code Snippet

SetPhysicsWallLeft(0)
SetPhysicsWallRight(0)

and create a invisible sprite for fix this Problem but don't change anything.wall move to right and is like a hidden wall under green background.

this is full code:

// set display properties
SetVirtualResolution( 1280, 800 ) : //	This is normal, to show the black bars
SetOrientationAllowed( 1, 1, 1, 1 )

// Get exact physical device screen size
psxL=GetScreenBoundsLeft()
psxR=GetScreenBoundsright()

SetPhysicsGravity(0,1000)

SetPhysicsWallLeft(0)
SetPhysicsWallRight(0)

keyboard = getKeyboardExists ()
if keyboard <> 1 then AddVirtualJoystick( 1, 500, 700, 200 )

// Lets create a background sprite, and adjust to physical screen
bgSpriteID=CreateSprite(0)
SetSpriteColor(bgSpriteID,0,196,0,255)
SetSpriteSize(bgSpriteID,abs(psxL)+psxR,800)
SetSpritePosition(bgSpriteID,psxL,0)

spr = CreateSprite(0)
SetSpriteSize (spr,100,200)
SetSpritePosition(spr,20,60)
SetSpritePhysicsOn(spr,2)
SetSpriteDepth(spr,0)
SetSpritePhysicsCanRotate (spr,0)

wall = CreateSprite(0)
SetSpritePosition(wall,psxL,0)
SetSpriteSize(wall,10,800)
SetSpriteDepth(wall,0)
SetSpriteVisible(wall,0)
SetSpritePhysicsOn(wall,1)

SetScissor(0,0,0,0)

x=-96

do

// Move Player to Left and Right
if GetRawKeyState (39) = 1
    SetSpritePhysicsVelocity(spr,150,GetSpritePhysicsVelocityY(spr))
else if GetRawKeyState (37) = 1
    SetSpritePhysicsVelocity(spr,-150,GetSpritePhysicsVelocityY(spr))
else
    SetSpritePhysicsVelocity(spr,0,GetSpritePhysicsVelocityY(spr))
endif
    endif

if keyboard <> 1
    if GetVirtualJoystickX(1) > 0.1
        SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
    elseif GetVirtualJoystickX(1) < -0.1
        SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
endif
    endif

Print("Virtual resolution: 1280x800")
    Print("Physical screen start left: "+str(psxL))
    Print("Physical screen end right:  "+str(psxR))

Sync()

loop

+ Code Snippet

// set display properties
SetVirtualResolution( 1280, 800 ) : //	This is normal, to show the black bars
SetOrientationAllowed( 1, 1, 1, 1 )

// Get exact physical device screen size
psxL=GetScreenBoundsLeft()
psxR=GetScreenBoundsright()

SetPhysicsGravity(0,1000)

SetPhysicsWallLeft(0)
SetPhysicsWallRight(0)

keyboard = getKeyboardExists ()
if keyboard <> 1 then AddVirtualJoystick( 1, 500, 700, 200 )

// Lets create a background sprite, and adjust to physical screen
bgSpriteID=CreateSprite(0)
SetSpriteColor(bgSpriteID,0,196,0,255)
SetSpriteSize(bgSpriteID,abs(psxL)+psxR,800)
SetSpritePosition(bgSpriteID,psxL,0)

spr = CreateSprite(0)
SetSpriteSize (spr,100,200)
SetSpritePosition(spr,20,60)
SetSpritePhysicsOn(spr,2)
SetSpriteDepth(spr,0)
SetSpritePhysicsCanRotate (spr,0)

wall = CreateSprite(0)
SetSpritePosition(wall,psxL,0)
SetSpriteSize(wall,10,800)
SetSpriteDepth(wall,0)
SetSpriteVisible(wall,0)
SetSpritePhysicsOn(wall,1)

SetScissor(0,0,0,0)

x=-96

do

// Move Player to Left and Right
if GetRawKeyState (39) = 1
    SetSpritePhysicsVelocity(spr,150,GetSpritePhysicsVelocityY(spr))
else if GetRawKeyState (37) = 1
    SetSpritePhysicsVelocity(spr,-150,GetSpritePhysicsVelocityY(spr))
else
    SetSpritePhysicsVelocity(spr,0,GetSpritePhysicsVelocityY(spr))
endif
    endif


if keyboard <> 1
    if GetVirtualJoystickX(1) > 0.1
        SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
    elseif GetVirtualJoystickX(1) < -0.1
        SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
endif
    endif

    Print("Virtual resolution: 1280x800")
    Print("Physical screen start left: "+str(psxL))
    Print("Physical screen end right:  "+str(psxR))

    Sync()

loop

I exported APK with some 2d engines and never seen any Problem like AGK.

Back to top

Profile PM

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 19th Dec 2014 20:39 Edited at: 19th Dec 2014 20:39

Link

Maybe I'm missing something here but if black bars are your problem then wouldn't this stop them from ever occurring?

+ Code Snippet

SetVirtualResolution(GetDeviceWidth(), GetDeviceHeight())

Or this?

+ Code Snippet

SetDisplayAspect(GetDeviceWidth()*1.0/GetDeviceHeight()*1.0)

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 19th Dec 2014 21:09 Edited at: 19th Dec 2014 21:22

Link

use "SetVirtualResolution(GetDeviceWidth(), GetDeviceHeight())" fix black border but show half of my map. (new Problem)

Seem this Problem is a Bug in AGK. because "SetScissor(0,0,0,0)" good work in windows but don't work on Android Devices.

Back to top

Profile PM

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 19th Dec 2014 22:16

Link

@Scraggle, Using SetScissor allows you to use the entire screen and maintain the Aspect Ratio that you designed the game in.

Both of the solutions you provided will alter the aspect ratio to that of the device, and will stretch or distort

@Behdadsoft:
Your wall is 10 pixels wide. You are positioning the top left hand corner of the sprite at the edge of the screen. Your sprite is stopping when it hits the other side of your sprite.

To fix this problem, position the wall sprite like this...

+ Code Snippet

SetSpritePosition(wall,psxL-10,0)

Back to top

Profile PM Email Website

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 19th Dec 2014 23:50 Edited at: 20th Dec 2014 00:21

Link

Quote: "Both of the solutions you provided will alter the aspect ratio to that of the device, and will stretch or distort"

Yep, a bit of test shows that you are absolutely correct!

A bit more testing (after a few beers so forgive me if understand this incorrectly) tells me that to avoid any stretching we should always maintain an aspect ration of 1 - a perfect square and then to avoid any black bars, do something like this:

+ Code Snippet

SetDisplayAspect(1)

display as tDisplay
display.l = GetScreenBoundsLeft()
display.r = GetScreenBoundsRight()
display.t = GetScreenBoundsTop()
display.b = GetScreenBoundsBottom()
display.w = display.r-display.l
display.h = display.b-display.t

SetScissor(display.l, display.t, display.r, display.b )

b = CreateSprite( loadimage("brace.png"))
SetSpriteSize( b,25, 25)

SetSpriteDepth(b, 0)

s = CreateSprite( LoadImage("Sky.png"))
SetSpriteSize(s, display.w, display.h)
SetSpritePosition(s, display.l, display.t)


do
	for x# = display.l to display.r step 0.5
		SetSpritePosition(b, x#, 50)

		sync()
	next x#
loop


type tDisplay
	l as integer
	r as integer
	t as integer
	b as integer
	w as integer
	h as integer
endtype

That uses a 1x64 pixel sprite (sky.png) stretched to fill the screen and a 256x256 pixel image just to show that it is still square and unstretched.

That to me seems like the way to set up any game - although I might see things differently in the morning without the beer goggles.

Same code, two screen sizes:

Attachments

Login to view attachments

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 20th Dec 2014 05:21

Link

Quote: "To fix this problem, position the wall sprite like this...

+ Code Snippet
SetSpritePosition(wall,psxL-10,0)"

negative value is not same at all devices.in my device negative value is -20 and in my second device is -71. this solution is not work for all devices.

Back to top

Profile PM

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 20th Dec 2014 13:20 Edited at: 20th Dec 2014 14:36

Link

In the sober light of day I stand by my code.

Here is a media-less version that will work for both percentage and virtual resolutions.
No black bars, and sprites can be positioned at the edges of the display regardless of its dimensions and/or aspect ratio:

initImages()

initDisplay( VIRTUAL, 1280, 720 )
//initDisplay( PERCENTAGE, 0, 0 )

do

SetSpritePosition( square[0], display.left, display.top)
	SetSpritePosition( square[1], display.right-GetSpriteWidth(square[1]), display.top)
	SetSpritePosition( square[2], display.left, display.bottom-GetSpriteHeight(square[2]))
	SetSpritePosition( square[3], display.right-GetSpriteWidth(square[1]), display.bottom-GetSpriteHeight(square[3]))

sync()
loop

function initDisplay(style as integer, width as integer, height as integer)

if style = PERCENTAGE
		SetDisplayAspect(1)
	else
		SetScreenResolution( width, height )
	endif

global display as tDisplay

display.left = GetScreenBoundsLeft()
	display.right = GetScreenBoundsRight()
	display.top = GetScreenBoundsTop()
	display.bottom = GetScreenBoundsBottom()
	display.width = display.right-display.left
	display.height = display.bottom-display.top

SetScissor(display.left, display.top, display.right, display.bottom )
	SetSpritePosition(sky, display.left, display.top)
	SetSpriteSize(sky, display.width, display.height)
	for k = 0 to 3
		SetSpriteSize( square[k], 16, 16 )
	next k

endfunction

function initImages()

SetDisplayAspect(1) //Ensures that our square is square

global sky as integer
	global square as integer[3]

blue = MakeColor(44, 53, 235)
	white = MakeColor(205, 205, 252)
	green = makecolor(30, 70, 15)

swap()
	drawbox( 0, 0, 64, 64, green, green, green, green, 1 )
	render()
	square[0] = CreateSprite( GetImage( 0, 0, 64, 64 ) )
	for k = 1 to 3
		square[k] = CloneSprite(square[0])
	next k

drawbox( 0, 0, 1, 64, blue, blue, white, white, 1 )
	render()
	sky = CreateSprite( GetImage( 0, 0, 1, 64 ) )
	SetSpritePosition(sky, display.left, display.top)
	SetSpriteDepth(sky, 1000)

endfunction

#constant VIRTUAL 0
#constant PERCENTAGE 1

type tDisplay
	left as integer
	right as integer
	top as integer
	bottom as integer
	width as integer
	height as integer
endtype

+ Code Snippet


initImages()

initDisplay( VIRTUAL, 1280, 720 )
//initDisplay( PERCENTAGE, 0, 0 )

do

	SetSpritePosition( square[0], display.left, display.top)
	SetSpritePosition( square[1], display.right-GetSpriteWidth(square[1]), display.top)
	SetSpritePosition( square[2], display.left, display.bottom-GetSpriteHeight(square[2]))
	SetSpritePosition( square[3], display.right-GetSpriteWidth(square[1]), display.bottom-GetSpriteHeight(square[3]))

	sync()
loop


function initDisplay(style as integer, width as integer, height as integer)

	if style = PERCENTAGE
		SetDisplayAspect(1)
	else
		SetScreenResolution( width, height )
	endif

	global display as tDisplay

	display.left = GetScreenBoundsLeft()
	display.right = GetScreenBoundsRight()
	display.top = GetScreenBoundsTop()
	display.bottom = GetScreenBoundsBottom()
	display.width = display.right-display.left
	display.height = display.bottom-display.top

	SetScissor(display.left, display.top, display.right, display.bottom )
	SetSpritePosition(sky, display.left, display.top)
	SetSpriteSize(sky, display.width, display.height)
	for k = 0 to 3
		SetSpriteSize( square[k], 16, 16 )
	next k

endfunction


function initImages()

	SetDisplayAspect(1) //Ensures that our square is square

	global sky as integer
	global square as integer[3]

	blue = MakeColor(44, 53, 235)
	white = MakeColor(205, 205, 252)
	green = makecolor(30, 70, 15)

	swap()
	drawbox( 0, 0, 64, 64, green, green, green, green, 1 )
	render()
	square[0] = CreateSprite( GetImage( 0, 0, 64, 64 ) )
	for k = 1 to 3
		square[k] = CloneSprite(square[0])
	next k

	drawbox( 0, 0, 1, 64, blue, blue, white, white, 1 )
	render()
	sky = CreateSprite( GetImage( 0, 0, 1, 64 ) )
	SetSpritePosition(sky, display.left, display.top)
	SetSpriteDepth(sky, 1000)

endfunction



#constant VIRTUAL 0
#constant PERCENTAGE 1


type tDisplay
	left as integer
	right as integer
	top as integer
	bottom as integer
	width as integer
	height as integer
endtype

Attachments

Login to view attachments

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 20th Dec 2014 22:04

Link

thank Scraggle, but your code is very Slut and I can't understand it.

Back to top

Profile PM

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 20th Dec 2014 22:09

Link

I can only apologise on behalf of my code, I had no idea it was so promiscuous.

Back to top

Profile PM Email

Funnell7

13

Years of Service

User Offline

Joined: 8th Sep 2011

Location: UK, England

Posted: 20th Dec 2014 22:28

Link

Lol...

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 21st Dec 2014 01:08 Edited at: 21st Dec 2014 01:12

Link

@Behdadsoft:

Quote: "negative value is not same at all devices.in my device negative value is -20 and in my second device is -71. this solution is not work for all devices. "

The negative value for the edge of the screen is handled by the variable psxL and it changes depending on the device running the program, the -10 is simply the width of the invisible sprite you are using as a wall.

>Edit<
I'm also not sure "slut" was quite the word you were trying to say...

Back to top

Profile PM Email Website

Impetus73

13

Years of Service

User Offline

Joined: 28th Aug 2011

Location: Volda, Norway

Posted: 21st Dec 2014 08:52

Link

I think Behdadsoft just needs to learn some programming, before starting to make this kind of complicated code. He does not seem to grasp the most basic of concepts. I don't know how to dumb this down any more, since it's hard to cope with even for seasoned programmers.

People who are new to programming, should not jump into deep water. Leave the black bars, and deal with them when you understand why they are there.

----------------
AGK programmer
Did Amiga / AMOS programming in the 90's.

Back to top

Profile PM Email

JimHawkins

15

Years of Service

User Offline

Joined: 26th Jul 2009

Location: Hull - UK

Posted: 21st Dec 2014 11:44

Link

Totally agree.

-- Jim - When is there going to be a release?

Back to top

Profile PM Website

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 21st Dec 2014 11:46

Link

Best advice so far!

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 21st Dec 2014 12:27

Link

I understand your code Scraggle and is not Slut.

but your code don't work in my project.

this is my code. I add your code after "do---loop" and add
"initDisplay( VIRTUAL, 1280, 800 )" at first line of my project. but when I export it to my phone don't change anything.

initDisplay( VIRTUAL, 1280, 800 )

// Add Virtual Joystick
keyboard = GetKeyboardExists()
if keyboard <> 1
    AddVirtualJoystick(1,105,695,150)
endif

SetphysicsGravity (0,1000)

// Global Variables
global state = 0
global playspr = 0

// Load Image Animatios
idleImage = LoadImage ("idle.png")
walkImage = LoadImage("walk.png")
climbupImage = LoadImage("climb.png")

// Create Player Sprite
spr = CreateSprite(idleImage)
SetSpritePosition (spr,40,105)
setSpriteSize(spr,112,-1)
SetSpriteShape (spr,3)
setSpritePhysicsOn(spr,2)
setSpritePhysicsCanRotate(spr,0)
SetSpriteDepth (spr, 0)
spr_weight = GetSpritePhysicsMass (spr)*2000
SetSpriteAnimation ( spr, 170, 170, 4 )
PlaySprite ( spr, 10 , 1, 1, 4 )

// Create Floor1 Sprite
Floor1 = CreateSprite(LoadImage("floor1.png"))
setSpritePhysicsOn(Floor1,1)
w# = GetSpriteWidth(Floor1)
h# = GetSpriteHeight(Floor1)
SetSpriteShapeBox(Floor1, -w#/2, -h#/2, 0, h#/2, 0)
AddSpriteShapeBox (Floor1, w#/8, -h#/4, 0, h#/2, 0)
AddSpriteShapeBox(Floor1, w#/8, 0, w#/4, h#/2, 0)
SetSpriteAnimation(Floor1,256,256,2)
SetSpriteFrame (Floor1,2)
SetSpriteDepth (Floor1,0)
SetSpritePosition(Floor1,0,545)

// Create invible Sprite
HideSpr = CreateSprite(0)
SetSpriteVisible (HideSpr,0)

global dim CloneSpr[33]

for i = 1 to 32
    if GetSpriteExists (CloneSpr[i]) = 0 then CloneSpr[i] = CloneSprite(HideSpr)
    SetSpriteVisible (CloneSpr[i],1)
    Select i
        case 1:
            SetSpriteImage (CloneSpr[1],LoadImage("floor2.png"))
            SetSpritePosition (CloneSpr[1],128,289)
            SetSpriteSize (CloneSpr[1],512,512)
            SetSpriteDepth (CloneSpr[1],1)
        endcase

case 2:
            SetSpriteImage(CloneSpr[2],LoadImage("floor3.png"))
            setSpritePhysicsOn(CloneSpr[2],1)
            SetSpritePosition(CloneSpr[2],385,545)
            SetSpriteSize (CloneSpr[2],512,256)
            SetSpriteDepth (CloneSpr[2],0)
            w2# = GetSpriteWidth(CloneSpr[2])
            h2# = GetSpriteHeight(CloneSpr[2])
            SetSpriteShapeBox(CloneSpr[2], -w2#/4, -h2#/4, -w2#/2, h2#/2 ,0)
            point = 6
            AddSpriteShapePolygon(CloneSpr[2], point, 0, -w2#/4, -h2#/4)
            AddSpriteShapePolygon(CloneSpr[2], point, 1, -w2#/8, -h2#/2)
            AddSpriteShapePolygon(CloneSpr[2], point, 2, w2#/8, -h2#/2)
            AddSpriteShapePolygon(CloneSpr[2], point, 3, w2#/4, -h2#/4)
            AddSpriteShapePolygon(CloneSpr[2], point, 4, w2#/4, h2#/2)
            AddSpriteShapePolygon(CloneSpr[2], point, 5, -w2#/4, h2#/2)
            point = 4
            AddSpriteShapePolygon(CloneSpr[2], point, 0, w2#/4, -h2#/4)
            AddSpriteShapePolygon(CloneSpr[2], point, 1, w2#/2, 0)
            AddSpriteShapePolygon(CloneSpr[2], point, 2, w2#/2, h2#/2)
            AddSpriteShapePolygon(CloneSpr[2], point, 3, w2#/4, h2#/2)

endcase

case 3:
            SetSpriteImage(CloneSpr[3],LoadImage("floor4.png"))
            SetSpritePosition(CloneSpr[3],770,482)
            SetSpriteSize (CloneSpr[3],320,320)
        endcase

case 4:
            SetSpriteImage(CloneSpr[4],LoadImage("floor5.png"))
            SetSpritePosition(CloneSpr[4],1027,610)
            SetSpriteSize (CloneSpr[4],256,192)
            SetSpriteDepth (CloneSpr[4],0)
            setSpritePhysicsOn(CloneSpr[4],1)
        endcase

case 5:
            SetSpriteImage(CloneSpr[5],LoadImage("floor6.png"))
            SetSpritePosition(CloneSpr[5],-64,220)
            SetSpriteSize (CloneSpr[5],256,54)
            SetSpriteDepth (CloneSpr[5],0)
            SetSpritePhysicsOn(CloneSpr[5],1)
            SetSpriteShape (CloneSpr[5],3)
        endcase

case 6:
            SetSpriteImage(CloneSpr[6],LoadImage("rail.png"))
            SetSpritePosition(CloneSpr[6],192,222)
            SetSpriteSize (CloneSpr[6],638,29)
            SetSpriteDepth (CloneSpr[6],0)
            SetSpritePhysicsOn(CloneSpr[6],1)
            SetSpriteShape (CloneSpr[6],3)
        endcase

case 7:
            SetSpriteImage(CloneSpr[7],LoadImage("floor7.png"))
            SetSpritePosition(CloneSpr[7],829,220)
            SetSpriteSize (CloneSpr[7],257,54)
            SetSpriteDepth (CloneSpr[7],0)
            SetSpritePhysicsOn(CloneSpr[7],1)
            SetSpriteShape (CloneSpr[7],3)
        endcase

case 8:
            SetSpriteImage(CloneSpr[8],LoadImage("wall-1.png"))
            SetSpritePosition(CloneSpr[8],0,0)
            SetSpriteSize (CloneSpr[8],576,128)
            SetSpriteDepth (CloneSpr[8],1)
        endcase

case 9:
            SetSpriteImage(CloneSpr[9],LoadImage("wall-2.png"))
            SetSpritePosition(CloneSpr[9],577,0)
            SetSpriteSize (CloneSpr[9],704,128)
            SetSpriteDepth (CloneSpr[9],1)
        endcase

case 10:
            SetSpriteImage(CloneSpr[10],LoadImage("door.png"))
            SetSpritePosition(CloneSpr[10],30,87)
            SetSpriteDepth (CloneSpr[10],1)
            SetSpriteAnimation(CloneSpr[10],120,134,2)
            SetSpriteFrame (CloneSpr[10],2)
        endcase

case 11:
            SetSpriteImage(CloneSpr[11],LoadImage("lamp.png"))
            SetSpritePosition(CloneSpr[11],140,37)
            SetSpriteSize (CloneSpr[11],110,66)
            SetSpriteDepth (CloneSpr[11],1)
        endcase

case 12: // large lamp
            SetSpriteImage(CloneSpr[12],LoadImage("mul.png"))
            SetSpritePosition(CloneSpr[12],600,15)
            SetSpriteSize (CloneSpr[12],110,106)
            SetSpriteAnimation(CloneSpr[12],128,128,4)
            SetSpriteFrame (CloneSpr[12],4)
            SetSpriteDepth (CloneSpr[12],1)
        endcase

case 13:
            SetSpriteImage(CloneSpr[13],LoadImage("moving-body.png"))
            SetSpritePosition(CloneSpr[13],212.5,183)
            SetSpriteSize (CloneSpr[13],100,-1)
            SetSpriteDepth (CloneSpr[13],0)
            SetSpritePhysicsOn(CloneSpr[13],2)
            SetSpriteShape (CloneSpr[13],3)
            SetSpritePhysicsMass (CloneSpr[13],10000)
        endcase

case 14:
            SetSpriteImage(CloneSpr[14],LoadImage("wheel.png"))
            SetSpritePositionByOffset(CloneSpr[14],230,205)
            SetSpriteSize (CloneSpr[14],32,-1)
            SetSpriteDepth (CloneSpr[14],0)
            SetSpritePhysicsOn(CloneSpr[14],2)
            SetSpriteShapeCircle (CloneSpr[14],0,0,10)
            SetSpritePhysicsMass (CloneSpr[14],10000)
        endcase

case 15:
            SetSpriteImage(CloneSpr[15],LoadImage("wheel.png"))
            SetSpritePositionByOffset(CloneSpr[15],295,205)
            SetSpriteSize (CloneSpr[15],32,-1)
            SetSpriteDepth (CloneSpr[15],0)
            SetSpritePhysicsOn(CloneSpr[15],2)
            SetSpriteShapeCircle (CloneSpr[15],0,0,10)
            SetSpritePhysicsMass (CloneSpr[15],10000)
        endcase

case 16:
            SetSpriteImage(CloneSpr[16],LoadImage("fire.png"))
            SetSpritePosition(CloneSpr[16],1000,60)
            SetSpriteSize (CloneSpr[16],128,64)
            SetSpriteDepth (CloneSpr[16],1)
            SetSpriteAnimation (CloneSpr[16],128,64,4)
            PlaySprite (CloneSpr[16],7,1,1,4)
        endcase

case 17:
            SetSpriteImage(CloneSpr[17],LoadImage("fire.png"))
            SetSpritePosition(CloneSpr[17],10,290)
            SetSpriteSize (CloneSpr[17],128,64)
            SetSpriteDepth (CloneSpr[17],1)
            SetSpriteAnimation (CloneSpr[17],128,64,4)
            PlaySprite (CloneSpr[17],7,1,1,4)
        endcase

case 18: // large lamp
            SetSpriteImage(CloneSpr[18],LoadImage("mul.png"))
            SetSpritePosition(CloneSpr[18],950,270)
            SetSpriteSize (CloneSpr[18],110,106)
            SetSpriteAnimation(CloneSpr[18],128,128,4)
            SetSpriteFrame (CloneSpr[18],4)
            SetSpriteDepth (CloneSpr[18],1)
        endcase

case 19:
            SetSpriteImage(CloneSpr[19],LoadImage("door.png"))
            SetSpritePosition(CloneSpr[19],800,349)
            SetSpriteDepth (CloneSpr[19],1)
            SetSpriteAnimation(CloneSpr[19],120,134,2)
            SetSpriteFrame (CloneSpr[19],1)
        endcase

case 20:
            SetSpriteImage(CloneSpr[20],LoadImage("dirt.png"))
            SetSpritePosition(CloneSpr[20],900,392)
            SetSpriteSize (CloneSpr[20],90,90)
            SetSpriteDepth (CloneSpr[20],1)
            SetSpriteAnimation(CloneSpr[20],128,128,4)
            SetSpriteFrame (CloneSpr[20],2)
        endcase

case 21:
            SetSpriteImage(CloneSpr[21],LoadImage("dirt.png"))
            SetSpritePosition(CloneSpr[21],640,354.5)
            SetSpriteSize (CloneSpr[21],64,64)
            SetSpriteDepth (CloneSpr[21],1)
            SetSpriteAnimation(CloneSpr[21],128,128,4)
            SetSpriteFrame (CloneSpr[21],1)
        endcase

case 22:
            SetSpriteImage(CloneSpr[22],LoadImage("lever.png"))
            SetSpritePosition(CloneSpr[22],950,120)
            SetSpriteSize (CloneSpr[22],100,100)
            SetSpriteDepth (CloneSpr[22],1)
            SetSpriteAnimation(CloneSpr[22],128,128,4)
        endcase

case 23:
            SetSpriteImage(CloneSpr[23],LoadImage("vertical-slider.png"))
            SetSpritePositionByOffset(CloneSpr[23],1180,350)
            SetSpriteSize (CloneSpr[23],45,350)
            SetSpriteDepth (CloneSpr[23],1)
            //SetSpritePhysicsOn (CloneSpr[23],1)
        endcase

case 24:
            SetSpriteImage(CloneSpr[24],LoadImage("vertical-moving.png"))
            SetSpritePosition(CloneSpr[24],1115,420)
            SetSpriteSize (CloneSpr[24],128,64)
            SetSpriteDepth (CloneSpr[24],1)
        endcase

case 25:
            SetSpriteImage(CloneSpr[25],LoadImage("crystal.png"))
            SetSpritePosition(CloneSpr[25],840,177)
            SetSpriteSize (CloneSpr[25],50,50)
            SetSpriteDepth (CloneSpr[25],1)
            SetSpriteAnimation(CloneSpr[25],64,64,2)
            SetSpriteFrame (CloneSpr[25],1)
        endcase

case 26:
            SetSpriteImage(CloneSpr[26],LoadImage("chain.png"))
            SetSpritePosition(CloneSpr[26],960,585)
            SetSpriteSize (CloneSpr[26],16,64)
            //SetSpritePhysicsOn(CloneSpr[26],1)
        endcase

case 27:
            SetSpriteImage(CloneSpr[27],LoadImage("box.png"))
            SetSpritePositionByOffset(CloneSpr[27],968,670)
            SetSpriteSize (CloneSpr[27],57,57)
            SetSpritePhysicsOn(CloneSpr[27],1)
            SetSpritePhysicsCanRotate (CloneSpr[27],0)
        endcase

case 28: // Barrel
            SetSpriteImage(CloneSpr[28],LoadImage("mul.png"))
            SetSpritePositionByOffset(CloneSpr[28],32,513)
            SetSpriteSize (CloneSpr[28],70,70)
            SetSpritePhysicsOn(CloneSpr[28],1)
            SetSpriteAnimation(CloneSpr[28],128,128,4)
            SetSpriteFrame (CloneSpr[28],3)
            SetSpriteDepth(CloneSpr[28],0)
        endcase

case 29:
            SetSpriteImage(CloneSpr[29],LoadImage("ladder.png"))
            SetSpritePositionByOffset(CloneSpr[29],490,490)
            SetSpriteSize (CloneSpr[29],50,-1)
            SetSpriteDepth(CloneSpr[29],1)
        endcase

case 30:
            SetSpriteImage(CloneSpr[30],LoadImage("floor8.png"))
            SetSpritePosition(CloneSpr[30],0,200)
            SetSpriteSize (CloneSpr[30],1024,-1)
        endcase

case 31: // Floor 9
            SetSpriteImage(CloneSpr[31],LoadImage("mul.png"))
            SetSpritePosition(CloneSpr[31],0,457)
            SetSpriteSize (CloneSpr[31],128,-1)
            SetSpriteAnimation(CloneSpr[31],128,128,4)
            SetSpriteFrame (CloneSpr[31],1)
        endcase

case 32: // Floor 10
            SetSpriteImage(CloneSpr[32],LoadImage("floor1.png"))
            SetSpritePosition(CloneSpr[32],1024.12,202)
            SetSpriteSize (CloneSpr[32],254,-1)
            SetSpriteAnimation(CloneSpr[32],256,256,2)
            SetSpriteFrame (CloneSpr[32],1)
        endcase
    endselect
Next i

// Joint wheels to body
CreateRevoluteJoint ( 1, CloneSpr[13], CloneSpr[14], 230, 205, 0 )
CreateRevoluteJoint ( 2, CloneSpr[13], CloneSpr[15], 295, 205, 0 )

// Joint Chain to Box
//CreateRevoluteJoint ( 3, CloneSpr[26], CloneSpr[27], 966, 645, 0 )

// Create Diamond========================================================================
HideSpr2 = CreateSprite(LoadImage("diamond.png"))
SetSpriteVisible (HideSpr2,0)

global dim Diamond [30]

for n = 1 to 6
    if GetSpriteExists(Diamond[n]) = 0 then Diamond[n] = CloneSprite(HideSpr2)
    SetSpriteVisible(Diamond[n],1)
    SetSpriteSize(Diamond[n],32,-1)
    SetSpriteDepth(Diamond[n],0)
    SetSpriteAnimation(Diamond[n],64,64,2)
    SetSpriteFrame(Diamond[n],2)
    SetSpritePosition (Diamond[n],400+n*25, 105)

for m = 7 to 12
        if GetSpriteExists (Diamond[m]) = 0 then Diamond[m] = CloneSprite(HideSpr2)
        SetSpriteVisible(Diamond[m],1)
        SetSpriteSize(Diamond[m],32,-1)
        SetSpriteDepth(Diamond[m],0)
        SetSpriteAnimation(Diamond[m],64,64,2)
        SetSpriteFrame(Diamond[m],2)
        SetSpritePosition (Diamond[m],400+(m-6)*25, 130)
    Next m
Next n

for o = 13 to 18
    if GetSpriteExists (Diamond[o]) = 0 then Diamond[o] = CloneSprite(HideSpr2)
    SetSpriteVisible(Diamond[o],1)
    SetSpriteSize(Diamond[o],32,-1)
    SetSpriteDepth(Diamond[o],0)
    SetSpriteAnimation(Diamond[o],64,64,2)
    SetSpriteFrame(Diamond[o],1)
    SetSpritePosition (Diamond[o],200+(o-12)*25, 500)

for p = 19 to 24
        if GetSpriteExists(Diamond[p]) = 0 then Diamond[p] = CloneSprite(HideSpr2)
        SetSpriteVisible(Diamond[p],1)
        SetSpriteSize(Diamond[p],32,-1)
        SetSpriteDepth(Diamond[p],0)
        SetSpriteAnimation(Diamond[p],64,64,2)
        SetSpriteFrame(Diamond[p],1)
        SetSpritePosition (Diamond[p],200+(p-18)*25, 525)
    Next p
Next o

for q = 25 to 30
        if GetSpriteExists(Diamond[q]) = 0 then Diamond[q] = CloneSprite(HideSpr2)
        SetSpriteVisible(Diamond[q],1)
        SetSpriteSize(Diamond[q],32,-1)
        SetSpriteDepth(Diamond[q],0)
        SetSpriteAnimation(Diamond[q],64,64,2)
        SetSpriteFrame(Diamond[q],1)
        SetSpritePosition (Diamond[q],850+(q-24)*25, 525)
Next q

// END===================================================================================

do

//Pickup Diamond ====================================================
global dim diacollide [30]

for j = 1 to 30
    diacollide[j] = GetSpriteCollision(spr,Diamond[j])
    if diacollide[j] = 1 then SetSpriteVisible (Diamond[j],0)
Next j
//END ===============================================================

// lever & Elevator Control =================================================================================
px# = GetPointerX()
py# = GetPointerY()

mousehit = GetSpriteHitTest (CloneSpr[22],ScreenToWorldX(px#),ScreenToWorldY(py#))
if mousehit = 1
    if GetPointerPressed () = 1
        if playspr = 0 then playspr = 1
endif
    endif

if playspr = 1
    playspr = 2
    if GetSpritePlaying(CloneSpr[22]) = 0
        PlaySprite(CloneSpr[22],10,0,1,4)
endif
    endif

// Move Elevator
if playspr = 2
    if GetSpritePlaying(CloneSpr[22]) = 0
         SetSpritePhysicsDelete(CloneSpr[27])
         SetSpritePhysicsOn(CloneSpr[27],2)
         SetSpritePhysicsCanRotate(CloneSpr[27], 0)
        if GetSpriteY(CloneSpr[24]) > 215 and verticalmoving = 0 then verticalmoving = 1
endif
    endif

if verticalmoving = 1
    SetSpritePhysicsOn (CloneSpr[24],2)
    SetSpritePhysicsCanRotate(CloneSpr[24], 0)
    SetSpriteShape(CloneSpr[24],3)
    SetSpritePhysicsMass (CloneSpr[24],1000000)
    SetSpritePosition (CloneSpr[24],GetSpriteX(CloneSpr[24]),GetSpriteY(CloneSpr[24])-0.6)
endif

if GetSpriteY(CloneSpr[24]) <= 215 and (verticalmoving = 1 or verticalmoving = 3) then verticalmoving = 2
if verticalmoving = 2
    SetSpritePosition(CloneSpr[24], GetSpriteX(CloneSpr[24]),GetSpriteY(CloneSpr[24])+0.25)
endif

if GetSpriteY(CloneSpr[24]) >= 420 and verticalmoving = 2 then verticalmoving = 3
if verticalmoving = 3
    SetSpritePosition (CloneSpr[24],GetSpriteX(CloneSpr[24]),GetSpriteY(CloneSpr[24])-0.6)
endif
// END =====================================================================================

// Move Gari ================================================================
if GetSpriteX(CloneSpr[14]) < 785 and movestate = 0 then movestate = 1
if movestate = 1
    SetSpritePhysicsVelocity (CloneSpr[14],40,GetSpritePhysicsVelocityY(CloneSpr[14]))
    SetSpritePhysicsVelocity (CloneSpr[15],40,GetSpritePhysicsVelocityY(CloneSpr[15]))
endif

if GetSpriteX(CloneSpr[15]) >= 785 and (movestate = 1 or movestate = 3) then movestate = 2
if movestate = 2
    SetSpritePhysicsVelocity (CloneSpr[14],-40,GetSpritePhysicsVelocityY(CloneSpr[14]))
    SetSpritePhysicsVelocity (CloneSpr[15],-40,GetSpritePhysicsVelocityY(CloneSpr[15]))

endif

if GetSpriteX(CloneSpr[14]) <= 210 and movestate = 2 then movestate = 3
if movestate = 3
    SetSpritePhysicsVelocity (CloneSpr[14],40,GetSpritePhysicsVelocityY(CloneSpr[14]))
    SetSpritePhysicsVelocity (CloneSpr[15],40,GetSpritePhysicsVelocityY(CloneSpr[15]))
endif
//END ============================================================================

// Move the spr to left-right and UP-Down From Ladder ====================================================
if keyboard = 1
    if GetRawKeyState (39) = 1
        SetSpriteFlip (spr,0,0)
        SetSpritePhysicsVelocity (spr, 200, GetSpritePhysicsVelocityY(spr))
        if state = 0 then state = 1

elseif GetRawKeyState (37) = 1
        SetSpriteFlip (spr,1,0)
        SetSpritePhysicsVelocity (spr, -200, GetSpritePhysicsVelocityY(spr))
        if state = 0 then state = 1
    else
        if state = 2
            state = 0
            SetSpritePhysicsVelocity (spr, 0, GetSpritePhysicsVelocityY(spr))
            SetSpriteImage(spr , idleImage)
            SetSpriteAnimation ( spr, 170, 170, 4 )
            PlaySprite ( spr, 10, 1)
endif

// Move The Player climb up Ladder
sprY = GetSpriteY(spr)
laddercollide = getSpriteCollision (spr,CloneSpr[29])

if laddercollide = 1
    SetSpritePhysicsForce( spr, GetSpriteX(spr), GetSpriteY(spr), 0, spr_weight*-1)

if GetRawKeyState(38) = 1
        SetSpritePhysicsVelocity(spr,GetSpritePhysicsVelocityX(spr),-80)
    else if GetRawKeyState(40) = 1
        SetSpritePhysicsVelocity(spr,GetSpritePhysicsVelocityX(spr),80)
    else
        SetSpritePhysicsVelocity(spr,GetSpritePhysicsVelocityX(spr),0)
endif
    endif
        endif

endif
// END =================================================================================
if GetRawKeyPressed (32) = 1
        SetSpritePhysicsVelocity (spr,GetSpritePhysicsVelocityX(spr),-400)
    endif
endif
//END ========================================================================================

// Control Virtual Joystick===================================================================================
    if keyboard <> 1
    if GetVirtualJoystickX(1) > 0.1
        SetSpriteFlip (spr,0,0)
        SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
        if state = 0 then state = 1

elseif GetVirtualJoystickX(1) < -0.1
    SetSpriteFlip (spr,1,0)
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
    if state = 0 then state = 1
else
    if state = 2
        state = 0
        SetSpritePhysicsVelocity (spr, 0, GetSpritePhysicsVelocityY(spr))
        SetSpriteImage(spr , idleImage)
        SetSpriteAnimation ( spr, 170, 170, 4 )
        PlaySprite ( spr, 10, 1)
endif
    endif
        endif
//END ========================================================================================================

// Change Animation to walk
if state = 1
    state = 2
    SetSpriteImage(spr , walkImage)
    SetSpriteAnimation(spr,170,170,12)
    PlaySprite(spr,10,1,1,12)
endif

// Change Animation to Climb Up
if state = 3
    state = 4
    SetSpriteImage(spr , climbupImage)
    SetSpriteAnimation (spr, 170,170,6)
    PlaySprite(spr,10,1,1,6)
endif

Update2D(0) : Render2DFront() : Swap()
loop

// Create Display Function
function initDisplay(style as integer, width as integer, height as integer)

if style = PERCENTAGE
		SetDisplayAspect(1)
	else
		SetVirtualResolution( width, height )
	endif

global display as tDisplay

display.left = GetScreenBoundsLeft()
display.right = GetScreenBoundsRight()
display.top = GetScreenBoundsTop()
display.bottom = GetScreenBoundsBottom()
display.width = display.right-display.left
display.height = display.bottom-display.top
SetScissor(display.left,display.top,display.right,display.bottom)

endfunction

#constant VIRTUAL 0
#constant PERCENTAGE 1

type tDisplay
    left as Integer
    right as Integer
    top as integer
    bottom as integer
    width as integer
    height as integer
endtype

+ Code Snippet

initDisplay( VIRTUAL, 1280, 800 )

// Add Virtual Joystick
keyboard = GetKeyboardExists()
if keyboard <> 1
    AddVirtualJoystick(1,105,695,150)
endif

SetphysicsGravity (0,1000)

// Global Variables
global state = 0
global playspr = 0

// Load Image Animatios
idleImage = LoadImage ("idle.png")
walkImage = LoadImage("walk.png")
climbupImage = LoadImage("climb.png")

// Create Player Sprite
spr = CreateSprite(idleImage)
SetSpritePosition (spr,40,105)
setSpriteSize(spr,112,-1)
SetSpriteShape (spr,3)
setSpritePhysicsOn(spr,2)
setSpritePhysicsCanRotate(spr,0)
SetSpriteDepth (spr, 0)
spr_weight = GetSpritePhysicsMass (spr)*2000
SetSpriteAnimation ( spr, 170, 170, 4 )
PlaySprite ( spr, 10 , 1, 1, 4 )

// Create Floor1 Sprite
Floor1 = CreateSprite(LoadImage("floor1.png"))
setSpritePhysicsOn(Floor1,1)
w# = GetSpriteWidth(Floor1)
h# = GetSpriteHeight(Floor1)
SetSpriteShapeBox(Floor1, -w#/2, -h#/2, 0, h#/2, 0)
AddSpriteShapeBox (Floor1, w#/8, -h#/4, 0, h#/2, 0)
AddSpriteShapeBox(Floor1, w#/8, 0, w#/4, h#/2, 0)
SetSpriteAnimation(Floor1,256,256,2)
SetSpriteFrame (Floor1,2)
SetSpriteDepth (Floor1,0)
SetSpritePosition(Floor1,0,545)

// Create invible Sprite
HideSpr = CreateSprite(0)
SetSpriteVisible (HideSpr,0)

global dim CloneSpr[33]

for i = 1 to 32
    if GetSpriteExists (CloneSpr[i]) = 0 then CloneSpr[i] = CloneSprite(HideSpr)
    SetSpriteVisible (CloneSpr[i],1)
    Select i
        case 1:
            SetSpriteImage (CloneSpr[1],LoadImage("floor2.png"))
            SetSpritePosition (CloneSpr[1],128,289)
            SetSpriteSize (CloneSpr[1],512,512)
            SetSpriteDepth (CloneSpr[1],1)
        endcase

        case 2:
            SetSpriteImage(CloneSpr[2],LoadImage("floor3.png"))
            setSpritePhysicsOn(CloneSpr[2],1)
            SetSpritePosition(CloneSpr[2],385,545)
            SetSpriteSize (CloneSpr[2],512,256)
            SetSpriteDepth (CloneSpr[2],0)
            w2# = GetSpriteWidth(CloneSpr[2])
            h2# = GetSpriteHeight(CloneSpr[2])
            SetSpriteShapeBox(CloneSpr[2], -w2#/4, -h2#/4, -w2#/2, h2#/2 ,0)
            point = 6
            AddSpriteShapePolygon(CloneSpr[2], point, 0, -w2#/4, -h2#/4)
            AddSpriteShapePolygon(CloneSpr[2], point, 1, -w2#/8, -h2#/2)
            AddSpriteShapePolygon(CloneSpr[2], point, 2, w2#/8, -h2#/2)
            AddSpriteShapePolygon(CloneSpr[2], point, 3, w2#/4, -h2#/4)
            AddSpriteShapePolygon(CloneSpr[2], point, 4, w2#/4, h2#/2)
            AddSpriteShapePolygon(CloneSpr[2], point, 5, -w2#/4, h2#/2)
            point = 4
            AddSpriteShapePolygon(CloneSpr[2], point, 0, w2#/4, -h2#/4)
            AddSpriteShapePolygon(CloneSpr[2], point, 1, w2#/2, 0)
            AddSpriteShapePolygon(CloneSpr[2], point, 2, w2#/2, h2#/2)
            AddSpriteShapePolygon(CloneSpr[2], point, 3, w2#/4, h2#/2)


        endcase

        case 3:
            SetSpriteImage(CloneSpr[3],LoadImage("floor4.png"))
            SetSpritePosition(CloneSpr[3],770,482)
            SetSpriteSize (CloneSpr[3],320,320)
        endcase

        case 4:
            SetSpriteImage(CloneSpr[4],LoadImage("floor5.png"))
            SetSpritePosition(CloneSpr[4],1027,610)
            SetSpriteSize (CloneSpr[4],256,192)
            SetSpriteDepth (CloneSpr[4],0)
            setSpritePhysicsOn(CloneSpr[4],1)
        endcase

        case 5:
            SetSpriteImage(CloneSpr[5],LoadImage("floor6.png"))
            SetSpritePosition(CloneSpr[5],-64,220)
            SetSpriteSize (CloneSpr[5],256,54)
            SetSpriteDepth (CloneSpr[5],0)
            SetSpritePhysicsOn(CloneSpr[5],1)
            SetSpriteShape (CloneSpr[5],3)
        endcase

        case 6:
            SetSpriteImage(CloneSpr[6],LoadImage("rail.png"))
            SetSpritePosition(CloneSpr[6],192,222)
            SetSpriteSize (CloneSpr[6],638,29)
            SetSpriteDepth (CloneSpr[6],0)
            SetSpritePhysicsOn(CloneSpr[6],1)
            SetSpriteShape (CloneSpr[6],3)
        endcase

        case 7:
            SetSpriteImage(CloneSpr[7],LoadImage("floor7.png"))
            SetSpritePosition(CloneSpr[7],829,220)
            SetSpriteSize (CloneSpr[7],257,54)
            SetSpriteDepth (CloneSpr[7],0)
            SetSpritePhysicsOn(CloneSpr[7],1)
            SetSpriteShape (CloneSpr[7],3)
        endcase

        case 8:
            SetSpriteImage(CloneSpr[8],LoadImage("wall-1.png"))
            SetSpritePosition(CloneSpr[8],0,0)
            SetSpriteSize (CloneSpr[8],576,128)
            SetSpriteDepth (CloneSpr[8],1)
        endcase

        case 9:
            SetSpriteImage(CloneSpr[9],LoadImage("wall-2.png"))
            SetSpritePosition(CloneSpr[9],577,0)
            SetSpriteSize (CloneSpr[9],704,128)
            SetSpriteDepth (CloneSpr[9],1)
        endcase

        case 10:
            SetSpriteImage(CloneSpr[10],LoadImage("door.png"))
            SetSpritePosition(CloneSpr[10],30,87)
            SetSpriteDepth (CloneSpr[10],1)
            SetSpriteAnimation(CloneSpr[10],120,134,2)
            SetSpriteFrame (CloneSpr[10],2)
        endcase

        case 11:
            SetSpriteImage(CloneSpr[11],LoadImage("lamp.png"))
            SetSpritePosition(CloneSpr[11],140,37)
            SetSpriteSize (CloneSpr[11],110,66)
            SetSpriteDepth (CloneSpr[11],1)
        endcase

        case 12: // large lamp
            SetSpriteImage(CloneSpr[12],LoadImage("mul.png"))
            SetSpritePosition(CloneSpr[12],600,15)
            SetSpriteSize (CloneSpr[12],110,106)
            SetSpriteAnimation(CloneSpr[12],128,128,4)
            SetSpriteFrame (CloneSpr[12],4)
            SetSpriteDepth (CloneSpr[12],1)
        endcase

        case 13:
            SetSpriteImage(CloneSpr[13],LoadImage("moving-body.png"))
            SetSpritePosition(CloneSpr[13],212.5,183)
            SetSpriteSize (CloneSpr[13],100,-1)
            SetSpriteDepth (CloneSpr[13],0)
            SetSpritePhysicsOn(CloneSpr[13],2)
            SetSpriteShape (CloneSpr[13],3)
            SetSpritePhysicsMass (CloneSpr[13],10000)
        endcase

        case 14:
            SetSpriteImage(CloneSpr[14],LoadImage("wheel.png"))
            SetSpritePositionByOffset(CloneSpr[14],230,205)
            SetSpriteSize (CloneSpr[14],32,-1)
            SetSpriteDepth (CloneSpr[14],0)
            SetSpritePhysicsOn(CloneSpr[14],2)
            SetSpriteShapeCircle (CloneSpr[14],0,0,10)
            SetSpritePhysicsMass (CloneSpr[14],10000)
        endcase

        case 15:
            SetSpriteImage(CloneSpr[15],LoadImage("wheel.png"))
            SetSpritePositionByOffset(CloneSpr[15],295,205)
            SetSpriteSize (CloneSpr[15],32,-1)
            SetSpriteDepth (CloneSpr[15],0)
            SetSpritePhysicsOn(CloneSpr[15],2)
            SetSpriteShapeCircle (CloneSpr[15],0,0,10)
            SetSpritePhysicsMass (CloneSpr[15],10000)
        endcase

        case 16:
            SetSpriteImage(CloneSpr[16],LoadImage("fire.png"))
            SetSpritePosition(CloneSpr[16],1000,60)
            SetSpriteSize (CloneSpr[16],128,64)
            SetSpriteDepth (CloneSpr[16],1)
            SetSpriteAnimation (CloneSpr[16],128,64,4)
            PlaySprite (CloneSpr[16],7,1,1,4)
        endcase

        case 17:
            SetSpriteImage(CloneSpr[17],LoadImage("fire.png"))
            SetSpritePosition(CloneSpr[17],10,290)
            SetSpriteSize (CloneSpr[17],128,64)
            SetSpriteDepth (CloneSpr[17],1)
            SetSpriteAnimation (CloneSpr[17],128,64,4)
            PlaySprite (CloneSpr[17],7,1,1,4)
        endcase

        case 18: // large lamp
            SetSpriteImage(CloneSpr[18],LoadImage("mul.png"))
            SetSpritePosition(CloneSpr[18],950,270)
            SetSpriteSize (CloneSpr[18],110,106)
            SetSpriteAnimation(CloneSpr[18],128,128,4)
            SetSpriteFrame (CloneSpr[18],4)
            SetSpriteDepth (CloneSpr[18],1)
        endcase

        case 19:
            SetSpriteImage(CloneSpr[19],LoadImage("door.png"))
            SetSpritePosition(CloneSpr[19],800,349)
            SetSpriteDepth (CloneSpr[19],1)
            SetSpriteAnimation(CloneSpr[19],120,134,2)
            SetSpriteFrame (CloneSpr[19],1)
        endcase

        case 20:
            SetSpriteImage(CloneSpr[20],LoadImage("dirt.png"))
            SetSpritePosition(CloneSpr[20],900,392)
            SetSpriteSize (CloneSpr[20],90,90)
            SetSpriteDepth (CloneSpr[20],1)
            SetSpriteAnimation(CloneSpr[20],128,128,4)
            SetSpriteFrame (CloneSpr[20],2)
        endcase

        case 21:
            SetSpriteImage(CloneSpr[21],LoadImage("dirt.png"))
            SetSpritePosition(CloneSpr[21],640,354.5)
            SetSpriteSize (CloneSpr[21],64,64)
            SetSpriteDepth (CloneSpr[21],1)
            SetSpriteAnimation(CloneSpr[21],128,128,4)
            SetSpriteFrame (CloneSpr[21],1)
        endcase

        case 22:
            SetSpriteImage(CloneSpr[22],LoadImage("lever.png"))
            SetSpritePosition(CloneSpr[22],950,120)
            SetSpriteSize (CloneSpr[22],100,100)
            SetSpriteDepth (CloneSpr[22],1)
            SetSpriteAnimation(CloneSpr[22],128,128,4)
        endcase

        case 23:
            SetSpriteImage(CloneSpr[23],LoadImage("vertical-slider.png"))
            SetSpritePositionByOffset(CloneSpr[23],1180,350)
            SetSpriteSize (CloneSpr[23],45,350)
            SetSpriteDepth (CloneSpr[23],1)
            //SetSpritePhysicsOn (CloneSpr[23],1)
        endcase

        case 24:
            SetSpriteImage(CloneSpr[24],LoadImage("vertical-moving.png"))
            SetSpritePosition(CloneSpr[24],1115,420)
            SetSpriteSize (CloneSpr[24],128,64)
            SetSpriteDepth (CloneSpr[24],1)
        endcase

        case 25:
            SetSpriteImage(CloneSpr[25],LoadImage("crystal.png"))
            SetSpritePosition(CloneSpr[25],840,177)
            SetSpriteSize (CloneSpr[25],50,50)
            SetSpriteDepth (CloneSpr[25],1)
            SetSpriteAnimation(CloneSpr[25],64,64,2)
            SetSpriteFrame (CloneSpr[25],1)
        endcase

        case 26:
            SetSpriteImage(CloneSpr[26],LoadImage("chain.png"))
            SetSpritePosition(CloneSpr[26],960,585)
            SetSpriteSize (CloneSpr[26],16,64)
            //SetSpritePhysicsOn(CloneSpr[26],1)
        endcase

        case 27:
            SetSpriteImage(CloneSpr[27],LoadImage("box.png"))
            SetSpritePositionByOffset(CloneSpr[27],968,670)
            SetSpriteSize (CloneSpr[27],57,57)
            SetSpritePhysicsOn(CloneSpr[27],1)
            SetSpritePhysicsCanRotate (CloneSpr[27],0)
        endcase

        case 28: // Barrel
            SetSpriteImage(CloneSpr[28],LoadImage("mul.png"))
            SetSpritePositionByOffset(CloneSpr[28],32,513)
            SetSpriteSize (CloneSpr[28],70,70)
            SetSpritePhysicsOn(CloneSpr[28],1)
            SetSpriteAnimation(CloneSpr[28],128,128,4)
            SetSpriteFrame (CloneSpr[28],3)
            SetSpriteDepth(CloneSpr[28],0)
        endcase

        case 29:
            SetSpriteImage(CloneSpr[29],LoadImage("ladder.png"))
            SetSpritePositionByOffset(CloneSpr[29],490,490)
            SetSpriteSize (CloneSpr[29],50,-1)
            SetSpriteDepth(CloneSpr[29],1)
        endcase

        case 30:
            SetSpriteImage(CloneSpr[30],LoadImage("floor8.png"))
            SetSpritePosition(CloneSpr[30],0,200)
            SetSpriteSize (CloneSpr[30],1024,-1)
        endcase

        case 31: // Floor 9
            SetSpriteImage(CloneSpr[31],LoadImage("mul.png"))
            SetSpritePosition(CloneSpr[31],0,457)
            SetSpriteSize (CloneSpr[31],128,-1)
            SetSpriteAnimation(CloneSpr[31],128,128,4)
            SetSpriteFrame (CloneSpr[31],1)
        endcase

        case 32: // Floor 10
            SetSpriteImage(CloneSpr[32],LoadImage("floor1.png"))
            SetSpritePosition(CloneSpr[32],1024.12,202)
            SetSpriteSize (CloneSpr[32],254,-1)
            SetSpriteAnimation(CloneSpr[32],256,256,2)
            SetSpriteFrame (CloneSpr[32],1)
        endcase
    endselect
Next i

// Joint wheels to body
CreateRevoluteJoint ( 1, CloneSpr[13], CloneSpr[14], 230, 205, 0 )
CreateRevoluteJoint ( 2, CloneSpr[13], CloneSpr[15], 295, 205, 0 )

// Joint Chain to Box
//CreateRevoluteJoint ( 3, CloneSpr[26], CloneSpr[27], 966, 645, 0 )

// Create Diamond========================================================================
HideSpr2 = CreateSprite(LoadImage("diamond.png"))
SetSpriteVisible (HideSpr2,0)

global dim Diamond [30]

for n = 1 to 6
    if GetSpriteExists(Diamond[n]) = 0 then Diamond[n] = CloneSprite(HideSpr2)
    SetSpriteVisible(Diamond[n],1)
    SetSpriteSize(Diamond[n],32,-1)
    SetSpriteDepth(Diamond[n],0)
    SetSpriteAnimation(Diamond[n],64,64,2)
    SetSpriteFrame(Diamond[n],2)
    SetSpritePosition (Diamond[n],400+n*25, 105)

    for m = 7 to 12
        if GetSpriteExists (Diamond[m]) = 0 then Diamond[m] = CloneSprite(HideSpr2)
        SetSpriteVisible(Diamond[m],1)
        SetSpriteSize(Diamond[m],32,-1)
        SetSpriteDepth(Diamond[m],0)
        SetSpriteAnimation(Diamond[m],64,64,2)
        SetSpriteFrame(Diamond[m],2)
        SetSpritePosition (Diamond[m],400+(m-6)*25, 130)
    Next m
Next n

for o = 13 to 18
    if GetSpriteExists (Diamond[o]) = 0 then Diamond[o] = CloneSprite(HideSpr2)
    SetSpriteVisible(Diamond[o],1)
    SetSpriteSize(Diamond[o],32,-1)
    SetSpriteDepth(Diamond[o],0)
    SetSpriteAnimation(Diamond[o],64,64,2)
    SetSpriteFrame(Diamond[o],1)
    SetSpritePosition (Diamond[o],200+(o-12)*25, 500)

    for p = 19 to 24
        if GetSpriteExists(Diamond[p]) = 0 then Diamond[p] = CloneSprite(HideSpr2)
        SetSpriteVisible(Diamond[p],1)
        SetSpriteSize(Diamond[p],32,-1)
        SetSpriteDepth(Diamond[p],0)
        SetSpriteAnimation(Diamond[p],64,64,2)
        SetSpriteFrame(Diamond[p],1)
        SetSpritePosition (Diamond[p],200+(p-18)*25, 525)
    Next p
Next o

for q = 25 to 30
        if GetSpriteExists(Diamond[q]) = 0 then Diamond[q] = CloneSprite(HideSpr2)
        SetSpriteVisible(Diamond[q],1)
        SetSpriteSize(Diamond[q],32,-1)
        SetSpriteDepth(Diamond[q],0)
        SetSpriteAnimation(Diamond[q],64,64,2)
        SetSpriteFrame(Diamond[q],1)
        SetSpritePosition (Diamond[q],850+(q-24)*25, 525)
Next q

// END===================================================================================


do

//Pickup Diamond ====================================================
global dim diacollide [30]

for j = 1 to 30
    diacollide[j] = GetSpriteCollision(spr,Diamond[j])
    if diacollide[j] = 1 then SetSpriteVisible (Diamond[j],0)
Next j
//END ===============================================================

// lever & Elevator Control =================================================================================
px# = GetPointerX()
py# = GetPointerY()

mousehit = GetSpriteHitTest (CloneSpr[22],ScreenToWorldX(px#),ScreenToWorldY(py#))
if mousehit = 1
    if GetPointerPressed () = 1
        if playspr = 0 then playspr = 1
endif
    endif

if playspr = 1
    playspr = 2
    if GetSpritePlaying(CloneSpr[22]) = 0
        PlaySprite(CloneSpr[22],10,0,1,4)
endif
    endif

// Move Elevator
if playspr = 2
    if GetSpritePlaying(CloneSpr[22]) = 0
         SetSpritePhysicsDelete(CloneSpr[27])
         SetSpritePhysicsOn(CloneSpr[27],2)
         SetSpritePhysicsCanRotate(CloneSpr[27], 0)
        if GetSpriteY(CloneSpr[24]) > 215 and verticalmoving = 0 then verticalmoving = 1
endif
    endif

if verticalmoving = 1
    SetSpritePhysicsOn (CloneSpr[24],2)
    SetSpritePhysicsCanRotate(CloneSpr[24], 0)
    SetSpriteShape(CloneSpr[24],3)
    SetSpritePhysicsMass (CloneSpr[24],1000000)
    SetSpritePosition (CloneSpr[24],GetSpriteX(CloneSpr[24]),GetSpriteY(CloneSpr[24])-0.6)
endif

if GetSpriteY(CloneSpr[24]) <= 215 and (verticalmoving = 1 or verticalmoving = 3) then verticalmoving = 2
if verticalmoving = 2
    SetSpritePosition(CloneSpr[24], GetSpriteX(CloneSpr[24]),GetSpriteY(CloneSpr[24])+0.25)
endif

if GetSpriteY(CloneSpr[24]) >= 420 and verticalmoving = 2 then verticalmoving = 3
if verticalmoving = 3
    SetSpritePosition (CloneSpr[24],GetSpriteX(CloneSpr[24]),GetSpriteY(CloneSpr[24])-0.6)
endif
// END =====================================================================================

// Move Gari ================================================================
if GetSpriteX(CloneSpr[14]) < 785 and movestate = 0 then movestate = 1
if movestate = 1
    SetSpritePhysicsVelocity (CloneSpr[14],40,GetSpritePhysicsVelocityY(CloneSpr[14]))
    SetSpritePhysicsVelocity (CloneSpr[15],40,GetSpritePhysicsVelocityY(CloneSpr[15]))
endif

if GetSpriteX(CloneSpr[15]) >= 785 and (movestate = 1 or movestate = 3) then movestate = 2
if movestate = 2
    SetSpritePhysicsVelocity (CloneSpr[14],-40,GetSpritePhysicsVelocityY(CloneSpr[14]))
    SetSpritePhysicsVelocity (CloneSpr[15],-40,GetSpritePhysicsVelocityY(CloneSpr[15]))

endif

if GetSpriteX(CloneSpr[14]) <= 210 and movestate = 2 then movestate = 3
if movestate = 3
    SetSpritePhysicsVelocity (CloneSpr[14],40,GetSpritePhysicsVelocityY(CloneSpr[14]))
    SetSpritePhysicsVelocity (CloneSpr[15],40,GetSpritePhysicsVelocityY(CloneSpr[15]))
endif
//END ============================================================================

// Move the spr to left-right and UP-Down From Ladder ====================================================
if keyboard = 1
    if GetRawKeyState (39) = 1
        SetSpriteFlip (spr,0,0)
        SetSpritePhysicsVelocity (spr, 200, GetSpritePhysicsVelocityY(spr))
        if state = 0 then state = 1

    elseif GetRawKeyState (37) = 1
        SetSpriteFlip (spr,1,0)
        SetSpritePhysicsVelocity (spr, -200, GetSpritePhysicsVelocityY(spr))
        if state = 0 then state = 1
    else
        if state = 2
            state = 0
            SetSpritePhysicsVelocity (spr, 0, GetSpritePhysicsVelocityY(spr))
            SetSpriteImage(spr , idleImage)
            SetSpriteAnimation ( spr, 170, 170, 4 )
            PlaySprite ( spr, 10, 1)
endif

// Move The Player climb up Ladder
sprY = GetSpriteY(spr)
laddercollide = getSpriteCollision (spr,CloneSpr[29])

if laddercollide = 1
    SetSpritePhysicsForce( spr, GetSpriteX(spr), GetSpriteY(spr), 0, spr_weight*-1)

    if GetRawKeyState(38) = 1
        SetSpritePhysicsVelocity(spr,GetSpritePhysicsVelocityX(spr),-80)
    else if GetRawKeyState(40) = 1
        SetSpritePhysicsVelocity(spr,GetSpritePhysicsVelocityX(spr),80)
    else
        SetSpritePhysicsVelocity(spr,GetSpritePhysicsVelocityX(spr),0)
endif
    endif
        endif

endif
// END =================================================================================
if GetRawKeyPressed (32) = 1
        SetSpritePhysicsVelocity (spr,GetSpritePhysicsVelocityX(spr),-400)
    endif
endif
//END ========================================================================================

// Control Virtual Joystick===================================================================================
    if keyboard <> 1
    if GetVirtualJoystickX(1) > 0.1
        SetSpriteFlip (spr,0,0)
        SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
        if state = 0 then state = 1

elseif GetVirtualJoystickX(1) < -0.1
    SetSpriteFlip (spr,1,0)
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
    if state = 0 then state = 1
else
    if state = 2
        state = 0
        SetSpritePhysicsVelocity (spr, 0, GetSpritePhysicsVelocityY(spr))
        SetSpriteImage(spr , idleImage)
        SetSpriteAnimation ( spr, 170, 170, 4 )
        PlaySprite ( spr, 10, 1)
endif
    endif
        endif
//END ========================================================================================================

// Change Animation to walk
if state = 1
    state = 2
    SetSpriteImage(spr , walkImage)
    SetSpriteAnimation(spr,170,170,12)
    PlaySprite(spr,10,1,1,12)
endif

// Change Animation to Climb Up
if state = 3
    state = 4
    SetSpriteImage(spr , climbupImage)
    SetSpriteAnimation (spr, 170,170,6)
    PlaySprite(spr,10,1,1,6)
endif

 Update2D(0) : Render2DFront() : Swap()
loop

// Create Display Function
function initDisplay(style as integer, width as integer, height as integer)

    if style = PERCENTAGE
		SetDisplayAspect(1)
	else
		SetVirtualResolution( width, height )
	endif

global display as tDisplay

display.left = GetScreenBoundsLeft()
display.right = GetScreenBoundsRight()
display.top = GetScreenBoundsTop()
display.bottom = GetScreenBoundsBottom()
display.width = display.right-display.left
display.height = display.bottom-display.top
SetScissor(display.left,display.top,display.right,display.bottom)

endfunction

#constant VIRTUAL 0
#constant PERCENTAGE 1

type tDisplay
    left as Integer
    right as Integer
    top as integer
    bottom as integer
    width as integer
    height as integer
endtype

this your code that I Improve it for myself that could better understand.
I remove 4 box and create a Player that can move to left and right. but seem there is a invisible wall in top and bottom of screen.but when export it to my phone, there is no invisible wall at left and right.

initImages()

initDisplay( VIRTUAL, 1280, 800 )
//initDisplay( PERCENTAGE, 0, 0 )

SetPhysicsGravity(0,1000)

AddVirtualJoystick(1,1100,680,300)

// Player Sprite
spr = CreateSprite(0)
SetSpriteSize (spr,100,200)
SetSpritePhysicsON (spr,2)
SetSpriteDepth(spr, 0)

do

// Move Player
if GetVirtualJoystickX(1) > 0.1
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
elseif GetVirtualJoystickX(1) < -0.1
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
else
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1), GetSpritePhysicsVelocityY(spr))
endif

sync()

loop

function initDisplay(style as integer, width as integer, height as integer)

if style = PERCENTAGE
		SetDisplayAspect(1)
	else
		SetVirtualResolution( width, height )
	endif

global display as tDisplay

display.left = GetScreenBoundsLeft()
	display.right = GetScreenBoundsRight()
	display.top = GetScreenBoundsTop()
	display.bottom = GetScreenBoundsBottom()
	display.width = display.right-display.left
	display.height = display.bottom-display.top

SetScissor(display.left, display.top, display.right, display.bottom )
	SetSpritePosition(sky, display.left, display.top)
	SetSpriteSize(sky, display.width, display.height)

endfunction

function initImages()

global sky as integer

sky = CreateSprite( 0 )
	SetSpriteColor (sky, 48,189,231,255)
	SetSpritePosition(sky, display.left, display.top)
	SetSpriteDepth(sky, 1)

endfunction

#constant VIRTUAL 0
#constant PERCENTAGE 1

type tDisplay
	left as integer
	right as integer
	top as integer
	bottom as integer
	width as integer
	height as integer
endtype

+ Code Snippet

initImages()

initDisplay( VIRTUAL, 1280, 800 )
//initDisplay( PERCENTAGE, 0, 0 )

SetPhysicsGravity(0,1000)

AddVirtualJoystick(1,1100,680,300)

// Player Sprite
spr = CreateSprite(0)
SetSpriteSize (spr,100,200)
SetSpritePhysicsON (spr,2)
SetSpriteDepth(spr, 0)

do

// Move Player
if GetVirtualJoystickX(1) > 0.1
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
elseif GetVirtualJoystickX(1) < -0.1
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
else
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1), GetSpritePhysicsVelocityY(spr))
endif

	sync()

loop


function initDisplay(style as integer, width as integer, height as integer)

	if style = PERCENTAGE
		SetDisplayAspect(1)
	else
		SetVirtualResolution( width, height )
	endif

	global display as tDisplay

	display.left = GetScreenBoundsLeft()
	display.right = GetScreenBoundsRight()
	display.top = GetScreenBoundsTop()
	display.bottom = GetScreenBoundsBottom()
	display.width = display.right-display.left
	display.height = display.bottom-display.top

	SetScissor(display.left, display.top, display.right, display.bottom )
	SetSpritePosition(sky, display.left, display.top)
	SetSpriteSize(sky, display.width, display.height)

endfunction


function initImages()

    global sky as integer

	sky = CreateSprite( 0 )
	SetSpriteColor (sky, 48,189,231,255)
	SetSpritePosition(sky, display.left, display.top)
	SetSpriteDepth(sky, 1)

endfunction


#constant VIRTUAL 0
#constant PERCENTAGE 1


type tDisplay
	left as integer
	right as integer
	top as integer
	bottom as integer
	width as integer
	height as integer
endtype

Back to top

Profile PM

Impetus73

13

Years of Service

User Offline

Joined: 28th Aug 2011

Location: Volda, Norway

Posted: 21st Dec 2014 14:48

Link

You are back to square 1...

Disable the built in physics walls (They only care about the virtual resolution, not the extra black bar area), and place dummy sprites outside the borders, as you did before.

The physics system does not automatically extends into the borders, even if you think you magically made them go away, the borders are still there

The last code example, works fine on my android HTC one M8, it just stops at the physics walls at coordinates 0,0 and 1279,0, not -25,0 and 1304,0 as they should.

----------------
AGK programmer
Did Amiga / AMOS programming in the 90's.

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 21st Dec 2014 14:52

Link

Quote: "The last code example, works fine on my android HTC one M8, it just stops at the physics walls at coordinates 0,0 and 1279,0, not -25,0 and 1304,0 as they should."

in last code, sprites no have physics and work very well. but my sprite have Physics and collide with invisible walls.

Back to top

Profile PM

Impetus73

13

Years of Service

User Offline

Joined: 28th Aug 2011

Location: Volda, Norway

Posted: 21st Dec 2014 15:07

Link

Using only code from your own examples:

initImages()
initDisplay( VIRTUAL, 1280, 800 )

SetPhysicsGravity(0,1000)
AddVirtualJoystick(1,1100,680,300)

// Player Sprite
spr = CreateSprite(0)
SetSpriteSize (spr,100,200)
SetSpritePhysicsON (spr,2)
SetSpriteDepth(spr, 0)

do

// Move Player
if GetVirtualJoystickX(1) > 0.1
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
elseif GetVirtualJoystickX(1) < -0.1
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
else
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1), GetSpritePhysicsVelocityY(spr))
endif

sync()

loop

function initDisplay(style as integer, width as integer, height as integer)

if style = PERCENTAGE
		SetDisplayAspect(1)
	else
		SetVirtualResolution( width, height )
	endif

global display as tDisplay

display.left = GetScreenBoundsLeft()
	display.right = GetScreenBoundsRight()
	display.top = GetScreenBoundsTop()
	display.bottom = GetScreenBoundsBottom()
	display.width = display.right-display.left
	display.height = display.bottom-display.top

SetScissor(display.left, display.top, display.right, display.bottom )
	SetSpritePosition(sky, display.left, display.top)
	SetSpriteSize(sky, display.width, display.height)

// "New" physics walls.
	SetPhysicsWallLeft(0)
	SetPhysicsWallRight(0)
	
	wallLeft = CreateSprite(0)
	SetSpritePosition(wallLeft,display.left-10,0)
	SetSpriteSize(wallLeft,10,height)
	SetSpriteDepth(wallLeft,0)
	SetSpriteVisible(wallLeft,0)
	SetSpritePhysicsOn(wallLeft,1)

wallRight = CreateSprite(0)
	SetSpritePosition(wallRight,display.right,0)
	SetSpriteSize(wallRight,10,height)
	SetSpriteDepth(wallRight,0)
	SetSpriteVisible(wallRight,0)
	SetSpritePhysicsOn(wallRight,1)

endfunction

function initImages()

global sky as integer

sky = CreateSprite( 0 )
	SetSpriteColor (sky, 48,189,231,255)
	SetSpritePosition(sky, display.left, display.top)
	SetSpriteDepth(sky, 1)

endfunction

#constant VIRTUAL 0
#constant PERCENTAGE 1

type tDisplay
	left as integer
	right as integer
	top as integer
	bottom as integer
	width as integer
	height as integer
endtype

+ Code Snippet

initImages()
initDisplay( VIRTUAL, 1280, 800 )

SetPhysicsGravity(0,1000)
AddVirtualJoystick(1,1100,680,300)

// Player Sprite
spr = CreateSprite(0)
SetSpriteSize (spr,100,200)
SetSpritePhysicsON (spr,2)
SetSpriteDepth(spr, 0)

do

// Move Player
if GetVirtualJoystickX(1) > 0.1
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
elseif GetVirtualJoystickX(1) < -0.1
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1)*200, GetSpritePhysicsVelocityY(spr))
else
    SetSpritePhysicsVelocity (spr, GetVirtualJoystickX(1), GetSpritePhysicsVelocityY(spr))
endif

	sync()

loop


function initDisplay(style as integer, width as integer, height as integer)

	if style = PERCENTAGE
		SetDisplayAspect(1)
	else
		SetVirtualResolution( width, height )
	endif

	global display as tDisplay

	display.left = GetScreenBoundsLeft()
	display.right = GetScreenBoundsRight()
	display.top = GetScreenBoundsTop()
	display.bottom = GetScreenBoundsBottom()
	display.width = display.right-display.left
	display.height = display.bottom-display.top

	SetScissor(display.left, display.top, display.right, display.bottom )
	SetSpritePosition(sky, display.left, display.top)
	SetSpriteSize(sky, display.width, display.height)


	// "New" physics walls.
	SetPhysicsWallLeft(0)
	SetPhysicsWallRight(0)
	
	wallLeft = CreateSprite(0)
	SetSpritePosition(wallLeft,display.left-10,0)
	SetSpriteSize(wallLeft,10,height)
	SetSpriteDepth(wallLeft,0)
	SetSpriteVisible(wallLeft,0)
	SetSpritePhysicsOn(wallLeft,1)

	wallRight = CreateSprite(0)
	SetSpritePosition(wallRight,display.right,0)
	SetSpriteSize(wallRight,10,height)
	SetSpriteDepth(wallRight,0)
	SetSpriteVisible(wallRight,0)
	SetSpritePhysicsOn(wallRight,1)	

endfunction


function initImages()

    global sky as integer

	sky = CreateSprite( 0 )
	SetSpriteColor (sky, 48,189,231,255)
	SetSpritePosition(sky, display.left, display.top)
	SetSpriteDepth(sky, 1)

endfunction


#constant VIRTUAL 0
#constant PERCENTAGE 1


type tDisplay
	left as integer
	right as integer
	top as integer
	bottom as integer
	width as integer
	height as integer
endtype

----------------
AGK programmer
Did Amiga / AMOS programming in the 90's.

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 21st Dec 2014 15:52

Link

Thanks Impetus73. now work very well

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / SetScissor () Problem

Attachments

Attachments

Attachments