# Script Name : The Cabal's Automatic Furb Deployment Script(_01_3_Primary_SDT.ts) # Author : Traitor # Where to get : www.tw-cabal.com in the scripts section. or e-mail the author. # this script : If you didn't get this script from www.tw-cabal.com, then I make NO # : promises that it will work, nor will I care. See the licence below. # Language/App : This script was written for TWX version 2.01 or higher # : See www.twxproxy.com for more information about TWX. # What it does : This script dumps the specified number of furbs to specific sectors, so your # : reds can self furb. # Description : This script It asks you how many sectors you want to put furbs in, what the # : sector numbers are, and how many furbs you want in each individual sector. # : It then buys the furbs and delivers them for you. This is useful if your # : furber can't be on-line at the same time as your reds, but you still want # : to furb them. # Step by Step : This script needs the following things setup before you can run this script: # Starting : 1) If you are running this script, you must have a commission. # notes, or : 2) You must have a transwarpable ship with type 2 engines and enough holds # How to run it : to hold the fuel needed to get the furb out to it's destination and # : get you back to StarDock. # : 3) You should start with full fuel # : 4) The sectors where you are deploying the furbs must have ports that sell # : fuel ore. # : 5) You must have enough cash on your person to be able to afford all the # : furbs you are planning on buying. # : 6) You must start at the Star Dock. # : 7) Here are the steps. # : I) Load the script # : II) Enter in the total number of sectors you are putting furbs in # : III) Enter the first sector number followed by the number of furbs # : you want in that sector. Repeat this process until you have # : entered in all the sectors. # : IV) When you have entered in the last sector, it buys a furb, gets # : holds for it, locks it in tow, and delivers it to the # : the destination sector. It does this until it has dropped # : off the number of furbs you asked for, then it moves on to # : the next sector until it's done. # : # Notes and : YOU MUST TURN OFF YOUR HELPER!! # Warnings : YOU MUST TURN OFF ANSI AND ANIMATION!! (CN1 and CN2) # : All the sectors must have SXB ports, so you can get fuel ore. # : It actually starts at the sector you entered in last, and then works it's # : way backwards down the list. So don't be surprised by that. # : If it's not safe to twarp somewhere, it shuts itself down. # Disclaimer : As always, if you end up getting killed using this script, don't come # : crying to me about it. I make no promises that it will work as intended, # : or that you are smart enough to figure out how to properly use it. # : Don't e-mail me with your problems, cause I don't care. If you think # : you have found a bug with my script, then send me the error message, # : the line number and a brief description of what you were doing when # : the error happened, and I'll look into it. But if it sends you off to # : some random sector, or you die from hazz, or whatever, that is your # : problem, not mine. You have been warned. ALWAYS TURN OFF THE HELPER # : feature of your program BEFORE running any of my scripts!!! # License info : This script is freeware, and it can be modified and distributed as you see # : fit provided that a) you don't claim that YOU originally wrote this script. # : b) if you do distribute modified versions of this script that you put your # : name and contact info in the documentation part of this script, and you # : document ANY changes you make. You may NOT use this in any way for profit # : of any kind. If you are playing for money, DO NOT USE MY SCRIPT! You may # : use this script in tournaments as long as there are no prizes other than # : bragging rights. # ----====[ show EGO banner :-) ]====---- echo "**" ANSI_1 " --" ANSI_9 "===| " ANSI_11 "The Cabal's Furb Deployer Script v1.3.1" ANSI_9 " |===" ANSI_1 "--*" echo ANSI_1 " --" ANSI_9 "===| " ANSI_11 "Last edited April 26, 2003" ANSI_9 " |===" ANSI_1 "--*" echo ANSI_1 " --" ANSI_9 "===| " ANSI_11 "By " ANSI_12 "Traitor" ANSI_9 " |===" ANSI_1 "--**" echo ANSI_10 " This script is freeware and may be distributed*" echo ANSI_13 "!! Please read the Notes and Warnings at the top of the script before using !!*" echo ANSI_12 " !!! IF YOU ARE RUNNING SWATH, TURN OFF THE HELPER NOW !!!*" ANSI_10 echo ANSI_10 " NOW TWX V2.X compatable!!*" ANSI_7 # ----====[ Get User Data ]====---- # User enters data manually here and I initialize the array. getinput $arraysize "Enter the total number of sectors you want to put furbs in: " 0 setarray $sectors $arraysize setvar $count 1 while ($count <= $arraysize) getinput $sectors[$count] "Enter Sector Number " & $count & ": " 0 getinput $sectors[$count][1] "Enter Number of Furbs: " 0 echo "*Sector Number: " & $sectors[$count] & " # of Furbs: " & $sectors[$count][1] & "*" add $count 1 end goto :getotherinfo # ----====[ Setup Other Data ]====---- # This gets the Stardock sector, and grabs your ship number :getotherinfo setvar $sdsector STARDOCK send "cz" settextlinetrigger 20 :getmyshipnum "+" pause :getmyshipnum killtrigger 20 getword CURRENTLINE $yourship 1 send "qd" goto :start # ----====[ Main Routine ]====---- # here is where all the work gets done. The nested while loop. :start setvar $sectorcount 1 while ($sectorcount <= $arraysize) setvar $furbsector $sectors[$sectorcount] setvar $furbcount $sectors[$sectorcount][1] while ($furbcount > 0) gosub :getfurb gosub :deliverfurb subtract $furbcount 1 end add $sectorcount 1 end echo ANSI_10 "***ALL DONE!***" ANSI_7 halt # ----====[ Sub Routines ]====---- # This section is where I put all the subroutines that get called by the # gosubs. Normally, these routines are pre-complied and added in as part # of include statements, but I put them in here so you could actually see # them. # ====[ Get Furb Routine ]==== # This is the routine that buys the furb :getfurb send "ps" # Limpet check. settexttrigger 53 :yeslimpet "detected a Limpet" settexttrigger 54 :buyfurb "Where to?" pause :yeslimpet # limpet was detected, time to panic! killalltriggers echo ANSI_12 "**LIMPET DETECTED!!! Halting script!!!**" ANSI_7 send "y" halt :buyfurb # This buys the furb. send "sbnyhyp" # This section generates a random number to append to the furb # This has other uses besides telling you which furb you just # bought...but I use that in another script :) setvar $furbname 0 getrnd $furbrand 1 999999 setvar $furbname "furb" & $furbrand echo "**" ANSI_15 "This will be the Furb's name: " $furbname send $furbname "*n*qq" waitfor "blast off from" # this grabs the ship number and xports you into it, and buys # the holds. send "x*" waitfor "------" settextlinetrigger 55 :findfurbshipnum $furbname pause :findfurbshipnum killalltriggers getword CURRENTLINE $furbnumb 1 echo ANSI_15 CURRENTLINE echo "**" ANSI_15 "This is the furb ship number: " $furbnumb waitfor "Choose which ship" send $furbnumb "*qpsspa33*yqqq" # this sends you back to your own ship. send "x*" $yourship "*q" send "wn" $furbnumb "*" return # ====[ Deliver Furb to Sector Routine ]==== # This routine delivers the furb to the target sector. :deliverfurb waitfor "sector you move" send "m" $sectors[$sectorcount] "*y" # Check to make sure it's safe to warp! gosub :twarpcheck send "w" # This buys you more fuel ore. send "pt**" # This sends you back to the Stardock send "m" $sdsector "*y" # Check to make sure it's safe to warp! gosub :twarpcheck return # ====[ Check for safe t-warp ]==== # This routine makes sure there is a fig at the destination. # If there is no fig there, it stops the script. :twarpcheck settexttrigger 660 :safetwarp "Locked." settexttrigger 661 :unsafetwarp "No locating beam found for sector" pause :safetwarp killalltriggers send "y" return :unsafetwarp killalltriggers send "n" echo "**" ANSI_12 "NOT SAFE TO TWARP!!! STOPPING SCRIPT!!!**" ANSI_7 halt # END OF SCRIPT