/[alephone]/aleph/Pfhortran_Release/Ten Forty Two
ViewVC logotype

Contents of /aleph/Pfhortran_Release/Ten Forty Two

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Wed Mar 13 10:38:35 2002 UTC (11 years, 2 months ago) by lpetrich
Branch: MAIN
CVS Tags: release-20070401, release-20070525, release-20050118, release-20050114, GLIMPROVEMENTS_BP, release-20061202, release-20030625, release-20071020, WONDERNAT_BP, release-20060611, release-20071103, release-20080621, release-20061228, release-20080707, release-20060506, release-20040417, release-20051119, release-20061217, release-20060701, HEAD
Branch point for: GLIMPROVEMENTS, WONDERNAT, NIBS
Changes since 1.1: +1 -1 lines
Br'fin's latest changes: fixed diskimage.pl (for MacOS X) and the Pfhortran examples.

1 >\&\d i Ten Fourty Twoy|[J
2 LINS0 Dy0H
3 H5%HH(3@'(3B'(3?' (3;&
4 (38& (3=$ (3<$ (3>$ (39#(3:# %H H4"HD1Hj@ H
5 &A 3  S% 
6 S%  " " S"
7 H H    S(3A'H%  [ !H(H'!(33 H33# H33" #!(33 ! 33 " H33! %#(33 #" 33 $"H33 '%(33%$ 33&$H33)'(33'& 33(&H33+)(33 )( 33*(H33-+(33+* 33,*H33/-(33 -, 33.,H331/(33 /. 330.H3331(33
8 10 3320H3353(33
9 32 3342H3375(33
10 54 3364H3397(33
11 76 3386H3398H33$9H
12 + j/ j % * 3 *
13 ;:(y+<;(3.<=(y3):=(3*;>(->?(y/?:(,? > F@ /@< EA 3 =A BH
14 2!BH 3!(36"# (3D#$
15 (37%&(3C&'DCH(EDH(FE$()CFH(FGH)GHH)HEH)POLY#@ 
16 !"
17   8  $#&' @=98?
18 !  "%( # 8 '&%F 4@;  $Q "#$] :>f q $ "w $< %#  ''
19 BA0+)'%S963U
20 %
21 /-+T?<S   31/VEBT
22 "
23 
24 
25 9753RNKHV  
26
27  %#!U0-*  4! *.,+33( /@"#!#" -1/.335  ;@!#%$"042133B  H@ %'&$375433PV@')(&6:8733^e @)+*(9=;:33nt @+-,*<@>=33 @-/.,?CA@33 @/10.BFDC33 
28 @1320EIGF33  @3542HLJI33
29  @5764KOML33
30 
31 @7986NQPO33
32 @$<=A@Ycba?
33    )1 :=<;ZYXW3  @@+
34 ?:;>]W[\  ?>^\_ $ 0 /& A=:?cZ]^ `6 >g*, @`)(edD L@'(>;<@[Xa`_R \f-.A'&bkb !k %Be'dHr y+32f} # 
35 64 gf 3 $"  g
36 3 #D
37 h & 75
38 i h3 '%%i3 & gCCFEDmlkj) FGHEnopl@(@SIDS4@ ! KK   
39 K
40 N
41 H E B?9<63 0 - *~0 
42 R3  ADGJM P!>;852 / ,  +~ Q 8 &m drrk GPG) &o(3 ddY%3 5KZrr'W3K5]35K[3 K5X3\rr,+r+r} mgހ!d ffހ!e"%3"f3%h3 3 334  A
43 3 32,%,%'i%$gLITEB333fffٙٙٙ333fffs3s3s3ffffffYYYLLL@@@333333&f&f&f    
44    OBJSC`` ! !` !P !0 !p ! !@P ! MinfCX10:42placI mediJ(@"#iidxP!
45   
46 $#&'"%fh
47 "%# &
48   '&%   "#$ 
49   ! $"%!''% 963<750+)'%&$#!%  ?<B>9/-+1,*) "%
50  EBRHD?31/9750."
51  RNKHJE975342
52 "0-*3%#! %,+!  %/2!#"  %25#%$"  %52%'&$% 8;5')(&% ;>)+*(%  >A;+-,* "%AD>-/., "%
53 DGA/10. "
54 GJD1320 "
55 JG3542
56  "MJ5764
57  "QPR7986
58  "YZXW]&<=A@:; W]:=<;??:;>=<Z][X?>:; A=:? )(@\>;<@&A! ed&B !fR# "
59  $"#  #$"h
60 &% 
61 '%&&'%mlkjCFED)(nopFGHE() &b#)(jm()lmn()klp(jk()lmn)no)op()klpEPNTU3'3&3'3&3&3&3$3#3$3#3#3#%33 "3' 33 33 33 33 33 3333333333333333333333333333333333333333333333}ހ!( ((())PLATW4j"x !#&)-0^^WWX^]XX^ ^&^|^^|XXWX^W^W^^X^|^X^XWXX^@<(B4579<>AB+V +V@<)BX]DFIJLMOQ^]XX3X^X^X^^^^^X]WX3^^X^|^X] ^XWXX3X3WXW^8W3XX]WXXWXW33term   ' ''89 isބs sileވxaleނf hora aޞcrti lgue ojt r raonAlh e.Thbirela tngޏacinheނth rm yr feޏaritޚilupteތutatal ayo le ans.Thswch donra ath cl inPfrtn n n: e ftޞwih llޅuryo(a ctie ht u tiyotu iof, d e ghswchޚilouitޔouޚitseraweonana tt b oli. ޴ouގanޙheslghr e hotoޔourit thޝleur soރote atޔouޅavstteth lelޚitthfuonisl d eraގli a tt urށifanoxenށevs e t e anrd T sipfoth lelބs cledޚitPfrtn.Itٞ cle'Le r '. horaisތ pje-iprre. ޫorހorinrmio cckނutޞoue.ng.o .Yone tha Aphޢne.8ndޙhe޽fhtr sipmofitis pceދorޙhitoޚor[R10:42{  gI?20RRanoncvs Ten Forty Twoc<marathon_levels> <level index="0"> <pfhortran resource="1000"/> </level> </marathon_levels> g-- This script creates a visual life bar out of a row of lights. -- Algorithm: Every loop iteration, check to see if life has changed -- If so, loop through all the lights and set each -- according to how much life the player has left -- In doing so, darken any lights that represent more life -- than the player has. -- -- -- This script also does some cool procedure stuff and arms some -- weapons. -- Version: 3 _report_errors true _procedure init -- Init script start x: def 0 -- x, a counter variable tag: def 0 -- tag, a counter pointing to the current tag start: def 3 -- the first tag in the set num: def 15 -- the last tag in the set life: def 0 -- the player's life oldlife: def 0 -- the player's life last time we checked set_oxygen 1000 -- prepare player oxygen/life set_life 250 Add_Item plasma_magazine -- Arm the player w/ fusion pistol Add_Item plasma_pistol Select_Weapon plasma_pistol -- And make sure it's selected end -- Init script end _procedure idle get_life life -- check to see if the life has changed if_!= life, oldlife, doupdate -- if so, jump to doupdate get_tag_state 1, x -- check to see if switch has been clicked if_= x, TRUE, hurtme get_tag_state 2, x if_= x, TRUE, armme end -- otherwise loop doupdate: call update -- call update to update the lights end -- loop update: block_start -- execute this block in one frame set oldlife, life -- set oldlife to life for next loop set x, 1 -- we start with value 1 set tag, start -- with the first light for: if_< life, x, dark -- if life < x then dim the light set_tag_state, tag, TRUE -- otherwise turn the light on jump next -- and jump to the next light dark: set_tag_state, tag, FALSE -- turn light off next: add x, 11 -- add 12 to x add tag, 1 -- go to next light if_> tag, num, done -- if we ran out of lights, we are done jump for -- otherwise loop done: block_end end -- when we are finished, return hurtme: inflict_damage 12 -- hurt the player end -- return to the loop armme: block_start -- execute this block in one frame Add_Item assault_rifle -- deck the player out Add_Item assault_rifle_magazine Add_Item assault_grenade_magazine Add_Item plasma_magazine Add_Item alien_shotgun Select_Weapon alien_shotgun -- select the alien weapon get_life x add x, 50 -- add 50 more health to the player set_life x set_tag_state 2, FALSE -- turn the switch off block_end end -- return to the loop   gj$RTEXTckid*jXMjjProjector DataIndexsce226.l

Christian Bauer">Christian Bauer
ViewVC Help
Powered by ViewVC 1.1.15