PC-E500 (et autres écrans 4 lignes) jeu Tirs Croises

razzmoket · Message par **razzmoket** » 02 déc. 2007 14:05

charognard a écrit :j'ai une vague impression qu'appart nous deux ça n'interresse quand même pas grand monde

salut

lecteur interressé egalement

y a -t'il des adaptations sur d'autres pockets ?

charognard · Message par **charognard** » 02 déc. 2007 16:10

razzmoket a écrit :
charognard a écrit :j'ai une vague impression qu'appart nous deux ça n'interresse quand même pas grand monde
salut

lecteur interressé egalement

y a -t'il des adaptations sur d'autres pockets ?

pour l'instant non mais il suffit de si mettre
pour ma part je pourrais sur PC-1360, HP 48G.
j'en ai pas d'autre disposant d'un écran graphique
genre canon X07, casio PB 700.....

pir2 · Message par **pir2** » 02 déc. 2007 20:58

Moi aussi, je suis interessé

, mais je manque cruellement de temps pour faire ce que je veux avec mes pockets

Même pas eu le temps de commencer à essayer de rentrer ce programme sur mon 1600, pourtant j'ai juste à recopier

En attendant, merci

razzmoket · Message par **razzmoket** » 02 déc. 2007 21:39

j'ai un PB700

je vais essayer de l'adapter

Paul Tergeist · Message par **Paul Tergeist** » 03 déc. 2007 10:06

razzmoket a écrit :
charognard a écrit :j'ai une vague impression qu'appart nous deux ça n'interresse quand même pas grand monde
salut

lecteur interressé egalement

y a -t'il des adaptations sur d'autres pockets ?

Je suis agréablement surpris du nombre de personnes que ce jeu intéresse.
A l'origine ce jeu est prévu pour TI-58 et HP-34. Il est tout à fait possible
de l'adapter à un pocket 1 ligne. Car finalement on a juste besoin de
copier le petit tableau 5x5 sur du papier et de rayer les cases choisies.

Paul - Expert en cote de boeuf (avec pommes de terre) depuis 1664

charognard · Message par **charognard** » 03 déc. 2007 19:17

pir2 a écrit :Moi aussi, je suis interessé , mais je manque cruellement de temps pour faire ce que je veux avec mes pockets

Même pas eu le temps de commencer à essayer de rentrer ce programme sur mon 1600, pourtant j'ai juste à recopier

En attendant, merci

me suis moins fait chier copier/coller dans un serveur de terminal ça va plus vite.

jmplinux · Message par **jmplinux** » 03 déc. 2007 19:19

me suis moins fait chier copier/coller dans un serveur de terminal ça va plus vite.

Ah oui tiens, des infos concernant un câble série pour le 1600 ? et le E500 ? J'ai vu quelques trucs sur le net mais pas clairs ...

charognard · Message par **charognard** » 03 déc. 2007 19:33

viewtopic.php?t=18333

jmplinux · Message par **jmplinux** » 03 déc. 2007 20:13

Merci, pas besoin d'aller sur le net.. tout est ici

Paul Tergeist · Message par **Paul Tergeist** » 04 déc. 2007 08:56

jmplinux a écrit :
me suis moins fait chier copier/coller dans un serveur de terminal ça va plus vite.
Ah oui tiens, des infos concernant un câble série pour le 1600 ? et le E500 ? J'ai vu quelques trucs sur le net mais pas clairs ...

J'ai fait une page sur les transferts PC-1600 / PC Windows sur mon site.

Normalement mes explications sont claires.

Je dis bien "normalement".

charognard · Message par **charognard** » 04 déc. 2007 17:01

et l'adaptation sur PC 1500 ....
je commence, qui continue ?
avec le menu d'entrée, les graphismes ... le tableau est en ligne
D$(0) à (9) : chiffres
D$(10) à (19) : chiffres en inversion vidéo
D$(20) : |
ME$(0) à (2) : MENU FIXE
SE$(0) à (4) : OPTION SELECTIONNABLE (Normale et inversion video)

Possible erreur à la recopie (sur le PC 1500 j'ai pas d'interface cassette)

Code : Tout sélectionner

10 WAIT 0 :CLEAR :HA=5,SO=1,RE=1:RANDOM :E(4,4),D$(20)*6 ,ME$(2)*80,SE$(4)*34
20 D$(0)="000800",D$(1)="00003E",D$(2)="3A2A2E",D$(3)="2A2A3E",D$(4)="0E083C 
30 D$(5)="2E2A3A",D$(6)="3E2A3A",D$(7)="020A3E",D$(8)="3E2A3E",D$(9)="2E2A3E 
40 D$(10)="7F777F",D$(11)="7F7F41",D$(12)="455551",D$(13)="555541"
50 D$(14)="717743",D$(15)="515545",D$(16)="415545",D$(17)="7D7541"
60 D$(18)="415541",D$(19)="515541",D$(20)="007F00" 
110 ME$(0)=3E0A1A2400182C2800485438001E2000182C280020102C10000000000000221E0218
120 ME$(1)="2418001C203C00182C2800380408000000001C22323C001C203C003D003E04003E04
130 ME$(2)="00182C28003C0408"
140 SE$(0)="00242A2A12001824180038043C003",SE$(1)="7F5B55556D7F675B677F477B437F"
150 SE$(2)="003C0A0A3C001C203C003E040018241800"
160 SE$(3)="7F437575437F635F437F417B7F675B677F"
170 SE$(4)="3E08083E0018243C003C04380018243E0020"
200 WAIT 0: GPRINT ME$(0);ME$(1);ME$(2):GCURSOR 124:GPRINT SE$(4)
210 GCURSOR 79:GPRINT SE$(SO):CURSOR 101:GPRINT SE$(RE+2):CURSOR 24:PRINT HA
220 A$=INKEY$:IF A$=""THEN 220
230 BEEP SO,80,10 
240 IF A$=CHR$(17)THEN 330 
250  IF A$=CHR$(18)THEN 470 
260  IF A$=CHR$(19)THEN 460 
270 IF A$="+"AND HA<9LET HA=HA+1:GOTO 210 
280 IF A$="-"AND HA>0LET HA=HA-1:GOTO 210 
290  IF A$=CHR$(22)LET HA=5:GOTO 210 
300  IF A$=CHR$(20)LET SO=1-SO:GOTO 210 
310  IF A$=CHR$(21)LET RE=1-RE:GOTO 210 
320 GOTO 220 
330 WAIT :PRINT "Aide...":GOTO 200
460 CLS :PRINT "A bientot...":END 
470 CLS :WAIT 30:PRINT "C'est ";R$;"parti..." 
480 FOR X=0TO 4:FOR Y=0TO 4:E(X,Y)=RND 9:NEXT Y:NEXT X 
490 C=0:VT=0:MT=0:CX=0:CY=0:IF TJ>0LET TJ=3-TJ:T=TJ:GOTO 560 
500 CLS :WAIT 0:PRINT "Qui commence ? 
550 BEEP SO,80,10:TJ=T 
560 LX=-1,LY=-1,MT=HA:CLS 
570 WAIT 0:GPRINT D$(20);"00":FOR X=0TO 4:FOR Y=0TO 4 
580 GPRINT "00";D$(E(X,Y));"0000";
590 NEXT Y:GPRINT D$(20);"00";:NEXT X 
600 WAIT : GPRINT "0000

Paul Tergeist · Message par **Paul Tergeist** » 06 déc. 2007 16:02

Je vais m'occuper de la version 1 ligne pour tous pockets
en essayant de consommer un minimum de mémoire.

Objectif : que ça marche sur un pc-1251.

