TheGameCreators - CodeBase - 2D Animated Human That Follows A Circle

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 23rd Nov 2008 03:33

Modified: 1st Jan 1970 01:00

Author: Flyin Mushroom

Summary

Computer controlled character that follows a circle based on the users control. (MEDIA DOWNLOAD)

Full Description

Computer controlled character that follows a circle based on the users control.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

hide mouse : sync on : sync rate 60 : backdrop on : color backdrop rgb(0,0,0)

rem ------  complayer 1=left 2=right 3=up 4=down 5=upleft 6=upright 7=downleft 8=downright

complayer=0 : comfire=0

gosub load_player_images

remstart

(sprite animation speed) ANISPEED= higher the # the slower

Playerspeed= the # the number the faster the sprite moves position

remend

playery=0 : playerx=0 : playerspeed=1 : anispeed=5

rem ------ playpos = determines the direction the player is facing

rem ------------- default= DOWN (4)

playpos=4 : a=1

rem ----- variable controlling upleft, upright,downleft,downright

ani=0

rem ----- variable controlling up, down, left, right, player image ANIMATION

ani1=0

sprite 1,200+playerx,100+playery,a

rem -------- thing for complayer to follow and shoot at

cx=200 : cy=400

rem -------------------------- MAIN LOOP -------------------------

rem ------------ box for 2d sprite to follow ------------

circle cx,cy,5

rem ----------- controls for to move the circle for the sprite to follow

if upkey()=1 then dec cy,5

if downkey()=1 then inc cy,5

if leftkey()=1 then dec cx,5

if rightkey()=1 then inc cx,5

center text 320,420,"USE ARROW KEYS TO MOVE CIRCLE"

gosub comp_moves

sprite 1,200+playerx,100+playery,a

sync : loop

rem -------------------- END OF MAIN LOOP ------------------------

rem ------------------------ PLAYER CONTROLS

comp_moves:

if cy-sprite y(1)>0 then complayer=4

if cy-sprite y(1)<0 then complayer=3

if cx-sprite x(1)<-11 then complayer=1

if cx-sprite x(1)>0 then complayer=2

if cy-sprite y(1)>0 and cx-sprite x(1)<-11 then complayer=7

if cy-sprite y(1)>0 and cx-sprite x(1)>0 then complayer=8

if cy-sprite y(1)<-11 and cx-sprite x(1)<-11 then complayer=5

if cy-sprite y(1)<-11 and cx-sprite x(1)>0 then complayer=6

if complayer=0 then ani1=0 : ani=0

rem -------- left

if complayer=1

playpos=1

if sprite mirrored(1)=0 then mirror sprite 1

if ani1>anispeed then ani1=0

if ani1=0 then a=a+1 : ani1=1

ani1=ani1+1

playerx=playerx-playerspeed

if a<11 then a=11

if a>14 then a=11

endif

rem -------- right

if complayer=2

playpos=2

if sprite mirrored(1)=1 then mirror sprite 1

if ani1>anispeed then ani1=0

if ani1=0 then a=a+1 : ani1=1

ani1=ani1+1

playerx=playerx+playerspeed

if a<11 then a=11

if a>14 then a=11

endif

rem -------- up

if complayer=3

playpos=3

if ani1>anispeed then ani1=0

if ani1=0 then a=a+1 : ani1=1

ani1=ani1+1

playery=playery-playerspeed

if a<7 then a=7

if a>9 then a=7

endif

rem -------- down

if complayer=4

playpos=4

if ani1>anispeed then ani1=0

if ani1=0 then a=a+1 : ani1=1

ani1=ani1+1

playery=playery+playerspeed

if a>4 then a=2

endif

rem ---------- up-left

if complayer=5

playpos=5

if sprite mirrored(1)=1 then mirror sprite 1

if ani>anispeed then ani=0

if ani=0 then a=a+1 : ani=1

ani=ani+1

playery=playery-playerspeed

playerx=playerx-playerspeed

if a<16 then a=16

if a>19 then a=16

endif

rem ---------- up-right

if complayer=6

playpos=6

if sprite mirrored(1)=0 then mirror sprite 1

if ani>anispeed then ani=0

if ani=0 then a=a+1 : ani=1

ani=ani+1

playery=playery-playerspeed

playerx=playerx+playerspeed

if a<16 then a=16

if a>19 then a=16

endif

rem ---------- down-left

if complayer=7

playpos=7

if sprite mirrored(1)=0 then mirror sprite 1

if ani>anispeed then ani=0

if ani=0 then a=a+1 : ani=1

ani=ani+1

playery=playery+playerspeed

playerx=playerx-playerspeed

if a<21 then a=21

if a>24 then a=21

endif

rem ---------- down-right

if complayer=8

playpos=8

if sprite mirrored(1)=1 then mirror sprite 1

if ani>anispeed then ani=0

if ani=0 then a=a+1 : ani=1

ani=ani+1

playery=playery+playerspeed

playerx=playerx+playerspeed

if a<21 then a=21

if a>24 then a=21

endif

return

rem ------------------------- PLAYER IMAGES

load_player_images:

load bitmap "updown1.bmp",1

get image 1,0,0,17,26 : get image 2,18,0,36,26 : get image 3,40,0,58,26

get image 4,61,0,80,26 : get image 5,84,0,100,26

get image 6,0,28,17,54 : get image 7,18,28,36,54 : get image 8,40,28,58,54

get image 9,61,28,80,54 : get image 10,84,28,100,54 : delete bitmap 1

load bitmap "side1.bmp",1

get image 11,0,0,20,28 : get image 12,20,0,40,28 : get image 13,40,0,60,28

get image 14,60,0,80,28 : get image 15,80,0,100,28 : delete bitmap 1

load bitmap "upside1.bmp",1

get image 16,0,0,20,28 : get image 17,20,0,40,28 : get image 18,40,0,60,28

get image 19,60,0,80,28 : get image 20,80,0,100,28 : delete bitmap 1

load bitmap "downside1.bmp",1

get image 21,0,0,20,28 : get image 22,20,0,40,28 : get image 23,40,0,60,28

get image 24,60,0,80,28 : get image 25,80,0,100,28 : delete bitmap 1

return

Download

Please login to download

Comments

No comments yet.

Author Name:	Flyin Mushroom
CodeBase Entries:	5

CodeBase - 2D Animated Human That Follows A Circle

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments