home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / COMM / MISC / CSCRIPT.ZIP / COMMO.MAC < prev    next >
Encoding:
Text File  |  1991-02-20  |  11.2 KB  |  260 lines
  1.                    ╔═══════════════════════════════════════╗
  2. ───────────────────╢            Script Parameters          ╟───────────────────
  3.                    ╚═══════════════════════════════════════╝
  4.  
  5.           1F = FishNet          5C = Connect           9V = Va Connect 2
  6.           2P = The Pitt         6V = Va Connect 1     10W = WildCat Den
  7.           3R = Robert's Room    7C = CrossRoads       11F = First Ammend
  8.           4P = PWSA             8D = DataBit          12V = Va Connect 3
  9.  
  10. {top}      {macr}{}
  11. {bbs}      {mark 1F,2P,3R,4P,5C,6V,7C,8D,9V,10W,11F,12V}{hold 04:30}
  12. {bb_}      {dial 75}{exit}
  13.                    ╔═══════════════════════════════════════╗
  14. ───────────────────╢           BBS Linked Macros           ╟───────────────────
  15.                    ╚═══════════════════════════════════════╝
  16. {bob}      {capt y,PATH:robert}{goto wc1}           - Robert's Room -
  17. ───────────────────────────────────────────────────────────────────────────────
  18. {pwa}      {capt y,PATH:pwsa}{goto wc1}             -     PWSA      -
  19. ───────────────────────────────────────────────────────────────────────────────
  20. {rod}      {capt y,PATH:crossrds}{goto rb1}         -   Crossroads  -
  21. ───────────────────────────────────────────────────────────────────────────────
  22. {fsh}      {capt y,PATH:fishnet}
  23.            {exen rem >PATH:fish.bbs}{goto pc1}      -    FishNet    -
  24. ───────────────────────────────────────────────────────────────────────────────
  25. {ptt}      {capt y,PATH:thepitt}{goto pc1}          -     Pitt      -
  26. ───────────────────────────────────────────────────────────────────────────────
  27. {cnn}      {capt y,PATH:connect!}                   -    Connect!   -
  28.     {cn1}  {setl 90,gby,30,|}
  29.            {golo cn6,Escape key}
  30.            {look full name:}{send FIRST LAST|}
  31.            {look Password:}{send #|}
  32.     {cn2}  {golo cn4,[Y/n]}
  33.     {ct2}  {golo cn5,to continue}
  34.            {look Select:}
  35.            {exen if exist %c.rep ren PATH:rep.off rep.on}
  36.     {r10}  {send m}
  37.            {look Select:}{send w}
  38.     {ra1}  {setl 120,gby,,}
  39.            {golo ra2,press any key}
  40.            {golo ra6,Select:}
  41.            {look Command?}
  42.            {ifex PATH:rep.on,,rad}
  43.            {send u}
  44.            {look ^XB01}{call zup}
  45.     {ra8}  {golo ra7,press any key}
  46.            {look Command?}{exen ren PATH:rep.on rep.off}
  47.     {rad}  {send d}
  48.            {golo ra9,No mail today}
  49.            {look (A)bort Transfer}{send c}
  50.            {look ^XB00}{call zdn}
  51.     {ra4}  {golo ra3,press any key}
  52.            {look command?}{send q}
  53.     {f_s}  {setl 240,,gby}
  54.            {look Select:}
  55.     {fs1}  {send f}
  56.            {look Select:}{send c}
  57.     {ct3}  {golo ct4,[Y/n}
  58.            {golo ct4,[Return] to continue:}
  59.            {look Select:}
  60.     {ggg}  {send g}
  61.            {look Select:}{send h}
  62.            {look no carrier}{goto gby}
  63.     {cn4}  {send n}{goto cn2}
  64.     {cn5}  {send |}{goto ct2}
  65.     {cn6}  {send ^[}{goto cn1}
  66.     {ct4}  {send |}{goto ct3}
  67.     {ra2}  {send ~ }{goto ra1}
  68.     {ra3}  {send ~ }{goto ra4}
  69.     {ra7}  {send ~ }{goto ra8}
  70.     {ra9}  {send ~ }{look Command?}{send q}{goto f_s}
  71.     {ra6}  {ifex PATH:loop.bbs,fs1,}
  72.            {exen rem >PATH:loop.bbs}{goto r10}
  73. ───────────────────────────────────────────────────────────────────────────────
  74. {dbt}      {capt y,PATH:databit}                    -    DataBit    -
  75.            {exen rem >PATH:db.bbs}{goto pc1}
  76. ───────────────────────────────────────────────────────────────────────────────
  77. {vir}      {capt y,PATH:virgin}                     -   Va Connect  -
  78.            {unmark 6V,9V,12V}
  79.            {exen rem >PATH:virgin.bbs}{goto pc1}
  80. ───────────────────────────────────────────────────────────────────────────────
  81. {cat}      {capt y,PATH:catden}                     -  WildCat Den  -
  82.            {exen rem >PATH:catden.bbs}{goto wc1}
  83. ───────────────────────────────────────────────────────────────────────────────
  84. {fmm}      {capt y,PATH:1stamend}                   -  First Amend  -
  85.            {exen rem >PATH:1stamend.bbs}{goto wc1}
  86.                    ╔═══════════════════════════════════════╗
  87. ───────────────────╢            WildCat!/TomCat!           ╟───────────────────
  88.                    ╚═══════════════════════════════════════╝
  89. {wc1}      {setl 180,gby,8,|}
  90.            {golo wc4,twice for BBS}
  91.            {golo wc4,twice to enter BBS}
  92.            {golo wc5,[N]onstop}
  93.            {look First Name?}
  94.            {exen if exist %c.rep ren PATH:rep.off rep.on}
  95.            {exen if exist %c.pth ren PATH:bi.off bi.on}
  96.            {send ~FIRST LAST #|}
  97.     {wc2}  {golo bdy,birth date}
  98.            {golo ph#,phone number}
  99.            {golo gby,no carrier}
  100.            {look This is your}
  101.            {send     }
  102.     {snd}  {golo snn,special bulletin}
  103.     {wc3}  {golo wc6,[N]onstop}
  104.            {golo wc7,quit:}
  105.            {golo y_n,y/n}
  106.            {golo wc7,[ENTER] to continue}
  107.            {golo gby,no carrier}
  108.            {look main menu}
  109.            {ifex PATH:catden.bbs,cd1,}
  110.            {ifex PATH:1stamend.bbs,fa1,}
  111.            {ifex PATH:bi.on,,ma2}
  112.            {send f}
  113.            {look file menu}{exen ren %c.pth bimodem.pth}
  114.            {send d}
  115.            {look Select:}{send ~b}
  116.     {bzx}  {golo bzz,to Which Area}
  117.            {look ┬Θ═∩Σσφ}{call bim}
  118.            {look file menu}{exen ren PATH:bi.on bi.off}
  119.            {send q}{look main menu}
  120.     {ma2}  {send ~m}
  121.            {setl 180,gby,60,|}{look message menu}{send ~o}
  122.     {tc1}  {golo tc3,[ENTER] to continue}
  123.     {tc4}  {look tomcat menu}
  124.            {ifex PATH:rep.on,,tc2}
  125.            {send u}
  126.            {look ^xB01}{call zup}
  127.            {golo gby,no carrier}
  128.            {look tomcat menu}{exen ren PATH:rep.on rep.off}
  129.     {tc2}  {send d}
  130.            {golo nd9,Nothing to download}
  131.            {look ^xB00}{call zdn}
  132.     {nd9}  {look tomcat menu}
  133.            {send q}
  134.            {golo n10,[C]ontinue}
  135.     {n11}  {look MAIN MENU}{send ~g~ }
  136.            {look no carrier}{goto gby}
  137.     {n10}  {send |}{goto n11}
  138.     {wc4}  {send ^[~^[}{goto wc1}
  139.     {wc5}  {send |}{goto wc1}
  140.     {bdy}  {send MMDDYY|}{look Y/n}{send Y|}{goto wc2}
  141.     {ph#}  {send 703XXXXXXX|}{look Y/n}{send Y|}{goto wc2}
  142.     {y_n}  {send n}{goto wc3}
  143.     {wc6}  {send s}{goto wc3}
  144.     {wc7}  {send |}{goto wc3}
  145.     {tc3}  {send |}{goto tc1}
  146.     {bzz}  {send ~z}{goto bzx}
  147.     {cd1}  {send d~ }
  148.            {look [Enter] to quit:}{send 14|}
  149.            {golo cd2,From Your Reader Now}
  150.            {look ^XB01}
  151.     {cd2}  {exec dsz port %p sz -mu PATH:catden.ul}
  152.            {look ^XB00}{exec dsz port %p rz -m PATH:}
  153.            {look main menu}{send ~g~}
  154.            {look no carrier}{goto gby}
  155.     {fa1}  {send d~ }
  156.            {look [Enter] to quit}{send ~1|}
  157.            {goto tc4}
  158.     {snn}  {send |   }{goto snd}
  159.                    ╔═══════════════════════════════════════╗
  160. ───────────────────╢        PCBoard/DJMail/MarkMail        ╟───────────────────
  161.                    ╚═══════════════════════════════════════╝
  162. {pc1}      {setl 180,gby,,}
  163.            {golo pc4,=no?}
  164.            {golo pc4,want ansi graphics?}
  165.            {golo gby,no carrier}
  166.     {nnn}  {look first name?}
  167.            {exen if exist %c.rep ren PATH:rep.off rep.on}
  168.            {exen if exist %c.pth ren PATH:bi.off bi.on}
  169.            {send FIRST LAST #|}
  170.     {pc2}  {golo pc5,to continue}
  171.            {golo pc6,more?}
  172.            {golo pc6,=yes?}
  173.            {golo gby,no carrier}
  174.            {look Command}
  175.            {ifex PATH:bi.on,,ma1}
  176.            {exec ren %c.pth bimodem.pth}
  177.            {send open 2|}
  178.            {look ┬Θ═∩Σσ}{call bim}
  179.            {look Command?}{exec ren PATH:bi.on bi.off}
  180.     {ma1}  {ifex PATH:virgin.bbs,mmo,}
  181.            {ifex PATH:fish.bbs,jmo,}
  182.            {ifex PATH:db.bbs,mm_,}
  183.            {send djmail|}
  184.     {pc8}  {setl 180,gby,60,g|}
  185.            {look Command?}
  186.            {ifex PATH:rep.on,,pc3}
  187.            {send u|}
  188.            {look ^XB01}{call zup}
  189.            {look command?}{exen ren PATH:rep.on rep.off}
  190.     {pc3}  {send d|}
  191.            {golo nmf,No messages found}
  192.            {golo nmf,nothing to send}
  193.            {golo p77,when done?}
  194.            {look this Mail Packet?}
  195.     {p77}  {send y|}
  196.     {pcp}  {look ^XB00}{call zdn}
  197.            {setl 120,gby,,}
  198.            {golo gby,no carrier}
  199.     {mmm}  {golo mm2,to Continue?}
  200.            {look Command?}{send q|}{look Command}{send ~g|}
  201.            {golo vc2,more?}
  202.            {look no carrier}{goto gby}
  203.     {pc4}  {send n q ns|}{goto nnn}
  204.     {pc5}  {send |}{goto pc2}
  205.     {pc6}  {send n|}{goto pc2}
  206.     {nmf}  {look Command?}{send q|}{look Command?}{send g|}
  207.            {golo vc2,more?}
  208.            {look no carrier}{goto gby}
  209.     {mm2}  {send |}{goto mmm}
  210.     {mmo}  {send ~open 11|}{goto pc8}
  211.     {jmo}  {send jmail|}{goto pc8}
  212.     {mm_}  {send open 14|}{goto pc8}
  213.     {vc2}  {send n|}{goto gby}
  214.                    ╔═══════════════════════════════════════╗
  215. ───────────────────╢             RBBS/MegaMail             ╟───────────────────
  216.                    ╚═══════════════════════════════════════╝
  217. {rb1}      {setl 180,gby,10,|}
  218.            {golo pak,to continue}
  219.            {look first name?}
  220.            {send FIRST LAST # !|}
  221.            {golo gby,no carrier}
  222.            {look main}{send d mega1|}
  223.            {setl 180,gby,,}
  224.            {look ^XB01}{exec dsz port %p sz -mu PATH:crossrds.ul}
  225.            {look ^XB00}{exec dsz port %p rz -m PATH:}
  226.            {look (dots echo)?}{send #|}
  227.            {golo gby,no carrier}
  228.            {look main}{send ~g|}
  229.     {rb5}  {look no carrier}{goto gby}
  230.     {pak}  {send |}{goto rb1}
  231.                    ╔═══════════════════════════════════════╗
  232. ───────────────────╢        Protocol Command Strings       ╟───────────────────
  233.                    ╚═══════════════════════════════════════╝
  234. {zup}      {exec dsz port %p pB4096 sz -mu %c.rep}{retu}
  235. {zdn}{.z.} {exec dsz port %p pB4096 rz -m PATH:}{retu}
  236. {bim}      {exec bimodem /c BIPTH:\bimodem.cfg /p PATH:bimodem.pth}{retu}
  237.                    ╔═══════════════════════════════════════╗
  238. ───────────────────╢         General Purpose Macros        ╟───────────────────
  239.                    ╚═══════════════════════════════════════╝
  240. {nf3}   {pass|}{}
  241. {gby}   {paus 3}{hang y}{clear}{capt n}
  242.         {exen if exist PATH:rep.on ren PATH:rep.on rep.off}
  243.         {exen if exist PATH:bi.on ren PATH:bi.on bi.off}
  244.         {exen if exist PATH:bimodem.pth del PATH:bimodem.pth}
  245.         {exen del PATH:*.bbs}
  246.         {retu}
  247.                    ╔═══════════════════════════════════════╗
  248. ───────────────────╢         ANSI Keypad Sequences         ╟───────────────────
  249.                    ╚═══════════════════════════════════════╝
  250. {hom} {send ^[[H} {}                                         Home
  251. {upa} {send ^[[A} {}                                         Up Arrow
  252. {lfa} {send ^[[D} {}                                         Left Arrow
  253. {rta} {send ^[[C} {}                                         Right Arrow
  254. {end} {send ^[[K} {}                                         End
  255. {dna} {send ^[[B} {}                                         Down Arrow
  256. {pgd} {send ^[[q} {}                                         Page Down
  257. {ins} {send ^[[n} {}                                         Insert
  258. {del} {send }    {}                                         Delete
  259. ═══════════════════════════════════════════════════════════════════════════════
  260.