/* 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")
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")
ship1=ZocAsk("What ship are you in?")
ship2=ZocAsk("What ship are you going to transport to?")

do forever

call steal

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

call zocsend "x"
call zocsend ship2
call zocsend "^mq"

call steal

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

call zocsend "x"
call zocsend ship1
call zocsend "^mq"

end

exit



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)