Random Coin - GameCreators Forum

Author

Message

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 24th Apr 2015 11:50

Link

Hi.

I want make a side scrolling game and for this work I made a coin (like Arrow). now I want randomly show it in (x,y) Position.

this is my code also attached coin image, Please Guide Me how can Randomly show it.

SetDisplayAspect( 4.0/3.0 )

global CoinImg as Integer
global CoinEmptySprite as Integer
global dim CoinSpr[9]
global create = 0
global move# = 0.5

do

Time# = Timer()
Print (Time#)

SetViewOffset(GetViewOffsetX()+move#,GetViewOffsetY())

if Time# > 5
    CreateCoin()
    ResetTimer()
endif

Sync()
loop

/////////////////////////////////////Functions
Function CreateCoin()

CoinImg = LoadIMage("coin.png")
CoinEmptySprite = CreateSprite(0)
SetSpriteVisible(CoinEmptySprite,0)

for a = 1 to 9
    if GetSpriteExists(CoinSpr[a]) = 0 then CoinSpr[a] = CloneSprite(CoinEmptySprite)
    SetSpriteVisible(CoinSpr[a],1)
    SetSpriteSize(CoinSpr[a],5,-1)
Select a
    case 1:
        SetSpriteImage(CoinSpr[1],CoinImg)
        SetSpritePosition(CoinSpr[1],50+GetViewOffsetX()+50,50)
    endcase
    case 2:
        SetSpriteImage(CoinSpr[2],CoinImg)
        SetSpritePosition(CoinSpr[2],46+GetViewOffsetX()+50,46)
    endcase
    case 3:
        SetSpriteImage(CoinSpr[3],CoinImg)
        SetSpritePosition(CoinSpr[3],54+GetViewOffsetX()+50,54)
    endcase
    case 4:
        SetSpriteImage(CoinSpr[4],CoinImg)
        SetSpritePosition(CoinSpr[4],50+GetViewOffsetX()+50,57.5)
    endcase
    case 5:
        SetSpriteImage(CoinSpr[5],CoinImg)
        SetSpritePosition(CoinSpr[5],46+GetViewOffsetX()+50,61)
    endcase
    case 6:
        SetSpriteImage(CoinSpr[6],CoinImg)
        SetSpritePosition(CoinSpr[6],45+GetViewOffsetX()+50,53.5)
    endcase
    case 7:
        SetSpriteImage(CoinSpr[7],CoinImg)
        SetSpritePosition(CoinSpr[7],40+GetViewOffsetX()+50,53.5)
    endcase
    case 8:
        SetSpriteImage(CoinSpr[8],CoinImg)
        SetSpritePosition(CoinSpr[8],35+GetViewOffsetX()+50,53.5)
    endcase
    case 9:
        SetSpriteImage(CoinSpr[9],CoinImg)
        SetSpritePosition(CoinSpr[9],30+GetViewOffsetX()+50,53.5)
    endcase
EndSelect
Next a

EndFunction

+ Code Snippet

SetDisplayAspect( 4.0/3.0 )

global CoinImg as Integer
global CoinEmptySprite as Integer
global dim CoinSpr[9]
global create = 0
global move# = 0.5



do

Time# = Timer()
Print (Time#)

SetViewOffset(GetViewOffsetX()+move#,GetViewOffsetY())

if Time# > 5
    CreateCoin()
    ResetTimer()
endif

 Sync()
loop

/////////////////////////////////////Functions
Function CreateCoin()

CoinImg = LoadIMage("coin.png")
CoinEmptySprite = CreateSprite(0)
SetSpriteVisible(CoinEmptySprite,0)

for a = 1 to 9
    if GetSpriteExists(CoinSpr[a]) = 0 then CoinSpr[a] = CloneSprite(CoinEmptySprite)
    SetSpriteVisible(CoinSpr[a],1)
    SetSpriteSize(CoinSpr[a],5,-1)
Select a
    case 1:
        SetSpriteImage(CoinSpr[1],CoinImg)
        SetSpritePosition(CoinSpr[1],50+GetViewOffsetX()+50,50)
    endcase
    case 2:
        SetSpriteImage(CoinSpr[2],CoinImg)
        SetSpritePosition(CoinSpr[2],46+GetViewOffsetX()+50,46)
    endcase
    case 3:
        SetSpriteImage(CoinSpr[3],CoinImg)
        SetSpritePosition(CoinSpr[3],54+GetViewOffsetX()+50,54)
    endcase
    case 4:
        SetSpriteImage(CoinSpr[4],CoinImg)
        SetSpritePosition(CoinSpr[4],50+GetViewOffsetX()+50,57.5)
    endcase
    case 5:
        SetSpriteImage(CoinSpr[5],CoinImg)
        SetSpritePosition(CoinSpr[5],46+GetViewOffsetX()+50,61)
    endcase
    case 6:
        SetSpriteImage(CoinSpr[6],CoinImg)
        SetSpritePosition(CoinSpr[6],45+GetViewOffsetX()+50,53.5)
    endcase
    case 7:
        SetSpriteImage(CoinSpr[7],CoinImg)
        SetSpritePosition(CoinSpr[7],40+GetViewOffsetX()+50,53.5)
    endcase
    case 8:
        SetSpriteImage(CoinSpr[8],CoinImg)
        SetSpritePosition(CoinSpr[8],35+GetViewOffsetX()+50,53.5)
    endcase
    case 9:
        SetSpriteImage(CoinSpr[9],CoinImg)
        SetSpritePosition(CoinSpr[9],30+GetViewOffsetX()+50,53.5)
    endcase
EndSelect
Next a

EndFunction

Attachments

Login to view attachments

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 24th Apr 2015 14:21

Link

Have you tried looking at the "Random" command?

Using AppGameKit V2 Tier 1

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 24th Apr 2015 14:35 Edited at: 24th Apr 2015 15:05

Link

Quote: "Have you tried looking at the "Random" command?"

yes, Isee it and work with it at some code. and I used random for one sprite, while I have 10 sprites with arrow shape. I need do it without destroy my shape.

EDIT:

In other words, I want Randomly change My Function Position.
I know can't change function position but for better understand I said this sentence.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 24th Apr 2015 15:38

Link

Can you write what you are trying to do in your own language so I can try translating what you are saying?

I don't want to cause offence but I really don't understand what you mean.

If you know how the Random command works then you can set a random position by using it very easily.

Using AppGameKit V2 Tier 1

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 24th Apr 2015 15:59 Edited at: 24th Apr 2015 16:00

Link

Quote: "I don't want to cause offence but I really don't understand what you mean."

sorry baxslash, for my bad English.

New Explanation:

1- I created a Function for make this shape with coin.

2- according to my code at below, I create a timer for call may function

+ Code Snippet

Time# = Timer()
Print (Time#)

if Time# > 5
    CreateCoin()
    ResetTimer()
endif

when my function is calling any time, my function set (made coin shape) at same position, while I want this position to change randomly.

I don't know this explanation is clear or no.

Back to top

Profile PM

Funnell7

13

Years of Service

User Offline

Joined: 8th Sep 2011

Location: UK, England

Posted: 24th Apr 2015 22:45

Link

Behdadsoft, the way I would do this is by passing the random position with your function. Like so;

+ Code Snippet

CreateCoin(x, y) // where x and y are random values

I would then create the first coin at this position, and then create all the other coins relative to the first coin.

For example;

+ Code Snippet

CreateCoin(Random(1, 100), Random(1, 100))

function CreateCoin(x, y)

Coin[1] = CreateSprite(Coin_Img)
SetSpritePosition(Coin[1], x, y)

Coin[2] = CreateSprite(Coin_Img)
SetSpritePosition(Coin[2], GetSpriteX(Coin[1]) + 50, GetSpriteY(Coin[1]) + 50)
...
...

endfunction

Apologies, this is a very brief/rushed example, but this should give you the idea...

Using AppGameKit V2 Tier 1

Back to top

Profile PM Email

IronManhood

9

Years of Service

User Offline

Joined: 6th Feb 2015

Location: US

Posted: 24th Apr 2015 22:56 Edited at: 24th Apr 2015 22:59

Link

You could do something like this.

+ Code Snippet

// Project: random sprite group 
// Created: 2015-04-24

// set window properties
SetWindowTitle( "random sprite group" )
SetWindowSize( 768, 768, 0 )

// set display properties
SetVirtualResolution( 768, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

createSprites()

do
    if timer() > 2.5
		positionSprites(random(100,668),random(100,668))
		ResetTimer()
	endif

    Print( ScreenFPS() )
    Sync()
loop

function createSprites()
	for i = 1 to 5
		CreateSprite(i,0)
		SetSpriteSize(i,25.0,25.0)
		SetSpriteOffset(i, GetSpriteWidth(i) / 2, GetSpriteHeight(i) / 2)
	next
	positionSprites(random(100,668),random(100,668))
endfunction

function positionSprites( posX as float, posY as float )
	SetSpritePositionByOffset(1, posX, posY)
	SetSpritePositionByOffset(2, posX - 50, posY)
	SetSpritePositionByOffset(3, posX + 50, posY)
	SetSpritePositionByOffset(4, posX, posY - 50)
	SetSpritePositionByOffset(5, posX, posY + 50)
endfunction

Basically, feed the function a position, then set all the sprites positions based off of the position that was fed to the function.

Funnell7, you just did beat me to it.

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 26th Apr 2015 13:46

Link

Quote: "Apologies, this is a very brief/rushed example, but this should give you the idea..."

Thanks, No Problem.

Thanks IronManhood for example.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers AppGameKit Corner / Random Coin

Attachments