home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of Select: Games 4
/
CD_1.iso
/
bioforge
/
script
/
pimm.scp
< prev
next >
Wrap
Text File
|
1995-03-01
|
11KB
|
850 lines
{ PIMM
^Ç╢ ++
A OFF
I @ÇÄ ZEG THEN
M ZERO_G_PIMM
E
M LOOK_AT_PIM FREEZE
@Ç¥ PIMM_MONITOR 1
I @ÇÄ ZEG THEN
M FLOAT CONTINUE
E
M STAND CONTINUE
^Ç╢ --
A ON
}
{ PIMM_MONITOR _OPEN_DOOR
P ~Çü
I @Çú THEN é
^ïª = 0
"pimm"
:BACK_TO_MAIN
m
"sara" 1
"expl" "EXPERIMENTAL/FEXPERIMENTAL/GEXPERIMENTELLE"
"naml" "UNIT AP-127/AFA/FUNITE AP-127/ACA/GEINHEIT AP-127/AFA"
"invb" "INVENTORY/FINVENTAIIRE/GINVENTAR"
"diab" "DIAGNOSTICS/FDIAGNOSTIC/GDIAGNOSTIK"
"joub" "JOURNAL/FJOURNAL/GJOURNAL"
"optb" "OPTIONS/FOPTIONS/GOPTIONEN"
"extb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
I ~ÇÇ THEN
{
@Çì OPENPIMDOOR
~ÇÇ = 0
}
:LOOP
â
J #Çâ
:DIAB_BUTTON
@Çå `ü▒
@Ç¥ PIMM_DIAGNOSTICS
J #Çé
:JOUB_BUTTON
@Çå `ü¡
@Ç¥ PIMM_JOURNAL
J #Çé
:INVB_BUTTON
@Çå `üÉ 255 -2048
@Ç¥ PIMM_INVENTORY
J #Çé
:OPTB_BUTTON
@Çå `ü▓ 200 -2048
à $âó
^ïª = 1
J #Çè
:ESCAPE_BUTTON
:EXTB_BUTTON
@Çå `ü▓ 200 -1024
:BLOCKEND
}
[ OPENPIMDOOR
00:00 "DORA" 1
@Çå `ü│ 255 -1024
00:02 "DORA" 2
00:04 "DORA" 3
00:06 "DORA" 4
00:08 "DORA" 5
00:10 "DORA" 6
00:12 "DORA" 7
00:14 "DORA" 8
00:16 "DORA" 9
00:18 "DORA" 10
00:20 "DORA" 11
]
{ PIMM_DIAGNOSTICS
P ~ÇÇ
P ~Çü
^Ç╢ ++
A OFF
~Çü = 0
~ÇÇ = 0
^Åî = 1
I @Çú = 0 THEN
{
I @ÇÄ ZEG THEN
M ZERO_G_PIMM
E
M LOOK_AT_PIM FREEZE
~ÇÇ = 1
"pimm"
}
@Çå `ü¡
m
"dhaa" 1
"digl" $Ç│ "DIAGNOSTICS/FDIAGNOSTIC/GDIAGNOSTIK"
"hn0l" $Ç│ "0"
"hncl" $Ç│ "100"
"en0l" $Ç│ "0"
I ^ïº = 4 THEN
^ï¬ = @Çì CHARGING_PFD
I @ÇÜ MY_BATTERY = $üé THEN
{
! "can't find my_battery!"
â
J #Çæ
}
N .ÇüÇü
{
U 100:
"emv1" "100"
X ÇÇ
U 250:
"emv1" "250"
X ÇÇ
U 375:
"emv1" "375"
X ÇÇ
U 500:
"emv1" "500"
X ÇÇ
V
! "Undefined battery value"
X ÇÇ
}
"pfdl" "PFD PROTOTYPE /FPROTOTYPE PFD/GPFD PROTOTYP"
"brpl" "BIOLOGICAL REPAIR /FREPARATION BIO /GBIOLOG. REPARATUR"
"dxtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
@ÇÜ MY_BATTERY
I ^ïº = 3 AND .ÇüÇü >= 375 THEN
^ïº = 0
I ^ïº = 2 OR ^ïº = 3 THEN
{
"pdsb" $Ç╖ "INACTIVE/FINACTIF/GINAKTIV"
I ^ïº = 2 THEN
{
s "pfds" 100 1
s "pfds" 100 2
}
E
{
s "pfds" 100 1
s "pfds" 0 2
}
}
E
{
I ^ïº == 0 THEN
{
"pdsb" $Ç│ "CHARGE/FCHARGE/GLADEN"
s "pfds" 100 1
s "pfds" 0 2
}
E
{
"pdsb" $Ç│ "READY/FUTILISER/GBEREIT"
s "pfds" 100 1
s "pfds" 100 2
}
}
I ^ï¿ = 0 THEN
"brsb" $Ç│ "INACTIVE/FINACTIF/GINAKTIV"
E
"brsb" $Ç│ "ACTIVE/FACTIF/GAKTIV"
s "hlts" .ÇâÇà 1
s "hlts" .ÇâÇÇ 2
I @ÇÜ MY_BATTERY THEN
{
s "nrgs" 100 1
~Çü = .ÇüÇÇ * 100
~Çü /= .ÇüÇü
s "nrgs" ~Çü 2
}
E
{
! "Can't find my_battery"
s "nrgs" 100 1
s "nrgs" 100 2
}
"hltl" $Ç│ "HEALTH/FSANTE/GGESUNDHEIT"
"nrgl" $Ç│ "ENERGY/FENERGIE/GENERGIE"
:LOOP
â
J #Çì
:PDSB_BUTTON
@Çå PIM_BEEP_1
@ÇÜ MY_BATTERY
I .ÇüÇü <= 374 THEN
{
^ïº = 3
@Çì WARNING_FLASH 1
J #Çì
}
I ^ïº == 0 AND .ÇüÇü >= 375 THEN
{
I .ÇüÇÇ <= 400 THEN
{
^ïº = 3
@Çì WARNING_FLASH 0
}
E
{
"pdsb" "CHARGING/FCHARGE/GLADEN"
^ï¬ = @Çì CHARGING_PFD
^ï⌐ = 0
@Çì PIMM_RECHARGE
^ï⌐ = 0
}
J #Çì
}
I ^ïº = 3 THEN
@Çì WARNING_FLASH 0
J #Çì
:BRSB_BUTTON
I ^ï¿ == 1 THEN
{
@Çå `ü▒
^ï¿ = 0
"brsb" $Ç│ "INACTIVE/FINACTIF/GINAKTIV"
^Åì
}
E
{
@Çå `ü«
^ï¿ = 1
"brsb" $Ç│ "ACTIVE/FACTIF/GAKTIV"
^Åì = @Çì BIOREPAIR
}
J #Çì
:ESCAPE_BUTTON
:DXTB_BUTTON
I ^ïº = 4 THEN
{
^ï¬
}
^Åî = 0
@Ç¥ LEX_WOUNDS
@Çå `ü¡
I ~ÇÇ = 1 THEN
{
I @ÇÄ ZEG THEN
M FLOAT CONTINUE
E
M STAND CONTINUE
}
^Ç╢ --
A ON
}
[ WARNING_FLASH _CURRENT
I ~ÇÇ THEN
{
00:00 I ^Åî THEN
{
"dwrl" "BATT CURRENT INSUFFICIENT/FBATTERIE TROP FAIBLE/GBATTERIE ZU SCHWACH"
"dw2l" "FOR PFD CAPACITOR CHARGE/FPOUR RECHARGER PFD/GUM PFD AUFZULADEN"
}
01:00 I ^Åî THEN
{
"dwrl" " "
"dw2l" " "
}
01:20 I ^Åî THEN
{
"dwrl" "BATT CURRENT INSUFFICIENT/FBATTERIE TROP FAIBLE/GBATTERIE ZU SCHWACH"
"dw2l" "FOR PFD CAPACITOR CHARGE/FPOUR RECHARGER PFD/GUM PFD AUFZULADEN"
}
02:20 I ^Åî THEN
{
"dwrl" " "
"dw2l" " "
}
03:10 I ^Åî THEN
{
"dwrl" "BATT CURRENT INSUFFICIENT/FBATTERIE TROP FAIBLE/GBATTERIE ZU SCHWACH"
"dw2l" "FOR PFD CAPACITOR CHARGE/FPOUR RECHARGER PFD/GUM PFD AUFZULADEN"
}
04:10 I ^Åî THEN
{
"dwrl" " "
"dw2l" " "
}
}
E
{
00:00 I ^Åî THEN
{
"dwrl" "ENERGY BELOW THRESHOLD/FNIVEAU D'ENERGIE TROP BAS/GENERGIENVEAU ZU NIEDRIG"
"dw2l" "FOR PFD CAPACITOR CHARGE/FPOUR RECHARGER PFD/GUM PFD AUFZULADEN"
}
01:00 I ^Åî THEN
{
"dwrl" " "
"dw2l" " "
}
01:20 I ^Åî THEN
{
"dwrl" "ENERGY BELOW THRESHOLD/FNIVEAU D'ENERGIE TROP BAS/GENERGIENIVEAU ZU NIEDRIG"
"dw2l" "FOR PFD CAPACITOR CHARGE/FPOUR RECHARGER PFD/GUM PFD AUFZULADEN"
}
02:20 I ^Åî THEN
{
"dwrl" " "
"dw2l" " "
}
03:10 I ^Åî THEN
{
"dwrl" "ENERGY BELOW THRESHOLD/FNIVEAU D'ENERGIE TROP BAS/GENERGIENIVEAU ZU NIEDRIG"
"dw2l" "FOR PFD CAPACITOR CHARGE/FPOUR RECHARGER PFD/GUM PFD AUFZULADEN"
}
04:10 I ^Åî THEN
{
"dwrl" " "
"dw2l" " "
}
}
]
[ PIMM_RECHARGE
P ~ÇÇ
~ÇÇ = 0
@ÇÜ MY_BATTERY
00:00 ^ïº = 4
I ^Åî THEN
"pdsb" "CHARGING/FCHARGE/GLADEN"
05:00 ^ïº = 1
.ÇüÇÇ = .ÇüÇÇ - 20
~ÇÇ = .ÇüÇÇ * 100
~ÇÇ /= .ÇüÇü
I ^Åî THEN
{
"pdsb" "READY/FUTILISER/GBEREIT"
s "nrgs" ~ÇÇ 2
s "pfds" 100 2
^ï¬
}
i LEX ALWEP2
]
[ CHARGING_PFD
"pdsb" "CHARGING/FCHARGE/GLADEN"
:TOP
00:00 s "pfds" 100 1
s "pfds" 0 2
00:03 s "pfds" 20 2
00:06 s "pfds" 40 2
00:09 s "pfds" 60 2
00:12 s "pfds" 80 2
00:15 s "pfds" 100 2
00:17 ò
J #Çò
]
{ BIOREPAIR
P ~ÇÇ
P ~Çü
~ÇÇ = 0
I @ÇÜ MY_BATTERY = $üé THEN
{
! "Can't find my_battery!"
é
}
:LOOP
I .ÇüÇÇ >= 10 AND .ÇâÇÇ <= 100 THEN
{
I ~ÇÇ == 8 THEN
{
.ÇüÇÇ -= 1
I .ÇüÇÇ < 10 THEN
i LEX TOOLOWQ
.ÇâÇÇ += 2
I .ÇâÇÇ >= 101 THEN
.ÇâÇÇ = 100
~ÇÇ = 0
I ^Åî THEN
s "hlts" .ÇâÇÇ 2
~Çü = .ÇüÇÇ * 100
@Ç¥ LEX_WOUNDS
I .ÇüÇü THEN
~Çü /= .ÇüÇü
E
~Çü = 0
I ^Åî THEN
{
s "nrgs" ~Çü 2
"brsb" $Ç╡ "ACTIVE/FACTIF/GAKTIV"
}
}
}
I .ÇâÇÇ >= 100 OR .ÇüÇÇ < 10 THEN
{
^ï¿ = 0
I ^Åî THEN
"brsb" $Ç│ "INACTIVE/FINACTIF/GINAKTIV"
é
}
~ÇÇ += 1
â
J #Çù
}
{ PIMM_INVENTORY
P ~ÇÇ
^Ç╢ ++
A OFF
~ÇÇ = 0
I @Çú = 0 THEN
{
I @ÇÄ ZEG THEN
M ZERO_G_PIMM
E
M LOOK_AT_PIM FREEZE
~ÇÇ = 1
"pimm"
}
m
"ihaa" 1
RDDB "/! "
"istl" "INVENTORY/FINVENTAIIRE/GINVENTAR"
j "inmt" INVENTOR
"IITA" @Ç░ "INMT"
g INMT
j "dest" DITEMS
IXTB $Ç┤ "EXIT/FSORTIE/GZURÜCK"
IPDB "/! "
IPUB "/! "
RDYB "READY/FUTILISER/GBEREIT"
:INV_LOOP
â
J #ÇÖ
:RDDB_BUTTON
:RDYB_BUTTON
@Çå `ü▒
h INMT
f CARRY
J #Ç╕
:IPDB_REPEAT
:IPDB_BUTTON
@Çå `ü«
k INMT $Ç╜
J #ÇÖ
:IPUB_REPEAT
:IPUB_BUTTON
@Çå `ü«
k INMT $Ç╝
J #ÇÖ
:SETPICTUREFRAME
"IITA" @Ç░ "INMT"
J #ÇÖ
:ALBAT_HIGHLIGHT
¡ "dest" "*+ALBAT"
J #Çá
:BLOCK_HIGHLIGHT
¡ "dest" "*+BLOCK"
J #Çá
:REFLECT_HIGHLIGHT
¡ "dest" "*+REFLECT"
J #Çá
:CAYLOG_HIGHLIGHT
¡ "dest" "*+CAYLOG"
J #Çá
:CNTROLER_HIGHLIGHT
¡ "dest" "*+CNTROLER"
J #Çá
:DANEBAT_HIGHLIGHT
¡ "dest" "*+DANEBAT"
J #Çá
:DANELOG_HIGHLIGHT
¡ "dest" "*+DANELOG"
J #Çá
:ESCHERLOG_HIGHLIGHT
¡ "dest" "*+ESCHERLOG"
J #Çá
:FLUTE_HIGHLIGHT
¡ "dest" "*+FLUTE"
J #Çá
:LOGA_HIGHLIGHT
¡ "dest" "*+LOGA"
J #Çá
:LOGB_HIGHLIGHT
¡ "dest" "*+LOGB"
J #Çá
:KEY_HIGHLIGHT
¡ "dest" "*+KEY"
J #Çá
:FORK_HIGHLIGHT
¡ "dest" "*+FORK"
J #Çá
:KEYDVICE_HIGHLIGHT
¡ "dest" "*+KEYDVICE"
J #Çá
:LEXLOG_HIGHLIGHT
¡ "dest" "*+LEXLOG"
J #Çá
:LOGBOOK_HIGHLIGHT
¡ "dest" "*+LOGBOOK"
J #Çá
:MEAT_HIGHLIGHT
¡ "dest" "*+MEAT"
J #Çá
:MEDICAID_HIGHLIGHT
¡ "dest" "*+MEDICAID"
J #Çá
:MONBAT_HIGHLIGHT
¡ "dest" "*+MONBAT"
J #Çá
:PHOTO_HIGHLIGHT
¡ "dest" "*+PHOTO"
J #Çá
:SCANNER_HIGHLIGHT
¡ "dest" "*+SCANNER"
J #Çá
:WTALKY_HIGHLIGHT
¡ "dest" "*+WTALKY"
J #Çá
:ESCAPE_BUTTON
:IXTB_BUTTON
@Çå `ü▓
I ~ÇÇ = 1 THEN
{
I @ÇÄ ZEG THEN
M FLOAT CONTINUE
E
M STAND CONTINUE
}
^Ç╢ --
A ON
I @ÇÜ MY_BATTERY THEN
{
I .ÇüÇÇ <= 50 THEN
{
i LEX LOWBATT
}
}
}
{ PIMM_JOURNAL
P ~ÇÇ
A OFF
^Ç╢ ++
~ÇÇ = 0
I @Çú = 0 THEN
{
I @ÇÄ ZEG THEN
M ZERO_G_PIMM
E
M LOOK_AT_PIM FREEZE
~ÇÇ = 1
"pimm"
}
m
"jorl" "JOURNAL/FJOURNAL/GJOURNAL"
"jhaa" 1
"jxtb" $Ç┤ "EXIT/FSORTIR/GZURÜCK"
j "JORT" "LEX"
^åÑ = 1
^åº = 2
^å¿ = 3
"JPDB" "/! "
"JPUB" "/! "
"JSDB" "/! "
"JSUB" "/! "
I ^Åï THEN ^Åè = 1
:JOURN_LOOP
â
J #Ç║
:JPDB_REPEAT
:JPDB_BUTTON
@Çå `ü«
k "JORT" $Ç╜
J #Ç║
:JPUB_REPEAT
:JPUB_BUTTON
@Çå `ü«
k "JORT" $Ç╝
J #Ç║
:JSDB_REPEAT
:JSDB_BUTTON
@Çå `ü»
k "JORT" $Ç┐
J #Ç║
:JSUB_REPEAT
:JSUB_BUTTON
@Çå `ü»
k "JORT" $Ç╛
J #Ç║
:ESCAPE_BUTTON
:JXTB_BUTTON
@Çå `ü▓
I ~ÇÇ = 1 THEN
{
I @ÇÄ ZEG THEN
M FLOAT CONTINUE
E
M STAND CONTINUE
}
@Ç¥ LEX_LOG_SEEN
â
I ^Åè THEN i LEX PIM1
^Ç╢ --
A ON
}
{ POINTERDATA
< LEX = "LexHand" >
< HARD = "HardHand" >
< LEXMIR = "RefHand" >
}
{ OPTIONSTEXT
< OKSTR = "SAVE SETTINGS/FSAUVER /GOK" >
< EXITSTR = "EXIT/FSORTIE /GZURÜCK" >
< CANCELSTR = "CANCEL/FANNULER /GABBRECHEN" >
< NEWSTR = "NEW/FNOUVEAU JEU/GNEU" >
< LOADSTR = "LOAD/FLANCER /GLADEN" >
< SAVESTR = "SAVE/FSAUVER /GSPEICHERN" >
< AUDIOSTR = "AUDIO/FAUDIO /GAUDIO" >
< DETAILSTR = "DETAIL/FDETAIL /GDETAIL" >
< GAMESTR = "GAME/FJEU /GSPIEL" >
< MUSICSTR = "MUSIC/FMUSIQUE /GMUSIK" >
< SFXSTR = "SFX/FEFFETS SPECIAUX /GSFX" >
< YESSTR = "YES/FOUI /GJA" >
< NOSTR = "NO/FNON /GNEIN" >
< QEXITTODOSSTR = "Do you really want to quit?/FQuitter le jeu ? /GWollen Sie wirklich aufhören?" >
< QRETURNTOGAMESTR = "Return to the game?/FRetourner au jeu ? /GZurück zum Spiel?" >
< QLOADGAMESTR = "Load this game?/FLancer ce jeu ? /GDieses Spiel laden?" >
< QSAVEGAMESTR= "Save this game?/FSauver ce jeu ? /GDieses Spiel speichern?" >
< QSAVEOVERSTR= "Save over this game?/FSauver sur ce jeu ?/GSpiel überschreiben?"
< QNEWGAMESTR = "Begin New Game?/FCommencer nouveau jeu ? /GNeues Spiel starten?" >
< CREDITSSTR = "CREDITS/FGENERIQUE/GBETEILIGT" >
< CREDITSFILESTR = "]CREDITS/F]CREDITS/G]CREDITS" >
< LEVELEASYSTR = "EASY COMBAT/FCOMBAT FACILE/GEINFACHER KAMPF " >
< LEVELMEDSTR = "MEDIUM COMBAT/FCOMBAT NORMAL/GMITTELSCHWERER KAMPF" >
< LEVELHARDSTR = "HARD COMBAT/FCOMBAT DIFFICILE/GSCHWERER KAMPF" >
< GAMMACORRECTIONSTR = "GAMMA/FCONTRASTE/GKONTRAST" >
< AMBIENTSOUND = "_ctr_ambient/F_ctr_ambient/G_ctr_ambient" >
< ENTERCAPTION = "Enter Caption:/FDonnez un titre :/GTitel Eingeben:" >
}
[ PIM_DOOR
00:00 @Çå `ü│ 255 -1024
00:00 @Çè ^åñ +1 2 13 12
]
[ PDSRECHARGE
02:00 ^ïº = 1
]
{ ROLLCREDITS
à $âª
}
{ DLGLOADGAME
:LOOP
â
I @Çú != 0 THEN
{
î $üƒ
J #üï
}
@Ç¥ EXITMONITOR
à $âñ
}
{ EXITMONITOR
^ź = 1
:LOOP
â
I @Çú != 0 THEN
{
î $üƒ
J #üì
}
╩
â
^ź = 0
}
{ DLGRUN _FLAGS
I ^îÇ THEN
é
@Ç¥ EXITMONITOR
â
à ~ÇÇ
}
{ OPTMUSIC
O $Çà
}
{ DLGEXITGAME
:LOOP
â
I @Çú != 0 THEN
{
î $üƒ
J #üæ
}
â
à $â¼
}
{ CREDITSROLLING
I ^îÇ THEN
{
C SHOW TITLE
â
}
}
{ EXITOPTIONS
I ^îÇ THEN
{
C SHOW TITLE
â
C SHOW STITLE
à $âú
}
E
{
@Ç¥ EXITMONITOR
I ^ïª == 1 THEN
@Çì PIMM_MONITOR 0
}
}
{ JR1
à $â⌐
}
{ LIVE
I .ÇéÇÇ <= 0 THEN
{
@Ç¢ PLAYER
^ï┤ = 0
.ÇéÇÇ = 100
A ON
I @Çú THEN
{
}
C UNLOCK
t PLAYER
@Ç¥ LEX_WOUNDS
M STAND
}
}
{ NO_SHADOW
^Åë = $âƒ
}
{ UL_SHADOW
^Åë = $âá
}
{ DR_SHADOW
^Åë = $âí
}
//$ 26 - version number