Forum
DeuuLignes de RetroPoke #2
Ca fait un mois que le DeuuLigne a commencé et j'ai pleins d'idées en tête. Bon toutes les idées ne parviendront pas à rentrer sur 2 lignes de BASIC mais peu importe, l'important c'est que j' apprend pleins de trucs de cette manière et ça me motive à fond pour le deuuligne du mois prochain.
Mais avant, permettez-moi de vous présenter le premier deuuligne de Tontongui "ROCKECKET" avec une bonne pointe d'humour dans le fichier "ALIRE.BAS"...
LISTING ET TELECHARGEMENT
10 MODE 1:BORDER 4:x=14:s=19:r=20:WHILE 1:s=s+(c MOD 20=0):w=s*2+3:x=MIN(41-w,MAX(1,x+INT(RND(1)*2)*2-1)):LOCATE x,1: PRINT CHR$(238);SPC(s*2+1);CHR$(238):LOCATE 1,1:PRINT CHR$(11):r=MIN(39,MAX(2,r-INKEY(8)+INKEY(1))):LOCATE r,25
20 IF COPYCHR$(#0)<>CHR$(32) THEN PRINT"CRASH! Votre score: ";c:END ELSE PRINT CHR$(239):c=c+1:WEND
TELECHARGEMENT: ROCKEKET
Et voici TAPEVITE de RetroPoke ou il faut taper plus vite que son ombre.
LISTING ET TELECHARGEMENT
1 MODE 1:INK 0,11:a$="AZERTYUIOP^* 789QSDFGHJKLM|# 456WXCVBN?./=$0 123":FOR l=0 TO 2:FOR c=1 TO 16:LOCATE 3+c*2+l,8+l*3:PRINT MID$(a$,c+l*16,1):NEXT c,l:t=TIME+17980:WHILE TIME<t:v=20:t$=" ":WHILE t$=" ":t$=MID$(a$,1+RND*48,1):p=INSTR(a$,t$):WEND:WHILE v
5 PRINT CHR$(30)MAX(0,INT((t-TIME)/300))g:c=1+(p-1) MOD 16:l=(p-c)/16:FOR z=1 TO 4:MOVE (1+c*2+l)*16,264-l*48:DRAWR 44,0,z:DRAWR 0,32:DRAWR -44,0:DRAWR 0,-32:NEXT:s$=UPPER$(INKEY$):WHILE s$=t$:g=g+1:v=1:t$=" ":WEND:v=v-1:WEND:WEND:WHILE INKEY(47):WEND:RUN
TELECHARGEMENT: TAPEVITE
Je rappelle le règlement pour participer si le cœur vous en dit:
– Deux Lignes en BASIC (Les lignes peuvent contenir du BASIC et du langage MACHINE ou tous les caractères n'affectant pas le listing)
– Un seul deuuligne par disquette
– Un petit résumé et explicatif du programme dans un fichier ALIRE.BAS si nécessaire.
– Envoyez le tout à: concours(@)amstrad.eu avant le 20 du mois en cours pour l’édito du mois d’après.
