/* REXX (CREATED BY ELEQTRIZI'T) */


CALL ZocRespond "Equipment do you want", "^M"
CALL ZocRespond "Organics do you want", "0^M"
CALL ZocRespond "Ore do you want", "0^M"

CALL ZocTimeout 3600

DO 10000
CALL ZocSend "pt"
call zocwait "our offer ["
offer2=GETITALL(0,0)
z=BUYHAGGLE(offer2)

call zocwait "Command"
call zocsend "l"
result= ZocWaitMux("   <", "Planet command")
SELECT
        WHEN result=0 THEN x="1"
        WHEN result=1 THEN x="2"
end

if x=1 then do
        call zocwait ">"
        planet=zoclastline()
        call zocsend planet
        call zocsend "^M"
end
call zocsend "tnl3^Mq"
call zocwait "Command"

END

exit





GETITALL:
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
                                                          


BUYHAGGLE:
               
offer1=arg(1)
haggle106=offer2*94/100
haggle106=trunc(haggle106,0)
haggle105=offer2*95/100
haggle105=trunc(haggle105,0)
haggle104=offer2*96/100
haggle104=trunc(haggle104,0)
haggle103=offer2*97/100
haggle103=trunc(haggle103,0)
haggle102=offer2*98/100
haggle102=trunc(haggle102,0)
haggle101=offer2*99/100
haggle101=trunc(haggle101,0)

call zocsend haggle104
call zocsend "^M"

a=3
DO WHILE a<>0
result= ZocWaitMux("We'll sell them", "You have", "we're not int", "final offer")
SELECT
        WHEN result=0 THEN x=1
        WHEN result=1 THEN x=2
        WHEN result=2 THEN x=3
        WHEN result=3 THEN x=4
end

if x=1 then DO
        if a=4 then do
        call zocsend haggle104
        call zocsend "^M"
        end
        if a=3 then do
        call zocsend haggle103
        call zocsend "^M"
        end
        if a=2 then do
        call zocsend haggle102
        call zocsend "^M"
        end
        if a=1 then do
        call zocsend haggle101
        call zocsend "^M"
        end
        if a=0 then do
        call zocsend haggle100
        call zocsend "^M"
        end
a=a-1
end

if x=2 then do
        a=0
        return(0)
        end
if x=3 then do
        return(0)
        dead=1
end
if x=4 then do
        call zocsend haggle102
        call zocsend "^M"
        return(0)
end

END

RETURN(0)