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

call zoctimeout 14000

holdz=ZocAsk("How much holds do you want to steal?")
stuff=ZocAsk("1 - Fuel Ore, 2 - Organics, 3 - Equipment")
password=ZocAsk("What is your Password?")
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")


do forever

call steal
call zocsend "qyt^mn^m"
call zocsend password
call zocsend "^m^m"
call log
call zocsend "rpy"


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

call steal
call zocsend "qyt^mn^m"
call zocsend password
call zocsend "^m^m"
call log
call zocsend "rpy"

call zocsend "l"
call zocsend planet1
call zocsend "^m"
call zocsend "tnl"
call zocsend stuff
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)

log:
do forever
result=Zocwaitmux("[Pause]", "Delete")
select
	when result=0 then x=1
	when result=1 then x=2
end

if x=1 then 
call zocsend "^m"

if x=2 then 
call zocsend "n^m"
call zocwait "tion? (A,D,I,R,P"
RETURN(0)

end