dirtpoor wrote: Sat Mar 19, 2011 4:53 am
Does anyone out there use Zoc? Would it be worth my time I mean, if I started work on a script for it?
I have found but one basic script in my collection for Zoc below. I'm sure you can edit it to your needs and enhance it with your knowledge. Send me a copy of whatever you make to add to my collection

.
MON1='huorn'
MON2='grizzly'
MON3='bloodbear'
MON4='bee'
MON5='imp'
MON6='pixie'
MON7='leprechaun'
MON8='quickling'
MON9='hobgoblin'
mon10='mist'
ATT='mete'
attd='dfir'
ENT='^M'
do forever
result= Zocwaitmux(MON1, MON2, MON3, MON4, MON5, MON6, MON7, MON8, MON9, 'exits:', 'here!', MON10)
SELECT
When result=0 then Call Zocsend att mon1 ent
When result=1 then Call Zocsend att mon2 ent
When result=2 then Call Zocsend att mon3 ent
When result=3 then Call Zocsend attd mon4 ent
When result=4 then Call Zocsend att mon5 ent
When result=5 then Call Zocsend att mon6 ent
When result=6 then Call Zocsend att mon7 ent
WHEN RESULT =7 THEN CALL ZOCSEND ATT MON8 ENT
WHEN RESULT=8 THEN CALL ZOCSEND ATT MON9 ENT
when result=9 then return
When result=10 then NOP
When result=11 then call ZOCSEND att MON10 ENT
otherwise
NOP
END
CALL ZOCTIMEOUT 12
result= Zocwaitmux('You gain', 'Your command had no effect.', 'fumble', 'here!')
select
When result=0 then call zocsend ENT
When result=1 then call zocsend ENT
When result=2 then call Zocsend ENT
When result=3 then call Zocsend ENT
otherwise
return
END
END