[AGK2] Tween BattleGround - GameCreators Forum

Author

Message

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 18th Dec 2017 21:13

Link

Hello mates! Time ago I did a little prototype in C2, and now I want to port the prototype to AppGameKit polishing the game and why not publishing it later.

An initial idea is a Fruit Dojo -Ninja Fruits everywhere-, a casual game but a good touch playability.

Click if you want to play [href=the prototype that I did time ago]http://game.nonomartinez.com/construct2/BattleGround/[/href]

It has some interesting points like checking sprite collisions and firing bullets, some different AI for rangers/melee attackers, and of course a lot of tween functions, so there I go..

Of course, any suggestion from the community is always welcome!

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "afasf" )
SetWindowSize(800, 400, 0)
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution(800, 400) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

global playerSpriteId as integer
global tweenId as integer

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId, 25,25)
SetSpriteSize(playerSpriteId,50,-1)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.15)

do
    if GetPointerPressed() = 1
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
        PlayTweenSprite(tweenId,playerSpriteId,0.025)
    endif
    
    UpdateAllTweens(GetFrameTime())
    Print(ScreenFPS())
    Sync()
loop

+ Code Snippet

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "afasf" )
SetWindowSize(800, 400, 0)
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution(800, 400) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

global playerSpriteId as integer
global tweenId as integer

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId, 25,25)
SetSpriteSize(playerSpriteId,50,-1)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.15)

do
    if GetPointerPressed() = 1
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
        PlayTweenSprite(tweenId,playerSpriteId,0.025)
    endif
    
    UpdateAllTweens(GetFrameTime())
    Print(ScreenFPS())
    Sync()
loop

Well at the moment it seems much similar

Back to top

Profile PM Email Website

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 18th Dec 2017 21:14

Link

I'm having serious problems with the links : ) http://game.nonomartinez.com/construct2/BattleGround/

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 18th Dec 2017 21:20

Link

What are your steps that you like to start with and finish goal?

We can all try and help fit all the bits inbetween

All we see is a box that if press it heads to the pointer position

Do you wish to make your Construct2 version fully into AppGameKit?

This can be achievable?

D

Back to top

Profile

puzzler2018

User Banned

Posted: 18th Dec 2017 21:22

Link

That link works fine in Firefox, Internet explorer is crap

Back to top

Profile

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 18th Dec 2017 21:34

Link

Of course this is achievable, and any suggestion is welcome mate.

I'm going to prepare a basic public template so opened this thread to post my own progress and maybe can help anyone.

Tween fundamentals are pretty useful in 2D games and the prototype is not much complicated.

Quote: "That link works fine in Firefox, Internet explorer is crap"

I meant I'm missing to close the href tags lol.

Back to top

Profile PM Email Website

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 18th Dec 2017 21:37

Link

If anyone is interested in the C2 code of the prototype , I can send it to him by pm.

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 18th Dec 2017 21:44 Edited at: 18th Dec 2017 21:45

Link

I particular work and able to reconstruct games from what I see on the screen but others might like to see the C2 code

C2 code I would feel would be no use cause i think Construct 2 is a click and play style engine?

I might be wrong though

Im sure we can guide you with AppGameKit as and where necessary if have teething programming logic issues etc

Good luck with your Project

D

Back to top

Profile

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 18th Dec 2017 21:52

Link

I meant if anyone is interested in the code template itself to play with it in C2, I don't need to see that code

Thanks for your comments

Back to top

Profile PM Email Website

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 18th Dec 2017 22:02

Link

Adding an enemies spawner.. The spawner is not critical really, we don't need atm so much enemies

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

#constant MAX_ENEMIES = 10

global playerSpriteId as integer
global enemySpriteId as integer
global tweenId as integer
global spawner as integer
global spawned as integer

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId,25,25)
SetSpriteColor(playerSpriteId,0,255,255,255)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.15)

spawned = 0	
spawner = CreateSpawner()
while spawned < MAX_ENEMIES
	enemy as integer
	// I use this technique because sometimes
	// it needs to check if its terrain/water i.e.
	enemy = CreateSprite(0)
	SetSpriteSize(enemy, 25,25)
	SetSpriteColor(enemy, 255,0,0,255)
	SetSpritePosition(enemy, GetSpriteX(spawner), GetSpriteY(spawner))
	// So after the checks (if exists) it moves the spawner to another random position
	MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
	inc spawned
endwhile
	
do
    if GetPointerPressed() = 1
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
        PlayTweenSprite(tweenId,playerSpriteId,0)
    endif

UpdateAllTweens(GetFrameTime())
    Print(ScreenFPS())
    Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpritePosition(sprId, Random2(0, w), Random2(0, h))
endfunction

+ Code Snippet

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

#constant MAX_ENEMIES = 10

global playerSpriteId as integer
global enemySpriteId as integer
global tweenId as integer
global spawner as integer
global spawned as integer

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId,25,25)
SetSpriteColor(playerSpriteId,0,255,255,255)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.15)

spawned = 0	
spawner = CreateSpawner()
while spawned < MAX_ENEMIES
	enemy as integer
	// I use this technique because sometimes
	// it needs to check if its terrain/water i.e.
	enemy = CreateSprite(0)
	SetSpriteSize(enemy, 25,25)
	SetSpriteColor(enemy, 255,0,0,255)
	SetSpritePosition(enemy, GetSpriteX(spawner), GetSpriteY(spawner))
	// So after the checks (if exists) it moves the spawner to another random position
	MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
	inc spawned
endwhile
	
do
    if GetPointerPressed() = 1
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
        PlayTweenSprite(tweenId,playerSpriteId,0)
    endif

    UpdateAllTweens(GetFrameTime())
    Print(ScreenFPS())
    Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpritePosition(sprId, Random2(0, w), Random2(0, h))
endfunction

Back to top

Profile PM Email Website

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 18th Dec 2017 22:24

Link

Woaw Sprite functions are pretty flexible

The next is a tail simulting the player movement in the touch direction, it's using SetSpriteScale and I'm doing some experiments with this until get the desired effect.

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround " )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

#constant MAX_ENEMIES = 10

global playerSpriteId as integer
global enemySpriteId as integer
global enemyImageId as integer
global tailSpriteId as integer
global tailImageId as integer

global tweenId as integer

global spawner as integer
global spawned as integer

global spriteAngle as float

playerSpriteId = CreateSprite(LoadImage("player.png"))
SetSpriteSize(playerSpriteId,50,-1)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.15)

spawned = 0

enemyImageId = LoadImage("enemy.png")
tailImageId = LoadImage("tail.png")

// Its placed out, atm we dont need refill the enemies
spawner = CreateSpawner()
while spawned < MAX_ENEMIES
	enemy as integer
	// I use this technique because sometimes
	// it needs to check if its terrain/water i.e.
	enemy = CreateSprite(enemyImageId)
	SetSpriteSize(enemy, 25,25)
	SetSpritePosition(enemy, GetSpriteX(spawner), GetSpriteY(spawner))
	// So after the checks (if exists) it moves the spawner to another random position
	MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
	inc spawned
endwhile

