TheGameCreators - CodeBase - Jompis New Release

Return to the CodeBase listing

Category: Games

Version: 1.0

Information

Uploaded: 22nd Oct 2014 15:42

Modified: 23rd Oct 2014 12:36

Author: Brux

Summary

A simple idea a great game !

Full Description

This is a variation theme pushing blocks game.<br /> A simple idea a great game!<br /> Now you can save level

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on : sync rate 60

Dim poy(11)

Dim pox(11)

Dim zone(121)

poy(1)=96

poy(2)=117

poy(3)=137

poy(4)=158

poy(5)=178

poy(6)=199

poy(7)=220

poy(8)=240

poy(9)=261

poy(10)=281

poy(11)=302

for i=1 to 100

set sprite i,1,1

next i

For t=1 to 11

pox(t)=201+nx

Inc nx,22

Next t

Rem Load Bitmap's

Load Bitmap "You.bmp",1

Get Image 4,0,0,20,20

Delete Bitmap 1

Load Bitmap "exit.bmp",1

Get Image 11,0,0,20,20

Delete Bitmap 1

Load Bitmap "Jomp.bmp",1

Get Image 2,0,0,20,20

Delete Bitmap 1

Load Bitmap "Block.bmp",1

Get Image 3,0,0,20,20

Delete Bitmap 1

Load Bitmap "Game-Plane.bmp",1

Get Image 10,203,99,222,117

Get Image 9,47,271,177,312

Paste Image 9,47,271 : Paste Image 9,45,127

Get Image 99,0,0,640,480

Delete Bitmap 1

Rem Load Sound

Load Sound "buzz.wav",1

LOad Music "Music.mid",1

Level=0

Loop Music 1

Rem Restart Level

open to read 1,"record.txt" :read string 1,n$:level=val(n$):close file 1

Continue:

For t=1 to 121

zone(t)=0

Next t

Set Current Bitmap 0

Paste Image 99,0,0

Set Text Font "arial black"

Set Text Size 45

verde=Rgb(64,160,0)

rosso=Rgb(210,0,0)

bianco=Rgb(255,255,255)

Make_Button(verde,180,350,460,400,bianco,0,1):Text 240,350,"RE-LOAD"

Make_Button(rosso,180,410,460,460,bianco,0,1):TExt 280,410,"EXIT"

Rem Initialize some variables

n=0

nz=1

nb=0

jomps=0

If File Exist("Levels\livello"+Str$(Level)+".jmp")

Else

Level=1

EndIf

Open To Read 1,"Levels\livello"+Str$(Level)+".jmp"

For ay=1 to 11

For ax=1 to 11

Inc n

Read String 1,gz$

zone(n)=val(gz$)

_pos=zone(n)

If _pos=1

Paste Image 3,pox(ax),poy(ay)

EndIf

If _pos=2

Paste Image 2,pox(ax),poy(ay) : Inc jomps

EndIf

If _pos=4

px=ax : py=ay :z=n

EndIf

Next ax

Next ay

Close File 1

n=0

For ay=1 to 11

For ax=1 to 11

Inc n

If zone(n)=0 And ay=11

ab=ax : ac=ay

EndIf

Next ax

Next ay

Paste Image 11,pox(ab),poy(ac)

sprite 100,pox(px),poy(py),4

_writeData(Level,jomps)

Show Mouse

If Flag=0

Requester("JOMPIS","LEVEL "+Str$(Level))

Endif

If MouseClick()=1

mx=Mousex()

my=Mousey()

If mx>180 And my>350 and mx<460 And my<400

ButtonAnim(180,350,460,400)

Requester("JOMPIS","LEVEL "+Str$(Level))

Dec Level:Flag=1

Exit

EndIf

If mx>180 And my>410 and mx<460 And my<460

ButtonAnim(180,410,460,460)

Requester("JOMPIS","BYE! BYE!")

Hide Mouse:Stop Music 1

delete file "record.txt"

open to write 1,"record.txt" : write string 1,str$(level):close file 1

Cls 0

Wait 500

End

EndIf

Rem Arrows Control

If RightKey()=1 And px+1<12

If zone(z+1)=0 Then Inc px :zone(z)=0 : Inc z :zone(z)=4 : Goto _Looper

If zone(z+1)=2

sz=z+2

If px+2<12

If zone(sz)=0

Paste Image 2,pox(px+2),poy(py)

Paste Image 10,pox(px+1),poy(py)

zone(z)=0:Inc px:Inc z:zone(z)=4:zone(z+1)=2

Goto _Looper

EndIf

If LeftKey()=1 And px-1>0

If zone(z-1)=0 Then Dec px :zone(z)=0 :Dec z :zone(z)=4: Goto _Looper

If zone(z-1)=2

sz=z-2

If px-2>0

If zone(sz)=0

Paste Image 2,pox(px-2),poy(py)

Paste Image 10,pox(px-1),poy(py)

zone(z)=0 : Dec px :Dec z: zone(z)=4 : zone(z-1)=2

Goto _Looper

EndIf

If UpKey()=1 And py-1>0

If zone(z-11)=0 Then Dec py :zone(z)=0 : Dec z,11 :zone(z)=4: Goto _Looper

If zone(z-11)=2

sz=z-22

If py-2>0

If zone(sz)=0

Paste Image 2,pox(px),poy(py-2)

Paste Image 10,pox(px),poy(py-1)

zone(z)=0 :Dec py:Dec z,11:zone(z)=4:zone(z-11)=2

Goto _Looper

EndIf

If DownKey()=1 And py+1<12

If zone(z+11)=0 Then Inc py : zone(z)=0 : Inc z,11: zone(z)=4 : Goto _Looper

If zone(z+11)=2

sz=z+22

If py+2<12

If zone(sz)=0

Paste Image 2,pox(px),poy(py+2)

Paste Image 10,pox(px),poy(py+1)

zone(z)=0 : Inc py: Inc z,11:zone(z)=4:zone(z+11)=2

If py=10

Play Sound 1

sprite 100,pox(px),poy(py),4

For p=1 to 10

sprite 10,pox(px),poy(py+1),2 : Sleep 10

Flip sprite 10 : Sync

Next p

sprite 10,-100,-100,4 : Paste Image 10,pox(px),poy(py+1)

zone(z+11)=0 : Dec jomps

Paste Image 11,pox(ab),poy(ac)

Paste Image 9,47,271 : Paste Image 9,45,127

_writeData(Level,jomps)

If jomps=0

Flag=0:Exit

EndIf

_Looper:

sprite 100,pox(px),poy(py),4

Rem Require Delay

Repeat : sc=Scancode():Until sc=0

Sync

Loop

inc level

Goto Continue

Function _writeData(Level,jomps)

Ink Rgb(255,255,255),0

Text 90,125,Right$(Str$(Level+100),2)

Text 90,270,Right$(Str$(jomps+100),2)

EndFunction

Function Requester(jstring1$,jstring2$)

Wait 500

Create Bitmap 1,320,200

Ink 0,0

Box 0,0,320,200

Ink Rgb(128,192,0),0

Box 10,10,310,190

Ink Rgb(210,210,210),0

Center Text 160,50,jstring1$

Ink Rgb(255,255,255),0

Center Text 160,100,jstring2$

Get Image 5,0,0,320,200

Delete Bitmap 1

sprite 100,-100,-100,4

For t=-150 to 180 Step 30

sprite 15,t,100,5

Sync

Next t

Wait 2000

For t=180 to -450 Step -30

sprite 15,t,100,5

Sync

Next t

Delete Sprite 15

Delete Image 5

Set Text Size 45

EndFunction

Function ButtonAnim(Ax,Ay,Bx,By)

Copy Bitmap 0,Ax-1,Ay-1,Bx,By,0,Ax,Ay,Bx+1,By+1

While MouseClick()=1 : Sync : EndWhile

Copy Bitmap 0,Ax,Ay,Bx+1,By+1,0,Ax-1,Ay-1,Bx,By

EndFunction

Function Make_Button(co1,Left,Top,Right,Bottom,co2,co3,shadow)

Ink 0,0

If shadow=1 Then Box left,top,right,bottom

If shadow=2 Then Box left-2,top-2,right+2,bottom+2

Ink co1,co1

Box left+1,top+1,right-1,bottom-1

Ink co2,co2

Line Left,Bottom,Left,Top : Line Left,Top,Right,Top

Ink co3,co3

Line Right,Top,Right,Bottom : Line Right,Bottom,Left,Bottom

EndFunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Brux
CodeBase Entries:	33

CodeBase - Jompis New Release

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments