TheGameCreators - CodeBase - luigi jam-cheese

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 4th Mar 2009 05:01

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

application game luigi jam-cheese 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: luigi02

Rem Created: Thursday, February 26, 2009

rem autor vitaluciano@hotmail.fr

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

rem

sync on

sync rate 20

set display mode 800,600,32

set dir "media"

// set image colorkey 0,0,0

// backdrop on

// color backdrop rgb(128,0,0)

randomize timer()

rem

type _piespr

posx as integer

posy as integer

numimg as integer

flghide as integer

endtype

global dim piespr(18,20) as _piespr

type _gamevie

posx as integer

posy as integer

flgvie as integer

endtype

global dim bonus(25) as integer

global dim gamevie(2,5) as _gamevie

global false=0

global true=-1

global giu=0

global su=-1

global comt#

global ct

global dim flg_monta(4) as integer

global xx as integer

global yy as integer

// global dim map$(18,20)

global dim flgmonta(3)

global dim flglevely(4)

global dim comlevely(4)

global dim flglevelx(3)

global dirx as integer

global mr as integer

global score as integer

global dim flgdwn(3) as integer

global flgup as integer

global dim mstry(4) as integer

global dim mstrx(4,2) as integer

global dim mxx(25) as integer

global dim flgmstr(25) as integer

global upsize as integer

global oldscore as integer

global comzy as integer

global zy as integer

global comzx as integer

global dim combig(3) as integer

global  comvi as integer

global flg1 as integer

global flg2 as integer

global dim flg3(3) as integer

rem

gosub flglvlxyandvar  rem intiliose variables

gosub inmap

gosub ldimg

rem

rem =====================main loop=================

rem

//rgb(128,0,0)

cls rgb(128,128,255)

// show sprite 35

// color backdrop rgb(128,0,0)

if spacekey()

gosub flglvlxyandvar  rem intiliose variables

gosub inmap

endif

loop music 1

gosub displaymap

gosub monster

if flg2=false then gosub luigimove

if flg2=true

stop music 1

stop sound 3

endif

// gosub luigimove

gosub collisionmonster

gosub crtlcheese

sync

loop

end

rem

rem ====================mappa

mymap:

data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2

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

data 1,0,0,5,5,5,5,5,5,5,5,5,5,5,5,5,5,0,0,3

data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,0,0,3

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

data 1,0,0,5,5,5,5,5,5,5,5,5,5,5,5,5,5,0,0,3

data 1,0,0,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3

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

data 1,0,0,5,5,5,5,5,5,5,5,5,5,5,5,5,5,0,0,3

data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,0,0,3

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

data 1,0,0,5,5,5,5,5,5,5,5,5,5,5,5,5,5,0,0,3

data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4

rem

rem ====================load image

rem

ldimg:

load music "M3.mid",1

load sound "start.wav",2

load sound "die.wav",3

load sound "chomp.wav",4

load image "img002.png",1

load image "img003.png",2

load image "img004.png",3

load image "img005.png",4

load image "luigi.png",5

load image "luigiDead.png",6

load image "luigiWalk1.png",7,0

load image "luigiWalk2.png",9,0

load image "luigiWalk3.png",11,0

load image "Cheese.png",14,0

load image "mont01.jpg",31,0

load image "mont01.jpg",32,0

load image "mont01.jpg",33,0

load image "ciel1p.png",35,0

load image "BlueDrop.png",50,0

load image "GreenDrop.png",51,0

load image "Ahriman.png",70,0

load image "RedDrop.png",52,0

load image "Floateye.png",71,0

load image "Zombie.png",100,0

load image "BigMalboro.png",101,0

load image "MadOscar.png",102,0

load image "Star.png",500,0

rem ======def sprite

gosub spr

return

rem

rem ===============sprite

rem

spr:

sprite 500,0,0,500

hide sprite 500

set sprite 500,1,1

sprite 100,0,0,100

hide sprite 100

set sprite 100,1,1

sprite 101,0,0,101

hide sprite 101

set sprite 101,1,1

sprite 102,0,0,102

hide sprite 102

set sprite 102,1,1

sprite 35,0,0,35

set sprite 35,1,1

size sprite 35,800,600

hide sprite 35

sprite 1,0,0,5

hide sprite 1

set sprite 1,1,1

sprite 2,0,0,6

hide sprite 2

set sprite 2,1,1

sprite 3,0,0,7

hide sprite 3

set sprite 3,1,1

clone sprite 3,4

mirror sprite 4

sprite 5,0,0,9

hide sprite 5

set sprite 4,1,1

clone sprite 5,6

mirror sprite 6

sprite 7,0,0,11

hide sprite 7

set sprite 7,1,1

clone sprite 7,8

mirror sprite 8

sprite 14,0,0,14

hide sprite 14

set sprite 14,1,1

for k=50 to 52 rem =====================monster

sprite k,0,0,k

hide sprite k

set sprite k,1,1

next k

clone sprite 50,53

clone sprite 50,54

sprite 70,0,0,70

hide sprite 70

set sprite 70,1,1

sprite 71,0,0,71

hide sprite 71

set sprite 71,1,1

clone sprite 70,72

mirror sprite 72

clone sprite 71,73

mirror sprite 73

clone sprite 50,80

clone sprite 51,81

clone sprite 52,82

clone sprite 70,83

clone sprite 71,84

return

rem

rem ===========================routines

rem

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

inmap:

restore mymap

for k=1 to 18

for j=1 to 20

read a

piespr(k,j).posx=j

piespr(k,j).posy=k

piespr(k,j).numimg=a

piespr(k,j).flghide=false

//  set cursor j*10,k*10

//  print piespr(k,j).numimg

next j

next k

return

rem

rem ========================display map

rem

displaymap:

for k=1 to 18

for j=1 to 20

//and score mod 56 = 0//

if piespr(k,j).numimg=0  then paste sprite 500,j*30,k*30

if piespr(k,j).numimg=1 then paste image 1,j*30,k*30

if piespr(k,j).numimg=2 then paste image 2,j*30,k*30

if piespr(k,j).numimg=3 then paste image 3,j*30,k*30

if piespr(k,j).numimg=4 then paste image 4,j*30,k*30

if piespr(k,j).numimg=5 and piespr(k,j).flghide=false

paste sprite 14,j*30,k*30

endif

if piespr(k,j).numimg=1 or piespr(k,j).numimg=2 or piespr(k,j).numimg=3 or piespr(k,j).numimg=4

if score mod 56 = 0 then  paste sprite 500,j*30,k*30

endif

next j

next k

rem

// if score=14 then paste sprite 100,30*2,30*4

// if combig(1)=0 then paste sprite 100,comzx*30,zy

// if combig(2)=0 then paste sprite 101,comzx*30,zy

// if combig(3)=0 then paste sprite 102,comzx*30,zy

rem

for k=1 to 2

for j=1 to 5

if gamevie(k,j).flgvie=false

paste sprite 1,gamevie(k,j).posx*30,gamevie(k,j).posy*30

endif

next j

next k

rem

// if flgmonta(1)=true

if comlevely(1)>=flglevely(2) and flgmonta(1)=true

paste image 31,flglevelx(2)-30,comlevely(1)

endif

if comlevely(2)>=flglevely(3) and flgmonta(2)=true

paste image 32,flglevelx(1),comlevely(2)

endif

if comlevely(3)>=flglevely(4) and flgmonta(3)=true

paste image 33,flglevelx(2)-30,comlevely(3)

endif

if flg2=true

set text size 50

text 630,505,"g a m e"

text 630,540,"o v e r"

set text size 25

endif

rem

//  text 670,10,str$(yy)+" "+str$(ny+30)+" "+str$(nyy+30)+" "+str$(nyyy+30)

// text 670,20,str$(xx)+" "+str$(mxx(15))+" "+str$(mxx(16))+" "+str$(mxx(17))

// text 700,30,str$(comlevely(1))

// text 700,40,str$(yy)

// text 700,50,str$(comlevely(2))

// text 700,60,str$(score)

// text 700,70,str$(oldscore)

tsize=30

set text size 40

text 640,tsize*2,"LUIGI"

text 640,tsize*3,"jam-cheese"

set text size 25

text 640,tsize*6,"upkey: jump "

text 640,tsize*7,"leftkey: move "

text 640,tsize*8,"rightkey: move "

text 640,tsize*9,"downkey: go up/down"

text 640,tsize*10,"spacekey: reset game"

set text size 40

text 640,tsize*13,"SCORE"

text 640,tsize*14,str$(score*100)

set text size 25

text screen width()/2,575,"by:vitaluciano@hotmail.fr"

return

rem

rem ========================levely initvariables

rem

play sound 2

flglvlxyandvar:

ct=rnd(3333)+1

flg2=false

upsize=60

oldscore=-1

score=0

flglevely(1)=540

flglevely(2)=420

flglevely(3)=300

flglevely(4)=180

comlevely(1)=540

comlevely(2)=420

comlevely(3)=300

comlevely(4)=180

flglevelx(1)=60

flglevelx(2)=600-30

for k=1 to 3

flgmonta(k)=false

flgdwn(k)=false

combig(k)=true

next k

xx=flglevelx(1)

yy=flglevely(1)-30

dirx=1

mr=false

flgup=false

for k=1 to 2

for j=1 to 5

gamevie(k,j).posx=j+20

gamevie(k,j).posy=k+16

gamevie(k,j).flgvie=false

next j

next k

gamevie(1,1).flgvie=true

mstry(1)=flglevely(1)-30

mstry(2)=flglevely(2)-30

mstry(3)=flglevely(3)-30

mstry(4)=flglevely(4)-30

mstrx(1,1)=120

mstrx(1,2)=420

mstrx(2,1)=120

mstrx(2,2)=420

mstrx(3,1)=120

mstrx(3,2)=420

mstrx(4,1)=120

mstrx(4,2)=420

mxx(1)=120

mxx(2)=420

mxx(3)=120

mxx(4)=420

mxx(5)=220

mxx(6)=120

mxx(7)=200

mxx(8)=300

mxx(9)=420

mxx(10)=120

mxx(11)=420

mxx(12)=300

mxx(13)=190

mxx(14)=360

mxx(15)=360

mxx(16)=150

mxx(17)=350

return

rem

rem ========================luigi move

rem

luigimove:

if upkey()

comyy=yy-upsize

flgup=true

else

flgup=false

endif

if downkey()

if xx>flglevelx(2)-60 and yy>=flglevely(2)-30

gosub monta1

else if xx<flglevelx(1)+60 and yy>=flglevely(3)-30

gosub monta2

else if xx>flglevelx(2)-60 and yy>=flglevely(4)-30

gosub monta3

endif

if rightkey()

inc dirx,1

inc xx,2

mr=false

endif

if leftkey()

inc dirx,1

dec xx,2

mr=true

endif

if dirx>3 then dirx=1

if xx<=flglevelx(1) then xx=flglevelx(1)

if xx>=flglevelx(2) then xx=flglevelx(2)

if mr=false

select dirx

case 1

if flgup =true

paste sprite 3,xx,comyy

else

paste sprite 3,xx,yy

endif

endcase

case 2

if flgup =true

paste sprite 5,xx,comyy

else

paste sprite 5,xx,yy

endif

endcase

case 3

if flgup =true

paste sprite 7,xx,comyy

else

paste sprite 7,xx,yy

endif

endcase

endselect

endif

if mr=true

select dirx

case 1

if flgup =true

paste sprite 4,xx,comyy

else

paste sprite 4,xx,yy

endif

endcase

case 2

if flgup =true

paste sprite 6,xx,comyy

else

paste sprite 6,xx,yy

endif

endcase

case 3

if flgup =true

paste sprite 8,xx,comyy

else

paste sprite 8,xx,yy

endif

endcase

endselect

endif

return

rem

rem ========================control chesse

rem

crtlcheese:

for k=1 to 18

for j=1 to 20

if piespr(k,j).numimg=5 and (piespr(k,j).posx*30)=xx and (piespr(k,j).posy*30)=yy and piespr(k,j).flghide=false and flgup=false

piespr(k,j).flghide=true

inc score,1

play sound 4

endif

next j

next k

rem

if flglevely(1)-30=yy and score=14

paste image 31,flglevelx(2)-30,comlevely(1),1

flgmonta(1)=true

endif

if flglevely(2)-30=yy and score=28

paste image 32,flglevelx(1),comlevely(2),1

flgmonta(2)=true

endif

if flglevely(3)-30=yy and score=42

paste image 33,flglevelx(2)-30,comlevely(3),1

flgmonta(3)=true

endif

rem

if score mod 56 = 0

if score>0

for j=1 to 4

gamevie(1,j).flgvie=false

next j

for k=1 to 18

for j=1 to 20

piespr(k,j).flghide=false

next j

next k

endif

return

rem

rem ========================control key down

rem

monta1:

if comlevely(1)>flglevely(2) and flgmonta(1)=true and flgdwn(1)=giu

dec yy,1

dec comlevely(1),1

endif

//   if comlevely(1)>flglevely(2) and flgmonta(1)=true and flgdwn(1)=su

if  flgmonta(1)=true and flgdwn(1)=su

inc yy,1

inc comlevely(1),1

endif

if comlevely(1)=flglevely(2)

flgdwn(1)=su

sleep 500

endif

if comlevely(1)=flglevely(1)

flgdwn(1)=giu

sleep 500

endif

return

rem

rem ==========================dwn key monta2

rem

monta2:

if comlevely(2)>flglevely(3) and flgmonta(2)=true and flgdwn(2)=giu

dec yy,1

dec comlevely(2),1

endif

//   if comlevely(1)>flglevely(2) and flgmonta(1)=true and flgdwn(1)=su

if  flgmonta(2)=true and flgdwn(2)=su

inc yy,1

inc comlevely(2),1

endif

if comlevely(2)=flglevely(3)

flgdwn(2)=su

sleep 500

endif

if comlevely(2)=flglevely(2)

flgdwn(2)=giu

sleep 500

endif

return

rem

rem ==========================dwn key monta3

rem

monta3:

if comlevely(3)>flglevely(4) and flgmonta(3)=true and flgdwn(3)=giu

dec yy,1

dec comlevely(3),1

endif

//   if comlevely(1)>flglevely(2) and flgmonta(1)=true and flgdwn(1)=su

if  flgmonta(3)=true and flgdwn(3)=su

inc yy,1

inc comlevely(3),1

endif

if comlevely(3)=flglevely(4)

flgdwn(3)=su

sleep 500

endif

if comlevely(3)=flglevely(3)

flgdwn(3)=giu

sleep 500

endif

return

rem

rem ==========================display monsters

rem

monster:

gosub monster1

gosub monster2

gosub monster3

gosub monster4

gosub zombie

return

monster1:

if mxx(1)>mstrx(1,2) then flgmstr(1)=true

if mxx(1)<mstrx(1,1) then flgmstr(1)=false

if mxx(2)>mstrx(1,2) then flgmstr(2)=true

if mxx(2)<mstrx(1,1) then flgmstr(2)=false

if flgmstr(1)=false

inc  mxx(1),rnd(3)+1

paste sprite 50,mxx(1),mstry(1)

endif

if flgmstr(1)=true

dec mxx(1),rnd(4)+1

paste sprite 50,mxx(1),mstry(1)

endif

if flgmstr(2)=false

inc  mxx(2),rnd(3)+1

paste sprite 53,mxx(2),mstry(1)

endif

if flgmstr(2)=true

dec mxx(2),rnd(4)+1

paste sprite 53,mxx(2),mstry(1)

endif

return

monster2:

if mxx(3)>mstrx(2,2) then flgmstr(3)=true

if mxx(3)<mstrx(2,1) then flgmstr(3)=false

if mxx(4)>mstrx(2,2) then flgmstr(4)=true

if mxx(4)<mstrx(2,1) then flgmstr(4)=false

if mxx(5)>mstrx(2,2) then flgmstr(5)=true

if mxx(5)<mstrx(2,1) then flgmstr(5)=false

if flgmstr(3)=false

inc  mxx(3),rnd(2)+1

paste sprite 54,mxx(3),mstry(2)

endif

if flgmstr(3)=true

dec mxx(3),rnd(3)+1

paste sprite 54,mxx(3),mstry(2)

endif

if flgmstr(4)=false

inc  mxx(4),rnd(2)+1

paste sprite 51,mxx(4),mstry(2)

endif

if flgmstr(4)=true

dec mxx(4),rnd(3)+1

paste sprite 51,mxx(4),mstry(2)

endif

if flgmstr(5)=false

inc  mxx(5),rnd(2)+1

paste sprite 52,mxx(5),mstry(2)

endif

if flgmstr(5)=true

dec mxx(5),rnd(3)+1

paste sprite 52,mxx(5),mstry(2)

endif

return

monster3:

if mxx(6)>mstrx(3,2) then flgmstr(6)=true

if mxx(6)<mstrx(3,1) then flgmstr(6)=false

if mxx(7)>mstrx(3,2) then flgmstr(7)=true

if mxx(7)<mstrx(3,1) then flgmstr(7)=false

if mxx(8)>mstrx(3,2) then flgmstr(8)=true

if mxx(8)<mstrx(3,1) then flgmstr(8)=false

if mxx(9)>mstrx(3,2) then flgmstr(9)=true

if mxx(9)<mstrx(3,1) then flgmstr(9)=false

if flgmstr(6)=false

inc  mxx(6),rnd(2)+1

paste sprite 70,mxx(6),mstry(3)

endif

if flgmstr(6)=true

dec mxx(6),rnd(3)+1

paste sprite 70,mxx(6),mstry(3)

endif

rem

if flgmstr(7)=false

inc  mxx(7),rnd(2)+1

paste sprite 73,mxx(7),mstry(3)

endif

if flgmstr(7)=true

dec mxx(7),rnd(3)+1

paste sprite 73,mxx(7),mstry(3)

endif

rem

if flgmstr(8)=false

inc  mxx(8),rnd(2)+1

paste sprite 71,mxx(8),mstry(3)

endif

if flgmstr(8)=true

dec mxx(8),rnd(3)+1

paste sprite 71,mxx(8),mstry(3)

endif

rem

if flgmstr(9)=false

inc  mxx(9),rnd(2)+1

paste sprite 72,mxx(9),mstry(3)

endif

if flgmstr(9)=true

dec mxx(9),rnd(3)+1

paste sprite 72,mxx(9),mstry(3)

endif

return

monster4:

if mxx(10)>mstrx(4,2) then flgmstr(10)=true

if mxx(10)<mstrx(4,1) then flgmstr(10)=false

if mxx(11)>mstrx(4,2) then flgmstr(11)=true

if mxx(11)<mstrx(4,1) then flgmstr(11)=false

if mxx(12)>mstrx(4,2) then flgmstr(12)=true

if mxx(12)<mstrx(4,1) then flgmstr(12)=false

if mxx(13)>mstrx(4,2) then flgmstr(13)=true

if mxx(13)<mstrx(4,1) then flgmstr(13)=false

if mxx(14)>mstrx(4,2) then flgmstr(14)=true

if mxx(14)<mstrx(4,1) then flgmstr(14)=false

rem

if flgmstr(10)=false

inc  mxx(10),rnd(2)+1

paste sprite 80,mxx(10),mstry(4)

endif

if flgmstr(10)=true

dec mxx(10),rnd(3)+1

paste sprite 80,mxx(10),mstry(4)

endif

rem

if flgmstr(11)=false

inc  mxx(11),rnd(2)+1

paste sprite 81,mxx(11),mstry(4)

endif

if flgmstr(11)=true

dec mxx(11),rnd(3)+1

paste sprite 81,mxx(11),mstry(4)

endif

rem

if flgmstr(12)=false

inc  mxx(12),rnd(2)+1

paste sprite 82,mxx(12),mstry(4)

endif

if flgmstr(12)=true

dec mxx(12),rnd(3)+1

paste sprite 82,mxx(12),mstry(4)

endif

rem

if flgmstr(13)=false

inc  mxx(13),rnd(2)+1

paste sprite 83,mxx(13),mstry(4)

endif

if flgmstr(13)=true

dec mxx(13),rnd(3)+1

paste sprite 83,mxx(13),mstry(4)

endif

rem

if flgmstr(14)=false

inc  mxx(14),rnd(2)+1

paste sprite 84,mxx(14),mstry(4)

endif

if flgmstr(14)=true

dec mxx(14),rnd(3)+1

paste sprite 84,mxx(14),mstry(4)

endif

return

zombie:

comt#=timer()

if comt# mod 1111/2 = 0 then inc comtt,rnd(64)+1

if comtt mod 2 = 0 then stry=mstry(1)-30

if comtt mod 3 = 0 then stry=mstry(4)-30

if comtt mod 4 = 0 then stry=mstry(3)-30

if comtt mod 5 = 0 then stry=mstry(2)-30

if mxx(15)>mstrx(1,2)+120 then flgmstr(15)=true

if mxx(15)<mstrx(1,1) then flgmstr(15)=false

if flgmstr(15)=false

inc  mxx(15),rnd(2)+1

paste sprite 101,mxx(15),stry

endif

if flgmstr(15)=true

dec mxx(15),rnd(3)+1

paste sprite 101,mxx(15),stry

endif

if comt# mod 3333/5 = 0 then inc comttt,rnd(64)+1

if comttt mod 2 = 0 then stryy=mstry(2)-30

if comttt mod 3 = 0 then stryy=mstry(3)-30

if comttt mod 4 = 0 then stryy=mstry(1)-30

if comttt mod 5 = 0 then stryy=mstry(4)-30

if mxx(16)>mstrx(1,2)+120 then flgmstr(16)=true

if mxx(16)<mstrx(1,1) then flgmstr(16)=false

if flgmstr(16)=false

inc  mxx(16),rnd(2)+1

paste sprite 100,mxx(16), stryy

endif

if flgmstr(16)=true

dec mxx(16),rnd(3)+1

paste sprite 100,mxx(16), stryy

endif

if comt# mod 3333/7 = 0 then inc comtttt,rnd(64)+1

if comtttt mod 2 = 0 then stryyy=mstry(2)-30

if comtttt mod 3 = 0 then stryyy=mstry(1)-30

if comtttt mod 4 = 0 then stryyy=mstry(3)-30

if comtttt mod 5 = 0 then stryyy=mstry(4)-30

if mxx(17)>mstrx(1,2)+120 then flgmstr(17)=true

if mxx(17)<mstrx(1,1) then flgmstr(17)=false

if flgmstr(17)=false

inc  mxx(17),rnd(2)+1

paste sprite 102,mxx(17),stryyy

endif

if flgmstr(17)=true

dec mxx(17),rnd(3)+1

paste sprite 102,mxx(17),stryyy

endif

return

rem

rem ==========================collision monsters

rem

collisionmonster:

flgcoll=false

for k=1 to 2

if mxx(k)=xx and mstry(1)=yy and flgup=false then flgcoll=true

next k

for k=3 to 5

if mxx(k)=xx and mstry(2)=yy and flgup=false  then flgcoll=true

next k

for k=6 to 9

if mxx(k)=xx and mstry(3)=yy and flgup=false  then flgcoll=true

next k

for k=10 to 14

if mxx(k)=xx and mstry(4)=yy and flgup=false  then flgcoll=true

next k

ny=stry+30

nyy=stryy+30

nyyy=stryyy+30

if mxx(15)=xx and flgup=false and ny=yy then flgcoll=true

if mxx(16)=xx and flgup=false and nyy=yy then flgcoll=true

if mxx(17)=xx and flgup=false and nyyy=yy then flgcoll=true

if flgcoll=true

play sound 3

flg1=false

flg2=false

for k=1 to 2

for j=1 to 5

if flg1=false

if gamevie(k,j).flgvie=false

gamevie(k,j).flgvie=true

flg1=true

endif

next j

next k

if flg1=false

rem todo game over

for k=3 to 8

hide sprite k

next k

text 630,540,"game over"

flg2=true

endif

return

rem

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

rem

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	7

CodeBase - luigi jam-cheese

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments