home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6 / 1995-05_Disc_6.iso / bioforge / script / xlator.scp < prev    next >
Text File  |  1995-01-18  |  2KB  |  178 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7. { DS_TRANSLATOR _WALL
  8. P ~Çü 
  9. P ~Çé 
  10. P ~Çâ 
  11. P ~Çä 
  12.  
  13. ~Çü = ~ÇÇ * -1
  14. ~Çä = $üé 
  15.  "trnm"
  16. :UPDATE
  17. m 
  18.  
  19. ~Çâ = ~ÇÇ + ~Çü 
  20.  "scna" ~Çâ 
  21. I ~Çé THEN
  22. {
  23. N ~ÇÇ 
  24. {
  25. U $âû 
  26. ê "tslt" "at_south"
  27. X ÇÇ 
  28. U $âù 
  29. ^üÄ = $üâ 
  30. ê "tslt" "at_east"
  31. X ÇÇ 
  32. U $âÿ 
  33. ê "tslt" "at_west"
  34. X ÇÇ 
  35. U $âÖ 
  36. ê "tslt" "fbtran"
  37. X ÇÇ 
  38. }
  39.  "tlub" ""
  40.  "tldb" ""
  41.  "tpdb" ""
  42.  "tpub" ""
  43. }
  44. I ~ÇÇ != 0 THEN
  45. {
  46.  "scnb" $Ç│ "SCAN/FSCANNER/GBILD" $Ç╕ 
  47. I ~Çü = 1 THEN
  48.  "tslb" $Ç│ "TRANSLATE/FTRADUIRE/GÜBERSETZEN" $Ç╕ 
  49. E 
  50.  "tslb" $Ç╖ "TRANSLATE/FTRADUIRE/GÜBERSETZEN"
  51. }
  52. E 
  53. {
  54.  "scnb" $Ç╖ "SCAN/FSCANNER/GBILD"
  55.  "tslb" $Ç╖ "TRANSLATE/FTRADUIRE/GÜBERSETZEN"
  56. }
  57.  "powb" $Ç┤ "POWER/FCONTACT/GSTROM" 
  58. :LOOP
  59.  
  60. â 
  61. J #Çé 
  62. :TSLB_BUTTON
  63. @Çå `ü» 200 1024 
  64. ~Çé = 1
  65. ~Çü = 0
  66. ~Çä = $üâ 
  67. J #Çü 
  68. :SCNB_BUTTON
  69. @Çå `ü» 200 -1024 
  70. ~Çé = 0
  71. ~Çü = 1
  72. J #Çü 
  73. :TPUB_REPEAT
  74. :TPUB_BUTTON
  75. @Çå `ü░ 
  76. k "tslt" $Ç║ 
  77. J #Çé 
  78. :TPDB_REPEAT
  79. :TPDB_BUTTON
  80. @Çå `ü░ 
  81. k "tslt" $Ç╗ 
  82. J #Çé 
  83. :TLUB_REPEAT
  84. :TLUB_BUTTON
  85. @Çå `ü« 
  86. k "tslt" $Ç╛ 
  87. J #Çé 
  88. :TLDB_REPEAT
  89. :TLDB_BUTTON
  90. @Çå `ü« 
  91. k "tslt" $Ç┐ 
  92. J #Çé 
  93. :POWB_BUTTON
  94. :ESCAPE_BUTTON
  95. @Çå `ü▓ 
  96.  
  97. I ~Çä THEN
  98. {
  99. W 5 SECONDS
  100. i LEX ALIENWR
  101. }
  102. }
  103. { SCANNER_USE
  104. P ~ÇÇ 
  105. ~ÇÇ = 0 
  106. I ^åû = $âè THEN
  107. {
  108.  
  109.  
  110.  
  111. I @Çí CURFIG SOUTH_WL = $üâ AND @Çä IN -60 60 THEN
  112. ~ÇÇ = $âû 
  113. E I @Çí CURFIG EAST_WL = $üâ AND @Çä IN -120 -30 THEN
  114. ~ÇÇ = $âù 
  115. E I @Çí CURFIG WEST_WL = $üâ AND @Çä IN 30 120 THEN
  116. ~ÇÇ = $âÿ 
  117. }
  118. E I ^åû = $âï THEN
  119. {
  120.  
  121. I @Ç¥ LOOKINGATOBLISKPILLAR 2 = 1 THEN
  122. ~ÇÇ = $âÖ 
  123. E I @Ç¥ LOOKINGATOBLISKPILLAR 3 = 1 THEN
  124. ~ÇÇ = $âÖ 
  125. E I @Ç¥ LOOKINGATOBLISKPILLAR 4 = 1 THEN
  126. ~ÇÇ = $âÖ 
  127. }
  128. @Çì DS_TRANSLATOR ~ÇÇ 
  129. }
  130. { LOOKINGATOBLISKPILLAR _PILLAR_NO
  131. P ~Çü 
  132. P ~Çé 
  133. P ~Çâ 
  134. P ~Çä 
  135.  
  136.  
  137. N ~ÇÇ 
  138. {
  139. U 2
  140.  
  141. ~Çâ = @Ç▒ CURFIG OBL2_WP
  142. I ~Çâ < 180 THEN
  143. {
  144.  
  145. ~Çü = @Ç│ CURFIG OBL2_WP
  146. I ~Çü > -40 AND ~Çü < 40 THEN
  147. é 1
  148. }
  149. X Çü 
  150. U 3
  151.  
  152. ~Çâ = @Ç▒ CURFIG OBL3_WP
  153. I ~Çâ < 180 THEN
  154. {
  155.  
  156. ~Çü = @Ç│ CURFIG OBL3_WP
  157. I ~Çü > -40 AND ~Çü < 40 THEN
  158. é 1
  159. }
  160. X Çü 
  161. U 4
  162.  
  163. ~Çâ = @Ç▒ CURFIG OBL4_WP
  164. I ~Çâ < 180 THEN
  165. {
  166.  
  167. ~Çü = @Ç│ CURFIG OBL4_WP
  168. I ~Çü > -40 AND ~Çü < 40 THEN
  169. é 1
  170. }
  171. X Çü 
  172. }
  173. é 0
  174. }
  175.  
  176.  
  177. //$ 26 - version number
  178.