Mithril et Silicium
par Martin Savard



Une nouvelle chronique vient de naître, pour les mordus de l'informatique. Celle-ci vous permettra d'élargir vos connaissances dans le domaine de la programmation informatique et de réaliser des programmes ayant un lien avec le jeu de rôle. Pour le premier programme, voici un exemple de combat programmé en BASIC pouvant utiliser la fonction de hasard pour décider de son issue. Il est à noter que seul une petite partie des règles de de Warhammer sont utilisées au cours de celui-ci.


10 CLS; SCREEN 0
20 LET I=45
30 LET J=58
40 LET K=13
50 LET L=13
60 PRINT "Le combat est entamé entre vous et l'hobgobelin..."
70 PRINT
80 PRINT
90 PRINT
100 PRINT "Vous avez l'initiative."
110 PRINT "Désirez-vous: A= Vous rendre"
120 PRINT " B= Attaquer"
130 PRINT " C= Fuir"
140 INPUT "?", R$
150 CLS 160 IF R$="A" THEN GOTO 190
170 IF R$="B" THEN GOTO 210
180 IF R$="C" THEN GOTO 510 ELSE GOTO 60
190 PRINT "L'hobgobelin vous tranche la tête, vous êtes mort. (Quoi, vous attendiez vous à de la pitié de la part d'un gob?)"
200 END
210 RANDOMIZE TIMER
220 X%=INT (RND * 100)+1
230 IF X%<J THEN GOTO 240 ELSE GOTO 300
240 RANDOMIZE TIMER
250 X%=INT (RND*6)+1
260 LET A=X%
270 IF A = 6 THEN GOTO 320
280 LET L=L-A
290 GOTO 430
300 PRINT "Vous avez raté l'hobgobelin, à son tour de vous attaquer."
310 GOTO 530
320 RANDOMIZE TIMER
330 X%=INT (RND*100)+1
340 IF X%<J THEN GOTO 380
350 LET L=L-A
360 GOTO 430
370 LET A=A+6
380 RANDOMIZE TIMER
390 X%=INT (RND*6) +1
400 IF X%=6 THEN GOTO 370
410 LET A=A+X%
420 LET L=L-A
430 IF L<1 THEN GOTO 480
440 PRINT "Vous avez touché l'hobgobelin pour "; A;" points de dommages."
450 LET A=0
460 PRINT "À son tour de vous attaquer..."
470 GOTO 530 480 PRINT "L'hobgobelin est mort avec les "; A;" points de dommages que vous lui avez infligé."
500 END 510 PRINT "Vous réussissez à vous enfuir... Le combat est terminé."
520 END 530 PRINT "Voici son coup..."
540 RANDOMIZE TIMER
550 X%=INT(RND*100)+1
560 IF X%>I THEN GOTO 640
570 RANDOMIZE TIMER
580 X%=INT (RND*6)+1
590 LET B=X%
600 LET X%=0
610 IF B=6 THEN GOTO 670
620 LET K=K-B
630 GOTO 720
640 PRINT "L'hobgobelin vous a raté à son tour."
650 GOTO 110
660 LET B=B+6
670 RANDOMIZE TIMER
680 X%=INT(RND*6)+1
690 IF X%=6 THEN GOTO 660
700 LET B=B+X%
710 LET K=K-B
720 IF K<1 THEN GOTO 750
730 PRINT "L'hobgobelin vous inflige "; B; " points de dommage."
740 GOTO 110 750 PRINT "L'Hobgobelin vous tue en vous infligeant "; B; " points de dommage."
760 PRINT "Vous êtes mort!";
770 END

Note sur les droits d'auteur


Un tunnel...
Tunnel vers la page du Fumble! #9

Dernière modification:25 février de l'an de grâce 1998