TheGameCreators - CodeBase - Simple Link With Beetle...

Category: Functions

Version: 1.0

Information

Uploaded: 15th Apr 2006 21:33

Modified: 16th Apr 2006 13:05

Author: Count Coley

Summary

This is the base of the Guantlet/Zelda Clone... Same As the Gauntlet/Zelda Clone A removable media is necessary and must be assinged to the Z dirve with a folder Named Link, with Link!!!.DBA And Link!!!.BMP inside the Link folder on the Z drive... This too is a dark basic Professional Code... I will soon Post The Original Dark Basic Code...

Full Description

I couldn't load a 1024 x 678 bitmap with a display resolution of 320 x 240... That's why it was revamped... This is one page of long tidious code with one bitmap, as with the Guantlet/Zelda Code, there are sections that jump here then there but the functions all work and are very tidy in their composure.. and the bitmaps are more conveinent to alter making a game with the creators own sprites...Seriously the Guantlet code is more organized however this source is all in one page, a long one I might add...

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Temp_Screen_Width = 1024

Temp_Screen_Height = 768

Temp_Screen_Width = Screen Width()

Temp_Screen_Height = Screen Height()

Set Display Mode 1024,768,32

Sync Rate 1000

Sync On

`                    Backdrop On

Randomize Timer()

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Type World

Image

EndType

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Type Link

Name as String

Health As Float

Experience as Integer

Level as Integer

Active_Object

Players As Integer

Sprites

Sprite_Frame

Sprites_Handle_X

Sprites_Handle_Y

Animation

Direction

Image As Integer

Handle_X

X As Float

Position_X As Float

Old_X As Float

Last_X As Float

Handle_Y

Y As Float

Position_Y As Float

Last_Y As Float

Old_Y As Float

Speed As Float

Focus

Damage As Integer

Sheild As Integer

Rupees As Integer

Fire

Earth

Water

Air

EndType

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Type Enemies

Beetles

Ghosts

Claws

Bats

Blobs

Hogs

Monkeys

EndType

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Type Bug

Health As Float

Experience as Integer

Level as Integer

Active_Object

Players As Integer

Sprites

Sprite_Frame

Sprites_Handle_X

Sprites_Handle_Y

Animation

Direction

Image As Integer

Handle_X

X As Float

Position_X As Float

Old_X As Float

Last_X As Float

Handle_Y

Y As Float

Position_Y As Float

Last_Y As Float

Old_Y As Float

Speed As Float

Damage As Integer

Sheild As Integer

EndType

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Type Spirit

Health As Float

Experience as Integer

Level as Integer

Active_Object

Players As Integer

Sprites

Sprite_Frame

Sprites_Handle_X

Sprites_Handle_Y

Animation

Direction

Image As Integer

Handle_X

X As Float

Position_X As Float

Old_X As Float

Last_X As Float

Handle_Y

Y As Float

Position_Y As Float

Last_Y As Float

Old_Y As Float

Speed As Float

Damage As Integer

Sheild As Integer

EndType

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Type Dungeon_Return

Health As Float

Experience as Integer

Level as Integer

Active_Object

Players As Integer

Sprites

Sprite_Frame

Sprites_Handle_X

Sprites_Handle_Y

Animation

Direction

Image As Integer

Handle_X

X As Float

Position_X As Float

Old_X As Float

Last_X As Float

Handle_Y

Y As Float

Position_Y As Float

Last_Y As Float

Old_Y As Float

Speed As Float

Damage As Integer

Sheild As Integer

EndType

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Type Vampire

Health As Float

Experience as Integer

Level as Integer

Active_Object

Players As Integer

Sprites

Sprite_Frame

Sprites_Handle_X

Sprites_Handle_Y

Animation

Direction

Image As Integer

Handle_X

X As Float

Position_X As Float

Old_X As Float

Last_X As Float

Handle_Y

Y As Float

Position_Y As Float

Last_Y As Float

Old_Y As Float

Speed As Float

Damage As Integer

Sheild As Integer

EndType

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Type Slime

Health As Float

Experience as Integer

Level as Integer

Active_Object

Players As Integer

Sprites

Sprite_Frame

Sprites_Handle_X

Sprites_Handle_Y

Animation

Direction

Image As Integer

Handle_X

X As Float

Position_X As Float

Old_X As Float

Last_X As Float

Handle_Y

Y As Float

Position_Y As Float

Last_Y As Float

Old_Y As Float

Speed As Float

Damage As Integer

Sheild As Integer

EndType

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Type Pig

Health As Float

Experience as Integer

Level as Integer

Active_Object

Players As Integer

Sprites

Sprite_Frame

Sprites_Handle_X

Sprites_Handle_Y

Animation

Direction

Image As Integer

Handle_X

X As Float

Position_X As Float

Old_X As Float

Last_X As Float

Handle_Y

Y As Float

Position_Y As Float

Last_Y As Float

Old_Y As Float

Speed As Float

Damage As Integer

Sheild As Integer

EndType

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Type Primate

Health As Float

Experience as Integer

Level as Integer

Active_Object

Players As Integer

Sprites

Sprite_Frame

Sprites_Handle_X

Sprites_Handle_Y

Animation

Direction

Image As Integer

Handle_X

X As Float

Position_X As Float

Old_X As Float

Last_X As Float

Handle_Y

Y As Float

Position_Y As Float

Last_Y As Float

Old_Y As Float

Speed As Float

Damage As Integer

Sheild As Integer

EndType

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Type Level

Level_1

Level_2

Level_3

Level_4

Image

EndType

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Dim World(45) As Level

Dim Player(8) As Link

Dim Enemy(256) As Enemies

Dim Beetle(8) As Bug

Dim Ghost(8) As Spirit

Dim Claw(8) As Dungeon_Return

Dim Bat(8) As Vampire

Dim Blob(8)As Slime

Dim Hog(8) As Pig

Dim Monkey(8) As Primate

Dim Boss(8) As Level

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Global Image

Global Tiles

Global Fire

Global Earth

Global Water

Global Air

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Global Lift_Item

Global Shield

Global Found_Sword

Global Attacks

Global Dies

Global Push_Pull

Global Plays_Harp

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Global Screen_Width

Global Screen_Width_Boundary

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Global Screen_Height

Global Screen_Height_Boundary

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Global Scroll_Boundary

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Global X_Map As Float

Global Y_Map As Float

Global Map_Width = 640

Global Map_Height = 480

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Create_Players()

Create_World()

Execute_Player_1()

Create_Beetle_1()

Switches()

SW = 320

SH = 240

` SW = Screen Width()

` SH = Screen Height()

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Sync

Execute_Player_1()

Execute_Beetle_1()

Collision_Check()

Set Cursor 0,0

Print "FPS: ",Screen FPS()

Sync

Loop

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Create_Players()

Initialize_Players()

Load_Width = 1024

Load_Width = Bitmap Width()

Load_Height = 768

Load_Height = Bitmap Height()

Load Bitmap "Z:\Link\Link!!!.Bmp", 0

Set Current Bitmap 0

For Get_Y_Pixels = 001 To 024

For Get_X_Pixels = 001 To 034

Player(0).Image = Image

Get Image Player(0).Image, Player(0).X, Player(0).Y, Player(0).X + 29, Player(0).Y + 29

Image = Image + 1

Player(0).X = Player(0).X + 30

Next Get_X_Pixels

Player(0).Y = Player(0).Y + 30

Player(0).X = 1

Next Get_Y_Pixels

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Create_World()

World(1).Level_1 = Map1

World(2).Level_1 = Map2

World(3).Level_1 = Map3

World(4).Level_1 = Map4

World(5).Level_1 = Map5

World(6).Level_1 = Map6

World(7).Level_1 = Map7

World(8).Level_1 = Map8

World(9).Level_1 = Map9

Fire_Switch = 316

Earth_Switch = 328

Water_Switch = 496

Air_Switch = 508

Tiles = 300

For Container_Y = 001 To 015

X = 1

For Container_X = 001 To 015

Read Map1

Sprite Tiles, X, Y, Map1

Inc Tiles

X = X + 14

Next Container_X

X = 1

Y = Y + 14

If Tiles >= 525 Then Tiles = 0

Next Container_Y

Sprite Fire_Switch,014,014,332

Sprite Earth_Switch,180,014,332

Sprite Water_Switch,014,180,332

Sprite Air_Switch,180,180,332

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Initialize_Players()

Player(1).Focus = 4

Image = 1

Player(0).Players = 0

Player(0).Image = Image

Player(0).X = 1

Player(0).Y = 1

Player(1).Players = 1

Player(1).Speed = 2.5

Player(1).X = 100

Player(1).Y = 100

Player(1).Fire = 1

Player(1).Earth = 35

Player(1).Water = 69

Player(1).Air = 103

Player(1).Image = Player(1).Air

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Execute_Player_1()

Player(1).Last_X = Player(1).X

Player(1).Last_Y = Player(1).Y

Sprite Player(1).Players, Player(1).X, Player(1).Y, Player(1).Air

If Player(1).Focus = 1

If UpKey()

Dec Player(1).Y, Player(1).Speed

Player(1).Image = Player(1).Fire

Inc Player(1).Fire

If Player(1).Fire > 2 Then Player(1).Fire = 1

EndIf

If DownKey()

Inc Player(1).Y, Player(1).Speed

Player(1).Image = Player(1).Fire

Inc Player(1).Fire

If Player(1).Fire > 4 Then Player(1).Fire = 3

EndIf

If LeftKey()

Dec Player(1).X, Player(1).Speed

Player(1).Image = Player(1).Fire

Inc Player(1).Fire

If Player(1).Fire > 6 Then Fire = 5

EndIf

If RightKey()

Inc Player(1).X, Player(1).Speed

Player(1).Image = Player(1).Fire

Inc Player(1).Fire

If Player(1).Fire > 8 Then Player(1).Fire = 7

EndIf

If Player(1).Focus = 2

If UpKey()

Dec Player(1).Y, Player(1).Speed

Player(1).Image = Player(1).Earth

Inc Player(1).Earth

If Player(1).Earth > 36 Then Player(1).Earth = 35

EndIf

If DownKey()

Inc Player(1).Y, Player(1).Speed

Player(1).Image = Player(1).Earth

Inc Player(1).Earth

If Player(1).Earth > 38 Then Player(1).Earth = 37

EndIf

If LeftKey()

Dec Player(1).X, Player(1).Speed

Player(1).Image = Player(1).Earth

Inc Player(1).Earth

If Player(1).Earth > 40 Then Player(1).Earth = 39

EndIf

If RightKey()

Inc Player(1).X, Player(1).Speed

Player(1).Image = Player(1).Earth

Inc Player(1).Earth

If Player(1).Earth > 42 Then Player(1).Earth = 41

EndIf

If Player(1).Focus = 3

If UpKey()

Dec Player(1).Y, Player(1).Speed

Player(1).Image = Player(1).Water

Inc Player(1).Water

If Player(1).Water > 70 Then Player(1).Water = 69

EndIf

If DownKey()

Inc Player(1).Y, Player(1).Speed

Player(1).Image = Water

Inc Player(1).Water

If Water > 72 Then Water = 71

EndIf

If LeftKey()

Dec Player(1).X, Player(1).Speed

Player(1).Image = Player(1).Water

Inc Player(1).Water

If Player(1).Water > 74 Then Player(1).Water = 73

EndIf

If RightKey()

Inc Player(1).X, Player(1).Speed

Player(1).Image = Player(1).Water

Inc Player(1).Water

If Player(1).Water > 76 Then Player(1).Water = 75

EndIf

If Player(1).Focus = 4

If UpKey()

Dec Player(1).Y, Player(1).Speed

Player(1).Image = Player(1).Air

Inc Player(1).Air

If Player(1).Air > 104 Then Player(1).Air = 103

EndIf

If DownKey()

Inc Player(1).Y, Player(1).Speed

Player(1).Image = Player(1).Air

Inc Player(1).Air

If Player(1).Air > 106 Then Player(1).Air = 105

EndIf

If LeftKey()

Dec Player(1).X, Player(1).Speed

Player(1).Image = Player(1).Air

Inc Player(1).Air

If Player(1).Air > 108 Then Player(1).Air = 107

Sync

EndIf

If RightKey()

Inc Player(1).X, Player(1).Speed

Player(1).Image = Player(1).Air

Inc Player(1).Air

If Player(1).Air > 110 Then Player(1).Air = 109

Sync

EndIf

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Create_Beetle_1()

Create_Beetles()

Beetle(1).Speed = 1

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Execute_Beetle_1()

Sleep 25

Beetle(1).Last_X = Beetle(1).X

Beetle(1).Last_Y = Beetle(1).Y

Beetle(1).Direction = Beetle(1).Image

Beetle(1).Image = Earth

UpKey() = Beetle(1).Direction

If UpKey()

Dec Beetle(1).Y, Beetle(1).Speed

Inc Earth

If Earth > 146 Then Earth = 145

Sync

EndIf

If DownKey()

Inc Beetle(1).Y, Beetle(1).Speed

Inc Earth

If Earth > 148 Then Earth = 147

Sync

EndIf

If LeftKey()

Dec Beetle(1).X, Beetle(1).Speed

Beetle(1).Image = Earth

Inc Earth

If Earth > 150 Then Earth = 149

Sync

EndIf

If RightKey()

Inc Beetle(1).X, Beetle(1).Speed

Beetle(1).Image = Earth

Inc Earth

If Earth > 152 Then Earth = 151

Sync

EndIf

Sprite Enemy(1).Beetles, Beetle(1).X, Beetle(1).Y, Beetle(1).Image

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Create_Beetles()

Fire = 137

Earth = 145

Water = 153

Air = 161

Enemy(1).Beetles = 9

Beetle(1).X      = 150

Beetle(1).Y      = 150

Beetle(1).Image  = Fire

Enemy(2).Beetles = 10

Beetle(2).X      = 1

Beetle(2).Y      = 1

Beetle(2).Image  = Fire

Enemy(3).Beetles = 11

Beetle(3).X      = 1

Beetle(3).Y      = 1

Beetle(3).Image  = Fire

Enemy(4).Beetles = 12

Beetle(4).X      = 1

Beetle(4).Y      = 1

Beetle(4).Image  = Fire

Enemy(5).Beetles = 13

Beetle(5).X      = 1

Beetle(5).Y      = 1

Beetle(5).Image  = Fire

Enemy(6).Beetles = 14

Beetle(6).X      = 1

Beetle(6).Y      = 1

Beetle(6).Image  = Fire

Enemy(7).Beetles = 15

Beetle(7).X      = 1

Beetle(7).Y      = 1

Beetle(7).Image  = Fire

Enemy(8).Beetles = 16

Beetle(8).X      = 1

Beetle(8).Y      = 1

Beetle(8).Image  = Fire

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Create_Ghosts()

Fire = 1

Earth = 35

Water = 69

Air = 103

Enemy(1).Ghosts = 17

Ghost(1).X      = 1

Ghost(1).Y      = 1

Ghost(1).Image  = 1

Enemy(2).Ghosts = 18

Ghost(2).X      = 1

Ghost(2).Y      = 1

Ghost(2).Image  = 1

Enemy(3).Ghosts = 19

Ghost(3).X      = 1

Ghost(3).Y      = 1

Ghost(3).Image  = 1

Enemy(4).Ghosts = 20

Ghost(4).X      = 1

Ghost(4).Y      = 1

Ghost(4).Image  = 1

Enemy(5).Ghosts = 21

Ghost(5).X      = 1

Ghost(5).Y      = 1

Ghost(5).Image  = 1

Enemy(6).Ghosts = 22

Ghost(6).X      = 1

Ghost(6).Y      = 1

Ghost(6).Image  = 1

Enemy(7).Ghosts = 23

Ghost(7).X      = 1

Ghost(7).Y      = 1

Ghost(7).Image  = 1

Enemy(8).Ghosts = 24

Ghost(8).X      = 1

Ghost(8).Y      = 1

Ghost(8).Image  = 1

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Create_Claws()

Fire = 1

Earth = 35

Water = 69

Air = 103

Enemy(1).Claws = 25

Claw(1).X      = 1

Claw(1).Y      = 1

Claw(1).Image  = 1

Enemy(2).Claws = 26

Claw(2).X      = 1

Claw(2).Y      = 1

Claw(2).Image  = 1

Enemy(3).Claws = 27

Claw(3).X      = 1

Claw(3).Y      = 1

Claw(3).Image  = 1

Enemy(4).Claws = 28

Claw(4).X      = 1

Claw(4).Y      = 1

Claw(4).Image  = 1

Enemy(5).Claws = 29

Claw(5).X      = 1

Claw(5).Y      = 1

Claw(5).Image  = 1

Enemy(6).Claws = 30

Claw(6).X      = 1

Claw(6).Y      = 1

Claw(6).Image  = 1

Enemy(7).Claws = 31

Claw(7).X      = 1

Claw(7).Y      = 1

Claw(7).Image  = 1

Enemy(8).Claws = 32

Claw(8).X      = 1

Claw(8).Y      = 1

Claw(8).Image  = 1

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Create_Bats()

Fire = 1

Earth = 35

Water = 69

Air = 103

Enemy(1).Bats  = 33

Bat(1).X       = 1

Bat(1).Y       = 1

Bat(1).Image   = 1

Enemy(2).Bats  = 34

Bat(2).X       = 1

Bat(2).Y       = 1

Bat(2).Image   = 1

Enemy(3).Bats  = 35

Bat(3).X       = 1

Bat(3).Y       = 1

Bat(3).Image   = 1

Enemy(4).Bats  = 36

Bat(4).X       = 1

Bat(4).Y       = 1

Bat(4).Image   = 1

Enemy(5).Bats  = 37

Bat(5).X       = 1

Bat(5).Y       = 1

Bat(5).Image   = 1

Enemy(6).Bats  = 38

Bat(6).X       = 1

Bat(6).Y       = 1

Bat(6).Image   = 1

Enemy(7).Bats  = 39

Bat(7).X       = 1

Bat(7).Y       = 1

Bat(7).Image   = 1

Enemy(8).Bats  = 40

Bat(8).X       = 1

Bat(8).Y       = 1

Bat(8).Image   = 1

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Create_Blobs()

Fire = 1

Earth = 35

Water = 69

Air = 103

Enemy(1).Blobs = 41

Blob(1).X      = 1

Blob(1).Y      = 1

Blob(1).Image  = 1

Enemy(2).Blobs = 42

Blob(2).X      = 1

Blob(2).Y      = 1

Blob(2).Image  = 1

Enemy(3).Blobs = 43

Blob(3).X      = 1

Blob(3).Y      = 1

Blob(3).Image  = 1

Enemy(4).Blobs = 44

Blob(4).X      = 1

Blob(4).Y      = 1

Blob(4).Image  = 1

Enemy(5).Blobs = 45

Blob(5).X      = 1

Blob(5).Y      = 1

Blob(5).Image  = 1

Enemy(6).Blobs = 46

Blob(6).X      = 1

Blob(6).Y      = 1

Blob(6).Image  = 1

Enemy(7).Blobs = 47

Blob(7).X      = 1

Blob(7).Y      = 1

Blob(7).Image  = 1

Enemy(8).Blobs = 48

Blob(8).X      = 1

Blob(8).Y      = 1

Blob(8).Image  = 1

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Create_Hogs()

Fire = 1

Earth = 35

Water = 69

Air = 103

Enemy(1).Hogs  = 49

Hog(1).X       = 1

Hog(1).Y       = 1

Hog(1).Image   = 1

Enemy(2).Hogs  = 50

Hog(2).X       = 1

Hog(2).Y       = 1

Hog(2).Image   = 1

Enemy(3).Hogs  = 51

Hog(3).X       = 1

Hog(3).Y       = 1

Hog(3).Image   = 1

Enemy(4).Hogs  = 52

Hog(4).X       = 1

Hog(4).Y       = 1

Hog(4).Image   = 1

Enemy(5).Hogs  = 53

Hog(5).X       = 1

Hog(5).Y       = 1

Hog(5).Image   = 1

Enemy(6).Hogs  = 54

Hog(6).X       = 1

Hog(6).Y       = 1

Hog(6).Image   = 1

Enemy(7).Hogs  = 55

Hog(7).X       = 1

Hog(7).Y       = 1

Hog(7).Image   = 1

Enemy(8).Hogs  = 56

Hog(8).X       = 1

Hog(8).Y       = 1

Hog(8).Image   = 1

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Create_Monkeys()

Fire = 1

Earth = 35

Water = 69

Air = 103

Enemy(1).Monkeys = 57

Monkey(1).X      = 1

Monkey(1).Y      = 1

Monkey(1).Image  = 1

Enemy(2).Monkeys = 58

Monkey(2).X      = 1

Monkey(2).Y      = 1

Monkey(2).Image  = 1

Enemy(3).Monkeys = 59

Monkey(3).X      = 1

Monkey(3).Y      = 1

Monkey(3).Image  = 1

Enemy(4).Monkeys = 60

Monkey(4).X      = 1

Monkey(4).Y      = 1

Monkey(4).Image  = 1

Enemy(5).Monkeys = 61

Monkey(5).X      = 1

Monkey(5).Y      = 1

Monkey(5).Image  = 1

Enemy(6).Monkeys = 62

Monkey(6).X      = 1

Monkey(6).Y      = 1

Monkey(6).Image  = 1

Enemy(7).Monkeys = 63

Monkey(7).X      = 1

Monkey(7).Y      = 1

Monkey(7).Image  = 1

Enemy(8).Monkeys = 64

Monkey(8).X      = 1

Monkey(8).Y      = 1

Monkey(8).Image  = 1

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Collision_Check()

If Sprite Collision(9, Player(1).Players)>0

Beetle(1).X = Beetle(1).Last_X

Beetle(1).Y = Beetle(1).Last_Y

EndIf

EndFunction

Function Switches()

Fire_Switch = 316

Earth_Switch = 328

Water_Switch = 496

Air_Switch = 508

If Sprite Collision(Fire_Switch,Player(1).Players)>0

Player(1).Earth = Player(1).Fire

Player(1).Water = Player(1).Fire

Player(1).Air = Player(1).Fire

Player(1).Focus = 1

Sprite Player(1).Players, Player(1).X, Player(1).Y, Player(1).Fire

EndIf

If Sprite Collision(Earth_Switch, Player(1).Players)>0

Player(1).Fire = Player(1).Earth

Player(1).Water = Player(1).Earth

Player(1).Air = Player(1).Earth

Player(1).Focus = 2

Sprite Player(1).Players, Player(1).X, Player(1).Y, Player(1).Earth

EndIf

If Sprite Collision(Water_Switch, Player(1).Players)>0

Player(1).Fire = Player(1).Water

Player(1).Earth = Player(1).Water

Player(1).Air = Player(1).Water

Player(1).Focus = 3

Sprite Player(1).Players, Player(1).X, Player(1).Y, Player(1).Water

EndIf

If Sprite Collision(Air_Switch, Player(1).Players)>0

Player(1).Fire = Player(1).Air

Player(1).Earth = Player(1).Air

Player(1).Water = Player(1).Air

Player(1).Focus = 4

Sprite Player(1).Players, Player(1).X, Player(1).Y, Player(1).Air

EndIf

EndFunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Map1:

Data 341,346,366,369,370,346,346,346,346,346,346,346,346,346,342

Data 347,332,365,365,365,365,365,365,365,365,365,365,365,332,348

Data 347,365,365,365,365,365,365,365,365,365,365,365,365,365,372

Data 347,365,365,365,365,365,365,365,365,365,365,365,365,365,371

Data 347,365,365,365,365,365,365,365,365,365,365,365,365,365,348

Data 373,365,365,365,365,365,365,365,365,365,365,365,365,365,348

Data 374,365,365,365,365,365,365,365,365,365,365,365,365,365,348

Data 347,332,365,365,365,365,365,365,365,365,365,365,365,332,348

Data 343,345,345,345,345,345,345,345,345,345,345,367,368,345,344

Map2:

Data 341,346,346,346,346,346,346,346,346,342,341,346,346,346,346,346,346,346,346,346,342,341,346,346,346,346,346,346,346,346,346,346,342,341,346,346,346,346,346,342

Data 347,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,348

Data 347,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,365,365,348,347,365,365,365,365,356,355

Data 347,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,356,355,353,354,365,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365

Data 347,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,348,347,365,365,365,365,356,355

Data 347,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,348,347,365,350,365,350,365,348

Data 347,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,356,355,353,354,365,365,365,365,365,365,365,365,365,348,343,345,349,365,352,345,344

Data 347,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,365,365,348,341,346,351,365,351,346,342

Data 347,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,365,348,343,345,345,345,345,345,345,345,345,345,345,344,347,365,352,365,352,365,348

Data 347,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,365,348,341,346,346,346,346,346,346,346,346,346,346,342,347,365,365,365,365,365,348

Data 347,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,348

Data 347,365,365,365,365,365,365,365,365,348,343,345,345,345,365,365,365,365,345,345,344,347,365,365,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,348

Data 343,345,345,365,365,365,345,345,345,344,341,346,346,346,365,365,365,365,346,346,346,347,365,365,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,348

Data 341,346,346,365,365,365,346,346,346,342,347,365,365,365,365,365,365,365,365,356,355,353,354,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,348

Data 347,365,365,365,365,365,365,365,365,348,347,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,365,348

Download

Please login to download

Comments

No comments yet.

Author Name:	Count Coley
CodeBase Entries:	2

CodeBase - Simple Link With Beetle...

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments