Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Need Help
Index -> General Programming
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
GhostsGamerCod




PostPosted: Sun Mar 26, 2017 3:35 pm   Post subject: 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
Sponsor
Sponsor
Sponsor
sponsor
Display posts from previous:   
   Index -> General Programming
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 1 Posts ]
Jump to:   


Style:  
Search: