TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Graphics

Version: 2

Information

Uploaded: 29th Nov 2017 22:41

Modified: 2nd Dec 2017 12:18

Author: Mark Garrett

Summary

'Crazy Ball' bounces around the screen in an erratic manner. The sprites are made from images drawn on the screen.

Full Description

Simple 2D

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

// Project: Crazy Ball

// Created: 2017-11-23

// show all errors

SetErrorMode(2)

// set window properties

SetWindowTitle( "Crazy Ball" )

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( 0, 1) // 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

`-----------------------------------------------

`make a ball sprite  **************

color = MakeColor( 0, 127, 127 )

DrawEllipse( 50, 50,    50, 50, color, color, 1 )

GetImage( 1, 0, 0   , 100, 100 )

CreateSprite(1,1)

SetSpritePosition(1,500,500)

ClearScreen()

`********************

`make left border of screen-

color = MakeColor( 255, 255, 255 )   `(pure white)

DrawBox(0,0,10,768,color,color,color,color,1)

GetImage( 3, 0, 0   , 10, 768 )

CreateSprite(100,3)

SetSpritePosition(100,0,0)

setspritecolor(100,255,0,0,255)      `initialize sprite color with red

`********************

`make right border of screen from same image-

CreateSprite(101,3)

SetSpritePosition(101,1014,0)

setspritecolor(101,255,0,0,255)   `initialize sprite color with red

ClearScreen()

`**********************************

`make top border of screen-

DrawBox(0,0,1024,10,color,color,color,color,1)

GetImage( 4, 0, 0   , 1024, 10 )

CreateSprite(102,4)

SetSpritePosition(102,0,0)

setspritecolor(102,255,0,0,255)     `initialize sprite color with red

`make bottom border of screen with same image-

CreateSprite(103,4)

SetSpritePosition(103,0,758)

setspritecolor(103,255,0,0,255)     `initialize sprite color with red

`******************************************

`  Start the crazy ball moving

sync()

loopstart:

SetVSync(1)

if GetRawMouseLeftPressed() = 1 then end

gosub movesprite

gosub if_color_a_line

sync()

goto loopstart

movesprite:   `initiate first movement

ww:

sync()

if  GetRawMouseLeftPressed() = 1 then sleep(10000)

if firstime = 0

mult# = 2 : clr_cnt_100 = 0:clr_cnt_101= 0:clr_cnt_102= 0: clr_cnt_103= 0

move_x = random2(1,10): move_y = random2(1,10)

if random2(1,2) = 2 then move_x = move_x - (move_x *2)

if random2(1,2) = 2 then move_y = move_y - (move_y *2)

firstime = 1

endif

`SetSpritePosition( iSpriteIndex, fX, fY)

SetSpritePosition (1, (getspritex(1)+ move_x * mult#), (getspritey(1)+ move_y * mult#))

`--------------------------color the lines yellow-------------------------------------

`---------------------------and determine 'bounce off' direction-----------------

if GetSpriteCollision( 1, 100 ) = 1  `left_line **********************

setspritecolor(100,255,255,0,255): clr_cnt_100 = 10

move_x = move_x - (move_x *2)

if random2(1,2) = 2 then move_y = move_y - (move_y * 2)

gosub if_reset_y_val

return

endif

if GetSpriteCollision( 1, 101 ) = 1  `right_line ***********************

setspritecolor(101,255,255,0,255): clr_cnt_101 = 10

move_x = move_x - (move_x *2)

if random2(1,2) = 2 then move_y = move_y - (move_y * 2)

gosub if_reset_y_val

return

endif

if GetSpriteCollision( 1, 102 ) = 1  `top_line **************************

setspritecolor(102,255,255,0,255): clr_cnt_102 = 10

move_y = move_y - (move_y *2)

if random2(1,2) = 2 then move_x = move_x - (move_x * 2)

gosub  if_reset_x_val

return

endif

if GetSpriteCollision( 1, 103 ) = 1  `bottom_line *************************

setspritecolor(103,255,255,0,255): clr_cnt_103 = 10

move_y = move_y - (move_y *2)

if random2(1,2) = 2 then move_x = move_x - (move_x * 2)

gosub if_reset_x_val

return

endif

return

if_color_a_line:

if clr_cnt_100 > 0

dec clr_cnt_100

if clr_cnt_100 = 0 then setspritecolor(100,255,0,0,255) :return

endif

if clr_cnt_101 > 0

dec clr_cnt_101

if clr_cnt_101 = 0 then setspritecolor(101,255,0,0,255) :return

endif

if clr_cnt_102 > 0

dec clr_cnt_102

if clr_cnt_102 = 0 then setspritecolor(102,255,0,0,255) :return

endif

if clr_cnt_103 > 0

dec clr_cnt_103

if clr_cnt_103 = 0 then setspritecolor(103,255,0,0,255) :return

endif

return

`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

if_reset_x_val:

if random2(1,2) = 2

moove_x = random2(1,10)

if move_x < 1 then move_x =    - moove_x

if move_x > 0 then move_x =     moove_x

endif

return

if_reset_y_val:

if random2(1,2) = 2

moove_y = random2(1,10)

if move_y < 1 then move_y =   - moove_y

if move_y > 0 then move_y =    moove_y

endif

return

Download

Please login to download

Comments

No comments yet.

Author Name:	Mark Garrett
CodeBase Entries:	26

CodeBase - Crazy Ball

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments