


                  QModem CIM Capture Script for TW Explorer

                                      by

                                 Tim Stewart
                       Timbucktwo #189 @811 VirtualNET
                     Internet: stewartt@emh.kadena.af.mil


              TWXQMODM.TXT file compiled by Paul W. Gibbons from
                           material by Tim Stewart.


       

        Hey Paul,

        I have improved the script; I use it daily so I know it's good
        to go now.  The only item people would have to tinker with would
        be the path.  I use QModem 5.01; users with the older shareware
        versions would use a path of \QMODEM\XXX\XXX.XX.  I also added a
        file backup and change directory to the QModem home directory to
        correct a problem with running the script twice consecutively.

                                                        Tim

        P.S.  Please credit Dave Ballew for the GoComp routine; he wrote
              it for TW View & I patched it & added some things for your
              great program.

       

;
; CAPTURE CIM FOR TW EXPLORER
;
; by Tim Stewart.  GoComp routine by Dave Ballew.
;
; Written for QModem 5.01
;
STRING  ORGDIR
Assign  ORGDIR  "\QMODEM"
DO_CAP;
PutScr
GOSUB GOCOMP
; Backup old capture file.  PART is my current game - substitute your
; filename in its place
DOS "COPY TW\PART.TWX TW\PART.BAK"
DOS "DEL TW\PART.TWX"
TIMEOUT 180
SEND ""
CAPTURE TW\PART.TWX
WAITFOR ":"
SEND "I"
WAITFOR ":"
SEND "R"
WAITFOR ":"
TURNOFF CAPTURE
SEND "Q"
SEND "N"
SEND "Q"
; CD to original directory
CHDIR $ORGDIR
Exit

;
; Get into Computer Routine
;
GOCOMP:
SEND "Q"
WHEN "Citadel command" "C"
WHEN "TL" "C"
WHEN "Quit" "N"
WHEN "Cannon" "^M"
WHEN "Planet command" "C"
WAITFOR "Computer command"
GOSUB WHENFIX
SEND "N"
WHEN "now on" "N"
WAITFOR "now OFF"
GOSUB WHENFIX
RETURN

;
; Fix all those when's subroutine
;
WHENFIX:
WHEN
WHEN "Pause" "^M"
RETURN
