TheGameCreators - CodeBase - 2d Physics motion game

Return to the CodeBase listing

Category: Games

Version: 1.0

Information

Uploaded: 11th Apr 2018 06:58

Modified: 11th Apr 2018 06:58

Author: fubarpk

Summary

Demonstrates the use of physics in a fun game without media

Full Description

Demonstrates the use of physics in a fun game without media

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem Bubble Madness

#constant xMax=1024

#constant yMax=768

#constant Bg=1000

gravity=50

global ang#=0

counter=0

rem balls from 1 to 20

rem triangles from 21 to 30

rem text sprites from 100 to string length

rem rotators from 31 to 35

SetWindowTitle( "Bubble Madness" )

SetWindowSize( 1024, 768, 0 )

setVirtualResolution(1024,768)

SetOrientationAllowed( 0, 0, 1, 1 )

SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

type mySprite

id as integer       :rem id of sprite

PointX as integer   :rem makes it move

centreX as integer  :rem centre of sine wave x axis

yPosition as integer:rem yPosition on y-axis

amplitude as integer:rem the heaight of the wave

speedX# as float    :rem how fast sine travels on x-axis

WaveWidth as integer:rem how wide the sinewave is

frequency# as float :rem speed sprite should move up and down (0.0 to 6.0)

img as integer      :rem holds the image number for the sprite

endtype

type ball

id as integer

x as float

y as float

endtype

//SetPhysicsDebugOn()

SetPhysicsScale( 0.1)

SetPhysicsGravity(0,gravity)

SetPhysicsWallTop(0)

SetPhysicsWallBottom(0)

global dim balls[20] as ball

SetClearColor(0,0,0)

img=createEllipse()

setupballs(img)

text$=invertText("FUBARPK presents Bubble Madness"):strlen=len(text$)

dim spr[strlen] as mySprite

for num=1 to strlen

spr[num].id=num+100:spr[num].img=num

spr[num].centreX=xMax/2

spr[num].yPosition=yMax/2

spr[num].amplitude=20

spr[num].speedX#=.51

spr[num].WaveWidth=xMax

spr[num].frequency#=1.4

spr[num].PointX=90-(num*3)

createTextImage(Mid(text$,num,1),spr[num].img)

createSprite(spr[num].id,spr[num].img)

SetSpriteColor(spr[num].id, Random(1,255),Random(1,255), Random(1,255), 255 )

SetSpriteTransparency(spr[num].id,1)

SetSpritePhysicsOn(spr[num].id,1)

next num

placeRotators()

high=0:score=0

myString$="Bubble Madness"

CreateText(1,myString$)

SetTextSize(1,50)

SetTextPosition(1,300,0)

myHigh$="High :"+str(high)

CreateText(2,myHigh$)

SetTextSize(2,40)

SetTextPosition(2,800,0)

myScore$="Score:"+str(score)

CreateText(3,myScore$)

SetTextSize(3,40)

SetTextPosition(3,800,40)

