Bapeth's Ocean Launcher by barryroser
Related: Snippet ship launch
Description: Launches and readies a ship from any nearby dockmaster.
# Bapeths Ship Launcher # # "**Required**" # Create an entry in the Razor "Friends Tab" called "IgnoreCrew" # # Script will loop into 'Master Background' if you have it in your script library # Run this script near any friendly boats to add any and all friendly crew to the ignore list # # This script will launch your ship, ready crew, and load cannons # # Script starts here clearsysmsg overhead 'Launch sequence initiated...' 45 if not findtype 5365 backpack overhead 'I forgot a Spyglass...' 38 overhead 'Launch Aborted' 38 stop endif if not findtype "aspect crystal" backpack and skill "Magery" >= 50 overhead "I could use Aspect Crystals..." 78 pause 1000 endif if followers = 0 overhead "I should get some followers..." 45 pause 1000 endif if skill "Arcane" >= 80 and not gumpexists 3954121934 say '[abilityhotbar' waitforgump 3954121934 500 endif if findtype 3763|3762|3740|3742|10245|20008|20006|20014|20016|20012|20010 backpack as instrument @ignore instrument endif if findtype 3834 backpack 0 as bbook @ignore bbook endif for 25 hotkey "Next Monster Target" @setvar bdockmaster lasttarget if noto bdockmaster = "invulnerable" getlabel bdockmaster desc if "dockmaster" in desc menu bdockmaster 1 getlabel backpack ping if gumpexists 3287496917 overhead "Which ship shall I captain?" 88 while not targetexists //donothing endwhile getlabel backpack ping if insysmsg 'You have traveled' overhead 'Travel cooldown...' 38 overhead 'Launch Aborted' 38 gumpclose 3287496917 stop elseif insysmsg 'You have been onboard' overhead 'Onboard cooldown...' 38 overhead 'Launch Aborted' 38 hotkey "Cancel Current Target" gumpclose 3287496917 stop endif wft 500 overhead "Select Launch Location" 88 while targetexists //donothing endwhile getlabel backpack ping gumpclose 3287496917 break endif endif endif endfor if insysmsg 'A ship cannot be placed' overhead 'Cannot place there...' 38 overhead 'Try again...' 38 gumpclose 3287496917 replay elseif insysmsg 'That location is too far away' overhead 'Cannot place there...' 38 overhead 'Try again...' 38 gumpclose 3287496917 replay elseif insysmsg 'You have been onboard' overhead 'Onboard cooldown...' 38 overhead 'Launch Aborted' 38 hotkey "Cancel Current Target" gumpclose 3287496917 stop elseif insysmsg "while on a house" overhead "I cannot place that from inside this house..." 38 overhead "Launch Aborted..." 38 gumpclose 3287496917 gumpclose 4216593270 stop endif while not dead clearsysmsg say "[Embark" 45 getlabel backpack ping say "[EmbarkFollowers" 45 getlabel backpack ping say "[Reload" 88 overhead '*Reloading*' 45 getlabel backpack ping say "[ReadyCrew" 45 getlabel backpack ping if insysmsg "may ready the crew" overhead "Crew is not ready..." 38 pause 600 endif while not gumpexists 3329337894 say "[TargetingMode" 45 getlabel backpack ping endwhile if gumpexists 4216593270 gumpclose 4216593270 endif overhead "Set my Hatch..." 77 setlasttarget wft 500 while targetexists //donothing endwhile @setvar "shiphold" lasttarget if not find "shiphold" ground -1 -1 22 overhead "Error, launch code resetting..." 38 replay endif if not gumpexists 4216593270 say "[ship" waitforgump 4216593270 500 endif if skill "Necromancy" >= 50 and not gumpexists 622436516 say [necromancyhotbar pause 250 endif for 30 hotkey "Next Monster Target" @setvar friendcrewmember lasttarget if noto friendcrewmember = "friend" getlabel "friendcrewmember" desc if "Crewmember" in desc hotkey "Add Target To: IgnoreCrew" wft 500 lasttarget hotkey "Cancel Current Target" endif endif endfor hotkey "Cancel Current Target" overhead "Launch Sequence Complete..." 88 warmode off script 'Master Background' stop endwhile