Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Re-Creation of the Pirates of the Caribbean minigame that was in VMK.
- 'All images and sounds are trademarks of Disney.
- prompt "enter your os 626/632"; os
- nomainwin
- [initiate]
- dim loadImage$(8)
- loadImage$(1) = "Pirates (Default)"
- loadImage$(2) = "VMK Items"
- loadImage$(3) = "VMK Cards"
- loadImage$(4) = "Fantasyland Castle"
- loadImage$(5) = "Fantasyland Dark Rides"
- loadImage$(6) = "Happy Holidays"
- loadImage$(7) = "Happy Halloween"
- loadImage$(8) = "Farewell VMK"
- dim lobbyAudio$(3)
- lobbyAudio$(1) = "Pirates Lobby (Default)"
- lobbyAudio$(2) = "Treasure Room"
- lobbyAudio$(3) = "Pirate Treehouse"
- lobbyFrame = 1 'sets what frame the lobby background is set at
- instructPage = 1 'sets at what intruction page will show first
- open "data\settings.potc" for input as #check
- DefaultDir$ = DefaultDir$ + "\resource\"
- input #check, checkLoad$
- if checkLoad$ = "" then loadbmp "load", "load.bmp" 'loads loading background
- if checkLoad$ = "Pirates (Default)" then loadbmp "load", "load.bmp"
- if checkLoad$ = "VMK Cards" then loadbmp "load", "loadcards.bmp"
- if checkLoad$ = "VMK Items" then loadbmp "load", "loaditems.bmp"
- if checkLoad$ = "Fantasyland Castle" then loadbmp "load", "loadcastle.bmp"
- if checkLoad$ = "Fantasyland Dark Rides" then loadbmp "load", "loadpeter.bmp"
- if checkLoad$ = "Happy Holidays" then loadbmp "load", "loadholiday.bmp"
- if checkLoad$ = "Happy Halloween" then loadbmp "load", "loadhalloween.bmp"
- if checkLoad$ = "Farewell VMK" then loadbmp "load", "loadbye.bmp"
- input #check, checkAudio$
- close #check
- loadbmp "bar", "bar.bmp" 'loads loading bar
- WindowWidth = 806 'sets window width
- WindowHeight = os 'sets window height
- 'vista is 626 height
- 'xp is 632 height
- UpperLeftX = (DisplayWidth-WindowWidth)/2 'sets position to middle of screen
- UpperLeftY = (DisplayHeight-WindowHeight)/2 'sets position to middle of screen
- GameWide = 800 'sets game screen width
- GameHigh = 600 'sets game screen height
- graphicbox #main.graph, 0, 0, GameWide, GameHigh
- open "Pirates of the Caribbean Game Lobby" for window_nf as #main
- print #main.graph, "cls" 'clears screen
- print #main.graph, "drawbmp load 0 0 ; flush" 'draws background
- print #main, "font ms_sans_serif 0 16"
- print #main, "trapclose [quit]"
- gosub [loadbmps] 'loads up all the images used in the game
- gosub [addspriteslobby] 'adds some of the sprites in the lobby
- if checkAudio$ = "" then playwave "resource\lobby.wav", loop
- if checkAudio$ = "" then currentAudio$ = "Pirates Lobby (Default)"
- if checkAudio$ = "Pirates Lobby (Default)" then playwave "resource\lobby.wav", loop ' plays the background music
- if checkAudio$ = "Pirates Lobby (Default)" then currentAudio$ = "Pirates Lobby (Default)"
- if checkAudio$ = "Treasure Room" then playwave "resource\alternatelobby.wav", loop
- if checkAudio$ = "Treasure Room" then currentAudio$ = "Treasure Room"
- if checkAudio$ = "Pirate Treehouse" then playwave "resource\alternatelobby2.wav", loop
- if checkAudio$ = "Pirate Treehouse" then currentAudio$ = "Pirate Treehouse"
- print #main.graph, "cls" 'clears screen when everything is loaded
- goto [lobby]
- [lobby]
- print #main.graph, "drawsprites" 'draws the images on screen
- print #main.graph, "when leftButtonDown [lobbyClick]" 'sets an event when the mouse is clicked
- 'print #main.graph, "when mouseMove [spriteLocate]"
- timer 200, [changeLobby] 'will change the lobby every 200 milliseconds
- wait
- [changeLobby]
- if lobbyFrame = 1 then
- print #main.graph, "background lobby2"
- lobbyFrame = 2
- goto [lobby]
- end if
- if lobbyFrame = 2 then
- print #main.graph, "background lobby3"
- lobbyFrame = 3
- goto [lobby]
- end if
- if lobbyFrame = 3 then
- print #main.graph, "background lobby4"
- lobbyFrame = 4
- goto [lobby]
- end if
- if lobbyFrame = 4 then
- print #main.graph, "background lobby1"
- lobbyFrame = 1
- goto [lobby]
- end if
- [lobbyClick]
- 'notice "" + str$(MouseX) + " " + str$(MouseY) + ""
- print #main.graph, "spritexy void "; MouseX; " "; MouseY
- print #main.graph, "spritecollides void lobbyList$"
- 'notice lobbyList$
- if lobbyList$ = "startgame" then gosub [startGame]
- if lobbyList$ = "instructions" then gosub [instructions]
- if "instructexit instructions1 instructions2 instructions3 instructions4 instructions5" = lobbyList$ then gosub [removeinstructions]
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 instructarrow" then gosub [nextInstruct]
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 instructback" then gosub [instructBack]
- if lobbyList$ = "pricetoplay pricetoplayok" then gosub [chooseGame]
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplayok" then gosub [chooseGame]
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplaycancel" then gosub [cancelGame]
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 choosegamecancel selectgame" then gosub [cancelChooseGame]
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 choosegamex selectgame" then gosub [cancelChooseGame]
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplayok levelerror levelerrorbutton" then print #main.graph, "removesprite levelerror ; removesprite levelerrorbutton ; drawsprites"
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay levelerror levelerrorbutton" then print #main.graph, "removesprite levelerror ; removesprite levelerrorbutton ; drawsprites"
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplaycancel levelerror levelerrorbutton" then print #main.graph, "removesprite levelerror ; removesprite levelerrorbutton ; drawsprites"
- if lobbyList$ = "selectgame level1button" then
- print #main.graph, "spritexy gameselector 207 319 ; spritevisible gameselector on"
- level = 1
- end if
- if lobbyList$ = "pricetoplay pricetoplayok selectgame level1button" then
- print #main.graph, "spritexy gameselector 207 319 ; spritevisible gameselector on ; drawsprites"
- level = 1
- end if
- if lobbyList$ = "pricetoplay selectgame level1button" then
- print #main.graph, "spritexy gameselector 207 319 ; spritevisible gameselector on ; drawsprites"
- level = 1
- end if
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplayok selectgame level2button" then
- print #main.graph, "spritexy gameselector 339 319 ; spritevisible gameselector on ; drawsprites"
- level = 2
- end if
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay selectgame level2button" then
- print #main.graph, "spritexy gameselector 339 319 ; spritevisible gameselector on ; drawsprites"
- level = 2
- end if
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplaycancel selectgame level2button" then
- print #main.graph, "spritexy gameselector 339 319 ; spritevisible gameselector on ; drawsprites"
- level = 2
- end if
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplaycancel selectgame level3button" then
- print #main.graph, "spritexy gameselector 470 319 ; spritevisible gameselector on ; drawsprites"
- level = 3
- end if
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay selectgame level3button" then
- print #main.graph, "spritexy gameselector 470 319 ; spritevisible gameselector on ; drawsprites"
- level = 3
- end if
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 selectgame level3button" then
- print #main.graph, "spritexy gameselector 470 319 ; spritevisible gameselector on ; drawsprites"
- level = 3
- end if
- if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 selectgame creategamebutton" then
- print #main.graph, "removesprite choosegamex ; removesprite choosegamecancel ; removesprite selectgame ; removesprite level1button"
- print #main.graph, "removesprite level2button ; removesprite level3button ; removesprite gameselector ; removesprite creategamebutton"
- print #main.graph, "drawsprites"
- gosub [chooseShip]
- end if
- if lobbyList$ = "settings" then gosub [settings]
- wait
- [settings]
- nomainwin
- WindowWidth = 392
- WindowHeight = 525
- groupbox #settings.groupbox10, "About RePirates", 6, 286, 376, 210
- statictext #settings.statictext17, "Disney Company. All trademarks are properties", 14, 446, 288, 20
- groupbox #settings.groupbox1, "Loading Image", 6, 6, 376, 135
- listbox #settings.listbox2, loadImage$(, [loadChoose], 14, 26, 208, 100
- graphicbox #settings.graph, 238, 26, 133, 100
- groupbox #settings.groupbox4, "Lobby Audio", 6, 146, 224, 135
- listbox #settings.listbox5, lobbyAudio$(, [audioChoose], 14, 166, 208, 100
- button #settings.button7, "Save Settings", [saveSettings], UL, 238, 151, 144, 60
- button #settings.button8, "Cancel", [settingsclose], UL, 238, 216, 144, 60
- statictext #settings.statictext11, "RePirates is a recreation of the Pirates", 14, 306, 256, 20
- statictext #settings.statictext12, "of the Caribbean game from VMK written", 14, 326, 256, 20
- statictext #settings.statictext14, "by sandwich_boy. It is free to use and share.", 14, 346, 264, 20
- statictext #settings.statictext15, "Disclaimer:", 14, 406, 88, 20
- statictext #settings.statictext16, "All Images and sounds are property of the", 14, 426, 256, 20
- statictext #settings.statictext18, "of their respective holders. It is strictly fan based.", 14, 466, 288, 20
- graphicbox #settings.graph2, 302, 296, 72, 190
- open "RePirates Settings" for dialog_nf_modal as #settings
- print #settings.listbox2, "singleclickselect [loadChoose]"
- print #settings.listbox5, "singleclickselect [audioChoose]"
- print #settings.graph, "cls"
- print #settings.graph, "cls"
- print #settings.graph, "drawbmp loadthmb ; flush"
- print #settings.graph2, "drawbmp me ; flush"
- print #settings, "font ms_sans_serif 0 16"
- print #settings, "trapclose [settingsclose]"
- print #settings.listbox2, "select "; checkLoad$
- print #settings.listbox5, "select "; checkAudio$
- wait
- [saveSettings]
- open "..\data\settings.potc" for output as #save
- print #save, loadImage$
- print #save, audioChoose$
- close #save
- if currentAudio$ <> audioChoose$ then
- if audioChoose$ = "Pirates Lobby (Default)" then playwave "resource\lobby.wav", loop
- if audioChoose$ = "Treasure Room" then playwave "resource\alternatelobby.wav", loop
- if audioChoose$ = "Pirate Treehouse" then playwave "resource\alternatelobby2.wav", loop
- end if
- close #settings
- wait
- [loadChoose]
- print #settings.listbox2, "selection?"
- input #settings.listbox2, loadImage$
- if loadImage$ = "Pirates (Default)" then print #settings.graph, "drawbmp loadthmb ; flush"
- if loadImage$ = "VMK Items" then print #settings.graph, "drawbmp loaditemsthmb ; flush"
- if loadImage$ = "Fantasyland Castle" then print #settings.graph, "drawbmp loadcastlethmb ; flush"
- if loadImage$ = "Happy Holidays" then print #settings.graph, "drawbmp loadholidaythmb ; flush"
- if loadImage$ = "VMK Cards" then print #settings.graph, "drawbmp loadcardsthmb ; flush"
- if loadImage$ = "Fantasyland Dark Rides" then print #settings.graph, "drawbmp loadpeterthmb ; flush"
- if loadImage$ = "Happy Halloween" then print #settings.graph, "drawbmp loadhalloweenthmb ; flush"
- if loadImage$ = "Farewell VMK" then print #settings.graph, "drawbmp loadbyethmb ; flush"
- wait
- [audioChoose]
- print #settings.listbox5, "selection?"
- input #settings.listbox5, audioChoose$
- wait
- [settingsclose]
- close #settings
- print #main.graph, "drawsprites"
- wait
- [startGame]
- print #main.graph, "spritevisible pricetoplay on"
- print #main.graph, "drawsprites"
- wait
- [chooseGame]
- print #main.graph, "spritevisible pricetoplay off"
- print #main.graph, "addsprite choosegamex instructexit ; spritexy choosegamex 587 140 ; spritevisible choosegamex off"
- print #main.graph, "addsprite choosegamecancel stdbutton ; spritexy choosegamecancel 526 428 ; spritevisible choosegamecancel off"
- print #main.graph, "addsprite selectgame selectgame ; spritexy selectgame 179 127"
- print #main.graph, "addsprite level1button levelbutton ; spritexy level1button 212 324"
- print #main.graph, "addsprite level2button levelbutton ; spritexy level2button 344 324"
- print #main.graph, "addsprite level3button levelbutton ; spritexy level3button 475 324"
- print #main.graph, "addsprite gameselector gameselector ; spritevisible gameselector off"
- print #main.graph, "addsprite creategamebutton instructions ; spritexy creategamebutton 393 420 ; spritevisible creategamebutton off"
- wait
- [chooseShip]
- if level = 0 then goto [levelError]
- print #main.graph, "addsprite shipselect shipselect ; spritexy shipselect 220 144 ; addsprite shipselector shipselector ; spritevisible shipselector off"
- print #main.graph, "drawsprites"
- wait
- [levelError]
- print #main.graph, "addsprite levelerror levelerror ; spritexy levelerror 280 216"
- print #main.graph, "addsprite levelerrorbutton stdbutton ; spritexy levelerrorbutton 357 351 ; spritevisible levelerrorbutton off"
- print #main.graph, "drawsprites"
- wait
- [cancelChooseGame]
- level = 0
- print #main.graph, "removesprite choosegamex ; removesprite choosegamecancel ; removesprite selectgame ; removesprite level1button"
- print #main.graph, "removesprite level2button ; removesprite level3button ; removesprite gameselector"
- print #main.graph, "drawsprites"
- wait
- [cancelGame]
- print #main.graph, "spritevisible pricetoplay off"
- print #main.graph, "drawsprites"
- wait
- [instructions]
- print #main.graph, "spritevisible instructexit on"
- print #main.graph, "spritevisible instructions1 on"
- print #main.graph, "spritevisible instructarrow off"
- print #main.graph, "drawsprites"
- wait
- [nextInstruct]
- if instructPage = 1 then
- print #main.graph, "spritevisible instructions1 off ; spritevisible instructions2 on"
- instructPage = 2
- print #main.graph, "drawsprites"
- return
- end if
- if instructPage = 2 then
- print #main.graph, "spritevisible instructions2 off ; spritevisible instructions3 on"
- instructPage = 3
- print #main.graph, "drawsprites"
- return
- end if
- if instructPage = 3 then
- print #main.graph, "spritevisible instructions3 off ; spritevisible instructions4 on"
- instructPage = 4
- print #main.graph, "drawsprites"
- return
- end if
- if instructPage = 4 then
- print #main.graph, "spritevisible instructions4 off ; spritevisible instructions5 on"
- instructPage = 5
- print #main.graph, "drawsprites"
- return
- end if
- [instructBack]
- if instructPage = 5 then
- print #main.graph, "spritevisible instructions5 off ; spritevisible instructions4 on"
- instructPage = 4
- print #main.graph, "drawsprites"
- return
- end if
- if instructPage = 4 then
- print #main.graph, "spritevisible instructions4 off ; spritevisible instructions3 on"
- instructPage = 3
- print #main.graph, "drawsprites"
- return
- end if
- if instructPage = 3 then
- print #main.graph, "spritevisible instructions3 off ; spritevisible instructions2 on"
- instructPage = 2
- print #main.graph, "drawsprites"
- return
- end if
- if instructPage = 2 then
- print #main.graph, "spritevisible instructions2 off ; spritevisible instructions1 on"
- instructPage = 1
- print #main.graph, "drawsprites"
- return
- end if
- [removeinstructions]
- instructPage = 1
- print #main.graph, "spritevisible instructarrow off"
- print #main.graph, "spritevisible instructexit off"
- print #main.graph, "spritevisible instructions1 off ; spritevisible instructions2 off ; spritevisible instructions3 off ; spritevisible instructions4 off ; spritevisible instructions5 off"
- print #main.graph, "drawsprites"
- return
- [main.inputLoop] 'wait here for input event
- wait
- [loadbmps] 'barload starts at 302 280 and increments by 4
- wide = 302
- loadbmp "instructarrow", "instructarrow.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "instructions", "instructions.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "cursor", "cursor.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "void", "void.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "lobby1", "lobby1.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "instructexit", "instructexit.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "instructions2", "instructions2.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "instructions3", "instructions3.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "instructions4", "instructions4.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "instructions5", "instructions5.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "lobby2", "lobby2.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "lobby3", "lobby3.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "instructions1", "instructions1.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "lobby4", "lobby4.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "pricetoplay", "pricetoplay.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide +4
- loadbmp "stdbutton", "stdbutton.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "selectgame", "selectgame.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "gameselector", "gameselector.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "levelbutton", "levelbutton.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "shipselect", "shipselect.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "levelerror", "levelerror.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "me", "me.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "loadthmb", "loadthmb.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "loaditemsthmb", "loaditemsthmb.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "loadholidaythmb", "loadholidaythmb.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "loadcastlethmb", "loadcastlethmb.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "loadbyethmb", "loadbyethmb.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "loadcardsthmb", "loadcardsthmb.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "loadhalloweenthmb", "loadhalloweenthmb.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "loadpeterthmb", "loadpeterthmb.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- loadbmp "shipselector", "shipselector.bmp"
- print #main.graph, "drawbmp bar " + str$(wide) + " 280"
- wide = wide + 4
- return
- [addspriteslobby]
- print #main.graph, "background lobby1";
- print #main.graph, "addsprite startgame instructions ; spritexy startgame 52 446 ; spritevisible startgame off"
- print #main.graph, "addsprite instructions instructions ; spritexy instructions 53 478 ; spritevisible instructions off"
- print #main.graph, "addsprite instructexit instructexit ; spritexy instructexit 760 24 ; spritevisible instructexit off"
- print #main.graph, "addsprite instructions1 instructions1 ; spritexy instructions1 350 10 ; spritevisible instructions1 off"
- print #main.graph, "addsprite instructions2 instructions2 ; spritexy instructions2 350 10 ; spritevisible instructions2 off"
- print #main.graph, "addsprite instructions3 instructions3 ; spritexy instructions3 350 10 ; spritevisible instructions3 off"
- print #main.graph, "addsprite instructions4 instructions4 ; spritexy instructions4 350 10 ; spritevisible instructions4 off"
- print #main.graph, "addsprite instructions5 instructions5 ; spritexy instructions5 350 10 ; spritevisible instructions5 off"
- print #main.graph, "addsprite void void ; spritexy void 400 500"
- print #main.graph, "addsprite instructarrow instructarrow ; spritexy instructarrow 730 498 ; spritevisible instructarrow off"
- print #main.graph, "addsprite instructback instructarrow ; spriteorient instructback mirror ; spritevisible instructback off ; spritexy instructback 395 498"
- print #main.graph, "addsprite pricetoplay pricetoplay ; spritexy pricetoplay 280 216 ; spritevisible pricetoplay off"
- print #main.graph, "addsprite pricetoplayok stdbutton ; spritexy pricetoplayok 292 351 ; spritevisible pricetoplayok off"
- print #main.graph, "addsprite pricetoplaycancel stdbutton ; spritexy pricetoplaycancel 419 351 ; spritevisible pricetoplaycancel off"
- print #main.graph, "addsprite settings instructions ; spritexy settings 55 510 ; spritevisible settings on"
- 'print #main.graph, "addsprite settings instructions"
- return
- [quit]
- close #main
- unloadbmp "instructions"
- unloadbmp "bar"
- unloadbmp "load"
- unloadbmp "cursor"
- unloadbmp "lobby1"
- unloadbmp "lobby2"
- unloadbmp "lobby3"
- unloadbmp "lobby4"
- unloadbmp "void"
- unloadbmp "instructions1"
- unloadbmp "instructions2"
- unloadbmp "instructions3"
- unloadbmp "instructions4"
- unloadbmp "instructions5"
- unloadbmp "instructarrow"
- unloadbmp "instructexit"
- unloadbmp "pricetoplay"
- unloadbmp "stdbutton"
- unloadbmp "selectgame"
- unloadbmp "gameselector"
- unloadbmp "levelbutton"
- unloadbmp "shipselect"
- unloadbmp "levelerror"
- unloadbmp "me"
- unloadbmp "loadthmb"
- unloadbmp "loadholidaythmb"
- unloadbmp "loaditemsthmb"
- unloadbmp "loadcastlethmb"
- unloadbmp "loadbyethmb"
- unloadbmp "loadcardsthmb"
- unloadbmp "loadhalloweenthmb"
- unloadbmp "loadpeterthmb"
- unloadbmp "shipselector"
- playwave ""
- end
- [spriteLocate]
- print #main.graph, "spritexy settings "; MouseX; " "; MouseY
- print #main.graph, "drawsprites"
- wait
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement