TheGameCreators - CodeBase - space invader application

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 11th Mar 2009 18:08

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

game space invader sprite application

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: spaceinvader02

Rem Created: , March 11, 2009

Rem ***** Main Source File *****

rem

sync on

sync rate 100

rem

// backdrop on

autocam on

set dir "media"

randomize timer()

global false as integer

global true as integer

type _map01

nmap as integer

posx as integer

posy as integer

numspr as integer

numshot as integer

flghide as integer

endtype

type _ripp

nmap as integer

posx as integer

posy as integer

numspr as integer

flghide as integer

endtype

type _mshot

nmap as integer

posx as integer

posy as integer

numspr as integer

flghide as integer

flgtemp as integer

endtype

global dim mshot(14) as  _mshot

global dim ripp1(10,14) as _ripp

global dim ripp2(10,14) as _ripp

global dim ripp3(10,14) as _ripp

global dim ripp4(10,14) as _ripp

global dim map01(7,15) as _map01

global comtimer as dword

global comt as dword

global dim levelgame(7) as integer

global playgame as integer

global score as integer=0

global level as integer=1

global lvl as integer=3

global v as integer=75

global vie as integer=v

global flgend as integer=false

global flg3600 as integer=false

global flg8400 as integer=false

global flg14400 as integer=false

global flg21600 as integer=false

rem

rem ====================================

gosub ldimg

gosub defmap

rem ========================

rem

rem =====================loop

rem

cls

loop music 1

gosub displaygame

// play music 1

sync

loop

end

rem ===============================

mapp04:

data 0,1,1,1,1,1,1,1,1,1,1,1,1,0

ripp01:

data 0,0,0,0,0,0,0,0,0,0,0,0,0,0

data 0,1,1,1,1,1,1,1,1,1,1,1,1,0

data 0,1,1,1,1,1,0,0,1,1,1,1,1,0

data 0,0,0,0,0,0,0,0,0,0,0,0,0,0

mapshot:

data 0,1,1,1,1,1,1,1,1,1,1,1,1,0

rem

rem ================================

ldimg:

load image "Cyn.png",1

load image "e14.png",2

load image "shot1011.png",3

load image "rip01.png",4

load image "fire1.png",5

load image "s15.png",6

load music "music.mp3",1

load sound "die.wav",2

load sound "shotimpulse.wav",3

load sound "explosion1.wav",4

gosub setsprite

return

setsprite:

sprite 2,0,0,2

hide sprite 2

set sprite 2,1,1

sprite 6,0,0,6

hide sprite 6

set sprite 6,1,1

sprite 5,0,0,5

hide sprite 5

set sprite 5,1,1

sprite 4,0,0,4

hide sprite 4

set sprite 4,1,1

sprite 3,0,0,3

hide sprite 3

set sprite 3,1,1

clone sprite 3,10

clone sprite 3,11

return

rem

Rem ***** Included Source File *****

rem ==============================

defmap:

gosub defvar

gosub defe14

gosub defripp

gosub defmshot

return

rem ===================================

defmshot:

restore mapshot

for k=1 to 14

read a

mshot(k).nmap=a

mshot(k).posx=k

mshot(k).flghide=false

mshot(k).flgtemp=false

if a<>0

mshot(k).numspr=4000+k

clone sprite 6,mshot(k).numspr

endif

next k

return

rem ==================defvar==============================

defvar:

false=0

true=-1

for k=1 to 7

levelgame(k)=false

next k

playgame=false

yyy=0

yshot=0

xshot=0

zzz=0

xxx=0

kx=0

kkk=0

kend=0

flgtimer=false

ky=0

sk=0

return

rem ============================================

defe14:

zzz=0

restore mapp04

for k=1 to 7

for j=1 to 14

read a

map01(k,j).nmap=a

map01(k,j).posx=j

map01(k,j).posy=k

map01(k,j).flghide=false

if a=1

