home *** CD-ROM | disk | FTP | other *** search
/ cyber.net 2 / cybernet2.ISO / bioforge / script / maintmon.scp < prev    next >
Text File  |  1995-03-01  |  3KB  |  275 lines
  1.  
  2. { GR_MAINTENANCELOG
  3. P ~ÇÇ 
  4. P ~Çü 
  5. P ~Çé 
  6. P ~Çâ 
  7.  
  8. I @Çú THEN é 
  9.  "mant" 
  10. J #Çé 
  11.  
  12. :LOOP
  13.  
  14. â 
  15. J #Çü 
  16.  
  17. :MAINSCREEN
  18. m 
  19.  
  20. N ^åû 
  21. {
  22. U $âç 
  23.  "BK2A" 1 
  24. X ÇÇ 
  25. U $âê 
  26.  "BK3A" 1 
  27. X ÇÇ 
  28. }
  29.  
  30.  "ARNA" 1 
  31.  "MNTL" "MAINTENANCE
  32.                            /FMAINTENANCE
  33.                            /GWARTUNG" 
  34.  "AXTB" "EXIT/FSORTIE/GZURÜCK" $Ç┤ 
  35.  
  36.  "MRGB" "EMERGENCY/FALERTE/GNOTFALL" 
  37.  
  38.  "AGNB" "DATA LOG/FDONNEES/GDATEN" 
  39. J #Çü 
  40. :AGNB_BUTTON
  41. @Çå `üÉ 100 -2048 
  42. J #Çå 
  43. :MRGB_BUTTON
  44. @Çå `üÉ 100 -2048 
  45. J #Çû 
  46. :XITB_BUTTON
  47. @Çå `üÉ 100 -2048 
  48. J #Çé 
  49.  
  50. :DATALOGSCREEN
  51. m 
  52. N ^åû 
  53. {
  54. U $âç 
  55.  
  56.  "BK2A" 1 
  57.  
  58.  "BKGA" 1 
  59.  "LNML" "2" 
  60.  
  61. j "RLGT" "GMAINT" 
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85. ~ÇÇ = -1
  86. ~Çü = -1
  87. ~Çé = -1
  88.  "CHOA" 1 
  89.  "1RDA" ^
  90.  "2RDA" ^
  91.  "3RDA" ^怒
  92.  "NRDA" 1 
  93. X Çü 
  94. U $âê 
  95.  
  96.  "BK3A" 1 
  97.  
  98.  "BKGA" 1 
  99.  "LNML" "3" 
  100. j "RLGT" "CMAINT" 
  101.  "CTRA" 1 
  102. X Çü 
  103. }
  104.  
  105.  "LHDL" "AREA DATA LOG
  106.                            /FDONNEES LOCALES
  107.                            /GÖRTL. DATEN" 
  108.  "LVLL" "LVL/FNIV./GEB." 
  109.  
  110.  
  111.  "RPRB" $Ç╖ "REPAIR/FREPARER/GREPARATUR" 
  112.  "XITB" "EXIT/FSORTIE/GZURÜCK" $Ç┤ 
  113.  
  114.  "RSUB" "/! " 
  115.  "RSDB" "/! " 
  116.  "RPUB" "/! " 
  117.  "RPDB" "/! " 
  118. â 
  119.  
  120. I ^åû = $âê THEN 
  121. J #Çü 
  122. J #Çò 
  123. :RSUB_REPEAT
  124. :RSUB_BUTTON
  125. @Çå `ü« 
  126. k "RLGT" $Ç╛ 
  127. J #Çü 
  128. :RSDB_REPEAT
  129. :RSDB_BUTTON
  130. @Çå `ü« 
  131. k "RLGT" $Ç┐ 
  132. J #Çü 
  133. :RPDB_REPEAT
  134. :RPDB_BUTTON
  135. @Çå `ü» 
  136. k "RLGT" $Ç╜ 
  137. J #Çü 
  138. :RPUB_REPEAT
  139. :RPUB_BUTTON
  140. @Çå `ü» 
  141. k "RLGT" $Ç╝ 
  142. J #Çü 
  143. :C1REP_HIGHLIGHT
  144. ~ÇÇ = @Ç₧ "RLGT" 
  145.  "RPRB" $Ç│ 
  146. J #Çü 
  147. :C2REP_HIGHLIGHT
  148. ~Çü = @Ç₧ "RLGT" 
  149.  "RPRB" $Ç│ 
  150. J #Çü 
  151. :C3REP_HIGHLIGHT
  152. ~Çé = @Ç₧ "RLGT" 
  153.  "RPRB" $Ç│ 
  154. J #Çü 
  155. :A_HIGHLIGHT
  156. :X_HIGHLIGHT
  157.  "RPRB" $Ç╖ 
  158. @Çå `üÉ 
  159. J #Çü 
  160.  
  161. :RPRB_BUTTON
  162. @Çå `üÉ 150 -1024 
  163.  
  164. I ^åû == $âç THEN
  165. {
  166.  
  167. ~Çâ = @Ç₧ "RLGT" 
  168. I ~Çâ == ~ÇÇ THEN
  169. {
  170. @Çì REPAIR_MADE 
  171. ^= 0
  172. ~ÇÇ = -1 
  173.  "1RDA" ^
  174.  
  175. ë "GMAINT" "RLGT" "C1REP" 
  176. }
  177. E I ~Çâ == ~Çü THEN
  178. {
  179. @Çì REPAIR_MADE 
  180. ^= 0
  181. ~Çü = -1 
  182.  "2RDA" ^
  183. ë "GMAINT" "RLGT" "C2REP" 
  184. }
  185. E I ~Çâ == ~Çé THEN
  186. {
  187. @Çì REPAIR_MADE 
  188. ^怒= 0
  189. ~Çé = -1 
  190.  "3RDA" ^怒
  191. ë "GMAINT" "RLGT" "C3REP" 
  192. }
  193. }
  194. I ^åû = $âê THEN
  195. J #Çü 
  196. :RECALC_REPAIR_INDEXES
  197. k "RLGT" $Ç╝ 
  198.  
  199. ~Çâ = @Ç₧ "RLGT" 
  200. I ~Çâ == ~ÇÇ THEN
  201.  "RPRB" $Ç│ 
  202. E I ~Çâ == ~Çü THEN
  203.  "RPRB" $Ç│ 
  204. E I ~Çâ == ~Çé THEN
  205.  "RPRB" $Ç│ 
  206. E 
  207.  "RPRB" $Ç╖ 
  208. J #Çü 
  209.  
  210. :EMERGENCYSCREEN
  211. m 
  212.  
  213. N ^åû 
  214. {
  215. U $âç 
  216.  "BK2A" 1 
  217. X Çé 
  218. U $âê 
  219.  "BK3A" 1 
  220. X Çé 
  221. }
  222.  
  223.  "BKGA" 1 
  224. ê "LOGT" "EVAC" 
  225.  "ARAL" "FUSION REACTOR
  226.                            /FFUSION REACTEUR
  227.                            /GFUSIONSREAKTOR" 
  228.  "MHDL" "EMERGENCY PROCEDURE
  229.                            /FPROCEDURE D'URGENCE
  230.                            /GNOTFALL" 
  231.  
  232.  "SUAB" "/! " 
  233.  "SDAB" "/! " 
  234.  "PUAB" "/! " 
  235.  "PDAB" "/! " 
  236.  "XITB" "EXIT/FSORTIE/GZURÜCK" $Ç┤ 
  237. J #Çü 
  238. :SUAB_REPEAT
  239. :SUAB_BUTTON
  240. @Çå `ü« 
  241. k "LOGT" $Ç╛ 
  242. J #Çü 
  243. :SDAB_REPEAT
  244. :SDAB_BUTTON
  245. @Çå `ü« 
  246. k "LOGT" $Ç┐ 
  247. J #Çü 
  248. :PDAB_REPEAT
  249. :PDAB_BUTTON
  250. @Çå `ü» 
  251. k "LOGT" $Ç╗ 
  252. J #Çü 
  253. :PUAB_REPEAT
  254. :PUAB_BUTTON
  255. @Çå `ü» 
  256. k "LOGT" $Ç║ 
  257. J #Çü 
  258.  
  259. :ESCAPE_BUTTON
  260. :AXTB_BUTTON
  261. @Çå `ü▓ 
  262. :STOPIT
  263.  
  264. }
  265. [ REPAIR_MADE
  266. 00:20 @Çå `ü¡ 
  267. 00:25 @Çå `ü¡ 
  268. 01:00 @Çå `ü¡ 
  269. 01:10 @Çå `ü░ 255 2048 
  270. ]
  271.  
  272.  
  273.  
  274. //$ 26 - version number
  275.