-----------------------------------

master-awesome

Mon Jan 05, 2015 4:22 pm


I Need Help With Gui Buttons! Whenever I Apply, There Is This Glitch Where In Next Procedure Buttons Are Still There!

-----------------------------------

I mean the screen is clear, but when you move the mouse to where they were positioned, there is a problem where the buttons are still working when they are not suppose to. Could you help me with disabling these buttons?

I've highlighted the buttons in red!

Code:
 Name: Master-Awesome
% Updated Date: 12/29/2014
import GUI
View.Set ("graphics:720;580")
var picID : int 

% All Gaming Variables

% Keyboard Variable
var infont : int
var keyboard_controls1 : int := Pic.FileNew ("Testing/Game Control and Menu/Keyboard  1.jpg")
var keyboard_controls2 : int := Pic.FileNew ("Testing/Game Control and Menu/Keyboard  2.jpg")

% Flying Declare Variables
var mfx : int := 1
var mfy : int := 200
var dmfx : int
var dmfy : int 
var dmfxc1 : int
var dmfyc1 : int
var dmfxc2 : int
var dmfyc2 : int
var dmfxc3 : int
var dmfyc3 : int
var dmfxc4 : int
var dmfyc4 : int
var sky_limit : int := 300
var fly_fireblastx : int := 360
var fly_fireblasty : int := 200
var fly_fireblastshape : int := 30
var fly_dfireblastshape : int := 30
var fire_movement : int := 40
var dmkill : real
var mkill1 : real
var mkill2 : real
var mgain : real
var dmgain : real

% Blast Bounderies
var bsky_limity1 : int := 200
var bsky_limity2 : int := 40
var bsky_limitx1 : int :=580
var bsky_limitx2 : int := 180

% Mario Boundery
var sky_limity1 : int := 240
var sky_limity2 : int := 230
var sky_limitx1 : int := 20
var sky_limitx2 : int := 1

% Mario Flies To The Right
var mario_flies_right1 : int := Pic.FileNew ("Testing/Game Test/Mario/Mario Flying Original/Mario-Flying-1.jpg")
var mario_flies_right2 : int := Pic.FileNew ("Testing/Game Test/Mario/Mario Flying Original/Mario-Flying-2.jpg")
var mario_flies_right3 : int := Pic.FileNew ("Testing/Game Test/Mario/Mario Flying Original/Mario-Flying-3.jpg")

% Mario Flies To The Left
var mario_flies_left1 : int := Pic.FileNew ("Testing/Game Test/Mario/Mario Flying Opposite Direction/Mario-Flying-Opposite-Direction-1.jpg")
var mario_flies_left2 : int := Pic.FileNew ("Testing/Game Test/Mario/Mario Flying Opposite Direction/Mario-Flying-Opposite-Direction-2.jpg")
var mario_flies_left3 : int := Pic.FileNew ("Testing/Game Test/Mario/Mario Flying Opposite Direction/Mario-Flying-Opposite-Direction-3.jpg")

% Dark Mario Flies To The Left
var dark_mario_flies_left1 : int := Pic.FileNew ("Testing/Game Test/Dark Mario/Mario Flying Opposite Direction/Mario-Flying-Opposite-Direction-1.jpg")
var dark_mario_flies_left2 : int := Pic.FileNew ("Testing/Game Test/Dark Mario/Mario Flying Opposite Direction/Mario-Flying-Opposite-Direction-2.jpg")
var dark_mario_flies_left3 : int := Pic.FileNew ("Testing/Game Test/Dark Mario/Mario Flying Opposite Direction/Mario-Flying-Opposite-Direction-3.jpg")

% Background Animation
var animation0 : int := Pic.FileNew ("Testing/Game Test/The Sky Battle Stage/0.jpg")
var animation1 : int := Pic.FileNew ("Testing/Game Test/The Sky Battle Stage/1.jpg")
var animation2 : int := Pic.FileNew ("Testing/Game Test/The Sky Battle Stage/2.jpg")
var animation3 : int := Pic.FileNew ("Testing/Game Test/The Sky Battle Stage/3.jpg")
var animation4 : int := Pic.FileNew ("Testing/Game Test/The Sky Battle Stage/4.jpg")
var animation5 : int := Pic.FileNew ("Testing/Game Test/The Sky Battle Stage/5.jpg")
var animation6 : int := Pic.FileNew ("Testing/Game Test/The Sky Battle Stage/6.jpg")

% Background Animation
var f0 : int := Pic.FileNew ("Testing/Game Test/Mario's Death/0.jpg")
var f1 : int := Pic.FileNew ("Testing/Game Test/Mario's Death/1.jpg")
var f2 : int := Pic.FileNew ("Testing/Game Test/Mario's Death/2.jpg")
var f3 : int := Pic.FileNew ("Testing/Game Test/Mario's Death/3.jpg")
var f4 : int := Pic.FileNew ("Testing/Game Test/Mario's Death/4.jpg")
var f5 : int := Pic.FileNew ("Testing/Game Test/Mario's Death/5.jpg")
var f6 : int := Pic.FileNew ("Testing/Game Test/Mario's Death/6.jpg")
var f7 : int := Pic.FileNew ("Testing/Game Test/Mario's Death/7.jpg")
var f8 : int := Pic.FileNew ("Testing/Game Test/Mario's Death/8.jpg")
var f9 : int := Pic.FileNew ("Testing/Game Test/Mario's Death/9.jpg")
var f10 : int := Pic.FileNew ("Testing/Game Test/Mario's Death/10.jpg")
var f11 : int := Pic.FileNew ("Testing/Game Test/Mario's Death/11.jpg")

% Mario Walking Right
var mario_walks_right2 : int := Pic.FileNew ("Testing/Game Test/Mario/Mario Walking Original/Walking-Mario-2.jpg")
var mario_walks_right3 : int := Pic.FileNew ("Testing/Game Test/Mario/Mario Walking Original/Walking-Mario-3.jpg")
var mario_walks_right1 : int := Pic.FileNew ("Testing/Game Test/Mario/Mario Walking Original/Walking-Mario-1.jpg")

% Mario Walking Left
var mario_walks_left2 : int := Pic.FileNew ("Testing/Game Test/Mario/Mario Walking Opposite Direction/Mario-Walking-Opposite-Direction-2.jpg")
var mario_walks_left3 : int := Pic.FileNew ("Testing/Game Test/Mario/Mario Walking Opposite Direction/Mario-Walking-Opposite-Direction-3.jpg")
var mario_walks_left1 : int := Pic.FileNew ("Testing/Game Test/Mario/Mario Walking Opposite Direction/Mario-Walking-Opposite-Direction-1.jpg")

% Dark Mario Waling Left
var dark_mario_walks_left2 : int := Pic.FileNew ("Testing/Game Test/Dark Mario/Mario Walking Opposite Direction/Mario-Walking-Opposite-Direction-2.jpg")
var dark_mario_walks_left3 : int := Pic.FileNew ("Testing/Game Test/Dark Mario/Mario Walking Opposite Direction/Mario-Walking-Opposite-Direction-3.jpg")
var dark_mario_walks_left1 : int := Pic.FileNew ("Testing/Game Test/Dark Mario/Mario Walking Opposite Direction/Mario-Walking-Opposite-Direction-1.jpg")

% Declare Variables
var x : int := 1
var y : int := 36
var dx : int := 600
var dy : int := 36
var xm : int := 720
var ym : int := 360
var dxm : int := 720
var dym : int := 200
var key1 : string (1)
var key2 : string (1)
var mlives : int := 3
var dmlives : int := 9
var fireblastx : int := 600
var fireblasty : int := 80
var fireblastshape : int := 30
var dfireblastx : int
var dfireblasty : int
var dfireblastxc1 : int
var dfireblastyc1 : int
var dfireblastxc2 : int
var dfireblastyc2 : int
var dfireblastxc3 : int
var dfireblastyc3 : int
var dfireblastxc4 : int
var dfireblastyc4 : int
randint (dfireblastx,1,600)
randint (dfireblasty,80,200)
randint (dfireblastxc1,1,600)
randint (dfireblastyc1,80,200)
randint (dfireblastxc2,1,600)
randint (dfireblastyc2,80,200)
randint (dfireblastxc3,1,600)
randint (dfireblastyc3,80,200)
randint (dfireblastxc4,1,600)
randint (dfireblastyc4,80,200)
var dfireblastshape : int := 30
var gravity : int := 20
var ground : int := 36
var jump : int := 200

% Game Over
var dark_mario_game_over : int := Pic.FileNew ("Testing/Game Test/Dark-Mario-World-Mario.jpg")

% Game Title Variables
var game_title : int := Pic.FileNew ("Testing/Game Control and Menu/Screen.jpg")

% Won Variable
var mario_won : int := Pic.FileNew ("Testing/Mario Won/Mario Won.jpg")

% Story Variables
var evil_mario_quest : int := Pic.FileNew ("Testing/Game Story/Evil Mario Quest.jpg")

% Final Stage Variables

var evil_mario_transformation_0 : int := Pic.FileNew ("Testing/Game Story/Dark Mario Transformation/0.jpg")
var evil_mario_transformation_1 : int := Pic.FileNew ("Testing/Game Story/Dark Mario Transformation/1.jpg")
var evil_mario_transformation_2 : int := Pic.FileNew ("Testing/Game Story/Dark Mario Transformation/2.jpg")
var evil_mario_transformation_3 : int := Pic.FileNew ("Testing/Game Story/Dark Mario Transformation/3.jpg")
var evil_mario_transformation_4 : int := Pic.FileNew ("Testing/Game Story/Dark Mario Transformation/4.jpg")
var evil_mario_transformation_5 : int := Pic.FileNew ("Testing/Game Story/Dark Mario Transformation/5.jpg")
var evil_mario_transformation_6 : int := Pic.FileNew ("Testing/Game Story/Dark Mario Transformation/6.jpg")

% Buttons Variables

var credit_to_me : int

% End Of Variables

% All Procedures

% Credit To Me

procedure credit
Music.PlayFileLoop ("Testing/Music/Full Steam Ahead.mp3")
% Credit
drawfillbox (1,1,1000,1000,7)
infont:=Font.New("Times New Romen:30")
Draw.Text("CREDIT", 300,520,infont,0)
Draw.Text("CREDIT", 300,519,infont,22)

