[SCRIPT HOT KEYS]

If you are going to use script hot keys, in your TWX directory you will need the following file: _MOM_HOTKEYSCRIPTS.TXT This file allows you to set paths for quick script loading. The file should be formatted something like this on each line:

[path] [script name]

Example:
scripts/MOM/MOM_PDrop1_88.ts      ""PDROP""
scripts/MOM/MOM_UnlimitedGridder2_07.ts      ""UNLIM GRIDDER""
scripts/MOM/MOM_LoginKiller.ts      ""LOGIN KILLER""
scripts/MOM/MOM_PlanetGridder1_25.ts      ""PLANET GRIDDER""
scripts/MOM/MD_PlanetStripper.ts      ""STRIPPER""
scripts/MOM/World_Planet_Stripper.ts      ""WORLD PLANET STRIPPER""
scripts/2_WorldTrade.ts      ""WORLD TRADE""
scripts/MOM/phx_SectorList.ts      ""PHX SECTOR LIST""
scripts/MOM/MOM_GridClearing1_5.ts      ""LIMP GRID""

# MD Planet Stripper
     #Turn off logging to speed up script while running
     logging off

     ###STEP 1 - LOAD any bot variables that your bot module will need.###
           #User's bot name#
                loadVar  $bot_name

           #TRUE/FALSE Whether bot is loaded in an unlimited turns game#
                loadVar   $unlimitedGame       &nbs p;  

           #Number of turns that user has put turn limit to#
                loadVar   $bot_turn_limit       &nb sp;  

           #The entire command line as entered by the user ex. "strip all f"#
                loadVar  $user_command_line     

           #The first parameter of the command line ex. "all"#
                loadVar   $parm1                


           #The second parameter of the command line#
                loadVar   $parm2                


           #and so on...#
                loadVar   $parm3                

                loadVar  $parm4
                loadVar  $parm5
                loadVar  $parm6
                loadVar  $parm7
                loadVar  $parm8
     ###END STEP 1###

     #QUIKSTATS grabs current prompt as well as all stats from the / key#
     gosub :quikstats
     setVar $startingLocation $CURRENT_PROMPT
     if (($startingLocation <> "Citadel") AND ($startingLocation <> "Planet"))
           send "'{" $bot_name "} - Planet Stripper must be started from Citadel or Planet prompt*"
           halt
     end
     
     ###STEP 2 - REPLACE menu - Take out any menu code from old script, and replace with bot parameters.###
     
     ###PRE-BOT CODE###
     #      ;:menu_info
     #      ;loadVar $MDProductMoverSaved
     #      ;if ($MDProductMoverSaved)
     #      ;     loadVar  $emptyFuel
     #      ;     loadVar  $emptyOrganics
     #      ;     loadVar  $emptyEquipment
     #      ;     loadVar  $emptyFuelColonists
     #      ;     loadVar  $emptyOrganicColonists
     #      ;     loadVar  $emptyEquipmentColonists
     #      ;else
     #      ;     setVar  $emptyFuel FALSE
     #      ;     setVar  $emptyOrganics FALSE
     #      ;     setVar  $emptyEquipment FALSE
     #      ;     setVar  $emptyFuelColonists FALSE
     #      ;     setVar  $emptyOrganicColonists FALSE
     #      ;     setVar  $emptyEquipmentColonists FALSE
     #      ;     

     #      ;     saveVar  $emptyFuel
     #      ;     saveVar  $emptyOrganics
     #      ;     saveVar  $emptyEquipment
     #      ;     saveVar  $emptyFuelColonists
     #      ;     saveVar  $emptyOrganicColonists
     #      ;     saveVar  $emptyEquipmentColonists
     #      ;     

     #      ;     setVar  $MDProductMoverSaved TRUE
     #      ;     saveVar  $MDProductMoverSaved
     #      ;end
     #
     #      ;addMenu "" "MDProductMover" ANSI_14&"MD Planet Stripper Options"&ANSI_7 "." "" "Main" FALSE
     #      ;addMenu "MDProductMover" "Go" ANSI_15&"Start Mover" "G" :Menu_Go "" TRUE
     #      ;addMenu "MDProductMover" "Fill" ANSI_15&"Planet to  Fill         &n bsp;   " "1" :Menu_Fill "" False
     #      ;addMenu "MDProductMover" "Empty" ANSI_15&"Planet(s) to Empty         " "2" :Menu_Empty "" False
     #      ;addMenu "MDProductMover" "Fuel" ANSI_15&"   Fuel         &n bsp;         &n bsp; " "3" :Menu_Fuel "" FALSE
     #      ;addMenu "MDProductMover" "Organics" ANSI_15&"   Organics        &nbs p;        "  "4" :Menu_Organics "" FALSE
     #      ;addMenu "MDProductMover" "Equipment" ANSI_15&"   Equipment        &nb sp;        " "5" :Menu_Equipment "" FALSE
     #      ;addMenu "MDProductMover" "FuelColonists" ANSI_15&"  Fuel  Colonists        &nb sp;  " "6" :Menu_FuelColonists "" FALSE
     #      ;addMenu "MDProductMover" "OrganicColonists" ANSI_15&"  Organic Colonists        " "7" :Menu_OrganicColonists "" FALSE
     #      ;addMenu "MDProductMover" "EquipmentColonists" ANSI_15&"  Equipment Colonists      " "8" :Menu_EquipmentColonists "" FALSE
     #      ;
     #      ;setMenuHelp "Go" "Starts the script."
     #      ;setVar $fillIndex 1
     #      ;setVar $emptyIndex 0
     #      ;gosub :sub_setmenu
     #      ;setMenuOptions "MDProductMover" FALSE FALSE FALSE
     #      ;echo ANSI_13
     #      ;openMenu "MDProductMover"
     #
     #      ;:Menu_Fill
     #      ;     gosub  :clearScreen
     #      ;     if  ($fillIndex < $planetCount)
     #      ;           ;add $fillIndex 1
     #      ;     else

     #      ;           ;setVar $fillIndex 1
     #      ;     end

     #      ;     if  ($emptyIndex = $fillIndex)
     #      ;     add  $fillIndex 1
     #      ;     if  ($fillIndex > $planetCount)
     #      ;           ;setVar $fillIndex 1
     #      ;     end

     #      ;end
     #      ;gosub :sub_setmenu
     #      ;gosub :clearScreen
     #      ;openMenu "MDProductMover"
     #
     #  .....Etc.
     #  Another 50 lines of old menu code would follow this.
     #  I commented the old code out for illustrative purposes, feel free to delete it.
     ###END PRE-BOT CODE###

     ###BOT COMMAND LINE CODE###

     #If planet number is not a number or the keyword 'all' then quit#
     isNumber $test $parm1
     if (($test = FALSE) AND ($parm1 <> "all"))
           send "'{" $bot_name "} - Invalid planet. Please enter a planet number or 'all'.*"
           halt
     end

     #Determines if a keyword exists in a user command line#

     getWordPos " "&$user_command_line&" " $pos " f "
     if ($pos > 0)
           setVar $emptyFuel TRUE
     else
           setVar $emptyFuel FALSE
     end

     getWordPos " "&$user_command_line&" " $pos " o "
     if ($pos > 0)
           setVar $emptyOrganics TRUE
     else
           setVar $emptyOrganics FALSE
     end

     getWordPos " "&$user_command_line&" " $pos " e "
     if ($pos > 0)
           setVar $emptyEquipment TRUE
     else
           setVar $emptyEquipment FALSE
     end
     
     getWordPos " "&$user_command_line&" " $pos " c1 "
     if ($pos > 0)
           setVar $emptyFuelColonists TRUE
     else
           setVar $emptyFuelColonists FALSE
     end

     getWordPos " "&$user_command_line&" " $pos " c2 "
     if ($pos > 0)
           setVar $emptyOrganicColonists TRUE
     else
           setVar $emptyOrganicColonists FALSE
     end

     getWordPos " "&$user_command_line&" " $pos " c3 "
     if ($pos > 0)
           setVar $emptyEquipmentColonists TRUE
     else
           setVar $emptyEquipmentColonists FALSE
     end
     getWordPos " "&$user_command_line&" " $pos " fc "
     if ($pos > 0)
           setVar $emptyFuelColonists TRUE
     else
           setVar $emptyFuelColonists FALSE
     end
     getWordPos " "&$user_command_line&" " $pos " oc "
     if ($pos > 0)
           setVar $emptyOrganicColonists TRUE
     else
           setVar $emptyOrganicColonists FALSE
     end
     getWordPos " "&$user_command_line&" " $pos " ec "
     if ($pos > 0)
           setVar $emptyEquipmentColonists TRUE
     else
           setVar $emptyEquipmentColonists FALSE
     end
     
     ###END BOT COMMAND LINE CODE###


     ### The rest of this script is essentially the same code as the standalone script.  I added the bot name ###
     ### to all the subspace messages just because I like the bot to be consistent.  It is by no means        ###
     ###  necessary.        &n bsp;         &n bsp;         &n bsp;         &n bsp;         &n bsp;         &n bsp;         &n bsp;         &n bsp;         &n bsp;  ###

     ### All you need to do to make your script a bot module/command is compile it and name it whatever you want it's ###
     ### command to be.  ex.  strip.cts for the command to be strip. Then place it within whatever category folder    ###
        ### makes the most sense.  In this case I put it in  MOMBot/Modes/Resource      &nb sp;         &nb sp;         &nb sp;         &nb sp;   ###

     if ($startingLocation = "Citadel")
           send "q "
     end
     gosub :getPlanetInfo
     send "q ** "
        gosub :quikstats

     if (SECTOR.PLANETCOUNT[$CURRENT_SECTOR] <= 1)
           send "'{" $bot_name "} - This script must be run with at least two planets in the sector*"
           send "l "&$planet&"* "
           if ($startingLocation = "Citadel")
                 send "c "
           end
           halt
     end
     gosub :countPlanets

:startUpMessage
     setVar $planetToFill $PLANET
     if ($parm1 <> "all")
           setVar $planetCount 1
           setVar $planets[1] $parm1
     end
     send "'{" $bot_name "} - Planet Stripper Powering Up!  Filling Planet "&$planetToFill&"*"
     
:startFilling
     setVar $i 1
     setVar $countFuel 0
     setVar $countOrganics 0
     setVar $countEquipment 0
     setVar $countColonists 0
     setVar $coloType 1
     :lookUpPlanetStats
           send "l "&$planetToFill&"*"
           killAllTriggers
           setTextLineTrigger wrongPlanet :badPlanet "That planet is not in this sector."
           setTextLineTrigger badPlanet :badPlanet "Invalid registry number, landing aborted."
           setTextLineTrigger goodPlanet :goodPlanet "Claimed by:"
           pause
     :badPlanet
           killAllTriggers
           send "q*"
           send "'{" $bot_name "} - Planet #"&$planetToFill&" is not valid for this sector*"
           halt     

     :goodPlanet
           killAllTriggers
           waiton "Fuel Ore"
           getWord CURRENTLINE $currentFuelColos 3
           stripText $currentFuelColos ","
           setVar $currentFuel $planet_fuel
           waiton "Organics"
           getWord CURRENTLINE $currentOrganicColos 2
           stripText $currentOrganicColos ","
           setVar $currentOrganics $planet_organics
           waiton "Equipment"
           getWord CURRENTLINE $currentEquipmentColos 2
           stripText $currentEquipmentColos ","
           setVar $currentEquipment $planet_equipment
     send "q "

     while ($i <= $planetCount)
           if ($planetToFill <> $planets[$i])
                :tryFuel

                      killAllTriggers
                      if ($emptyFuel)
                            send "l j"&$planets[$i]&"* jt*jt1* x q l j"&$planetToFill&"* jt*jl1* x q "
                           setTextTrigger  fuelSuccess :tryFuel "You load the  "           ;           ;
                           setTextTrigger  fuelEmpty :tryOrganics "There aren't that many "
                           setTextTrigger  fuelFull :emptyFuel "They don't have room for that many "
                            pause
                      end
                :emptyFuel

                      send "jy "
                :tryOrganics

                      killAllTriggers
                      if ($emptyOrganics)
                            send "l j"&$planets[$i]&"* jt*jt2* x q l j"&$planetToFill&"* jt*jl2* x q "
                           setTextTrigger  success :tryOrganics "You load the "
                           setTextTrigger  emptyEmpty :tryEquipment "There aren't that many "
                           setTextTrigger  fullFill :emptyOrganics "They don't have room for that many "
                            pause
                      end
                :emptyOrganics

                      send "jy "
                :tryEquipment

                      killAllTriggers
                      if ($emptyEquipment)
                            send "l j"&$planets[$i]&"* jt*jt3* x q l j"&$planetToFill&"* jt*jl3* x q "
                           setTextTrigger  success :tryEquipment "You load the "
                           setTextTrigger  emptyEmpty :tryFuelColonists "There aren't that many "
                           setTextTrigger  fullFill :emptyEquipment "They don't have room for that many "
                            pause
                      end
                :emptyEquipment

                      send "jy "
                :tryFuelColonists

                      killAllTriggers
                      if ($emptyFuelColonists)
                            send "l j"&$planets[$i]&"* js*jt1* x q l j"&$planetToFill&"* js*jl"&$coloType&"* x q "
                           setTextTrigger  success :tryFuelColonists "The Colonists disembark to "
                           setTextTrigger  emptyEmpty :switchFuel "There isn't room on the planet"
                           setTextTrigger  fullFill :tryOrganicColonists "They don't have room for that many "
                           setTextTrigger  empty :emptyFColonists  "There aren't that many on the planet!"
                            pause
                           :switchFuel

                                 killAllTriggers
                                 add $coloType 1
                                 if ($coloType >= 4)
                                      goto  oneWithThisPlanet
                                 end
                                 goto :tryFuelColonists
                      end
                :emptyFColonists

                      send "jy "
                :tryOrganicColonists

                      killAllTriggers
                      if ($emptyOrganicColonists)
                            send "l j"&$planets[$i]&"* js*jt2* x q l j"&$planetToFill&"* js*jl"&$coloType&"* x q "
                           setTextTrigger  success :tryOrganicColonists "The Colonists disembark to "
                           setTextTrigger  emptyEmpty :switchOrganics "There isn't room on the planet"
                           setTextTrigger  fullFill :tryEquipmentColonists "They don't have room for that many "
                           setTextTrigger  empty :emptyOColonists "There aren't that many on the planet!"
                            pause
                           :switchOrganics

                                 killAllTriggers
                                 add $coloType 1
                                 if ($coloType >= 4)
                                      goto  oneWithThisPlanet
                                 end
                                 goto :tryOrganicColonists
                      end
                :emptyOColonists

                      send "jy "
                :tryEquipmentColonists

                      killAllTriggers
                      if ($emptyEquipmentColonists)
                            send "l j"&$planets[$i]&"* js*jt3* x q l j"&$planetToFill&"* js*jl"&$coloType&"* x q "
                           setTextTrigger  success :tryEquipmentColonists "The Colonists disembark to "
                           setTextTrigger  emptyEmpty :switchEquipment "There isn't room on the planet"
                           setTextTrigger  fullFill oneWithThisPlanet "They don't have room for that many "
                           setTextTrigger  empty oneWithThisPlanet "There aren't that many on the planet!"
                            pause
                           :switchEquipment

                                 killAllTriggers
                                 add $coloType 1
                                 if ($coloType >= 4)
                                      goto  oneWithThisPlanet
                                 end
                                 goto :tryEquipmentColonists
                      end
                     
                oneWithThisPlanet
           end
                
           add $i 1
     end
     :lookUpPlanetStats2
           send "l "&$planetToFill&"*"
           killAllTriggers
           setTextLineTrigger wrongPlanet :badPlanet2 "That planet is not in this sector."
           setTextLineTrigger badPlanet :badPlanet2 "Invalid registry number, landing aborted."
           setTextLineTrigger goodPlanet :goodPlanet2 "Claimed by:"
           pause
     :badPlanet2
           killAllTriggers
           send "q*"
           send "'{" $bot_name "} - Planet #"&$planetToFill&" is not valid for this sector*"
           halt     

     :goodPlanet2
           killAllTriggers
           waiton "Fuel Ore"
           getWord CURRENTLINE $newFuelColos 3
           stripText $newFuelColos ","
           getWord CURRENTLINE $newFuel 6
           stripText $newFuel ","
           waiton "Organics"
           getWord CURRENTLINE $newOrganicColos 2
           stripText $newOrganicColos ","
           getWord CURRENTLINE $newOrganics 5
           stripText $newOrganics ","
           waiton "Equipment"
           getWord CURRENTLINE $newEquipmentColos 2
           stripText $newEquipmentColos ","
           getWord CURRENTLINE $newEquipment 5
           stripText $newEquipment ","
          
           send "q "
     gosub :endReport
     send "/"
     waitOn #179
     send "'{" $bot_name "} - Planet Stripper Shutting Down*"
     halt

:clearScreen
     echo #27 & "[2J"
     return



:countPlanets

     setVar $planetCount 0
     killalltriggers
     setTextLineTrigger planetGrabber lanetline "   <"
     setTextLineTrigger beDone one "Land on which planet "
     send "lq*"
     pause
     lanetline
           killalltriggers
           setVar $line CURRENTLINE
           replacetext $line "<" " "
           replacetext $line ">" " "
           striptext $line ","
           add $planetCount 1
           getWord $line $planets[$planetCount] 1
           setTextLineTrigger getLine2 lanetline "   <"
           setTextLineTrigger getEnd one "Land on which planet "
           pause
     one
return

:quikstats


           setVar $CURRENT_PROMPT             "Undefined"
     killtrigger noprompt
     killtrigger prompt1
     killtrigger prompt2
     killtrigger prompt3
     killtrigger prompt4
     killtrigger statlinetrig
     killtrigger getLine2
     setTextLineTrigger       prompt           :allPrompts  & nbsp;        #145 & #8
     setTextLineTrigger      statlinetrig      :statStart             #179
     send #145&"/"
     pause

     :allPrompts
           getWord CURRENTLINE $CURRENT_PROMPT 1
           stripText $CURRENT_PROMPT #145
           stripText $CURRENT_PROMPT #8
           #getWord currentansiline $checkPrompt 1
           #getWord currentline $tempPrompt 1
           #getWordPos $checkPrompt $pos ""
           #if ($pos > 0)
           #      ;setVar $CURRENT_PROMPT $tempPrompt
           #end
           setTextLineTrigger       prompt           :allPrompts  & nbsp;        #145 & #8
           pause

     :statStart
           killtrigger prompt
           killtrigger prompt2
           killtrigger prompt3
           killtrigger prompt4
           killtrigger noprompt
           setVar $stats ""
           setVar $wordy ""


     :statsline
           killtrigger statlinetrig
           killtrigger getLine2
           setVar $line2 CURRENTLINE
           replacetext $line2 #179 " "
           striptext $line2 ","
           setVar $stats $stats & $line2
           getWordPos $line2 $pos "Ship"
           if ($pos > 0)
                goto :gotStats
           else
                 setTextLineTrigger getLine2 :statsline
                 pause
           end

     :gotStats
           setVar $stats $stats & " @@@"

           setVar $current_word 0
           while ($wordy <> "@@@")
                 if ($wordy = "Sect")
                      getWord $stats  $CURRENT_SECTOR       &nb sp;($current_word + 1)
                elseif ($wordy = "Turns")
                      getWord $stats $TURNS                   ($current_word + 1)
                elseif ($wordy = "Creds")
                      getWord $stats $CREDITS              ($current_word + 1)
                elseif ($wordy = "Figs")
                      getWord $stats $FIGHTERS               ($current_word + 1)
                elseif ($wordy = "Shlds")
                      getWord $stats $SHIELDS              ($current_word + 1)
                elseif ($wordy = "Hlds")
                      getWord $stats $TOTAL_HOLDS               ($current_word + 1)
                elseif ($wordy = "Ore")
                      getWord $stats $ORE_HOLDS                ($current_word + 1)
                elseif ($wordy = "Org")
                      getWord $stats  $ORGANIC_HOLDS       &nbs p; ($current_word + 1)
                elseif ($wordy = "Equ")
                      getWord $stats  $EQUIPMENT_HOLDS       &n bsp; ($current_word + 1)
                elseif ($wordy = "Col")
                      getWord $stats  $COLONIST_HOLDS       &nb sp; ($current_word + 1)
                elseif ($wordy = "Phot")
                      getWord $stats $PHOTONS               ($current_word + 1)
                elseif ($wordy = "Armd")
                      getWord $stats $ARMIDS               ($current_word + 1)
                elseif ($wordy = "Lmpt")
                      getWord $stats $LIMPETS               ($current_word + 1)
                elseif ($wordy = "GTorp")
                      getWord $stats $GENESIS              ($current_word + 1)
                elseif ($wordy = "TWarp")
                      getWord $stats $TWARP_TYPE              ($current_word + 1)
                elseif ($wordy = "Clks")
                      getWord $stats $CLOAKS               ($current_word + 1)
                elseif ($wordy = "Beacns")
                      getWord $stats $BEACONS             ($current_word + 1)
                elseif ($wordy = "AtmDt")
                      getWord $stats $ATOMIC              ($current_word + 1)
                elseif ($wordy = "Corbo")
                      getWord $stats $CORBO               ($current_word + 1)
                elseif ($wordy = "EPrb")
                      getWord $stats $EPROBES               ($current_word + 1)
                elseif ($wordy = "MDis")
                      getWord $stats  $MINE_DISRUPTORS       &n bsp;($current_word + 1)
                elseif ($wordy = "PsPrb")
                      getWord $stats $PSYCHIC_PROBE              ($current_word + 1)
                elseif ($wordy = "PlScn")
                      getWord $stats $PLANET_SCANNER       ($current_word + 1)
                elseif ($wordy = "LRS")
                      getWord $stats $SCAN_TYPE                ($current_word + 1)
                elseif ($wordy = "Aln")
                      getWord $stats $ALIGNMENT                ($current_word + 1)
                elseif ($wordy = "Exp")
                      getWord $stats $EXPERIENCE                ($current_word + 1)
                elseif ($wordy = "Corp")
                      getWord $stats $CORP                    ($current_word + 1)
                elseif ($wordy = "Ship")
                      getWord $stats $SHIP_NUMBER               ($current_word + 1)
                 end
                add $current_word 1
                 getWord $stats $wordy $current_word
           end
     oneQuikstats
           killtrigger prompt1
           killtrigger prompt2
           killtrigger prompt3
           killtrigger prompt4
           killtrigger statlinetrig
           killtrigger getLine2

return
# ============================== END QUICKSTATS SUB==============================



:endReport
     setVar $formattedCountFuel ""
     setVar $countFuel ($newFuel - $currentFuel)
     getLength $countFuel $length
     while ($length > 3)
           cutText $countFuel $snippet $length-2 9999
           cutText $countFuel $countFuel 1 $length-3
           getLength $countFuel $length
           setVar $formattedCountFuel ","&$snippet&$formattedCountFuel
     end
     setVar $formattedCountFuel $countFuel&$formattedCountFuel
     
     setVar $formattedCountOrganics ""
     setVar $countOrganics ($newOrganics - $currentOrganics)
     getLength $countOrganics $length
     while ($length > 3)
           cutText $countOrganics $snippet $length-2 9999
           cutText $countOrganics $countOrganics 1 $length-3
           getLength $countOrganics $length
           setVar $formattedCountOrganics ","&$snippet&$formattedCountOrganics
     end
     setVar $formattedCountOrganics $countOrganics&$formattedCountOrganics