En gros, c'est 2 persos qui se déplacent dans une map ( identique ) et dés que l'un veut savoir ou se trouve l'autre , il appuie sur ALPHa puis sa cherche les coordonées et affiche le point de l'autre perso... ( sa permet de relever un peut le gameplay, et sa évite de ralentir les calto car si elles devaient trouver les coordonées à chaque tour, se serait trop lent... )
J'ais mis le code si dessous ( juste du déplacement des persos, pas la partie "création map" ) , chose à savoir, il y a une config un peu plus haut dans le code, Si C=1 c'est que la calto est "tenue" par le joueur 1 , si C=2,.... etc...
:Repeat R=22
:If C=1:Then
:AüQ:BüR:End
:If C=2:Then
:AüV:BüW:End
:Pxl-On(A,B)
:Text(50,1,A
:Text(57,1,B
:Repeat Rø0:getKeyüR:End
:Pxl-Off(A,B)
:pxl-Test(A+1,B)üD:pxl-Test(A,B+1)üE:pxl-Test(A-1,B)üF:pxl-Test(A,B-1)üG
:If R=31:Then
:If C=1:Then:Get(V):Get(W):End
:If C=2:Then
:Get(Q):Get(R)
:QüV:RüW:End
:Pxl-On(V,W):0üT:Text(50,20,V
:Text(57,20,W
:Pause
:Repeat Tø0:getKeyüT:End:Pxl-Off(V,W):End
:If R=24 and Gø1:B-1üB
:If R=25 and Fø1:A-1üA
:If R=26 and Eø1:B+1üB
:If R=34 and Dø1:A+1üA
:End
Mon problemme est que quand un perso fait ALPHA, il me trouve pas les coordonées ( v,w ) de l'autre calto mais de sa propre calto .... ou peut bien être le problemme ? J'essaye depuis ce matin plusieurs solutions, mais le problemme persiste !
n:Get(V):Get(W):End :If C=2:Then :Get(Q):Get(R) :QüV:RüW:End :Pxl-On(V,W):0üT:Text(50,20,V :Text(57,20,W :Pause :Repeat Tø0:getKeyüT:End:Pxl-Off(V,W):End :If R=24 and Gø1:B-1üB :If R=25 and Fø1:A-1üA :If R=26 and Eø1:B+1üB :If R=34 and Dø1:A+1üA :End
Si quelqun si connait bien en link ( ce qui est une de mes grandes faiblesses ) sur 82 ou sur Z80 de manière généralle, ou alors un chanceux qui trouve mon problemme juste en triffouilant un peu, ce serait vraiment formidable qu'il puisse m'aider sur ce coup là !:Repeat R=22
:If C=1:Then
:AüQ:BüR:End
:If C=2:Then
:AüV:BüW:End
:Pxl-On(A,B)
:Text(50,1,A
:Text(57,1,B
:Repeat Rø0:getKeyüR:End
:Pxl-Off(A,B)
:pxl-Test(A+1,B)üD:pxl-Test(A,B+1)üE:pxl-Test(A-1,B)üF:pxl-Test(A,B-1)üG
:If R=31:Then
:If C=1:The