cyber.net 2/cybernet2.ISO/bioforge/script/title.scp

Text File | 1995-01-18 | 886b | 107 lines

{ TITLE_LOAD
I @Ç¢ LEX == 1 THEN
K CURFIG
}
{ TITLESEQUENCE
P ~ÇÇ
 @Ç£ DOWN
C UNLOCK
C TITLE
 @Ç£ UP
O $Ç£

^Çâ = 0
^Çé = 0
æ GETANYKEY
~ÇÇ = 3

:TITLE_LOOP



N ^Çâ
{
U 4:
@Çå `ëì
X ÇÇ
U 6:
@Çå `ëì 240 -1024
X ÇÇ
U 9:
@Çå `ëì
X ÇÇ
U 11:
@Çå `ëì 240 -1024
X ÇÇ
U 16:
@Çå `ëì
X ÇÇ
U 18:
@Çå `ëì 240 -1024
X ÇÇ
U 33:
@Çå `ëì
X ÇÇ
U 35:
@Çå `ëì 240 -1024
X ÇÇ
U 39:
@Çå `ëì
X ÇÇ
U 42:
@Çå `ëì 240 -1024
X ÇÇ
U 46:
@Çå `ëì
X ÇÇ
U 48:
@Çå `ëì 240 -1024
X ÇÇ
U 64:
@Çå `ëì
X ÇÇ
U 66:
@Çå `ëì 240 -1024
X ÇÇ
U 69:
@Çå `ëì
X ÇÇ
U 72:
@Çå `ëì 240 -1024
X ÇÇ
U 76:
@Çå `ëì
X ÇÇ
U 78:
@Çå `ëì 240 -1024
X ÇÇ
}
^Çâ ++
W 3
I ~ÇÇ > 0 && ^Çé == 0 THEN
{
I ^Çâ > 89 THEN
{
^Çâ = 59
~ÇÇ --
}
}
I ~ÇÇ > 0 && ^Çé == 0 THEN
J #Çé


Æ
^Çâ = 72
â

}
{ GETANYKEY _KEY _MODIFIERS _MOUSE
I ~ÇÇ != 0 THEN
^Çé = 1
é
}



//$ 26 - version number