/*bg=500

createsprite(Bg,0)

setspritesize(Bg,800 ,600)

SetSpriteColor(Bg,0,0,0,65)

EnableClearColor(0)

//ResetTimer()

//time#=timer()

flag=1

intro(strlen)

deleteTextSprites(strlen)

getReady()

img2=createTriangle()

setupBase(img2)

sync()

exitBtn=1

AddVirtualButton(exitBtn,40,30,60) //make a button

SetVirtualButtonText( exitBtn, "Exit" ) //set number to image

SetVirtualButtonColor( exitBtn,200,200,200)  //random colour

//left side boundary

createSprite(36,0)

SetSpriteSize(36,10,yMax)

SetSpriteColor(36,255,255,255,255)

SetSpriteDepth ( 36, 0 )

SetSpritePositionByOffset(36,5,yMax/2)

SetSpritePhysicsOn(36,1)

SetSpriteGroup(36,3)

//right side boundary

createSprite(37,0)

SetSpriteSize(37,10,yMax)

SetSpriteColor(37,255,255,255,255)

SetSpriteDepth ( 37, 0 )

SetSpritePositionByOffset(37,xMax-5,yMax/2)

SetSpritePhysicsOn(37,1)

SetSpriteGroup(37,3)

if GetSpriteExists(Bg) then DeleteSprite(Bg)

createsprite(Bg,0)

setspritesize(Bg,xMax ,yMax)

SetSpriteColor(Bg,0,0,0,5)

EnableClearColor(0) ///Adds blur effect

render()

ClearScreen()

gravity=4

SetPhysicsGravity(0,gravity)

ResetTimer()

time#=timer()

repeat

DrawSprite (Bg)

for num=1 to 20

if GetSpriteYByOffset(balls[num].id) > yMax

balls[num].y =-150

balls[num].x=random(100,xMax)

SetSpriteColor( balls[num].id, Random(1,255),Random(1,255), Random(1,255), 255 )

SetSpriteVisible(balls[num].id,1)

SetSpritePositionByOffset(balls[num].id,balls[num].x,balls[num].y)

endif

for num2check=21 to 30

if GetSpriteExists(num2check)

if GetSpriteCollision(balls[num].id,num2check)

hit(balls[num].id,100,img)

hit(num2Check,200,img2)

inc counter

endif

next num2check

next num

ang#=ang#+.5

SetSpriteAngle( 31, ang# ) :rem centre rotator

SetSpriteAngle( 32, -ang# ):rem top left

SetSpriteAngle( 33, -ang# ):rem top right

SetSpriteAngle( 34, -ang# ):rem bottom Left

SetSpriteAngle( 35, -ang# ):rem bottom right

if ( GetPointerPressed ( ) = 1 )

hit = GetSpriteHitGroup( 1,ScreenToWorldX(GetPointerX()), ScreenToWorldY(GetPointerY()) )

endif

if hit<>0

//SetSpriteVisible(hit,0):

//Print( hit)

hit(hit,100,img)

score=score+(10*(11-counter)): myScore$="Score:"+str(score)

SetTextString( 3,myScore$)

hit=0

endif

if Timer()-time#>2

ResetTimer()

if GetTextExists(100) then DeleteText(100)

if gravity<50

inc gravity

SetPhysicsGravity(0,gravity)

endif

if counter>9

bonus=gravity*100

score=score+bonus: myScore$="Score:"+str(score)

SetTextString(3 ,myScore$)

if score>high then high=score

SetTextString( 3,myScore$) :bonus=0:counter=0:ResetTimer()

myHigh$="High :"+str(high):SetTextString( 2,myHigh$)

gameOver():setupballs(img):setupBase(img2)

score=0:gravity=4:SetPhysicsGravity(0,gravity)

getReady():myScore$="Score:0":SetTextString(3 ,myScore$)

ResetTimer()

endif

Sync()

until GetVirtualButtonPressed(exitBtn)=1

end

function createEllipse()

Render()

DrawEllipse(50,50,25,25,MakeColor(255,255,255),MakeColor(100,100,100),1)

Swap()

img = getimage(0,0,100,100)

sync()

endfunction img

function createTriangle()

createSprite(600,0)

SetSpriteSize(600,120,120)

SetSpriteColor(600,0,0,0,255)

DrawSprite(600)

ClearScreen()

Render()

x=50:xx=50 //draw filled triangle

for y = 0 to 50

DrawLine(x,y,xx,y,255,255,255)

dec x:inc xx

next y

Swap()

Render()

img = getimage(0,0,100,60)

SetImageTransparentColor( img,0,0,0 )

sync()

DeleteSprite(600)

endfunction img

function createTextImage (myString as string,imgNum as integer)

CreateSprite(bg,0)

SetSpriteSize(bg,150,150)

SetSpriteColor(bg,0,0,0,255)

clearscreen()

CreateText(100,myString)

SetTextSize(100,50)

SetTextPosition(100,0,0)

drawSprite(100)

//if myString <>

Render():If GetImageExists(imgNum) then DeleteImage(imgNum)

GetImage(imgNum,0,0,50,50):ClearScreen()

SetImageTransparentColor( imgNum,0,0,0 )

DrawSprite(bg)

ClearScreen()

DeleteText(100):deleteSprite(bg)

endfunction

function invertText(myString as string)

resultString as string

for num =len(myString) to 1 step -1

resultString=resultString+Mid(myString,num,1)

next num

endfunction resultString

function getReady()

myString$="Get Ready"

if GetTextExists(100) then DeleteText(100)

CreateText(100,myString$)

SetTextSize(100,50)

SetTextColor(100,0,200,0,255)

SetTextPosition(100,375,300)

endfunction

function gameOver()

myString$="GameOver"

if GetTextExists(100) then DeleteText(100)

CreateText(100,myString$)

SetTextSize(100,50)

SetTextColor(100,200,0,0,255)

SetTextPosition(100,375,300)

Sleep(20)

repeat

sync()

until GetPointerPressed() = 1

DeleteText(100)

endfunction

function setupBase(img as integer)

multiplier=0

for num =21 to 30

if GetSpriteExists(num) then DeleteSprite(num)

CreateSprite(num,img)

//SetSpriteSize(num,75,75)

SetSpriteColor(num,255,255,255,255)

SetSpriteTransparency(num,1)

SetSpriteShape( num,3 )

SetSpritePositionByOffset(num,(multiplier*100)+60,747)

SetSpritePhysicsOn(num,1)

SetSpriteGroup(num,2)

inc multiplier

next num

endfunction

function hit(hit as integer,multiplier as integer, img as integer)

DeleteParticles(hit+multiplier)

CreateParticles(hit+multiplier,100,100)

SetParticlesImage(hit+multiplier,img)

SetParticlesSize(hit+multiplier,16)

SetParticlesFrequency(hit+multiplier,25)

SetParticlesLife(hit+multiplier,2.5)

SetParticlesVelocityRange(hit+multiplier,1,10)

SetParticlesMax(hit+multiplier,25)

SetParticlesPosition(hit+multiplier,GetSpriteXByOffset(hit),GetSpriteYByOffset(hit))

AddParticlesColorKeyFrame(hit+multiplier,0,GetSpriteColorRed(hit),GetSpriteColorGreen(hit),GetSpriteColorBlue(hit),255)

if multiplier = 100

AddParticlesScaleKeyFrame( hit+multiplier,0,2 )

balls[hit].y =-150

balls[hit].x=random(100,GetDeviceWidth()-100)

SetSpriteColor( hit, Random(1,255),Random(1,255), Random(1,255), 255 )

SetSpriteVisible(hit,1)

SetSpritePositionByOffset(hit,balls[hit].x,balls[hit].y)

else

AddParticlesScaleKeyFrame( hit+multiplier,0,1 )

SetSpriteVisible(hit,0)

SetSpriteActive(hit,0)

DeleteSprite(hit)

endif

endfunction

function setupballs (img as integer)

for num =1 to 20

balls[num].id=num

if GetSpriteExists(num) then DeleteSprite(num)

CreateSprite(num,img)

SetSpriteColor(num, Random(1,255),Random(1,255), Random(1,255), 255 )

SetSpritePositionByOffset(num,random(100,xMax-100),-random(100,yMax/3))

SetSpriteShapeCircle(num,0,0,25)

SetSpritePhysicsOn(num,2)

SetSpritePhysicsRestitution(num,.1 )

SetSpriteGroup(num,1)

next num

endfunction

function intro(strlen as integer)

exitBtn=1

resetTimer()

delay#=Timer()

repeat

//if delay# > .05

for num = 1 to strlen

xWave=Sin(spr[num].PointX)*(spr[num].wavewidth/2)+spr[num].centreX

yWave=sin(xWave*spr[num].frequency#)*(spr[num].amplitude)+spr[num].yposition

SetSpritePosition(spr[num].id,xWave,yWave)

if spr[num].PointX >-90

spr[num].PointX = spr[num].PointX - spr[num].speedX#

if spr[num].amplitude<250 and flag=1

spr[num].amplitude=spr[num].amplitude+2

if spr[num].amplitude>=250 then flag=0

endif

if spr[num].amplitude >0 and flag=0

spr[num].amplitude=spr[num].amplitude-2

if spr[num].amplitude<=20 then flag=1

endif

else

spr[num].PointX = 90

endif

ang#=ang#+.05

SetSpriteAngle( 31, ang# ) :rem centre rotator

SetSpriteAngle( 32, -ang# ):rem top left

SetSpriteAngle( 33, -ang# ):rem top right

SetSpriteAngle( 34, -ang# ):rem bottom Left

SetSpriteAngle( 35, -ang# ):rem bottom right

next num

sync()

until Timer()-delay#>8

endfunction

function deleteTextSprites(strlen as integer)

for num = 1 to strlen

deleteSprite(num+100)

next num

endfunction

function placeRotators()

//rotating shape 1 (centre)

createSprite(31,0)

SetSpriteSize(31,250,10)

SetSpriteColor(31,255,255,255,255)

SetSpritePositionByOffset(31,xMax/2,yMax/2)

SetSpritePhysicsOn(31,1)

SetSpriteGroup(31,3)

//rotating shape 2 (top left)

createSprite(32,0)

SetSpriteSize(32,100,10)

SetSpriteColor(32,255,255,255,255)

SetSpritePositionByOffset(32,xMax/4,yMax/4)

SetSpritePhysicsOn(32,1)

SetSpriteGroup(32,3)

//rotating shape (top right)

createSprite(33,0)

SetSpriteSize(33,100,10)

SetSpriteColor(33,255,255,255,255)

SetSpritePositionByOffset(33,(xMax/4)*3,yMax/4)

SetSpritePhysicsOn(33,1)

SetSpriteGroup(33,3)

//rotating shape (bottom left)

createSprite(34,0)

SetSpriteSize(34,100,10)

SetSpriteColor(34,255,255,255,255)

SetSpritePositionByOffset(34,xMax/4,(yMax/4)*3)

SetSpritePhysicsOn(34,1)

SetSpriteGroup(34,3)

//rotating shape (top right)

createSprite(35,0)

SetSpriteSize(35,100,10)

SetSpriteColor(35,255,255,255,255)

SetSpritePositionByOffset(35,(xMax/4)*3,(yMax/4)*3)

SetSpritePhysicsOn(35,1)

SetSpriteGroup(35,3)

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	fubarpk
CodeBase Entries:	12

CodeBase - 2d Physics motion game

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments