This section is from the document '/pub/list_archives/calc-ti.archive/calc-ti-9411'.

From owner-calc-ti Wed Nov 30 22:12:29 EST 1994 remote from ds
Received: by ds.internic.net; Wed Nov 30 22:11:57 EST 1994
Received: from AUVM.AMERICAN.EDU by AUVM.AMERICAN.EDU (IBM VM SMTP V2R2)
   with BSMTP id 1317; Wed, 30 Nov 94 22:10:19 EST
Received: from AUVM.AMERICAN.EDU (NJE origin NETNEWS@AUVM) by AUVM.AMERICAN.EDU
 (LMail V1.2a/1.8a) with BSMTP id 8959; Wed, 30 Nov 1994 22:10:19 -0500
To:  CALC-TI@LISTS.PPP.TI.COM
Path:
 auvm!psuvm!news.cac.psu.edu!howland.reston.ans.net!vixen.cso.uiuc.edu!prairiene
 t.org!lilprog
From: lilprog@prairienet.org (robert m. gardner)
Newsgroups: bit.listserv.calc-ti
Subject: Calc-TI - SUPER MIDEVAL FIGHTER
Date: 1 Dec 1994 02:46:01 GMT
Organization: University of Illinois at Urbana
Lines: 355
Message-ID: <3bjdd9$865@vixen.cso.uiuc.edu>
NNTP-Posting-Host: firefly.prairienet.org
Sender: owner-calc-ti@dsmail.internic.net
Precedence: bulk
Reply-To: lilprog@prairienet.org (robert m. gardner)

Instructions

            Smfi


    You have a choice of being 2 characters. The giant worm and the serpent.
Here are there profiles.


Serpant:

life
50
wall
5
strength
5
commands:
0  does a wave. Your strongest attack. It takes two life off you when you use
it.
1  conjures a wall of water. Blocks the best, but if he doesnt attack it does
lots of damage to you.
2  blocks. Doesn`t stop as much damage as wall. but doesn`t hurt you when
he dowesn`t attack.
3 weak bite   minimal damage.
4 strong bite stronger than weak but not as good as wave.


worm:
life
60
wall
3
strength
4
commands
0 does earthquake
1 wall
2 block
3 weak bite
4 strong bite


REgistration has 2 more fighters you can be. and several more enemies. only
1$$$$$$$ email me if intereted.



here is the game

super mideval fighter



:0^l
:disp "choose your fighter"
:disp "1.serpent"
:disp "2.worm"
:input a
:disp "level 1"
:disp "serpent"
:50^c
:if a=1
:50^b
:if a=2
:40^b
:if a=2
:6^g
:if a=1
:5^g
:if a=1
:5^w
:if a=2
:3^w
:5^t
:5^u
:lbl 0
:input d
:lbl 9
:rand*4^e
:int e^e
:if e>4
:goto 9
:if e<0
:goto 9
:if d=0
:prgm6
:if d=1
:prgm7
:if d=2
:prgm8
:if d=3
:prgm9
:if d=4
:prgm0
:if b<=0
:prgm4
:if c<=0
:goto c
:clrhome
:disp "your life"
:disp b
:disp "his life"
:disp c
:pause
:goto 0
:lbl a
:disp "you do the same attack"
:goto 0
:lbl c
:l+1^l
:if l=1
:goto l
:if l=2
:goto d
:if l=3
:goto e
:if l=4
:goto f
:if l=5
:prgm3
:lbl l
:clrhome
:disp "level 2"
:disp "worm"
:pause
:3^t
:6^u
:40^c
:goto h
:lbl d
:clrhome
:disp "level 3"
:disp "flying horse"
:pause
:3^t
:2^u
:20^c
:goto h
:lbl e
:clrhome
:disp "level 4"
:disp "black knight"
:pause
:6^t
:6^u
:60^c
:goto h
:lbl l
:clrhome
:disp "level 5"
:disp "wooly mammoth"
:pause
:7^t
:7^u
:7^c
:lbl h
:if a=1
:50^b
:if a=2
:40^b
:clrhome
:disp "life"
:disp c
:disp "wall"
:disp t
:disp "strength"
:disp u
:pause
:goto 0


this is the main program. Here are the sub programs

prgm3
:disp "you win"
:end


prgm4
:clrhome
:disp "gameover"
:pause
:stop



prgm6
:if a=1
:disp "wave"
:if a=2
:disp "earthquake"
:pause
:if e<>1                        /* type in the equal sign with the slash/*
:goto b
:disp "no damage"
:b-2^b
:lbl b
:if e<>2
:goto a
:disp "he blocks"
:c-g/2^c
:b-2^b
:if l=2
:c+z^c
:lbl a
:if e<>3
:goto c
:b-3^b
:c-g^c
:disp "you do"
:disp g
:disp "he does 1"
:lbl c
:if e<>4
:end
:b-t/2^b
:c-g^c
:disp "you do"
:disp g
:disp "he does"
:t/2^y
:disp y
:b-2^b



prgm7
:disp "wall of"
:if a=1
:disp "water"
:if a=2
:disp "ground"
:pause
:if e<>0
:goto a
:u-w^i
:if i<0
:0^i
:c-1^c
:b-i^b
:disp "he does "
:disp i
:lbl a
:if e<>2
:goto b
:disp "you both block"
:w/2^x
:disp x
:disp "damage done to you"
:b-w/2^b
:lbl b
:if e<>3
:goto c
:disp "no damage done"
:lbl c
:if e<>4
:end
:disp "no damage done"
:end




prgm8
:disp "you block"
:pause
:if e<>0
:goto a
:b-(u-2)^b
:disp "you are down to"
:disp b
:c-2^c
:lbl a
:if e<>1
:goto b
:disp "he uses wall"
:c-t/2^c
:lbl b
:if e<>3
:goto d
:disp "no damage dealt"
:lbl d
:if e<>4
:end
:u/2-g/3^p
:disp "he does"
:disp p
:c-p^c
:end





prgm9
:disp "weak bite"
:pause
:if e<>0
:goto a
:disp "he supers"
:u-g/4^@                          /* @ is the o with the horizontal line/*
:if @<0
:0^@
:b-@^b
:c-1^c
:disp "you are down to"
:disp b
:lbl a
:if e<>1
:goto b
:disp "no damage"
:lbl b
:if e<>2
:goto c
:disp "no damage dealt"
:if l=2
:c+z^c
:lbl c
:if e<>4
:end
:disp "he does 1 damage"
:b-1^b
:disp "you are down to"
:disp b






prgm0
:disp "strong bite"
:pause
:if e<>0
:goto b
:c-1^c
:b-(u-g/2)^b
:disp "he supers"
:lbl b
:if e<>1
:goto c
:c+n^c
:disp "you do"
:0-n^n
:disp n
:disp "damage"
:lbl c
:if e<>2
:goto d
:g/2-u/3^m
:if m<0
:0^m
:disp "you do"
:disp m
:lbl d
:if e<>3
:end
:disp "you do 1 damage"
:c-1^c



thats it ^ means store