/* REXX (CREATED BY ZOC LEARN MODE) */


CALL ZocRespond "Equipment do you want", "2^M"
CALL ZocRespond "Organics do you want", "5^M"
CALL ZocRespond "Ore do you want", "15^M"

CALL ZocTimeout 3600


call zocsend "d"
call zocwait "]:["
sector2=GETITALL(0,0)




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

call zocwait "our offer ["
offer2=GETITALL(0,0)
z=BUYHAGGLE(offer2)

call zocwait "our offer ["
offer3=GETITALL(0,0)
z=BUYHAGGLE(offer3)

call zocsend "jy"

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:
               
offer=arg(1)
haggle106=offer*94/100
haggle106=trunc(haggle106,0)
haggle105=offer*94.5/100
haggle105=trunc(haggle105,0)
haggle104=offer*95.5/100
haggle104=trunc(haggle104,0)
haggle103=offer*96.5/100
haggle103=trunc(haggle103,0)
haggle102=offer*97.5/100
haggle102=trunc(haggle102,0)
haggle101=offer*98.5/100
haggle101=trunc(haggle101,0)

call zocsend haggle105
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 haggle105
        call zocsend "^M"
        end
        if a=3 then do
        call zocsend haggle104
        call zocsend "^M"
        end
        if a=2 then do
        call zocsend haggle103
        call zocsend "^M"
        end
        if a=1 then do
        call zocsend haggle102
        call zocsend "^M"
        end
        if a=0 then do
        call zocsend haggle101
        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 haggle103
        call zocsend "^M"
        return(0)
end

END

RETURN(0)