home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / mb960323.arj / MAUS.SCR < prev    next >
Encoding:
Text File  |  1996-03-23  |  4.9 KB  |  177 lines
  1. ; *******************************************************************
  2. ; Script:    MAUS.SCR                                               *
  3. ; mb-info:   Standardanruf bei einer Maus (PC)
  4. ; Ersteller: Holger Lembke                                          *
  5. ; Erstellt:  11.06.94, 12.06.94, 23.10.94                           *
  6. ; Wartung:   28.10.94, 08.11.94, 03.12.1994, 08.12.1994,            *
  7. ; Wartung:   05.02.95 (Madness), 10.02.1995, 19.06.1995 J.H.        *
  8. ; *******************************************************************
  9. ; Hinweise:                                                         *
  10. ; - Tausch funktioniert nur mit Z-Modem                             *
  11. ; *******************************************************************
  12. call debug.scr
  13. call anruf.scr
  14. message Maus-Login
  15.  
  16. ; *******************************************************************
  17. ; *******************************************************************
  18. ; *******************************************************************
  19. ; * Verteiler: Was für ein System rufen wir eigentlich an??
  20. @initcall:
  21. event $connectwait error
  22. scan4sub "line >" madness
  23. scan4sub "Benutzer? (J/N)" benutzer
  24. scan4sub leertaste leertaste
  25. goto mainloop
  26.  
  27. ; *******************************************************************
  28. ; *******************************************************************
  29. ; *******************************************************************
  30. ; * Relogin-Geschichten
  31. @relogin:
  32. send ^m
  33. goto initcall
  34.  
  35. ; *******************************************************************
  36. ; *******************************************************************
  37. ; *******************************************************************
  38. ; * Hier loopt es. Raus nur, bei SCAN4SUB oder Carrierverlust
  39. @mainloop:
  40. delay 500
  41. goto mainloop
  42.  
  43. ; notbremse, wenn carrier weg, eigentlich überflüssig
  44. goto ende
  45.  
  46. ; *******************************************************************
  47. ; *******************************************************************
  48. ; *******************************************************************
  49. ; * Ab hier nur PC-Maus-Geschichten, Scanner definieren
  50. @benutzer:
  51. send J
  52. scan4sub leertaste leertaste
  53. scan4sub eingabe: tauschit
  54. scan4sub protokoll: protokoll
  55. ; scan4sub startet: downstart
  56. scan4sub "ihr password" passwort
  57. scan4sub "ihr name" Name
  58. delay 1000
  59. goto mainloop
  60.  
  61. @name:
  62. send $username^m
  63. Message Username gesendet...
  64. delay 1000
  65. goto mainloop
  66.  
  67. @passwort:
  68. send $passwort^m
  69. Message Passwort gesendet...
  70. delay 1000
  71. goto mainloop
  72.  
  73. @leertaste:
  74. send ^`
  75. delay 1000
  76. goto mainloop
  77.  
  78. @tauschit:
  79. send T
  80. delay 1000
  81. goto mainloop
  82.  
  83. @protokoll:
  84. Message Paket versenden
  85. status loginok
  86. eventkill all
  87. external uparc
  88. delay 1000
  89. send Z
  90. external upload
  91. delay 1000
  92. scan4sub startet: downstart
  93. Message Paket versendet.. Maus baut Datenpaket
  94. goto mainloop
  95.  
  96. ; *******************************************************************
  97. @downstart:
  98. Message Paket empfangen
  99. external download
  100. ; fertig
  101.  
  102. ; *******************************************************************
  103. ; * Hier ist der Netcall nun zu beenden. Optional könnte jetzt ein **
  104. ; * File-Download-Script angestartet werden. ************************
  105. ; * Hier werden nur die Scanner neu gesetzt, um zu beenden **********
  106. scankill all
  107. scan4sub leertaste leertaste
  108. scan4sub eingabe: beenden
  109. scan4sub "wirklich aufh" aufhoeren
  110. goto mainloop
  111.  
  112. ; *******************************************************************
  113. @beenden:
  114. Message Trennung einleiten
  115. send S
  116. delay 1000
  117. goto mainloop
  118.  
  119. ; * Das kann auch passieren: Wollen Sie wirklich aufhören? **********
  120. @aufhoeren:
  121. send J
  122. delay 1000
  123. goto ende
  124.  
  125. ; *******************************************************************
  126. ; *******************************************************************
  127. ; *******************************************************************
  128. ; * Ab hier die Spezialgeschichten für Madness-System
  129. @madness:
  130. send MTausch^m
  131. scan4sub "name" madname
  132. scan4sub "passwort" madpasswort
  133. goto mainloop
  134.  
  135. ; *******************************************************************
  136. @madname:
  137. send $username^m
  138. Message Username gesendet...
  139. goto mainloop
  140.  
  141. ; *******************************************************************
  142. @madpasswort:
  143. send $passwort^m
  144. status loginok
  145. eventkill all
  146. scankill all
  147. Message Passwort gesendet...
  148. delay 1000
  149. Message Paket versenden
  150. external uparc
  151. delay 1000
  152. external upload
  153. delay 1000
  154. Message Paket versendet.. Maus baut Datenpaket
  155. ; Scanner für Auto-Download definieren
  156. scan4sub **^xB maddown
  157. goto mainloop
  158.  
  159. ; *******************************************************************
  160. @maddown:
  161. Message Paket empfangen
  162. external download
  163. goto ende
  164.  
  165.  
  166. ; *******************************************************************
  167. ; *******************************************************************
  168. ; * Ende ************************************************************
  169. @ende:
  170. call auflegen.scr
  171. exit
  172.  
  173. @error:
  174. exit 2
  175. 
  176.  
  177.