Ti80.Online
Pour avoir plus de programmes, rendez-vous sur
http://www.ti80.online.fr
ti80@citeweb.net
CE PROGRAMME NE PERMET PAS DE FAIRE GRAND CHOSE MAIS IL PEUT VOUS
AMUSER PENDANT AU MOINS 2 MINUTES. IL S'AGIT D'UN JEU D'AVENTURE DANS
LEQUEL VOUS SOUS METTEZ DANS LA PEAU D'UN PAYSAN.
-----------------------------------------------------------------------
SI VOUS ÉPROUVEZ DES PROBLÈMES VOUS POUVEZ ME CONTACTER PAR E-MAIL
OU PAR ICQ.
NOTEZ QUE PAR "ICQ" JE NE SUIS PAS LE SEUL UTILISATEUR DE MA FAMILLE
DEMANDEZ DONC SI C'EST MOI QUI EST PRÉSENT!
-----------------------------------------------------------------------
FAIT PAR DAVID GAGNON
adjudant.gagnon@caramail.com
KQUEST V1.07
ICQ:77754519
19:57 00-06-19
PROGRAME ADAPTÉ POUR LA TI-80
-----------------------------------------------------------------------
CLÉ DE SIGNIFICATION
~ EST LA TOUCHE STO>
'(APOSTROPHE) EST LA TOUCHE DEGRÉ DANS LE MENU [ANGLE]
<= EST LA TOUCHE PLUS PETIT OU ÉGAL
>= EST LA TOUCHE PLUS GRAND OU ÉGAL
! EST LA DAND LE MENU [MATH],[PRB]
-----------------------------------------------------------------------
CLRHOME
DISP "FAIT PAR:"
DISP "DAVID GAGNON"
DISP "KQUEST V1.07"
PAUSE
LBL A
20~B
0~F
LBL B
CLRHOME
DISP "VOUS AVEZ"
DISP "UN COMBAT"
PAUSE
LBL C
RANDINT(2,8)~A
CLRHOME
DISP "ENNEMI A:"
DISP "X HP"," "
DISP "VOUS AVEZ","B,"HP"
PAUSE
RANDINT(0,6)~C
RANDINT(1,9)~D
DISP "IL VOUS FESSE"
DISP "VOUS PERDEZ",C
DISP "VOUS LE FESSEZ"
DISP "IL PERD",D
PAUSE
A-D~A
B-C~B
IF A<=0
GOTO D
IF B<=0
GOTO Z
GOTO C
LBL D
CLRHOME
DISP "VOUS GAGNEZ!"
PAUSE
RANDINT(9,21)~E
DISP "PIASTRE SUR LUI",E
E+F~F
RANDINT(3,7)~G
DISP "VOUS AVEZ",F,"DOLLARD","ET PLUS D'HP",G
G+B~B
PAUSE
CLRHOME
DISP "VOUS AVEZ",B,"HP ET",F,"DOLLARD"
PAUSE
IF F>=1000
GOTO Y
IF F>=800
GOTO X
IF F>=600
GOTO W
GOTO B
LBL Z
CLRHOME
DISP "VOUS ETES","MORT AVEC",F,"DOLLARD"
STOP
LBL Y
CLRHOME
DISP "FELICITATION"
DISP "LE ROI MEURT"
DISP "ET VOUS LE","REMPLACEZ"
PAUSE
CLRHOME
DISP "VIVE LE ROI!"
69!
69!
69!
69!
DISP "","",""
DISP "VIVE LE ROI!"
STOP
LBL X
CLRHOME
DISP "LE ROI VOUS"
DISP "AIME"," ","VOUS ETES",CHEVALIER"
PAUSE
GOTO B
LBL W
CLRHOME
DISP "LE ROI VOUS","AIME"," "
DISP "VOUS ETES","NOBLE"
DISP "FELICITATION"
PAUSE
GOTO B