/* Steal Dump Move */
/* Made by Dell Bond */
/* Version 1.0 */

holdz=ZocAsk("How much holds do you want to steal?")
stuff=ZocAsk("1 - Fuel Ore, 2 - Organics, 3 - Equipment")
sector2=ZocAsk("Which sector are you going to steal from after this one?")
planet1=ZocAsk("Which planet do you want to put the stuff on?", "Planet Number 1")
planet2=ZocAsk("Which planet do you want to put the stuff on?", "Planet Number 2")

call zocsend "^m"
call zocwait "]:["
sector1=GETNumber(0,0)

do forever

call steal

call zocsend "l"
call zocsend planet1
call zocsend "^m"
call zocsend "tnl"
call zocsend stuff
call zocsend "^mq"
call zocsend sector2
call zocsend "^m"

call steal

call zocsend "l"
call zocsend planet2
call zocsend "^m"
call zocsend "tnl"
call zocsend stuff
call zocsend "^mq"
call zocsend sector1
call zocsend "^m"

end

exit

GetNumber:
holdfinal=""
call zocwait "]"
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal

steal:
call zocsend "pr"
call zocsend "^Ms"
call zocsend stuff
call zocsend holdz
call zocsend "^M"
result = zocwaitmux("Success!","Suddenly you're Bust","aren't that many holds")
select
WHEN result=0 then bust=0
when result=1 then bust=1
when result=2 then bust=2
end
if bust=1 then exit
if bust=2 then do
	zocsend "o31^Mq"
	call zocwait "]:["
	call zocsend "pr"
	call zocsend "^M"
	call zocsend "s3"
	call zocsend holdz
	call zocsend "^M"
	result = zocwaitmux("Success!","Suddenly you're Bust")
	select
	WHEN result=0 then bust=0
	when result=1 then bust=1
	end
	if bust=1 then exit
	end
RETURN(0)