# Copy of LS's Mom Bot Merch
#  A simple script that Utilizes MOM modules to Merch Org and Equip. from
#  planets in a sector.
#  -- Modified slightly by crosby...less input from user required.
#
Getword currentline $prompt 1
If $prompt <> "Citadel"
  echo "*Dude, you need to start this in a Cit..."
  halt
End
LoadVar $bot
If $bot = 0
echo  ANSI_3 "*Yo..what's yer bot's name? "
getconsoleinput $bot
saveVar $bot
End

# If you want Merch to buydown ore from ports, change the False to True
setVar $Buyfuel true
# Do Port CIM Update

setVar $Do_CIM true
# Bank Planet where funds are deposited. **Must Be in same sector**
send "QDCS"
waitfor "in sector"
getword currentline $bank_planet 2
striptext $bank_planet "#"
  setVar $start_sector currentsector
# Minimum product amount for the Merch cmd line
setVar $Product_Amount 1500
setVar $Planets_Sect SECTOR.PLANETCOUNT[$start_sector]
setArray $Planets $Planets_Sect
# List of Planets in Current Sector.  $Bank_Planet, must be in the sector as well.
:grab_planets
setvar $counter 0
send "q q q q **L"
waiton "-------------------------------------------------------------------------------"
settextlinetrigger next_planet :next_planet "<"
settexttrigger done_grabbing :done_grabbing "Land on which "
pause

:next_planet
setvar $counter $counter + 1
getword currentline $Planets[$counter] 2
striptext $Planets[$counter] ">"

echo "* Grabbed planet " & $Planets[$counter] & "*"

settextlinetrigger next_planet :next_planet "<"
pause

:done_grabbing
killtrigger next_planet

echo "* Made it to :done_grabbing*"

send "**"
# Get to Command Prompt --- should be there...
send " q q q z n * *  /"
waiton (#179 & "Turns")
if ($Do_Cim)
# Update Port-Cim. Only really needs to be done once per session.
setEventTrigger  cim_detect  :cim_detect "SCRIPT STOPPED" "scripts\MomBot\Commands\Data\cim.cts"
setEventTRigger  cim_timeout :cim_timeout 300000
send "'" & $bot & " cim*"
waiton "Message sent on sub-space channel"
pause
:Cim_timeout
killalltriggers
echo "***Cim Timed Out ( 5 mins expired. )***"
halt
:cim_detect
killalltriggers
end
setvar $planets_idx 1
While ($planets_idx <= $planets_sect)
if ($planets[$planets_idx] <> 0)
setvar $p $planets[$planets_idx]
gosub :gogo
if ($fini)
goto :endgame
end
end
add $planets_idx 1
end
:endgame
send "'" & $bot & " land " & $bank_planet & "*"
settextlinetrigger ilanded :ilanded "- In Cit - Planet"
pause
:ilanded
killalltriggers
# Tries to Return Planet to starting sector

send "'" & $bot & " pwarp " & $start_sector & "*"
waiton "Message sent on sub-space channel"
halt
# --------------------------------------------------------

:gogo
send "'" & $bot & " land " & $p & "*"
settextlinetrigger landed :landed "- In Cit - Planet"
pause
:landed
killalltriggers
setvar $fini false
if ($buyfuel)
send "'" & $bot & " merch 1500 o e neg skipcim buyfuel*"
else
send "'" & $bot & " merch 1500 o e neg skipcim *"
end
waiton "Message sent on sub-space channel"
settextlinetrigger done_merch :done_merch "- Planet Merchant completed."
settextlinetrigger done_done  :done_done "Can't find a route to any other ports."
pause
:done_done
setvar $fini true
pause
:done_merch
killalltriggers
send "'" & $bot & " with*"
waiton "Message sent on sub-space channel"
settextlinetrigger with :with "credits taken from citadel."
pause
:with
# send "'" & $bot & " figmove s*"
# waiton "Message sent on sub-space channel"
# settextlinetrigger moved :moved "{" & $bot & "} - fighters moved"
# pause
:moved
killalltriggers
send "q q q z n * L " & $bank_planet & "* c '" & $bot & " dep*"
waiton "Message sent on sub-space channel"
settextlinetrigger dep :dep "credits deposited into citadel."
pause
:dep
killalltriggers
send "q q q z n ** "
waiton "Warps to Sector(s) :"
return

:next_planet
GetText CURRENTLINE $temp "<" ">"
If ($temp <> "")
   StripText $temp " "
   setvar $counter ($counter + 1)
   SetVar $Planets[$counter] $temp
   echo "* Grabbed planet " & $Planets[$counter] & "*"
End
SetTextLineTrigger next_planet :next_planet ">"
pause

:next_planet
setvar $counter $counter + 1
getword currentline $Planets[$counter] 2
striptext $Planets[$counter] ">"

echo "* Grabbed planet " & $Planets[$counter] & "*"

if ($counter < SECTOR.PLANETCOUNT[$start_sector])
  SetTextLineTrigger next_planet :next_planet ">"
end
pause

'{hd} - Processing CIM...

Message sent on sub-space channel 905.

Command [TL=00:00:00]:[15300] (?=Help)? :

²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²T

Corp Menu
Corporate command [TL=00:00:00]:[15300] (?=Help)? T

Establishing connection with Corporate M.A.I.L. Server.

Type corporate message [<ENTER> to send line. Blank line to end transmission]
C: -----hd-----
C: Upped Ports: (At least 10000 product level)
C: 2792(SBB) 4208(SSB) 4958(BSB) 5959(BSB) 6160(SBB) 8446(SBB)
Script terminated: scripts\mombot\commands\data\cim.cts

18775(BSB)
C: