Boldly Go Collection/version40.iso/TS/05B/SCR104A.ZIP/MAKETC3.CM0

Text File | 1991-12-28 | 7.5 KB | 425 lines

OpenBox 1  0 0 79 24 "- Scripta Generator for Wildcat! 3.00 with Tomcat! 3.00 "
%generate := TRUE
%getresp := FALSE
Gosub GetInfo
If %generate
   Shell "!Generate %packet !WC3TC3.TEM"
EndIf
CloseBox 1
Exit

:GetInfo
Fore YELLOW
RowCol 2 2
Message "QWK packet name used by BBS:"
RowCol 2 40
Message "Tomcat Key from Message Menu:"
RowCol 4 2
Message "Full name of BBS:"
RowCol 4 52
Message "Virtual Port:"
RowCol 6 2
Message "Username on this BBS:"
RowCol 6 51
Message "Date of Birth:"
RowCol 8 2
Message "Password on this BBS:"
RowCol 8 53
Message "Voice Phone:"
RowCol 10 2
Message "Telephone Number 1:"
RowCol 12 2
Message "Telephone Number 2:"
RowCol 14 2
Message "Telephone Number 3:"
RowCol 16 2
Message "Telephone Number 4:"
RowCol 18 2
Message "Seconds to wait for connection:"
RowCol 18 37
Message "Ask before deleting .F?L files?"
RowCol 20 2
Message "Gateway string:"
RowCol 20 39
Message "Response:"
CurOff
RowCol 22 2
Fore White
Message "Please wait..."
Gosub GetCFGFile
If %generate
   Gosub Display
EndIf
RowCol 22 2
CLL
CurOn
If %generate
   Gosub GetTomKey
EndIf
If %generate
   Gosub GetBBS
EndIf
If %generate
   Gosub GetPort
EndIf
If %generate
   Gosub GetUser
EndIf
If %generate
   Gosub GetDOB
EndIf
If %generate
   Gosub GetPword
EndIf
If %generate
   Gosub GetPhone
EndIf
If %generate
   Gosub GetNumbers
EndIf
If %generate
   Gosub GetWaitTime
EndIf
If %generate
   Gosub GetConfirm
EndIf
If %generate
   Gosub GetGateway
EndIf
If %generate & %getresp
   Gosub GetResponse
EndIf
If %generate
   Gosub PutCFGFile
EndIf
If %generate
   RowCol 22 2
   Fore Yellow
   Message "Continue with script generation? (Y/N) "
   Fore White
   %a := "z"
   While $eq(%a,"z")
      CurOn
      GetKey %a %b
      CurOff
      $caps %a
      If $eq(%a,"N")
         %generate := FALSE
      ElsIf $eq(%a,"Y")
         %generate := TRUE
      Else
         %a := "z"
      EndIf
   EndWhile
   Message %a
EndIf
Return

:Display
RowCol 2 31
Message "%packet"
RowCol 2 70
Message "%tomkey"
RowCol 4 20
Message "%bbs"
RowCol 4 66
Message %vport
RowCol 6 24
Message "%name"
RowCol 6 66
Message "%dob"
RowCol 8 24
Message "%pword"
RowCol 8 66
Message "%phone"
RowCol 10 22
Message "%numbera"
RowCol 12 22
Message "%numberb"
RowCol 14 22
Message "%numberc"
RowCol 16 22
Message "%numberd"
RowCol 18 34
Message "%waittime"
RowCol 18 69
Message "%confirm"
RowCol 20 18
Message %gateway
RowCol 20 49
Message |%response
Return

:GetTomKey
RowCol 2 70
%buffer := "%tomkey"
Input %buffer 1 1 %buffer
$caps %buffer
%generate := $len(%buffer) # 0
If %generate
   %tomkey := "%buffer"
EndIf
Return

:GetBBS
RowCol 4 20
%buffer := "%bbs"
Input %buffer 30 30 %buffer
%generate := $len(%buffer) # 0
If %generate
   %bbs := "%buffer"
EndIf
Return

:GetPort
RowCol 4 66
%buffer := "%vport"
Input %buffer 1 1 %buffer
%generate := $len(%buffer) # 0
If %generate
   %vport := "%buffer"
EndIf
Return

:GetUser
RowCol 6 24
%buffer := "%name"
Input %buffer 25 25 %buffer
%generate := $len(%buffer) # 0
If %generate
   %name := "%buffer"
EndIf
Return

:GetDOB
RowCol 6 66
%buffer := "%dob"
Input %buffer 6 6 %buffer
%generate := $len(%buffer) # 0
If %generate
   %dob := "%buffer"
EndIf
Return

:GetPword
RowCol 8 24
%buffer := "%pword"
Input %buffer 12 12 %buffer
%generate := $len(%buffer) # 0
If %generate
   %pword := "%buffer"
EndIf
Return

:GetPhone
RowCol 8 66
%buffer := "%phone"
Input %buffer 11 25 %buffer
%generate := $len(%buffer) # 0
If %generate
   %phone := "%buffer"
