SHARE
TWEET

Untitled

a guest Sep 21st, 2017 208 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Re-Creation of the Pirates of the Caribbean minigame that was in VMK.
  2. 'All images and sounds are trademarks of Disney.
  3. prompt "enter your os 626/632"; os
  4. nomainwin
  5. [initiate]
  6.     dim loadImage$(8)
  7.     loadImage$(1) = "Pirates (Default)"
  8.     loadImage$(2) = "VMK Items"
  9.     loadImage$(3) = "VMK Cards"
  10.     loadImage$(4) = "Fantasyland Castle"
  11.     loadImage$(5) = "Fantasyland Dark Rides"
  12.     loadImage$(6) = "Happy Holidays"
  13.     loadImage$(7) = "Happy Halloween"
  14.     loadImage$(8) = "Farewell VMK"
  15.  
  16.     dim lobbyAudio$(3)
  17.     lobbyAudio$(1) = "Pirates Lobby (Default)"
  18.     lobbyAudio$(2) = "Treasure Room"
  19.     lobbyAudio$(3) = "Pirate Treehouse"
  20.  
  21.     lobbyFrame = 1 'sets what frame the lobby background is set at
  22.     instructPage = 1 'sets at what intruction page will show first
  23.     open "data\settings.potc" for input as #check
  24.     DefaultDir$ = DefaultDir$ + "\resource\"
  25.     input #check, checkLoad$
  26.     if checkLoad$ = "" then loadbmp "load", "load.bmp" 'loads loading background
  27.     if checkLoad$ = "Pirates (Default)" then loadbmp "load", "load.bmp"
  28.     if checkLoad$ = "VMK Cards" then loadbmp "load", "loadcards.bmp"
  29.     if checkLoad$ = "VMK Items" then loadbmp "load", "loaditems.bmp"
  30.     if checkLoad$ = "Fantasyland Castle" then loadbmp "load", "loadcastle.bmp"
  31.     if checkLoad$ = "Fantasyland Dark Rides" then loadbmp "load", "loadpeter.bmp"
  32.     if checkLoad$ = "Happy Holidays" then loadbmp "load", "loadholiday.bmp"
  33.     if checkLoad$ = "Happy Halloween" then loadbmp "load", "loadhalloween.bmp"
  34.     if checkLoad$ = "Farewell VMK" then loadbmp "load", "loadbye.bmp"
  35.     input #check, checkAudio$
  36.     close #check
  37.     loadbmp "bar", "bar.bmp" 'loads loading bar
  38.  
  39.     WindowWidth = 806 'sets window width
  40.     WindowHeight = os 'sets window height
  41.     'vista is 626 height
  42.     'xp is 632 height
  43.  
  44.     UpperLeftX = (DisplayWidth-WindowWidth)/2 'sets position to middle of screen
  45.     UpperLeftY = (DisplayHeight-WindowHeight)/2 'sets position to middle of screen
  46.  
  47.     GameWide = 800 'sets game screen width
  48.     GameHigh = 600 'sets game screen height
  49.  
  50.     graphicbox #main.graph, 0, 0, GameWide, GameHigh
  51.     open "Pirates of the Caribbean Game Lobby" for window_nf as #main
  52.     print #main.graph, "cls" 'clears screen
  53.     print #main.graph, "drawbmp load 0 0 ; flush" 'draws background
  54.     print #main, "font ms_sans_serif 0 16"
  55.     print #main, "trapclose [quit]"
  56.     gosub [loadbmps] 'loads up all the images used in the game
  57.     gosub [addspriteslobby] 'adds some of the sprites in the lobby
  58.     if checkAudio$ = "" then playwave "resource\lobby.wav", loop
  59.     if checkAudio$ = "" then currentAudio$ = "Pirates Lobby (Default)"
  60.     if checkAudio$ = "Pirates Lobby (Default)" then playwave "resource\lobby.wav", loop ' plays the background music
  61.     if checkAudio$ = "Pirates Lobby (Default)" then currentAudio$ = "Pirates Lobby (Default)"
  62.     if checkAudio$ = "Treasure Room" then playwave "resource\alternatelobby.wav", loop
  63.     if checkAudio$ = "Treasure Room" then currentAudio$ = "Treasure Room"
  64.     if checkAudio$ = "Pirate Treehouse" then playwave "resource\alternatelobby2.wav", loop
  65.     if checkAudio$ = "Pirate Treehouse" then currentAudio$ = "Pirate Treehouse"
  66.     print #main.graph, "cls" 'clears screen when everything is loaded
  67.     goto [lobby]
  68. [lobby]
  69.     print #main.graph, "drawsprites" 'draws the images on screen
  70.     print #main.graph, "when leftButtonDown [lobbyClick]" 'sets an event when the mouse is clicked
  71.     'print #main.graph, "when mouseMove [spriteLocate]"
  72.     timer 200, [changeLobby] 'will change the lobby every 200 milliseconds
  73.     wait
  74.  
  75. [changeLobby]
  76.     if lobbyFrame = 1 then
  77.         print #main.graph, "background lobby2"
  78.         lobbyFrame = 2
  79.         goto [lobby]
  80.     end if
  81.     if lobbyFrame = 2 then
  82.         print #main.graph, "background lobby3"
  83.         lobbyFrame = 3
  84.         goto [lobby]
  85.     end if
  86.     if lobbyFrame = 3 then
  87.         print #main.graph, "background lobby4"
  88.         lobbyFrame = 4
  89.         goto [lobby]
  90.     end if
  91.     if lobbyFrame = 4 then
  92.         print #main.graph, "background lobby1"
  93.         lobbyFrame = 1
  94.         goto [lobby]
  95.     end if
  96.  
  97. [lobbyClick]
  98.     'notice "" + str$(MouseX) + " " + str$(MouseY) + ""
  99.     print #main.graph, "spritexy void "; MouseX; " "; MouseY
  100.     print #main.graph, "spritecollides void lobbyList$"
  101.     'notice lobbyList$
  102.     if lobbyList$ = "startgame" then gosub [startGame]
  103.     if lobbyList$ = "instructions" then gosub [instructions]
  104.     if "instructexit instructions1 instructions2 instructions3 instructions4 instructions5" = lobbyList$  then gosub [removeinstructions]
  105.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 instructarrow" then gosub [nextInstruct]
  106.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 instructback" then gosub [instructBack]
  107.     if lobbyList$ = "pricetoplay pricetoplayok" then gosub [chooseGame]
  108.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplayok" then gosub [chooseGame]
  109.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplaycancel" then gosub [cancelGame]
  110.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 choosegamecancel selectgame" then gosub [cancelChooseGame]
  111.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 choosegamex selectgame" then gosub [cancelChooseGame]
  112.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplayok levelerror levelerrorbutton" then print #main.graph, "removesprite levelerror ; removesprite levelerrorbutton ; drawsprites"
  113.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay levelerror levelerrorbutton" then print #main.graph, "removesprite levelerror ; removesprite levelerrorbutton ; drawsprites"
  114.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplaycancel levelerror levelerrorbutton" then print #main.graph, "removesprite levelerror ; removesprite levelerrorbutton ; drawsprites"
  115.     if lobbyList$ = "selectgame level1button" then
  116.         print #main.graph, "spritexy gameselector 207 319 ; spritevisible gameselector on"
  117.         level = 1
  118.     end if
  119.     if lobbyList$ = "pricetoplay pricetoplayok selectgame level1button" then
  120.         print #main.graph, "spritexy gameselector 207 319 ; spritevisible gameselector on ; drawsprites"
  121.         level = 1
  122.     end if
  123.     if lobbyList$ = "pricetoplay selectgame level1button" then
  124.         print #main.graph, "spritexy gameselector 207 319 ; spritevisible gameselector on ; drawsprites"
  125.         level = 1
  126.     end if
  127.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplayok selectgame level2button" then
  128.         print #main.graph, "spritexy gameselector 339 319 ; spritevisible gameselector on ; drawsprites"
  129.         level = 2
  130.     end if
  131.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay selectgame level2button" then
  132.         print #main.graph, "spritexy gameselector 339 319 ; spritevisible gameselector on ; drawsprites"
  133.         level = 2
  134.     end if
  135.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplaycancel selectgame level2button" then
  136.         print #main.graph, "spritexy gameselector 339 319 ; spritevisible gameselector on ; drawsprites"
  137.         level = 2
  138.     end if
  139.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay pricetoplaycancel selectgame level3button" then
  140.         print #main.graph, "spritexy gameselector 470 319 ; spritevisible gameselector on ; drawsprites"
  141.         level = 3
  142.     end if
  143.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 pricetoplay selectgame level3button" then
  144.         print #main.graph, "spritexy gameselector 470 319 ; spritevisible gameselector on ; drawsprites"
  145.         level = 3
  146.     end if
  147.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 selectgame level3button" then
  148.         print #main.graph, "spritexy gameselector 470 319 ; spritevisible gameselector on ; drawsprites"
  149.         level = 3
  150.     end if
  151.  
  152.     if lobbyList$ = "instructions1 instructions2 instructions3 instructions4 instructions5 selectgame creategamebutton" then
  153.         print #main.graph, "removesprite choosegamex ; removesprite choosegamecancel ; removesprite selectgame ; removesprite level1button"
  154.         print #main.graph, "removesprite level2button ; removesprite level3button ; removesprite gameselector ; removesprite creategamebutton"
  155.         print #main.graph, "drawsprites"
  156.         gosub [chooseShip]
  157.     end if
  158.     if lobbyList$ = "settings" then gosub [settings]
  159.     wait
  160.  
  161. [settings]
  162.  
  163.     nomainwin
  164.  
  165.     WindowWidth = 392
  166.     WindowHeight = 525
  167.  
  168.     groupbox #settings.groupbox10, "About RePirates", 6, 286, 376, 210
  169.     statictext #settings.statictext17, "Disney Company. All trademarks are properties", 14, 446, 288, 20
  170.     groupbox #settings.groupbox1, "Loading Image", 6, 6, 376, 135
  171.     listbox #settings.listbox2, loadImage$(, [loadChoose], 14, 26, 208, 100
  172.     graphicbox #settings.graph, 238, 26, 133, 100
  173.     groupbox #settings.groupbox4, "Lobby Audio", 6, 146, 224, 135
  174.     listbox #settings.listbox5, lobbyAudio$(, [audioChoose], 14, 166, 208, 100
  175.     button #settings.button7, "Save Settings", [saveSettings], UL, 238, 151, 144, 60
  176.     button #settings.button8, "Cancel", [settingsclose], UL, 238, 216, 144, 60
  177.     statictext #settings.statictext11, "RePirates is a recreation of the Pirates", 14, 306, 256, 20
  178.     statictext #settings.statictext12, "of the Caribbean game from VMK written", 14, 326, 256, 20
  179.     statictext #settings.statictext14, "by sandwich_boy. It is free to use and share.", 14, 346, 264, 20
  180.     statictext #settings.statictext15, "Disclaimer:", 14, 406, 88, 20
  181.     statictext #settings.statictext16, "All Images and sounds are property of the", 14, 426, 256, 20
  182.     statictext #settings.statictext18, "of their respective holders. It is strictly fan based.", 14, 466, 288, 20
  183.     graphicbox #settings.graph2, 302, 296, 72, 190
  184.     open "RePirates Settings" for dialog_nf_modal as #settings
  185.     print #settings.listbox2, "singleclickselect [loadChoose]"
  186.     print #settings.listbox5, "singleclickselect [audioChoose]"
  187.     print #settings.graph, "cls"
  188.     print #settings.graph, "cls"
  189.     print #settings.graph, "drawbmp loadthmb ; flush"
  190.     print #settings.graph2, "drawbmp me ; flush"
  191.     print #settings, "font ms_sans_serif 0 16"
  192.     print #settings, "trapclose [settingsclose]"
  193.     print #settings.listbox2, "select "; checkLoad$
  194.     print #settings.listbox5, "select "; checkAudio$
  195.     wait
  196.  
  197. [saveSettings]
  198.     open "..\data\settings.potc" for output as #save
  199.     print #save, loadImage$
  200.     print #save, audioChoose$
  201.     close #save
  202.     if currentAudio$ <> audioChoose$ then
  203.         if audioChoose$ = "Pirates Lobby (Default)" then playwave "resource\lobby.wav", loop
  204.         if audioChoose$ = "Treasure Room" then playwave "resource\alternatelobby.wav", loop
  205.         if audioChoose$ = "Pirate Treehouse" then playwave "resource\alternatelobby2.wav", loop
  206.     end if
  207.     close #settings
  208.     wait
  209.  
  210.  
  211. [loadChoose]
  212.     print #settings.listbox2, "selection?"
  213.     input #settings.listbox2, loadImage$
  214.     if loadImage$ = "Pirates (Default)" then print #settings.graph, "drawbmp loadthmb ; flush"
  215.     if loadImage$ = "VMK Items" then print #settings.graph, "drawbmp loaditemsthmb ; flush"
  216.     if loadImage$ = "Fantasyland Castle" then print #settings.graph, "drawbmp loadcastlethmb ; flush"
  217.     if loadImage$ = "Happy Holidays" then print #settings.graph, "drawbmp loadholidaythmb ; flush"
  218.     if loadImage$ = "VMK Cards" then print #settings.graph, "drawbmp loadcardsthmb ; flush"
  219.     if loadImage$ = "Fantasyland Dark Rides" then print #settings.graph, "drawbmp loadpeterthmb ; flush"
  220.     if loadImage$ = "Happy Halloween" then print #settings.graph, "drawbmp loadhalloweenthmb ; flush"
  221.     if loadImage$ = "Farewell VMK" then print #settings.graph, "drawbmp loadbyethmb ; flush"
  222.     wait
  223.  
  224. [audioChoose]
  225.     print #settings.listbox5, "selection?"
  226.     input #settings.listbox5, audioChoose$
  227.     wait
  228.  
  229. [settingsclose]
  230.     close #settings
  231.     print #main.graph, "drawsprites"
  232.     wait
  233.  
  234. [startGame]
  235.     print #main.graph, "spritevisible pricetoplay on"
  236.     print #main.graph, "drawsprites"
  237.     wait
  238.  
  239. [chooseGame]
  240.     print #main.graph, "spritevisible pricetoplay off"
  241.     print #main.graph, "addsprite choosegamex instructexit ; spritexy choosegamex 587 140 ; spritevisible choosegamex off"
  242.     print #main.graph, "addsprite choosegamecancel stdbutton ; spritexy choosegamecancel 526 428 ; spritevisible choosegamecancel off"
  243.     print #main.graph, "addsprite selectgame selectgame ; spritexy selectgame 179 127"
  244.     print #main.graph, "addsprite level1button levelbutton ; spritexy level1button 212 324"
  245.     print #main.graph, "addsprite level2button levelbutton ; spritexy level2button 344 324"
  246.     print #main.graph, "addsprite level3button levelbutton ; spritexy level3button 475 324"
  247.     print #main.graph, "addsprite gameselector gameselector ; spritevisible gameselector off"
  248.     print #main.graph, "addsprite creategamebutton instructions ; spritexy creategamebutton 393 420 ; spritevisible creategamebutton off"
  249.     wait
  250.  
  251. [chooseShip]
  252.     if level = 0 then goto [levelError]
  253.     print #main.graph, "addsprite shipselect shipselect ; spritexy shipselect 220 144 ; addsprite shipselector shipselector ; spritevisible shipselector off"
  254.     print #main.graph, "drawsprites"
  255.     wait
  256. [levelError]
  257.     print #main.graph, "addsprite levelerror levelerror ; spritexy levelerror 280 216"
  258.     print #main.graph, "addsprite levelerrorbutton stdbutton ; spritexy levelerrorbutton 357 351 ; spritevisible levelerrorbutton off"
  259.     print #main.graph, "drawsprites"
  260.     wait
  261.  
  262. [cancelChooseGame]
  263.     level = 0
  264.     print #main.graph, "removesprite choosegamex ; removesprite choosegamecancel ; removesprite selectgame ; removesprite level1button"
  265.     print #main.graph, "removesprite level2button ; removesprite level3button ; removesprite gameselector"
  266.     print #main.graph, "drawsprites"
  267.     wait
  268.  
  269. [cancelGame]
  270.     print #main.graph, "spritevisible pricetoplay off"
  271.     print #main.graph, "drawsprites"
  272.     wait
  273.  
  274.  
  275. [instructions]
  276.     print #main.graph, "spritevisible instructexit on"
  277.     print #main.graph, "spritevisible instructions1 on"
  278.     print #main.graph, "spritevisible instructarrow off"
  279.     print #main.graph, "drawsprites"
  280.     wait
  281. [nextInstruct]
  282.     if instructPage = 1 then
  283.         print #main.graph, "spritevisible instructions1 off ; spritevisible instructions2 on"
  284.         instructPage = 2
  285.         print #main.graph, "drawsprites"
  286.         return
  287.     end if
  288.     if instructPage = 2 then
  289.         print #main.graph, "spritevisible instructions2 off ; spritevisible instructions3 on"
  290.         instructPage = 3
  291.         print #main.graph, "drawsprites"
  292.         return
  293.     end if
  294.     if instructPage = 3 then
  295.         print #main.graph, "spritevisible instructions3 off ; spritevisible instructions4 on"
  296.         instructPage = 4
  297.         print #main.graph, "drawsprites"
  298.         return
  299.     end if
  300.     if instructPage = 4 then
  301.         print #main.graph, "spritevisible instructions4 off ; spritevisible instructions5 on"
  302.         instructPage = 5
  303.         print #main.graph, "drawsprites"
  304.         return
  305.     end if
  306.  
  307. [instructBack]
  308.     if instructPage = 5 then
  309.         print #main.graph, "spritevisible instructions5 off ; spritevisible instructions4 on"
  310.         instructPage = 4
  311.         print #main.graph, "drawsprites"
  312.         return
  313.     end if
  314.     if instructPage = 4 then
  315.         print #main.graph, "spritevisible instructions4 off ; spritevisible instructions3 on"
  316.         instructPage = 3
  317.         print #main.graph, "drawsprites"
  318.         return
  319.     end if
  320.     if instructPage = 3 then
  321.         print #main.graph, "spritevisible instructions3 off ; spritevisible instructions2 on"
  322.         instructPage = 2
  323.         print #main.graph, "drawsprites"
  324.         return
  325.     end if
  326.     if instructPage = 2 then
  327.         print #main.graph, "spritevisible instructions2 off ; spritevisible instructions1 on"
  328.         instructPage = 1
  329.         print #main.graph, "drawsprites"
  330.         return
  331.     end if
  332.  
  333. [removeinstructions]
  334.     instructPage = 1
  335.     print #main.graph, "spritevisible instructarrow off"
  336.     print #main.graph, "spritevisible instructexit off"
  337.     print #main.graph, "spritevisible instructions1 off ; spritevisible instructions2 off ; spritevisible instructions3 off ; spritevisible instructions4 off ; spritevisible instructions5 off"
  338.     print #main.graph, "drawsprites"
  339.     return
  340.  
  341. [main.inputLoop]   'wait here for input event
  342.  
  343.     wait
  344.  
  345. [loadbmps]    'barload starts at 302 280 and increments by 4
  346.     wide = 302
  347.     loadbmp "instructarrow", "instructarrow.bmp"
  348.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  349.     wide = wide + 4
  350.     loadbmp "instructions", "instructions.bmp"
  351.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  352.     wide = wide + 4
  353.     loadbmp "cursor", "cursor.bmp"
  354.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  355.     wide = wide + 4
  356.     loadbmp "void", "void.bmp"
  357.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  358.     wide = wide + 4
  359.     loadbmp "lobby1", "lobby1.bmp"
  360.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  361.     wide = wide + 4
  362.     loadbmp "instructexit", "instructexit.bmp"
  363.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  364.     wide = wide + 4
  365.     loadbmp "instructions2", "instructions2.bmp"
  366.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  367.     wide = wide + 4
  368.     loadbmp "instructions3", "instructions3.bmp"
  369.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  370.     wide = wide + 4
  371.     loadbmp "instructions4", "instructions4.bmp"
  372.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  373.     wide = wide + 4
  374.     loadbmp "instructions5", "instructions5.bmp"
  375.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  376.     wide = wide + 4
  377.     loadbmp "lobby2", "lobby2.bmp"
  378.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  379.     wide = wide + 4
  380.     loadbmp "lobby3", "lobby3.bmp"
  381.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  382.     wide = wide + 4
  383.     loadbmp "instructions1", "instructions1.bmp"
  384.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  385.     wide = wide + 4
  386.     loadbmp "lobby4", "lobby4.bmp"
  387.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  388.     wide = wide + 4
  389.     loadbmp "pricetoplay", "pricetoplay.bmp"
  390.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  391.     wide = wide +4
  392.     loadbmp "stdbutton", "stdbutton.bmp"
  393.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  394.     wide = wide + 4
  395.     loadbmp "selectgame", "selectgame.bmp"
  396.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  397.     wide = wide + 4
  398.     loadbmp "gameselector", "gameselector.bmp"
  399.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  400.     wide = wide + 4
  401.     loadbmp "levelbutton", "levelbutton.bmp"
  402.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  403.     wide = wide + 4
  404.     loadbmp "shipselect", "shipselect.bmp"
  405.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  406.     wide = wide + 4
  407.     loadbmp "levelerror", "levelerror.bmp"
  408.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  409.     wide = wide + 4
  410.     loadbmp "me", "me.bmp"
  411.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  412.     wide = wide + 4
  413.     loadbmp "loadthmb", "loadthmb.bmp"
  414.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  415.     wide = wide + 4
  416.     loadbmp "loaditemsthmb", "loaditemsthmb.bmp"
  417.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  418.     wide = wide + 4
  419.     loadbmp "loadholidaythmb", "loadholidaythmb.bmp"
  420.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  421.     wide = wide + 4
  422.     loadbmp "loadcastlethmb", "loadcastlethmb.bmp"
  423.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  424.     wide = wide + 4
  425.     loadbmp "loadbyethmb", "loadbyethmb.bmp"
  426.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  427.     wide = wide + 4
  428.     loadbmp "loadcardsthmb", "loadcardsthmb.bmp"
  429.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  430.     wide = wide + 4
  431.     loadbmp "loadhalloweenthmb", "loadhalloweenthmb.bmp"
  432.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  433.     wide = wide + 4
  434.     loadbmp "loadpeterthmb", "loadpeterthmb.bmp"
  435.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  436.     wide = wide + 4
  437.     loadbmp "shipselector", "shipselector.bmp"
  438.     print #main.graph, "drawbmp bar " + str$(wide) + " 280"
  439.     wide = wide + 4
  440.     return
  441.  
  442. [addspriteslobby]
  443.     print #main.graph, "background lobby1";
  444.     print #main.graph, "addsprite startgame instructions ; spritexy startgame 52 446 ; spritevisible startgame off"
  445.     print #main.graph, "addsprite instructions instructions ; spritexy instructions 53 478 ; spritevisible instructions off"
  446.     print #main.graph, "addsprite instructexit instructexit ; spritexy instructexit 760 24 ; spritevisible instructexit off"
  447.     print #main.graph, "addsprite instructions1 instructions1 ; spritexy instructions1 350 10 ; spritevisible instructions1 off"
  448.     print #main.graph, "addsprite instructions2 instructions2 ; spritexy instructions2 350 10 ; spritevisible instructions2 off"
  449.     print #main.graph, "addsprite instructions3 instructions3 ; spritexy instructions3 350 10 ; spritevisible instructions3 off"
  450.     print #main.graph, "addsprite instructions4 instructions4 ; spritexy instructions4 350 10 ; spritevisible instructions4 off"
  451.     print #main.graph, "addsprite instructions5 instructions5 ; spritexy instructions5 350 10 ; spritevisible instructions5 off"
  452.     print #main.graph, "addsprite void void ; spritexy void 400 500"
  453.     print #main.graph, "addsprite instructarrow instructarrow ; spritexy instructarrow 730 498 ; spritevisible instructarrow off"
  454.     print #main.graph, "addsprite instructback instructarrow ; spriteorient instructback mirror ; spritevisible instructback off ; spritexy instructback 395 498"
  455.     print #main.graph, "addsprite pricetoplay pricetoplay ; spritexy pricetoplay 280 216 ; spritevisible pricetoplay off"
  456.     print #main.graph, "addsprite pricetoplayok stdbutton ; spritexy pricetoplayok 292 351 ; spritevisible pricetoplayok off"
  457.     print #main.graph, "addsprite pricetoplaycancel stdbutton ; spritexy pricetoplaycancel 419 351 ; spritevisible pricetoplaycancel off"
  458.     print #main.graph, "addsprite settings instructions ; spritexy settings 55 510 ; spritevisible settings on"
  459.     'print #main.graph, "addsprite settings instructions"
  460.  
  461.     return
  462.  
  463.  
  464. [quit]
  465.     close #main
  466.     unloadbmp "instructions"
  467.     unloadbmp "bar"
  468.     unloadbmp "load"
  469.     unloadbmp "cursor"
  470.     unloadbmp "lobby1"
  471.     unloadbmp "lobby2"
  472.     unloadbmp "lobby3"
  473.     unloadbmp "lobby4"
  474.     unloadbmp "void"
  475.     unloadbmp "instructions1"
  476.     unloadbmp "instructions2"
  477.     unloadbmp "instructions3"
  478.     unloadbmp "instructions4"
  479.     unloadbmp "instructions5"
  480.     unloadbmp "instructarrow"
  481.     unloadbmp "instructexit"
  482.     unloadbmp "pricetoplay"
  483.     unloadbmp "stdbutton"
  484.     unloadbmp "selectgame"
  485.     unloadbmp "gameselector"
  486.     unloadbmp "levelbutton"
  487.     unloadbmp "shipselect"
  488.     unloadbmp "levelerror"
  489.     unloadbmp "me"
  490.     unloadbmp "loadthmb"
  491.     unloadbmp "loadholidaythmb"
  492.     unloadbmp "loaditemsthmb"
  493.     unloadbmp "loadcastlethmb"
  494.     unloadbmp "loadbyethmb"
  495.     unloadbmp "loadcardsthmb"
  496.     unloadbmp "loadhalloweenthmb"
  497.     unloadbmp "loadpeterthmb"
  498.     unloadbmp "shipselector"
  499.     playwave ""
  500.     end
  501.  
  502. [spriteLocate]
  503.     print #main.graph, "spritexy settings "; MouseX; " "; MouseY
  504.     print #main.graph, "drawsprites"
  505.     wait
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top