Codebase Viewer

TGC Codebase Backup

Simple Link With Beetle... by Count Coley 15th Apr 2006 21:33
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 L 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... 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 X Y EndType `~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ `~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Type Link Name as String Health As Float Experience as Integer Level as Integer Loading Active_Object Players As Integer Sprites Sprite_Frame Sprites_Handle_X Sprites_Handle_Y Animation Direction Image As Integer Handle_X X As Float X1 X2 Position_X As Float Old_X As Float Last_X As Float Handle_Y Y As Float Y1 Y2 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 Loading Active_Object Players As Integer Sprites Sprite_Frame Sprites_Handle_X Sprites_Handle_Y Animation Direction Image As Integer Handle_X X As Float X1 X2 Position_X As Float Old_X As Float Last_X As Float Handle_Y Y As Float Y1 Y2 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 Loading Active_Object Players As Integer Sprites Sprite_Frame Sprites_Handle_X Sprites_Handle_Y Animation Direction Image As Integer Handle_X X As Float X1 X2 Position_X As Float Old_X As Float Last_X As Float Handle_Y Y As Float Y1 Y2 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 Loading Active_Object Players As Integer Sprites Sprite_Frame Sprites_Handle_X Sprites_Handle_Y Animation Direction Image As Integer Handle_X X As Float X1 X2 Position_X As Float Old_X As Float Last_X As Float Handle_Y Y As Float Y1 Y2 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 Loading Active_Object Players As Integer Sprites Sprite_Frame Sprites_Handle_X Sprites_Handle_Y Animation Direction Image As Integer Handle_X X As Float X1 X2 Position_X As Float Old_X As Float Last_X As Float Handle_Y Y As Float Y1 Y2 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 Loading Active_Object Players As Integer Sprites Sprite_Frame Sprites_Handle_X Sprites_Handle_Y Animation Direction Image As Integer Handle_X X As Float X1 X2 Position_X As Float Old_X As Float Last_X As Float Handle_Y Y As Float Y1 Y2 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 Loading Active_Object Players As Integer Sprites Sprite_Frame Sprites_Handle_X Sprites_Handle_Y Animation Direction Image As Integer Handle_X X As Float X1 X2 Position_X As Float Old_X As Float Last_X As Float Handle_Y Y As Float Y1 Y2 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 Loading Active_Object Players As Integer Sprites Sprite_Frame Sprites_Handle_X Sprites_Handle_Y Animation Direction Image As Integer Handle_X X As Float X1 X2 Position_X As Float Old_X As Float Last_X As Float Handle_Y Y As Float Y1 Y2 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 X Y 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() `~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ `~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Do 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 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 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 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 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 347,365,365,365,365,365,365,365,365,365,365,365,365,365,348 Data 347,365,365,365,365,365,365,365,365,365,365,365,365,365,348 Data 347,365,365,365,365,365,365,365,365,365,365,365,365,365,348 Data 347,365,365,365,365,365,365,365,365,365,365,365,365,365,348 Data 347,365,365,365,365,365,365,365,365,365,365,365,365,365,348 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

Simple Link With Beetle... by Count Coley

15th Apr 2006 21:33

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 L

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...

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
                              X
                              Y
                         EndType
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                    Type Link
                                   Name as String
                                   Health As Float
                                   Experience as Integer
                                   Level as Integer

                                   Loading
                                   Active_Object
                                   Players As Integer
                                   Sprites
                                   Sprite_Frame
                                   Sprites_Handle_X
                                   Sprites_Handle_Y
                                   Animation
                                   Direction

                                   Image As Integer
                                   Handle_X
                                   X As Float
                                   X1
                                   X2
                                   Position_X As Float
                                   Old_X As Float
                                   Last_X As Float

                                   Handle_Y
                                   Y As Float
                                   Y1
                                   Y2
                                   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

                                   Loading
                                   Active_Object
                                   Players As Integer
                                   Sprites
                                   Sprite_Frame
                                   Sprites_Handle_X
                                   Sprites_Handle_Y
                                   Animation
                                   Direction

                                   Image As Integer
                                   Handle_X
                                   X As Float
                                   X1
                                   X2
                                   Position_X As Float
                                   Old_X As Float
                                   Last_X As Float

                                   Handle_Y
                                   Y As Float
                                   Y1
                                   Y2
                                   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

                                   Loading
                                   Active_Object
                                   Players As Integer
                                   Sprites
                                   Sprite_Frame
                                   Sprites_Handle_X
                                   Sprites_Handle_Y
                                   Animation
                                   Direction

                                   Image As Integer
                                   Handle_X
                                   X As Float
                                   X1
                                   X2
                                   Position_X As Float
                                   Old_X As Float
                                   Last_X As Float

                                   Handle_Y
                                   Y As Float
                                   Y1
                                   Y2
                                   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

                                   Loading
                                   Active_Object
                                   Players As Integer
                                   Sprites
                                   Sprite_Frame
                                   Sprites_Handle_X
                                   Sprites_Handle_Y
                                   Animation
                                   Direction

                                   Image As Integer
                                   Handle_X
                                   X As Float
                                   X1
                                   X2
                                   Position_X As Float
                                   Old_X As Float
                                   Last_X As Float

                                   Handle_Y
                                   Y As Float
                                   Y1
                                   Y2
                                   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

                                   Loading
                                   Active_Object
                                   Players As Integer
                                   Sprites
                                   Sprite_Frame
                                   Sprites_Handle_X
                                   Sprites_Handle_Y
                                   Animation
                                   Direction

                                   Image As Integer
                                   Handle_X
                                   X As Float
                                   X1
                                   X2
                                   Position_X As Float
                                   Old_X As Float
                                   Last_X As Float

                                   Handle_Y
                                   Y As Float
                                   Y1
                                   Y2
                                   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

                                   Loading
                                   Active_Object
                                   Players As Integer
                                   Sprites
                                   Sprite_Frame
                                   Sprites_Handle_X
                                   Sprites_Handle_Y
                                   Animation
                                   Direction

                                   Image As Integer
                                   Handle_X
                                   X As Float
                                   X1
                                   X2
                                   Position_X As Float
                                   Old_X As Float
                                   Last_X As Float

                                   Handle_Y
                                   Y As Float
                                   Y1
                                   Y2
                                   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

                                   Loading
                                   Active_Object
                                   Players As Integer
                                   Sprites
                                   Sprite_Frame
                                   Sprites_Handle_X
                                   Sprites_Handle_Y
                                   Animation
                                   Direction

                                   Image As Integer
                                   Handle_X
                                   X As Float
                                   X1
                                   X2
                                   Position_X As Float
                                   Old_X As Float
                                   Last_X As Float

                                   Handle_Y
                                   Y As Float
                                   Y1
                                   Y2
                                   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

                                   Loading
                                   Active_Object
                                   Players As Integer
                                   Sprites
                                   Sprite_Frame
                                   Sprites_Handle_X
                                   Sprites_Handle_Y
                                   Animation
                                   Direction

                                   Image As Integer
                                   Handle_X
                                   X As Float
                                   X1
                                   X2
                                   Position_X As Float
                                   Old_X As Float
                                   Last_X As Float

                                   Handle_Y
                                   Y As Float
                                   Y1
                                   Y2
                                   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
                              X
                              Y
                         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()
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                              Do
                                   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
     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

     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

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
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 347,365,365,365,365,365,365,365,365,365,365,365,365,365,348
Data 347,365,365,365,365,365,365,365,365,365,365,365,365,365,348
Data 347,365,365,365,365,365,365,365,365,365,365,365,365,365,348
Data 347,365,365,365,365,365,365,365,365,365,365,365,365,365,348
Data 347,365,365,365,365,365,365,365,365,365,365,365,365,365,348
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