Sorry your browser is not supported!

`Setup screen rate
syncrate = 40
sync on
sync rate syncrate

`Setup misc
disable escapekey

`Setup window to on
set window on

`Allow the regular window outlook
set window layout 1,1,1

`Position the window neatly
set window position 100,200

`Regular screen size
set window size 640,480

`Put in the title
set window title "JonoGame 2d - By Jonathan Skinner "

`Setup a welcome

`Db
load image "media/logow.bmp",1
paste image 1,220,100
text 220,250,"Power of DarkBASIC Inside"
text 220,270,"http://www.thegamecreators.com/"
wait key
cls

`JG2d
load image "media/logoj.bmp",1
paste image 1,160,150
text 200,230,"Programmed By - Jonathan Skinner"
text 200,250,"Design By - Jonathan Skinner"
wait key
cls

`Jg2d logo
load image "media/logoz.bmp",1
paste image 1,160,150
text 170,160,"JONOGAME 2D"
load image "media/logow.bmp",2
paste image 2,30,100
load image "media/logoj.bmp",3
paste image 3,340,130
text 160,270,"PRESS ANY KEY TO START!!"
wait key
cls

`New Project
New_proj = 1
if New_proj = 1
Set cursor 1,10
ink rgb(255,0,0),1
Print "Welcome to the Project Magician!"
Print "If you want to work on a project type none in all fields"
ink rgb(0,255,0),2
Input "Desired Project Folder Name: ";projectfolder$
endif

if projectfolder$ = "none"
cancel = 1
else
make directory "C:\"+projectfolder$
ink rgb(0,255,255),3
Input "Desired Project Name: ";projectname$
endif

if projectname$ = "none" and cancel = 1
gosub edit
else
ink rgb(255,0,255),4
Print "All Done Press Any Key"
wait key
cls
gosub edit
endif

cd "C:\"+projectfolder$
`The Power Code
edit:

`Set the text color to white and give it the standard id 1
ink rgb(255,255,255),1

Remstart
#############Establish the engine & main loop
Remend

`Start the main loop
do

`Get rid of the old cursor
if cursorno = 1
if sprite exist(200) then hide sprite 200
sprite 60,mousex(),mousey(),100
cursorgo = 0
endif

`Clear Screen
cls

Remstart
#########Setup toolbar and buttons
Remend

`Paste the toolbar image on screen
load image "media/toolbar_image.bmp",1
paste image 1,1,8

`Make the file button
load image "media/file.bmp",2
sprite 1,3,13,2

`Make the add button
load image "media/add.bmp",3
sprite 2,33,13,3

`Make the editor button
load image "media/editor.bmp",4
sprite 3,63,13,4

`Make the game button
load image "media/game.bmp",5
sprite 4,93,13,5

`Make the help button
load image "media/help.bmp",6
sprite 5,123,13,6

Remstart
#########HUD
Remend

`Opaque
set text opaque

`Display the mouse x
text 1,35,"Mouse X: "+str$(mousex())

`Display the mouse y
text 110,35,"Mouse Y: "+str$(mousey())

`Load the mouse image
load image "media/mouse_image.bmp",200

`Put a mouse image on the screen
sprite 100,mousex(),mousey(),200

`Make the mouse hidden so we can see my mouse only
hide mouse

Remstart
#############Establish cursor code
Remend

`Load the cursor image hehe
load image "media/thingamabob.bmp",300

`If the mouse is on or below the grids allow it to work and
`traverse between mice
`Get rid of the old cursor
if cursorno = 1
cursorgo = 0
endif
if cursorno = 0 then cursorgo = 1
if mousey() > 55 and cursorgo = 1
sprite 200,mousex(),mousey(),300
if sprite exist(200) = 1 and mousey() > 55 then show sprite 200
hide sprite 100
else
if sprite exist(200) =1 and sprite exist(100) = 1 then hide sprite 200:show sprite 100
endif

Remstart
#############Establish the Grid!
Remend

`Load the universal "parent" image
load image "media/grid.bmp",400

`Setup the grid positioning
for posx = 1 to 640 step 27
paste image 400,posx,65
next posx

for posx2 = 1 to 640 step 27
paste image 400,posx2,92
next posx2

for posx3 = 1 to 640 step 27
paste image 400,posx3,119
next posx3

for posx4 = 1 to 640 step 27
paste image 400,posx4,146
next posx4

for posx5 = 1 to 640 step 27
paste image 400,posx5,173
next posx5

for posx6 = 1 to 640 step 27
paste image 400,posx6,200
next posx6

for posx7 = 1 to 640 step 27
paste image 400,posx7,227
next posx7

for posx8 = 1 to 640 step 27
paste image 400,posx8,254
next posx8

for posx9 = 1 to 640 step 27
paste image 400,posx9,281
next posx9

for posx10 = 1 to 640 step 27
paste image 400,posx10,308
next posx10

for posx11 = 1 to 640 step 27
paste image 400,posx11,335
next posx11

for posx12 = 1 to 640 step 27
paste image 400,posx12,362
next posx12

for posx13 = 1 to 640 step 27
paste image 400,posx13,389
next posx13

for posx14 = 1 to 640 step 27
paste image 400,posx14,416
next posx14

for posx15 = 1 to 640 step 27
paste image 400,posx15,443
next posx15

Remstart
############Establish the Editor Button
Remend
if sprite collision(3,100) = 1 and mouseclick() = 1 then editor = 1

if editor = 1
message$ = "F>ile Manager S>cripter D>irectory M>ore..."
if inkey$() = "p" or inkey$() = "p" then painter = 1:editor = 0
if inkey$() = "s" or inkey$() = "S" then scripter = 1:editor = 0
if inkey$() = "d" or inkey$() = "D" then direct = 1:editor = 0
else
message$ = "None"
editor = 0
endif



Remstart
###############Establish the Add button
Remend

`Mouseclicked the button?
if sprite collision(2,100) = 1 and mouseclick() = 1 then add =1:other = 0:game = 0:file_start = 0:editor = 0:help = 0
load image "media/adding.bmp",500

`Key shortcut
if inkey$() = "=" or inkey$() = "+" then add = 1
load image "media/adding.bmp",500

`The Add Button
if add = 1
paste image 500,33,50
cursorno = 0
cursorgo = 1
load image "media/text.bmp",501
paste image 501,43,100
sprite 501,43,100,501
hide sprite 501
load image "media/image.bmp",502
paste image 502,43,150
sprite 502,43,150,502
hide sprite 502
load image "media/music.bmp",503
paste image 503,123,100
sprite 503,123,100,503
hide sprite 503
load image "media/level.bmp",504
paste image 504,123,150
sprite 504,123,150,504
hide sprite 504
load image "media/tile.bmp",505
paste image 505,43,200
sprite 505,43,200,505
hide sprite 505
load image "media/exit2.bmp",506
paste image 506,123,200
sprite 506,123,200,506
hide sprite 506
if mouseclick() = 1 and sprite collision(200,501) = 1 then text2 = 1:add = 0
if mouseclick() = 1 and sprite collision(200,502) = 1 then image = 1:add = 0
if mouseclick() = 1 and sprite collision(200,506) = 1 then add = 0
endif

`Image
if image = 1
imagecount = 700
if imagecount = 1700 then imagecount = 700
arraycount = arraycount + 1
imagecount = imagecount + 1
tag01 = 1
paste image 500,33,50
set cursor 48,80
ink rgb(255,0,0),2
dim imagename$(32)
Print "Note: All Files Will Be Loaded From"
set cursor 48,100
Print "Your Project Folder."
set cursor 48,120
Input "Imagename: ";imagename$(arraycount)
set cursor 48,140
image = 2
endif
if image = 2
paste image 500,33,50
set cursor 48,80
Print "Note: All Files Will Be Loaded From"
set cursor 48,100
Print "Your Project Folder."
set cursor 48,120
Print "Imagename: ";imagename$(arraycount)
set cursor 48,140
Print "Loading - Image ";imagename$
load image imagename$(arraycount)+".bmp",imagecount
set cursor 48,180
Print "All Done - Press The ` Key To End Application"
if inkey$() = "`" then image = 0:paste_image = 1
endif

if paste_image =1 and mouseclick() = 1 then paste image imagecount,mousex(),mousey():paste_image = 0

Remstart
###############Establish Game Button
Remend

`Game
if sprite collision(4,100) = 1 and mouseclick() = 1 then  game = 1:other = 0:file_start = 0:add = 0:editor = 0:help = 0

if game = 1
Message$ = "C>onfiguration, or G>ame Creation Values"
if inkey$() = "C" or inkey$() = "c" then config = 1:game = 0
if inkey$() = "G" or inkey$() = "g" then setup = 1:game = 0
else
message$ = "None"
game = 0
endif

if setup = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
Ink rgb(0,255,0),1
next a
set cursor 1,10
ink rgb(255,255,0),1
Input "Name Your Game> ";gamename$
Input "Creator's Name(Your Name)> ";urname$
Input "Date> ";date
Input "Project Folder Name> ";projectname$
projectname = 1
setup = 0
gosub edit
endif


if config = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
Ink rgb(0,255,0),1
next a
set cursor 1,10
Input "Sync Rate: ";gamerate
Input "Window Size1: ";winsize
Input "Window Size2: ";winsize2
Input "Window Title: ";wintitle$
set_disp = 0
win_set = 0
config = 0
game = 0
gosub edit
endif

`help
if sprite collision(5,100) = 1 and mouseclick() = 1 then help = 1:other = 0:game = 0:add = 0:editor = 0:file_start = 0

if help = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
Print "JonoGame 2d Manual - By: Jonathan Skinner"
ink rgb(0,255,0),1
Print
Print "These are the troubleshooting or MISC sections"
Print "A>bout JonoGame 2d"
Print "R>eadme"
Print "G>lossary"
Print "S>cripter Tutorials"
Print
ink rgb(255,255,0),1
Print "Below are the tutorial sections"
Print "1>Chapter 1 - Welcome"
Print "2>Chapter 2 - Making a Ball & Paddle/Bat Game"
Print "3>Chapter 3 - Making a Space Shooter"
Print "4>Chapter 4 - Making a Fighter Game"
Print "5>Chapter 5 - Making a Pac-Man Clone"
Print "6>Chapter 6 - Making a Quiz Game"
Print "7>Chapter 7 - Making a Target Shoot Out Game"
Print "8>Chapter 8 - Making a Adventure Game"
Print "9>Chapter 9 - Side-Scrolling"
Print "10>Chapter 10 - The Quiz"
Print
ink rgb(255,0,0),1
Print "Below are the advance design technique tips and tuts"
Print "11>Chapter 11 - Giving the Illusion of 3d"
Print "12>Chapter 12 - Isometric Games"
Print "13>Chapter 13 - Animations, Applications, and Presentations"
Print "14>Chapter 14 - Advanced AI"
Print "15>Chapter 15 - Advanced Techniques"
Print
Print "<space> Back to Editor"
if spacekey() = 1 then help = 0:gosub edit
if inkey$() = "A" or inkey$() = "a" then about = 1:help = 0
endif

if about = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
ink rgb(192,192,192),1
Print "JonoGame 2d - Manual - Section 1: About"
Print "JonoGame 2d was originally created as a science fair project."
endif
`file
if sprite collision(1,100) = 1 and mouseclick() = 1 then file_start = 1:other = 0:game = 0:add = 0:editor = 0:help = 0

`Refresh the screen
sync
loop

`Version: 1.0
Remstart
###############################
#Begin Source Code            #
###############################
Remend

`Setup screen rate
syncrate = 40
sync on
sync rate syncrate

`Setup misc
disable escapekey

`Setup window to on
set window on

`Allow the regular window outlook
set window layout 1,1,1

`Position the window neatly
set window position 100,200

`Regular screen size
set window size 640,480

`Put in the title
set window title "Game Developer - By Jonathan Skinner "

`Setup a welcome

`Db
load image "media/logow.bmp",1
paste image 1,220,100
text 220,250,"Power of DarkBASIC Inside"
text 220,270,"http://www.thegamecreators.com/"
wait key
cls

`JG2d
load image "media/logoj.bmp",1
paste image 1,160,150
text 200,230,"Programmed By - Jonathan Skinner"
text 200,250,"Design By - Jonathan Skinner"
text 200,270,"Copyright(C) 2006 Jonathan Skinner"
wait key
cls

`New Project
New_proj = 1
if New_proj = 1
Set cursor 1,10
ink rgb(255,0,0),1
Print "Welcome to the Project Magician!"
Print "If you want to work on a project type none in all fields"
ink rgb(0,255,0),2
Input "Desired Project Folder Name: ";projectfolder$
endif

if projectfolder$ = "none"
cancel = 1
else
make directory "C:JonoGame 2dMy Projects"+projectfolder$
ink rgb(0,255,255),3
Input "Desired Project Name: ";projectname$
endif

if projectname$ = "none" and cancel = 1
gosub edit
else
ink rgb(255,0,255),4
Print "All Done Press Any Key"
wait key
cls
gosub edit
endif


`The Power Code
edit:

`Set the text color to white and give it the standard id 1
ink rgb(255,255,255),1

Remstart
#############Establish the engine & main loop
Remend

`Start the main loop
do

`Get rid of the old cursor
if cursorno = 1
if sprite exist(200) then hide sprite 200
sprite 60,mousex(),mousey(),100
cursorgo = 0
endif

`Clear Screen
cls

Remstart
#########Setup toolbar and buttons
Remend

`Paste the toolbar image on screen
load image "media/toolbar_image.bmp",1
paste image 1,1,8

`Make the file button
load image "media/file.bmp",2
sprite 1,3,13,2

`Make the add button
load image "media/add.bmp",3
sprite 2,33,13,3

`Make the editor button
load image "media/editor.bmp",4
sprite 3,63,13,4

`Make the game button
load image "media/game.bmp",5
sprite 4,93,13,5

`Make the help button
load image "media/help.bmp",6
sprite 5,123,13,6

`Make the view button
load image "media/view.bmp",60000
sprite 7,143,13,60000

Remstart
#########HUD
Remend

`Opaque
set text opaque

`Display the mouse x
text 1,35,"Mouse X: "+str$(mousex())

`Display the mouse y
text 110,35,"Mouse Y: "+str$(mousey())

`Load the mouse image
load image "media/mouse_image.bmp",200

`Put a mouse image on the screen
sprite 100,mousex(),mousey(),200

`Make the mouse hidden so we can see my mouse only
hide mouse

Remstart
#############Establish cursor code
Remend

`Load the cursor image hehe
load image "media/thingamabob.bmp",300

`If the mouse is on or below the grids allow it to work and
`traverse between mice
`Get rid of the old cursor
if cursorno = 1
cursorgo = 0
endif
if cursorno = 0 then cursorgo = 1
if mousey() > 55 and cursorgo = 1
sprite 200,mousex(),mousey(),300
if sprite exist(200) = 1 and mousey() > 55 then show sprite 200
hide sprite 100
else
if sprite exist(200) =1 and sprite exist(100) = 1 then hide sprite 200:show sprite 100
endif

Remstart
#############Establish the Grid!
Remend

`Load the universal "parent" image
load image "media/grid.bmp",400

`Setup the grid positioning
for posx = 1 to 640 step 27
paste image 400,posx,65
next posx

for posx2 = 1 to 640 step 27
paste image 400,posx2,92
next posx2

for posx3 = 1 to 640 step 27
paste image 400,posx3,119
next posx3

for posx4 = 1 to 640 step 27
paste image 400,posx4,146
next posx4

for posx5 = 1 to 640 step 27
paste image 400,posx5,173
next posx5

for posx6 = 1 to 640 step 27
paste image 400,posx6,200
next posx6

for posx7 = 1 to 640 step 27
paste image 400,posx7,227
next posx7

for posx8 = 1 to 640 step 27
paste image 400,posx8,254
next posx8

for posx9 = 1 to 640 step 27
paste image 400,posx9,281
next posx9

for posx10 = 1 to 640 step 27
paste image 400,posx10,308
next posx10

for posx11 = 1 to 640 step 27
paste image 400,posx11,335
next posx11

for posx12 = 1 to 640 step 27
paste image 400,posx12,362
next posx12

for posx13 = 1 to 640 step 27
paste image 400,posx13,389
next posx13

for posx14 = 1 to 640 step 27
paste image 400,posx14,416
next posx14

for posx15 = 1 to 640 step 27
paste image 400,posx15,443
next posx15

Remstart
############Establish the Editor Button
Remend
if sprite collision(3,100) = 1 and mouseclick() = 1 then editor = 1

if editor = 1
message$ = "F>ile Manager S>cripter D>irectory M>ore..."
if inkey$() = "p" or inkey$() = "p" then painter = 1:editor = 0
if inkey$() = "s" or inkey$() = "S" then scripter = 1:editor = 0
if inkey$() = "d" or inkey$() = "D" then direct = 1:editor = 0
else
message$ = "None"
editor = 0
endif



Remstart
###############Establish the Add button
Remend

`Mouseclicked the button?
if sprite collision(2,100) = 1 and mouseclick() = 1 then add =1:other = 0:game = 0:file_start = 0:editor = 0:help = 0
load image "media/adding.bmp",500

`Key shortcut
if inkey$() = "=" or inkey$() = "+" then add = 1
load image "media/adding.bmp",500

`The Add Button
if add = 1
paste image 500,33,50
cursorno = 0
cursorgo = 1
load image "media/text.bmp",501
paste image 501,43,100
sprite 501,43,100,501
hide sprite 501
load image "media/image.bmp",502
paste image 502,43,150
sprite 502,43,150,502
hide sprite 502
load image "media/music.bmp",503
paste image 503,123,100
sprite 503,123,100,503
hide sprite 503
load image "media/level.bmp",504
paste image 504,123,150
sprite 504,123,150,504
hide sprite 504
load image "media/tile.bmp",505
paste image 505,43,200
sprite 505,43,200,505
hide sprite 505
load image "media/exit2.bmp",506
paste image 506,123,200
sprite 506,123,200,506
hide sprite 506
if mouseclick() = 1 and sprite collision(200,501) = 1 then text2 = 1:add = 0
if mouseclick() = 1 and sprite collision(200,502) = 1 then image = 1:add = 0
if mouseclick() = 1 and sprite collision(200,506) = 1 then add = 0

endif

`Image
if image = 1
imagecount = 700
if imagecount = 1700 then imagecount = 700
imagecount = imagecount + 1
tag01 = 1
paste image 500,33,50
set cursor 48,80
ink rgb(255,0,0),2
dim imagename$(32)
dim path$(32)
Input "Imagename: ";imagename$
set cursor 48,100
if file exist(imagename$) = 0 then set cursor 48,100:Print "Image Do Not Exist!":image = 0
set cursor 48,160
image = 2
endif
if image = 2
paste image 500,33,50
set cursor 48,80
Print "Imagename: ";imagename$(arraycount)
set cursor 48,100
Print "Loading - Image ";imagename$
load image imagename$,imagecount
set cursor 48,120
Print "You can now view your added images under the view tab"
set cursor 48,140
Print "Successfully completed. Press ` Key Please."
if inkey$() = "`" then image = 0:tag_image = 1
endif

`Get the image xpos & ypos
dim imagex(1000)
imagex(imagecount) = mousex()

dim imagey(1000)
imagey(imagecount) = mousey()

dim tagidbmp(1000)
tagidbmp(imagecount) = 1

`Is the user clicks paste the image then take away the authority



Remstart
###############Establish Game Button
Remend

`Game
if sprite collision(4,100) = 1 and mouseclick() = 1 then  game = 1:other = 0:file_start = 0:add = 0:editor = 0:help = 0

if game = 1
Message$ = "C>onfiguration, or G>ame Creation Values"
if inkey$() = "C" or inkey$() = "c" then config = 1:game = 0
if inkey$() = "G" or inkey$() = "g" then setup = 1:game = 0
else
message$ = "None"
game = 0
endif

if setup = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
Ink rgb(0,255,0),1
next a
set cursor 1,10
ink rgb(255,255,0),1
Input "Name Your Game> ";gamename$
Input "Creator's Name(Your Name)> ";urname$
Input "Date> ";date
Input "Project Folder Name> ";projectname$
projectname = 1
setup = 0
gosub edit
endif


if config = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
Ink rgb(0,255,0),1
next a
set cursor 1,10
Input "Sync Rate: ";gamerate
Input "Window Size1: ";winsize
Input "Window Size2: ";winsize2
Input "Window Title: ";wintitle$
set_disp = 0
win_set = 0
config = 0
game = 0
gosub edit
endif

`help
if sprite collision(5,100) = 1 and mouseclick() = 1 then help = 1:other = 0:game = 0:add = 0:editor = 0:file_start = 0

if help = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
Print "JonoGame 2d Manual - By: Jonathan Skinner"
ink rgb(0,255,0),1
Print
Print "These are the troubleshooting or MISC sections"
Print "A>bout JonoGame 2d"
Print "R>eadme"
Print "G>lossary"
Print "S>cripter Tutorials"
Print
ink rgb(255,255,0),1
Print "Below are the tutorial sections"
Print "1>Chapter 1 - Welcome"
Print "2>Chapter 2 - Making a Ball & Paddle/Bat Game"
Print "3>Chapter 3 - Making a Space Shooter"
Print "4>Chapter 4 - Making a Fighter Game"
Print "5>Chapter 5 - Making a Pac-Man Clone"
Print "6>Chapter 6 - Making a Quiz Game"
Print "7>Chapter 7 - Making a Target Shoot Out Game"
Print "8>Chapter 8 - Making a Adventure Game"
Print "9>Chapter 9 - Side-Scrolling"
Print "10>Chapter 10 - The Quiz"
Print
ink rgb(255,0,0),1
Print "Below are the advance design technique tips and tuts"
Print "11>Chapter 11 - Giving the Illusion of 3d"
Print "12>Chapter 12 - Isometric Games"
Print "13>Chapter 13 - Animations, Applications, and Presentations"
Print "14>Chapter 14 - Advanced AI"
Print "15>Chapter 15 - Advanced Techniques"
Print
Print "<space> Back to Editor"
if spacekey() = 1 then help = 0:gosub edit
if inkey$() = "A" or inkey$() = "a" then about = 1:help = 0
endif

if about = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
ink rgb(192,192,192),1
Print "JonoGame 2d - Manual - Section 1: About"
Print "JonoGame 2d was originally created as a science fair project."
endif
`file
if sprite collision(1,100) = 1 and mouseclick() = 1 then file_start = 1:other = 0:game = 0:add = 0:editor = 0:help = 0

`Refresh the screen
sync
loop

`Version: 1.0
Remstart
###############################
#Begin Source Code            #
###############################
Remend

`Install if not run

if file exist("C:Game DeveloperGDFilesgamedevinstall.gdc") = 1 then openup = 1

if openup = 1

open to read 1,"C:Game DeveloperGDFilesgamedevinstall.gdc"
read string 1,str$(gamedevexist)
read string 1,str$(nodev)
close file 1
`The new installion values

gamedevexist2 = val(gamedevexist$)
nodev2 = val(nodev$)

if nodev2 = 0 and gamedevexist2 = 1 then gosub startgd
if nodev2 = 1 and gamedevexist2 = 0 then nodev = 1
if nodev2 = 0 and gamedevexist2 = 0 then nodev = 1
openup = 0
endif



`If true value is nodev then perform the install action


if nodev = 1 then gamedevexist = 0
if nodev = 0 then gamedevexist = 1:gosub startgd

`Install Setup - more will be added
if gamedevexist = 0
Print "Perparing to Install Game Developer"
ink rgb(255,0,0),1
Print "Crutical Directory Installing Phase 01 of 04"
make directory "C:Game Developer"
make directory "C:Game DeveloperBmps"
make directory "C:Game DeveloperMusic"
make directory "C:Game DeveloperSounds"
make directory "C:Game DeveloperMy Games"
make directory "C:Game DeveloperScripts"
make directory "C:Game DeveloperGDFiles"
open to write 1,"C:Game DeveloperGDFilesgamdevinstall.gdc"
gamedevexist = 1
nodev = 0
write string 1,Str$(gamedevexist)
write string 1,str$(nodev)
close file 1
endif

`Start Game Developer
startgd:

`Setup screen rate
syncrate = 40
sync on
sync rate syncrate

`Setup misc
disable escapekey

`Setup window to on
set window on

`Allow the regular window outlook
set window layout 1,1,1

`Position the window neatly
set window position 100,200

`Regular screen size
set window size 640,480

`Put in the title
set window title "Game Developer - By Jonathan Skinner "

`Setup a welcome

`Db
load image "media/logow.bmp",1
paste image 1,220,100
text 220,250,"Power of DarkBASIC Inside"
text 220,270,"http://www.thegamecreators.com/"
wait key
cls

`JG2d
load image "media/logoj.bmp",1
paste image 1,160,150
text 200,230,"Programmed By - Jonathan Skinner"
text 200,250,"Design By - Jonathan Skinner"
text 200,270,"Copyright(C) 2006 Jonathan Skinner"
wait key
cls

`New Project
New_proj = 1
if New_proj = 1
Set cursor 1,10
ink rgb(255,0,0),1
Print "Welcome to the Project Magician!"
Print "?: Games made in Game Developer are known as projects"
Print "Please input your desired project folder read below on how to open"
Print "Or else type openproj as the project folder name"
Print "And you can open to work on an active project"
Print "If you want to work on a project type none in all fields"
ink rgb(0,255,0),2
Input "Desired Project Folder Name: ";projectfolder$
endif

make directory "C:Game DeveloperMy Games"+projectfolder$
ink rgb(0,255,255),3
Input "Desired Project Name: ";projectname$
Print "Created Project ";projectname$
Print "@ Project Folder ";projectfolder$
Print "Press Any Key!"
wait key
cls
gosub edit

`The Power Code
edit:

`Set the text color to white and give it the standard id 1
ink rgb(255,255,255),1

Remstart
#############Establish the engine & main loop
Remend

`Start the main loop
do

`Get rid of the old cursor
if cursorno = 1
if sprite exist(200) then hide sprite 200
sprite 60,mousex(),mousey(),100
cursorgo = 0
endif

`Clear Screen
cls

`##############establish get rid of game developer & files or projects
if inkey$() = "-" then delete = 1

if delete = 1
set cursor 210,35
Print "?: I press the - key by accident! Type in cancel to solve all your problems! Or Press it Again!"
set cursor 1,45
Input "Get Rid of What Directory? ";direct$
if direct$ = "cancel" then delete = 0
else
set dir direct$
delete directory direct$
delete = 0
endif

Remstart
#########Setup toolbar and buttons
Remend

`Paste the toolbar image on screen
load image "media/toolbar_image.bmp",1
paste image 1,1,8

`Make the file button
load image "media/file.bmp",2
sprite 1,3,13,2

`Make the add button
load image "media/add.bmp",3
sprite 2,33,13,3

`Make the editor button
load image "media/editor.bmp",4
sprite 3,63,13,4

`Make the game button
load image "media/game.bmp",5
sprite 4,93,13,5

`Make the help button
load image "media/help.bmp",6
sprite 5,123,13,6

`Make the view button
load image "media/view.bmp",60000
sprite 7,145,13,60000

Remstart
#########HUD
Remend

`Opaque
set text opaque

`Display the mouse x
text 1,35,"Mouse X: "+str$(mousex())

`Display the mouse y
text 110,35,"Mouse Y: "+str$(mousey())

`Load the mouse image
load image "media/mouse_image.bmp",200

`Put a mouse image on the screen
sprite 100,mousex(),mousey(),200

`Make the mouse hidden so we can see my mouse only
hide mouse

Remstart
#############Establish cursor code
Remend

`Load the cursor image hehe
load image "media/thingamabob.bmp",300

`If the mouse is on or below the grids allow it to work and
`traverse between mice
`Get rid of the old cursor
if cursorno = 1
cursorgo = 0
endif
if cursorno = 0 then cursorgo = 1
if mousey() > 55 and cursorgo = 1
sprite 200,mousex(),mousey(),300
if sprite exist(200) = 1 and mousey() > 55 then show sprite 200
hide sprite 100
else
if sprite exist(200) =1 and sprite exist(100) = 1 then hide sprite 200:show sprite 100
endif

Remstart
#############Establish the Grid!
Remend

`Load the universal "parent" image
load image "media/grid.bmp",400

`Setup the grid positioning
for posx = 1 to 640 step 27
paste image 400,posx,65
next posx

for posx2 = 1 to 640 step 27
paste image 400,posx2,92
next posx2

for posx3 = 1 to 640 step 27
paste image 400,posx3,119
next posx3

for posx4 = 1 to 640 step 27
paste image 400,posx4,146
next posx4

for posx5 = 1 to 640 step 27
paste image 400,posx5,173
next posx5

for posx6 = 1 to 640 step 27
paste image 400,posx6,200
next posx6

for posx7 = 1 to 640 step 27
paste image 400,posx7,227
next posx7

for posx8 = 1 to 640 step 27
paste image 400,posx8,254
next posx8

for posx9 = 1 to 640 step 27
paste image 400,posx9,281
next posx9

for posx10 = 1 to 640 step 27
paste image 400,posx10,308
next posx10

for posx11 = 1 to 640 step 27
paste image 400,posx11,335
next posx11

for posx12 = 1 to 640 step 27
paste image 400,posx12,362
next posx12

for posx13 = 1 to 640 step 27
paste image 400,posx13,389
next posx13

for posx14 = 1 to 640 step 27
paste image 400,posx14,416
next posx14

for posx15 = 1 to 640 step 27
paste image 400,posx15,443
next posx15

Remstart
############Establish the Editor Button
Remend
if sprite collision(3,100) = 1 and mouseclick() = 1 then editor = 1

if editor = 1
message$ = "F>ile Manager S>cripter D>irectory M>ore..."
if inkey$() = "p" or inkey$() = "p" then painter = 1:editor = 0
if inkey$() = "s" or inkey$() = "S" then scripter = 1:editor = 0
if inkey$() = "d" or inkey$() = "D" then direct = 1:editor = 0
else
message$ = "None"
editor = 0
endif



Remstart
###############Establish the Add button
Remend

`Mouseclicked the button?
if sprite collision(2,100) = 1 and mouseclick() = 1 then add =1:other = 0:game = 0:file_start = 0:editor = 0:help = 0
load image "media/adding.bmp",500

`Key shortcut
if inkey$() = "=" or inkey$() = "+" then add = 1
load image "media/adding.bmp",500

`The Add Button
if add = 1
paste image 500,33,50
cursorno = 0
cursorgo = 1
load image "media/text.bmp",501
paste image 501,43,100
sprite 501,43,100,501
hide sprite 501
load image "media/image.bmp",502
paste image 502,43,150
sprite 502,43,150,502
hide sprite 502
load image "media/music.bmp",503
paste image 503,123,100
sprite 503,123,100,503
hide sprite 503
load image "media/level.bmp",504
paste image 504,123,150
sprite 504,123,150,504
hide sprite 504
load image "media/tile.bmp",505
paste image 505,43,200
sprite 505,43,200,505
hide sprite 505
load image "media/exit2.bmp",506
paste image 506,123,200
sprite 506,123,200,506
hide sprite 506
if mouseclick() = 1 and sprite collision(200,501) = 1 then text2 = 1:add = 0
if mouseclick() = 1 and sprite collision(200,502) = 1 then image = 1:add = 0
if mouseclick() = 1 and sprite collision(200,506) = 1 then add = 0

endif

`Image
if image = 1
imagecount = 700
if imagecount = 1700 then imagecount = 700
imagecount = imagecount + 1
tag01 = 1
paste image 500,33,50
set cursor 48,80
ink rgb(255,0,0),2
dim imagename$(32)
dim path$(32)
Input "Imagename: ";imagename$
set cursor 48,100
if file exist(imagename$) = 0 then set cursor 48,100:Print "Image Do Not Exist!":image = 0
set cursor 48,160
image = 2
endif
if image = 2
paste image 500,33,50
set cursor 48,80
Print "Imagename: ";imagename$(arraycount)
set cursor 48,100
Print "Loading - Image ";imagename$
load image imagename$,imagecount
set cursor 48,120
Print "You can now view your added images under the view tab"
set cursor 48,140
Print "Successfully completed. Press ` Key Please."
if inkey$() = "`" then image = 0:tag_image = 1
endif

`Get the image xpos & ypos
dim imagex(1000)
imagex(imagecount) = mousex()

dim imagey(1000)
imagey(imagecount) = mousey()

dim tagidbmp(1000)
tagidbmp(imagecount) = 1

`Is the user clicks paste the image then take away the authority



Remstart
###############Establish Game Button
Remend

`Game
if sprite collision(4,100) = 1 and mouseclick() = 1 then  game = 1:other = 0:file_start = 0:add = 0:editor = 0:help = 0

if game = 1
Message$ = "C>onfiguration, or G>ame Creation Values"
if inkey$() = "C" or inkey$() = "c" then config = 1:game = 0
if inkey$() = "G" or inkey$() = "g" then setup = 1:game = 0
else
message$ = "None"
game = 0
endif

if setup = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
Ink rgb(0,255,0),1
next a
set cursor 1,10
ink rgb(255,255,0),1
Input "Name Your Game> ";gamename$
Input "Creator's Name(Your Name)> ";urname$
Input "Date> ";date
Input "Project Folder Name> ";projectname$
projectname = 1
setup = 0
gosub edit
endif


if config = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
Ink rgb(0,255,0),1
next a
set cursor 1,10
Input "Sync Rate: ";gamerate
Input "Window Size1: ";winsize
Input "Window Size2: ";winsize2
Input "Window Title: ";wintitle$
set_disp = 0
win_set = 0
config = 0
game = 0
gosub edit
endif

`help
if sprite collision(5,100) = 1 and mouseclick() = 1 then help = 1:other = 0:game = 0:add = 0:editor = 0:file_start = 0

if help = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
Print "JonoGame 2d Manual - By: Jonathan Skinner"
ink rgb(0,255,0),1
Print
Print "These are the troubleshooting or MISC sections"
Print "A>bout JonoGame 2d"
Print "R>eadme"
Print "G>lossary"
Print "S>cripter Tutorials"
Print
ink rgb(255,255,0),1
Print "Below are the tutorial sections"
Print "1>Chapter 1 - Welcome"
Print "2>Chapter 2 - Making a Ball & Paddle/Bat Game"
Print "3>Chapter 3 - Making a Space Shooter"
Print "4>Chapter 4 - Making a Fighter Game"
Print "5>Chapter 5 - Making a Pac-Man Clone"
Print "6>Chapter 6 - Making a Quiz Game"
Print "7>Chapter 7 - Making a Target Shoot Out Game"
Print "8>Chapter 8 - Making a Adventure Game"
Print "9>Chapter 9 - Side-Scrolling"
Print "10>Chapter 10 - The Quiz"
Print
ink rgb(255,0,0),1
Print "Below are the advance design technique tips and tuts"
Print "11>Chapter 11 - Giving the Illusion of 3d"
Print "12>Chapter 12 - Isometric Games"
Print "13>Chapter 13 - Animations, Applications, and Presentations"
Print "14>Chapter 14 - Advanced AI"
Print "15>Chapter 15 - Advanced Techniques"
Print
Print "<space> Back to Editor"
if spacekey() = 1 then help = 0:gosub edit
if inkey$() = "A" or inkey$() = "a" then about = 1:help = 0
endif

if about = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
ink rgb(192,192,192),1
Print "JonoGame 2d - Manual - Section 1: About"
Print "JonoGame 2d was originally created as a science fair project."
endif
`file
if sprite collision(1,100) = 1 and mouseclick() = 1 then file_start = 1:other = 0:game = 0:add = 0:editor = 0:help = 0

`Refresh the screen
sync
loop

`Version: 1.0
Remstart
###############################
#Begin Source Code            #
###############################
Remend

`Install if not run

if file exist("C:Game DeveloperGDFilesgamedevinstall.gdc") = 1 then openup = 1

if openup = 1

open to read 1,"C:Game DeveloperGDFilesgamedevinstall.gdc"
read string 1,str$(gamedevexist)
read string 1,str$(nodev)
close file 1
`The new installion values

gamedevexist2 = val(gamedevexist$)
nodev2 = val(nodev$)

if nodev2 = 0 and gamedevexist2 = 1 then gosub startgd
if nodev2 = 1 and gamedevexist2 = 0 then nodev = 1
if nodev2 = 0 and gamedevexist2 = 0 then nodev = 1
openup = 0
endif



`If true value is nodev then perform the install action


if nodev = 1 then gamedevexist = 0
if nodev = 0 then gamedevexist = 1:gosub startgd

`Install Setup - more will be added
if gamedevexist = 0
Print "Perparing to Install Game Developer"
ink rgb(255,0,0),1
Print "Crutical Directory Installing Phase 01 of 04"
make directory "C:Game Developer"
make directory "C:Game DeveloperBmps"
make directory "C:Game DeveloperMusic"
make directory "C:Game DeveloperSounds"
make directory "C:Game DeveloperMy Games"
make directory "C:Game DeveloperScripts"
make directory "C:Game DeveloperGDFiles"
open to write 1,"C:Game DeveloperGDFilesgamdevinstall.gdc"
gamedevexist = 1
nodev = 0
write string 1,Str$(gamedevexist)
write string 1,str$(nodev)
close file 1
endif

`Start Game Developer
startgd:

`Setup screen rate
syncrate = 40
sync on
sync rate syncrate

`Setup misc
disable escapekey

`Setup window to on
set window on

`Allow the regular window outlook
set window layout 1,1,1

`Position the window neatly
set window position 100,200

`Regular screen size
set window size 640,480

`Put in the title
set window title "Game Developer - By Jonathan Skinner "

`Setup a welcome

`Db
load image "media/logow.bmp",1
paste image 1,220,100
text 220,250,"Power of DarkBASIC Inside"
text 220,270,"http://www.thegamecreators.com/"
wait key
cls

`JG2d
load image "media/logoj.bmp",1
paste image 1,160,150
text 200,230,"Programmed By - Jonathan Skinner"
text 200,250,"Design By - Jonathan Skinner"
text 200,270,"Copyright(C) 2006 Jonathan Skinner"
wait key
cls

`New Project
New_proj = 1
if New_proj = 1
Set cursor 1,10
ink rgb(255,0,0),1
Print "Welcome to the Project Magician!"
Print "?: Games made in Game Developer are known as projects"
Print "Please input your desired project folder read below on how to open"
Print "Or else type openproj as the project folder name"
Print "And you can open to work on an active project"
Print "If you want to work on a project type none in all fields"
ink rgb(0,255,0),2
Input "Desired Project Folder Name: ";projectfolder$
endif

make directory "C:Game DeveloperMy Games"+projectfolder$
ink rgb(0,255,255),3
Input "Desired Project Name: ";projectname$
Print "Created Project ";projectname$
Print "@ Project Folder ";projectfolder$
Print "Press Any Key!"
wait key
cls
gosub edit

`The Power Code
edit:

`Set the text color to white and give it the standard id 1
ink rgb(255,255,255),1

Remstart
#############Establish the engine & main loop
Remend

`Start the main loop
do

`Get rid of the old cursor
if cursorno = 1
if sprite exist(200) then hide sprite 200
sprite 60,mousex(),mousey(),100
cursorgo = 0
endif

`Clear Screen
cls

Remstart
#########Setup toolbar and buttons
Remend

`Paste the toolbar image on screen
load image "media/toolbar_image.bmp",1
paste image 1,1,8

`Make the file button
load image "media/file.bmp",2
sprite 1,3,13,2

`Make the add button
load image "media/add.bmp",3
sprite 2,33,13,3

`Make the editor button
load image "media/editor.bmp",4
sprite 3,63,13,4

`Make the game button
load image "media/game.bmp",5
sprite 4,93,13,5

`Make the help button
load image "media/help.bmp",6
sprite 5,123,13,6

`Make the view button
load image "media/view.bmp",60000
sprite 7,145,13,60000

Remstart
#########HUD
Remend

`Opaque
set text opaque

`Display the mouse x
text 1,35,"Mouse X: "+str$(mousex())

`Display the mouse y
text 110,35,"Mouse Y: "+str$(mousey())

`Load the mouse image
load image "media/mouse_image.bmp",200

`Put a mouse image on the screen
sprite 100,mousex(),mousey(),200

`Make the mouse hidden so we can see my mouse only
hide mouse

Remstart
#############Establish cursor code
Remend

`Load the cursor image hehe
load image "media/thingamabob.bmp",300

`If the mouse is on or below the grids allow it to work and
`traverse between mice
`Get rid of the old cursor
if cursorno = 1
cursorgo = 0
endif
if cursorno = 0 then cursorgo = 1
if mousey() > 55 and cursorgo = 1
sprite 200,mousex(),mousey(),300
if sprite exist(200) = 1 and mousey() > 55 then show sprite 200
hide sprite 100
else
if sprite exist(200) =1 and sprite exist(100) = 1 then hide sprite 200:show sprite 100
endif

Remstart
#############Establish the Grid!
Remend

`Load the universal "parent" image
load image "media/grid.bmp",400

`Setup the grid positioning
for posx = 1 to 640 step 27
paste image 400,posx,65
next posx

for posx2 = 1 to 640 step 27
paste image 400,posx2,92
next posx2

for posx3 = 1 to 640 step 27
paste image 400,posx3,119
next posx3

for posx4 = 1 to 640 step 27
paste image 400,posx4,146
next posx4

for posx5 = 1 to 640 step 27
paste image 400,posx5,173
next posx5

for posx6 = 1 to 640 step 27
paste image 400,posx6,200
next posx6

for posx7 = 1 to 640 step 27
paste image 400,posx7,227
next posx7

for posx8 = 1 to 640 step 27
paste image 400,posx8,254
next posx8

for posx9 = 1 to 640 step 27
paste image 400,posx9,281
next posx9

for posx10 = 1 to 640 step 27
paste image 400,posx10,308
next posx10

for posx11 = 1 to 640 step 27
paste image 400,posx11,335
next posx11

for posx12 = 1 to 640 step 27
paste image 400,posx12,362
next posx12

for posx13 = 1 to 640 step 27
paste image 400,posx13,389
next posx13

for posx14 = 1 to 640 step 27
paste image 400,posx14,416
next posx14

for posx15 = 1 to 640 step 27
paste image 400,posx15,443
next posx15

Remstart
############Establish the Editor Button
Remend
if sprite collision(3,100) = 1 and mouseclick() = 1 then editor = 1

if editor = 1
message$ = "F>ile Manager S>cripter D>irectory M>ore..."
if inkey$() = "p" or inkey$() = "p" then painter = 1:editor = 0
if inkey$() = "s" or inkey$() = "S" then scripter = 1:editor = 0
if inkey$() = "d" or inkey$() = "D" then direct = 1:editor = 0
else
message$ = "None"
editor = 0
endif



Remstart
###############Establish the Add button
Remend

`Mouseclicked the button?
if sprite collision(2,100) = 1 and mouseclick() = 1 then add =1:other = 0:game = 0:file_start = 0:editor = 0:help = 0
load image "media/adding.bmp",500

`Key shortcut
if inkey$() = "=" or inkey$() = "+" then add = 1
load image "media/adding.bmp",500

`The Add Button
if add = 1
view = 0
paste image 500,33,50
cursorno = 0
cursorgo = 1
load image "media/text.bmp",501
paste image 501,43,100
sprite 501,43,100,501
hide sprite 501
load image "media/image.bmp",502
paste image 502,43,150
sprite 502,43,150,502
hide sprite 502
load image "media/music.bmp",503
paste image 503,123,100
sprite 503,123,100,503
hide sprite 503
load image "media/level.bmp",504
paste image 504,123,150
sprite 504,123,150,504
hide sprite 504
load image "media/tile.bmp",505
paste image 505,43,200
sprite 505,43,200,505
hide sprite 505
load image "media/exit2.bmp",506
paste image 506,123,200
sprite 506,123,200,506
hide sprite 506
load image "media/sound.bmp",507
paste image 507,43,250
sprite 507,43,300,507
hide sprite 507
if mouseclick() = 1 and sprite collision(200,501) = 1 then text2 = 1:add = 0
if mouseclick() = 1 and sprite collision(200,502) = 1 then image = 1:add = 0
if mouseclick() = 1 and sprite collision(200,506) = 1 then add = 0

endif

`Image
if image = 1
imagecount = 700
if imagecount = 1700 then imagecount = 700
imagecount = imagecount + 1
arraycount = arraycount + 1
if arraycount = 32 then arraycount = 1
paste image 500,33,50
set cursor 48,80
ink rgb(255,0,0),2
dim imagename$(32)
dim path$(32)
Input "Imagename: ";imagename$
set cursor 48,100
if file exist(imagename$) = 0 then set cursor 48,100:Print "Image Do Not Exist!":image = 0
set cursor 48,160
image = 2
endif
if image = 2
paste image 500,33,50
set cursor 48,80
Print "Imagename: ";imagename$(arraycount)
set cursor 48,100
Print "Loading - Image ";imagename$
load image imagename$,imagecount
set cursor 48,120
Print "You can now view your added images under the view tab"
set cursor 48,140
Print "Successfully completed. Press ` Key Please."
if inkey$() = "`" then image = 0
endif

`####################Establish View Button
if sprite collision(7,100) = 1 and mouseclick() = 1 then view = 1

if view = 1
game = 0:other = 0:file_start = 0:add = 0:editor = 0:help = 0
if add = 0 then load image "media/view2.bmp",500
paste image 500,33,50
cursorno = 0
cursorgo = 1
load image "media/texts.bmp",501
paste image 501,43,100
sprite 501,43,100,501
hide sprite 501
load image "media/image2.bmp",502
paste image 502,43,150
sprite 502,43,150,502
hide sprite 502
load image "media/musics.bmp",503
paste image 503,123,100
sprite 503,123,100,503
hide sprite 503
load image "media/levels.bmp",504
paste image 504,123,150
sprite 504,123,150,504
hide sprite 504
load image "media/tiles.bmp",505
paste image 505,43,200
sprite 505,43,200,505
hide sprite 505
load image "media/exit2.bmp",506
paste image 506,123,200
sprite 506,123,200,506
hide sprite 506
load image "media/snds.bmp",507
paste image 507,43,250
sprite 507,43,300,507
hide sprite 507


endif


Remstart
###############Establish Game Button
Remend

`Game
if sprite collision(4,100) = 1 and mouseclick() = 1 then  game = 1:view = 0:other = 0:file_start = 0:add = 0:editor = 0:help = 0

if game = 1
Message$ = "C>onfiguration, or G>ame Creation Values"
if inkey$() = "C" or inkey$() = "c" then config = 1:game = 0
if inkey$() = "G" or inkey$() = "g" then setup = 1:game = 0
else
message$ = "None"
game = 0
endif

if setup = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
Ink rgb(0,255,0),1
next a
set cursor 1,10
ink rgb(255,255,0),1
Input "Name Your Game> ";gamename$
Input "Creator's Name(Your Name)> ";urname$
Input "Date> ";date
Input "Project Folder Name> ";projectname$
projectname = 1
setup = 0
gosub edit
endif


if config = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
Ink rgb(0,255,0),1
next a
set cursor 1,10
Input "Sync Rate: ";gamerate
Input "Window Size1: ";winsize
Input "Window Size2: ";winsize2
Input "Window Title: ";wintitle$
set_disp = 0
win_set = 0
config = 0
game = 0
gosub edit
endif

`help
if sprite collision(5,100) = 1 and mouseclick() = 1 then help = 1:other = 0:game = 0:add = 0:editor = 0:file_start = 0

if help = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
Print "JonoGame 2d Manual - By: Jonathan Skinner"
ink rgb(0,255,0),1
Print
Print "These are the troubleshooting or MISC sections"
Print "A>bout JonoGame 2d"
Print "R>eadme"
Print "G>lossary"
Print "S>cripter Tutorials"
Print
ink rgb(255,255,0),1
Print "Below are the tutorial sections"
Print "1>Chapter 1 - Welcome"
Print "2>Chapter 2 - Making a Ball & Paddle/Bat Game"
Print "3>Chapter 3 - Making a Space Shooter"
Print "4>Chapter 4 - Making a Fighter Game"
Print "5>Chapter 5 - Making a Pac-Man Clone"
Print "6>Chapter 6 - Making a Quiz Game"
Print "7>Chapter 7 - Making a Target Shoot Out Game"
Print "8>Chapter 8 - Making a Adventure Game"
Print "9>Chapter 9 - Side-Scrolling"
Print "10>Chapter 10 - The Quiz"
Print
ink rgb(255,0,0),1
Print "Below are the advance design technique tips and tuts"
Print "11>Chapter 11 - Giving the Illusion of 3d"
Print "12>Chapter 12 - Isometric Games"
Print "13>Chapter 13 - Animations, Applications, and Presentations"
Print "14>Chapter 14 - Advanced AI"
Print "15>Chapter 15 - Advanced Techniques"
Print
Print "<space> Back to Editor"
if spacekey() = 1 then help = 0:gosub edit
if inkey$() = "A" or inkey$() = "a" then about = 1:help = 0
endif

if about = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
ink rgb(192,192,192),1
Print "JonoGame 2d - Manual - Section 1: About"
Print "JonoGame 2d was originally created as a science fair project."
endif
`file
if sprite collision(1,100) = 1 and mouseclick() = 1 then file_start = 1:other = 0:game = 0:add = 0:editor = 0:help = 0

`Refresh the screen
sync
loop

`Version: 1.0
Remstart
###############################
#Begin Source Code            #
###############################
Remend

`variables
imageid = 700

`Install if not run
if file exist("C:\Game Developer\install.txt") = 1 then readfile = 1
if file exist("C:\Game Developer\install.txt") = 0 then writefile = 1

`Write the file needed for the game developer to work
if writefile = 1
readfile = 0
make directory "C:\Game Developer"
make directory "C:\Game Developer\My Multimedia"
make directory "C:\Game Developer\My Games"
make directory "C:\Game Developer\Example Games"
set dir "C:\Game Developer"
open to write 1,"install.txt"
installdone = 1
write string 1,str$(installdone)
close file 1
writefile = 0
gosub startgd
endif

`Read if it exist
if readfile = 1
writefile = 0
if file exist("install.txt") = 1 then open to read 1,"install.txt":read string 1,installdone$
if file exist("install.txt") = 0 then writefile = 1:readfile = 0
if installdone$ = "1" then gosub startgd
else
readfile = 0
writefile = 1
endif

`Start Game Developer
startgd:

`Setup screen rate
syncrate = 40
sync on
sync rate syncrate

`Setup misc
disable escapekey

`Setup window to on
set window on

`Allow the regular window outlook
set window layout 1,1,1

`Position the window neatly
set window position 100,200

`Regular screen size
set window size 640,480

`Put in the title
set window title "Game Developer - By Jonathan Skinner "

`Setup a welcome

`Db
load image "media/logow.bmp",1
paste image 1,220,100
text 220,250,"Power of DarkBASIC Inside"
text 220,270,"http://www.thegamecreators.com/"
wait key
cls

`JG2d
load image "media/logoj.bmp",1
paste image 1,160,150
text 200,230,"Programmed By - Jonathan Skinner"
text 200,250,"Design By - Jonathan Skinner"
text 200,270,"Copyright(C) 2006 Jonathan Skinner"
wait key
cls

`New Project
New_proj = 1
if New_proj = 1
Set cursor 1,10
ink rgb(255,0,0),1
Print "Welcome to the Project Magician!"
Print "?: Games made in Game Developer are known as projects"
Print "Please input your desired project folder read below on how to open"
Print "Or else type openproj as the project folder name"
Print "And you can open to work on an active project"
Print "If you want to work on a project type none in all fields"
ink rgb(0,255,0),2
Input "Desired Project Folder Name: ";projectfolder$
endif

make directory "C:\Game Developer\My Games\"+projectfolder$
ink rgb(0,255,255),3
Input "Desired Project Name: ";projectname$
Print "Created Project ";projectname$
Print "@ Project Folder ";projectfolder$
Print "Press Any Key!"
wait key
cls
gosub edit

`The Power Code
edit:

`Set the text color to white and give it the standard id 1
ink rgb(255,255,255),1

Remstart
#############Establish the engine & main loop
Remend

`Start the main loop
do

`Get rid of the old cursor
if cursorno = 1
if sprite exist(200) then hide sprite 200
sprite 60,mousex(),mousey(),100
cursorgo = 0
endif

`Clear Screen
cls

Remstart
#########Setup toolbar and buttons
Remend

`Paste the toolbar image on screen
load image "media/toolbar_image.bmp",1
paste image 1,1,8

`Make the file button
load image "media/file.bmp",2
sprite 1,3,13,2

`Make the add button
load image "media/add.bmp",3
sprite 2,33,13,3

`Make the editor button
load image "media/editor.bmp",4
sprite 3,63,13,4

`Make the game button
load image "media/game.bmp",5
sprite 4,93,13,5

`Make the help button
load image "media/help.bmp",6
sprite 5,123,13,6

`Make the view button
load image "media/view.bmp",60000
sprite 7,145,13,60000

Remstart
#########HUD
Remend

`Opaque
set text opaque

`Display the mouse x
text 1,35,"Mouse X: "+str$(mousex())

`Display the mouse y
text 110,35,"Mouse Y: "+str$(mousey())

`Load the mouse image
load image "media/mouse_image.bmp",200

`Put a mouse image on the screen
sprite 100,mousex(),mousey(),200

`Make the mouse hidden so we can see my mouse only
hide mouse

Remstart
#############Establish cursor code
Remend

`Load the cursor image hehe
load image "media/thingamabob.bmp",300

`If the mouse is on or below the grids allow it to work and
`traverse between mice
`Get rid of the old cursor
if cursorno = 1
cursorgo = 0
endif
if cursorno = 0 then cursorgo = 1
if mousey() > 55 and cursorgo = 1
sprite 200,mousex(),mousey(),300
if sprite exist(200) = 1 and mousey() > 55 then show sprite 200
hide sprite 100
else
if sprite exist(200) =1 and sprite exist(100) = 1 then hide sprite 200:show sprite 100
endif

Remstart
#############Establish the Grid!
Remend

`Load the universal "parent" image
load image "media/grid.bmp",400

`Setup the grid positioning
for posx = 1 to 640 step 27
paste image 400,posx,65
next posx

for posx2 = 1 to 640 step 27
paste image 400,posx2,92
next posx2

for posx3 = 1 to 640 step 27
paste image 400,posx3,119
next posx3

for posx4 = 1 to 640 step 27
paste image 400,posx4,146
next posx4

for posx5 = 1 to 640 step 27
paste image 400,posx5,173
next posx5

for posx6 = 1 to 640 step 27
paste image 400,posx6,200
next posx6

for posx7 = 1 to 640 step 27
paste image 400,posx7,227
next posx7

for posx8 = 1 to 640 step 27
paste image 400,posx8,254
next posx8

for posx9 = 1 to 640 step 27
paste image 400,posx9,281
next posx9

for posx10 = 1 to 640 step 27
paste image 400,posx10,308
next posx10

for posx11 = 1 to 640 step 27
paste image 400,posx11,335
next posx11

for posx12 = 1 to 640 step 27
paste image 400,posx12,362
next posx12

for posx13 = 1 to 640 step 27
paste image 400,posx13,389
next posx13

for posx14 = 1 to 640 step 27
paste image 400,posx14,416
next posx14

for posx15 = 1 to 640 step 27
paste image 400,posx15,443
next posx15

Remstart
############Establish the Editor Button
Remend
if sprite collision(3,100) = 1 and mouseclick() = 1 then editor = 1

if editor = 1
game = 0
other = 0
file_start = 0
add = 0
help = 0
view = 0
load image "media/editor2.bmp",500
paste image 500,33,50
wait key
editor = 0
endif

Remstart
###############Establish the Add button
Remend

`Mouseclicked the button?
if sprite collision(2,100) = 1 and mouseclick() = 1 then add =1:other = 0:game = 0:file_start = 0:editor = 0:help = 0
load image "media/adding.bmp",500

`Key shortcut
if inkey$() = "=" or inkey$() = "+" then add = 1
load image "media/adding.bmp",500

`The Add Button
if add = 1
game = 0
other = 0
file_start = 0
editor = 0
help = 0
view = 0
paste image 500,33,50
cursorno = 0
cursorgo = 1
load image "media/text.bmp",501
paste image 501,43,100
sprite 501,43,100,501
hide sprite 501
load image "media/image.bmp",502
paste image 502,43,150
sprite 502,43,150,502
hide sprite 502
load image "media/music.bmp",503
paste image 503,123,100
sprite 503,123,100,503
hide sprite 503
load image "media/level.bmp",504
paste image 504,123,150
sprite 504,123,150,504
hide sprite 504
load image "media/tile.bmp",505
paste image 505,43,200
sprite 505,43,200,505
hide sprite 505
load image "media/exit2.bmp",506
paste image 506,123,200
sprite 506,123,200,506
hide sprite 506
load image "media/sound.bmp",507
paste image 507,43,250
sprite 507,43,300,507
hide sprite 507
if mouseclick() = 1 and sprite collision(200,501) = 1 then text2 = 1:add = 0
if mouseclick() = 1 and sprite collision(200,502) = 1 then image = 1:add = 0
if mouseclick() = 1 and sprite collision(200,506) = 1 then add = 0

endif

`Image
if image = 1
if imageid = 732 then imageid = 700
imageid = imageid + 1
paste image 500,33,50
set cursor 48,80
ink rgb(255,0,0),2
dim imageslot(32)
checkimageslot = 1
image = 0
endif

if checkimageslot = 1
paste image 500,33,50
set cursor 48,80
ink rgb(255,0,0),2
if imageid = 700 then imageslot(1) = 1
if imageid = 701 then imageslot(2) = 1
if imageid = 702 then imageslot(3) = 1
if imageid = 703 then imageslot(4) = 1
if imageid = 704 then imageslot(5) = 1
if imageid = 705 then imageslot(6) = 1
if imageid = 706 then imageslot(7) = 1
if imageid = 707 then imageslot(8) = 1
if imageid = 708 then imageslot(9) = 1
if imageid = 709 then imageslot(10) = 1
if imageid = 710 then imageslot(11) = 1
if imageid = 711 then imageslot(12) = 1
if imageid = 712 then imageslot(13) = 1
if imageid = 713 then imageslot(14) = 1
if imageid = 714 then imageslot(15) = 1
if imageid = 715 then imageslot(16) = 1
if imageid = 716 then imageslot(17) = 1
if imageid = 717 then imageslot(18) = 1
if imageid = 718 then imageslot(19) = 1
if imageid = 719 then imageslot(20) = 1
if imageid = 720 then imageslot(21) = 1
if imageid = 721 then imageslot(22) = 1
if imageid = 722 then imageslot(23) = 1
if imageid = 723 then imageslot(24) = 1
if imageid = 724 then imageslot(25) = 1
if imageid = 725 then imageslot(26) = 1
if imageid = 726 then imageslot(27) = 1
if imageid = 727 then imageslot(28) = 1
if imageid = 728 then imageslot(29) = 1
if imageid = 729 then imageslot(30) = 1
if imageid = 730 then imageslot(31) = 1
if imageid = 731 then imageslot(32) = 1
allowimage = 1
checkimageslot1 = 0
endif

if allowimage = 1
if imageslot(1) = 1 then imageslot(2) = 0
if imageslot(1) = 1 then imageslot(3) = 0
if imageslot(1) = 1 then imageslot(4) = 0
if imageslot(1) = 1 then imageslot(5) = 0
if imageslot(1) = 1 then imageslot(6) = 0
if imageslot(1) = 1 then imageslot(7) = 0
if imageslot(1) = 1 then imageslot(8) = 0
if imageslot(1) = 1 then imageslot(9) = 0
if imageslot(1) = 1 then imageslot(10) = 0
if imageslot(1) = 1 then imageslot(11) = 0
if imageslot(1) = 1 then imageslot(12) = 0
if imageslot(1) = 1 then imageslot(13) = 0
if imageslot(1) = 1 then imageslot(14) = 0
if imageslot(1) = 1 then imageslot(15) = 0
if imageslot(1) = 1 then imageslot(16) = 0
if imageslot(1) = 1 then imageslot(17) = 0
if imageslot(1) = 1 then imageslot(18) = 0
if imageslot(1) = 1 then imageslot(19) = 0
if imageslot(1) = 1 then imageslot(20) = 0
if imageslot(1) = 1 then imageslot(21) = 0
if imageslot(1) = 1 then imageslot(22) = 0
if imageslot(1) = 1 then imageslot(23) = 0
if imageslot(1) = 1 then imageslot(24) = 0
if imageslot(1) = 1 then imageslot(25) = 0
if imageslot(1) = 1 then imageslot(26) = 0
if imageslot(1) = 1 then imageslot(27) = 0
if imageslot(1) = 1 then imageslot(28) = 0
if imageslot(1) = 1 then imageslot(29) = 0
if imageslot(1) = 1 then imageslot(30) = 0
if imageslot(1) = 1 then imageslot(31) = 0
if imageslot(1) = 1 then imageslot(32) = 0
if imageslot(2) = 1 then imageslot(1) = 0
if imageslot(2) = 1 then imageslot(3) = 0
if imageslot(2) = 1 then imageslot(4) = 0
if imageslot(2) = 1 then imageslot(5) = 0
if imageslot(2) = 1 then imageslot(6) = 0
if imageslot(2) = 1 then imageslot(7) = 0
if imageslot(2) = 1 then imageslot(8) = 0
if imageslot(2) = 1 then imageslot(9) = 0
if imageslot(2) = 1 then imageslot(10) = 0
if imageslot(2) = 1 then imageslot(11) = 0
if imageslot(2) = 1 then imageslot(12) = 0
if imageslot(2) = 1 then imageslot(13) = 0
if imageslot(2) = 1 then imageslot(14) = 0
if imageslot(2) = 1 then imageslot(15) = 0
if imageslot(2) = 1 then imageslot(16) = 0
if imageslot(2) = 1 then imageslot(17) = 0
if imageslot(2) = 1 then imageslot(18) = 0
if imageslot(2) = 1 then imageslot(19) = 0
if imageslot(2) = 1 then imageslot(20) = 0
if imageslot(2) = 1 then imageslot(21) = 0
if imageslot(2) = 1 then imageslot(22) = 0
if imageslot(2) = 1 then imageslot(23) = 0
if imageslot(2) = 1 then imageslot(24) = 0
if imageslot(2) = 1 then imageslot(25) = 0
if imageslot(2) = 1 then imageslot(26) = 0
if imageslot(2) = 1 then imageslot(27) = 0
if imageslot(2) = 1 then imageslot(28) = 0
if imageslot(2) = 1 then imageslot(29) = 0
if imageslot(2) = 1 then imageslot(30) = 0
if imageslot(2) = 1 then imageslot(31) = 0
if imageslot(2) = 1 then imageslot(32) = 0
if imageslot(3) = 1 then imageslot(1) = 0
if imageslot(3) = 1 then imageslot(2) = 0
if imageslot(3) = 1 then imageslot(4) = 0
if imageslot(3) = 1 then imageslot(5) = 0
if imageslot(3) = 1 then imageslot(6) = 0
if imageslot(3) = 1 then imageslot(7) = 0
if imageslot(3) = 1 then imageslot(8) = 0
if imageslot(3) = 1 then imageslot(9) = 0
if imageslot(3) = 1 then imageslot(10) = 0
if imageslot(3) = 1 then imageslot(11) = 0
if imageslot(3) = 1 then imageslot(12) = 0
if imageslot(3) = 1 then imageslot(13) = 0
if imageslot(3) = 1 then imageslot(14) = 0
if imageslot(3) = 1 then imageslot(15) = 0
if imageslot(3) = 1 then imageslot(16) = 0
if imageslot(3) = 1 then imageslot(17) = 0
if imageslot(3) = 1 then imageslot(18) = 0
if imageslot(3) = 1 then imageslot(19) = 0
if imageslot(3) = 1 then imageslot(20) = 0
if imageslot(3) = 1 then imageslot(21) = 0
if imageslot(3) = 1 then imageslot(22) = 0
if imageslot(3) = 1 then imageslot(23) = 0
if imageslot(3) = 1 then imageslot(24) = 0
if imageslot(3) = 1 then imageslot(25) = 0
if imageslot(3) = 1 then imageslot(26) = 0
if imageslot(3) = 1 then imageslot(27) = 0
if imageslot(3) = 1 then imageslot(28) = 0
if imageslot(3) = 1 then imageslot(29) = 0
if imageslot(3) = 1 then imageslot(30) = 0
if imageslot(3) = 1 then imageslot(31) = 0
if imageslot(3) = 1 then imageslot(32) = 0
if imageslot(4) = 1 then imageslot(1) = 0
if imageslot(4) = 1 then imageslot(2) = 0
if imageslot(4) = 1 then imageslot(3) = 0
if imageslot(4) = 1 then imageslot(5) = 0
if imageslot(4) = 1 then imageslot(6) = 0
if imageslot(4) = 1 then imageslot(7) = 0
if imageslot(4) = 1 then imageslot(8) = 0
if imageslot(4) = 1 then imageslot(9) = 0
if imageslot(4) = 1 then imageslot(10) = 0
if imageslot(4) = 1 then imageslot(11) = 0
if imageslot(4) = 1 then imageslot(12) = 0
if imageslot(4) = 1 then imageslot(13) = 0
if imageslot(4) = 1 then imageslot(14) = 0
if imageslot(4) = 1 then imageslot(15) = 0
if imageslot(4) = 1 then imageslot(16) = 0
if imageslot(4) = 1 then imageslot(17) = 0
if imageslot(4) = 1 then imageslot(18) = 0
if imageslot(4) = 1 then imageslot(19) = 0
if imageslot(4) = 1 then imageslot(20) = 0
if imageslot(4) = 1 then imageslot(21) = 0
if imageslot(4) = 1 then imageslot(22) = 0
if imageslot(4) = 1 then imageslot(23) = 0
if imageslot(4) = 1 then imageslot(24) = 0
if imageslot(4) = 1 then imageslot(25) = 0
if imageslot(4) = 1 then imageslot(26) = 0
if imageslot(4) = 1 then imageslot(27) = 0
if imageslot(4) = 1 then imageslot(28) = 0
if imageslot(4) = 1 then imageslot(29) = 0
if imageslot(4) = 1 then imageslot(30) = 0
if imageslot(4) = 1 then imageslot(31) = 0
if imageslot(4) = 1 then imageslot(32) = 0
if imageslot(5) = 1 then imageslot(1) = 0
if imageslot(5) = 1 then imageslot(2) = 0
if imageslot(5) = 1 then imageslot(3) = 0
if imageslot(5) = 1 then imageslot(4) = 0
if imageslot(5) = 1 then imageslot(6) = 0
if imageslot(5) = 1 then imageslot(7) = 0
if imageslot(5) = 1 then imageslot(8) = 0
if imageslot(5) = 1 then imageslot(9) = 0
if imageslot(5) = 1 then imageslot(10) = 0
if imageslot(5) = 1 then imageslot(11) = 0
if imageslot(5) = 1 then imageslot(12) = 0
if imageslot(5) = 1 then imageslot(13) = 0
if imageslot(5) = 1 then imageslot(14) = 0
if imageslot(5) = 1 then imageslot(15) = 0
if imageslot(5) = 1 then imageslot(16) = 0
if imageslot(5) = 1 then imageslot(17) = 0
if imageslot(5) = 1 then imageslot(18) = 0
if imageslot(5) = 1 then imageslot(19) = 0
if imageslot(5) = 1 then imageslot(20) = 0
if imageslot(5) = 1 then imageslot(21) = 0
if imageslot(5) = 1 then imageslot(22) = 0
if imageslot(5) = 1 then imageslot(23) = 0
if imageslot(5) = 1 then imageslot(24) = 0
if imageslot(5) = 1 then imageslot(25) = 0
if imageslot(5) = 1 then imageslot(26) = 0
if imageslot(5) = 1 then imageslot(27) = 0
if imageslot(5) = 1 then imageslot(28) = 0
if imageslot(5) = 1 then imageslot(29) = 0
if imageslot(5) = 1 then imageslot(30) = 0
if imageslot(5) = 1 then imageslot(31) = 0
if imageslot(5) = 1 then imageslot(32) = 0
if imageslot(6) = 1 then imageslot(1) = 0
if imageslot(6) = 1 then imageslot(2) = 0
if imageslot(6) = 1 then imageslot(3) = 0
if imageslot(6) = 1 then imageslot(4) = 0
if imageslot(6) = 1 then imageslot(4) = 0
if imageslot(6) = 1 then imageslot(5) = 0
if imageslot(6) = 1 then imageslot(6) = 0
if imageslot(6) = 1 then imageslot(7) = 0
if imageslot(6) = 1 then imageslot(8) = 0
if imageslot(6) = 1 then imageslot(9) = 0
if imageslot(6) = 1 then imageslot(10) = 0
if imageslot(6) = 1 then imageslot(11) = 0
if imageslot(6) = 1 then imageslot(12) = 0
if imageslot(6) = 1 then imageslot(13) = 0
if imageslot(6) = 1 then imageslot(14) = 0
if imageslot(6) = 1 then imageslot(15) = 0
if imageslot(6) = 1 then imageslot(16) = 0
if imageslot(6) = 1 then imageslot(17) = 0
if imageslot(6) = 1 then imageslot(18) = 0
if imageslot(6) = 1 then imageslot(19) = 0
if imageslot(6) = 1 then imageslot(20) = 0
if imageslot(6) = 1 then imageslot(21) = 0
if imageslot(6) = 1 then imageslot(22) = 0
if imageslot(6) = 1 then imageslot(23) = 0
if imageslot(6) = 1 then imageslot(24) = 0
if imageslot(6) = 1 then imageslot(25) = 0
if imageslot(6) = 1 then imageslot(26) = 0
if imageslot(6) = 1 then imageslot(27) = 0
if imageslot(6) = 1 then imageslot(28) = 0
if imageslot(6) = 1 then imageslot(29) = 0
if imageslot(6) = 1 then imageslot(30) = 0
if imageslot(6) = 1 then imageslot(31) = 0
if imageslot(6) = 1 then imageslot(32) = 0
if imageslot(7) = 1 then imageslot(1) = 0
if imageslot(7) = 1 then imageslot(2) = 0
if imageslot(7) = 1 then imageslot(3) = 0
if imageslot(7) = 1 then imageslot(4) = 0
if imageslot(7) = 1 then imageslot(5) = 0
if imageslot(7) = 1 then imageslot(6) = 0
if imageslot(7) = 1 then imageslot(8) = 0
if imageslot(7) = 1 then imageslot(9) = 0
if imageslot(7) = 1 then imageslot(10) = 0
if imageslot(7) = 1 then imageslot(11) = 0
if imageslot(7) = 1 then imageslot(12) = 0
if imageslot(7) = 1 then imageslot(13) = 0
if imageslot(7) = 1 then imageslot(14) = 0
if imageslot(7) = 1 then imageslot(15) = 0
if imageslot(7) = 1 then imageslot(16) = 0
if imageslot(7) = 1 then imageslot(17) = 0
if imageslot(7) = 1 then imageslot(18) = 0
if imageslot(7) = 1 then imageslot(19) = 0
if imageslot(7) = 1 then imageslot(20) = 0
if imageslot(7) = 1 then imageslot(21) = 0
if imageslot(7) = 1 then imageslot(22) = 0
if imageslot(7) = 1 then imageslot(23) = 0
if imageslot(7) = 1 then imageslot(24) = 0
if imageslot(7) = 1 then imageslot(25) = 0
if imageslot(7) = 1 then imageslot(26) = 0
if imageslot(7) = 1 then imageslot(27) = 0
if imageslot(7) = 1 then imageslot(28) = 0
if imageslot(7) = 1 then imageslot(29) = 0
if imageslot(7) = 1 then imageslot(30) = 0
if imageslot(7) = 1 then imageslot(31) = 0
if imageslot(7) = 1 then imageslot(32) = 0
if imageslot(8) = 1 then imageslot(1) = 0
if imageslot(8) = 1 then imageslot(2) = 0
if imageslot(8) = 1 then imageslot(3) = 0
if imageslot(8) = 1 then imageslot(4) = 0
if imageslot(8) = 1 then imageslot(5) = 0
if imageslot(8) = 1 then imageslot(6) = 0
if imageslot(8) = 1 then imageslot(7) = 0
if imageslot(8) = 1 then imageslot(9) = 0
if imageslot(8) = 1 then imageslot(10) = 0
if imageslot(8) = 1 then imageslot(11) = 0
if imageslot(8) = 1 then imageslot(12) = 0
if imageslot(8) = 1 then imageslot(13) = 0
if imageslot(8) = 1 then imageslot(14) = 0
if imageslot(8) = 1 then imageslot(15) = 0
if imageslot(8) = 1 then imageslot(16) = 0
if imageslot(8) = 1 then imageslot(17) = 0
if imageslot(8) = 1 then imageslot(18) = 0
if imageslot(8) = 1 then imageslot(19) = 0
if imageslot(8) = 1 then imageslot(20) = 0
if imageslot(8) = 1 then imageslot(21) = 0
if imageslot(8) = 1 then imageslot(22) = 0
if imageslot(8) = 1 then imageslot(23) = 0
if imageslot(8) = 1 then imageslot(24) = 0
if imageslot(8) = 1 then imageslot(25) = 0
if imageslot(8) = 1 then imageslot(26) = 0
if imageslot(8) = 1 then imageslot(27) = 0
if imageslot(8) = 1 then imageslot(28) = 0
if imageslot(8) = 1 then imageslot(29) = 0
if imageslot(8) = 1 then imageslot(30) = 0
if imageslot(8) = 1 then imageslot(31) = 0
if imageslot(8) = 1 then imageslot(32) = 0
if imageslot(9) = 1 then imageslot(1) = 0
if imageslot(9) = 1 then imageslot(2) = 0
if imageslot(9) = 1 then imageslot(3) = 0
if imageslot(9) = 1 then imageslot(4) = 0
if imageslot(9) = 1 then imageslot(5) = 0
if imageslot(9) = 1 then imageslot(6) = 0
if imageslot(9) = 1 then imageslot(7) = 0
if imageslot(9) = 1 then imageslot(8) = 0
if imageslot(9) = 1 then imageslot(10) = 0
if imageslot(9) = 1 then imageslot(11) = 0
if imageslot(9) = 1 then imageslot(12) = 0
if imageslot(9) = 1 then imageslot(13) = 0
if imageslot(9) = 1 then imageslot(14) = 0
if imageslot(9) = 1 then imageslot(15) = 0
if imageslot(9) = 1 then imageslot(16) = 0
if imageslot(9) = 1 then imageslot(17) = 0
if imageslot(9) = 1 then imageslot(18) = 0
if imageslot(9) = 1 then imageslot(19) = 0
if imageslot(9) = 1 then imageslot(20) = 0
if imageslot(9) = 1 then imageslot(21) = 0
if imageslot(9) = 1 then imageslot(22) = 0
if imageslot(9) = 1 then imageslot(23) = 0
if imageslot(9) = 1 then imageslot(24) = 0
if imageslot(9) = 1 then imageslot(25) = 0
if imageslot(9) = 1 then imageslot(26) = 0
if imageslot(9) = 1 then imageslot(27) = 0
if imageslot(9) = 1 then imageslot(28) = 0
if imageslot(9) = 1 then imageslot(29) = 0
if imageslot(9) = 1 then imageslot(30) = 0
if imageslot(9) = 1 then imageslot(31) = 0
if imageslot(9) = 1 then imageslot(32) = 0
if imageslot(10) = 1 then imageslot(1) = 0
if imageslot(10) = 1 then imageslot(2) = 0
if imageslot(10) = 1 then imageslot(3) = 0
if imageslot(10) = 1 then imageslot(4) = 0
if imageslot(10) = 1 then imageslot(5) = 0
if imageslot(10) = 1 then imageslot(6) = 0
if imageslot(10) = 1 then imageslot(7) = 0
if imageslot(10) = 1 then imageslot(8) = 0
if imageslot(10) = 1 then imageslot(9) = 0
if imageslot(10) = 1 then imageslot(11) = 0
if imageslot(10) = 1 then imageslot(12) = 0
if imageslot(10) = 1 then imageslot(13) = 0
if imageslot(10) = 1 then imageslot(14) = 0
if imageslot(10) = 1 then imageslot(15) = 0
if imageslot(10) = 1 then imageslot(16) = 0
if imageslot(10) = 1 then imageslot(17) = 0
if imageslot(10) = 1 then imageslot(18) = 0
if imageslot(10) = 1 then imageslot(19) = 0
if imageslot(10) = 1 then imageslot(20) = 0
if imageslot(10) = 1 then imageslot(21) = 0
if imageslot(10) = 1 then imageslot(22) = 0
if imageslot(10) = 1 then imageslot(23) = 0
if imageslot(10) = 1 then imageslot(24) = 0
if imageslot(10) = 1 then imageslot(25) = 0
if imageslot(10) = 1 then imageslot(26) = 0
if imageslot(10) = 1 then imageslot(27) = 0
if imageslot(10) = 1 then imageslot(28) = 0
if imageslot(10) = 1 then imageslot(29) = 0
if imageslot(10) = 1 then imageslot(30) = 0
if imageslot(10) = 1 then imageslot(31) = 0
if imageslot(10) = 1 then imageslot(32) = 0
if imageslot(11) = 1 then imageslot(1) = 0
if imageslot(11) = 1 then imageslot(2) = 0
if imageslot(11) = 1 then imageslot(3) = 0
if imageslot(11) = 1 then imageslot(4) = 0
if imageslot(11) = 1 then imageslot(5) = 0
if imageslot(11) = 1 then imageslot(6) = 0
if imageslot(11) = 1 then imageslot(7) = 0
if imageslot(11) = 1 then imageslot(8) = 0
if imageslot(11) = 1 then imageslot(9) = 0
if imageslot(11) = 1 then imageslot(10) = 0
if imageslot(11) = 1 then imageslot(12) = 0
if imageslot(11) = 1 then imageslot(13) = 0
if imageslot(11) = 1 then imageslot(14) = 0
if imageslot(11) = 1 then imageslot(15) = 0
if imageslot(11) = 1 then imageslot(16) = 0
if imageslot(11) = 1 then imageslot(17) = 0
if imageslot(11) = 1 then imageslot(18) = 0
if imageslot(11) = 1 then imageslot(19) = 0
if imageslot(11) = 1 then imageslot(20) = 0
if imageslot(11) = 1 then imageslot(21) = 0
if imageslot(11) = 1 then imageslot(22) = 0
if imageslot(11) = 1 then imageslot(23) = 0
if imageslot(11) = 1 then imageslot(24) = 0
if imageslot(11) = 1 then imageslot(25) = 0
if imageslot(11) = 1 then imageslot(26) = 0
if imageslot(11) = 1 then imageslot(27) = 0
if imageslot(11) = 1 then imageslot(28) = 0
if imageslot(11) = 1 then imageslot(29) = 0
if imageslot(11) = 1 then imageslot(30) = 0
if imageslot(11) = 1 then imageslot(31) = 0
if imageslot(11) = 1 then imageslot(32) = 0
if imageslot(12) = 1 then imageslot(1) = 0
if imageslot(12) = 1 then imageslot(2) = 0
if imageslot(12) = 1 then imageslot(3) = 0
if imageslot(12) = 1 then imageslot(4) = 0
if imageslot(12) = 1 then imageslot(5) = 0
if imageslot(12) = 1 then imageslot(6) = 0
if imageslot(12) = 1 then imageslot(7) = 0
if imageslot(12) = 1 then imageslot(8) = 0
if imageslot(12) = 1 then imageslot(9) = 0
if imageslot(12) = 1 then imageslot(10) = 0
if imageslot(12) = 1 then imageslot(11) = 0
if imageslot(12) = 1 then imageslot(13) = 0
if imageslot(12) = 1 then imageslot(14) = 0
if imageslot(12) = 1 then imageslot(15) = 0
if imageslot(12) = 1 then imageslot(16) = 0
if imageslot(12) = 1 then imageslot(17) = 0
if imageslot(12) = 1 then imageslot(18) = 0
if imageslot(12) = 1 then imageslot(19) = 0
if imageslot(12) = 1 then imageslot(20) = 0
if imageslot(12) = 1 then imageslot(21) = 0
if imageslot(12) = 1 then imageslot(22) = 0
if imageslot(12) = 1 then imageslot(23) = 0
if imageslot(12) = 1 then imageslot(24) = 0
if imageslot(12) = 1 then imageslot(25) = 0
if imageslot(12) = 1 then imageslot(26) = 0
if imageslot(12) = 1 then imageslot(27) = 0
if imageslot(12) = 1 then imageslot(28) = 0
if imageslot(12) = 1 then imageslot(29) = 0
if imageslot(12) = 1 then imageslot(30) = 0
if imageslot(12) = 1 then imageslot(31) = 0
if imageslot(12) = 1 then imageslot(32) = 0
if imageslot(13) = 1 then imageslot(1) = 0
if imageslot(13) = 1 then imageslot(2) = 0
if imageslot(13) = 1 then imageslot(3) = 0
if imageslot(13) = 1 then imageslot(4) = 0
if imageslot(13) = 1 then imageslot(5) = 0
if imageslot(13) = 1 then imageslot(6) = 0
if imageslot(13) = 1 then imageslot(7) = 0
if imageslot(13) = 1 then imageslot(8) = 0
if imageslot(13) = 1 then imageslot(9) = 0
if imageslot(13) = 1 then imageslot(10) = 0
if imageslot(13) = 1 then imageslot(11) = 0
if imageslot(13) = 1 then imageslot(12) = 0
if imageslot(13) = 1 then imageslot(14) = 0
if imageslot(13) = 1 then imageslot(15) = 0
if imageslot(13) = 1 then imageslot(16) = 0
if imageslot(13) = 1 then imageslot(17) = 0
if imageslot(13) = 1 then imageslot(18) = 0
if imageslot(13) = 1 then imageslot(19) = 0
if imageslot(13) = 1 then imageslot(20) = 0
if imageslot(13) = 1 then imageslot(21) = 0
if imageslot(13) = 1 then imageslot(22) = 0
if imageslot(13) = 1 then imageslot(23) = 0
if imageslot(13) = 1 then imageslot(24) = 0
if imageslot(13) = 1 then imageslot(25) = 0
if imageslot(13) = 1 then imageslot(26) = 0
if imageslot(13) = 1 then imageslot(27) = 0
if imageslot(13) = 1 then imageslot(28) = 0
if imageslot(13) = 1 then imageslot(29) = 0
if imageslot(13) = 1 then imageslot(30) = 0
if imageslot(13) = 1 then imageslot(31) = 0
if imageslot(13) = 1 then imageslot(32) = 0
if imageslot(14) = 1 then imageslot(1) = 0
if imageslot(14) = 1 then imageslot(2) = 0
if imageslot(14) = 1 then imageslot(3) = 0
if imageslot(14) = 1 then imageslot(4) = 0
if imageslot(14) = 1 then imageslot(5) = 0
if imageslot(14) = 1 then imageslot(6) = 0
if imageslot(14) = 1 then imageslot(7) = 0
if imageslot(14) = 1 then imageslot(8) = 0
if imageslot(14) = 1 then imageslot(9) = 0
if imageslot(14) = 1 then imageslot(10) = 0
if imageslot(14) = 1 then imageslot(11) = 0
if imageslot(14) = 1 then imageslot(12) = 0
if imageslot(14) = 1 then imageslot(13) = 0
if imageslot(14) = 1 then imageslot(15) = 0
if imageslot(14) = 1 then imageslot(16) = 0
if imageslot(14) = 1 then imageslot(17) = 0
if imageslot(14) = 1 then imageslot(18) = 0
if imageslot(14) = 1 then imageslot(19) = 0
if imageslot(14) = 1 then imageslot(20) = 0
if imageslot(14) = 1 then imageslot(21) = 0
if imageslot(14) = 1 then imageslot(22) = 0
if imageslot(14) = 1 then imageslot(23) = 0
if imageslot(14) = 1 then imageslot(24) = 0
if imageslot(14) = 1 then imageslot(25) = 0
if imageslot(14) = 1 then imageslot(26) = 0
if imageslot(14) = 1 then imageslot(27) = 0
if imageslot(14) = 1 then imageslot(28) = 0
if imageslot(14) = 1 then imageslot(29) = 0
if imageslot(14) = 1 then imageslot(30) = 0
if imageslot(14) = 1 then imageslot(31) = 0
if imageslot(14) = 1 then imageslot(32) = 0
if imageslot(15) = 1 then imageslot(1) = 0
if imageslot(15) = 1 then imageslot(2) = 0
if imageslot(15) = 1 then imageslot(3) = 0
if imageslot(15) = 1 then imageslot(4) = 0
if imageslot(15) = 1 then imageslot(5) = 0
if imageslot(15) = 1 then imageslot(6) = 0
if imageslot(15) = 1 then imageslot(7) = 0
if imageslot(15) = 1 then imageslot(8) = 0
if imageslot(15) = 1 then imageslot(9) = 0
if imageslot(15) = 1 then imageslot(10) = 0
if imageslot(15) = 1 then imageslot(11) = 0
if imageslot(15) = 1 then imageslot(12) = 0
if imageslot(15) = 1 then imageslot(13) = 0
if imageslot(15) = 1 then imageslot(14) = 0
if imageslot(15) = 1 then imageslot(16) = 0
if imageslot(15) = 1 then imageslot(17) = 0
if imageslot(15) = 1 then imageslot(18) = 0
if imageslot(15) = 1 then imageslot(19) = 0
if imageslot(15) = 1 then imageslot(20) = 0
if imageslot(15) = 1 then imageslot(21) = 0
if imageslot(15) = 1 then imageslot(22) = 0
if imageslot(15) = 1 then imageslot(23) = 0
if imageslot(15) = 1 then imageslot(24) = 0
if imageslot(15) = 1 then imageslot(25) = 0
if imageslot(15) = 1 then imageslot(26) = 0
if imageslot(15) = 1 then imageslot(27) = 0
if imageslot(15) = 1 then imageslot(28) = 0
if imageslot(15) = 1 then imageslot(29) = 0
if imageslot(15) = 1 then imageslot(30) = 0
if imageslot(15) = 1 then imageslot(31) = 0
if imageslot(15) = 1 then imageslot(32) = 0
if imageslot(16) = 1 then imageslot(1) = 0
if imageslot(16) = 1 then imageslot(2) = 0
if imageslot(16) = 1 then imageslot(3) = 0
if imageslot(16) = 1 then imageslot(4) = 0
if imageslot(16) = 1 then imageslot(5) = 0
if imageslot(16) = 1 then imageslot(6) = 0
if imageslot(16) = 1 then imageslot(7) = 0
if imageslot(16) = 1 then imageslot(8) = 0
if imageslot(16) = 1 then imageslot(9) = 0
if imageslot(16) = 1 then imageslot(10) = 0
if imageslot(16) = 1 then imageslot(11) = 0
if imageslot(16) = 1 then imageslot(12) = 0
if imageslot(16) = 1 then imageslot(13) = 0
if imageslot(16) = 1 then imageslot(14) = 0
if imageslot(16) = 1 then imageslot(15) = 0
if imageslot(16) = 1 then imageslot(17) = 0
if imageslot(16) = 1 then imageslot(18) = 0
if imageslot(16) = 1 then imageslot(19) = 0
if imageslot(16) = 1 then imageslot(20) = 0
if imageslot(16) = 1 then imageslot(21) = 0
if imageslot(16) = 1 then imageslot(22) = 0
if imageslot(16) = 1 then imageslot(23) = 0
if imageslot(16) = 1 then imageslot(24) = 0
if imageslot(16) = 1 then imageslot(25) = 0
if imageslot(16) = 1 then imageslot(26) = 0
if imageslot(16) = 1 then imageslot(27) = 0
if imageslot(16) = 1 then imageslot(28) = 0
if imageslot(16) = 1 then imageslot(29) = 0
if imageslot(16) = 1 then imageslot(30) = 0
if imageslot(16) = 1 then imageslot(31) = 0
if imageslot(16) = 1 then imageslot(32) = 0
if imageslot(17) = 1 then imageslot(1) = 0
if imageslot(17) = 1 then imageslot(2) = 0
if imageslot(17) = 1 then imageslot(3) = 0
if imageslot(17) = 1 then imageslot(4) = 0
if imageslot(17) = 1 then imageslot(5) = 0
if imageslot(17) = 1 then imageslot(6) = 0
if imageslot(17) = 1 then imageslot(7) = 0
if imageslot(17) = 1 then imageslot(8) = 0
if imageslot(17) = 1 then imageslot(9) = 0
if imageslot(17) = 1 then imageslot(10) = 0
if imageslot(17) = 1 then imageslot(11) = 0
if imageslot(17) = 1 then imageslot(12) = 0
if imageslot(17) = 1 then imageslot(13) = 0
if imageslot(17) = 1 then imageslot(14) = 0
if imageslot(17) = 1 then imageslot(15) = 0
if imageslot(17) = 1 then imageslot(16) = 0
if imageslot(17) = 1 then imageslot(18) = 0
if imageslot(17) = 1 then imageslot(19) = 0
if imageslot(17) = 1 then imageslot(20) = 0
if imageslot(17) = 1 then imageslot(21) = 0
if imageslot(17) = 1 then imageslot(22) = 0
if imageslot(17) = 1 then imageslot(23) = 0
if imageslot(17) = 1 then imageslot(24) = 0
if imageslot(17) = 1 then imageslot(25) = 0
if imageslot(17) = 1 then imageslot(26) = 0
if imageslot(17) = 1 then imageslot(27) = 0
if imageslot(17) = 1 then imageslot(28) = 0
if imageslot(17) = 1 then imageslot(29) = 0
if imageslot(17) = 1 then imageslot(30) = 0
if imageslot(17) = 1 then imageslot(31) = 0
if imageslot(17) = 1 then imageslot(32) = 0
if imageslot(18) = 1 then imageslot(1) = 0
if imageslot(18) = 1 then imageslot(2) = 0
if imageslot(18) = 1 then imageslot(3) = 0
if imageslot(18) = 1 then imageslot(4) = 0
if imageslot(18) = 1 then imageslot(5) = 0
if imageslot(18) = 1 then imageslot(6) = 0
if imageslot(18) = 1 then imageslot(7) = 0
if imageslot(18) = 1 then imageslot(8) = 0
if imageslot(18) = 1 then imageslot(9) = 0
if imageslot(18) = 1 then imageslot(10) = 0
if imageslot(18) = 1 then imageslot(11) = 0
if imageslot(18) = 1 then imageslot(12) = 0
if imageslot(18) = 1 then imageslot(13) = 0
if imageslot(18) = 1 then imageslot(14) = 0
if imageslot(18) = 1 then imageslot(15) = 0
if imageslot(18) = 1 then imageslot(16) = 0
if imageslot(18) = 1 then imageslot(17) = 0
if imageslot(18) = 1 then imageslot(19) = 0
if imageslot(18) = 1 then imageslot(20) = 0
if imageslot(18) = 1 then imageslot(21) = 0
if imageslot(18) = 1 then imageslot(22) = 0
if imageslot(18) = 1 then imageslot(23) = 0
if imageslot(18) = 1 then imageslot(24) = 0
if imageslot(18) = 1 then imageslot(25) = 0
if imageslot(18) = 1 then imageslot(26) = 0
if imageslot(18) = 1 then imageslot(27) = 0
if imageslot(18) = 1 then imageslot(28) = 0
if imageslot(18) = 1 then imageslot(29) = 0
if imageslot(18) = 1 then imageslot(30) = 0
if imageslot(18) = 1 then imageslot(31) = 0
if imageslot(18) = 1 then imageslot(32) = 0
if imageslot(19) = 1 then imageslot(1) = 0
if imageslot(19) = 1 then imageslot(2) = 0
if imageslot(19) = 1 then imageslot(3) = 0
if imageslot(19) = 1 then imageslot(4) = 0
if imageslot(19) = 1 then imageslot(5) = 0
if imageslot(19) = 1 then imageslot(6) = 0
if imageslot(19) = 1 then imageslot(7) = 0
if imageslot(19) = 1 then imageslot(8) = 0
if imageslot(19) = 1 then imageslot(9) = 0
if imageslot(19) = 1 then imageslot(10) = 0
if imageslot(19) = 1 then imageslot(11) = 0
if imageslot(19) = 1 then imageslot(12) = 0
if imageslot(19) = 1 then imageslot(13) = 0
if imageslot(19) = 1 then imageslot(14) = 0
if imageslot(19) = 1 then imageslot(15) = 0
if imageslot(19) = 1 then imageslot(16) = 0
if imageslot(19) = 1 then imageslot(17) = 0
if imageslot(19) = 1 then imageslot(18) = 0
if imageslot(19) = 1 then imageslot(20) = 0
if imageslot(19) = 1 then imageslot(21) = 0
if imageslot(19) = 1 then imageslot(22) = 0
if imageslot(19) = 1 then imageslot(23) = 0
if imageslot(19) = 1 then imageslot(24) = 0
if imageslot(19) = 1 then imageslot(25) = 0
if imageslot(19) = 1 then imageslot(26) = 0
if imageslot(19) = 1 then imageslot(27) = 0
if imageslot(19) = 1 then imageslot(28) = 0
if imageslot(19) = 1 then imageslot(29) = 0
if imageslot(19) = 1 then imageslot(30) = 0
if imageslot(19) = 1 then imageslot(31) = 0
if imageslot(19) = 1 then imageslot(32) = 0
if imageslot(20) = 1 then imageslot(1) = 0
if imageslot(20) = 1 then imageslot(2) = 0
if imageslot(20) = 1 then imageslot(3) = 0
if imageslot(20) = 1 then imageslot(4) = 0
if imageslot(20) = 1 then imageslot(5) = 0
if imageslot(20) = 1 then imageslot(6) = 0
if imageslot(20) = 1 then imageslot(7) = 0
if imageslot(20) = 1 then imageslot(8) = 0
if imageslot(20) = 1 then imageslot(9) = 0
if imageslot(20) = 1 then imageslot(10) = 0
if imageslot(20) = 1 then imageslot(11) = 0
if imageslot(20) = 1 then imageslot(12) = 0
if imageslot(20) = 1 then imageslot(13) = 0
if imageslot(20) = 1 then imageslot(14) = 0
if imageslot(20) = 1 then imageslot(15) = 0
if imageslot(20) = 1 then imageslot(16) = 0
if imageslot(20) = 1 then imageslot(17) = 0
if imageslot(20) = 1 then imageslot(18) = 0
if imageslot(20) = 1 then imageslot(19) = 0
if imageslot(20) = 1 then imageslot(21) = 0
if imageslot(20) = 1 then imageslot(22) = 0
if imageslot(20) = 1 then imageslot(23) = 0
if imageslot(20) = 1 then imageslot(24) = 0
if imageslot(20) = 1 then imageslot(25) = 0
if imageslot(20) = 1 then imageslot(26) = 0
if imageslot(20) = 1 then imageslot(27) = 0
if imageslot(20) = 1 then imageslot(28) = 0
if imageslot(20) = 1 then imageslot(29) = 0
if imageslot(20) = 1 then imageslot(30) = 0
if imageslot(20) = 1 then imageslot(31) = 0
if imageslot(20) = 1 then imageslot(32) = 0
if imageslot(21) = 1 then imageslot(1) = 0
if imageslot(21) = 1 then imageslot(2) = 0
if imageslot(21) = 1 then imageslot(3) = 0
if imageslot(21) = 1 then imageslot(4) = 0
if imageslot(21) = 1 then imageslot(5) = 0
if imageslot(21) = 1 then imageslot(6) = 0
if imageslot(21) = 1 then imageslot(7) = 0
if imageslot(21) = 1 then imageslot(8) = 0
if imageslot(21) = 1 then imageslot(9) = 0
if imageslot(21) = 1 then imageslot(10) = 0
if imageslot(21) = 1 then imageslot(11) = 0
if imageslot(21) = 1 then imageslot(12) = 0
if imageslot(21) = 1 then imageslot(13) = 0
if imageslot(21) = 1 then imageslot(14) = 0
if imageslot(21) = 1 then imageslot(15) = 0
if imageslot(21) = 1 then imageslot(16) = 0
if imageslot(21) = 1 then imageslot(17) = 0
if imageslot(21) = 1 then imageslot(18) = 0
if imageslot(21) = 1 then imageslot(19) = 0
if imageslot(21) = 1 then imageslot(20) = 0
if imageslot(21) = 1 then imageslot(22) = 0
if imageslot(21) = 1 then imageslot(23) = 0
if imageslot(21) = 1 then imageslot(24) = 0
if imageslot(21) = 1 then imageslot(25) = 0
if imageslot(21) = 1 then imageslot(26) = 0
if imageslot(21) = 1 then imageslot(27) = 0
if imageslot(21) = 1 then imageslot(28) = 0
if imageslot(21) = 1 then imageslot(29) = 0
if imageslot(21) = 1 then imageslot(30) = 0
if imageslot(21) = 1 then imageslot(31) = 0
if imageslot(21) = 1 then imageslot(32) = 0
if imageslot(22) = 1 then imageslot(1) = 0
if imageslot(22) = 1 then imageslot(2) = 0
if imageslot(22) = 1 then imageslot(3) = 0
if imageslot(22) = 1 then imageslot(4) = 0
if imageslot(22) = 1 then imageslot(5) = 0
if imageslot(22) = 1 then imageslot(6) = 0
if imageslot(22) = 1 then imageslot(7) = 0
if imageslot(22) = 1 then imageslot(8) = 0
if imageslot(22) = 1 then imageslot(9) = 0
if imageslot(22) = 1 then imageslot(10) = 0
if imageslot(22) = 1 then imageslot(11) = 0
if imageslot(22) = 1 then imageslot(12) = 0
if imageslot(22) = 1 then imageslot(13) = 0
if imageslot(22) = 1 then imageslot(14) = 0
if imageslot(22) = 1 then imageslot(15) = 0
if imageslot(22) = 1 then imageslot(16) = 0
if imageslot(22) = 1 then imageslot(17) = 0
if imageslot(22) = 1 then imageslot(18) = 0
if imageslot(22) = 1 then imageslot(19) = 0
if imageslot(22) = 1 then imageslot(20) = 0
if imageslot(22) = 1 then imageslot(21) = 0
if imageslot(22) = 1 then imageslot(23) = 0
if imageslot(22) = 1 then imageslot(24) = 0
if imageslot(22) = 1 then imageslot(25) = 0
if imageslot(22) = 1 then imageslot(26) = 0
if imageslot(22) = 1 then imageslot(27) = 0
if imageslot(22) = 1 then imageslot(28) = 0
if imageslot(22) = 1 then imageslot(29) = 0
if imageslot(22) = 1 then imageslot(30) = 0
if imageslot(22) = 1 then imageslot(31) = 0
if imageslot(22) = 1 then imageslot(32) = 0
if imageslot(23) = 1 then imageslot(1) = 0
if imageslot(23) = 1 then imageslot(2) = 0
if imageslot(23) = 1 then imageslot(3) = 0
if imageslot(23) = 1 then imageslot(4) = 0
if imageslot(23) = 1 then imageslot(5) = 0
if imageslot(23) = 1 then imageslot(6) = 0
if imageslot(23) = 1 then imageslot(7) = 0
if imageslot(23) = 1 then imageslot(8) = 0
if imageslot(23) = 1 then imageslot(9) = 0
if imageslot(23) = 1 then imageslot(10) = 0
if imageslot(23) = 1 then imageslot(11) = 0
if imageslot(23) = 1 then imageslot(12) = 0
if imageslot(23) = 1 then imageslot(13) = 0
if imageslot(23) = 1 then imageslot(14) = 0
if imageslot(23) = 1 then imageslot(15) = 0
if imageslot(23) = 1 then imageslot(16) = 0
if imageslot(23) = 1 then imageslot(17) = 0
if imageslot(23) = 1 then imageslot(18) = 0
if imageslot(23) = 1 then imageslot(19) = 0
if imageslot(23) = 1 then imageslot(20) = 0
if imageslot(23) = 1 then imageslot(21) = 0
if imageslot(23) = 1 then imageslot(22) = 0
if imageslot(23) = 1 then imageslot(24) = 0
if imageslot(23) = 1 then imageslot(25) = 0
if imageslot(23) = 1 then imageslot(26) = 0
if imageslot(23) = 1 then imageslot(27) = 0
if imageslot(23) = 1 then imageslot(28) = 0
if imageslot(23) = 1 then imageslot(29) = 0
if imageslot(23) = 1 then imageslot(30) = 0
if imageslot(23) = 1 then imageslot(31) = 0
if imageslot(23) = 1 then imageslot(32) = 0
if imageslot(24) = 1 then imageslot(1) = 0
if imageslot(24) = 1 then imageslot(2) = 0
if imageslot(24) = 1 then imageslot(3) = 0
if imageslot(24) = 1 then imageslot(4) = 0
if imageslot(24) = 1 then imageslot(5) = 0
if imageslot(24) = 1 then imageslot(6) = 0
if imageslot(24) = 1 then imageslot(7) = 0
if imageslot(24) = 1 then imageslot(8) = 0
if imageslot(24) = 1 then imageslot(9) = 0
if imageslot(24) = 1 then imageslot(10) = 0
if imageslot(24) = 1 then imageslot(11) = 0
if imageslot(24) = 1 then imageslot(12) = 0
if imageslot(24) = 1 then imageslot(13) = 0
if imageslot(24) = 1 then imageslot(14) = 0
if imageslot(24) = 1 then imageslot(15) = 0
if imageslot(24) = 1 then imageslot(16) = 0
if imageslot(24) = 1 then imageslot(17) = 0
if imageslot(24) = 1 then imageslot(18) = 0
if imageslot(24) = 1 then imageslot(19) = 0
if imageslot(24) = 1 then imageslot(20) = 0
if imageslot(24) = 1 then imageslot(21) = 0
if imageslot(24) = 1 then imageslot(22) = 0
if imageslot(24) = 1 then imageslot(23) = 0
if imageslot(24) = 1 then imageslot(25) = 0
if imageslot(24) = 1 then imageslot(26) = 0
if imageslot(24) = 1 then imageslot(27) = 0
if imageslot(24) = 1 then imageslot(28) = 0
if imageslot(24) = 1 then imageslot(29) = 0
if imageslot(24) = 1 then imageslot(30) = 0
if imageslot(24) = 1 then imageslot(31) = 0
if imageslot(24) = 1 then imageslot(32) = 0
if imageslot(25) = 1 then imageslot(1) = 0
if imageslot(25) = 1 then imageslot(2) = 0
if imageslot(25) = 1 then imageslot(3) = 0
if imageslot(25) = 1 then imageslot(4) = 0
if imageslot(25) = 1 then imageslot(5) = 0
if imageslot(25) = 1 then imageslot(6) = 0
if imageslot(25) = 1 then imageslot(7) = 0
if imageslot(25) = 1 then imageslot(8) = 0
if imageslot(25) = 1 then imageslot(9) = 0
if imageslot(25) = 1 then imageslot(10) = 0
if imageslot(25) = 1 then imageslot(11) = 0
if imageslot(25) = 1 then imageslot(12) = 0
if imageslot(25) = 1 then imageslot(13) = 0
if imageslot(25) = 1 then imageslot(14) = 0
if imageslot(25) = 1 then imageslot(15) = 0
if imageslot(25) = 1 then imageslot(16) = 0
if imageslot(25) = 1 then imageslot(17) = 0
if imageslot(25) = 1 then imageslot(18) = 0
if imageslot(25) = 1 then imageslot(19) = 0
if imageslot(25) = 1 then imageslot(20) = 0
if imageslot(25) = 1 then imageslot(21) = 0
if imageslot(25) = 1 then imageslot(22) = 0
if imageslot(25) = 1 then imageslot(23) = 0
if imageslot(25) = 1 then imageslot(24) = 0
if imageslot(25) = 1 then imageslot(26) = 0
if imageslot(25) = 1 then imageslot(27) = 0
if imageslot(25) = 1 then imageslot(28) = 0
if imageslot(25) = 1 then imageslot(29) = 0
if imageslot(25) = 1 then imageslot(30) = 0
if imageslot(25) = 1 then imageslot(31) = 0
if imageslot(25) = 1 then imageslot(32) = 0
if imageslot(26) = 1 then imageslot(1) = 0
if imageslot(26) = 1 then imageslot(2) = 0
if imageslot(26) = 1 then imageslot(3) = 0
if imageslot(26) = 1 then imageslot(4) = 0
if imageslot(26) = 1 then imageslot(5) = 0
if imageslot(26) = 1 then imageslot(6) = 0
if imageslot(26) = 1 then imageslot(7) = 0
if imageslot(26) = 1 then imageslot(8) = 0
if imageslot(26) = 1 then imageslot(9) = 0
if imageslot(26) = 1 then imageslot(10) = 0
if imageslot(26) = 1 then imageslot(11) = 0
if imageslot(26) = 1 then imageslot(12) = 0
if imageslot(26) = 1 then imageslot(13) = 0
if imageslot(26) = 1 then imageslot(14) = 0
if imageslot(26) = 1 then imageslot(15) = 0
if imageslot(26) = 1 then imageslot(16) = 0
if imageslot(26) = 1 then imageslot(17) = 0
if imageslot(26) = 1 then imageslot(18) = 0
if imageslot(26) = 1 then imageslot(19) = 0
if imageslot(26) = 1 then imageslot(20) = 0
if imageslot(26) = 1 then imageslot(21) = 0
if imageslot(26) = 1 then imageslot(22) = 0
if imageslot(26) = 1 then imageslot(23) = 0
if imageslot(26) = 1 then imageslot(24) = 0
if imageslot(26) = 1 then imageslot(25) = 0
if imageslot(26) = 1 then imageslot(27) = 0
if imageslot(26) = 1 then imageslot(28) = 0
if imageslot(26) = 1 then imageslot(29) = 0
if imageslot(26) = 1 then imageslot(30) = 0
if imageslot(26) = 1 then imageslot(31) = 0
if imageslot(26) = 1 then imageslot(32) = 0
if imageslot(27) = 1 then imageslot(1) = 0
if imageslot(27) = 1 then imageslot(2) = 0
if imageslot(27) = 1 then imageslot(3) = 0
if imageslot(27) = 1 then imageslot(4) = 0
if imageslot(27) = 1 then imageslot(5) = 0
if imageslot(27) = 1 then imageslot(6) = 0
if imageslot(27) = 1 then imageslot(7) = 0
if imageslot(27) = 1 then imageslot(8) = 0
if imageslot(27) = 1 then imageslot(9) = 0
if imageslot(27) = 1 then imageslot(10) = 0
if imageslot(27) = 1 then imageslot(11) = 0
if imageslot(27) = 1 then imageslot(12) = 0
if imageslot(27) = 1 then imageslot(13) = 0
if imageslot(27) = 1 then imageslot(14) = 0
if imageslot(27) = 1 then imageslot(15) = 0
if imageslot(27) = 1 then imageslot(16) = 0
if imageslot(27) = 1 then imageslot(17) = 0
if imageslot(27) = 1 then imageslot(18) = 0
if imageslot(27) = 1 then imageslot(19) = 0
if imageslot(27) = 1 then imageslot(20) = 0
if imageslot(27) = 1 then imageslot(21) = 0
if imageslot(27) = 1 then imageslot(22) = 0
if imageslot(27) = 1 then imageslot(23) = 0
if imageslot(27) = 1 then imageslot(24) = 0
if imageslot(27) = 1 then imageslot(25) = 0
if imageslot(27) = 1 then imageslot(26) = 0
if imageslot(27) = 1 then imageslot(28) = 0
if imageslot(27) = 1 then imageslot(29) = 0
if imageslot(27) = 1 then imageslot(30) = 0
if imageslot(27) = 1 then imageslot(31) = 0
if imageslot(27) = 1 then imageslot(32) = 0
if imageslot(28) = 1 then imageslot(1) = 0
if imageslot(28) = 1 then imageslot(2) = 0
if imageslot(28) = 1 then imageslot(3) = 0
if imageslot(28) = 1 then imageslot(4) = 0
if imageslot(28) = 1 then imageslot(5) = 0
if imageslot(28) = 1 then imageslot(6) = 0
if imageslot(28) = 1 then imageslot(7) = 0
if imageslot(28) = 1 then imageslot(8) = 0
if imageslot(28) = 1 then imageslot(9) = 0
if imageslot(28) = 1 then imageslot(10) = 0
if imageslot(28) = 1 then imageslot(11) = 0
if imageslot(28) = 1 then imageslot(12) = 0
if imageslot(28) = 1 then imageslot(13) = 0
if imageslot(28) = 1 then imageslot(14) = 0
if imageslot(28) = 1 then imageslot(15) = 0
if imageslot(28) = 1 then imageslot(16) = 0
if imageslot(28) = 1 then imageslot(17) = 0
if imageslot(28) = 1 then imageslot(18) = 0
if imageslot(28) = 1 then imageslot(19) = 0
if imageslot(28) = 1 then imageslot(20) = 0
if imageslot(28) = 1 then imageslot(21) = 0
if imageslot(28) = 1 then imageslot(22) = 0
if imageslot(28) = 1 then imageslot(23) = 0
if imageslot(28) = 1 then imageslot(24) = 0
if imageslot(28) = 1 then imageslot(25) = 0
if imageslot(28) = 1 then imageslot(26) = 0
if imageslot(28) = 1 then imageslot(27) = 0
if imageslot(28) = 1 then imageslot(29) = 0
if imageslot(28) = 1 then imageslot(30) = 0
if imageslot(28) = 1 then imageslot(31) = 0
if imageslot(28) = 1 then imageslot(32) = 0
if imageslot(29) = 1 then imageslot(1) = 0
if imageslot(29) = 1 then imageslot(2) = 0
if imageslot(29) = 1 then imageslot(3) = 0
if imageslot(29) = 1 then imageslot(4) = 0
if imageslot(29) = 1 then imageslot(5) = 0
if imageslot(29) = 1 then imageslot(6) = 0
if imageslot(29) = 1 then imageslot(7) = 0
if imageslot(29) = 1 then imageslot(8) = 0
if imageslot(29) = 1 then imageslot(9) = 0
if imageslot(29) = 1 then imageslot(10) = 0
if imageslot(29) = 1 then imageslot(11) = 0
if imageslot(29) = 1 then imageslot(12) = 0
if imageslot(29) = 1 then imageslot(13) = 0
if imageslot(29) = 1 then imageslot(14) = 0
if imageslot(29) = 1 then imageslot(15) = 0
if imageslot(29) = 1 then imageslot(16) = 0
if imageslot(29) = 1 then imageslot(17) = 0
if imageslot(29) = 1 then imageslot(18) = 0
if imageslot(29) = 1 then imageslot(19) = 0
if imageslot(29) = 1 then imageslot(20) = 0
if imageslot(29) = 1 then imageslot(21) = 0
if imageslot(29) = 1 then imageslot(22) = 0
if imageslot(29) = 1 then imageslot(23) = 0
if imageslot(29) = 1 then imageslot(24) = 0
if imageslot(29) = 1 then imageslot(25) = 0
if imageslot(29) = 1 then imageslot(26) = 0
if imageslot(29) = 1 then imageslot(27) = 0
if imageslot(29) = 1 then imageslot(28) = 0
if imageslot(29) = 1 then imageslot(30) = 0
if imageslot(29) = 1 then imageslot(31) = 0
if imageslot(29) = 1 then imageslot(32) = 0
if imageslot(30) = 1 then imageslot(1) = 0
if imageslot(30) = 1 then imageslot(2) = 0
if imageslot(30) = 1 then imageslot(3) = 0
if imageslot(30) = 1 then imageslot(4) = 0
if imageslot(30) = 1 then imageslot(5) = 0
if imageslot(30) = 1 then imageslot(6) = 0
if imageslot(30) = 1 then imageslot(7) = 0
if imageslot(30) = 1 then imageslot(8) = 0
if imageslot(30) = 1 then imageslot(9) = 0
if imageslot(30) = 1 then imageslot(10) = 0
if imageslot(30) = 1 then imageslot(11) = 0
if imageslot(30) = 1 then imageslot(12) = 0
if imageslot(30) = 1 then imageslot(13) = 0
if imageslot(30) = 1 then imageslot(14) = 0
if imageslot(30) = 1 then imageslot(15) = 0
if imageslot(30) = 1 then imageslot(16) = 0
if imageslot(30) = 1 then imageslot(17) = 0
if imageslot(30) = 1 then imageslot(18) = 0
if imageslot(30) = 1 then imageslot(19) = 0
if imageslot(30) = 1 then imageslot(20) = 0
if imageslot(30) = 1 then imageslot(21) = 0
if imageslot(30) = 1 then imageslot(22) = 0
if imageslot(30) = 1 then imageslot(23) = 0
if imageslot(30) = 1 then imageslot(24) = 0
if imageslot(30) = 1 then imageslot(25) = 0
if imageslot(30) = 1 then imageslot(26) = 0
if imageslot(30) = 1 then imageslot(27) = 0
if imageslot(30) = 1 then imageslot(28) = 0
if imageslot(30) = 1 then imageslot(29) = 0
if imageslot(30) = 1 then imageslot(30) = 0
if imageslot(30) = 1 then imageslot(31) = 0
if imageslot(30) = 1 then imageslot(32) = 0
Input "Imagename: ";imagename$
set cursor 48,100
if file exist(imagename$) = 0 then set cursor 48,100:Print "Image Do Not Exist!":image = 0
set cursor 48,160
image = 2
endif
if image = 2
paste image 500,33,50
set cursor 48,80
Print "Imagename: ";imagename$
set cursor 48,100
Print "Loading - Image ";imagename$
load image imagename$,imageid
set cursor 48,120
Print "You can now view your added images under the view tab"
set cursor 48,140
Print "Successfully completed. Press ` Key Please."
if inkey$() = "`" then image = 0
endif

`####################Establish View Button
if sprite collision(7,100) = 1 and mouseclick() = 1 then view = 1

if view = 1
game = 0
other = 0
file_start = 0
add = 0
editor = 0
help = 0
load image "media/view2.bmp",500
paste image 500,33,50
cursorno = 0
cursorgo = 1
load image "media/texts.bmp",501
paste image 501,43,100
sprite 501,43,100,501
hide sprite 501
load image "media/image2.bmp",502
paste image 502,43,150
sprite 502,43,150,502
hide sprite 502
load image "media/musics.bmp",503
paste image 503,123,100
sprite 503,123,100,503
hide sprite 503
load image "media/levels.bmp",504
paste image 504,123,150
sprite 504,123,150,504
hide sprite 504
load image "media/tiles.bmp",505
paste image 505,43,200
sprite 505,43,200,505
hide sprite 505
load image "media/exit2.bmp",506
paste image 506,123,200
sprite 506,123,200,506
hide sprite 506
load image "media/snds.bmp",507
paste image 507,43,250
sprite 507,43,300,507
hide sprite 507
if sprite collision(200,506) = 1 and mouseclick() = 1 then view = 0
if sprite collision(200,502) = 1 and mouseclick() = 1 then imageview = 1:view = 0

endif

Remstart
#################Establish for viewing and pasting an image
Remend

if imageview = 1
load image "media/viewimage.bmp",500
paste image 500,33,50



endif


Remstart
###############Establish Game Button
Remend

`Game
if sprite collision(4,100) = 1 and mouseclick() = 1 then  game = 1:view = 0:other = 0:file_start = 0:add = 0:editor = 0:help = 0:view = 0

if game = 1
load image "media/game3.bmp",500
paste image 500,33,500
load image "media/project.bmp",501
sprite 501,53,520,501

endif

`help
if sprite collision(5,100) = 1 and mouseclick() = 1 then help = 1:other = 0:game = 0:add = 0:editor = 0:file_start = 0

if help = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
Print "JonoGame 2d Manual - By: Jonathan Skinner"
ink rgb(0,255,0),1
Print
Print "These are the troubleshooting or MISC sections"
Print "A>bout JonoGame 2d"
Print "R>eadme"
Print "G>lossary"
Print "S>cripter Tutorials"
Print
ink rgb(255,255,0),1
Print "Below are the tutorial sections"
Print "1>Chapter 1 - Welcome"
Print "2>Chapter 2 - Making a Ball & Paddle/Bat Game"
Print "3>Chapter 3 - Making a Space Shooter"
Print "4>Chapter 4 - Making a Fighter Game"
Print "5>Chapter 5 - Making a Pac-Man Clone"
Print "6>Chapter 6 - Making a Quiz Game"
Print "7>Chapter 7 - Making a Target Shoot Out Game"
Print "8>Chapter 8 - Making a Adventure Game"
Print "9>Chapter 9 - Side-Scrolling"
Print "10>Chapter 10 - The Quiz"
Print
ink rgb(255,0,0),1
Print "Below are the advance design technique tips and tuts"
Print "11>Chapter 11 - Giving the Illusion of 3d"
Print "12>Chapter 12 - Isometric Games"
Print "13>Chapter 13 - Animations, Applications, and Presentations"
Print "14>Chapter 14 - Advanced AI"
Print "15>Chapter 15 - Advanced Techniques"
Print
Print "<space> Back to Editor"
if spacekey() = 1 then help = 0:gosub edit
if inkey$() = "A" or inkey$() = "a" then about = 1:help = 0
endif

if about = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
ink rgb(192,192,192),1
Print "JonoGame 2d - Manual - Section 1: About"
Print "JonoGame 2d was originally created as a science fair project."
endif
`file
if sprite collision(1,100) = 1 and mouseclick() = 1 then file_start = 1:other = 0:game = 0:add = 0:editor = 0:help = 0

`Refresh the screen
sync
loop

if imageid = 700 then imageslot(1) = 1
if imageid = 701 then imageslot(2) = 1
if imageid = 702 then imageslot(3) = 1
if imageid = 703 then imageslot(4) = 1
if imageid = 704 then imageslot(5) = 1
if imageid = 705 then imageslot(6) = 1
if imageid = 706 then imageslot(7) = 1
if imageid = 707 then imageslot(8) = 1
if imageid = 708 then imageslot(9) = 1
if imageid = 709 then imageslot(10) = 1
if imageid = 710 then imageslot(11) = 1
if imageid = 711 then imageslot(12) = 1
if imageid = 712 then imageslot(13) = 1
if imageid = 713 then imageslot(14) = 1
if imageid = 714 then imageslot(15) = 1
if imageid = 715 then imageslot(16) = 1
if imageid = 716 then imageslot(17) = 1
if imageid = 717 then imageslot(18) = 1
if imageid = 718 then imageslot(19) = 1
if imageid = 719 then imageslot(20) = 1
if imageid = 720 then imageslot(21) = 1
if imageid = 721 then imageslot(22) = 1
if imageid = 722 then imageslot(23) = 1
if imageid = 723 then imageslot(24) = 1
if imageid = 724 then imageslot(25) = 1
if imageid = 725 then imageslot(26) = 1
if imageid = 726 then imageslot(27) = 1
if imageid = 727 then imageslot(28) = 1
if imageid = 728 then imageslot(29) = 1
if imageid = 729 then imageslot(30) = 1
if imageid = 730 then imageslot(31) = 1
if imageid = 731 then imageslot(32) = 1
allowimage = 1
checkimageslot1 = 0
endif

if allowimage = 1
if imageslot(1) = 1 then imageslot(2) = 0
if imageslot(1) = 1 then imageslot(3) = 0
if imageslot(1) = 1 then imageslot(4) = 0
if imageslot(1) = 1 then imageslot(5) = 0
if imageslot(1) = 1 then imageslot(6) = 0
if imageslot(1) = 1 then imageslot(7) = 0
if imageslot(1) = 1 then imageslot(8) = 0
if imageslot(1) = 1 then imageslot(9) = 0
if imageslot(1) = 1 then imageslot(10) = 0
if imageslot(1) = 1 then imageslot(11) = 0
if imageslot(1) = 1 then imageslot(12) = 0
if imageslot(1) = 1 then imageslot(13) = 0
if imageslot(1) = 1 then imageslot(14) = 0
if imageslot(1) = 1 then imageslot(15) = 0
if imageslot(1) = 1 then imageslot(16) = 0
if imageslot(1) = 1 then imageslot(17) = 0
if imageslot(1) = 1 then imageslot(18) = 0
if imageslot(1) = 1 then imageslot(19) = 0
if imageslot(1) = 1 then imageslot(20) = 0
if imageslot(1) = 1 then imageslot(21) = 0
if imageslot(1) = 1 then imageslot(22) = 0
if imageslot(1) = 1 then imageslot(23) = 0
if imageslot(1) = 1 then imageslot(24) = 0
if imageslot(1) = 1 then imageslot(25) = 0
if imageslot(1) = 1 then imageslot(26) = 0
if imageslot(1) = 1 then imageslot(27) = 0
if imageslot(1) = 1 then imageslot(28) = 0
if imageslot(1) = 1 then imageslot(29) = 0
if imageslot(1) = 1 then imageslot(30) = 0
if imageslot(1) = 1 then imageslot(31) = 0
if imageslot(1) = 1 then imageslot(32) = 0
if imageslot(2) = 1 then imageslot(1) = 0
if imageslot(2) = 1 then imageslot(3) = 0
if imageslot(2) = 1 then imageslot(4) = 0
if imageslot(2) = 1 then imageslot(5) = 0
if imageslot(2) = 1 then imageslot(6) = 0
if imageslot(2) = 1 then imageslot(7) = 0
if imageslot(2) = 1 then imageslot(8) = 0
if imageslot(2) = 1 then imageslot(9) = 0
if imageslot(2) = 1 then imageslot(10) = 0
if imageslot(2) = 1 then imageslot(11) = 0
if imageslot(2) = 1 then imageslot(12) = 0
if imageslot(2) = 1 then imageslot(13) = 0
if imageslot(2) = 1 then imageslot(14) = 0
if imageslot(2) = 1 then imageslot(15) = 0
if imageslot(2) = 1 then imageslot(16) = 0
if imageslot(2) = 1 then imageslot(17) = 0
if imageslot(2) = 1 then imageslot(18) = 0
if imageslot(2) = 1 then imageslot(19) = 0
if imageslot(2) = 1 then imageslot(20) = 0
if imageslot(2) = 1 then imageslot(21) = 0
if imageslot(2) = 1 then imageslot(22) = 0
if imageslot(2) = 1 then imageslot(23) = 0
if imageslot(2) = 1 then imageslot(24) = 0
if imageslot(2) = 1 then imageslot(25) = 0
if imageslot(2) = 1 then imageslot(26) = 0
if imageslot(2) = 1 then imageslot(27) = 0
if imageslot(2) = 1 then imageslot(28) = 0
if imageslot(2) = 1 then imageslot(29) = 0
if imageslot(2) = 1 then imageslot(30) = 0
if imageslot(2) = 1 then imageslot(31) = 0
if imageslot(2) = 1 then imageslot(32) = 0
if imageslot(3) = 1 then imageslot(1) = 0
if imageslot(3) = 1 then imageslot(2) = 0
if imageslot(3) = 1 then imageslot(4) = 0
if imageslot(3) = 1 then imageslot(5) = 0
if imageslot(3) = 1 then imageslot(6) = 0
if imageslot(3) = 1 then imageslot(7) = 0
if imageslot(3) = 1 then imageslot(8) = 0
if imageslot(3) = 1 then imageslot(9) = 0
if imageslot(3) = 1 then imageslot(10) = 0
if imageslot(3) = 1 then imageslot(11) = 0
if imageslot(3) = 1 then imageslot(12) = 0
if imageslot(3) = 1 then imageslot(13) = 0
if imageslot(3) = 1 then imageslot(14) = 0
if imageslot(3) = 1 then imageslot(15) = 0
if imageslot(3) = 1 then imageslot(16) = 0
if imageslot(3) = 1 then imageslot(17) = 0
if imageslot(3) = 1 then imageslot(18) = 0
if imageslot(3) = 1 then imageslot(19) = 0
if imageslot(3) = 1 then imageslot(20) = 0
if imageslot(3) = 1 then imageslot(21) = 0
if imageslot(3) = 1 then imageslot(22) = 0
if imageslot(3) = 1 then imageslot(23) = 0
if imageslot(3) = 1 then imageslot(24) = 0
if imageslot(3) = 1 then imageslot(25) = 0
if imageslot(3) = 1 then imageslot(26) = 0
if imageslot(3) = 1 then imageslot(27) = 0
if imageslot(3) = 1 then imageslot(28) = 0
if imageslot(3) = 1 then imageslot(29) = 0
if imageslot(3) = 1 then imageslot(30) = 0
if imageslot(3) = 1 then imageslot(31) = 0
if imageslot(3) = 1 then imageslot(32) = 0
if imageslot(4) = 1 then imageslot(1) = 0
if imageslot(4) = 1 then imageslot(2) = 0
if imageslot(4) = 1 then imageslot(3) = 0
if imageslot(4) = 1 then imageslot(5) = 0
if imageslot(4) = 1 then imageslot(6) = 0
if imageslot(4) = 1 then imageslot(7) = 0
if imageslot(4) = 1 then imageslot(8) = 0
if imageslot(4) = 1 then imageslot(9) = 0
if imageslot(4) = 1 then imageslot(10) = 0
if imageslot(4) = 1 then imageslot(11) = 0
if imageslot(4) = 1 then imageslot(12) = 0
if imageslot(4) = 1 then imageslot(13) = 0
if imageslot(4) = 1 then imageslot(14) = 0
if imageslot(4) = 1 then imageslot(15) = 0
if imageslot(4) = 1 then imageslot(16) = 0
if imageslot(4) = 1 then imageslot(17) = 0
if imageslot(4) = 1 then imageslot(18) = 0
if imageslot(4) = 1 then imageslot(19) = 0
if imageslot(4) = 1 then imageslot(20) = 0
if imageslot(4) = 1 then imageslot(21) = 0
if imageslot(4) = 1 then imageslot(22) = 0
if imageslot(4) = 1 then imageslot(23) = 0
if imageslot(4) = 1 then imageslot(24) = 0
if imageslot(4) = 1 then imageslot(25) = 0
if imageslot(4) = 1 then imageslot(26) = 0
if imageslot(4) = 1 then imageslot(27) = 0
if imageslot(4) = 1 then imageslot(28) = 0
if imageslot(4) = 1 then imageslot(29) = 0
if imageslot(4) = 1 then imageslot(30) = 0
if imageslot(4) = 1 then imageslot(31) = 0
if imageslot(4) = 1 then imageslot(32) = 0
if imageslot(5) = 1 then imageslot(1) = 0
if imageslot(5) = 1 then imageslot(2) = 0
if imageslot(5) = 1 then imageslot(3) = 0
if imageslot(5) = 1 then imageslot(4) = 0
if imageslot(5) = 1 then imageslot(6) = 0
if imageslot(5) = 1 then imageslot(7) = 0
if imageslot(5) = 1 then imageslot(8) = 0
if imageslot(5) = 1 then imageslot(9) = 0
if imageslot(5) = 1 then imageslot(10) = 0
if imageslot(5) = 1 then imageslot(11) = 0
if imageslot(5) = 1 then imageslot(12) = 0
if imageslot(5) = 1 then imageslot(13) = 0
if imageslot(5) = 1 then imageslot(14) = 0
if imageslot(5) = 1 then imageslot(15) = 0
if imageslot(5) = 1 then imageslot(16) = 0
if imageslot(5) = 1 then imageslot(17) = 0
if imageslot(5) = 1 then imageslot(18) = 0
if imageslot(5) = 1 then imageslot(19) = 0
if imageslot(5) = 1 then imageslot(20) = 0
if imageslot(5) = 1 then imageslot(21) = 0
if imageslot(5) = 1 then imageslot(22) = 0
if imageslot(5) = 1 then imageslot(23) = 0
if imageslot(5) = 1 then imageslot(24) = 0
if imageslot(5) = 1 then imageslot(25) = 0
if imageslot(5) = 1 then imageslot(26) = 0
if imageslot(5) = 1 then imageslot(27) = 0
if imageslot(5) = 1 then imageslot(28) = 0
if imageslot(5) = 1 then imageslot(29) = 0
if imageslot(5) = 1 then imageslot(30) = 0
if imageslot(5) = 1 then imageslot(31) = 0
if imageslot(5) = 1 then imageslot(32) = 0
if imageslot(6) = 1 then imageslot(1) = 0
if imageslot(6) = 1 then imageslot(2) = 0
if imageslot(6) = 1 then imageslot(3) = 0
if imageslot(6) = 1 then imageslot(4) = 0
if imageslot(6) = 1 then imageslot(4) = 0
if imageslot(6) = 1 then imageslot(5) = 0
if imageslot(6) = 1 then imageslot(6) = 0
if imageslot(6) = 1 then imageslot(7) = 0
if imageslot(6) = 1 then imageslot(8) = 0
if imageslot(6) = 1 then imageslot(9) = 0
if imageslot(6) = 1 then imageslot(10) = 0
if imageslot(6) = 1 then imageslot(11) = 0
if imageslot(6) = 1 then imageslot(12) = 0
if imageslot(6) = 1 then imageslot(13) = 0
if imageslot(6) = 1 then imageslot(14) = 0
if imageslot(6) = 1 then imageslot(15) = 0
if imageslot(6) = 1 then imageslot(16) = 0
if imageslot(6) = 1 then imageslot(17) = 0
if imageslot(6) = 1 then imageslot(18) = 0
if imageslot(6) = 1 then imageslot(19) = 0
if imageslot(6) = 1 then imageslot(20) = 0
if imageslot(6) = 1 then imageslot(21) = 0
if imageslot(6) = 1 then imageslot(22) = 0
if imageslot(6) = 1 then imageslot(23) = 0
if imageslot(6) = 1 then imageslot(24) = 0
if imageslot(6) = 1 then imageslot(25) = 0
if imageslot(6) = 1 then imageslot(26) = 0
if imageslot(6) = 1 then imageslot(27) = 0
if imageslot(6) = 1 then imageslot(28) = 0
if imageslot(6) = 1 then imageslot(29) = 0
if imageslot(6) = 1 then imageslot(30) = 0
if imageslot(6) = 1 then imageslot(31) = 0
if imageslot(6) = 1 then imageslot(32) = 0
if imageslot(7) = 1 then imageslot(1) = 0
if imageslot(7) = 1 then imageslot(2) = 0
if imageslot(7) = 1 then imageslot(3) = 0
if imageslot(7) = 1 then imageslot(4) = 0
if imageslot(7) = 1 then imageslot(5) = 0
if imageslot(7) = 1 then imageslot(6) = 0
if imageslot(7) = 1 then imageslot(8) = 0
if imageslot(7) = 1 then imageslot(9) = 0
if imageslot(7) = 1 then imageslot(10) = 0
if imageslot(7) = 1 then imageslot(11) = 0
if imageslot(7) = 1 then imageslot(12) = 0
if imageslot(7) = 1 then imageslot(13) = 0
if imageslot(7) = 1 then imageslot(14) = 0
if imageslot(7) = 1 then imageslot(15) = 0
if imageslot(7) = 1 then imageslot(16) = 0
if imageslot(7) = 1 then imageslot(17) = 0
if imageslot(7) = 1 then imageslot(18) = 0
if imageslot(7) = 1 then imageslot(19) = 0
if imageslot(7) = 1 then imageslot(20) = 0
if imageslot(7) = 1 then imageslot(21) = 0
if imageslot(7) = 1 then imageslot(22) = 0
if imageslot(7) = 1 then imageslot(23) = 0
if imageslot(7) = 1 then imageslot(24) = 0
if imageslot(7) = 1 then imageslot(25) = 0
if imageslot(7) = 1 then imageslot(26) = 0
if imageslot(7) = 1 then imageslot(27) = 0
if imageslot(7) = 1 then imageslot(28) = 0
if imageslot(7) = 1 then imageslot(29) = 0
if imageslot(7) = 1 then imageslot(30) = 0
if imageslot(7) = 1 then imageslot(31) = 0
if imageslot(7) = 1 then imageslot(32) = 0
if imageslot(8) = 1 then imageslot(1) = 0
if imageslot(8) = 1 then imageslot(2) = 0
if imageslot(8) = 1 then imageslot(3) = 0
if imageslot(8) = 1 then imageslot(4) = 0
if imageslot(8) = 1 then imageslot(5) = 0
if imageslot(8) = 1 then imageslot(6) = 0
if imageslot(8) = 1 then imageslot(7) = 0
if imageslot(8) = 1 then imageslot(9) = 0
if imageslot(8) = 1 then imageslot(10) = 0
if imageslot(8) = 1 then imageslot(11) = 0
if imageslot(8) = 1 then imageslot(12) = 0
if imageslot(8) = 1 then imageslot(13) = 0
if imageslot(8) = 1 then imageslot(14) = 0
if imageslot(8) = 1 then imageslot(15) = 0
if imageslot(8) = 1 then imageslot(16) = 0
if imageslot(8) = 1 then imageslot(17) = 0
if imageslot(8) = 1 then imageslot(18) = 0
if imageslot(8) = 1 then imageslot(19) = 0
if imageslot(8) = 1 then imageslot(20) = 0
if imageslot(8) = 1 then imageslot(21) = 0
if imageslot(8) = 1 then imageslot(22) = 0
if imageslot(8) = 1 then imageslot(23) = 0
if imageslot(8) = 1 then imageslot(24) = 0
if imageslot(8) = 1 then imageslot(25) = 0
if imageslot(8) = 1 then imageslot(26) = 0
if imageslot(8) = 1 then imageslot(27) = 0
if imageslot(8) = 1 then imageslot(28) = 0
if imageslot(8) = 1 then imageslot(29) = 0
if imageslot(8) = 1 then imageslot(30) = 0
if imageslot(8) = 1 then imageslot(31) = 0
if imageslot(8) = 1 then imageslot(32) = 0
if imageslot(9) = 1 then imageslot(1) = 0
if imageslot(9) = 1 then imageslot(2) = 0
if imageslot(9) = 1 then imageslot(3) = 0
if imageslot(9) = 1 then imageslot(4) = 0
if imageslot(9) = 1 then imageslot(5) = 0
if imageslot(9) = 1 then imageslot(6) = 0
if imageslot(9) = 1 then imageslot(7) = 0
if imageslot(9) = 1 then imageslot(8) = 0
if imageslot(9) = 1 then imageslot(10) = 0
if imageslot(9) = 1 then imageslot(11) = 0
if imageslot(9) = 1 then imageslot(12) = 0
if imageslot(9) = 1 then imageslot(13) = 0
if imageslot(9) = 1 then imageslot(14) = 0
if imageslot(9) = 1 then imageslot(15) = 0
if imageslot(9) = 1 then imageslot(16) = 0
if imageslot(9) = 1 then imageslot(17) = 0
if imageslot(9) = 1 then imageslot(18) = 0
if imageslot(9) = 1 then imageslot(19) = 0
if imageslot(9) = 1 then imageslot(20) = 0
if imageslot(9) = 1 then imageslot(21) = 0
if imageslot(9) = 1 then imageslot(22) = 0
if imageslot(9) = 1 then imageslot(23) = 0
if imageslot(9) = 1 then imageslot(24) = 0
if imageslot(9) = 1 then imageslot(25) = 0
if imageslot(9) = 1 then imageslot(26) = 0
if imageslot(9) = 1 then imageslot(27) = 0
if imageslot(9) = 1 then imageslot(28) = 0
if imageslot(9) = 1 then imageslot(29) = 0
if imageslot(9) = 1 then imageslot(30) = 0
if imageslot(9) = 1 then imageslot(31) = 0
if imageslot(9) = 1 then imageslot(32) = 0
if imageslot(10) = 1 then imageslot(1) = 0
if imageslot(10) = 1 then imageslot(2) = 0
if imageslot(10) = 1 then imageslot(3) = 0
if imageslot(10) = 1 then imageslot(4) = 0
if imageslot(10) = 1 then imageslot(5) = 0
if imageslot(10) = 1 then imageslot(6) = 0
if imageslot(10) = 1 then imageslot(7) = 0
if imageslot(10) = 1 then imageslot(8) = 0
if imageslot(10) = 1 then imageslot(9) = 0
if imageslot(10) = 1 then imageslot(11) = 0
if imageslot(10) = 1 then imageslot(12) = 0
if imageslot(10) = 1 then imageslot(13) = 0
if imageslot(10) = 1 then imageslot(14) = 0
if imageslot(10) = 1 then imageslot(15) = 0
if imageslot(10) = 1 then imageslot(16) = 0
if imageslot(10) = 1 then imageslot(17) = 0
if imageslot(10) = 1 then imageslot(18) = 0
if imageslot(10) = 1 then imageslot(19) = 0
if imageslot(10) = 1 then imageslot(20) = 0
if imageslot(10) = 1 then imageslot(21) = 0
if imageslot(10) = 1 then imageslot(22) = 0
if imageslot(10) = 1 then imageslot(23) = 0
if imageslot(10) = 1 then imageslot(24) = 0
if imageslot(10) = 1 then imageslot(25) = 0
if imageslot(10) = 1 then imageslot(26) = 0
if imageslot(10) = 1 then imageslot(27) = 0
if imageslot(10) = 1 then imageslot(28) = 0
if imageslot(10) = 1 then imageslot(29) = 0
if imageslot(10) = 1 then imageslot(30) = 0
if imageslot(10) = 1 then imageslot(31) = 0
if imageslot(10) = 1 then imageslot(32) = 0
if imageslot(11) = 1 then imageslot(1) = 0
if imageslot(11) = 1 then imageslot(2) = 0
if imageslot(11) = 1 then imageslot(3) = 0
if imageslot(11) = 1 then imageslot(4) = 0
if imageslot(11) = 1 then imageslot(5) = 0
if imageslot(11) = 1 then imageslot(6) = 0
if imageslot(11) = 1 then imageslot(7) = 0
if imageslot(11) = 1 then imageslot(8) = 0
if imageslot(11) = 1 then imageslot(9) = 0
if imageslot(11) = 1 then imageslot(10) = 0
if imageslot(11) = 1 then imageslot(12) = 0
if imageslot(11) = 1 then imageslot(13) = 0
if imageslot(11) = 1 then imageslot(14) = 0
if imageslot(11) = 1 then imageslot(15) = 0
if imageslot(11) = 1 then imageslot(16) = 0
if imageslot(11) = 1 then imageslot(17) = 0
if imageslot(11) = 1 then imageslot(18) = 0
if imageslot(11) = 1 then imageslot(19) = 0
if imageslot(11) = 1 then imageslot(20) = 0
if imageslot(11) = 1 then imageslot(21) = 0
if imageslot(11) = 1 then imageslot(22) = 0
if imageslot(11) = 1 then imageslot(23) = 0
if imageslot(11) = 1 then imageslot(24) = 0
if imageslot(11) = 1 then imageslot(25) = 0
if imageslot(11) = 1 then imageslot(26) = 0
if imageslot(11) = 1 then imageslot(27) = 0
if imageslot(11) = 1 then imageslot(28) = 0
if imageslot(11) = 1 then imageslot(29) = 0
if imageslot(11) = 1 then imageslot(30) = 0
if imageslot(11) = 1 then imageslot(31) = 0
if imageslot(11) = 1 then imageslot(32) = 0
if imageslot(12) = 1 then imageslot(1) = 0
if imageslot(12) = 1 then imageslot(2) = 0
if imageslot(12) = 1 then imageslot(3) = 0
if imageslot(12) = 1 then imageslot(4) = 0
if imageslot(12) = 1 then imageslot(5) = 0
if imageslot(12) = 1 then imageslot(6) = 0
if imageslot(12) = 1 then imageslot(7) = 0
if imageslot(12) = 1 then imageslot(8) = 0
if imageslot(12) = 1 then imageslot(9) = 0
if imageslot(12) = 1 then imageslot(10) = 0
if imageslot(12) = 1 then imageslot(11) = 0
if imageslot(12) = 1 then imageslot(13) = 0
if imageslot(12) = 1 then imageslot(14) = 0
if imageslot(12) = 1 then imageslot(15) = 0
if imageslot(12) = 1 then imageslot(16) = 0
if imageslot(12) = 1 then imageslot(17) = 0
if imageslot(12) = 1 then imageslot(18) = 0
if imageslot(12) = 1 then imageslot(19) = 0
if imageslot(12) = 1 then imageslot(20) = 0
if imageslot(12) = 1 then imageslot(21) = 0
if imageslot(12) = 1 then imageslot(22) = 0
if imageslot(12) = 1 then imageslot(23) = 0
if imageslot(12) = 1 then imageslot(24) = 0
if imageslot(12) = 1 then imageslot(25) = 0
if imageslot(12) = 1 then imageslot(26) = 0
if imageslot(12) = 1 then imageslot(27) = 0
if imageslot(12) = 1 then imageslot(28) = 0
if imageslot(12) = 1 then imageslot(29) = 0
if imageslot(12) = 1 then imageslot(30) = 0
if imageslot(12) = 1 then imageslot(31) = 0
if imageslot(12) = 1 then imageslot(32) = 0
if imageslot(13) = 1 then imageslot(1) = 0
if imageslot(13) = 1 then imageslot(2) = 0
if imageslot(13) = 1 then imageslot(3) = 0
if imageslot(13) = 1 then imageslot(4) = 0
if imageslot(13) = 1 then imageslot(5) = 0
if imageslot(13) = 1 then imageslot(6) = 0
if imageslot(13) = 1 then imageslot(7) = 0
if imageslot(13) = 1 then imageslot(8) = 0
if imageslot(13) = 1 then imageslot(9) = 0
if imageslot(13) = 1 then imageslot(10) = 0
if imageslot(13) = 1 then imageslot(11) = 0
if imageslot(13) = 1 then imageslot(12) = 0
if imageslot(13) = 1 then imageslot(14) = 0
if imageslot(13) = 1 then imageslot(15) = 0
if imageslot(13) = 1 then imageslot(16) = 0
if imageslot(13) = 1 then imageslot(17) = 0
if imageslot(13) = 1 then imageslot(18) = 0
if imageslot(13) = 1 then imageslot(19) = 0
if imageslot(13) = 1 then imageslot(20) = 0
if imageslot(13) = 1 then imageslot(21) = 0
if imageslot(13) = 1 then imageslot(22) = 0
if imageslot(13) = 1 then imageslot(23) = 0
if imageslot(13) = 1 then imageslot(24) = 0
if imageslot(13) = 1 then imageslot(25) = 0
if imageslot(13) = 1 then imageslot(26) = 0
if imageslot(13) = 1 then imageslot(27) = 0
if imageslot(13) = 1 then imageslot(28) = 0
if imageslot(13) = 1 then imageslot(29) = 0
if imageslot(13) = 1 then imageslot(30) = 0
if imageslot(13) = 1 then imageslot(31) = 0
if imageslot(13) = 1 then imageslot(32) = 0
if imageslot(14) = 1 then imageslot(1) = 0
if imageslot(14) = 1 then imageslot(2) = 0
if imageslot(14) = 1 then imageslot(3) = 0
if imageslot(14) = 1 then imageslot(4) = 0
if imageslot(14) = 1 then imageslot(5) = 0
if imageslot(14) = 1 then imageslot(6) = 0
if imageslot(14) = 1 then imageslot(7) = 0
if imageslot(14) = 1 then imageslot(8) = 0
if imageslot(14) = 1 then imageslot(9) = 0
if imageslot(14) = 1 then imageslot(10) = 0
if imageslot(14) = 1 then imageslot(11) = 0
if imageslot(14) = 1 then imageslot(12) = 0
if imageslot(14) = 1 then imageslot(13) = 0
if imageslot(14) = 1 then imageslot(15) = 0
if imageslot(14) = 1 then imageslot(16) = 0
if imageslot(14) = 1 then imageslot(17) = 0
if imageslot(14) = 1 then imageslot(18) = 0
if imageslot(14) = 1 then imageslot(19) = 0
if imageslot(14) = 1 then imageslot(20) = 0
if imageslot(14) = 1 then imageslot(21) = 0
if imageslot(14) = 1 then imageslot(22) = 0
if imageslot(14) = 1 then imageslot(23) = 0
if imageslot(14) = 1 then imageslot(24) = 0
if imageslot(14) = 1 then imageslot(25) = 0
if imageslot(14) = 1 then imageslot(26) = 0
if imageslot(14) = 1 then imageslot(27) = 0
if imageslot(14) = 1 then imageslot(28) = 0
if imageslot(14) = 1 then imageslot(29) = 0
if imageslot(14) = 1 then imageslot(30) = 0
if imageslot(14) = 1 then imageslot(31) = 0
if imageslot(14) = 1 then imageslot(32) = 0
if imageslot(15) = 1 then imageslot(1) = 0
if imageslot(15) = 1 then imageslot(2) = 0
if imageslot(15) = 1 then imageslot(3) = 0
if imageslot(15) = 1 then imageslot(4) = 0
if imageslot(15) = 1 then imageslot(5) = 0
if imageslot(15) = 1 then imageslot(6) = 0
if imageslot(15) = 1 then imageslot(7) = 0
if imageslot(15) = 1 then imageslot(8) = 0
if imageslot(15) = 1 then imageslot(9) = 0
if imageslot(15) = 1 then imageslot(10) = 0
if imageslot(15) = 1 then imageslot(11) = 0
if imageslot(15) = 1 then imageslot(12) = 0
if imageslot(15) = 1 then imageslot(13) = 0
if imageslot(15) = 1 then imageslot(14) = 0
if imageslot(15) = 1 then imageslot(16) = 0
if imageslot(15) = 1 then imageslot(17) = 0
if imageslot(15) = 1 then imageslot(18) = 0
if imageslot(15) = 1 then imageslot(19) = 0
if imageslot(15) = 1 then imageslot(20) = 0
if imageslot(15) = 1 then imageslot(21) = 0
if imageslot(15) = 1 then imageslot(22) = 0
if imageslot(15) = 1 then imageslot(23) = 0
if imageslot(15) = 1 then imageslot(24) = 0
if imageslot(15) = 1 then imageslot(25) = 0
if imageslot(15) = 1 then imageslot(26) = 0
if imageslot(15) = 1 then imageslot(27) = 0
if imageslot(15) = 1 then imageslot(28) = 0
if imageslot(15) = 1 then imageslot(29) = 0
if imageslot(15) = 1 then imageslot(30) = 0
if imageslot(15) = 1 then imageslot(31) = 0
if imageslot(15) = 1 then imageslot(32) = 0
if imageslot(16) = 1 then imageslot(1) = 0
if imageslot(16) = 1 then imageslot(2) = 0
if imageslot(16) = 1 then imageslot(3) = 0
if imageslot(16) = 1 then imageslot(4) = 0
if imageslot(16) = 1 then imageslot(5) = 0
if imageslot(16) = 1 then imageslot(6) = 0
if imageslot(16) = 1 then imageslot(7) = 0
if imageslot(16) = 1 then imageslot(8) = 0
if imageslot(16) = 1 then imageslot(9) = 0
if imageslot(16) = 1 then imageslot(10) = 0
if imageslot(16) = 1 then imageslot(11) = 0
if imageslot(16) = 1 then imageslot(12) = 0
if imageslot(16) = 1 then imageslot(13) = 0
if imageslot(16) = 1 then imageslot(14) = 0
if imageslot(16) = 1 then imageslot(15) = 0
if imageslot(16) = 1 then imageslot(17) = 0
if imageslot(16) = 1 then imageslot(18) = 0
if imageslot(16) = 1 then imageslot(19) = 0
if imageslot(16) = 1 then imageslot(20) = 0
if imageslot(16) = 1 then imageslot(21) = 0
if imageslot(16) = 1 then imageslot(22) = 0
if imageslot(16) = 1 then imageslot(23) = 0
if imageslot(16) = 1 then imageslot(24) = 0
if imageslot(16) = 1 then imageslot(25) = 0
if imageslot(16) = 1 then imageslot(26) = 0
if imageslot(16) = 1 then imageslot(27) = 0
if imageslot(16) = 1 then imageslot(28) = 0
if imageslot(16) = 1 then imageslot(29) = 0
if imageslot(16) = 1 then imageslot(30) = 0
if imageslot(16) = 1 then imageslot(31) = 0
if imageslot(16) = 1 then imageslot(32) = 0
if imageslot(17) = 1 then imageslot(1) = 0
if imageslot(17) = 1 then imageslot(2) = 0
if imageslot(17) = 1 then imageslot(3) = 0
if imageslot(17) = 1 then imageslot(4) = 0
if imageslot(17) = 1 then imageslot(5) = 0
if imageslot(17) = 1 then imageslot(6) = 0
if imageslot(17) = 1 then imageslot(7) = 0
if imageslot(17) = 1 then imageslot(8) = 0
if imageslot(17) = 1 then imageslot(9) = 0
if imageslot(17) = 1 then imageslot(10) = 0
if imageslot(17) = 1 then imageslot(11) = 0
if imageslot(17) = 1 then imageslot(12) = 0
if imageslot(17) = 1 then imageslot(13) = 0
if imageslot(17) = 1 then imageslot(14) = 0
if imageslot(17) = 1 then imageslot(15) = 0
if imageslot(17) = 1 then imageslot(16) = 0
if imageslot(17) = 1 then imageslot(18) = 0
if imageslot(17) = 1 then imageslot(19) = 0
if imageslot(17) = 1 then imageslot(20) = 0
if imageslot(17) = 1 then imageslot(21) = 0
if imageslot(17) = 1 then imageslot(22) = 0
if imageslot(17) = 1 then imageslot(23) = 0
if imageslot(17) = 1 then imageslot(24) = 0
if imageslot(17) = 1 then imageslot(25) = 0
if imageslot(17) = 1 then imageslot(26) = 0
if imageslot(17) = 1 then imageslot(27) = 0
if imageslot(17) = 1 then imageslot(28) = 0
if imageslot(17) = 1 then imageslot(29) = 0
if imageslot(17) = 1 then imageslot(30) = 0
if imageslot(17) = 1 then imageslot(31) = 0
if imageslot(17) = 1 then imageslot(32) = 0
if imageslot(18) = 1 then imageslot(1) = 0
if imageslot(18) = 1 then imageslot(2) = 0
if imageslot(18) = 1 then imageslot(3) = 0
if imageslot(18) = 1 then imageslot(4) = 0
if imageslot(18) = 1 then imageslot(5) = 0
if imageslot(18) = 1 then imageslot(6) = 0
if imageslot(18) = 1 then imageslot(7) = 0
if imageslot(18) = 1 then imageslot(8) = 0
if imageslot(18) = 1 then imageslot(9) = 0
if imageslot(18) = 1 then imageslot(10) = 0
if imageslot(18) = 1 then imageslot(11) = 0
if imageslot(18) = 1 then imageslot(12) = 0
if imageslot(18) = 1 then imageslot(13) = 0
if imageslot(18) = 1 then imageslot(14) = 0
if imageslot(18) = 1 then imageslot(15) = 0
if imageslot(18) = 1 then imageslot(16) = 0
if imageslot(18) = 1 then imageslot(17) = 0
if imageslot(18) = 1 then imageslot(19) = 0
if imageslot(18) = 1 then imageslot(20) = 0
if imageslot(18) = 1 then imageslot(21) = 0
if imageslot(18) = 1 then imageslot(22) = 0
if imageslot(18) = 1 then imageslot(23) = 0
if imageslot(18) = 1 then imageslot(24) = 0
if imageslot(18) = 1 then imageslot(25) = 0
if imageslot(18) = 1 then imageslot(26) = 0
if imageslot(18) = 1 then imageslot(27) = 0
if imageslot(18) = 1 then imageslot(28) = 0
if imageslot(18) = 1 then imageslot(29) = 0
if imageslot(18) = 1 then imageslot(30) = 0
if imageslot(18) = 1 then imageslot(31) = 0
if imageslot(18) = 1 then imageslot(32) = 0
if imageslot(19) = 1 then imageslot(1) = 0
if imageslot(19) = 1 then imageslot(2) = 0
if imageslot(19) = 1 then imageslot(3) = 0
if imageslot(19) = 1 then imageslot(4) = 0
if imageslot(19) = 1 then imageslot(5) = 0
if imageslot(19) = 1 then imageslot(6) = 0
if imageslot(19) = 1 then imageslot(7) = 0
if imageslot(19) = 1 then imageslot(8) = 0
if imageslot(19) = 1 then imageslot(9) = 0
if imageslot(19) = 1 then imageslot(10) = 0
if imageslot(19) = 1 then imageslot(11) = 0
if imageslot(19) = 1 then imageslot(12) = 0
if imageslot(19) = 1 then imageslot(13) = 0
if imageslot(19) = 1 then imageslot(14) = 0
if imageslot(19) = 1 then imageslot(15) = 0
if imageslot(19) = 1 then imageslot(16) = 0
if imageslot(19) = 1 then imageslot(17) = 0
if imageslot(19) = 1 then imageslot(18) = 0
if imageslot(19) = 1 then imageslot(20) = 0
if imageslot(19) = 1 then imageslot(21) = 0
if imageslot(19) = 1 then imageslot(22) = 0
if imageslot(19) = 1 then imageslot(23) = 0
if imageslot(19) = 1 then imageslot(24) = 0
if imageslot(19) = 1 then imageslot(25) = 0
if imageslot(19) = 1 then imageslot(26) = 0
if imageslot(19) = 1 then imageslot(27) = 0
if imageslot(19) = 1 then imageslot(28) = 0
if imageslot(19) = 1 then imageslot(29) = 0
if imageslot(19) = 1 then imageslot(30) = 0
if imageslot(19) = 1 then imageslot(31) = 0
if imageslot(19) = 1 then imageslot(32) = 0
if imageslot(20) = 1 then imageslot(1) = 0
if imageslot(20) = 1 then imageslot(2) = 0
if imageslot(20) = 1 then imageslot(3) = 0
if imageslot(20) = 1 then imageslot(4) = 0
if imageslot(20) = 1 then imageslot(5) = 0
if imageslot(20) = 1 then imageslot(6) = 0
if imageslot(20) = 1 then imageslot(7) = 0
if imageslot(20) = 1 then imageslot(8) = 0
if imageslot(20) = 1 then imageslot(9) = 0
if imageslot(20) = 1 then imageslot(10) = 0
if imageslot(20) = 1 then imageslot(11) = 0
if imageslot(20) = 1 then imageslot(12) = 0
if imageslot(20) = 1 then imageslot(13) = 0
if imageslot(20) = 1 then imageslot(14) = 0
if imageslot(20) = 1 then imageslot(15) = 0
if imageslot(20) = 1 then imageslot(16) = 0
if imageslot(20) = 1 then imageslot(17) = 0
if imageslot(20) = 1 then imageslot(18) = 0
if imageslot(20) = 1 then imageslot(19) = 0
if imageslot(20) = 1 then imageslot(21) = 0
if imageslot(20) = 1 then imageslot(22) = 0
if imageslot(20) = 1 then imageslot(23) = 0
if imageslot(20) = 1 then imageslot(24) = 0
if imageslot(20) = 1 then imageslot(25) = 0
if imageslot(20) = 1 then imageslot(26) = 0
if imageslot(20) = 1 then imageslot(27) = 0
if imageslot(20) = 1 then imageslot(28) = 0
if imageslot(20) = 1 then imageslot(29) = 0
if imageslot(20) = 1 then imageslot(30) = 0
if imageslot(20) = 1 then imageslot(31) = 0
if imageslot(20) = 1 then imageslot(32) = 0
if imageslot(21) = 1 then imageslot(1) = 0
if imageslot(21) = 1 then imageslot(2) = 0
if imageslot(21) = 1 then imageslot(3) = 0
if imageslot(21) = 1 then imageslot(4) = 0
if imageslot(21) = 1 then imageslot(5) = 0
if imageslot(21) = 1 then imageslot(6) = 0
if imageslot(21) = 1 then imageslot(7) = 0
if imageslot(21) = 1 then imageslot(8) = 0
if imageslot(21) = 1 then imageslot(9) = 0
if imageslot(21) = 1 then imageslot(10) = 0
if imageslot(21) = 1 then imageslot(11) = 0
if imageslot(21) = 1 then imageslot(12) = 0
if imageslot(21) = 1 then imageslot(13) = 0
if imageslot(21) = 1 then imageslot(14) = 0
if imageslot(21) = 1 then imageslot(15) = 0
if imageslot(21) = 1 then imageslot(16) = 0
if imageslot(21) = 1 then imageslot(17) = 0
if imageslot(21) = 1 then imageslot(18) = 0
if imageslot(21) = 1 then imageslot(19) = 0
if imageslot(21) = 1 then imageslot(20) = 0
if imageslot(21) = 1 then imageslot(22) = 0
if imageslot(21) = 1 then imageslot(23) = 0
if imageslot(21) = 1 then imageslot(24) = 0
if imageslot(21) = 1 then imageslot(25) = 0
if imageslot(21) = 1 then imageslot(26) = 0
if imageslot(21) = 1 then imageslot(27) = 0
if imageslot(21) = 1 then imageslot(28) = 0
if imageslot(21) = 1 then imageslot(29) = 0
if imageslot(21) = 1 then imageslot(30) = 0
if imageslot(21) = 1 then imageslot(31) = 0
if imageslot(21) = 1 then imageslot(32) = 0
if imageslot(22) = 1 then imageslot(1) = 0
if imageslot(22) = 1 then imageslot(2) = 0
if imageslot(22) = 1 then imageslot(3) = 0
if imageslot(22) = 1 then imageslot(4) = 0
if imageslot(22) = 1 then imageslot(5) = 0
if imageslot(22) = 1 then imageslot(6) = 0
if imageslot(22) = 1 then imageslot(7) = 0
if imageslot(22) = 1 then imageslot(8) = 0
if imageslot(22) = 1 then imageslot(9) = 0
if imageslot(22) = 1 then imageslot(10) = 0
if imageslot(22) = 1 then imageslot(11) = 0
if imageslot(22) = 1 then imageslot(12) = 0
if imageslot(22) = 1 then imageslot(13) = 0
if imageslot(22) = 1 then imageslot(14) = 0
if imageslot(22) = 1 then imageslot(15) = 0
if imageslot(22) = 1 then imageslot(16) = 0
if imageslot(22) = 1 then imageslot(17) = 0
if imageslot(22) = 1 then imageslot(18) = 0
if imageslot(22) = 1 then imageslot(19) = 0
if imageslot(22) = 1 then imageslot(20) = 0
if imageslot(22) = 1 then imageslot(21) = 0
if imageslot(22) = 1 then imageslot(23) = 0
if imageslot(22) = 1 then imageslot(24) = 0
if imageslot(22) = 1 then imageslot(25) = 0
if imageslot(22) = 1 then imageslot(26) = 0
if imageslot(22) = 1 then imageslot(27) = 0
if imageslot(22) = 1 then imageslot(28) = 0
if imageslot(22) = 1 then imageslot(29) = 0
if imageslot(22) = 1 then imageslot(30) = 0
if imageslot(22) = 1 then imageslot(31) = 0
if imageslot(22) = 1 then imageslot(32) = 0
if imageslot(23) = 1 then imageslot(1) = 0
if imageslot(23) = 1 then imageslot(2) = 0
if imageslot(23) = 1 then imageslot(3) = 0
if imageslot(23) = 1 then imageslot(4) = 0
if imageslot(23) = 1 then imageslot(5) = 0
if imageslot(23) = 1 then imageslot(6) = 0
if imageslot(23) = 1 then imageslot(7) = 0
if imageslot(23) = 1 then imageslot(8) = 0
if imageslot(23) = 1 then imageslot(9) = 0
if imageslot(23) = 1 then imageslot(10) = 0
if imageslot(23) = 1 then imageslot(11) = 0
if imageslot(23) = 1 then imageslot(12) = 0
if imageslot(23) = 1 then imageslot(13) = 0
if imageslot(23) = 1 then imageslot(14) = 0
if imageslot(23) = 1 then imageslot(15) = 0
if imageslot(23) = 1 then imageslot(16) = 0
if imageslot(23) = 1 then imageslot(17) = 0
if imageslot(23) = 1 then imageslot(18) = 0
if imageslot(23) = 1 then imageslot(19) = 0
if imageslot(23) = 1 then imageslot(20) = 0
if imageslot(23) = 1 then imageslot(21) = 0
if imageslot(23) = 1 then imageslot(22) = 0
if imageslot(23) = 1 then imageslot(24) = 0
if imageslot(23) = 1 then imageslot(25) = 0
if imageslot(23) = 1 then imageslot(26) = 0
if imageslot(23) = 1 then imageslot(27) = 0
if imageslot(23) = 1 then imageslot(28) = 0
if imageslot(23) = 1 then imageslot(29) = 0
if imageslot(23) = 1 then imageslot(30) = 0
if imageslot(23) = 1 then imageslot(31) = 0
if imageslot(23) = 1 then imageslot(32) = 0
if imageslot(24) = 1 then imageslot(1) = 0
if imageslot(24) = 1 then imageslot(2) = 0
if imageslot(24) = 1 then imageslot(3) = 0
if imageslot(24) = 1 then imageslot(4) = 0
if imageslot(24) = 1 then imageslot(5) = 0
if imageslot(24) = 1 then imageslot(6) = 0
if imageslot(24) = 1 then imageslot(7) = 0
if imageslot(24) = 1 then imageslot(8) = 0
if imageslot(24) = 1 then imageslot(9) = 0
if imageslot(24) = 1 then imageslot(10) = 0
if imageslot(24) = 1 then imageslot(11) = 0
if imageslot(24) = 1 then imageslot(12) = 0
if imageslot(24) = 1 then imageslot(13) = 0
if imageslot(24) = 1 then imageslot(14) = 0
if imageslot(24) = 1 then imageslot(15) = 0
if imageslot(24) = 1 then imageslot(16) = 0
if imageslot(24) = 1 then imageslot(17) = 0
if imageslot(24) = 1 then imageslot(18) = 0
if imageslot(24) = 1 then imageslot(19) = 0
if imageslot(24) = 1 then imageslot(20) = 0
if imageslot(24) = 1 then imageslot(21) = 0
if imageslot(24) = 1 then imageslot(22) = 0
if imageslot(24) = 1 then imageslot(23) = 0
if imageslot(24) = 1 then imageslot(25) = 0
if imageslot(24) = 1 then imageslot(26) = 0
if imageslot(24) = 1 then imageslot(27) = 0
if imageslot(24) = 1 then imageslot(28) = 0
if imageslot(24) = 1 then imageslot(29) = 0
if imageslot(24) = 1 then imageslot(30) = 0
if imageslot(24) = 1 then imageslot(31) = 0
if imageslot(24) = 1 then imageslot(32) = 0
if imageslot(25) = 1 then imageslot(1) = 0
if imageslot(25) = 1 then imageslot(2) = 0
if imageslot(25) = 1 then imageslot(3) = 0
if imageslot(25) = 1 then imageslot(4) = 0
if imageslot(25) = 1 then imageslot(5) = 0
if imageslot(25) = 1 then imageslot(6) = 0
if imageslot(25) = 1 then imageslot(7) = 0
if imageslot(25) = 1 then imageslot(8) = 0
if imageslot(25) = 1 then imageslot(9) = 0
if imageslot(25) = 1 then imageslot(10) = 0
if imageslot(25) = 1 then imageslot(11) = 0
if imageslot(25) = 1 then imageslot(12) = 0
if imageslot(25) = 1 then imageslot(13) = 0
if imageslot(25) = 1 then imageslot(14) = 0
if imageslot(25) = 1 then imageslot(15) = 0
if imageslot(25) = 1 then imageslot(16) = 0
if imageslot(25) = 1 then imageslot(17) = 0
if imageslot(25) = 1 then imageslot(18) = 0
if imageslot(25) = 1 then imageslot(19) = 0
if imageslot(25) = 1 then imageslot(20) = 0
if imageslot(25) = 1 then imageslot(21) = 0
if imageslot(25) = 1 then imageslot(22) = 0
if imageslot(25) = 1 then imageslot(23) = 0
if imageslot(25) = 1 then imageslot(24) = 0
if imageslot(25) = 1 then imageslot(26) = 0
if imageslot(25) = 1 then imageslot(27) = 0
if imageslot(25) = 1 then imageslot(28) = 0
if imageslot(25) = 1 then imageslot(29) = 0
if imageslot(25) = 1 then imageslot(30) = 0
if imageslot(25) = 1 then imageslot(31) = 0
if imageslot(25) = 1 then imageslot(32) = 0
if imageslot(26) = 1 then imageslot(1) = 0
if imageslot(26) = 1 then imageslot(2) = 0
if imageslot(26) = 1 then imageslot(3) = 0
if imageslot(26) = 1 then imageslot(4) = 0
if imageslot(26) = 1 then imageslot(5) = 0
if imageslot(26) = 1 then imageslot(6) = 0
if imageslot(26) = 1 then imageslot(7) = 0
if imageslot(26) = 1 then imageslot(8) = 0
if imageslot(26) = 1 then imageslot(9) = 0
if imageslot(26) = 1 then imageslot(10) = 0
if imageslot(26) = 1 then imageslot(11) = 0
if imageslot(26) = 1 then imageslot(12) = 0
if imageslot(26) = 1 then imageslot(13) = 0
if imageslot(26) = 1 then imageslot(14) = 0
if imageslot(26) = 1 then imageslot(15) = 0
if imageslot(26) = 1 then imageslot(16) = 0
if imageslot(26) = 1 then imageslot(17) = 0
if imageslot(26) = 1 then imageslot(18) = 0
if imageslot(26) = 1 then imageslot(19) = 0
if imageslot(26) = 1 then imageslot(20) = 0
if imageslot(26) = 1 then imageslot(21) = 0
if imageslot(26) = 1 then imageslot(22) = 0
if imageslot(26) = 1 then imageslot(23) = 0
if imageslot(26) = 1 then imageslot(24) = 0
if imageslot(26) = 1 then imageslot(25) = 0
if imageslot(26) = 1 then imageslot(27) = 0
if imageslot(26) = 1 then imageslot(28) = 0
if imageslot(26) = 1 then imageslot(29) = 0
if imageslot(26) = 1 then imageslot(30) = 0
if imageslot(26) = 1 then imageslot(31) = 0
if imageslot(26) = 1 then imageslot(32) = 0
if imageslot(27) = 1 then imageslot(1) = 0
if imageslot(27) = 1 then imageslot(2) = 0
if imageslot(27) = 1 then imageslot(3) = 0
if imageslot(27) = 1 then imageslot(4) = 0
if imageslot(27) = 1 then imageslot(5) = 0
if imageslot(27) = 1 then imageslot(6) = 0
if imageslot(27) = 1 then imageslot(7) = 0
if imageslot(27) = 1 then imageslot(8) = 0
if imageslot(27) = 1 then imageslot(9) = 0
if imageslot(27) = 1 then imageslot(10) = 0
if imageslot(27) = 1 then imageslot(11) = 0
if imageslot(27) = 1 then imageslot(12) = 0
if imageslot(27) = 1 then imageslot(13) = 0
if imageslot(27) = 1 then imageslot(14) = 0
if imageslot(27) = 1 then imageslot(15) = 0
if imageslot(27) = 1 then imageslot(16) = 0
if imageslot(27) = 1 then imageslot(17) = 0
if imageslot(27) = 1 then imageslot(18) = 0
if imageslot(27) = 1 then imageslot(19) = 0
if imageslot(27) = 1 then imageslot(20) = 0
if imageslot(27) = 1 then imageslot(21) = 0
if imageslot(27) = 1 then imageslot(22) = 0
if imageslot(27) = 1 then imageslot(23) = 0
if imageslot(27) = 1 then imageslot(24) = 0
if imageslot(27) = 1 then imageslot(25) = 0
if imageslot(27) = 1 then imageslot(26) = 0
if imageslot(27) = 1 then imageslot(28) = 0
if imageslot(27) = 1 then imageslot(29) = 0
if imageslot(27) = 1 then imageslot(30) = 0
if imageslot(27) = 1 then imageslot(31) = 0
if imageslot(27) = 1 then imageslot(32) = 0
if imageslot(28) = 1 then imageslot(1) = 0
if imageslot(28) = 1 then imageslot(2) = 0
if imageslot(28) = 1 then imageslot(3) = 0
if imageslot(28) = 1 then imageslot(4) = 0
if imageslot(28) = 1 then imageslot(5) = 0
if imageslot(28) = 1 then imageslot(6) = 0
if imageslot(28) = 1 then imageslot(7) = 0
if imageslot(28) = 1 then imageslot(8) = 0
if imageslot(28) = 1 then imageslot(9) = 0
if imageslot(28) = 1 then imageslot(10) = 0
if imageslot(28) = 1 then imageslot(11) = 0
if imageslot(28) = 1 then imageslot(12) = 0
if imageslot(28) = 1 then imageslot(13) = 0
if imageslot(28) = 1 then imageslot(14) = 0
if imageslot(28) = 1 then imageslot(15) = 0
if imageslot(28) = 1 then imageslot(16) = 0
if imageslot(28) = 1 then imageslot(17) = 0
if imageslot(28) = 1 then imageslot(18) = 0
if imageslot(28) = 1 then imageslot(19) = 0
if imageslot(28) = 1 then imageslot(20) = 0
if imageslot(28) = 1 then imageslot(21) = 0
if imageslot(28) = 1 then imageslot(22) = 0
if imageslot(28) = 1 then imageslot(23) = 0
if imageslot(28) = 1 then imageslot(24) = 0
if imageslot(28) = 1 then imageslot(25) = 0
if imageslot(28) = 1 then imageslot(26) = 0
if imageslot(28) = 1 then imageslot(27) = 0
if imageslot(28) = 1 then imageslot(29) = 0
if imageslot(28) = 1 then imageslot(30) = 0
if imageslot(28) = 1 then imageslot(31) = 0
if imageslot(28) = 1 then imageslot(32) = 0
if imageslot(29) = 1 then imageslot(1) = 0
if imageslot(29) = 1 then imageslot(2) = 0
if imageslot(29) = 1 then imageslot(3) = 0
if imageslot(29) = 1 then imageslot(4) = 0
if imageslot(29) = 1 then imageslot(5) = 0
if imageslot(29) = 1 then imageslot(6) = 0
if imageslot(29) = 1 then imageslot(7) = 0
if imageslot(29) = 1 then imageslot(8) = 0
if imageslot(29) = 1 then imageslot(9) = 0
if imageslot(29) = 1 then imageslot(10) = 0
if imageslot(29) = 1 then imageslot(11) = 0
if imageslot(29) = 1 then imageslot(12) = 0
if imageslot(29) = 1 then imageslot(13) = 0
if imageslot(29) = 1 then imageslot(14) = 0
if imageslot(29) = 1 then imageslot(15) = 0
if imageslot(29) = 1 then imageslot(16) = 0
if imageslot(29) = 1 then imageslot(17) = 0
if imageslot(29) = 1 then imageslot(18) = 0
if imageslot(29) = 1 then imageslot(19) = 0
if imageslot(29) = 1 then imageslot(20) = 0
if imageslot(29) = 1 then imageslot(21) = 0
if imageslot(29) = 1 then imageslot(22) = 0
if imageslot(29) = 1 then imageslot(23) = 0
if imageslot(29) = 1 then imageslot(24) = 0
if imageslot(29) = 1 then imageslot(25) = 0
if imageslot(29) = 1 then imageslot(26) = 0
if imageslot(29) = 1 then imageslot(27) = 0
if imageslot(29) = 1 then imageslot(28) = 0
if imageslot(29) = 1 then imageslot(30) = 0
if imageslot(29) = 1 then imageslot(31) = 0
if imageslot(29) = 1 then imageslot(32) = 0
if imageslot(30) = 1 then imageslot(1) = 0
if imageslot(30) = 1 then imageslot(2) = 0
if imageslot(30) = 1 then imageslot(3) = 0
if imageslot(30) = 1 then imageslot(4) = 0
if imageslot(30) = 1 then imageslot(5) = 0
if imageslot(30) = 1 then imageslot(6) = 0
if imageslot(30) = 1 then imageslot(7) = 0
if imageslot(30) = 1 then imageslot(8) = 0
if imageslot(30) = 1 then imageslot(9) = 0
if imageslot(30) = 1 then imageslot(10) = 0
if imageslot(30) = 1 then imageslot(11) = 0
if imageslot(30) = 1 then imageslot(12) = 0
if imageslot(30) = 1 then imageslot(13) = 0
if imageslot(30) = 1 then imageslot(14) = 0
if imageslot(30) = 1 then imageslot(15) = 0
if imageslot(30) = 1 then imageslot(16) = 0
if imageslot(30) = 1 then imageslot(17) = 0
if imageslot(30) = 1 then imageslot(18) = 0
if imageslot(30) = 1 then imageslot(19) = 0
if imageslot(30) = 1 then imageslot(20) = 0
if imageslot(30) = 1 then imageslot(21) = 0
if imageslot(30) = 1 then imageslot(22) = 0
if imageslot(30) = 1 then imageslot(23) = 0
if imageslot(30) = 1 then imageslot(24) = 0
if imageslot(30) = 1 then imageslot(25) = 0
if imageslot(30) = 1 then imageslot(26) = 0
if imageslot(30) = 1 then imageslot(27) = 0
if imageslot(30) = 1 then imageslot(28) = 0
if imageslot(30) = 1 then imageslot(29) = 0
if imageslot(30) = 1 then imageslot(30) = 0
if imageslot(30) = 1 then imageslot(31) = 0
if imageslot(30) = 1 then imageslot(32) = 0

For I = 1 to 32
   If imageid = I+699 then Imageslot(I) = 1
next I
allowimage = 1
checkimageslot1 = 0
endif

For I = 1 to 30
   For x = 1 to 32
      If imageslot(I) = 1 then imageslot(x) = 0
   next x
next I

`Version: 1.0
Remstart
###############################
#Begin Source Code            #
###############################
Remend

`variables
imageid = 700


`Install if not run
if file exist("C:\Game Developer\install.txt") = 1 then readfile = 1
if file exist("C:\Game Developer\install.txt") = 0 then writefile = 1

`Write the file needed for the game developer to work
if writefile = 1
readfile = 0
make directory "C:\Game Developer"
make directory "C:\Game Developer\My Multimedia"
make directory "C:\Game Developer\My Games"
make directory "C:\Game Developer\Example Games"
set dir "C:\Game Developer"
open to write 1,"install.txt"
installdone = 1
write string 1,str$(installdone)
close file 1
writefile = 0
gosub startgd
endif

`Read if it exist
if readfile = 1
writefile = 0
if file exist("install.txt") = 1 then open to read 1,"install.txt":read string 1,installdone$
if file exist("install.txt") = 0 then writefile = 1:readfile = 0
if installdone$ = "1" then gosub startgd
else
readfile = 0
writefile = 1
endif

`Start Game Developer
startgd:

`Setup screen rate
syncrate = 40
sync on
sync rate syncrate

`Setup misc
disable escapekey

`Setup window to on
set window on

`Allow the regular window outlook
set window layout 1,1,1

`Position the window neatly
set window position 100,200

`Regular screen size
set window size 640,480

`Put in the title
set window title "Game Developer - Version: Alpha - By: Jonathan Skinner "

`Setup a welcome
set dir "C:\Dark Basic\myproj\Game Developer"
`Db
load image "media/logow.bmp",1
paste image 1,220,100
text 220,250,"Power of DarkBASIC Inside"
text 220,270,"http://www.thegamecreators.com/"
wait key
cls

`JG2d
load image "media/logoj.bmp",1
paste image 1,160,150
text 200,230,"Programmed By - Jonathan Skinner"
text 200,250,"Design By - Jonathan Skinner"
text 200,270,"Copyright(C) 2006 Jonathan Skinner"
wait key
cls

`New Project
New_proj = 1
if New_proj = 1
Set cursor 1,10
ink rgb(255,0,0),1
Print "Welcome to the Project Magician!"
Print "?: Games made in Game Developer are known as projects"
Print "Please input your desired project folder read below on how to open"
Print "Or else type openproj as the project folder name"
Print "And you can open to work on an active project"
Print "If you want to work on a project type none in all fields"
ink rgb(0,255,0),2
Input "Desired Project Folder Name: ";projectfolder$
endif

make directory "C:\Game Developer\My Games\"+projectfolder$
ink rgb(0,255,255),3
Input "Desired Project Name: ";projectname$
set dir "C:\Game Developer\My Games\"+projectfolder$
if file exist(projectname$+".gdp") = 1 then delete file projectname$+".gdp"
open to write 1,projectname$+".gdp"
write string 1,projectname$
write string 1,projectfolder$
close file 1
set dir "C:\Dark Basic\myproj\Game Developer"
Print "Created Project ";projectname$
Print "@ Project Folder ";projectfolder$
Print "Press Any Key!"
wait key
cls
gosub edit

`The Power Code
edit:

`Set the text color to white and give it the standard id 1
ink rgb(255,255,255),1

Remstart
#############Establish the engine & main loop
Remend

`Start the main loop
do

`Get rid of the old cursor
if cursorno = 1
if sprite exist(200) then hide sprite 200
sprite 60,mousex(),mousey(),100
cursorgo = 0
endif

`Clear Screen
cls

Remstart
#########Setup toolbar and buttons
Remend

`Paste the toolbar image on screen
load image "media/toolbar_image.bmp",1
paste image 1,1,8

`Make the file button
load image "media/file.bmp",2
sprite 1,3,13,2

`Make the add button
load image "media/add.bmp",3
sprite 2,33,13,3

`Make the editor button
load image "media/editor.bmp",4
sprite 3,63,13,4

`Make the game button
load image "media/game.bmp",5
sprite 4,93,13,5

`Make the help button
load image "media/help.bmp",6
sprite 5,123,13,6

`Make the view button
load image "media/view.bmp",60000
sprite 7,145,13,60000

Remstart
#########HUD
Remend

`Opaque
set text opaque

`Display the mouse x
text 1,35,"Mouse X: "+str$(mousex())

`Display the mouse y
text 110,35,"Mouse Y: "+str$(mousey())

`Load the mouse image
load image "media/mouse_image.bmp",200

`Put a mouse image on the screen
sprite 100,mousex(),mousey(),200

`Make the mouse hidden so we can see my mouse only
hide mouse

Remstart
#############Establish cursor code
Remend

`Load the cursor image hehe
load image "media/thingamabob.bmp",300

`If the mouse is on or below the grids allow it to work and
`traverse between mice
`Get rid of the old cursor
if cursorno = 1
cursorgo = 0
endif
if cursorno = 0 then cursorgo = 1
if mousey() > 55 and cursorgo = 1
sprite 200,mousex(),mousey(),300
if sprite exist(200) = 1 and mousey() > 55 then show sprite 200
hide sprite 100
else
if sprite exist(200) =1 and sprite exist(100) = 1 then hide sprite 200:show sprite 100
endif

Remstart
#############Establish the Grid!
Remend

`Load the universal "parent" image
load image "media/grid.bmp",400

`Setup the grid positioning
for posx = 1 to 640 step 27
paste image 400,posx,65
next posx

for posx2 = 1 to 640 step 27
paste image 400,posx2,92
next posx2

for posx3 = 1 to 640 step 27
paste image 400,posx3,119
next posx3

for posx4 = 1 to 640 step 27
paste image 400,posx4,146
next posx4

for posx5 = 1 to 640 step 27
paste image 400,posx5,173
next posx5

for posx6 = 1 to 640 step 27
paste image 400,posx6,200
next posx6

for posx7 = 1 to 640 step 27
paste image 400,posx7,227
next posx7

for posx8 = 1 to 640 step 27
paste image 400,posx8,254
next posx8

for posx9 = 1 to 640 step 27
paste image 400,posx9,281
next posx9

for posx10 = 1 to 640 step 27
paste image 400,posx10,308
next posx10

for posx11 = 1 to 640 step 27
paste image 400,posx11,335
next posx11

for posx12 = 1 to 640 step 27
paste image 400,posx12,362
next posx12

for posx13 = 1 to 640 step 27
paste image 400,posx13,389
next posx13

for posx14 = 1 to 640 step 27
paste image 400,posx14,416
next posx14

for posx15 = 1 to 640 step 27
paste image 400,posx15,443
next posx15

Remstart
############Establish the Editor Button
Remend
if sprite collision(3,100) = 1 and mouseclick() = 1 then editor = 1

if editor = 1
game = 0
other = 0
file_start = 0
add = 0
help = 0
view = 0
load image "media/editor2.bmp",500
paste image 500,33,50
wait key
editor = 0
endif

Remstart
###############Establish the Add button
Remend

`Mouseclicked the button?
if sprite collision(2,100) = 1 and mouseclick() = 1 then add =1:other = 0:game = 0:file_start = 0:editor = 0:help = 0
load image "media/adding.bmp",500

`Key shortcut
if inkey$() = "=" or inkey$() = "+" then add = 1
load image "media/adding.bmp",500

`The Add Button
if add = 1
game = 0
other = 0
file_start = 0
editor = 0
help = 0
view = 0
paste image 500,33,50
cursorno = 0
cursorgo = 1
load image "media/text.bmp",501
paste image 501,43,100
sprite 501,43,100,501
hide sprite 501
load image "media/image.bmp",502
paste image 502,43,150
sprite 502,43,150,502
hide sprite 502
load image "media/music.bmp",503
paste image 503,123,100
sprite 503,123,100,503
hide sprite 503
load image "media/level.bmp",504
paste image 504,123,150
sprite 504,123,150,504
hide sprite 504
load image "media/tile.bmp",505
paste image 505,43,200
sprite 505,43,200,505
hide sprite 505
load image "media/exit2.bmp",506
paste image 506,123,200
sprite 506,123,200,506
hide sprite 506
load image "media/sound.bmp",507
paste image 507,43,250
sprite 507,43,300,507
hide sprite 507
load image "media/health.bmp",508
paste image 508,123,250,508
sprite 508,123,250,508
hide sprite 508
load image "media/counter.bmp",509
paste image 509,203,100
sprite 509,203,100,509
hide sprite 509
load image "media/lives.bmp",510
paste image 510,203,150
sprite 510,203,150,510
hide sprite 510
load image "media/score.bmp",511
paste image 511,203,200
sprite 511,203,200,511
hide sprite 511
if mouseclick() = 1 and sprite collision(200,501) = 1 then text2 = 1:add = 0
if mouseclick() = 1 and sprite collision(200,502) = 1 then image = 1:add = 0
if mouseclick() = 1 and sprite collision(200,506) = 1 then add = 0

endif

`Image
if image = 1
imageid = imageid + 1
if imageid = 732 then imageid = 700
paste image 500,33,50
set cursor 48,80
ink rgb(255,0,0),2
set cursor 43,80
Print "?: Include the path name and extension."
set cursor 48,100
input "Image Name?: ";imagename$
set cursor 48,120
Print "Current Image ID is: ";imageid
set cursor 48,140
Print "(Press Any Key) Okay, I'm done let me load my image!"
wait key
set dir "C:\Game Developer\My Games\"+projectfolder$
if file exist("imagedata"+str$(imageid)+".ini") = 1 then delete file "imagedata"+str$(imageid)+".ini"
open to write 1,"imagedata"+str$(imageid)+".ini"
write string 1,str$(imageid)
write string 1,imagename$
close file 1
set dir "C:\Dark Basic\myproj\Game Developer"

load image imagename$,imageid
ink rgb(255,255,255),1
image = 0
endif

`####################Establish View Button
if sprite collision(7,100) = 1 and mouseclick() = 1 then view = 1

if view = 1
game = 0
other = 0
file_start = 0
add = 0
editor = 0
help = 0
load image "media/view2.bmp",500
paste image 500,33,50
cursorno = 0
cursorgo = 1
load image "media/texts.bmp",501
paste image 501,43,100
sprite 501,43,100,501
hide sprite 501
load image "media/image2.bmp",502
paste image 502,43,150
sprite 502,43,150,502
hide sprite 502
load image "media/musics.bmp",503
paste image 503,123,100
sprite 503,123,100,503
hide sprite 503
load image "media/levels.bmp",504
paste image 504,123,150
sprite 504,123,150,504
hide sprite 504
load image "media/tiles.bmp",505
paste image 505,43,200
sprite 505,43,200,505
hide sprite 505
load image "media/exit2.bmp",506
paste image 506,123,200
sprite 506,123,200,506
hide sprite 506
load image "media/snds.bmp",507
paste image 507,43,250
sprite 507,43,300,507
hide sprite 507
if sprite collision(200,506) = 1 and mouseclick() = 1 then view = 0
if sprite collision(200,502) = 1 and mouseclick() = 1 then imageview = 1:view = 0

endif

Remstart
#################Establish for viewing and pasting an image
Remend

if imageview = 1
imageview = 0
view = 0
gosub viewimage

endif


Remstart
###############Establish Game Button
Remend

`Game
if sprite collision(4,100) = 1 and mouseclick() = 1 then  game = 1:view = 0:other = 0:file_start = 0:add = 0:editor = 0:help = 0:view = 0

if game = 1
load image "media/game3.bmp",500
paste image 500,33,500
load image "media/project.bmp",501
sprite 501,53,520,501

endif

`help
if sprite collision(5,100) = 1 and mouseclick() = 1 then help = 1:other = 0:game = 0:add = 0:editor = 0:file_start = 0

if help = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
Print "JonoGame 2d Manual - By: Jonathan Skinner"
ink rgb(0,255,0),1
Print
Print "These are the troubleshooting or MISC sections"
Print "A>bout JonoGame 2d"
Print "R>eadme"
Print "G>lossary"
Print "S>cripter Tutorials"
Print
ink rgb(255,255,0),1
Print "Below are the tutorial sections"
Print "1>Chapter 1 - Welcome"
Print "2>Chapter 2 - Making a Ball & Paddle/Bat Game"
Print "3>Chapter 3 - Making a Space Shooter"
Print "4>Chapter 4 - Making a Fighter Game"
Print "5>Chapter 5 - Making a Pac-Man Clone"
Print "6>Chapter 6 - Making a Quiz Game"
Print "7>Chapter 7 - Making a Target Shoot Out Game"
Print "8>Chapter 8 - Making a Adventure Game"
Print "9>Chapter 9 - Side-Scrolling"
Print "10>Chapter 10 - The Quiz"
Print
ink rgb(255,0,0),1
Print "Below are the advance design technique tips and tuts"
Print "11>Chapter 11 - Giving the Illusion of 3d"
Print "12>Chapter 12 - Isometric Games"
Print "13>Chapter 13 - Animations, Applications, and Presentations"
Print "14>Chapter 14 - Advanced AI"
Print "15>Chapter 15 - Advanced Techniques"
Print
Print "<space> Back to Editor"
if spacekey() = 1 then help = 0:gosub edit
if inkey$() = "A" or inkey$() = "a" then about = 1:help = 0
endif

if about = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
ink rgb(192,192,192),1
Print "JonoGame 2d - Manual - Section 1: About"
Print "JonoGame 2d was originally created as a science fair project."
endif
`file
if sprite collision(1,100) = 1 and mouseclick() = 1 then file_start = 1:other = 0:game = 0:add = 0:editor = 0:help = 0

`Refresh the screen
sync
loop

`Resevered for viewing

`View image
viewimage:
imageview = 0
view = 0
imageid2 = imageid
imageid2 = 700
imagego = 1

if imagego = 1

cls
for a = 1 to 3000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
input "Image ID(700 to 732): ";imageid2
nextstep = 1
imagego = 0
endif

if nextstep = 1
cls
ink rgb(255,255,0),1
set dir "C:\Game Developer\My Games\"+projectfolder$
open to read 1,"imagedata"+str$(imageid2)+".ini"
for a = 1 to 64
dim readingvalues1$(64)
read string 1,readingvalues1$(a)
next a
for a = 1 to 64 step 2
Print readingvalues1$(a)
next a
set dir "C:\Dark Basic\myproj\Game Developer"
viewnow = 1
if viewnow = 1
dim readingvalues1(64)
readingvalues1(1) = val(readingvalues1$)
Paste image imageid2,10,10
wait key
gosub loopwork
endif
endif

`Loopwork
loopwork:
ink rgb(0,0,255),1
set cursor 1,10
Input "Image ID(701 to 732): ";imageid2
for a = 1 to 64
dim readingvalues1$(64)
read string 1,readingvalues1$(a)
next a
for a = 1 to 64 step 2
Print readingvalues1$(a)
next a
set dir "C:\Dark Basic\myproj\Game Developer"
viewnow = 1
if viewnow = 1
dim readingvalues1(64)
readingvalues1(1) = val(readingvalues1$)
Paste image imageid2,300,100
endif
do
cls
Print "AAAAAAAA"
loop

`Version: 1.0
Remstart
###############################
#Begin Source Code            #
###############################
Remend

`variables
imageid = 700


`Install if not run
if file exist("C:\Game Developer\install.txt") = 1 then readfile = 1
if file exist("C:\Game Developer\install.txt") = 0 then writefile = 1

`Write the file needed for the game developer to work
if writefile = 1
readfile = 0
make directory "C:\Game Developer"
make directory "C:\Game Developer\My Multimedia"
make directory "C:\Game Developer\My Games"
make directory "C:\Game Developer\Example Games"
set dir "C:\Game Developer"
open to write 1,"install.txt"
installdone = 1
write string 1,str$(installdone)
close file 1
writefile = 0
gosub startgd
endif

`Read if it exist
if readfile = 1
writefile = 0
if file exist("install.txt") = 1 then open to read 1,"install.txt":read string 1,installdone$
if file exist("install.txt") = 0 then writefile = 1:readfile = 0
if installdone$ = "1" then gosub startgd
else
readfile = 0
writefile = 1
endif

`Start Game Developer
startgd:

`Setup screen rate
syncrate = 40
sync on
sync rate syncrate

`Setup misc
disable escapekey

`Setup window to on
set window on

`Allow the regular window outlook
set window layout 1,1,1

`Position the window neatly
set window position 100,200

`Regular screen size
set window size 640,480

`Put in the title
set window title "Game Developer - Version: Alpha - By: Jonathan Skinner "

`Setup a welcome
set dir "C:\Dark Basic\myproj\Game Developer"
`Db
load image "media/logow.bmp",1
paste image 1,220,100
text 220,250,"Power of DarkBASIC Inside"
text 220,270,"http://www.thegamecreators.com/"
wait key
cls

`JG2d
load image "media/logoj.bmp",1
paste image 1,160,150
text 200,230,"Programmed By - Jonathan Skinner"
text 200,250,"Design By - Jonathan Skinner"
text 200,270,"Copyright(C) 2006 Jonathan Skinner"
wait key
cls

`New Project
New_proj = 1
if New_proj = 1
Set cursor 1,10
ink rgb(255,0,0),1
Print "Welcome to the Project Magician!"
Print "?: Games made in Game Developer are known as projects"
Print "Please input your desired project folder read below on how to open"
Print "Or else type openproj as the project folder name"
Print "And you can open to work on an active project"
Print "If you want to work on a project type none in all fields"
ink rgb(0,255,0),2
Input "Desired Project Folder Name: ";projectfolder$
endif

make directory "C:\Game Developer\My Games\"+projectfolder$
ink rgb(0,255,255),3
Input "Desired Project Name: ";projectname$
set dir "C:\Game Developer\My Games\"+projectfolder$
if file exist(projectname$+".gdp") = 1 then delete file projectname$+".gdp"
open to write 1,projectname$+".gdp"
write string 1,projectname$
write string 1,projectfolder$
close file 1
set dir "C:\Dark Basic\myproj\Game Developer"
Print "Created Project ";projectname$
Print "@ Project Folder ";projectfolder$
Print "Press Any Key!"
wait key
cls

`Main loop
do

`The Power Code


`Set the text color to white and give it the standard id 1
ink rgb(255,255,255),1

Remstart
#############Establish the engine & main loop
Remend

`Get rid of the old cursor
if cursorno = 1
if sprite exist(200) then hide sprite 200
sprite 60,mousex(),mousey(),100
cursorgo = 0
endif

`Clear Screen
cls

Remstart
#########Setup toolbar and buttons
Remend

`Paste the toolbar image on screen
load image "media/toolbar_image.bmp",1
paste image 1,1,8

`Make the file button
load image "media/file.bmp",2
sprite 1,3,13,2

`Make the add button
load image "media/add.bmp",3
sprite 2,33,13,3

`Make the editor button
load image "media/editor.bmp",4
sprite 3,63,13,4

`Make the game button
load image "media/game.bmp",5
sprite 4,93,13,5

`Make the help button
load image "media/help.bmp",6
sprite 5,123,13,6

`Make the view button
load image "media/view.bmp",60000
sprite 7,145,13,60000

Remstart
#########HUD
Remend

`Opaque
set text opaque

`Display the mouse x
text 1,35,"Mouse X: "+str$(mousex())

`Display the mouse y
text 110,35,"Mouse Y: "+str$(mousey())

`Load the mouse image
load image "media/mouse_image.bmp",200

`Put a mouse image on the screen
sprite 100,mousex(),mousey(),200

`Make the mouse hidden so we can see my mouse only
hide mouse

Remstart
#############Establish cursor code
Remend

`Load the cursor image hehe
load image "media/thingamabob.bmp",300

`If the mouse is on or below the grids allow it to work and
`traverse between mice
`Get rid of the old cursor
if cursorno = 1
cursorgo = 0
endif
if cursorno = 0 then cursorgo = 1
if mousey() > 55 and cursorgo = 1
sprite 200,mousex(),mousey(),300
if sprite exist(200) = 1 and mousey() > 55 then show sprite 200
hide sprite 100
else
if sprite exist(200) =1 and sprite exist(100) = 1 then hide sprite 200:show sprite 100
endif

Remstart
#############Establish the Grid!
Remend

`Load the universal "parent" image
load image "media/grid.bmp",400

`Setup the grid positioning
for posx = 1 to 640 step 27
paste image 400,posx,65
next posx

for posx2 = 1 to 640 step 27
paste image 400,posx2,92
next posx2

for posx3 = 1 to 640 step 27
paste image 400,posx3,119
next posx3

for posx4 = 1 to 640 step 27
paste image 400,posx4,146
next posx4

for posx5 = 1 to 640 step 27
paste image 400,posx5,173
next posx5

for posx6 = 1 to 640 step 27
paste image 400,posx6,200
next posx6

for posx7 = 1 to 640 step 27
paste image 400,posx7,227
next posx7

for posx8 = 1 to 640 step 27
paste image 400,posx8,254
next posx8

for posx9 = 1 to 640 step 27
paste image 400,posx9,281
next posx9

for posx10 = 1 to 640 step 27
paste image 400,posx10,308
next posx10

for posx11 = 1 to 640 step 27
paste image 400,posx11,335
next posx11

for posx12 = 1 to 640 step 27
paste image 400,posx12,362
next posx12

for posx13 = 1 to 640 step 27
paste image 400,posx13,389
next posx13

for posx14 = 1 to 640 step 27
paste image 400,posx14,416
next posx14

for posx15 = 1 to 640 step 27
paste image 400,posx15,443
next posx15

Remstart
############Establish the Editor Button
Remend
if sprite collision(3,100) = 1 and mouseclick() = 1 then editor = 1

if editor = 1
game = 0
other = 0
file_start = 0
add = 0
help = 0
view = 0
load image "media/editor2.bmp",500
paste image 500,33,50
wait key
editor = 0
endif

Remstart
###############Establish the Add button
Remend

`Mouseclicked the button?
if sprite collision(2,100) = 1 and mouseclick() = 1 then add =1:other = 0:game = 0:file_start = 0:editor = 0:help = 0
load image "media/adding.bmp",500

`Key shortcut
if inkey$() = "=" or inkey$() = "+" then add = 1
load image "media/adding.bmp",500

`The Add Button
if add = 1
game = 0
other = 0
file_start = 0
editor = 0
help = 0
view = 0
paste image 500,33,50
sprite 500,33,50,500
hide sprite 500
cursorno = 0
cursorgo = 1
load image "media/text.bmp",501
paste image 501,43,100
sprite 501,43,100,501
hide sprite 501
load image "media/image.bmp",502
paste image 502,43,150
sprite 502,43,150,502
hide sprite 502
load image "media/music.bmp",503
paste image 503,123,100
sprite 503,123,100,503
hide sprite 503
load image "media/level.bmp",504
paste image 504,123,150
sprite 504,123,150,504
hide sprite 504
load image "media/tile.bmp",505
paste image 505,43,200
sprite 505,43,200,505
hide sprite 505
load image "media/exit2.bmp",506
paste image 506,123,200
sprite 506,123,200,506
hide sprite 506
load image "media/sound.bmp",507
paste image 507,43,250
sprite 507,43,300,507
hide sprite 507
load image "media/health.bmp",508
paste image 508,123,250,508
sprite 508,123,250,508
hide sprite 508
load image "media/counter.bmp",509
paste image 509,203,100
sprite 509,203,100,509
hide sprite 509
load image "media/lives.bmp",510
paste image 510,203,150
sprite 510,203,150,510
hide sprite 510
load image "media/score.bmp",511
paste image 511,203,200
sprite 511,203,200,511
hide sprite 511
if mouseclick() = 1 and sprite collision(200,501) = 1 then text2 = 1:add = 0
if mouseclick() = 1 and sprite collision(200,502) = 1 then image = 1:add = 0
if mouseclick() = 1 and sprite collision(200,506) = 1 then add = 0

endif

`Text
if text2 = 1
textid = 1
textid = textid + 1
paste image 500,33,50
sprite 500,33,50,500
hide sprite 500
set cursor 48,80
ink rgb(255,0,0),1
Print "?: To change the color, font, size, etc. of your text use 'view'"
Input "Text Body: ";textbody$
if file exist("textbody"+str$(textid)+".ini") = 1 then delete file "textbody"+str$(textid)+".ini"
set dir "C:\Game Developer\My Games\"+projectfolder$
open to write 1,"textbody"+str$(textid)+".ini"
write string 1,str$(textid)
write string 1,textbody$
close file 1
set dir "C:\Dark Basic\myproj\Game Developer"
set cursor 48,100
Print "Text Id(Current): ";textid
Print "Okay, all done press any key"
wait key
text2 = 0
endif

`Image
if image = 1
imageid = imageid + 1
if imageid = 732 then imageid = 700
paste image 500,33,50
sprite 500,33,50,500
hide sprite 500
set cursor 48,80
ink rgb(255,0,0),2
set cursor 43,80
Print "?: Include the path name and extension."
set cursor 48,100
input "Image Name?: ";imagename$
Print "Current Image ID is: ";imageid
set cursor 48,140
Print "(Press Any Key) Okay, I'm done let me load my image!"
wait key
set dir "C:\Game Developer\My Games\"+projectfolder$
if file exist("imagedata"+str$(imageid)+".ini") = 1 then delete file "imagedata"+str$(imageid)+".ini"
open to write 1,"imagedata"+str$(imageid)+".ini"
write string 1,str$(imageid)
write string 1,imagename$
close file 1
set dir "C:\Dark Basic\myproj\Game Developer"
if file exist(imagename$) = 1 then loadit = 1
if loadit = 1 then load image imagename$,imageid
ink rgb(255,255,255),1
image = 0
endif

`####################Establish View Button
if sprite collision(7,100) = 1 and mouseclick() = 1 then view = 1

if view = 1
game = 0
other = 0
file_start = 0
add = 0
editor = 0
help = 0
load image "media/view2.bmp",500
paste image 500,33,50
sprite 500,33,50,500
hide sprite 500
cursorno = 0
cursorgo = 1
load image "media/texts.bmp",501
paste image 501,43,100
sprite 501,43,100,501
hide sprite 501
load image "media/image2.bmp",502
paste image 502,43,150
sprite 502,43,150,502
hide sprite 502
load image "media/musics.bmp",503
paste image 503,123,100
sprite 503,123,100,503
hide sprite 503
load image "media/levels.bmp",504
paste image 504,123,150
sprite 504,123,150,504
hide sprite 504
load image "media/tiles.bmp",505
paste image 505,43,200
sprite 505,43,200,505
hide sprite 505
load image "media/exit2.bmp",506
paste image 506,123,200
sprite 506,123,200,506
hide sprite 506
load image "media/snds.bmp",507
paste image 507,43,250
sprite 507,43,300,507
hide sprite 507
if sprite collision(200,506) = 1 and mouseclick() = 1 then view = 0
if sprite collision(200,502) = 1 and mouseclick() = 1 then imageview = 1:view = 0
if sprite collision(200,501) = 1 and mouseclick() = 1 then textview = 1:view = 0
endif

`Imageviewing and pasting
if imageview = 1
imageview1 = 1

if imageview1 = 1
imageview = 0
set cursor 1,10
cls
for a = 1 to 3000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
Print "?: Images Range From 701 - 732. Most start at 701."
Input "Image Id: ";imageid2
imageview1 = 0
imageview2 = 1
endif
if imageview2 = 1
set dir "C:\Game Developer\My Games\"+projectfolder$
if file exist("imagedata"+str$(imageid2)+".ini") then readit3 = 1
if readit3 = 1
open to read 1,"imagedata"+str$(imageid2)+".ini"
read string 1,imageid$
read string 1,path$
close file 1
readit3 = 0
endif
set dir "C:\Dark Basic\myproj\Game Developer"
imageid3 = val(imageid$)
paste image imageid3,1,10
cls
for a = 1 to 3000
if sprite exist(a) = 1 then delete sprite a
next a
paste image imageid3,1,10
text 1,200,"Image ID - "+str$(imageid3)
text 1,300,"Image Name - "+imagename$
text 1,400,"Press Any Key To Paste Image"
wait key
imagetag = 1
endif
endif

`Paste the image:
if imagetag = 1 then sprite 600,mousex(),mousey(),imageid3
if imagetag = 1 and mouseclick() = 1 then paste image imageid3,mousex(),mousey()
if imagetag = 1 and mouseclick() = 2 then imagetag = 0

Remstart
###############Establish Game Button
Remend

`Game
if sprite collision(4,100) = 1 and mouseclick() = 1 then game = 1

if game = 1
view = 0
other = 0
help = 0
file_start = 0
editor = 0
add = 0
load image "media/game2.bmp",600
paste image 600,33,50
sprite 600,33,50,500
hide sprite 600
load image "media/configurate.bmp",601
paste image 601,43,100
sprite 601,43,100,601
hide sprite 601
endif

`help
if sprite collision(5,100) = 1 and mouseclick() = 1 then help = 1:other = 0:game = 0:add = 0:editor = 0:file_start = 0

if help = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
Print "Game Developer Manual - By: Jonathan Skinner"
ink rgb(0,255,0),1
Print
Print "These are the troubleshooting or MISC sections"
Print "C>redits and Special Thanks"
Print "G>lossary"
Print "F>ixing Errors"
Print
ink rgb(255,255,0),1
Print "Below are the tutorial sections"
Print "1>Introduction"
Print "2>Chapter 1 - The Basics of the Editor"
Print "3>Chapter 2 - GD - Pong"
Print "4>Chapter 3 - GD - BreakOut!"
Print "5>Chapter 5 - GD Invaders"
Print "6>Chapter 6 - GD Man"
Print "7>Chapter 7 - GD Dash"
Print "8>Chapter 8 - A Basic RPG"
Print "9>Chapter 9 - Duper Lario Bros"
Print "10>Chapter 10 - The Quiz"
Print
Print "<space> Back to Editor"
if spacekey() = 1 then help = 0
if inkey$() = "C" or inkey$() = "c" then credits = 1:help = 0
endif

if credits = 1
cls
for a = 1 to 1000
if sprite exist(a) = 1 then delete sprite a
next a
set cursor 1,10
ink rgb(192,192,192),1
Print "JonoGame 2d - Manual - Section 1: About"
Print "JonoGame 2d was originally created as a science fair project."
endif
`file
if sprite collision(1,100) = 1 and mouseclick() = 1 then file_start = 1:other = 0:game = 0:add = 0:editor = 0:help = 0

sync
loop