CodeBase - Crazy Ball - TheGameCreators

Return to the CodeBase listing

Category: Graphics

Version: 2

Information

Uploaded: 29th Nov 2017 22:41

Modified: 2nd Dec 2017 12:18

Author: Bubba

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 &#10;
// Created: 2017-11-23&#10;
&#10;
// show all errors&#10;
SetErrorMode(2)&#10;
&#10;
// set window properties&#10;
SetWindowTitle( "Crazy Ball" )&#10;
SetWindowSize( 1024, 768, 0 )&#10;
SetWindowAllowResize( 1 ) // allow the user to resize the window&#10;
&#10;
// set display properties&#10;
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window&#10;
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices&#10;
SetSyncRate( 0, 1) // 30fps instead of 60 to save battery&#10;
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders&#10;
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts&#10;
&#10;
&#10;
&#10;
`-----------------------------------------------&#10;
&#10;
`make a ball sprite  **************&#10;
color = MakeColor( 0, 127, 127 )&#10;
&#10;
DrawEllipse( 50, 50,    50, 50, color, color, 1 )&#10;
GetImage( 1, 0, 0   , 100, 100 )&#10;
&#10;
CreateSprite(1,1)&#10;
SetSpritePosition(1,500,500)&#10;
&#10;
ClearScreen()&#10;
&#10;
`********************&#10;
`make left border of screen-&#10;
&#10;
color = MakeColor( 255, 255, 255 )   `(pure white)&#10;
&#10;
DrawBox(0,0,10,768,color,color,color,color,1)&#10;
GetImage( 3, 0, 0   , 10, 768 )&#10;
CreateSprite(100,3)&#10;
SetSpritePosition(100,0,0)&#10;
setspritecolor(100,255,0,0,255)      `initialize sprite color with red&#10;
&#10;
`********************&#10;
`make right border of screen from same image-&#10;
&#10;
CreateSprite(101,3)&#10;
SetSpritePosition(101,1014,0)&#10;
setspritecolor(101,255,0,0,255)   `initialize sprite color with red&#10;
&#10;
ClearScreen()&#10;
&#10;
`**********************************&#10;
&#10;
`make top border of screen-&#10;
&#10;
DrawBox(0,0,1024,10,color,color,color,color,1)&#10;
GetImage( 4, 0, 0   , 1024, 10 )&#10;
CreateSprite(102,4)&#10;
SetSpritePosition(102,0,0)&#10;
setspritecolor(102,255,0,0,255)     `initialize sprite color with red&#10;
&#10;
`make bottom border of screen with same image-&#10;
&#10;
CreateSprite(103,4)&#10;
SetSpritePosition(103,0,758)&#10;
setspritecolor(103,255,0,0,255)     `initialize sprite color with red&#10;
&#10;
`******************************************&#10;
`  Start the crazy ball moving&#10;
&#10;
sync()&#10;
loopstart:&#10;
&#10;
SetVSync(1)&#10;
if GetRawMouseLeftPressed() = 1 then end &#10;
&#10;
gosub movesprite&#10;
gosub if_color_a_line&#10;
sync()&#10;
goto loopstart&#10;
&#10;
movesprite:   `initiate first movement  &#10;
&#10;
ww:  &#10;
sync()&#10;
if  GetRawMouseLeftPressed() = 1 then sleep(10000)&#10;
&#10;
if firstime = 0 &#10;
	mult# = 2 : clr_cnt_100 = 0:clr_cnt_101= 0:clr_cnt_102= 0: clr_cnt_103= 0&#10;
move_x = random2(1,10): move_y = random2(1,10)&#10;
if random2(1,2) = 2 then move_x = move_x - (move_x *2)&#10;
if random2(1,2) = 2 then move_y = move_y - (move_y *2)&#10;
firstime = 1&#10;
endif&#10;
`SetSpritePosition( iSpriteIndex, fX, fY)&#10;
SetSpritePosition (1, (getspritex(1)+ move_x * mult#), (getspritey(1)+ move_y * mult#))&#10;
&#10;
&#10;
&#10;
`--------------------------color the lines yellow-------------------------------------	&#10;
`---------------------------and determine 'bounce off' direction-----------------&#10;
&#10;
if GetSpriteCollision( 1, 100 ) = 1  `left_line **********************&#10;
	setspritecolor(100,255,255,0,255): clr_cnt_100 = 10&#10;
	move_x = move_x - (move_x *2) &#10;
	&#10;
		if random2(1,2) = 2 then move_y = move_y - (move_y * 2)&#10;
       gosub if_reset_y_val&#10;
return&#10;
	endif&#10;
&#10;
if GetSpriteCollision( 1, 101 ) = 1  `right_line ***********************&#10;
	setspritecolor(101,255,255,0,255): clr_cnt_101 = 10&#10;
&#10;
	move_x = move_x - (move_x *2) &#10;
	&#10;
		if random2(1,2) = 2 then move_y = move_y - (move_y * 2)&#10;
       gosub if_reset_y_val&#10;
		&#10;
return&#10;
	endif&#10;
&#10;
if GetSpriteCollision( 1, 102 ) = 1  `top_line **************************&#10;
	setspritecolor(102,255,255,0,255): clr_cnt_102 = 10&#10;
&#10;
	move_y = move_y - (move_y *2) &#10;
	&#10;
		if random2(1,2) = 2 then move_x = move_x - (move_x * 2)&#10;
       gosub  if_reset_x_val&#10;
&#10;
return		&#10;
	endif&#10;
	&#10;
if GetSpriteCollision( 1, 103 ) = 1  `bottom_line *************************&#10;
	setspritecolor(103,255,255,0,255): clr_cnt_103 = 10&#10;
	move_y = move_y - (move_y *2) &#10;
	&#10;
		if random2(1,2) = 2 then move_x = move_x - (move_x * 2)&#10;
       gosub if_reset_x_val&#10;
       &#10;
return		&#10;
	endif&#10;
&#10;
&#10;
return&#10;
&#10;
if_color_a_line: &#10;
if clr_cnt_100 > 0 &#10;
	dec clr_cnt_100&#10;
 if clr_cnt_100 = 0 then setspritecolor(100,255,0,0,255) :return&#10;
endif&#10;
&#10;
if clr_cnt_101 > 0 &#10;
	dec clr_cnt_101&#10;
 if clr_cnt_101 = 0 then setspritecolor(101,255,0,0,255) :return&#10;
endif&#10;
&#10;
if clr_cnt_102 > 0 &#10;
	dec clr_cnt_102&#10;
 if clr_cnt_102 = 0 then setspritecolor(102,255,0,0,255) :return&#10;
endif	&#10;
&#10;
if clr_cnt_103 > 0 &#10;
	dec clr_cnt_103&#10;
 if clr_cnt_103 = 0 then setspritecolor(103,255,0,0,255) :return&#10;
endif		&#10;
&#10;
return&#10;
&#10;
`^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^&#10;
&#10;
if_reset_x_val:&#10;
&#10;
if random2(1,2) = 2&#10;
    	 moove_x = random2(1,10)&#10;
    	 if move_x < 1 then move_x =    - moove_x&#10;
    	 if move_x > 0 then move_x =     moove_x&#10;
 endif   	 &#10;
return&#10;
 &#10;
&#10;
&#10;
if_reset_y_val:&#10;
&#10;
if random2(1,2) = 2&#10;
         moove_y = random2(1,10)&#10;
    	 if move_y < 1 then move_y =   - moove_y&#10;
    	 if move_y > 0 then move_y =    moove_y    	 &#10;
    	 endif&#10;
return&#10;
&#10;
&#10;

Download

Please login to download

Comments

No comments yet.

Author Name:	Bubba
CodeBase Entries:	26

CodeBase - Crazy Ball