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

GhostsGamerCod

Sun Mar 26, 2017 3:35 pm


Need Help

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

Im having a hard time figuring out why my programs not working. can someone help me out please?!

It says that that probale cause is that picture was not loaded successful but the image is in the propper spot?




%%%%%%%% Screen Scale %%%%%%%% 
View.Set('Graphics:910,511')
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


%%%%%%%% Variables %%%%%%%%%
var Drop : int
var x, y, b : int
var B : boolean := false

var p : int := 0
%%%%%%%%%%%%%%%%%%%%%%%%%%%%


%%%%%%%% Music %%%%%%%%%
process playstuff
    loop
    Music.PlayFile ("bf1music3.MP3")
    delay (15100)
    Music.PlayFile ("music22.MP3")
    delay(15600)
    Music.PlayFile ("bfold1.MP3")
    delay (1200)
    end loop
end playstuff

fork playstuff
%%%%%%%%%%%%%%%%%%%%%%%


%%%%%%%%%% Intro %%%%%%%%%%%%%
Pic.ScreenLoad("BBMP/battlefieldintro11.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro44.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro11.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro44.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro11.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro44.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro11.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro44.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro11.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro44.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro11.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro44.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro11.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro44.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro11.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro44.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro11.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro44.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro11.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro44.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro11.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro44.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro11.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro44.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro33.bmp", 0, 0, picCopy)
delay(115)
Pic.ScreenLoad("BBMP/battlefieldintro22.bmp", 0, 0, picCopy)
delay(115)

cls
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

var background : int
background := Pic.FileNew ("battlefieldbackground.bmp")
var backgroundspr := Sprite.New (background)

var battlepack : int
battlepack := Pic.FileNew ("battlepackclose.bmp")
var battlepackspr := Sprite.New (battlepack)

var button : int
button := Pic.FileNew ("button.bmp")
var buttonspr := Sprite.New (button)

var buttonclick : int
buttonclick := Pic.FileNew ("buttonclick.bmp")
var buttonclickspr := Sprite.New (buttonclick)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

var aek : int
aek := Pic.FileNew ("aekbmp.bmp")
var Dropspr := Sprite.New (aek)

var axe : int
axe := Pic.FileNew ("axebmp.bmp")
Dropspr := Sprite.New (axe)

var FN57 : int
FN57 := Pic.FileNew ("FN57bmp.bmp")
Dropspr := Sprite.New (FN57)

var gol : int
gol := Pic.FileNew ("golmagbmp.bmp")
Dropspr := Sprite.New (gol)

var kolibri : int
kolibri := Pic.FileNew ("kolibribmp.bmp")
Dropspr := Sprite.New (kolibri)

var lsat : int
lsat := Pic.FileNew ("lsatbmp.bmp")
Dropspr := Sprite.New (lsat)

var model10 : int
model10 := Pic.FileNew ("model10bmp.bmp")
Dropspr := Sprite.New (model10)

var MP18 : int
MP18 := Pic.FileNew ("MP18bmp.bmp")
Dropspr := Sprite.New (MP18)

var mtar : int
mtar := Pic.FileNew ("mtarbmp.bmp")
Dropspr := Sprite.New (mtar)

var russian : int
russian := Pic.FileNew ("russian1895bmp.bmp")
Dropspr := Sprite.New (russian)

var sar : int
sar := Pic.FileNew ("sar21bmp.bmp")
Dropspr := Sprite.New (sar)

var shovel : int
shovel := Pic.FileNew ("shovelbmp.bmp")
Dropspr := Sprite.New (shovel)

var smle : int
smle := Pic.FileNew ("smlebmp.bmp")
Dropspr := Sprite.New (smle)

var club : int
club := Pic.FileNew ("spikedclubbmp.bmp")
Dropspr := Sprite.New (club)

var type88 : int
type88 := Pic.FileNew ("type88bmp.bmp")
Dropspr := Sprite.New (type88)

var ump : int
ump := Pic.FileNew ("ump9bmp.bmp")
Dropspr := Sprite.New (ump)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
loop



    Sprite.Hide (Dropspr)



    Sprite.Animate (backgroundspr, background, 0, 0, false)
    Sprite.SetHeight (backgroundspr, 0)
    Sprite.Show (backgroundspr)

    Sprite.Animate (battlepackspr, battlepack, 340, 200, false)
    Sprite.SetHeight (battlepackspr, 1)
    Sprite.Show (battlepackspr)

    Sprite.Animate (buttonspr, button, 554, 128, false)
    Sprite.SetHeight (buttonspr, 1)
    Sprite.Show (buttonspr)




    Mouse.ButtonWait ("down", x, y, b, b) %button_click_animation%
    if x > 551 and x < 638 and y > 127 and y < 175 and B = false then
        Sprite.Hide (battlepackspr)
        Sprite.Hide (buttonspr)


        Sprite.Animate (buttonclickspr, buttonclick, 554, 128, false)
        Sprite.SetHeight (buttonclickspr, 1)
        Sprite.Show (buttonclickspr)
        delay (350)

        Sprite.Hide (buttonclickspr)
        Sprite.Animate (buttonspr, button, 554, 128, false)
        Sprite.SetHeight (buttonspr, 1)
        Sprite.Show (buttonspr)
        Sprite.Hide (buttonspr)

        for i : 1 .. 16

            randint (Drop, 1, 16)

        end for
        

      

        loop

            if Drop = 1 then
                Sprite.Animate (Dropspr, aek, 519, 328, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            if Drop = 2 then
                Sprite.Animate (Dropspr, axe, 531, 328, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            if Drop = 3 then
                Sprite.Animate (Dropspr, FN57, 527, 328, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            if Drop = 4 then
                Sprite.Animate (Dropspr, gol, 520, 328, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            if Drop = 5 then
                Sprite.Animate (Dropspr, kolibri, 538, 328, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            if Drop = 6 then
                Sprite.Animate (Dropspr, lsat, 519, 328, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            if Drop = 7 then
                Sprite.Animate (Dropspr, model10, 553, 328, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            if Drop = 8 then
                Sprite.Animate (Dropspr, MP18, 530, 328, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            if Drop = 9 then
                Sprite.Animate (Dropspr, mtar, 543, 329, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            if Drop = 10 then
                Sprite.Animate (Dropspr, russian, 517, 328, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            if Drop = 11 then
                Sprite.Animate (Dropspr, sar, 543, 328, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            if Drop = 12 then
                Sprite.Animate (Dropspr, shovel, 536, 333, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            
             if Drop = 13 then
                Sprite.Animate (Dropspr, smle, 536, 333, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            
             if Drop = 14 then
                Sprite.Animate (Dropspr, club, 536, 333, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            
             if Drop = 15 then
                Sprite.Animate (Dropspr, type88, 536, 333, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if
            
             if Drop = 16 then
                Sprite.Animate (Dropspr, ump, 536, 333, false)
                Sprite.SetHeight (Dropspr, 2)
                Sprite.Show (Dropspr)
            end if

            delay (4000)

            exit
        end loop
    end if





end loop