EndIf
Return

:GetNumbers
%i := 1
While %i < 5
   %row := 8+(2*%i)
   RowCol %row 22
   Case %i
     CaseOf 1
        %buffer := "%numbera"
     CaseOf 2
        %buffer := "%numberb"
     CaseOf 3
        %buffer := "%numberc"
     CaseOf 4
        %buffer := "%numberd"
   EndCase
   Input %buffer 25 25 %buffer
   If $len(%buffer) # 0
      If $eq(%buffer[0],"*")
         %buffer := ""
         RowCol %row 22
         Message "                         "
      EndIf
      Case %i
        CaseOf 1
           %numbera := "%buffer"
        CaseOf 2
           %numberb := "%buffer"
        CaseOf 3
           %numberc := "%buffer"
        CaseOf 4
           %numberd := "%buffer"
      EndCase
   EndIf
   Inc %i
EndWhile
Return

:GetWaitTime
RowCol 18 34
%buffer := "%waittime"
Input %buffer 2 2 %buffer
%generate := $len(%buffer) # 0
If %generate
   %waittime := "%buffer"
EndIf
Return

:GetConfirm
%buffer := "%confirm"
%old := "%buffer"
%ok := FALSE
While not %ok
   %ok := TRUE
   RowCol 18 69
   Input %buffer 1 1 %buffer
   $caps %buffer
   If $ne(%buffer,"Y") & $ne(%buffer,"N") & $ne(%buffer,"")
      %ok := FALSE
      %buffer := %old
   EndIf
EndWhile
%generate := $len(%buffer) # 0
If %generate
   %confirm := "%buffer"
EndIf
RowCol 18 69
Message %confirm
Return

:GetGateway
RowCol 20 18
%buffer := "%gateway"
Input %buffer 20 20 %buffer
%gateway := "%buffer"
%getresp := $len(%gateway) # 0
If not %getresp
   %response := ""
   RowCol 20 18
   Message "                    "
   RowCol 20 49
   Message "                    "
EndIf
Return

:GetResponse
%buffer := "%response"
%ok := FALSE
While not %ok
   RowCol 20 49
   Input %buffer 20 20 %buffer
   CurOn
   %ok := $len(%buffer) # 0
EndWhile
%response := "%buffer"
Return

:BadWrite
Message "Error writing to file " "%ScrName^M^J^M^J "
Gosub Bad
Return

:Bad
CurOff
Message "Press any key when ready."
GetKey %a %b
CurOn
Return

:PutCFGFile
%cfg := fopen %cfgname
If %Error
   Message "Error re-opening file " %cfgname
   %generate := FALSE
Else
   %cfg := fwrite T
   %cfg := fnewline
   %cfg := fwrite %name
   %cfg := fnewline
   %cfg := fwrite %pword
   %cfg := fnewline
   %cfg := fwrite %tomkey
   %cfg := fnewline
   %cfg := fwrite %dob
   %cfg := fnewline
   %cfg := fwrite %phone
   %cfg := fnewline
   %cfg := fwrite %bbs
   %cfg := fnewline
   %cfg := fwrite %numbera
   %cfg := fnewline
   %cfg := fwrite %numberb
   %cfg := fnewline
   %cfg := fwrite %numberc
   %cfg := fnewline
   %cfg := fwrite %numberd
   %cfg := fnewline
   %cfg := fwrite %waittime
   %cfg := fnewline
   %cfg := fwrite %gateway
   %cfg := fnewline
   %cfg := fwrite %response
   %cfg := fnewline
   %cfg := fwrite %vport
   %cfg := fnewline
   %cfg := fwrite %confirm
   %cfg := fnewline
   %cfg := fclose
EndIf
Return

:GetCFGFile
%tomkey := "T"
%name := ""
%dob := ""
%pword := ""
%phone := ""
%bbs := ""
%numbera := ""
%numberb := ""
%numberc := ""
%numberd := ""
%waittime := "20"
%gateway := ""
%response := ""
%vport := "%dport"
%confirm := "Y"
RowCol 22 2
%cfgname := "%packet..CFG"
%cfg := fopen %cfgname
If %Error
   %cfg := fcreate %cfgname
   If %Error
      Message "Unable to open or create file " %cfgname ". Press a key."
      CurOff
      GetKey %a %b
      CurOn
      %generate := FALSE
   Else
      Message "New file created - %cfgname"
      %cfg := fclose
   EndIf
Else
   %cfg := fread %name  ; dummy read to bypass the 'Type' byte
   %cfg := fread %name
   %cfg := fread %pword
   %cfg := fread %tomkey
   %cfg := fread %dob
   %cfg := fread %phone
   %cfg := fread %bbs
   %cfg := fread %numbera
   %cfg := fread %numberb
   %cfg := fread %numberc
   %cfg := fread %numberd
   %cfg := fread %waittime
   %cfg := fread %gateway
   %cfg := fread %response
   %cfg := fread %vport
   %cfg := fread %confirm
   %cfg := fclose
EndIf
Return