inc zzz,1

inc zzzz,1

map01(k,j).numspr=zzz+1000

endif

//  set cursor j*30,k*30

//  print map01(k,j).posx

next j

next k

rem ============

for k=1 to 7

for j=1 to 14

if map01(k,j).nmap<>0

clone sprite 2,map01(k,j).numspr

//  set cursor j*40,k*30

//  print map01(k,j).numspr

endif

next j

next k

return

rem ==========================================

defripp:

xxx=40

zzz=0

restore ripp01

for k=1 to 10

for j=1 to 14

read a

ripp1(k,j).nmap=a

ripp1(k,j).posx=j*5+xxx

ripp1(k,j).posy=k*10+350

ripp1(k,j).flghide=0

if a=1

inc zzz,1

ripp1(k,j).numspr=zzz+3000

clone sprite 4,ripp1(k,j).numspr

endif

ripp2(k,j).nmap=a

ripp2(k,j).posx=j*5+140+xxx

ripp2(k,j).posy=k*10+350

ripp2(k,j).flghide=0

if a=1

inc zzz,1

ripp2(k,j).numspr=zzz+3000

clone sprite 4,ripp2(k,j).numspr

endif

ripp3(k,j).nmap=a

ripp3(k,j).posx=j*5+325+xxx

ripp3(k,j).posy=k*10+350

ripp3(k,j).flghide=0

if a=1

inc zzz,1

ripp3(k,j).numspr=zzz+3000

clone sprite 4,ripp3(k,j).numspr

endif

ripp4(k,j).nmap=a

ripp4(k,j).posx=j*5+480+xxx

ripp4(k,j).posy=k*10+350

ripp4(k,j).flghide=0

if a=1

inc zzz,1

ripp4(k,j).numspr=zzz+3000

clone sprite 4,ripp4(k,j).numspr

endif

//  set cursor j*35,k*35

//  print ripp2(k,j).numspr

next j

next k

rem

return

rem

rem =======================================display

rem

displaygame:

play music 1

if playgame=false

gosub  playonoff

endif

cls

// sync

gosub dise14

play music 1

gosub disshot

gosub disripp

gosub cylon

gosub collision

gosub collisionripp

gosub collisionshot

gosub endgamelevel

gosub texttext

play music 1

return

rem ==========================================

playonoff:

cls

sync

if flgend = false

text 400,10,"by vitaluciano@hotmail.fr"

set text size 50

text 20,20,"space invader "

set text size 25

text 10,80,"mouse move Cylon chip and click left fire"

if score<3600

s99$="Level 1  Score 0000  "+"Life "+str$(vie)

endif

text 10,150,s99$

text 10,450,"press a key to start.............."

// sync

endif

1001:

if flgend = true

flgend = false

text 400,10,"by vitaluciano@hotmail.fr"

set text size 50

text 20,20,"space invader "

text 50,100,"game over"

set text size 25

text 10,180,s100$

text 10,220,"Your Score "+str$(yscore)

text 10,450,"press a key to start.............."

// sync

endif

sync

wait key

playgame=true

return

rem =====================================

texttext:

//  text 400,10,str$(mousex())+" "+str$(mousey())

//   text 400,20,str$(aa)+" "+str$(bb)

text 400,10,"by vitaluciano@hotmail.fr"

s1$="Space Invader "

s2$="level "

s3$=str$(level)+" "

s4$="Score "

s5$=str$(score)+" "

s6$="Life "

s7$=str$(vie)+" "

text 10,10,s1$+s2$+s3$+s4$+s5$+s6$+s7$

return

rem =====================================

disshot:

play music 1

for j=1 to 14

if mshot(j).nmap=1 and mshot(j).flghide=false

show sprite mshot(j).numspr

inc yyy,1

if yyy>475

yyy=yshot

for k=1 to 14

mshot(k).flgtemp=false

next k

endif

if   mshot(j).flgtemp=false

sprite mshot(j).numspr,j*40+kx+19,yyy,6

endif

next j

return

rem =================================================

disripp:

play music 1

for k=1 to 10

for j=1 to 14

if ripp1(k,j).nmap<>0 and ripp1(k,j).flghide=false

sprite ripp1(k,j).numspr,ripp1(k,j).posx,ripp1(k,j).posy,4

show sprite ripp1(k,j).numspr

endif

if ripp2(k,j).nmap<>0 and ripp2(k,j).flghide=false

sprite ripp2(k,j).numspr,ripp2(k,j).posx,ripp2(k,j).posy,4

show sprite ripp2(k,j).numspr

endif

if ripp3(k,j).nmap<>0 and ripp3(k,j).flghide=false

sprite ripp3(k,j).numspr,ripp3(k,j).posx,ripp3(k,j).posy,4

show sprite ripp3(k,j).numspr

endif

if ripp4(k,j).nmap<>0 and ripp4(k,j).flghide=false

sprite ripp4(k,j).numspr,ripp4(k,j).posx,ripp4(k,j).posy,4

show sprite ripp4(k,j).numspr

endif

next j

next k

return

rem =============================================

dise14:

gosub calctimer

for k=0 to lvl-1

lk=k+1

for j=1 to 14

if lk=1 and  map01(1,j).nmap=1

mshot(j).flghide=map01(lk,j).flghide

if mshot(j).flghide=true

sprite mshot(j).numspr,0,0,6

hide sprite mshot(j).numspr

endif

yshot=lk*40+kkk

xshot=j*40+kx

endif

if map01(lk,j).nmap=1

if map01(lk,j).flghide=false

sprite map01(lk,j).numspr,j*40+kx,lk*40+kkk,2

show sprite map01(lk,j).numspr

kend=lk*40+kkk

endif

next j

next k

return

rem =============================================

calctimer:

if flgtimer=false

comtimer=timer()+750

flgtimer=true

inc kkk,3

if kkk mod 4=0

kx=0

ky=kkk

endif

if kkk mod 4=1

kx=-40

ky=kkk

endif

if kkk mod 4=2

kx=40

ky=kkk

endif

comt=timer()

if comt>=comtimer then flgtimer=false

return

rem

rem =======================================cylon

rem

cylon:

sprite 1,mousex(),430,1

show sprite 1

if mousex()>600

sprite 1,600,430,1

endif

if mouseclick()

if sk<1 then sk=435

skx1=mousex()+8

skx2=mousex()+26

play sound 3

endif

dec sk,10

sprite 10,skx1,sk,3

show sprite 10

// move sprite 10,17

sprite 11,skx2,sk,3

show sprite 11

// move sprite 11,17

return

rem =======================================

collision:

num1=sprite collision(10,0)

num2=sprite collision(11,0)

if num1>1000 and num1<2000 or num2>1000 and num2<2000

if num1=num2

num=num1

sk=0

gosub collision01

else

if num1<>0

num=num1

sk=0

gosub collision01

endif

//  else

if num2<>0

num=num2

sk=0

gosub collision01

endif

//  endif

endif

return

rem =============================================

collision01:

for k=1 to lvl

for j=1 to 14

if num=map01(k,j).numspr

aa=map01(k,j).posx

bb=map01(k,j).posy

sprite map01(k,j).numspr,0,0,2

hide sprite map01(k,j).numspr

map01(k,j).flghide=true

paste sprite 5,j*40+kx,k*40+kkk

play sound 4

inc score,100

// show sprite 5

endif

next j

next k

return

rem ===========================================

collisionripp:

nrip1=sprite collision(10,0)

nrip2=sprite collision(11,0)

if nrip1>3000 and nrip1<4000 or nrip2>3000 and nrip2<4000

if nrip1<>0

sk=0

nrip=nrip1

gosub collisionrip01

endif

if nrip2<>0

sk=0

nrip=nrip2

gosub collisionrip01

endif

return

rem ======================================

collisionrip01:

aa=0

bb=0

for k=1 to 10

for j=1 to 14

if nrip=ripp1(k,j).numspr

sprite ripp1(k,j).numspr,0,0,4

hide sprite ripp1(k,j).numspr

ripp1(k,j).flghide=true

endif

if nrip=ripp2(k,j).numspr

sprite ripp2(k,j).numspr,0,0,4

hide sprite ripp2(k,j).numspr

ripp2(k,j).flghide=true

endif

if nrip=ripp3(k,j).numspr

sprite ripp3(k,j).numspr,0,0,4

hide sprite ripp3(k,j).numspr

ripp3(k,j).flghide=true

endif

if nrip=ripp4(k,j).numspr

sprite ripp4(k,j).numspr,0,0,4

hide sprite ripp4(k,j).numspr

ripp4(k,j).flghide=true

endif

next j

next k

return

rem ===========================================

collisionshot:

for j=1 to 14

if mshot(j).numspr<>0

nsh=sprite collision(mshot(j).numspr,0)

if nsh>3000 and nsh<4000

sprite mshot(j).numspr,0,0,6

hide sprite mshot(j).numspr

mshot(j).flgtemp=true

endif

if nsh=1

hide sprite 1

paste sprite 5,mousex(),450

play sound 2

dec vie,1

endif

next j

return

rem ============================================

endgamelevel:

if kend>350

playgame=false

vie=v

yscore=score

score=0

s100$="Space Invader win Cylon base"

flg3600=false

flg8400=false

flg14400=false

flg21600=false

gosub defvar

gosub restoremap

gosub restoreripp

gosub restoreshot

level=1

lvl=3

flgend=true

cls

endif

if vie=0 or vie<0

s100$="Space Invader win Cylon base"

playgame=false

vie=v

yscore=score

score=0

flg3600=false

flg8400=false

flg14400=false

flg21600=false

gosub defvar

gosub restoremap

gosub restoreripp

gosub restoreshot

level=1

lvl=3

flgend=true

cls

endif

if score=3600 and flg3600=false

flg3600=true

playgame=false

level=2

lvl=4

vie=vie+10

s99$="Level 2  Score 3600  "+"Life "+str$(vie)

gosub resgrup

endif

if score=8400 and flg8400=false

flg8400=true

vie=vie+15

s99$="Level 3  Score 8400  "+"Life "+str$(vie)

playgame=false

level=3

lvl=5

gosub resgrup

endif

if score=14400 and flg14400=false

flg14400=true

vie=vie+20

s99$="Level 4  Score 14400  "+"Life "+str$(vie)

playgame=false

level=4

lvl=6

gosub resgrup

endif

if score=21600 and flg21600=false

bonus=0

flg21600=true

s100$="Cylon base win Space Invader"

playgame=false

level=1

lvl=3

yscore=score

score=0

flg3600=false

flg8400=false

flg14400=false

flg21600=false

gosub resgrup

flgend=true

vie=v

endif

return

rem =============================

resgrup:

gosub defvar

gosub restoremap

gosub restoreripp

gosub restoreshot

return

rem ========================

restoremap:

for k=1 to 7

for j=1 to 14

map01(k,j).flghide=false

if map01(k,j).nmap=1

sprite map01(k,j).numspr,0,0,2

hide sprite map01(k,j).numspr

endif

next j

next k

return

rem ========================

restoreripp:

for k=1 to 10

for j=1 to 14

ripp1(k,j).flghide=0

ripp2(k,j).flghide=0

ripp3(k,j).flghide=0

ripp4(k,j).flghide=0

next j

next k

return

rem ===============================

restoreshot:

for k=1 to 14

mshot(k).flghide=false

mshot(k).flgtemp=false

next k

return

rem

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	7

CodeBase - space invader application

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments