Sorry your browser is not supported!

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

`loads the logos
logos()

`loads up the gui
gui()

sync on : sync rate 0

do

sync
loop

function logos()

`___________________________________________________________________________________________________________________________________________________________________

`Logos intro loader

`(Images - 1 to 2)
`___________________________________________________________________________________________________________________________________________________________________

`Loads the images for the logos displays them on screen for temp time then goes to the gui
hide mouse
load image "media\ogl.png",1,1
paste image 1,0,0
load image "media\nl.png",2,1
wait 10000
cls
paste image 2,0,0
wait 10000
cls
endfunction

function gui()

`___________________________________________________________________________________________________________________________________________________________________

`Top World Frame

`(Images - 3 to 7)
`(Sprites - 1 to 8)
`___________________________________________________________________________________________________________________________________________________________________

`Loads the side and top, bottom frames of the main window
load image "media\sf.png",3,1
sprite 1,5,10,3
show sprite 1

sprite 4,455,10,3
show sprite 4

load image "media\tbf.png",4,1
sprite 2,23,10,4
show sprite 2

sprite 3,23,334,4
show sprite 3

`Loads the side menu for items
load image "media\smenu.png",5,1
sprite 6,475,19,5
set sprite 6,0,0
show sprite 6

`Loads the bottom menu for command boxes and map
load image "media\bmenu.png",6,1
sprite 7,42,348,6
set sprite 7,0,0
show sprite 7

`Loads the maps grid system
load image "media\map.png",7,1
sprite 8,87,413,7
set sprite 8,0,1
show sprite 8

`__________________________________________________________________________________________________________________________________________________________________
`BOTTOM GUI

`(Images - 9 to 10)
`(Sprites - 9 to 21 + 1000 as exit)
`__________________________________________________________________________________________________________________________________________________________________

`Load and place the command boxes and exit box
load image "media\selected.bmp",9,1
load image "media\exit.bmp",10,1

`Move Box
sprite 9,122,374,9
set sprite 9,0,0
hide sprite 9

`Look Box
sprite 10,278,394,9
set sprite 10,0,0
hide sprite 10

`Open Box
sprite 11,278,433,9
set sprite 11,0,0
hide sprite 11

`Use Box
sprite 12,278,477,9
set sprite 12,0,0
hide sprite 12

`Leave Box
sprite 13,278,516,9
set sprite 13,0,0
hide sprite 13

`Take Box
sprite 14,425,394,9
set sprite 14,0,0
hide sprite 14

`Close Box
sprite 15,425,433,9
set sprite 15,0,0
hide sprite 15

`Hit Box
sprite 16,425,477,9
set sprite 16,0,0
hide sprite 16

`Speak Box
sprite 17,425,516,9
set sprite 17,0,0
hide sprite 17

`Cards UP Box
sprite 18,617,394,9
set sprite 18,0,0
hide sprite 18

`Cards DOWN Box
sprite 19,617,433,9
set sprite 19,0,0
hide sprite 19

`Self Box
sprite 20,617,487,9
set sprite 20,0,0
hide sprite 20

`Save Box
sprite 21,617,534,9
set sprite 21,0,0
hide sprite 21

`Exit Box
sprite 1000,63,543,10
set sprite 1000,0,0
set sprite priority 1000,1
show sprite 1000


`___________________________________________________________________________________________________________________________________________________________________
`WOLRD
`(Images - 200 to 204)
`(Sprites - 200 to 217)
`(Sounds - 100)
`___________________________________________________________________________________________________________________________________________________________________

`__________________________________________________________________________________________________________________________________________________________________
`Loads visual content
`__________________________________________________________________________________________________________________________________________________________________

`Loads First screen Front Door
load image "world\opendoor.bmp",200,1
sprite 200,23,24,200
set sprite 200,0,0
hide sprite 200

load image "world\front.bmp",201,1
sprite 201,23,24,201
set sprite 201,0,0
show sprite 201


`Loads the pink key
load image "world\pkey.bmp",202,1
sprite 202,231,82,202
scale sprite 202,50
set sprite 202,0,1
show sprite 202

`Loads skull for front
load image "world\skull.bmp",203,1
sprite 203,227,55,203
set sprite 203,0,1
set sprite priority 203,1
show sprite 203

`__________________________________________________________________________________________________________________________________________________________________
`Loads Door Collsions
`__________________________________________________________________________________________________________________________________________________________________

`Loads collison checkers for front door
load image "world\doorcoll.bmp",204,1
sprite 204,187,136,204
set sprite 204,0,0
stretch sprite 204,100,110
hide sprite 204

`Second collision checker for door
sprite 205,215,100,204
set sprite 205,0,0
stretch sprite 205,50,25
hide sprite 205

`Third collision checker for door
sprite 206,195,110,204
set sprite 206,0,0
stretch sprite 206,50,20
hide sprite 206

`Fourth collision checker for door
sprite 207,235,110,204
set sprite 207,0,0
stretch sprite 207,50,25
hide sprite 207

`__________________________________________________________________________________________________________________________________________________________________
`Loads Ground Collision
`__________________________________________________________________________________________________________________________________________________________________

`collision checker for the ground
sprite 208,146,317,204
set sprite 208,0,0
stretch sprite 208,178,11
hide sprite 208

`collision for ground 2
sprite 209,23,305,204
set sprite 209,0,0
stretch sprite 209,112,18
hide sprite 209

`collision for ground 3
sprite 210,340,305,204
set sprite 210,0,0
stretch sprite 210,105,18
hide sprite 210

`__________________________________________________________________________________________________________________________________________________________________
`Loads Stone Wall collision
`__________________________________________________________________________________________________________________________________________________________________

`collision checker for the stone wall
sprite 211,23,25,204
set sprite 211,0,0
stretch sprite 211,148,175
hide sprite 211

sprite 212,299,25,204
set sprite 212,0,0
stretch sprite 212,143,175
hide sprite 212

sprite 213,185,25,204
set sprite 213,0,0
stretch sprite 213,104,19
hide sprite 213

sprite 214,148,305,204
set sprite 214,0,0
stretch sprite 214,35,10
hide sprite 214

sprite 215,299,305,204
set sprite 215,0,0
stretch sprite 215,35,10
hide sprite 215

sprite 216,185,26,204
set sprite 216,0,0
stretch sprite 216,33,50
hide sprite 216

sprite 217,265,26,204
set sprite 217,0,0
stretch sprite 217,33,50
hide sprite 217
`__________________________________________________________________________________________________________________________________________________________________
`loads up text say's
`(Images - 250 to 266)
`(Sprites - 250 to 266)
`__________________________________________________________________________________________________________________________________________________________________

`Loads the look at door say's
load image "world\lookdoor.png",250,1
sprite 250,42,348,250
set sprite 250,0,0
hide sprite 250

`Loads the look at skull say's
load image "world\lookskull.png",251,1
sprite 251,42,348,251
set sprite 251,0,0
hide sprite 251

`Loads the look at ground say's
load image "world\wastetime.png",252,1
sprite 252,42,348,252
set sprite 252,0,0
hide sprite 252

`Loads the look at self say's
load image "world\lookself.png",253,1
sprite 253,42,348,253
set sprite 253,0,0
hide sprite 253

`Loads the look at stonewall say's
load image "world\lookwall.png",254,1
sprite 254,42,348,254
set sprite 254,0,0
hide sprite 254

`Loads the open skull says
load image "world\skullopen.png",255,1
sprite 255,42,348,255
set sprite 255,0,0
hide sprite 255

`Loads the close skull says
load image "world\closeskull.png",256,1
sprite 256,42,348,256
set sprite 256,0,0
hide sprite 256

`Loads the open opened skull says
load image "world\openopenskull.png",257,1
sprite 257,42,348,257
set sprite 257,0,0
hide sprite 257

`Loads the you cant take it says
load image "world\canttake.png",258,1
sprite 258,42,348,258
set sprite 258,0,0
hide sprite 258

`Loads the won't open says
load image "world\wontopen.png",259,1
sprite 259,42,348,259
set sprite 259,0,0
hide sprite 259

`Loads the door is closed says
load image "world\doorclosed.png",260,1
sprite 260,42,348,260
set sprite 260,0,0
hide sprite 260

`Loads image door opens to shadowgate
load image "world\frontdooropen1.png",261,1
sprite 261,42,348,261
set sprite 261,0,0
hide sprite 261

load image "world\frontdooropen2.png",262,1
sprite 262,42,348,262
set sprite 262,0,0
hide sprite 262

`Loads image nothing happens
load image "world\nothinghappened.png",263,1
sprite 263,42,348,263
set sprite 263,0,0
hide sprite 263

`Loads image unexpected
load image "world\unexpected.png",264,1
sprite 264,42,348,264
set sprite 264,0,0
hide sprite 264

`Loads odd behavior text
load image "world\useself.png",265,1
sprite 265,42,348,265
set sprite 265,0,0
hide sprite 265

`Loads didnt take text
load image "world\didnottake.png",266,1
sprite 266,42,348,266
set sprite 266,0,0
hide sprite 266

`__________________________________________________________________________________________________________________________________________________________________
`Loads Sounds
`__________________________________________________________________________________________________________________________________________________________________

`Loads up sound for head moving
load sound "sound\moveskull.wav",100
load sound "sound\opendoor.wav",101
load sound "sound\closedoor.wav",102

`__________________________________________________________________________________________________________________________________________________________________
`TOP RIGHT GUI

`(Images 0 uses 9 from above)
`(Sprites 22 to 34)
`__________________________________________________________________________________________________________________________________________________________________

`Loads and places the command boxes for the top right items gui

`Item box 1
sprite 22,525,81,9
set sprite 22,0,0
hide sprite 22

`Item box 2
sprite 23,525,125,9
set sprite 23,0,0
hide sprite 23

`Item box 3
sprite 24,525,169,9
set sprite 24,0,0
hide sprite 24

`Item box 4
sprite 25,525,213,9
set sprite 25,0,0
hide sprite 25

`Item box 5
sprite 26,525,257,9
set sprite 26,0,0
hide sprite 26

`Item box 6
sprite 27,525,301,9
set sprite 27,0,0
hide sprite 27

` checker for buttons and using them at yourself
load image "media\mc.bmp",50

`Look checker for look self
sprite 28,841,433,50
set sprite 28,0,0
hide sprite 28

`Take checker for take self
sprite 29,841,433,50
set sprite 29,0,0
hide sprite 29

`Use checker for use self
sprite 30,841,433,50
set sprite 30,0,0
hide sprite 30

`Open checker for open self
sprite 31,841,433,50
set sprite 31,0,0
hide sprite 31

`Close checker for close self
sprite 32,841,433,50
set sprite 32,0,0
hide sprite 32

`Leave checker for Leave self
sprite 33,841,433,50
set sprite 33,0,0
hide sprite 33

`Speak Checker for speak self
sprite 34,841,433,50
set sprite 34,0,0
hide sprite 34

`__________________________________________________________________________________________________________________________________________________________________
`INTRO TEXT
`__________________________________________________________________________________________________________________________________________________________________

`Loads up the main introduction text sceen

introtext()

`__________________________________________________________________________________________________________________________________________________________________
`MOUSE

`(Images 50 to 51)
`(Sprites 50 to 51)
`__________________________________________________________________________________________________________________________________________________________________

`Loads the mouse checking box using the self checking box for looking at self
sprite 50,0,0,50
set sprite 50,1,1
offset sprite 50,3,3
hide sprite 50

`Loads the skeleton hand as the mouse
load image "media\mouse.bmp",51,1
sprite 51,0,0,51
offset sprite 51,18,5
scale sprite 51,50
set sprite priority 51,1
set sprite 51,1,1
show sprite 51
hide mouse

`__________________________________________________________________________________________________________________________________________________________________


`LOOP

do

`___________________________________________________________________________________________________________________________________________________________________
`GUI controls for the bottom and the top gui buttons
`___________________________________________________________________________________________________________________________________________________________________

`Checks collsion with the command boxs and shows or hides them

`Move Box
if sprite collision (50,9) and mouseclick()=1
show sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
endif

`Look Box
if sprite collision (50,10) and mouseclick()=1
show sprite 10
hide sprite 9
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
show sprite 28
hide sprite 29
hide sprite 30
hide sprite 31
hide sprite 32
hide sprite 33
hide sprite 34
endif

`Open Box
if sprite collision (50,11) and mouseclick()=1
show sprite 11
hide sprite 9
hide sprite 10
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
show sprite 31
hide sprite 30
hide sprite 32
hide sprite 33
hide sprite 34
endif

`Use Box
if sprite collision (50,12) and mouseclick()=1
show sprite 12
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
show sprite 30
hide sprite 31
hide sprite 32
hide sprite 33
hide sprite 34
endif

`Leave Box
if sprite collision (50,13) and mouseclick()=1
show sprite 13
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
show sprite 33
hide sprite 30
hide sprite 31
hide sprite 32
hide sprite 34
endif

`Take Box
if sprite collision (50,14) and mouseclick()=1
show sprite 14
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
show sprite 29
hide sprite 30
hide sprite 31
hide sprite 32
hide sprite 33
hide sprite 34
endif

`Close Box
if sprite collision (50,15) and mouseclick()=1
show sprite 15
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
show sprite 32
hide sprite 30
hide sprite 31
hide sprite 33
hide sprite 34
endif

`Hit Box
if sprite collision (50,16) and mouseclick()=1
show sprite 16
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
hide sprite 30
hide sprite 31
hide sprite 32
hide sprite 33
hide sprite 34
endif

`Speak Box
if sprite collision (50,17) and mouseclick()=1
show sprite 17
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
show sprite 34
hide sprite 30
hide sprite 31
hide sprite 32
hide sprite 33
endif

`Card UP Box
if sprite collision (50,18) and mouseclick()=1
show sprite 18
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
hide sprite 30
hide sprite 31
hide sprite 32
hide sprite 33
hide sprite 34
endif

`Card DOWN Box
if sprite collision (50,19) and mouseclick()=1
show sprite 19
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
endif

`Self Box
if sprite collision (50,20) and mouseclick()=1
show sprite 20
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
endif

`Save Box
if sprite collision (50,21) and mouseclick()=1
show sprite 21
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
endif

`Item box 1
if sprite collision (50,22) and mouseclick () = 1
show sprite 22
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
endif

`Item box 2
if sprite collision (50,23) and mouseclick () = 1
show sprite 23
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
endif

`Item box 3
if sprite collision (50,24) and mouseclick () = 1
show sprite 24
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 25
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
endif

if sprite collision (50,25) and mouseclick () = 1
show sprite 25
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 26
hide sprite 27
hide sprite 28
hide sprite 29
endif

if sprite collision (50,26) and mouseclick () = 1
show sprite 26
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 27
hide sprite 28
hide sprite 29
endif

if sprite collision (50,27) and mouseclick () = 1
show sprite 27
hide sprite 9
hide sprite 10
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
hide sprite 16
hide sprite 17
hide sprite 18
hide sprite 19
hide sprite 20
hide sprite 21
hide sprite 22
hide sprite 23
hide sprite 24
hide sprite 25
hide sprite 26
hide sprite 28
hide sprite 29
endif

`Sets up the visable sprites for all the selecting boxes in the bottom and top guis
movebox# = sprite visible (9)
lookbox# = sprite visible (10)
openbox# = sprite visible (11)
usebox# = sprite visible (12)
leavebox# = sprite visible (13)
takebox# = sprite visible (14)
closebox# = sprite visible (15)
hitbox# = sprite visible (16)
speakbox# = sprite visible (17)
cardup# = sprite visible (18)
carddown# = sprite visible (19)
selfbox# = sprite visible (20)
savebox# = sprite visible (21)
itembox1# = sprite visible (22)
itembox2# = sprite visible (23)
itembox3# = sprite visible (24)
itembox4# = sprite visible (25)
itembox5# = sprite visible (26)
itembox6# = sprite visible (27)
lookselfbox2# = sprite visible (28)
takeselfbox# = sprite visible(29)
useselfbox# = sprite visible(30)
openselfbox# = sprite visible(31)
closeselfbox# = sprite visible(32)
leaveselfbox# = sprite visible(33)
speakselfbox# = sprite visible(34)


`Room1 open closed door sounds
opendoor# = sprite visible (200)
closedoor# = sprite visible (201)



`___________________________________________________________________________________________________________________________________________________________________
`World code for the game
`___________________________________________________________________________________________________________________________________________________________________

`___________________________________________________________________________________________________________________________________________________________________
`Room1
`___________________________________________________________________________________________________________________________________________________________________

`gets the position of the stone head for moving it
stonehead# = sprite y (203)

`__________________________________________________________________________________________________________________________________________________________________
`Room 1 Door

`Look door
`Take door
`Open door
`Close door
`Use door
`Hit door
`Leave door
`Speak door
`__________________________________________________________________________________________________________________________________________________________________

`Shows look at door info when clicked on door and the look box
if sprite collision (50,204) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 250
wait 3000
hide sprite 250
show sprite 1000
position mouse mx#,my#
endif

`"" for collision 2
if sprite collision (50,205) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 250
wait 3000
hide sprite 250
show sprite 1000
position mouse mx#,my#
endif

`"" for collision 3
if sprite collision (50,206) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 250
wait 3000
hide sprite 250
show sprite 1000
position mouse mx#,my#
endif

`"" for collision 4
if sprite collision (50,207) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 250
wait 3000
hide sprite 250
show sprite 1000
position mouse mx#,my#
endif

`opens the door when open box is ticked and door is pressed
if sprite collision (50,204) and mouseclick() = 1 and openbox# = 1 and closedoor# = 1
hide sprite 1000
hide sprite 201
show sprite 200
play sound 101
mx# = mousex()
my# = mousey()
show sprite 261
wait 3000
hide sprite 261
show sprite 262
wait 3000
hide sprite 262
show sprite 1000
position mouse mx#,my#
endif

`"" for door collision 2
if sprite collision (50,205) and mouseclick() = 1 and openbox# = 1 and closedoor# = 1
hide sprite 1000
hide sprite 201
show sprite 200
play sound 101
mx# = mousex()
my# = mousey()
show sprite 261
wait 3000
hide sprite 261
show sprite 262
wait 3000
hide sprite 262
show sprite 1000
position mouse mx#,my#
endif

`"" for door collision 3
if sprite collision (50,206) and mouseclick() = 1 and openbox# = 1 and closedoor# = 1
hide sprite 1000
hide sprite 201
show sprite 200
play sound 101
mx# = mousex()
my# = mousey()
show sprite 261
wait 3000
hide sprite 261
show sprite 262
wait 3000
hide sprite 262
show sprite 1000
position mouse mx#,my#
endif

`"" for door collision 4
if sprite collision (50,207) and mouseclick() = 1 and openbox# = 1 and closedoor# = 1
hide sprite 1000
hide sprite 201
show sprite 200
play sound 101
mx# = mousex()
my# = mousey()
show sprite 261
wait 3000
hide sprite 261
show sprite 262
wait 3000
hide sprite 262
show sprite 1000
position mouse mx#,my#
endif

`closes the door when closed box is ticked and the door is pressed
if sprite collision (50,204) and mouseclick() = 1 and closebox# = 1 and opendoor# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
hide sprite 200
show sprite 201
play sound 102
show sprite 260
wait 3000
hide sprite 260
show sprite 1000
position mouse mx#,my#
endif

`"" for door collision 2
if sprite collision (50,205) and mouseclick() = 1 and closebox# = 1 and opendoor# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
hide sprite 200
show sprite 201
play sound 102
show sprite 260
wait 3000
hide sprite 260
show sprite 1000
position mouse mx#,my#
endif

`"" for door collision 3
if sprite collision (50,206) and mouseclick() = 1 and closebox# = 1 and opendoor# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
hide sprite 200
show sprite 201
play sound 102
show sprite 260
wait 3000
hide sprite 260
show sprite 1000
position mouse mx#,my#
endif

`"" for door collision 4
if sprite collision (50,207) and mouseclick() = 1 and closebox# = 1 and opendoor# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
hide sprite 200
show sprite 201
play sound 102
show sprite 260
wait 3000
hide sprite 260
show sprite 1000
position mouse mx#,my#
endif

`Shows closed door if close and door is clicked on
if sprite collision (50,204) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 260
wait 3000
hide sprite 260
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,205) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 260
wait 3000
hide sprite 260
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,206) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 260
wait 3000
hide sprite 260
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,207) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 260
wait 3000
hide sprite 260
show sprite 1000
position mouse mx#,my#
endif
`Shows open door text if door is already open
if sprite collision (50,204) and mouseclick() = 1 and openbox# = 1 and opendoor# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 261
wait 3000
hide sprite 261
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,205) and mouseclick() = 1 and openbox# = 1 and opendoor# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 261
wait 3000
hide sprite 261
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,206) and mouseclick() = 1 and openbox# = 1 and opendoor# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 261
wait 3000
hide sprite 261
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,207) and mouseclick() = 1 and openbox# = 1 and opendoor# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 261
wait 3000
hide sprite 261
show sprite 1000
position mouse mx#,my#
endif

`Take door says
if sprite collision (50,204) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,205) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,206) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,207) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

`shows hit box info when clicked on door and hitbox
if sprite collision (50,204) and mouseclick() = 1 and hitbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,205) and mouseclick() = 1 and hitbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,206) and mouseclick() = 1 and hitbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,207) and mouseclick() = 1 and hitbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

`Shows Speak info when clicked on speakbox and door
if sprite collision (50,204) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 264
wait 3000
hide sprite 264
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,205) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 264
wait 3000
hide sprite 264
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,206) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 264
wait 3000
hide sprite 264
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,207) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 264
wait 3000
hide sprite 264
show sprite 1000
position mouse mx#,my#
endif

`Show use door info when clicked on door and usebox
if sprite collision (50,204) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,205) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,206) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,207) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

`shows leave door info when clicked on door and leave box
if sprite collision (50,204) and mouseclick() = 1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,205) and mouseclick() = 1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,206) and mouseclick() = 1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,207) and mouseclick() = 1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

`__________________________________________________________________________________________________________________________________________________________________
`Skull Head

`look text
`take text
`open text
`close text
`use text
`hit text
`leave text
`speak text
`__________________________________________________________________________________________________________________________________________________________________

`Shows look at skull info when clicked on skull and the look box
if sprite collision (50,203) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 251
wait 3000
position mouse mx#,my#
hide sprite 251
show sprite 1000
endif

`Moveing the stone head up
if sprite collision (50,203) and mouseclick() = 1 and stonehead# = 55 and openbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 255
move sprite 203,19
play sound 100
wait 3000
hide sprite 255
show sprite 1000
position mouse mx#,my#
endif

`Moving the stone head down
if sprite collision (50,203) and mouseclick() = 1 and stonehead# = 36 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 256
move sprite 203,-19
play sound 100
wait 3000
hide sprite 256
show sprite 1000
position mouse mx#,my#
endif

`Says skull is opened if the skull is opened
if sprite collision (50,203) and mouseclick() = 1 and stonehead# = 36 and openbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 257
wait 3000
hide sprite 257
show sprite 1000
position mouse mx#,my#
endif

`Says skull is closed if the skull is
if sprite collision (50,203) and mouseclick() = 1 and stonehead# = 55 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 256
wait 3000
hide sprite 256
show sprite 1000
position mouse mx#,my#
endif

`Take skull says
if sprite collision (50,203) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

`shows hit info when clicked on hitbox and skull
if sprite collision (50,203) and mouseclick() = 1 and hitbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

`shows speak info when clicked on speakbox and skull
if sprite collision (50,203) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 264
wait 3000
hide sprite 264
show sprite 1000
position mouse mx#,my#
endif

`Shows use info when clicked on usebox and skull
if sprite collision (50,203) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

`Shows leave info when click on leave box and skull
if sprite collision (50,203) and mouseclick() = 1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

`__________________________________________________________________________________________________________________________________________________________________
`Stone Wall
`Look wall
`Take wall
`Open wall
`Close wall
`Use wall
`Speak wall
`__________________________________________________________________________________________________________________________________________________________________

`Shows look at stone wall infor when clicked on the wall and the look box
if sprite collision (50,211) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 254
wait 3000
hide sprite 254
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,212) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 254
wait 3000
hide sprite 254
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,213) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 254
wait 3000
hide sprite 254
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,214) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 254
wait 3000
hide sprite 254
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,215) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 254
wait 3000
hide sprite 254
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,216) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 254
wait 3000
hide sprite 254
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,217) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 254
wait 3000
hide sprite 254
show sprite 1000
position mouse mx#,my#
endif

`Take stonewall says
if sprite collision (50,211) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,212) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,213) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,214) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,215) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,216) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,217) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

`Shows the won't open info when clicked on the wall and open box
if sprite collision (50,211) and mouseclick() = 1 and openbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 259
wait 3000
hide sprite 259
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,212) and mouseclick() = 1 and openbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 259
wait 3000
hide sprite 259
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,213) and mouseclick() = 1 and openbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 259
wait 3000
hide sprite 259
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,214) and mouseclick() = 1 and openbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 259
wait 3000
hide sprite 259
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,215) and mouseclick() = 1 and openbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 259
wait 3000
hide sprite 259
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,216) and mouseclick() = 1 and openbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 259
wait 3000
hide sprite 259
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,217) and mouseclick() = 1 and openbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 259
wait 3000
hide sprite 259
show sprite 1000
position mouse mx#,my#
endif

`Shows close stonewall says
if sprite collision (50,211) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,212) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,213) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,214) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,215) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,216) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,217) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

`shows Speak info when clicked on speak and wall
if sprite collision (50,211) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,212) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,213) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,214) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,215) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,216) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,217) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

`Use wall says when clicked on usebox and stone wall
if sprite collision (50,211) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,212) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,213) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,214) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,215) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,216) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,217) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

`shows leave text when clicked on wall and leave box
if sprite collision (50,211) and mouseclick() = 1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,212) and mouseclick() = 1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,213) and mouseclick() = 1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,214) and mouseclick() = 1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,215) and mouseclick() = 1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,216) and mouseclick() = 1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,217) and mouseclick() = 1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

`__________________________________________________________________________________________________________________________________________________________________
`Ground
`Open ground
`take ground
`close ground
`speak ground
`hit ground
`use ground
`leave ground
`__________________________________________________________________________________________________________________________________________________________________

`Shows look at ground infro when clicked on ground and the look box
if sprite collision (50,208) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

`"" collision 2
if sprite collision (50,209) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

`"" collision 3
if sprite collision (50,210) and mouseclick() = 1 and lookbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

`Loads take ground info cant take the ground.
if sprite collision (50,208) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,209) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,210) and mouseclick() = 1 and takebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
show sprite 1000
position mouse mx#,my#
endif

`Shows the won't open ground info when clicked on ground and open
if sprite collision (50,208) and mouseclick() = 1 and openbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 259
wait 3000
hide sprite 259
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,209) and mouseclick() = 1 and openbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 259
wait 3000
hide sprite 259
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,210) and mouseclick() = 1 and openbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 259
wait 3000
hide sprite 259
show sprite 1000
position mouse mx#,my#
endif

`Shows the close when ground is clicked
if sprite collision (50,208) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,209) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,210) and mouseclick() = 1 and closebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

`Shows the hit says when ground is clicked with hit box
if sprite collision (50,208) and mouseclick() = 1 and hitbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,209) and mouseclick() = 1 and hitbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,210) and mouseclick() = 1 and hitbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

`Shows speak when clicked on speak and ground
if sprite collision (50,208) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,209) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,210) and mouseclick() = 1 and speakbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 252
wait 3000
hide sprite 252
show sprite 1000
position mouse mx#,my#
endif

`Shows use says when clicked on usebox and ground
if sprite collision (50,208) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,209) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,210) and mouseclick() = 1 and usebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
show sprite 1000
position mouse mx#,my#
endif

`shows the leave ground text when leave button and ground are clicked
if sprite collision (50,208) and mouseclick() =  1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,209) and mouseclick() =  1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

if sprite collision (50,210) and mouseclick() =  1 and leavebox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
show sprite 1000
position mouse mx#,my#
endif

`__________________________________________________________________________________________________________________________________________________________________
`Look Self
`Take Self
`Use Self
`Open Self
`Close Self
`leave self
`speak self

`__________________________________________________________________________________________________________________________________________________________________

`Shows the look self infro when clicked on look and self buttons
if sprite collision (50,20)  and mouseclick() = 1 and lookselfbox2# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 253
wait 3000
hide sprite 253
hide sprite 28
show sprite 1000
position mouse mx#,my#
endif

`Shows the take self infro when clicked on take and self buttons
if sprite collision (50,20) and mouseclick() = 1 and takeselfbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 258
wait 3000
hide sprite 258
hide sprite 29
show sprite 1000
position mouse mx#,my#
endif

`Shows the use self info when clicked on use and self buttons
if sprite collision (50,20) and mouseclick() = 1 and useselfbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 265
wait 3000
hide sprite 265
hide sprite 30
show sprite 1000
position mouse mx#,my#
endif

`Shows the open self info when clicked on open and self buttons
if sprite collision (50,20) and mouseclick() = 1 and openselfbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 259
wait 3000
hide sprite 259
hide sprite 31
show sprite 1000
position mouse mx#,my#
endif

`Shows the close self info when clicked on close and self buttons
if sprite collision (50,20) and mouseclick() = 1 and closeselfbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 263
wait 3000
hide sprite 263
hide sprite 32
show sprite 1000
position mouse mx#,my#
endif

`Shows the leave self info when clicked on leave and self buttons
if sprite collision (50,20) and mouseclick() = 1 and leaveselfbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 266
wait 3000
hide sprite 266
hide sprite 33
show sprite 1000
position mouse mx#,my#
endif

`Shows the speak self info when clicked on speak and self buttons
if sprite collision (50,20) and mouseclick() = 1 and speakselfbox# = 1
hide sprite 1000
mx# = mousex()
my# = mousey()
show sprite 265
wait 3000
hide sprite 265
hide sprite 34
show sprite 1000
position mouse mx#,my#
endif

`___________________________________________________________________________________________________________________________________________________________________

`Takes the Key and Puts it in inventory
if sprite collision (50,202) = 1 and takebox# = 1 and mouseclick() = 1
hide sprite 202
sprite 202,550,60,202
scale sprite 202,200
show sprite 202
endif

`___________________________________________________________________________________________________________________________________________________________________
`Controls the mouse and the exit game button
`___________________________________________________________________________________________________________________________________________________________________

`Variables for putting the mc collision box to the mouse positions
mx# = mousex()
my# = mousey()

`Puts the sprite mc onto the mouse position
sprite 50,mx#,my#,50
sprite 51,mx#,my#,51

`Exit Box collision check to end the game
if sprite collision (50,1000) and mouseclick()=1
end
endif

`___________________________________________________________________________________________________________________________________________________________________
`End of the loop
`___________________________________________________________________________________________________________________________________________________________________

sync
loop

endfunction

function introtext()
`___________________________________________________________________________________________________________________________________________________________________
`Text BAR

`(Images - 13 to 20)
`(Sprites - 100 to 107)
`___________________________________________________________________________________________________________________________________________________________________

`Loads the intro text
load image "media\t1.png",13,1
load image "media\t2.png",14,1
load image "media\t3.png",15,1
load image "media\t4.png",16,1
load image "media\t5.png",17,1
load image "media\t6.png",18,1
load image "media\t7.png",19,1
load image "media\t8.png",20,1

`hides the mouse from view for intro
hide mouse

`hides the exit button from view for intro
hide sprite 1000

`sets the intro images to sprites for showing
sprite 100,42,348,13
hide sprite 100
sprite 101,42,348,14
hide sprite 101
sprite 102,42,348,15
hide sprite 102
sprite 103,42,348,16
hide sprite 103
sprite 104,42,348,17
hide sprite 104
sprite 105,42,348,18
hide sprite 105
sprite 106,42,348,19
hide sprite 106
sprite 107,42,348,20
hide sprite 107

`sets up intro sprites for showing
set sprite 100,0,0
set sprite 101,0,0
set sprite 102,0,0
set sprite 103,0,0
set sprite 104,0,0
set sprite 105,0,0
set sprite 106,0,0
set sprite 107,0,0

`shows and hides the sprites in order on the screen with time pause for reading the introduction
show sprite 100

wait 5000

hide sprite 100

show sprite 101

wait 5000

hide sprite 101

show sprite 102

wait 5000

hide sprite 102

show sprite 103

wait 5000

hide sprite 103

show sprite 104

wait 5000

hide sprite 104

show sprite 105

wait 5000

hide sprite 105

show sprite 106

wait 5000

hide sprite 106

show sprite 107

wait 5000

hide sprite 107

show sprite 1000

cls
endfunction