% Status
infont:=Font.New("Times New Romen:14")
Draw.Text("Hello Everybody! I'm the developer of this game. My name is Shivang. My class", 30,490,infont,0)
Draw.Text("Hello Everybody! I'm the developer of this game. My name is Shivang. My class", 29,489,infont,22)
Draw.Text("is GVSS_Tajalli _ ICS2O. This program was completed on December 29, 2014.", 30,470,infont,0)
Draw.Text("is GVSS_Tajalli _ ICS2O. This program was completed on December 29, 2014.", 29,469,infont,22)
Draw.Text("You can refer to me as Master-Awesome or Special Cinema. I programmed ", 30,450,infont,0)
Draw.Text("You can refer to me as Master-Awesome or Special Cinema. I programmed ", 29,449,infont,22)
Draw.Text("this game. It wasn't easy. The characters and backgrounds are found from", 30,430,infont,0)
Draw.Text("this game. It wasn't easy. The characters and backgrounds are found from", 29,429,infont,22)
Draw.Text("Google images. The jump effect comes from gravity as without it, the", 30,410,infont,0)
Draw.Text("Google images. The jump effect comes from gravity as without it, the", 29,409,infont,22)
Draw.Text("character would just float. The landing comes from collision because without", 30,390,infont,0)
Draw.Text("character would just float. The landing comes from collision because without", 29,389,infont,22)
Draw.Text("something to stop the gravity, the character will just fall into the ground. The", 30,370,infont,0)
Draw.Text("something to stop the gravity, the character will just fall into the ground. The", 29,369,infont,22)
Draw.Text("purple energy balls come from collisions as well. Collision is just something ", 30,350,infont,0)
Draw.Text("purple energy balls come from collisions as well. Collision is just something ", 29,349,infont,22)
Draw.Text("that allows two objects to hit. I can't explain it, but you can find out more at:", 30,330,infont,0)
Draw.Text("that allows two objects to hit. I can't explain it, but you can find out more at:", 29,329,infont,22)
Draw.Text("http://compsci.ca/v3/viewtopic.php?t=13661. The music I found from Youtube.", 30,310,infont,0)
Draw.Text("http://compsci.ca/v3/viewtopic.php?t=13661. The music I found from Youtube.", 29,309,infont,22)
Draw.Text("Just type in \"Super Smash Bros. Wii U All Soundtracks\" and you will find them.", 30,290,infont,0)
Draw.Text("Just type in \"Super Smash Bros. Wii U All Soundtracks\" and you will find them.", 29,289,infont,22)
Draw.Text("Now that everything is cleared up, I'd like to warn you about an error that doesn't", 30,270,infont,0)
Draw.Text("Now that everything is cleared up, I'd like to warn you about an error that doesn't", 29,269,infont,22)
Draw.Text("affect me. Whenever I apply: loop", 30,250,infont,0)
Draw.Text("affect me. Whenever I apply: loop", 29,249,infont,22)
Draw.Text("exit when GUI.ProcessEvent", 320,230,infont,0)
Draw.Text("exit when GUI.ProcessEvent", 319,229,infont,22)    
Draw.Text("end loop", 280,210,infont,0)
Draw.Text("end loop ", 279,209,infont,22) 
Draw.Text("There's this screen that pops up saying WidgetModule.tu for the buttons. This", 30,190,infont,0)
Draw.Text("There's this screen that pops up saying WidgetModule.tu for the buttons. This", 29,189,infont,22)  
Draw.Text("is not an error because of me, but rather Turing itself. Because the software", 30,170,infont,0)
Draw.Text("is not an error because of me, but rather Turing itself. Because the software", 29,169,infont,22)  
Draw.Text("of Windows is newer, Turing is not use to that. In order to fix, you need to", 30,150,infont,0)
Draw.Text("of Windows is newer, Turing is not use to that. In order to fix, you need to", 29,149,infont,22)  
Draw.Text("install and rearrange certain things on your computer. This maybe fixed in", 30,130,infont,0)
Draw.Text("install and rearrange certain things on your computer. This maybe fixed in", 29,129,infont,22)  
Draw.Text("Turing 4.1.2 whenever that releases with the bugs fixed and all. Now I say:", 30,110,infont,0)
Draw.Text("Turing 4.1.2 whenever that releases with the bugs fixed and all. Now I say:", 29,109,infont,22) 
infont:=Font.New("Times New Romen:27")
Draw.Text("THANK YOU FOR PLAYING MY GAME!", 33,60,infont,0)
Draw.Text("THANK YOU FOR PLAYING MY GAME!", 32,59,infont,2)
 infont:=Font.New("Times New Romen:12")
Draw.Text("PLEASE GO TO CODING WINDOW AND PRESS \"Run\", IF YOU WANT TO PLAY AGAIN!", 40,30,infont,0)
Draw.Text("PLEASE GO TO CODING WINDOW AND PRESS \"Run\", IF YOU WANT TO PLAY AGAIN!", 39,29,infont,22) 
end credit

% When Player Loses
procedure game_over
Music.PlayFileLoop ("Testing/Music/The Grand Finale (Bowser's Inside Story).mp3")
drawfillbox (1,1,1000,1000,7)
picID:= dark_mario_game_over
Pic.Draw (picID,70,20,picCopy)
end game_over

% When Player Wins
procedure won
% Control Pictures and Text
cls
Music.PlayFileLoop ("Testing/Music/Super Mario World Medley.mp3")
drawfillbox (1,1,1000,1000,119)
picID:= mario_won
Pic.Draw (picID,40,60,picCopy) 

% Control Title
infont:=Font.New("Times New Romen:26")
Draw.Text("YOU HAVE RECLAIMED THE KINGDOM!", 30,520,infont,0)
Draw.Text("YOU HAVE RECLAIMED THE KINGDOM!", 29,519,infont,4)
        % Buttons
        credit_to_me := GUI.CreateButton (290,470,0, "SEE WHO MADE IT",credit)
        % Button Press (The Source Of The Stupid Code That Pops Up Right After
        % You Close The Program Because Of The Version Of Windows Being The
        % Latest Which I Hope Turing Fixes In 4.1.2)
        loop
            exit when GUI.ProcessEvent
        end loop 
end won

% Game
procedure background

% Background
drawfillbox (1,1,1000,1000,7)
picID:= Pic.FileNew ("Testing/Game Test/Dark-Castle.jpg")
Pic.Draw (picID,215,370,picCopy)
colourback (20)
locate (35,1)
put ""
colourback (20)
locate (36,1)
put ""
drawfillbox (1,34,720,360,7) 
   
% Mario
drawfillbox (x,y,720,200,7)
picID:= Pic.FileNew ("Testing/Game Test/Mario/Mario Walking Original/Walking-Mario-1.jpg")

% Display Lives
    % Mario Lives
    colour (0)
    colourback (7)
    locate (2,8)
    put "Mario = ",mlives
    picID:= Pic.FileNew ("Testing/Game Test/Mario/Icon/Mario-icon.jpg")
    Pic.Draw (picID,20,400,picCopy) 
    
    % Dark Mario Lives
    colour (0)
    locate (2,70)
    put "Dark Mario = ",dmlives
    picID:= Pic.FileNew ("Testing/Game Test/Dark Mario/Icon/Mario-icon.jpg")
    Pic.Draw (picID,540,400,picCopy)

end background

% Fly Background

procedure fly_background

% Fly Background
drawfillbox (1,1,1000,1000,7)
picID:= Pic.FileNew ("Testing/Game Test/orion.jpg")
Pic.Draw (picID,1,1,picCopy)

% Display Mario Flying Right
picID := mario_flies_right1
Pic.Draw (picID,mfx,mfy,picCopy)

% Dark Mario Left Original
picID := dark_mario_flies_left1
Pic.Draw (picID,600,200,picCopy)
delay (50)
picID := dark_mario_flies_left2
Pic.Draw (picID,600,200,picCopy)
delay (50)
picID := dark_mario_flies_left3
Pic.Draw (picID,600,200,picCopy)
delay (50)

% Display Lives
    % Mario Lives
    colour (0)
    colourback (7)
    locate (2,8)
    put "Mario = ",mlives
    picID:= Pic.FileNew ("Testing/Game Test/Mario/Icon/Mario-icon.jpg")
    Pic.Draw (picID,20,400,picCopy) 
    
    % Dark Mario Lives
    colour (0)
    locate (2,70)
    put "Dark Mario = ",dmlives
    picID:= Pic.FileNew ("Testing/Game Test/Dark Mario/Icon/Mario-icon.jpg")
    Pic.Draw (picID,540,400,picCopy)

% Display The Stage
picID:= animation6
Pic.Draw (picID,190,400,picCopy)

% Fire Movement
colour (41)
locate (13,36)
put "Fire Movement = ",fire_movement

end fly_background

procedure mario_death
    Music.PlayFileLoop ("Testing/Music/Sound Effects/Fire Burning Sound Effect.mp3")
    delay (100)
    picID := f0
    Pic.Draw (picID,mfx,mfy,picCopy)
    delay (100)
    picID := f1
    Pic.Draw (picID,mfx,mfy,picCopy)
    delay (100)
    picID := f2
    Pic.Draw (picID,mfx,mfy,picCopy)
    delay (100)
    picID := f3
    Pic.Draw (picID,mfx,mfy,picCopy)
    delay (100)
    picID := f4
    Pic.Draw (picID,mfx,mfy,picCopy)
    delay (100)
    picID := f5
    Pic.Draw (picID,mfx,mfy,picCopy)
    delay (100)
    picID := f6
    Pic.Draw (picID,mfx,mfy,picCopy)
    delay (100)
    picID := f7
    Pic.Draw (picID,mfx,mfy,picCopy)
    delay (100)
    picID := f8
    Pic.Draw (picID,mfx,mfy,picCopy)
    delay (100)
    picID := f9
    Pic.Draw (picID,mfx,mfy,picCopy)
    delay (100)
    picID := f10
    Pic.Draw (picID,mfx,mfy,picCopy)
    delay (100)
    picID := f11
    Pic.Draw (picID,mfx,mfy,picCopy)
    delay (100)
    Music.PlayFileLoop ("Testing/Music/Fortress Boss (Super Mario World).mp3")
end mario_death

procedure dark_mario
        % The Random Dark Mario Effect
        randint (dmfx,180,580)
        randint (dmfy,40,200)
        randint (dmfxc1,180,580)
        randint (dmfyc1,40,200)
        randint (dmfxc2,180,580)
        randint (dmfyc2,40,200)
        randint (dmfxc3,180,580)
        randint (dmfyc3,40,200)
        randint (dmfxc4,180,580)
        randint (dmfyc4,40,200)
        % Dark Blast Point Original
        drawfilloval (dmfx,dmfy,fly_dfireblastshape,fly_dfireblastshape,7)
        drawfilloval (dmfx,dmfy,fly_dfireblastshape,fly_dfireblastshape,105)
        delay (20)
        
        % Dark Blast Point Clone1
        drawfilloval (dmfxc1,dmfyc1,fly_dfireblastshape,fly_dfireblastshape,7)
        drawfilloval (dmfxc1,dmfyc1,fly_dfireblastshape,fly_dfireblastshape,105)
        delay (20)
        
        % Dark Blast Point Clone2
        drawfilloval (dmfxc2,dmfyc2,fly_dfireblastshape,fly_dfireblastshape,7)
        drawfilloval (dmfxc2,dmfyc2,fly_dfireblastshape,fly_dfireblastshape,105)
        delay (20)
        
        % Dark Blast Point Clone3
        drawfilloval (dmfxc3,dmfyc3,fly_dfireblastshape,fly_dfireblastshape,7)
        drawfilloval (dmfxc3,dmfyc3,fly_dfireblastshape,fly_dfireblastshape,105)
        delay (20)
        
        % Dark Blast Point Clone4
        drawfilloval (dmfxc4,dmfyc4,fly_dfireblastshape,fly_dfireblastshape,7)
        drawfilloval (dmfxc4,dmfyc4,fly_dfireblastshape,fly_dfireblastshape,105)
        delay (20)
end dark_mario

procedure sky_battle
Music.PlayFileLoop ("Testing/Music/Fortress Boss (Super Mario World).mp3")
        fly_background
        dark_mario
loop % For Game
    loop % For Background
    getch (key2)
    if ord (key2) = 200 and mfy < sky_limity1 then % Up
        mfy := mfy + 20
        delay (50)
        picID := mario_flies_right1
        Pic.Draw (picID,mfx,mfy,picCopy)
        delay (50)
        picID := mario_flies_right2
        Pic.Draw (picID,mfx,mfy,picCopy)
        delay (50)
        picID := mario_flies_right3
        Pic.Draw (picID,mfx,mfy,picCopy)
    elsif ord (key2) = 205 and mfx < sky_limitx1 then % Right
        mfx := mfx + 20
        delay (50)
        picID := mario_flies_right1
        Pic.Draw (picID,mfx,mfy,picCopy)
        delay (50)
        picID := mario_flies_right2
        Pic.Draw (picID,mfx,mfy,picCopy)
        delay (50)
        picID := mario_flies_right3
        Pic.Draw (picID,mfx,mfy,picCopy)
    elsif ord (key2) = 203 and mfx > sky_limitx2 then % Left
        mfx := mfx - 20
        delay (50)
        picID := mario_flies_left1
        Pic.Draw (picID,mfx,mfy,picCopy)
        delay (50)
        picID := mario_flies_left2
        Pic.Draw (picID,mfx,mfy,picCopy)
        delay (50)
        picID := mario_flies_left3
        Pic.Draw (picID,mfx,mfy,picCopy)
    elsif ord (key2) = 208 and mfy > sky_limity2 then % Down
        mfy := mfy - 20
        delay (50)
        picID := mario_flies_left1
        Pic.Draw (picID,mfx,mfy,picCopy)
        delay (50)
        picID := mario_flies_left2
        Pic.Draw (picID,mfx,mfy,picCopy)
        delay (50)
        picID := mario_flies_left3
        Pic.Draw (picID,mfx,mfy,picCopy)
    elsif ord (key2) = 32 then        % Space Make Blast Appear
        drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,7)
        fly_fireblastx := 360
        fly_fireblasty := 200
        drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,41)
    elsif ord (key2) = 100 and fly_fireblastx < bsky_limitx1 then        % D Move Blast Right
        % Fire Movement Count Down
        fire_movement := fire_movement - 1
        colour (41)
        locate (13,36)
        put "Fire Movement = ",fire_movement
        % Fire Movement
        drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,7)
        fly_fireblastx := fly_fireblastx+20
        drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,41)
    elsif ord (key2) = 97 and fly_fireblastx > bsky_limitx2 then       % A Move Blast Left
        % Fire Movement Count Down
        fire_movement := fire_movement - 1
        colour (41)
        locate (13,36)
        put "Fire Movement = ",fire_movement
        % Fire Movement
        drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,7)
        fly_fireblastx := fly_fireblastx-20
        drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,41)
    elsif ord (key2) = 115 and fly_fireblasty > bsky_limity2 then      % S Move Blast Down
        % Fire Movement Count Down
        fire_movement := fire_movement - 1
        colour (41)
        locate (13,36)
        put "Fire Movement = ",fire_movement
        % Fire Movement
        drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,7)
        fly_fireblasty := fly_fireblasty-20
        drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,41)
    elsif ord (key2) = 119 and fly_fireblasty < bsky_limity1 then     % W Move Blast Up
        % Fire Movement Count Down
        fire_movement := fire_movement - 1
        colour (41)
        locate (13,36)
        put "Fire Movement = ",fire_movement
        % Fire Movement
        drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,7)
        fly_fireblasty := fly_fireblasty+20
        drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,41)
end if
      % Mario Sky Lives
      if fire_movement  sky_limitx2 then % Left 
mfx := mfx - 20 
delay (50) 
picID := mario_flies_left1 
Pic.Draw (picID,mfx,mfy,picCopy) 
delay (50) 
picID := mario_flies_left2 
Pic.Draw (picID,mfx,mfy,picCopy) 
delay (50) 
picID := mario_flies_left3 
Pic.Draw (picID,mfx,mfy,picCopy) 
elsif ord (key2) = 208 and mfy > sky_limity2 then % Down 
mfy := mfy - 20 
delay (50) 
picID := mario_flies_left1 
Pic.Draw (picID,mfx,mfy,picCopy) 
delay (50) 
picID := mario_flies_left2 
Pic.Draw (picID,mfx,mfy,picCopy) 
delay (50) 
picID := mario_flies_left3 
Pic.Draw (picID,mfx,mfy,picCopy) 
elsif ord (key2) = 32 then % Space Make Blast Appear 
drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,7) 
fly_fireblastx := 360 
fly_fireblasty := 200 
drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,41) 
elsif ord (key2) = 100 and fly_fireblastx < bsky_limitx1 then % D Move Blast Right 
% Fire Movement Count Down 
fire_movement := fire_movement - 1 
colour (41) 
locate (13,36) 
put "Fire Movement = ",fire_movement 
% Fire Movement 
drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,7) 
fly_fireblastx := fly_fireblastx+20 
drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,41) 
elsif ord (key2) = 97 and fly_fireblastx > bsky_limitx2 then % A Move Blast Left 
% Fire Movement Count Down 
fire_movement := fire_movement - 1 
colour (41) 
locate (13,36) 
put "Fire Movement = ",fire_movement 
% Fire Movement 
drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,7) 
fly_fireblastx := fly_fireblastx-20 
drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,41) 
elsif ord (key2) = 115 and fly_fireblasty > bsky_limity2 then % S Move Blast Down 
% Fire Movement Count Down 
fire_movement := fire_movement - 1 
colour (41) 
locate (13,36) 
put "Fire Movement = ",fire_movement 
% Fire Movement 
drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,7) 
fly_fireblasty := fly_fireblasty-20 
drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,41) 
elsif ord (key2) = 119 and fly_fireblasty < bsky_limity1 then % W Move Blast Up 
% Fire Movement Count Down 
fire_movement := fire_movement - 1 
colour (41) 
locate (13,36) 
put "Fire Movement = ",fire_movement 
% Fire Movement 
drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,7) 
fly_fireblasty := fly_fireblasty+20 
drawfilloval (fly_fireblastx,fly_fireblasty,fly_fireblastshape,fly_fireblastshape,41) 
end if 
% Mario Sky Lives 
if fire_movement