do
    if GetPointerPressed() = 1
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
		// Just to be sure, idk if the performance cost is higher, supposed yes
		if not GetSpriteExists(tailSpriteId)
			tailSpriteId = CreateSprite(tailImageId)
		endif
		spriteAngle = ATanFull(GetSpriteX(playerSpriteId) - GetPointerX(), GetSpriteY(playerSpriteId) - GetPointerY())
		SetSpriteAngle(playerSpriteId, spriteAngle)
		SetSpriteSize(tailSpriteId, 25,25)
		SetSpriteColor(tailSpriteId, 255,255,255,70)
		SetSpritePosition(tailSpriteId, GetSpriteX(playerSpriteId),GetSpriteY(playerSpriteId))
		SetSpriteAngle(tailSpriteId, spriteAngle)
        PlayTweenSprite(tweenId,playerSpriteId,0)
    endif
    
    if GetTweenSpritePlaying(tweenId, playerSpriteId) = 1
		SetSpriteScaleByOffset(tailSpriteId, 1, 25 )
	else
		DeleteSprite(tailSpriteId)
	endif

UpdateAllTweens(GetFrameTime())
    Print(ScreenFPS())
    Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpritePosition(sprId, Random2(0, w), Random2(0, h))
endfunction

+ Code Snippet

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround " )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

#constant MAX_ENEMIES = 10

global playerSpriteId as integer
global enemySpriteId as integer
global enemyImageId as integer
global tailSpriteId as integer
global tailImageId as integer

global tweenId as integer

global spawner as integer
global spawned as integer

global spriteAngle as float

playerSpriteId = CreateSprite(LoadImage("player.png"))
SetSpriteSize(playerSpriteId,50,-1)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.15)

spawned = 0	

enemyImageId = LoadImage("enemy.png")
tailImageId = LoadImage("tail.png")

// Its placed out, atm we dont need refill the enemies
spawner = CreateSpawner()
while spawned < MAX_ENEMIES
	enemy as integer
	// I use this technique because sometimes
	// it needs to check if its terrain/water i.e.
	enemy = CreateSprite(enemyImageId)
	SetSpriteSize(enemy, 25,25)
	SetSpritePosition(enemy, GetSpriteX(spawner), GetSpriteY(spawner))
	// So after the checks (if exists) it moves the spawner to another random position
	MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
	inc spawned
endwhile

do
    if GetPointerPressed() = 1
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
		// Just to be sure, idk if the performance cost is higher, supposed yes
		if not GetSpriteExists(tailSpriteId)
			tailSpriteId = CreateSprite(tailImageId)
		endif
		spriteAngle = ATanFull(GetSpriteX(playerSpriteId) - GetPointerX(), GetSpriteY(playerSpriteId) - GetPointerY())
		SetSpriteAngle(playerSpriteId, spriteAngle)
		SetSpriteSize(tailSpriteId, 25,25)
		SetSpriteColor(tailSpriteId, 255,255,255,70)
		SetSpritePosition(tailSpriteId, GetSpriteX(playerSpriteId),GetSpriteY(playerSpriteId))
		SetSpriteAngle(tailSpriteId, spriteAngle)
        PlayTweenSprite(tweenId,playerSpriteId,0)
    endif
    
    if GetTweenSpritePlaying(tweenId, playerSpriteId) = 1
		SetSpriteScaleByOffset(tailSpriteId, 1, 25 )
	else
		DeleteSprite(tailSpriteId)
	endif

    UpdateAllTweens(GetFrameTime())
    Print(ScreenFPS())
    Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpritePosition(sprId, Random2(0, w), Random2(0, h))
endfunction

Now I added a few images, place them in the /media/ folder

player.png https://i.imgur.com/kfLTcgN.png
tail.png https://i.imgur.com/HrXyqv5.png
enemy.png https://i.imgur.com/taSTLZH.png

Back to top

Profile PM Email Website

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 18th Dec 2017 22:28

Link

I don't lke much using else's but if you have another approach would nice to know

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 19th Dec 2017 00:02

Link

Maybe a timer() interval. and the sprites appear from 1 pixel to its full size - spritescale usage

Back to top

Profile

puzzler2018

User Banned

Posted: 19th Dec 2017 00:04

Link

Its your development...

Back to top

Profile

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 19th Dec 2017 09:19

Link

It's just code

Feel free to improve it , would nice to make it together.

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 19th Dec 2017 09:50 Edited at: 19th Dec 2017 09:57

Link

A really good effect that you got so far - well done.

Maybe

- The graphics look cool

- pop some AI in for enemies to follow or move away from you depending on their characteristics

- spinning fancy objects (pickups) to pick up

- Add a little Android code in, so when touch the screen, the player moves where the finger in currently "touched" on the screen (Tap/Space) will fire a bullet

On the message rules AUP - I have once read and states that we cannot collaborate to make a full game together not via the forums at least.

forums are for help with code if struggling or indeed showing best efforts in progress of projects (WIP - Showcase) and it seems your doing so well with this little project anyway after 1 day of starting it
your progress is good

Keep up the good work

D

Back to top

Profile

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 20th Dec 2017 05:18

Link

Cool fade effect

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround" )
SetWindowSize(768, 1024, 0)
SetDisplayAspect(768.0/1024)

// set display properties
SetVirtualResolution( 768.0 , 1024  ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

#constant MAX_ENEMIES = 10

global tweenId as integer
global playerSpriteId as integer

global clickPointer as integer

global tailSpriteId as integer
global tailImageId as integer
global spriteAngle as float

global enemySpriteId as integer
global spawner as integer

global spawned as integer = 0

spawner = CreateSpawner()
while spawned < MAX_ENEMIES
	enemy as integer
	// I use this technique because later I'll 
	// need to check if it's a terrain/water etc
	enemy = CreateSprite(0)
	SetSpriteColor(enemy, Random(0,255), Random(0,255), Random(0,255), 255)
	SetSpritePosition(enemy, GetSpriteX(spawner), GetSpriteY(spawner))
	SetSpriteSize(enemy, 5,5)
	// So after the checks (if exists) it moves the spawner randomly
	MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
	inc spawned
endwhile

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId, 10, 10)
SetSpriteColor(playerSpriteId, 0, 255, 255, 255)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.5)

clickPointer = CreateSprite(0)
SetSpriteSize(clickPointer, 10, 10)
SetSpriteOffset(clickPointer, 0, 0)

tailSpriteId = CreateSprite(0)
SetSpriteSize(tailSpriteId, 10, 10)
SetSpriteOffset(tailSpriteId, 0, 0)

do
    if GetPointerPressed() = 1
		SetSpritePosition(clickPointer, GetPointerX(), GetPointerY())
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
		SetSpriteColor(tailSpriteId, Random(0,255), Random(0,255), Random(0,255), 75)
		SetSpritePosition(tailSpriteId, GetSpriteX(playerSpriteId),GetSpriteY(playerSpriteId))
		SetSpriteAngle(tailSpriteId, ATanFull(GetSpriteX(tailSpriteId) - GetSpriteX(clickPointer), GetSpriteY(tailSpriteId) - GetSpriteY(clickPointer)))
		SetSpriteSize(tailSpriteId, 10, GetSpriteDistance(playerSpriteId, clickPointer))
                PlayTweenSprite(tweenId,playerSpriteId, 0)
    endif
    
	if GetSpriteColorAlpha(tailSpriteId) > 0 
		SetSpriteColorAlpha(tailSpriteId, GetSpriteColorAlpha(tailSpriteId) - 1)
	endif

UpdateAllTweens(GetFrameTime())
    //Print(ScreenFPS())
    Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpritePosition(sprId, Random2(0, w), Random2(0, h))
endfunction

+ Code Snippet

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround" )
SetWindowSize(768, 1024, 0)
SetDisplayAspect(768.0/1024)

// set display properties
SetVirtualResolution( 768.0 , 1024  ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

#constant MAX_ENEMIES = 10

global tweenId as integer
global playerSpriteId as integer

global clickPointer as integer

global tailSpriteId as integer
global tailImageId as integer
global spriteAngle as float

global enemySpriteId as integer
global spawner as integer

global spawned as integer = 0	

spawner = CreateSpawner()
while spawned < MAX_ENEMIES
	enemy as integer
	// I use this technique because later I'll 
	// need to check if it's a terrain/water etc
	enemy = CreateSprite(0)
	SetSpriteColor(enemy, Random(0,255), Random(0,255), Random(0,255), 255)
	SetSpritePosition(enemy, GetSpriteX(spawner), GetSpriteY(spawner))
	SetSpriteSize(enemy, 5,5)
	// So after the checks (if exists) it moves the spawner randomly
	MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
	inc spawned
endwhile

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId, 10, 10)
SetSpriteColor(playerSpriteId, 0, 255, 255, 255)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.5)

clickPointer = CreateSprite(0)
SetSpriteSize(clickPointer, 10, 10)
SetSpriteOffset(clickPointer, 0, 0)

tailSpriteId = CreateSprite(0)
SetSpriteSize(tailSpriteId, 10, 10)
SetSpriteOffset(tailSpriteId, 0, 0)

do
    if GetPointerPressed() = 1
		SetSpritePosition(clickPointer, GetPointerX(), GetPointerY())
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
		SetSpriteColor(tailSpriteId, Random(0,255), Random(0,255), Random(0,255), 75)
		SetSpritePosition(tailSpriteId, GetSpriteX(playerSpriteId),GetSpriteY(playerSpriteId))
		SetSpriteAngle(tailSpriteId, ATanFull(GetSpriteX(tailSpriteId) - GetSpriteX(clickPointer), GetSpriteY(tailSpriteId) - GetSpriteY(clickPointer)))
		SetSpriteSize(tailSpriteId, 10, GetSpriteDistance(playerSpriteId, clickPointer))
                PlayTweenSprite(tweenId,playerSpriteId, 0)
    endif
    
	if GetSpriteColorAlpha(tailSpriteId) > 0 
		SetSpriteColorAlpha(tailSpriteId, GetSpriteColorAlpha(tailSpriteId) - 1)
	endif

    UpdateAllTweens(GetFrameTime())
    //Print(ScreenFPS())
    Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpritePosition(sprId, Random2(0, w), Random2(0, h))
endfunction

Back to top

Profile PM Email Website

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 20th Dec 2017 22:35 Edited at: 1st Jan 2018 03:22

Link

Added a simple AI for enemies using the AppGameKit Tween functions

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround" )
SetWindowSize(768, 1024, 0)
SetDisplayAspect(768.0/1024)

// set display properties
SetVirtualResolution( 768.0 , 1024  ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

#constant MAX_ENEMIES = 5

global tweenId as integer
global playerSpriteId as integer

global clickPointer as integer

global tailSpriteId as integer
global tailImageId as integer
global spriteAngle as float

global enemySpriteId as integer
global spawner as integer

global spawned as integer = 0

global enemiesId as integer[]
global tweensId as integer[]

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId, 25, 25)
SetSpriteColor(playerSpriteId, 0, 255, 255, 255)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.2)

clickPointer = CreateSprite(0)
SetSpriteSize(clickPointer, 25, 25)
//SetSpriteOffset(clickPointer, 0, 0)

tailSpriteId = CreateSprite(0)
SetSpriteSize(tailSpriteId, 10, 10)
SetSpriteOffset(tailSpriteId, 0, 0)

spawner = CreateSpawner()

do	
	enemy as integer
	enemyTweenId as integer
	while spawned <= MAX_ENEMIES
		//Refill the enemies	
		enemy = CreateSprite(0)
		enemyTweenId = CreateTweenSprite(5.5)
		enemiesId.insert(enemy)
		tweensId.insert(enemyTweenId)
		MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
		SetSpritePositionByOffset(enemy, GetSpriteX(spawner), GetSpriteY(spawner))
		enemySize as integer
		enemySize = Random(10,50)
		SetSpriteSize(enemy, enemySize, enemySize)
		SetSpriteColor(enemy, Random(0,255), Random(0,255), Random(0,255), 255)
		PlayTweenSprite(enemyTweenId, enemy, Random(0,3))
		inc spawned
	endwhile
	
    if GetPointerPressed() = 1
		StopTweenSprite(tweenId, playerSpriteId)
		SetSpritePosition(clickPointer, GetPointerX(), GetPointerY())
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
		SetSpriteColor(tailSpriteId, Random(0,255), Random(0,255), Random(0,255), 100)
		SetSpritePosition(tailSpriteId, GetSpriteX(playerSpriteId),GetSpriteY(playerSpriteId))
		SetSpriteAngle(tailSpriteId, ATanFull(GetSpriteX(tailSpriteId) - GetSpriteX(clickPointer), GetSpriteY(tailSpriteId) - GetSpriteY(clickPointer)))
		SetSpriteSize(tailSpriteId, 10, GetSpriteDistance(playerSpriteId, clickPointer))
        PlayTweenSprite(tweenId,playerSpriteId, 0)
		i as integer
		for i = 1 to MAX_ENEMIES
			rng as integer
			rng = Random(0,1)
			StopTweenSprite(tweensId[i], enemiesId[i])
			PlayTweenSprite(tweensId[i], enemiesId[i], Random(0,3))
			MoveEnemy(tweensId[i], enemiesId[i])
			UpdateTweenSprite(tweensId[i], enemiesId[i], Random(0,3))
		next i
    endif
    
	if GetSpriteColorAlpha(tailSpriteId) > 0 
		SetSpriteColorAlpha(tailSpriteId, GetSpriteColorAlpha(tailSpriteId) - 1)
	endif
	
	Gosub _benchMarking
	
    UpdateAllTweens(GetFrameTime())
    //Print(ScreenFPS())
    Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpriteOffset(sprId, 0,0)
	SetSpritePositionByOffset(sprId, Random2(0, w), Random2(0, h))
endfunction

function MoveEnemy(tid, enemyId)
	SetTweenSpriteX(tid,GetSpriteX(enemyId),GetSpriteX(clickPointer),TweenSmooth2())
	SetTweenSpriteY(tid,GetSpriteY(enemyId),GetSpriteY(clickPointer),TweenSmooth2())
endfunction

_benchMarking:
	// show statistics
	Print ( "Drawing set up time      = " + str ( GetDrawingSetupTime ( ) ) )
	Print ( "Drawing time             = " + str ( GetDrawingTime ( ) ) )
	Print ( "Sprites drawn            = " + str ( GetManagedSpriteDrawnCount ( ) ) )
	Print ( "Particles drawn          = " + str ( GetParticleDrawnQuadCount ( ) ) )
	Print ( "Frame rate               = " + str ( screenFPS ( ) ) )

// build 107 additions
	Print ( "Get pixels drawn         = " + str ( GetPixelsDrawn ( ) ) )
	Print ( "Get managed sprite calls = " + str ( GetManagedSpriteDrawCalls ( ) ) )
return

+ Code Snippet

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround" )
SetWindowSize(768, 1024, 0)
SetDisplayAspect(768.0/1024)

// set display properties
SetVirtualResolution( 768.0 , 1024  ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

#constant MAX_ENEMIES = 5

global tweenId as integer
global playerSpriteId as integer

global clickPointer as integer

global tailSpriteId as integer
global tailImageId as integer
global spriteAngle as float

global enemySpriteId as integer
global spawner as integer

global spawned as integer = 0	

global enemiesId as integer[]
global tweensId as integer[]

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId, 25, 25)
SetSpriteColor(playerSpriteId, 0, 255, 255, 255)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.2)

clickPointer = CreateSprite(0)
SetSpriteSize(clickPointer, 25, 25)
//SetSpriteOffset(clickPointer, 0, 0)

tailSpriteId = CreateSprite(0)
SetSpriteSize(tailSpriteId, 10, 10)
SetSpriteOffset(tailSpriteId, 0, 0)

spawner = CreateSpawner()

do	
	enemy as integer
	enemyTweenId as integer
	while spawned <= MAX_ENEMIES
		//Refill the enemies	
		enemy = CreateSprite(0)
		enemyTweenId = CreateTweenSprite(5.5)
		enemiesId.insert(enemy)
		tweensId.insert(enemyTweenId)
		MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
		SetSpritePositionByOffset(enemy, GetSpriteX(spawner), GetSpriteY(spawner))
		enemySize as integer
		enemySize = Random(10,50)
		SetSpriteSize(enemy, enemySize, enemySize)
		SetSpriteColor(enemy, Random(0,255), Random(0,255), Random(0,255), 255)
		PlayTweenSprite(enemyTweenId, enemy, Random(0,3))
		inc spawned
	endwhile
	
    if GetPointerPressed() = 1
		StopTweenSprite(tweenId, playerSpriteId)
		SetSpritePosition(clickPointer, GetPointerX(), GetPointerY())
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
		SetSpriteColor(tailSpriteId, Random(0,255), Random(0,255), Random(0,255), 100)
		SetSpritePosition(tailSpriteId, GetSpriteX(playerSpriteId),GetSpriteY(playerSpriteId))
		SetSpriteAngle(tailSpriteId, ATanFull(GetSpriteX(tailSpriteId) - GetSpriteX(clickPointer), GetSpriteY(tailSpriteId) - GetSpriteY(clickPointer)))
		SetSpriteSize(tailSpriteId, 10, GetSpriteDistance(playerSpriteId, clickPointer))
        PlayTweenSprite(tweenId,playerSpriteId, 0)
		i as integer
		for i = 1 to MAX_ENEMIES
			rng as integer
			rng = Random(0,1)
			StopTweenSprite(tweensId[i], enemiesId[i])
			PlayTweenSprite(tweensId[i], enemiesId[i], Random(0,3))
			MoveEnemy(tweensId[i], enemiesId[i])
			UpdateTweenSprite(tweensId[i], enemiesId[i], Random(0,3))
		next i
    endif
    
	if GetSpriteColorAlpha(tailSpriteId) > 0 
		SetSpriteColorAlpha(tailSpriteId, GetSpriteColorAlpha(tailSpriteId) - 1)
	endif
	
	Gosub _benchMarking
	
    UpdateAllTweens(GetFrameTime())
    //Print(ScreenFPS())
    Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpriteOffset(sprId, 0,0)
	SetSpritePositionByOffset(sprId, Random2(0, w), Random2(0, h))
endfunction

function MoveEnemy(tid, enemyId)
	SetTweenSpriteX(tid,GetSpriteX(enemyId),GetSpriteX(clickPointer),TweenSmooth2())
	SetTweenSpriteY(tid,GetSpriteY(enemyId),GetSpriteY(clickPointer),TweenSmooth2())
endfunction

_benchMarking:
	// show statistics
	Print ( "Drawing set up time      = " + str ( GetDrawingSetupTime ( ) ) )
	Print ( "Drawing time             = " + str ( GetDrawingTime ( ) ) )
	Print ( "Sprites drawn            = " + str ( GetManagedSpriteDrawnCount ( ) ) )
	Print ( "Particles drawn          = " + str ( GetParticleDrawnQuadCount ( ) ) )
	Print ( "Frame rate               = " + str ( screenFPS ( ) ) )

    // build 107 additions
	Print ( "Get pixels drawn         = " + str ( GetPixelsDrawn ( ) ) )
	Print ( "Get managed sprite calls = " + str ( GetManagedSpriteDrawCalls ( ) ) )
return

Back to top

Profile PM Email Website

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 20th Dec 2017 22:36

Link

Simple AI for enemies :_)

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround" )
SetWindowSize(768, 1024, 0)
SetDisplayAspect(768.0/1024)

// set display properties
SetVirtualResolution( 768.0 , 1024  ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

#constant MAX_ENEMIES = 5

global tweenId as integer
global playerSpriteId as integer

global clickPointer as integer

global tailSpriteId as integer
global tailImageId as integer
global spriteAngle as float

global enemySpriteId as integer
global spawner as integer

global spawned as integer = 0

global enemiesId as integer[]
global tweensId as integer[]

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId, 25, 25)
SetSpriteColor(playerSpriteId, 0, 255, 255, 255)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.2)

clickPointer = CreateSprite(0)
SetSpriteSize(clickPointer, 25, 25)
//SetSpriteOffset(clickPointer, 0, 0)

tailSpriteId = CreateSprite(0)
SetSpriteSize(tailSpriteId, 10, 10)
SetSpriteOffset(tailSpriteId, 0, 0)

spawner = CreateSpawner()

do	
	enemy as integer
	enemyTweenId as integer
	while spawned <= MAX_ENEMIES
		//Refill the enemies	
		enemy = CreateSprite(0)
		enemyTweenId = CreateTweenSprite(5.5)
		enemiesId.insert(enemy)
		tweensId.insert(enemyTweenId)
		MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
		SetSpritePositionByOffset(enemy, GetSpriteX(spawner), GetSpriteY(spawner))
		enemySize as integer
		enemySize = Random(10,50)
		SetSpriteSize(enemy, enemySize, enemySize)
		SetSpriteColor(enemy, Random(0,255), Random(0,255), Random(0,255), 255)
		PlayTweenSprite(enemyTweenId, enemy, Random(0,3))
		inc spawned
	endwhile
	
    if GetPointerPressed() = 1
		StopTweenSprite(tweenId, playerSpriteId)
		SetSpritePosition(clickPointer, GetPointerX(), GetPointerY())
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
		SetSpriteColor(tailSpriteId, Random(0,255), Random(0,255), Random(0,255), 100)
		SetSpritePosition(tailSpriteId, GetSpriteX(playerSpriteId),GetSpriteY(playerSpriteId))
		SetSpriteAngle(tailSpriteId, ATanFull(GetSpriteX(tailSpriteId) - GetSpriteX(clickPointer), GetSpriteY(tailSpriteId) - GetSpriteY(clickPointer)))
		SetSpriteSize(tailSpriteId, 10, GetSpriteDistance(playerSpriteId, clickPointer))
        PlayTweenSprite(tweenId,playerSpriteId, 0)
		i as integer
		for i = 1 to MAX_ENEMIES
			rng as integer
			rng = Random(0,1)
			StopTweenSprite(tweensId[i], enemiesId[i])
			PlayTweenSprite(tweensId[i], enemiesId[i], Random(0,3))
			MoveEnemy(tweensId[i], enemiesId[i])
			UpdateTweenSprite(tweensId[i], enemiesId[i], Random(0,3))
		next i
		for i = 1 to MAX_ENEMIES
			
		next i
    endif
    
	if GetSpriteColorAlpha(tailSpriteId) > 0 
		SetSpriteColorAlpha(tailSpriteId, GetSpriteColorAlpha(tailSpriteId) - 1)
	endif
	
	Gosub _benchMarking
	
    UpdateAllTweens(GetFrameTime())
    //Print(ScreenFPS())
    Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpriteOffset(sprId, 0,0)
	SetSpritePositionByOffset(sprId, Random2(0, w), Random2(0, h))
endfunction

function MoveEnemy(tid, enemyId)
	SetTweenSpriteX(tid,GetSpriteX(enemyId),GetSpriteX(clickPointer),TweenSmooth2())
	SetTweenSpriteY(tid,GetSpriteY(enemyId),GetSpriteY(clickPointer),TweenSmooth2())
endfunction

_benchMarking:
	// show statistics
	Print ( "Drawing set up time      = " + str ( GetDrawingSetupTime ( ) ) )
	Print ( "Drawing time             = " + str ( GetDrawingTime ( ) ) )
	Print ( "Sprites drawn            = " + str ( GetManagedSpriteDrawnCount ( ) ) )
	Print ( "Particles drawn          = " + str ( GetParticleDrawnQuadCount ( ) ) )
	Print ( "Frame rate               = " + str ( screenFPS ( ) ) )

// build 107 additions
	Print ( "Get pixels drawn         = " + str ( GetPixelsDrawn ( ) ) )
	Print ( "Get managed sprite calls = " + str ( GetManagedSpriteDrawCalls ( ) ) )
return

+ Code Snippet

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround" )
SetWindowSize(768, 1024, 0)
SetDisplayAspect(768.0/1024)

// set display properties
SetVirtualResolution( 768.0 , 1024  ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

#constant MAX_ENEMIES = 5

global tweenId as integer
global playerSpriteId as integer

global clickPointer as integer

global tailSpriteId as integer
global tailImageId as integer
global spriteAngle as float

global enemySpriteId as integer
global spawner as integer

global spawned as integer = 0	

global enemiesId as integer[]
global tweensId as integer[]

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId, 25, 25)
SetSpriteColor(playerSpriteId, 0, 255, 255, 255)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.2)

clickPointer = CreateSprite(0)
SetSpriteSize(clickPointer, 25, 25)
//SetSpriteOffset(clickPointer, 0, 0)

tailSpriteId = CreateSprite(0)
SetSpriteSize(tailSpriteId, 10, 10)
SetSpriteOffset(tailSpriteId, 0, 0)

spawner = CreateSpawner()

do	
	enemy as integer
	enemyTweenId as integer
	while spawned <= MAX_ENEMIES
		//Refill the enemies	
		enemy = CreateSprite(0)
		enemyTweenId = CreateTweenSprite(5.5)
		enemiesId.insert(enemy)
		tweensId.insert(enemyTweenId)
		MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
		SetSpritePositionByOffset(enemy, GetSpriteX(spawner), GetSpriteY(spawner))
		enemySize as integer
		enemySize = Random(10,50)
		SetSpriteSize(enemy, enemySize, enemySize)
		SetSpriteColor(enemy, Random(0,255), Random(0,255), Random(0,255), 255)
		PlayTweenSprite(enemyTweenId, enemy, Random(0,3))
		inc spawned
	endwhile
	
    if GetPointerPressed() = 1
		StopTweenSprite(tweenId, playerSpriteId)
		SetSpritePosition(clickPointer, GetPointerX(), GetPointerY())
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
		SetSpriteColor(tailSpriteId, Random(0,255), Random(0,255), Random(0,255), 100)
		SetSpritePosition(tailSpriteId, GetSpriteX(playerSpriteId),GetSpriteY(playerSpriteId))
		SetSpriteAngle(tailSpriteId, ATanFull(GetSpriteX(tailSpriteId) - GetSpriteX(clickPointer), GetSpriteY(tailSpriteId) - GetSpriteY(clickPointer)))
		SetSpriteSize(tailSpriteId, 10, GetSpriteDistance(playerSpriteId, clickPointer))
        PlayTweenSprite(tweenId,playerSpriteId, 0)
		i as integer
		for i = 1 to MAX_ENEMIES
			rng as integer
			rng = Random(0,1)
			StopTweenSprite(tweensId[i], enemiesId[i])
			PlayTweenSprite(tweensId[i], enemiesId[i], Random(0,3))
			MoveEnemy(tweensId[i], enemiesId[i])
			UpdateTweenSprite(tweensId[i], enemiesId[i], Random(0,3))
		next i
		for i = 1 to MAX_ENEMIES
			
		next i
    endif
    
	if GetSpriteColorAlpha(tailSpriteId) > 0 
		SetSpriteColorAlpha(tailSpriteId, GetSpriteColorAlpha(tailSpriteId) - 1)
	endif
	
	Gosub _benchMarking
	
    UpdateAllTweens(GetFrameTime())
    //Print(ScreenFPS())
    Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpriteOffset(sprId, 0,0)
	SetSpritePositionByOffset(sprId, Random2(0, w), Random2(0, h))
endfunction

function MoveEnemy(tid, enemyId)
	SetTweenSpriteX(tid,GetSpriteX(enemyId),GetSpriteX(clickPointer),TweenSmooth2())
	SetTweenSpriteY(tid,GetSpriteY(enemyId),GetSpriteY(clickPointer),TweenSmooth2())
endfunction

_benchMarking:
	// show statistics
	Print ( "Drawing set up time      = " + str ( GetDrawingSetupTime ( ) ) )
	Print ( "Drawing time             = " + str ( GetDrawingTime ( ) ) )
	Print ( "Sprites drawn            = " + str ( GetManagedSpriteDrawnCount ( ) ) )
	Print ( "Particles drawn          = " + str ( GetParticleDrawnQuadCount ( ) ) )
	Print ( "Frame rate               = " + str ( screenFPS ( ) ) )

    // build 107 additions
	Print ( "Get pixels drawn         = " + str ( GetPixelsDrawn ( ) ) )
	Print ( "Get managed sprite calls = " + str ( GetManagedSpriteDrawCalls ( ) ) )
return

Back to top

Profile PM Email Website

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 20th Dec 2017 22:38

Link

Amend last commit

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround" )
SetWindowSize(768, 1024, 0)
SetDisplayAspect(768.0/1024)

// set display properties
SetVirtualResolution( 768.0 , 1024  ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

#constant MAX_ENEMIES = 5

global tweenId as integer
global playerSpriteId as integer

global clickPointer as integer

global tailSpriteId as integer
global tailImageId as integer
global spriteAngle as float

global enemySpriteId as integer
global spawner as integer

global spawned as integer = 0

global enemiesId as integer[]
global tweensId as integer[]

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId, 25, 25)
SetSpriteColor(playerSpriteId, 0, 255, 255, 255)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.2)

clickPointer = CreateSprite(0)
SetSpriteSize(clickPointer, 25, 25)
//SetSpriteOffset(clickPointer, 0, 0)

tailSpriteId = CreateSprite(0)
SetSpriteSize(tailSpriteId, 10, 10)
SetSpriteOffset(tailSpriteId, 0, 0)

spawner = CreateSpawner()

do	
	enemy as integer
	enemyTweenId as integer
	while spawned <= MAX_ENEMIES
		//Refill the enemies	
		enemy = CreateSprite(0)
		enemyTweenId = CreateTweenSprite(5.5)
		enemiesId.insert(enemy)
		tweensId.insert(enemyTweenId)
		MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
		SetSpritePositionByOffset(enemy, GetSpriteX(spawner), GetSpriteY(spawner))
		enemySize as integer
		enemySize = Random(10,50)
		SetSpriteSize(enemy, enemySize, enemySize)
		SetSpriteColor(enemy, Random(0,255), Random(0,255), Random(0,255), 255)
		PlayTweenSprite(enemyTweenId, enemy, Random(0,3))
		inc spawned
	endwhile
	
    if GetPointerPressed() = 1
		StopTweenSprite(tweenId, playerSpriteId)
		SetSpritePosition(clickPointer, GetPointerX(), GetPointerY())
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
		SetSpriteColor(tailSpriteId, Random(0,255), Random(0,255), Random(0,255), 100)
		SetSpritePosition(tailSpriteId, GetSpriteX(playerSpriteId),GetSpriteY(playerSpriteId))
		SetSpriteAngle(tailSpriteId, ATanFull(GetSpriteX(tailSpriteId) - GetSpriteX(clickPointer), GetSpriteY(tailSpriteId) - GetSpriteY(clickPointer)))
		SetSpriteSize(tailSpriteId, 10, GetSpriteDistance(playerSpriteId, clickPointer))
        PlayTweenSprite(tweenId,playerSpriteId, 0)
		i as integer
		for i = 1 to MAX_ENEMIES
			rng as integer
			rng = Random(0,1)
			StopTweenSprite(tweensId[i], enemiesId[i])
			PlayTweenSprite(tweensId[i], enemiesId[i], Random(0,3))
			MoveEnemy(tweensId[i], enemiesId[i])
			UpdateTweenSprite(tweensId[i], enemiesId[i], Random(0,3))
		next i
    endif
    
	if GetSpriteColorAlpha(tailSpriteId) > 0 
		SetSpriteColorAlpha(tailSpriteId, GetSpriteColorAlpha(tailSpriteId) - 1)
	endif
	
	Gosub _benchMarking
	
    UpdateAllTweens(GetFrameTime())
    //Print(ScreenFPS())
    Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpriteOffset(sprId, 0,0)
	SetSpritePositionByOffset(sprId, Random2(0, w), Random2(0, h))
endfunction

function MoveEnemy(tid, enemyId)
	SetTweenSpriteX(tid,GetSpriteX(enemyId),GetSpriteX(clickPointer),TweenSmooth2())
	SetTweenSpriteY(tid,GetSpriteY(enemyId),GetSpriteY(clickPointer),TweenSmooth2())
endfunction

_benchMarking:
	// show statistics
	Print ( "Drawing set up time      = " + str ( GetDrawingSetupTime ( ) ) )
	Print ( "Drawing time             = " + str ( GetDrawingTime ( ) ) )
	Print ( "Sprites drawn            = " + str ( GetManagedSpriteDrawnCount ( ) ) )
	Print ( "Particles drawn          = " + str ( GetParticleDrawnQuadCount ( ) ) )
	Print ( "Frame rate               = " + str ( screenFPS ( ) ) )

// build 107 additions
	Print ( "Get pixels drawn         = " + str ( GetPixelsDrawn ( ) ) )
	Print ( "Get managed sprite calls = " + str ( GetManagedSpriteDrawCalls ( ) ) )
return

+ Code Snippet

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround" )
SetWindowSize(768, 1024, 0)
SetDisplayAspect(768.0/1024)

// set display properties
SetVirtualResolution( 768.0 , 1024  ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#option_explicit

#constant MAX_ENEMIES = 5

global tweenId as integer
global playerSpriteId as integer

global clickPointer as integer

global tailSpriteId as integer
global tailImageId as integer
global spriteAngle as float

global enemySpriteId as integer
global spawner as integer

global spawned as integer = 0	

global enemiesId as integer[]
global tweensId as integer[]

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId, 25, 25)
SetSpriteColor(playerSpriteId, 0, 255, 255, 255)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.2)

clickPointer = CreateSprite(0)
SetSpriteSize(clickPointer, 25, 25)
//SetSpriteOffset(clickPointer, 0, 0)

tailSpriteId = CreateSprite(0)
SetSpriteSize(tailSpriteId, 10, 10)
SetSpriteOffset(tailSpriteId, 0, 0)

spawner = CreateSpawner()

do	
	enemy as integer
	enemyTweenId as integer
	while spawned <= MAX_ENEMIES
		//Refill the enemies	
		enemy = CreateSprite(0)
		enemyTweenId = CreateTweenSprite(5.5)
		enemiesId.insert(enemy)
		tweensId.insert(enemyTweenId)
		MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
		SetSpritePositionByOffset(enemy, GetSpriteX(spawner), GetSpriteY(spawner))
		enemySize as integer
		enemySize = Random(10,50)
		SetSpriteSize(enemy, enemySize, enemySize)
		SetSpriteColor(enemy, Random(0,255), Random(0,255), Random(0,255), 255)
		PlayTweenSprite(enemyTweenId, enemy, Random(0,3))
		inc spawned
	endwhile
	
    if GetPointerPressed() = 1
		StopTweenSprite(tweenId, playerSpriteId)
		SetSpritePosition(clickPointer, GetPointerX(), GetPointerY())
		SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
		SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
		SetSpriteColor(tailSpriteId, Random(0,255), Random(0,255), Random(0,255), 100)
		SetSpritePosition(tailSpriteId, GetSpriteX(playerSpriteId),GetSpriteY(playerSpriteId))
		SetSpriteAngle(tailSpriteId, ATanFull(GetSpriteX(tailSpriteId) - GetSpriteX(clickPointer), GetSpriteY(tailSpriteId) - GetSpriteY(clickPointer)))
		SetSpriteSize(tailSpriteId, 10, GetSpriteDistance(playerSpriteId, clickPointer))
        PlayTweenSprite(tweenId,playerSpriteId, 0)
		i as integer
		for i = 1 to MAX_ENEMIES
			rng as integer
			rng = Random(0,1)
			StopTweenSprite(tweensId[i], enemiesId[i])
			PlayTweenSprite(tweensId[i], enemiesId[i], Random(0,3))
			MoveEnemy(tweensId[i], enemiesId[i])
			UpdateTweenSprite(tweensId[i], enemiesId[i], Random(0,3))
		next i
    endif
    
	if GetSpriteColorAlpha(tailSpriteId) > 0 
		SetSpriteColorAlpha(tailSpriteId, GetSpriteColorAlpha(tailSpriteId) - 1)
	endif
	
	Gosub _benchMarking
	
    UpdateAllTweens(GetFrameTime())
    //Print(ScreenFPS())
    Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpriteOffset(sprId, 0,0)
	SetSpritePositionByOffset(sprId, Random2(0, w), Random2(0, h))
endfunction

function MoveEnemy(tid, enemyId)
	SetTweenSpriteX(tid,GetSpriteX(enemyId),GetSpriteX(clickPointer),TweenSmooth2())
	SetTweenSpriteY(tid,GetSpriteY(enemyId),GetSpriteY(clickPointer),TweenSmooth2())
endfunction

_benchMarking:
	// show statistics
	Print ( "Drawing set up time      = " + str ( GetDrawingSetupTime ( ) ) )
	Print ( "Drawing time             = " + str ( GetDrawingTime ( ) ) )
	Print ( "Sprites drawn            = " + str ( GetManagedSpriteDrawnCount ( ) ) )
	Print ( "Particles drawn          = " + str ( GetParticleDrawnQuadCount ( ) ) )
	Print ( "Frame rate               = " + str ( screenFPS ( ) ) )

    // build 107 additions
	Print ( "Get pixels drawn         = " + str ( GetPixelsDrawn ( ) ) )
	Print ( "Get managed sprite calls = " + str ( GetManagedSpriteDrawCalls ( ) ) )
return

Back to top

Profile PM Email Website

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 20th Dec 2017 23:00

Link

WTB "edit" button

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 21st Dec 2017 09:50

Link

Looks good - keep going..

Back to top

Profile

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 22nd Dec 2017 20:28

Link

Playing with the Tween commands was really funny..

Added a simple Machine State to restart the game, Collisions and enemies respawn, plus a few minor changes.

The case study is done for me, normally can't do more than 14 kills, so it's enough rippy

Enjoy it!

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround" )
SetWindowSize(768, 1024, 0)
SetDisplayAspect(768.0/1024)

// set display properties
SetVirtualResolution( 768.0 , 1024  )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 60, 0 )
SetScissor( 0,0,0,0 ) 
UseNewDefaultFonts( 1 )

#option_explicit

#constant MAX_ENEMIES = 10

Type Enemy
	size		as integer
	spriteId 	as integer
	tweenId		as integer
	particleId	as integer
EndType

#constant GAME_STARTS 	1
#constant GAME_STARTED 	2

global kills as integer

global tweenId as integer
global playerSpriteId as integer

global clickPointer as integer

global tailSpriteId as integer
global tailImageId as integer
global spriteAngle as float

global spawner as integer
global spawned as integer = 0

global enemies as Enemy[MAX_ENEMIES]

global gameState as integer = GAME_STARTS

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId, 25, 25)
SetSpriteColor(playerSpriteId, 0, 255, 255, 255)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.2)

clickPointer = CreateSprite(0)
SetSpriteSize(clickPointer, 25, 25)
//SetSpriteOffset(clickPointer, 0, 0)
SetSpriteVisible(clickPointer, 0)

tailSpriteId = CreateSprite(0)
SetSpriteSize(tailSpriteId, 10, 10)
SetSpriteOffset(tailSpriteId, 0, 0)
spawner = CreateSpawner()
do
	select gameState:
		case GAME_STARTS:
			kills = 0
			gameState = GAME_STARTED
		endcase
		case GAME_STARTED:
			i as integer
			for i = 1 to MAX_ENEMIES
				
				// Refill the enemies
				if enemies[i].spriteId = 0
					enemies[i].spriteId = CreateSprite(0)
					enemies[i].tweenId = CreateTweenSprite(5.5)
					MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
					SetSpritePositionByOffset(enemies[i].spriteId, GetSpriteX(spawner), GetSpriteY(spawner))
					enemies[i].size = Random(10,50)
					SetSpriteSize(enemies[i].spriteId, enemies[i].size, enemies[i].size)
					SetSpriteColor(enemies[i].spriteId, Random(0,255), Random(0,255), Random(0,255), 255)
					PlayTweenSprite(enemies[i].tweenId, enemies[i].spriteId, Random(0,3))
				endif
			next i
			
			if GetPointerPressed()
					
				// Move my player
				StopTweenSprite(tweenId, playerSpriteId)
				SetSpritePosition(clickPointer, GetPointerX(), GetPointerY())
				SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
				SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
				SetSpriteColor(tailSpriteId, Random(0,255), Random(0,255), Random(0,255), 100)
				SetSpritePosition(tailSpriteId, GetSpriteX(playerSpriteId),GetSpriteY(playerSpriteId))
				SetSpriteAngle(tailSpriteId, ATanFull(GetSpriteX(tailSpriteId) - GetSpriteX(clickPointer), GetSpriteY(tailSpriteId) - GetSpriteY(clickPointer)))
				SetSpriteSize(tailSpriteId, 10, GetSpriteDistance(playerSpriteId, clickPointer))
				PlayTweenSprite(tweenId,playerSpriteId, 0)
				
				// Move the enemies tweening to the player
				for i = 1 to MAX_ENEMIES
					StopTweenSprite(enemies[i].tweenId, enemies[i].spriteId)
					PlayTweenSprite(enemies[i].tweenId, enemies[i].spriteId, Random(0,3))
					MoveEnemy(enemies[i].tweenId, enemies[i].spriteId)
					UpdateTweenSprite(enemies[i].tweenId, enemies[i].spriteId, Random(0,3))
					
					// Enemy hits the player
					if GetSpriteCollision(enemies[i].spriteId, playerSpriteId)
						Message("You're died. Resurrect or Go Town? :P")
						gameState = GAME_STARTS
						exit
					endif
					
					// We should be able to kill more than an enemy in a row ^^
					if GetSpriteCollision(tailSpriteId, enemies[i].spriteId) || GetSpriteCollision(playerSpriteId, enemies[i].spriteId)
						enemies[i] = KillEnemy(enemies[i])
					endif	
				next i
			endif
			
			if GetSpriteColorAlpha(tailSpriteId) > 0 
				SetSpriteColorAlpha(tailSpriteId, GetSpriteColorAlpha(tailSpriteId) - 1)
			endif
			
			UpdateAllTweens(GetFrameTime())
			
			Print("Something like enemies killed: " + str(kills))
		endcase
	endselect 
	Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpritePositionByOffset(sprId, Random2(0, w), Random2(0, h))
endfunction

function MoveEnemy(tid, enemyId)
	SetTweenSpriteX(tid,GetSpriteX(enemyId),GetSpriteX(clickPointer),TweenSmooth2())
	SetTweenSpriteY(tid,GetSpriteY(enemyId),GetSpriteY(clickPointer),TweenSmooth2())
endfunction

function KillEnemy(enemy as Enemy)
	DeleteSprite(enemy.spriteId)
	DeleteTween(enemy.tweenId)
	enemy.spriteId = 0
	enemy.tweenId = 0
	inc kills
endfunction enemy

+ Code Snippet

// Project: BattleGround 
// Created: 2017-12-18

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "BattleGround" )
SetWindowSize(768, 1024, 0)
SetDisplayAspect(768.0/1024)

// set display properties
SetVirtualResolution( 768.0 , 1024  )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 60, 0 )
SetScissor( 0,0,0,0 ) 
UseNewDefaultFonts( 1 ) 

#option_explicit

#constant MAX_ENEMIES = 10

Type Enemy
	size		as integer
	spriteId 	as integer
	tweenId		as integer
	particleId	as integer
EndType

#constant GAME_STARTS 	1
#constant GAME_STARTED 	2

global kills as integer

global tweenId as integer
global playerSpriteId as integer

global clickPointer as integer

global tailSpriteId as integer
global tailImageId as integer
global spriteAngle as float

global spawner as integer
global spawned as integer = 0

global enemies as Enemy[MAX_ENEMIES]

global gameState as integer = GAME_STARTS

playerSpriteId = CreateSprite(0)
SetSpriteSize(playerSpriteId, 25, 25)
SetSpriteColor(playerSpriteId, 0, 255, 255, 255)
SetSpritePosition(playerSpriteId,25,25)
tweenId = CreateTweenSprite(0.2)

clickPointer = CreateSprite(0)
SetSpriteSize(clickPointer, 25, 25)
//SetSpriteOffset(clickPointer, 0, 0)
SetSpriteVisible(clickPointer, 0)

tailSpriteId = CreateSprite(0)
SetSpriteSize(tailSpriteId, 10, 10)
SetSpriteOffset(tailSpriteId, 0, 0)
spawner = CreateSpawner()
do
	select gameState:
		case GAME_STARTS:
			kills = 0
			gameState = GAME_STARTED
		endcase
		case GAME_STARTED:
			i as integer
			for i = 1 to MAX_ENEMIES
				
				// Refill the enemies
				if enemies[i].spriteId = 0
					enemies[i].spriteId = CreateSprite(0)
					enemies[i].tweenId = CreateTweenSprite(5.5)
					MoveSpawner(spawner, GetDeviceWidth(), GetDeviceHeight())
					SetSpritePositionByOffset(enemies[i].spriteId, GetSpriteX(spawner), GetSpriteY(spawner))
					enemies[i].size = Random(10,50)
					SetSpriteSize(enemies[i].spriteId, enemies[i].size, enemies[i].size)
					SetSpriteColor(enemies[i].spriteId, Random(0,255), Random(0,255), Random(0,255), 255)
					PlayTweenSprite(enemies[i].tweenId, enemies[i].spriteId, Random(0,3))
				endif
			next i
			
			if GetPointerPressed()
					
				// Move my player
				StopTweenSprite(tweenId, playerSpriteId)
				SetSpritePosition(clickPointer, GetPointerX(), GetPointerY())
				SetTweenSpriteX(tweenId,GetSpriteX(playerSpriteId),GetPointerX(),TweenSmooth1())
				SetTweenSpriteY(tweenId,GetSpriteY(playerSpriteId),GetPointerY(),TweenSmooth1())
				SetSpriteColor(tailSpriteId, Random(0,255), Random(0,255), Random(0,255), 100)
				SetSpritePosition(tailSpriteId, GetSpriteX(playerSpriteId),GetSpriteY(playerSpriteId))
				SetSpriteAngle(tailSpriteId, ATanFull(GetSpriteX(tailSpriteId) - GetSpriteX(clickPointer), GetSpriteY(tailSpriteId) - GetSpriteY(clickPointer)))
				SetSpriteSize(tailSpriteId, 10, GetSpriteDistance(playerSpriteId, clickPointer))
				PlayTweenSprite(tweenId,playerSpriteId, 0)
				
				// Move the enemies tweening to the player
				for i = 1 to MAX_ENEMIES
					StopTweenSprite(enemies[i].tweenId, enemies[i].spriteId)
					PlayTweenSprite(enemies[i].tweenId, enemies[i].spriteId, Random(0,3))
					MoveEnemy(enemies[i].tweenId, enemies[i].spriteId)
					UpdateTweenSprite(enemies[i].tweenId, enemies[i].spriteId, Random(0,3))
					
					// Enemy hits the player
					if GetSpriteCollision(enemies[i].spriteId, playerSpriteId)
						Message("You're died. Resurrect or Go Town? :P")
						gameState = GAME_STARTS
						exit
					endif
					
					// We should be able to kill more than an enemy in a row ^^
					if GetSpriteCollision(tailSpriteId, enemies[i].spriteId) || GetSpriteCollision(playerSpriteId, enemies[i].spriteId)
						enemies[i] = KillEnemy(enemies[i])
					endif	
				next i
			endif
			
			if GetSpriteColorAlpha(tailSpriteId) > 0 
				SetSpriteColorAlpha(tailSpriteId, GetSpriteColorAlpha(tailSpriteId) - 1)
			endif
			
			UpdateAllTweens(GetFrameTime())
			
			Print("Something like enemies killed: " + str(kills))
		endcase
	endselect 
	Sync()
loop

Function CreateSpawner()
	sprId as integer
	sprId = CreateSprite(0)
	SetSpriteVisible(sprId, 0)
EndFunction sprId

function MoveSpawner(sprId, w, h)
	SetSpritePositionByOffset(sprId, Random2(0, w), Random2(0, h))
endfunction

function MoveEnemy(tid, enemyId)
	SetTweenSpriteX(tid,GetSpriteX(enemyId),GetSpriteX(clickPointer),TweenSmooth2())
	SetTweenSpriteY(tid,GetSpriteY(enemyId),GetSpriteY(clickPointer),TweenSmooth2())
endfunction


function KillEnemy(enemy as Enemy)
	DeleteSprite(enemy.spriteId)
	DeleteTween(enemy.tweenId)
	enemy.spriteId = 0
	enemy.tweenId = 0
	inc kills
endfunction enemy

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 22nd Dec 2017 21:56 Edited at: 22nd Dec 2017 22:01

Link

Looking good.

May I recommend

- not to have so many enemies running after you for the first level- remove the message that pops up - but rather a "bad luck!... Re-morphing" words scrolling across the screen

- clicking / playing in playfield moves the player (this can get a bit tideous) , perhaps move the player where the player is touching screen or moving mouse) may feel better

- no fire at yet (tap of the screen/mouse button)

- if going for tablet - then perhaps use the getaccelx, getaccely, getaccelz to move the player in accordance to the positioning of the phone in the air - (just an idea that im implementing) maybe good funky feel for customers

Keep going

Back to top

Profile

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 6th Mar 2018 21:18

Link

In fact it was just an example using the Tweens functions but would nice to add different AI variants.

Back to top

Profile PM Email Website

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 13th May 2018 17:20

Link

I would like to finish this little game

http://www.nyan.cat/pirate

Back to top

Profile PM Email Website

Rick Nasher

7

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 27th May 2018 14:03

Link

@nonom:

This reminds me of AGAR.IO.
More than a decade ago I made something like that(non-multiplayer though).
If only I would have published - but: cudda-woulda-shoulda's )

Back to top

Profile PM Email Website

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 28th May 2018 15:12

Link

Quote: "@nonom:

This reminds me of AGAR.IO.
More than a decade ago I made something like that(non-multiplayer though).
If only I would have published - but: cudda-woulda-shoulda's ) "

The AI should be easy, and sadly I have some backlog but I would finish something playable. An AgarIO game like is not a bad Idea

playing with sprite sizes is funny. I'm my experience for this game the tween effects are cool for the last frames, but the "tween chaining" is a bit rude for something like this. A lerp will be enough in the most cases.

What do you think about doing a multiplayer version? It's much like the @MikeMax https://forum.thegamecreators.com/thread/219676 example

http://www.nyan.cat/pirate

Back to top

Profile PM Email Website

Rick Nasher

7

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 1st Jun 2018 18:32

Link

Should be great fun. I'm still stuck with the network side of things though, as my burn-out symptoms returned, giving me headaches and dizziness, so can't really concentrate for too long.
(actually, I shouldn't even be here

)

Currently able to setup a (W)LAN host and client using the interface and should also work fine over WAN(internet) when ports are open.
Now need to cater for network monitoring on client side.

Hate this burn-out stuff slowing me down..

Back to top

Profile PM Email Website

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 1st Jun 2018 18:39 Edited at: 1st Jun 2018 18:40

Link

I understand perfectly, It was one of the first script I did , and It could to be improved a lot before porting to MP

I meant trying to do it myself

@MikeMax did the hard work

http://www.nyan.cat/pirate

Back to top

Profile PM Email Website

nonom

7

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 1st Jun 2018 18:46

Link

Maybe the tween effects isn't the perfect way to do the AI part because we need Prediction/Reconciliation/Interpolation, but I could give a try anyways

Also the AI needs to be more peaceful

http://www.nyan.cat/pirate

Back to top

Profile PM Email Website

Rick Nasher

7

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 1st Jun 2018 19:22

Link

Quote: "Prediction/Reconciliation/Interpolation"

That indeed will be the real challenge.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers AppGameKit Corner / [AGK2] Tween BattleGround