ScriptName ZombieSpawnScript

Ref rSelf
Ref rZombie
Int iRandom
Int bDoOnce
Float fSpawnTimer

Begin GameMode

If (bDoOnce)
Else
Set rSelf to GetSelf
Disable
Set bDoOnce to 1
EndIf

If (GetDistance Player <= 5000 && GetDistance Player >= 1000 && GetInSameCell Player == 0 && Player.GetLOS rSelf == 0)
If (fSpawnTimer < 1)
Set iRandom to GetRandomPercent
If (iRandom < 10)
Set rZombie to PlaceAtMe Zombie01
rSelf.RemoveAllItems rZombie
rSelf.Disable
ElseIf (iRandom < 20)
Set rZombie to PlaceAtMe Zombie02
rSelf.RemoveAllItems rZombie
rSelf.Disable
ElseIf (iRandom < 30)
Set rZombie to PlaceAtMe Zombie03
rSelf.RemoveAllItems rZombie
rSelf.Disable
ElseIf (iRandom < 40)
Set rZombie to PlaceAtMe Zombie04
rSelf.RemoveAllItems rZombie
rSelf.Disable
ElseIf (iRandom < 50)
Set rZombie to PlaceAtMe Zombie05
rSelf.RemoveAllItems rZombie
rSelf.Disable
EndIf
Set fSpawnTimer to ZombieRespawnTime
Else
Set fSpawnTimer to (fSpawnTimer - GetSecondsPassed)
EndIf
EndIf

End

... Он подпрыгнул до потолка и, коснувшись ногами пола, кинулся в переднюю. Допустить, чтобы он убежал и поднял шум, я не могла - указания Центра на этот счет были вполне определенные. Не раздумывая, я выпустила пару щупалец ему вслед.
- Не бойся, Красавчик! - успокоила я его, притянув к себе.
И только тут сообразила, что второпях использовала не пару, имевшую вид рук, а другую, ту, которую я скрывала в обличье своих прекрасных молочных желёз.
Звуки, которые он издавал, вызвали у меня некоторый страх. Я отпустила его и попыталась восстановить свой безупречный человеческий облик, но в спешке превратила в молочную железу свое верхнее щупальце, замаскированное под человеческую голову, и тогда мне всё это надоело, и я вернула себе целиком (за исключением голосовых связок и лёгких) свой истинный вид. Я имела право немного расслабиться: ведь, в конце концов, я выполнила задание, и отныне Красавчика будет трясти от одного вида бюстгальтера в витрине магазина.
И, однако, мне было больно смотреть на его страдания, и я стала ласково гладить его щупальцами, снова и снова объясняя, что я обыкновенный семиног и что меня на это задание Галактический центр послал только потому, что мне очень удобно превращать свои семь конечностей в семь конечностей самки рода людей.
И снова и снова говорила о том, что люблю его.
Но мои слова почему-то не действовали. Он рыдал и рыдал.

Short LightOn
begin onActivate Player

if ( GetOpenState == 1 || GetOpenState == 3 ) ; отслеживается состояние (анимация кнопок) выключателя
if ( MyLightXMarker.GetDisabled == 1 ) ; отслеживается состояние Х-маркера света
MyLightXMarker.enable ; Задействуется Х-маркер света (а с ним и источники света)
Set LightOn to 1
else
MyLightXMarker.disable ; деактивируется Х-маркер света
Set LightOn to 0
endif
Activate Player
endif
end

begin onactivate
lightRef.enable
lightRef.disable
end