Moon buggy

[spacemax]

A moon-buggy :



Pourrait faire un super petit dev pour les pockets

[gege]

Bonjoour,
Ok il est où le code ???
Côté écran, ça va être coton de rendre la même chose sur un PB-100 !!
Mais bon autant essayer...
G.E.

[spacemax]

Hi,

Le code est là : https://sourceforge.net/projects/moon-buggy/
Mais le faire sur pocket me paraît irréaliste en Basic vu la lenteur des processeurs sauf à essayer de passer en langage machine ou sur des machines de type Psion 3 et supérieur.
Je testerai d'écrire le scroll sur la canon X-07 pour voir mais j'ai peu d'espoir...
Bon courage !

[spacemax]

Voici une première version faite sur l'émulateur Canon X-07 PoketEmul et non testée sur le pocket lui-même. J'ai la flemme de retaper le code...
Sur l'émulateur, CPU à 100%, ça répond plutôt bien contrairement à ce que je pensais au départ. Il reste à faire quelques amélioration (mouvement des roues, scrash, renumérotation)

En espérant voir d'autres version sur les autres pockets...

[gege]

Bonjour,
Génial !!!!!!!
Je vais le taper sur le "vrai métal".
Merci
G.E.

Edit : REM ARGH

[spacemax]

Hello,

Comme promis dans un autre post (le dernier programme), voici une petite version de Moon Buggy pour PSION LZ beaucoup plus convaincante que sur le Canon X-07

Code : Tout sélectionner

LOCAL M$(20),BU$(3),K$(1),C$(1)
LOCAL VI%,PT%,LC%,LM%,CRA%,NI%,LAPS%,RAN%,LB%,CJ%,KI%,SP%
INIT::
CLS
REM INITIALISATION
VI%=6:PT%=0:LC%=0:LM%=0:CRA%=0:NI%=1
RAN%=0:LB%=3:CJ%=0:KI%=0:SP%=1
BU$="OHO":C$=CHR$(202)
AT 16,3:PRINT BU$
M$=REPT$(CHR$(255),20)
REM GENERATION CRATERE
DO
	IF RAN%=0 AND CRA%=0
		LC%=INT(RND*4)+1:CRA%=1
	ENDIF
	REM AJOUT CRATERE
	IF LC%>0
		M$=MID$(M$,1,19)
		M$=C$+M$
		LC%=LC%-1
	ENDIF
	IF LC%=0 AND CRA%=1
		LM%=INT(RND*10)+4
	ENDIF
	REM GENERATION SOL
	IF LC%=0 AND LM%>0
		M$=MID$(M$,1,19)
		M$=CHR$(255)+M$
		LM%=LM%-1
	ENDIF
	IF LC%=0 AND LM%=0:CRA%=0:ENDIF
	AT 1,1:PRINT "VIE:";VI%;" SCO:";PT%
	AT 1,2:PRINT "KM/h: ";220-(200-PT%)
	K$=KEY$
	REM GESTION DU BUGGY
	IF K$=" " OR CJ%>0
		IF CJ%<5:CJ%=CJ%+1:ELSE CJ%=0:ENDIF
		IF LB%=3 AND CJ%>0:LB%=2:ENDIF
		IF CJ%=0:LB%=3:AT 16,2:PRINT "    ":ENDIF
		AT 16,3:PRINT "   "
		AT 16,LB%:PRINT BU$
	ENDIF
	LAPS%=0
	REM AFFICHE LE SOL LUNAIRE
	AT 1,4:PRINT M$
	REM TEMPORISATION VITESSE
	DO
		LAPS%=LAPS%+1
	UNTIL LAPS%>200-PT%
	REM POINTS
	IF MID$(M$,20,1)=C$
		PT%=PT%+1
	ENDIF
	REM ARGH...
	IF MID$(M$,16,1)=C$ AND LB%=3:KI%=1:ENDIF
	IF MID$(M$,17,1)=C$ AND LB%=3:KI%=1:ENDIF
	IF MID$(M$,18,1)=C$ AND LB%=3:KI%=1:ENDIF
	IF KI%=1
		BEEP 500,5000
		VI%=VI%-1
		M$=REPT$(CHR$(255),20)
		AT 10,2:PRINT "DEAD"
		PAUSE 40
		AT 10,2:PRINT "    "
		KI%=0
	ENDIF
	UNTIL VI%=0
	GET
	GOTO INIT::