(j'étais bien tenté de dire sur un pc-1212 mais j'en ai pas
(voir en bas de ce post)

Paul - adaptateur de 15h00 à 15h10

charognard · Message par **charognard** » 06 déc. 2007 22:08

PC 1500
status 1 : 3116
ça marche bien, le fait d'etre aligné augmente un peu la difficulté, il faut en effet recrée la matrice intellectuellement
reste à faire : ajout du menu aide .... bof
ajout d'un menu information sur appuie sur I par exemple ... il faudrait
gestion des divers messages (coup interdit, déjà joué...) pas compliqué

mais je passe maintenant à la version PC 126X
et là vu que je veux de l'inversion vidéo, ça va poker sévere

Code : Tout sélectionner

10 WAIT 0 :CLEAR :HA=5,SO=1,RE=1:RANDOM :E(4,4),D$(20)*6 ,ME$(2)*80,SE$(4)*34 
20 D$(0)="000800",D$(1)="00003E",D$(2)="3A2A2E",D$(3)="2A2A3E",D$(4)="0E083C 
30 D$(5)="2E2A3A",D$(6)="3E2A3A",D$(7)="020A3E",D$(8)="3E2A3E",D$(9)="2E2A3E 
40 D$(10)="7F777F",D$(11)="7F7F41",D$(12)="455551",D$(13)="555541" 
50 D$(14)="717743",D$(15)="515545",D$(16)="415545",D$(17)="7D7541" 
60 D$(18)="415541",D$(19)="515541",D$(20)="007F00" 
110 ME$(0)="3E0A1A2400182C2800485438001E2000182C280020102C10000000000000221E0218 
120 ME$(1)="2418001C203C00182C2800380408000000001C22323C001C203C003D003E04003E04 
130 ME$(2)="00182C28003C0408" 
140 SE$(0)="00242A2A12001824180038043C003",SE$(1)="7F5B55556D7F675B677F477B437F" 
150 SE$(2)="003C0A0A3C001C203C003E040018241800" 
160 SE$(3)="7F437575437F635F437F417B7F675B677F" 
170 SE$(4)="3E08083E0018243C003C04380018243E0020" 
200 WAIT 0: GPRINT ME$(0);ME$(1);ME$(2):GCURSOR 124:GPRINT SE$(4) 
210 GCURSOR 79:GPRINT SE$(SO):CURSOR 101:GPRINT SE$(RE+2):CURSOR 24:PRINT HA 
220 A$=INKEY$:IF A$=""THEN 220 
230 BEEP SO,80,10 
240 IF A$=CHR$(17)THEN 330 
250 IF A$=CHR$(18)THEN 470 
260 IF A$=CHR$(19)THEN 460 
270 IF A$="+"AND HA<9LET HA=HA+1:GOTO 210 
280 IF A$="-"AND HA>0LET HA=HA-1:GOTO 210 
290 IF A$=CHR$(22)LET HA=5:GOTO 210 
300 IF A$=CHR$(20)LET SO=1-SO:GOTO 210 
310 IF A$=CHR$(21)LET RE=1-RE:GOTO 210 
320 GOTO 220 
330 WAIT :PRINT "Aide...":GOTO 200 
460 CLS :PRINT "A bientot...":END 
470 CLS :WAIT 30:PRINT "C'est ";R$;"parti..." 
480 FOR X=0TO 4:FOR Y=0TO 4:E(X,Y)=RND 9:NEXT Y:NEXT X 
490 C=0:VT=0:MT=0:CX=0:CY=0:IF TJ>0LET TJ=3-TJ:T=TJ:GOTO 560 
500 CLS :WAIT 0:PRINT "Qui commence ? 
550 BEEP SO,80,10:TJ=T 
560 LX=-1,LY=-1,MT=HA:CLS 
570 WAIT 0:GPRINT D$(20);"00":FOR X=0TO 4:FOR Y=0TO 4 
580 GPRINT "00";D$(E(X,Y));"0000"; 
590 NEXT X:GPRINT D$(20);"00";:NEXT Y
600 C=C+1 

Sélection joueur à faire

700 IF LX=-1THEN 720 
710 S=0:FOR I=0TO 4:S=S+E(I,LY)+E(LX,I):NEXT I:IF S=0THEN 1100 
720 IF T=1 LET BO="7F",IN=10:GOSUB 810:GOTO 730
725 GOTO 910 
730 A$=INKEY$ :IF A$=""THEN 730
735 BO$="00":IN=0
740 IF A$="6"AND CX<4GOSUB 810:CX=CX+1:IN=10:BO$="7F":GOSUB 810:BEEP SO,8,10:GOSUB 840 
750 IF A$="4"AND CX>0GOSUB 810:CX=CX-1:IN=10:BO$="7F":GOSUB 810:BEEP SO,8,10:GOSUB 840 
760 IF A$="2"AND CY<4GOSUB 810:CY=CY+1:IN=10:BO$="7F":GOSUB 810:BEEP SO,8,10:GOSUB 840 
770 IF A$="8"AND CY>0GOSUB 810:CY=CY-1:IN=10:BO$="7F":GOSUB 810:BEEP SO,8,10:GOSUB 840 
780 IF A$="R"LET R$=R$+"Re-":GOTO 470 
790 IF A$=CHR$ (13)BEEP SO,20,10:GOTO 860 
800 GOTO 730 
810 Y=CY,X=CX*5
820 GCURSOR 3+X+Y*29:GPRINT BO$;D$(E(CX,CY),IN);BO$
830 RETURN 
840 IF INKEY$<>""THEN 840 
850 RETURN 
860 IF LX=-1THEN 890 
870 IF E(CX,CY)=0 BEEP SO,100,30:GOTO 730 
880 IF CX<>LXAND CY<>LY BEEP SO,100,30:GOTO 730 
890 GOSUB 810:GOSUB 840 
900 VT=VT+E(CX,CY),E(CX,CY)=0,T=3-T,LX=CX,LY=CY:GOTO 570 
910 IF LX=-1THEN 1150 
920 CJ$="",SV$="",MV=0:FOR X=0TO 4:IF E(X,LY)>MVLET MV=E(X,LY) 
930 NEXT X 
940 FOR Y=0TO 4:IF E(LX,Y)>MVLET MV=E(LX,Y) 
950 NEXT Y:IF MV=0THEN 1100 
960 FOR X=0TO 4:IF E(X,LY)>0LET EX=X,EY=LY:GOSUB 1000 
970 NEXT X 
980 FOR Y=0TO 4:IF E(LX,Y)>0LET EX=LX,EY=Y:GOSUB 1000 
990 NEXT Y:GOTO 1050 
1000 S=E(EX,EY),V=0:FOR I=0TO 4:IF E(I,EY)>VAND I<>EXLET V=E(I,EY) 
1010 NEXT I 
1020 FOR J=0TO 4:IF E(EX,J)>VAND J<>EYLET V=E(EX,J) 
1030 NEXT J:S=S-V 
1040 CJ$=CJ$+CHR$ (EX*10+EY),SV$=SV$+CHR$ (20+S):RETURN 
1050 MV=0,IM=0:FOR I=1TO LEN (SV$):IF ASC (MID$ (SV$,I,1))>MVLET MV=ASC (MID$ (SV$,I,1)),IM=I 
1060 NEXT I:I=ASC (MID$ (CJ$,IM,1)),MX=INT (I/10),MY=I-10*MX 
1070 CX=MX,CY=MY:GOSUB 810:BEEP SO,20,10:LX=MX 
1080 LY=MY 
1090 MT=MT+E(MX,MY),E(MX,MY)=0,T=3-T:GOTO 570 
1100 GOSUB 810:IF MT>VT BEEP 3*SO,10,10:IF RE=1LET HA=HA-1 
1110 IF MT<VT BEEP SO*3,100,10:IF RE=1LET HA=HA+1 
1120 IF MT=VT BEEP SO,10,10 
1130 A$=INKEY$ :IF A$=""THEN 1130 
1140 R$=R$+"Re-":GOTO 470 
1150 CJ$="",SV$="",MV=0 
1160 FOR X=0TO 4:FOR Y=0TO 4:IF E(X,Y)>MVLET MV=E(X,Y),MX=X,MY=Y 
1170 NEXT Y:NEXT X:GOTO 1070

charognard · Message par **charognard** » 06 déc. 2007 22:52

Quelques photo d'écran pourrie

J'appuie sur la touche de fonction 5 et ... magique

F2 pour jouer ...

et les touches directionnelle 8,6,4,2 et ENTER pour jouer

jmplinux · Message par **jmplinux** » 06 déc. 2007 23:21

Quelques photo d'écran pourrie

Ca fait rien, c'est super