home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 4 / SPCD4.bin / bioforge / script / conoper.scp < prev    next >
Encoding:
Text File  |  1995-02-20  |  10.2 KB  |  977 lines
  1.  
  2. { OPR_LOAD
  3. I ^üä THEN
  4. {
  5. I @Ç¢ DANE THEN
  6. {
  7. G DANE_LOC
  8. ┬ 
  9. ª DANE_LOC
  10.  OPR1 OPR4 OPR6 OPR7
  11. }
  12. }
  13. }
  14.  
  15. { BATTERY_USE
  16. I @Ç¢ PLAYER = $üé THEN
  17. {
  18. ! "Can't find Lex!" 
  19. é 
  20. }
  21.  
  22. I @ÇÜ DANEBAT THEN
  23. {
  24. A OFF
  25. É RTHAND
  26. n CURITEM BAT_100
  27. .ÇüÇé = $ü£ 
  28. .ÇüÇü = 100
  29. M LOOK_CONSOLE
  30. f CARRY
  31. u CURITEM ON
  32. Z CURITEM ON
  33. M RET_FRM_CNSOLE
  34. A ON
  35.  
  36. I ^üä = $üé THEN é 
  37. E 
  38. {
  39. I @Ç¢ DANE THEN
  40. @Çì DANE_DEATH
  41. }
  42. W 20 SECONDS
  43. i LEX ORBATT
  44. }
  45. } 
  46.  
  47. { DANEHEAD
  48. I ^üä = $üé THEN é 
  49. I ^üå = $üé THEN
  50. {
  51. ^üå = $üâ 
  52. @Ç¢ PLAYER 
  53. A OFF
  54. M STAND CONTINUE SNAP_TO NO_SCRIPT
  55. â 
  56. â 
  57. o 
  58. ^Ç╡ += 1
  59.  @Ç║ `é╝ $üå "DANE: Don't let them put me back together.../FNe les laisse pas me réparer.../GLaß  sie mich nicht wieder zusammenflicken..." 
  60. C OPR7
  61. @Çì DANE_LOOKS_RIGHT
  62. W 30
  63.  @Ç║ `é╜ $üå "I don't want to be walking around, like you./FJe ne veux pas devenir comme toi./GIch will nicht wie du herumlaufen." 
  64. W 45
  65. @Çì DANE_LOOKS_UP
  66.  @Ç║ `é╛ $üå "Just do it... KILL ME!/FVas-y... Tue-moi !/GMach schon... töte mich!" 
  67. C UNLOCK
  68. @Ç¢ PLAYER 
  69. ^Ç╡ -= 1
  70. A ON
  71. }
  72. }
  73.  
  74. { DANEHEAD_PHOTO_USE
  75.  
  76. I @Ç│ CURFIG DANE_LOC NOTIN -45 45 THEN é 
  77.  
  78. I ^üä = $üé THEN é 
  79. I ^üç THEN é 
  80. A OFF
  81. ^üç = $üâ 
  82.  
  83. M SHOW_DANE CONTINUE
  84. W 1 SECOND
  85. @Çì DANE_LOOKS_UP
  86.  @Ç║ `ëò $üå "DANE: Who is she? /FQui est-ce ? /G Wer ist sie?" 
  87. ^üç = $üé 
  88. A ON
  89. }
  90.  
  91. { CNT_BTN1_USE
  92.  
  93. £ OPBTNLOC GRADUAL
  94. M PUSH_BUTTON CONTINUE
  95. W 15
  96. I ^çë THEN
  97. {
  98. @Çå `Çì 150 -4096 
  99. é 
  100. }
  101. E 
  102. @Çå `Çì 150 -2048 
  103. I ^THEN 
  104. {
  105. @Çå `Çì 150 -4096 
  106. W 10
  107. @Ç║ `Çç $üê "COMPUTER: This is a restricted area./FZone interdite aux~personnes non autorisées./GZugang verboten" 
  108. é 
  109. }
  110.  
  111. I ^ä▒ = $ââ THEN J #Çà 
  112. I ^ä▒ = $âé THEN J #Çå 
  113. :OPEN_DR3
  114. @Çì OPEN_OP_DOOR
  115. @Çì AUTO_CLOSE_OP_DOOR
  116. é 
  117. :CLOSE_DR3
  118. @Çì CLOSE_OP_DOOR
  119. }
  120. { OPEN_OP_DOOR
  121. ^Ç░ = 1
  122. @Çì OR_DOOR_OPEN_ANI
  123. ^ä▒ = $âé 
  124. }
  125. { CLOSE_OP_DOOR
  126. ^Ç░ = 16
  127. @Çì OR_DOOR_CLOSE_ANI
  128. ^ä▒ = $ââ 
  129. }
  130.  
  131. { OPENOPDR
  132.  
  133. I ^ä▒ = $âé THEN é 
  134.  
  135. I ^ëÉ = $üé AND ^Ç┐ = $üé THEN é 
  136. @Çì OPEN_OP_DOOR
  137. @Çì AUTO_CLOSE_OP_DOOR
  138. I ^üå AND ^üä THEN
  139. i LEX DANELIVE
  140. }
  141. { AUTO_CLOSE_OP_DOOR
  142.  
  143. :TOP
  144. â 
  145.  
  146. I ^ä▒ = $ââ THEN é 
  147. I @Ǽ CURFIG DR13 < 350 THEN J #Çï
  148.  
  149. @Çì CLOSE_OP_DOOR
  150. }
  151. { OPRMONE_USE
  152. ^Ç╢ ++
  153. I @Çä IN -150 -30 THEN
  154. {
  155. M LOOK_AT_MON FREEZE
  156. @Ç¥ OR_MONITOR
  157. M STAND CONTINUE
  158. }
  159. ^Ç╢ --
  160. }
  161. { OPRMONW_USE
  162. ^Ç╢ ++
  163. I @Çä IN 30 150 THEN
  164. {
  165. M LOOK_AT_MON FREEZE
  166. @Ç¥ OR_MONITOR
  167. M STAND CONTINUE
  168. }
  169. ^Ç╢ --
  170. }
  171.  
  172.  
  173.  
  174. { OR_MONITOR
  175. P ~ÇÇ 
  176. P ~Çü 
  177. ~Çü = 0
  178.  "oprm"
  179. :OPER_ATTRACT
  180.  
  181. m 
  182.  
  183. I @Ç⌐ HARD THEN
  184.  "hrda" 1
  185.  
  186.  "arna" 1
  187.  "hedl" $Ç│ "MEDICAL DATABASE/FDONNEES MEDICALES/GMEDIZINISCHE DATENBANK"
  188.  "aplb" "PROJECT LOGS/FFICHIERS PROJET/GPROJEKTLOGBUCH"
  189.  "achb" "CASE HISTORIES/FPASSE PERSONNEL/GAUFZEICHNUNGEN"
  190.  "axtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  191.  
  192. â 
  193.  
  194. :LOOP
  195.  
  196. â 
  197. J #ÇÉ 
  198.  
  199. :OPER_LOG
  200.  
  201. m 
  202.  
  203. I @Ç⌐ HARD THEN
  204.  "hrda" 1
  205.  
  206.  "rbka" 1
  207.  "hedl" $Ç│ "PROJECT LOG/FFICHIER PROJET/GPROJEKTLOGBUCH"
  208. ê "txtt" "orlog"
  209.  "pgub" ""
  210.  "pgdb" ""
  211.  "sgub" ""
  212.  "sgdb" ""
  213.  "xitb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  214.  
  215. â 
  216. ~Çü = 1
  217.  
  218. J #ÇÉ 
  219.  
  220. :OPER_HISTORIES_ATTRACT
  221.  
  222. m 
  223.  
  224. I @Ç⌐ HARD THEN
  225.  "hrda" 1
  226.  
  227.  "arna" 1
  228.  "hedl" $Ç│ "AFA CASE HISTORIES/FPASSE PERSONNEL ACA/GAFA FÄLLE"
  229.  "hbdb" "BIO DATA/FDONNEES BIO/GBIODATEN"
  230.  "hsab" "SECURE DATA/FSAUVER DONNEES/GGEHEIMDATEN"
  231.  "hxtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  232.  
  233. â 
  234.  
  235. J #ÇÉ 
  236. :OPER_HISTORIES
  237.  
  238.  
  239. @Ç¥ PERSONALITY_WEB_COMPUTE
  240. i LEX ORFILES
  241. m 
  242.  
  243. I @Ç⌐ HARD THEN
  244.  "hrda" 1
  245.  
  246.  "hedl" $Ç│ "AFA CASE HISTORIES/FPASSE PERSONNEL ACA/GAFA FÄLLE"
  247.  "hpfa" 1
  248. j "SL1T" "ornotes"
  249.  
  250. « "SL1T" "WARNING"
  251. « "SL1T" "SELMAK"
  252. « "SL1T" "CAYNAN"
  253. « "SL1T" "BLADE"
  254. « "SL1T" "SARTA"
  255. « "SL1T" "NORAL"
  256. « "SL1T" "RASMER"
  257. « "SL1T" "DRAGIL"
  258. « "SL1T" "FARRDAY"
  259. « "SL1T" "LEXXEN"
  260. « "SL1T" "PAGE"
  261. « "SL1T" "MARKO"
  262. « "SL1T" "STROM"
  263. « "SL1T" "HIGHILL"
  264. « "SL1T" "TREMNOR"
  265. « "SL1T" "LANO"
  266. « "SL1T" "DODESKADEN"
  267. « "SL1T" "TRUSTIC"
  268. « "SL1T" "ESKABERA"
  269. « "SL1T" "MONIK"
  270. « "SL1T" "WARNA"
  271. « "SL1T" "SOO"
  272. « "SL1T" "DANE"
  273. « "SL1T" "RATHMAN"
  274. « "SL1T" "ONE"
  275. « "SL1T" "SIDIG"
  276. j "SL2T" "orresult"
  277.  
  278. I ^ï░ = 1 THEN
  279. {
  280.  "stpa" 1
  281.  "stpl" $Ç│ "RESTRICTED/FINTERDIT/GVERBOTEN"
  282. }
  283. E 
  284. {
  285.  "stpa" 0
  286.  "stpl" $Ç▓ " "
  287. }
  288.  
  289.  "faca" 1
  290.  "hsub" ""
  291.  "hsdb" ""
  292.  "hpub" ""
  293.  "hpdb" ""
  294.  "slub" ""
  295.  "sldb" ""
  296.  "hsxb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  297.  
  298. â 
  299.  
  300. J #ÇÉ 
  301.  
  302.  
  303. :OPER_SECURITY
  304.  
  305. m 
  306.  
  307. I @Ç⌐ HARD THEN
  308.  "hrda" 1
  309.  "hedl" $Ç│ "SECURITY ACCESS/FACCES SECURITE/GSICHERHEITSZUGANG"
  310.  "snba" 1
  311.  
  312.  "s1db" "1"
  313.  "s2db" "2"
  314.  "s3db" "3"
  315.  "s4db" "4"
  316.  "s5db" "5"
  317.  "s6db" "6"
  318.  "s7db" "7"
  319.  "s8db" "8"
  320.  "s9db" "9"
  321.  "s0db" "0"
  322.  "sclb" "CLEAR/FEFFACER/GNEU"
  323.  "sxtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  324. J #üÄ 
  325.  
  326. :APLB_BUTTON
  327. @Çå `ü¡ 
  328. J #Çæ 
  329. :ACHB_BUTTON 
  330. @Çå `ü░ 
  331. J #ÇÆ 
  332. :AXTB_BUTTON
  333. :ESCAPE_BUTTON
  334. @Çå `ü▓ 
  335.  
  336. ^ï░ = 1
  337. I ^ëÆ = 1 THEN
  338. {
  339. ^ëÆ = 2
  340. i LEX LEXID
  341. }
  342. I ~Çü THEN
  343. i LEX MADMAN
  344.  
  345. :PGUB_REPEAT
  346. :PGUB_BUTTON
  347. @Çå `ü« 
  348. k "txtt" $Ç║ 
  349. J #ÇÉ 
  350. :PGDB_REPEAT
  351. :PGDB_BUTTON
  352. @Çå `ü« 
  353. k "txtt" $Ç╗ 
  354. J #ÇÉ 
  355. :SGUB_REPEAT
  356. :SGUB_BUTTON
  357. @Çå `ü» 
  358. k "txtt" $Ç╛ 
  359. J #ÇÉ 
  360. :SGDB_REPEAT
  361. :SGDB_BUTTON
  362. @Çå `ü» 
  363. k "txtt" $Ç┐ 
  364. J #ÇÉ 
  365. :XITB_BUTTON
  366. @Çå `ü▒ 
  367. J #ÇÅ 
  368.  
  369. :HBDB_BUTTON
  370. @Çå `ü▒ 
  371. J #Çô 
  372.  
  373. :HSAB_BUTTON
  374. @Çå `ü▒ 
  375. J #Çö 
  376. :HXTB_BUTTON
  377. @Çå `ü▒ 
  378. J #ÇÅ 
  379.  
  380.  
  381. :HPUB_REPEAT
  382. :HPUB_BUTTON
  383. @Çå `ü« 
  384. k "SL1T" $Ç╝ 
  385. J #Ç▓ 
  386. :HPDB_REPEAT
  387. :HPDB_BUTTON
  388. @Çå `ü« 
  389. k "SL1T" $Ç╜ 
  390. J #Ç▓ 
  391. :HSUB_REPEAT
  392. :HSUB_BUTTON
  393. @Çå `ü» 
  394. k "SL1T" $üÇ 
  395. J #Ç▓ 
  396. :HSDB_REPEAT
  397. :HSDB_BUTTON
  398. @Çå `ü» 
  399. k "SL1T" $üü 
  400. J #Ç▓ 
  401. :SLUB_REPEAT
  402. :SLUB_BUTTON
  403. @Çå `ü» 
  404. k "SL2T" $üÇ 
  405. J #ÇÉ 
  406. :SLDB_REPEAT
  407. :SLDB_BUTTON
  408. @Çå `ü» 
  409. k "sl2t" $üü 
  410. J #ÇÉ 
  411. :HSXB_BUTTON
  412. @Çå `ü▒ 
  413. i LEX ORFILES
  414. J #ÇÅ 
  415. :SETIMAGEFRAME
  416. ~ÇÇ = @Ç₧ "SL1T"
  417. ~ÇÇ ++
  418.  "FACA" ~ÇÇ 
  419. J #ÇÉ 
  420.  
  421.  
  422.  
  423.  
  424.  
  425.  
  426.  
  427. :WARNING_HIGHLIGHT
  428. I ^ï░ = 1 THEN
  429. J #üì 
  430. ¡ "SL2T" "*+WARNING"
  431. J #ÇÉ 
  432. :SELMAK_HIGHLIGHT
  433. I ^ï░ = 1 THEN
  434. J #üì 
  435. I ^ëæ = 3 THEN
  436. {
  437. I ^ëÆ = 0 THEN
  438. ^ëÆ = 1
  439. ¡ "SL2T" "*+LEX"
  440. }
  441. E 
  442. ¡ "SL2T" "*+SELMAK"
  443. J #ÇÉ 
  444. :CAYNAN_HIGHLIGHT
  445. I ^ï░ = 1 THEN
  446. J #üì 
  447. ¡ "SL2T" "*+CAYNAN"
  448. J #ÇÉ 
  449. :BLADE_HIGHLIGHT
  450. I ^ï░ = 1 THEN
  451. J #üì 
  452. I ^ëæ = 4 THEN
  453. {
  454. I ^ëÆ = 0 THEN
  455. ^ëÆ = 1
  456. ¡ "SL2T" "*+LEX"
  457. }
  458. E 
  459. ¡ "SL2T" "*+BLADE"
  460. J #ÇÉ 
  461. :SARTA_HIGHLIGHT
  462. I ^ï░ = 1 THEN
  463. J #üì 
  464. I ^ëæ = 11 THEN
  465. {
  466. I ^ëÆ = 0 THEN
  467. ^ëÆ = 1
  468. ¡ "SL2T" "*+LEX"
  469. }
  470. E 
  471. ¡ "SL2T" "*+SARTA"
  472. J #ÇÉ 
  473. :NORAL_HIGHLIGHT
  474. I ^ï░ = 1 THEN
  475. J #üì 
  476. ¡ "SL2T" "*+NORAL"
  477. J #ÇÉ 
  478. :RASMER_HIGHLIGHT
  479. I ^ï░ = 1 THEN
  480. J #üì 
  481. ¡ "SL2T" "*+RASMER"
  482. J #ÇÉ 
  483. :DRAGIL_HIGHLIGHT
  484. I ^ï░ = 1 THEN
  485. J #üì 
  486. ¡ "SL2T" "*+DRAGIL"
  487. J #ÇÉ 
  488. :FARRDAY_HIGHLIGHT
  489. I ^ï░ = 1 THEN
  490. J #üì 
  491. ¡ "SL2T" "*+FARRDAY"
  492. J #ÇÉ 
  493. :LEXXEN_HIGHLIGHT
  494. I ^ï░ = 1 THEN
  495. J #üì 
  496. ¡ "SL2T" "*+LEXXEN"
  497. J #ÇÉ 
  498. :PAGE_HIGHLIGHT
  499. I ^ï░ = 1 THEN
  500. J #üì 
  501. ¡ "SL2T" "*+PAGE"
  502. J #ÇÉ 
  503. :MARKO_HIGHLIGHT
  504. I ^ï░ = 1 THEN
  505. J #üì 
  506. I ^ëæ = 1 THEN
  507. {
  508. I ^ëÆ = 0 THEN
  509. ^ëÆ = 1
  510. ¡ "SL2T" "*+LEX"
  511. }
  512. E 
  513. ¡ "SL2T" "*+MARKO"
  514. J #ÇÉ 
  515. :STROM_HIGHLIGHT
  516. I ^ï░ = 1 THEN
  517. J #üì 
  518. I ^ëæ = 12 THEN
  519. {
  520. I ^ëÆ = 0 THEN
  521. ^ëÆ = 1
  522. ¡ "SL2T" "*+LEX"
  523. }
  524. E 
  525. ¡ "SL2T" "*+STROM"
  526. J #ÇÉ 
  527. :HIGHILL_HIGHLIGHT
  528. I ^ï░ = 1 THEN
  529. J #üì 
  530. I ^ëæ = 9 THEN
  531. {
  532. I ^ëÆ = 0 THEN
  533. ^ëÆ = 1
  534. ¡ "SL2T" "*+LEX"
  535. }
  536. E 
  537. ¡ "SL2T" "*+HIGHILL"
  538. J #ÇÉ 
  539. :TREMNOR_HIGHLIGHT
  540. I ^ï░ = 1 THEN
  541. J #üì 
  542. ¡ "SL2T" "*+TREMNOR"
  543. J #ÇÉ 
  544. :LANO_HIGHLIGHT
  545. I ^ï░ = 1 THEN
  546. J #üì 
  547. ¡ "SL2T" "*+LANO"
  548. J #ÇÉ 
  549. :DODESKADEN_HIGHLIGHT
  550. I ^ï░ = 1 THEN
  551. J #üì 
  552. I ^ëæ = 7 THEN
  553. {
  554. I ^ëÆ = 0 THEN
  555. ^ëÆ = 1
  556. ¡ "SL2T" "*+LEX"
  557. }
  558. E 
  559. ¡ "SL2T" "*+DODESKADEN"
  560. J #ÇÉ 
  561. :TRUSTIC_HIGHLIGHT
  562. I ^ï░ = 1 THEN
  563. J #üì 
  564. I ^ëæ = 2 THEN
  565. {
  566. I ^ëÆ = 0 THEN
  567. ^ëÆ = 1
  568. ¡ "SL2T" "*+LEX"
  569. }
  570. E 
  571. ¡ "SL2T" "*+TRUSTIC"
  572. J #ÇÉ 
  573. :ESKABERA_HIGHLIGHT
  574. I ^ï░ = 1 THEN
  575. J #üì 
  576. ¡ "SL2T" "*+ESKABERA"
  577. J #ÇÉ 
  578. :MONIK_HIGHLIGHT
  579. I ^ï░ = 1 THEN
  580. J #üì 
  581. I ^ëæ = 8 THEN
  582. {
  583. I ^ëÆ = 0 THEN
  584. ^ëÆ = 1
  585. ¡ "SL2T" "*+LEX"
  586. }
  587. E 
  588. ¡ "SL2T" "*+MONIK"
  589. J #ÇÉ 
  590. :WARNA_HIGHLIGHT
  591. I ^ï░ = 1 THEN
  592. J #üì 
  593. ¡ "SL2T" "*+WARNA"
  594. J #ÇÉ 
  595. :SOO_HIGHLIGHT
  596. I ^ï░ = 1 THEN
  597. J #üì 
  598. I ^ëæ = 10 THEN
  599. {
  600. I ^ëÆ = 0 THEN
  601. ^ëÆ = 1
  602. ¡ "SL2T" "*+LEX"
  603. }
  604. E 
  605. ¡ "SL2T" "*+SOO"
  606. J #ÇÉ 
  607. :DANE_HIGHLIGHT
  608. I ^ï░ = 1 THEN
  609. J #üì 
  610. ¡ "SL2T" "*+DANE"
  611. J #ÇÉ 
  612. :RATHMAN_HIGHLIGHT
  613. I ^ï░ = 1 THEN
  614. J #üì 
  615. I ^ëæ = 6 THEN
  616. {
  617. I ^ëÆ = 0 THEN
  618. ^ëÆ = 1
  619. ¡ "SL2T" "*+LEX"
  620. }
  621. E 
  622. ¡ "SL2T" "*+RATHMAN"
  623. J #ÇÉ 
  624. :ONE_HIGHLIGHT
  625. I ^ï░ = 1 THEN
  626. J #üì 
  627. I ^ëæ = 5 THEN
  628. {
  629. I ^ëÆ = 0 THEN
  630. ^ëÆ = 1
  631. ¡ "SL2T" "*+LEX"
  632. }
  633. E 
  634. ¡ "SL2T" "*+ONE"
  635. J #ÇÉ 
  636. :SIDIG_HIGHLIGHT
  637. I ^ï░ = 1 THEN
  638. J #üì 
  639. ¡ "SL2T" "*+SIDIG"
  640. J #ÇÉ 
  641.  
  642. :RESTRICTEDENTRY
  643. ¡ "SL2T" "*"
  644. J #ÇÉ 
  645.  
  646. :ACCESS_INIT
  647.  "sacl" "SECURITY ACCESS
  648.                             /FACCES SECURITE
  649.                             /GSICHERHEITSZUGANG"
  650.  
  651. ^êí = 11
  652.  "sn1a" ^êí 
  653.  "sn2a" ^êí 
  654.  "sn3a" ^êí 
  655.  "sn4a" ^êí 
  656.  "sn5a" ^êí 
  657.  
  658. ^êó = 1
  659. ^êá = 0
  660. ^êû = -1
  661. ^êù = -1
  662. ^êÿ = -1
  663. ^êÖ = -1
  664. ^êÜ = -1
  665.  
  666. j "SLGT" "ORSEC"
  667. ¡ "SLGT" "*+INSTRUCTIONS"
  668.  
  669. â 
  670.  
  671. J #ÇÉ 
  672.  
  673. :SCLB_BUTTON
  674. @Çå `ü» 
  675. J #üÄ 
  676. :S0DB_BUTTON
  677. @Çå `ü░ 
  678. ^êá = 0
  679. J #üÜ 
  680. :S1DB_BUTTON
  681. @Çå `ü░ 
  682. ^êá = 1
  683. J #üÜ 
  684. :S2DB_BUTTON
  685. @Çå `ü░ 
  686. ^êá = 2
  687. J #üÜ 
  688. :S3DB_BUTTON
  689. @Çå `ü░ 
  690. ^êá = 3
  691. J #üÜ 
  692. :S4DB_BUTTON
  693. @Çå `ü░ 
  694. ^êá = 4
  695. J #üÜ 
  696. :S5DB_BUTTON
  697. @Çå `ü░ 
  698. ^êá = 5
  699. J #üÜ 
  700. :S6DB_BUTTON
  701. @Çå `ü░ 
  702. ^êá = 6
  703. J #üÜ 
  704. :S7DB_BUTTON
  705. @Çå `ü░ 
  706. ^êá = 7
  707. J #üÜ 
  708. :S8DB_BUTTON
  709. @Çå `ü░ 
  710. ^êá = 8
  711. J #üÜ 
  712. :S9DB_BUTTON
  713. @Çå `ü░ 
  714. ^êá = 9
  715. J #üÜ 
  716. :VAL_ASSIGN
  717.  
  718. I ^êó != 1 THEN
  719. J #ÇÉ 
  720. ^êí = ^êá + 1
  721. I ^êû == -1 THEN
  722. {
  723.  "sn1a" ^êí 
  724. ^êû = ^êá 
  725. }
  726. E 
  727. {
  728. I ^êù == -1 THEN
  729. {
  730.  "sn2a" ^êí 
  731. ^êù = ^êá 
  732.  
  733. }
  734. E 
  735. {
  736. I ^êÿ == -1 THEN
  737. {
  738.  "sn3a" ^êí 
  739. ^êÿ = ^êá 
  740.  
  741. }
  742. E 
  743. {
  744. I ^êÖ == -1 THEN
  745. {
  746.  "sn4a" ^êí 
  747. ^êÖ = ^êá 
  748.  
  749. }
  750. E 
  751. {
  752. I ^êÜ == -1 THEN
  753. {
  754.  "sn5a" ^êí 
  755. ^êÜ = ^êá 
  756. J #ü¢ 
  757. }
  758. }
  759. }
  760. }
  761. }
  762. J #ÇÉ 
  763. :CHECK_ACCESS_ID
  764.  
  765. I ^êû != ^ï½ THEN
  766. J #ü£ 
  767. E 
  768. {
  769. I ^êù != ^ï¼ THEN
  770. J #ü£ 
  771. E 
  772. {
  773. I ^êÿ != ^ï¡ THEN
  774. J #ü£ 
  775. }
  776. }
  777.  
  778.  
  779. ^ï░ = 0
  780. ¡ "SLGT" "*+VALID"
  781. W 65
  782. J #ÇÉ 
  783.  
  784.  
  785. :INVALID_ESCHER_ID
  786. ¡ "SLGT" "*+INVALID"
  787. W 65
  788. J #üÄ 
  789. :SXTB_BUTTON
  790. J #ÇÆ 
  791. }
  792. { PERSONALITY_WEB_COMPUTE
  793. I ^ëÆ != 0 THEN
  794. é 
  795.  
  796. I ^ç╖ = 1 THEN
  797. {
  798. I ^ü¡ = 0 THEN
  799. {
  800. I ^üä = 0 THEN
  801. {
  802. I ^â₧ = $üâ THEN
  803. {
  804. I ^ìÅ = 0 THEN
  805. {
  806. ^ëæ = 10 
  807. }
  808. E 
  809. {
  810. ^ëæ = 12 
  811. }
  812. }
  813. E 
  814. {
  815. I ^ìÅ = 0 THEN
  816. {
  817. ^ëæ = 11 
  818. }
  819. E 
  820. {
  821. ^ëæ = 10 
  822. }
  823. }
  824. }
  825. E 
  826. {
  827. I ^â₧ = $üâ THEN
  828. {
  829. I ^ìÅ = 0 THEN
  830. {
  831. ^ëæ = 9 
  832. }
  833. E 
  834. {
  835. ^ëæ = 7 
  836. }
  837. }
  838. E 
  839. {
  840. I ^ìÅ = 0 THEN
  841. {
  842. ^ëæ = 8 
  843. }
  844. E 
  845. {
  846. ^ëæ = 7 
  847. }
  848. }
  849. }
  850. }
  851. E 
  852. {
  853. I ^üä = 0 THEN
  854. {
  855. I ^â₧ = $üâ THEN
  856. {
  857. I ^ìÅ = 0 THEN
  858. {
  859. ^ëæ = 4 
  860. }
  861. E 
  862. {
  863. ^ëæ = 6 
  864. }
  865. }
  866. E 
  867. {
  868. I ^ìÅ = 0 THEN
  869. {
  870. ^ëæ = 5 
  871. }
  872. E 
  873. {
  874. ^ëæ = 4 
  875. }
  876. }
  877. }
  878. E 
  879. {
  880. I ^â₧ = $üâ THEN
  881. {
  882. I ^ìÅ = 0 THEN
  883. {
  884. ^ëæ = 1 
  885. }
  886. E 
  887. {
  888. ^ëæ = 3 
  889. }
  890. }
  891. E 
  892. {
  893. I ^ìÅ = 0 THEN
  894. {
  895. ^ëæ = 2 
  896. }
  897. E 
  898. {
  899. ^ëæ = 1 
  900. }
  901. }
  902. }
  903. }
  904. }
  905. } 
  906.  
  907. [ OR_DOOR_OPEN_ANI
  908. ^çë = 1
  909. 00:00 ^Ç░ = 1
  910. @Çå `üé 
  911. 00:02 ^Ç░ = 2
  912. 00:04 ^Ç░ = 3
  913. 00:06 ^Ç░ = 4
  914. 00:09 ^Ç░ = 5
  915. 00:11 ^Ç░ = 6
  916. 00:13 ^Ç░ = 7
  917. 00:15 ^Ç░ = 8
  918. 00:17 ^Ç░ = 9
  919. 00:19 ^Ç░ = 10
  920. 00:21 ^Ç░ = 11
  921. 00:22 ^Ç░ = 12
  922. 00:24 ^Ç░ = 13
  923. 00:26 ^Ç░ = 14
  924. 00:28 ^Ç░ = 15
  925. 01:00 ^Ç░ = 16
  926. 01:02 ^Ç░ = 0
  927. ^çë = 0
  928. ]
  929. [ OR_DOOR_CLOSE_ANI
  930. ^çë = 1
  931. 00:00 ^Ç░ = 0
  932. @Çå `üé 
  933. 00:02 ^Ç░ = 16
  934. 00:04 ^Ç░ = 15
  935. 00:06 ^Ç░ = 14
  936. 00:08 ^Ç░ = 13
  937. 00:10 ^Ç░ = 12
  938. 00:12 ^Ç░ = 11
  939. 00:14 ^Ç░ = 10
  940. 00:16 ^Ç░ = 9
  941. 00:18 ^Ç░ = 8
  942. 00:20 ^Ç░ = 7
  943. 00:22 ^Ç░ = 6
  944. 00:24 ^Ç░ = 5
  945. 00:26 ^Ç░ = 4
  946. 00:28 ^Ç░ = 3
  947. 01:00 ^Ç░ = 2
  948. 01:02 ^Ç░ = 1
  949. 01:04 @Çå `üà 
  950. ^çë = 0
  951. ]
  952. { DANE_DEATH
  953. ^üä = $üé 
  954. I @ÇÄ OPR2 THEN
  955. {
  956. ^üê = 1
  957. @Çå `è½ 
  958. @Çè ^üë 1 0 7 5 
  959. }
  960. E 
  961. {
  962. ^üâ = 1
  963. @Çå `è¿ 
  964. W 10
  965. @Çå `è½ 
  966. }
  967. K DANE
  968. I ^üå THEN
  969. {
  970. W 2 SECONDS
  971. i LEX KILLDANE 
  972. }
  973. }
  974.  
  975.  
  976. //$ 26 - version number
  977.