Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Bat & C] Pacman //Sans fantôme
Auteur Message
Répondre en citant
Message [Bat & C] Pacman //Sans fantôme 
Alors voilà un petit pacman que j'avais commencer mais je me suis arrêter car j'avais beaucoup de taff, et réfléchir a l'AI des fantôme prend pas mal de temps.

Vous pouvez le Dl ici

Code batch
Code:

@echo off
mode con LINES=40 COLS=30
setlocal enableDelayedExpansion
:lvl1
cls
 set S1=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
 set S2=Û************ÛÛ************Û
 set S3=Û*ÛÛÛÛ*ÛÛÛÛÛ*ÛÛ*ÛÛÛÛÛ*ÛÛÛÛ*Û
 set S4=ÛOÛÛÛÛ*ÛÛÛÛÛ*ÛÛ*ÛÛÛÛÛ*ÛÛÛÛOÛ
 set S5=Û*ÛÛÛÛ*ÛÛÛÛÛ*ÛÛ*ÛÛÛÛÛ*ÛÛÛÛ*Û
 set S6=Û**************************Û
 set S7=Û*ÛÛÛÛ*ÛÛ*ÛÛÛÛÛÛÛÛ*ÛÛ*ÛÛÛÛ*Û
 set S8=Û*ÛÛÛÛ*ÛÛ*ÛÛÛÛÛÛÛÛ*ÛÛ*ÛÛÛÛ*Û
 set S9=Û******ÛÛ****ÛÛ****ÛÛ******Û
set S10=ÛÛÛÛÛÛ*ÛÛÛÛÛ*ÛÛ*ÛÛÛÛÛ*ÛÛÛÛÛÛ
set S11=     Û*ÛÛÛÛÛ*ÛÛ*ÛÛÛÛÛ*Û     
set S12=     Û*ÛÛ**********ÛÛ*Û     
set S13=     Û*ÛÛ*ÛÛ----ÛÛ*ÛÛ*Û     
set S14=ÛÛÛÛÛÛ*ÛÛ*Û      Û*ÛÛ*ÛÛÛÛÛÛ
set S15=      ****Û      Û****     
set S16=ÛÛÛÛÛÛ*ÛÛ*Û      Û*ÛÛ*ÛÛÛÛÛÛ
set S17=     Û*ÛÛ*ÛÛÛÛÛÛÛÛ*ÛÛ*Û     
set S18=     Û*ÛÛ**********ÛÛ*Û     
set S19=     Û*ÛÛ*ÛÛÛÛÛÛÛÛ*ÛÛ*Û     
set S20=ÛÛÛÛÛÛ*ÛÛ*ÛÛÛÛÛÛÛÛ*ÛÛ*ÛÛÛÛÛÛ
set S21=Û************ÛÛ************Û
set S22=Û*ÛÛÛÛ*ÛÛÛÛÛ*ÛÛ*ÛÛÛÛÛ*ÛÛÛÛ*Û
set S23=Û*ÛÛÛÛ*ÛÛÛÛÛ*ÛÛ*ÛÛÛÛÛ*ÛÛÛÛ*Û
set S24=ÛO**ÛÛ****************ÛÛ**OÛ
set S25=ÛÛÛ*ÛÛ*ÛÛ*ÛÛÛÛÛÛÛÛ*ÛÛ*ÛÛ*ÛÛÛ
set S26=ÛÛÛ*ÛÛ*ÛÛ*ÛÛÛÛÛÛÛÛ*ÛÛ*ÛÛ*ÛÛÛ
set S27=Û******ÛÛ****ÛÛ****ÛÛ******Û
set S28=Û*ÛÛÛÛÛÛÛÛÛÛ*ÛÛ*ÛÛÛÛÛÛÛÛÛÛ*Û
set S29=Û*ÛÛÛÛÛÛÛÛÛÛ*ÛÛ*ÛÛÛÛÛÛÛÛÛÛ*Û
set S30=Û**************************Û
set S31=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
set x=24
set y=14
set Score=0
set Direc=100

:game
cls
set var0=
set var1=
set var2=
set var3=
set var4=
set MaxColone=28

set /a XMoins1=%x%-1
set /a XPlus1=%x%+1
set /a YMoins1=%y%-1
set /a YPlus1=%y%+1
set /a NbrColoneRestant=!MaxColone!-%y%


for /l  %%i in (1,1,!XMoins1!) do (
echo !S%%i!)

call set var0=%%S%x%:~0,%YMoins1%%%
call set var1=%%S%x%:~%y%,%NbrColoneRestant%%%
echo !var0!!var1!

for /l  %%i in (!XPlus1!,1,31) do echo !S%%i!

set /a YMoins1=%y%-1
call set var2=%%S%x%:~%YMoins1%,1%%
if !var2!==* (
   set /a Score+=1
   call set var3=%%S%X%:~0,!YMoins1!%%
   call set var4=%%S%X%:~%Y%,%NbrColoneRestant%%%
   set S%X%=!var3! !var4!
)
echo Score:%score%

key
set AncienDirec=%Direc%
if "%errorlevel%"=="900" set Com=%Direc%
if "%errorlevel%"=="122" set Com=122
if "%errorlevel%"=="113" set Com=113
if "%errorlevel%"=="115" set Com=115
if "%errorlevel%"=="100" set Com=100
if "%Com%"=="122" set /a x=%x%-1& set CmdOpp=set /a x=!x!+1& set Direc=122
if "%Com%"=="113" set /a y=%y%-1& set CmdOpp=set /a y=!y!+1& set Direc=113
if "%Com%"=="115" set /a x=%x%+1& set CmdOpp=set /a x=!x!-1& set Direc=115
if "%Com%"=="100" set /a y=%y%+1& set CmdOpp=set /a y=!y!-1& set Direc=100

if %x%==15 if %y%==29 set y=1
if %x%==15 if %y%==0 set y=28
set /a YMoins1=%y%-1
call set var5=%%S%x%:~%YMoins1%,1%%
if !var5!==Û %CmdOpp%
if !var5!==- %CmdOpp%


if %AncienDirec%==122 if %Direc%==100 if !var5!==Û set Direc=%AncienDirec%
if %AncienDirec%==122 if %Direc%==113 if !var5!==Û set Direc=%AncienDirec%

if %AncienDirec%==115 if %Direc%==100 if !var5!==Û set Direc=%AncienDirec%
if %AncienDirec%==115 if %Direc%==113 if !var5!==Û set Direc=%AncienDirec%

if %AncienDirec%==113 if %Direc%==122 if !var5!==Û set Direc=%AncienDirec%
if %AncienDirec%==113 if %Direc%==115 if !var5!==Û set Direc=%AncienDirec%

if %AncienDirec%==100 if %Direc%==122 if !var5!==Û set Direc=%AncienDirec%
if %AncienDirec%==100 if %Direc%==115 if !var5!==Û set Direc=%AncienDirec%

if %AncienDirec%==113 if %Direc%==115 if !var5!==- set Direc=%AncienDirec%
if %AncienDirec%==100 if %Direc%==115 if !var5!==- set Direc=%AncienDirec%


if %x% GTR 31 %CmdOpp%
if %x% LSS 1 %CmdOpp%
if %y% GTR %MaxColone% %CmdOpp%
if %y% LSS 1 %CmdOpp%


goto game


Code C :
Code:

#include <stdio>
#include <conio>
#include <time>

int main(void)
{
    int c=-1;
    clock_t pause=clock()+0.2*CLOCKS_PER_SEC;
    while(clock()<pause>=0)
         return c;
       else
         return 900;
}


Pour jouer c'est simple:
Z : Avancer
Q : Gauche
S : Descendre
D : Droite


Si quelqu'un veux le continuer ou utiliser le key.exe pour un autres jeux, aucun problème.

Bilou.



Dernière édition par bilou le Jeu 3 Nov 2011 - 19:15; édité 4 fois

______________________________________________________
Il y a des jours faut pas m'chercher.
Et y'a des jours tous les jours !
Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Bat & C] Pacman //Sans fantôme 
Moi le jeux bug, pac-man par tout seul a droite Confused




______________________________________________________
http://www.YagoServer.net/
Visiter le site web du posteur Yahoo Messenger Skype
Répondre en citant
Message [Bat & C] Pacman //Sans fantôme 
Very Happy cool super le jeux marche niquel chez moi tres Bien joué Bilou Okay

mais apres avoir manger toute les pastille il se passe rien Laughing




______________________________________________________


Répondre en citant
Message [Bat & C] Pacman //Sans fantôme 
Haa oui j'ai oublier de préciser qu'il fallait jouer avec ZQSD:
Z : Avancer
Q : Gauche
S : Descendre
D : Droite

Et oui Duty X, comme je l'ai dit je ne l'ai pas terminé.

Bilou.



Dernière édition par bilou le Ven 20 Déc 2013 - 01:01; édité 1 fois

______________________________________________________
Il y a des jours faut pas m'chercher.
Et y'a des jours tous les jours !
Visiter le site web du posteur
Répondre en citant
Message [Bat & C] Pacman //Sans fantôme 
Gneuuuuuu, lien dead oz_cry, si y'a moyen de le changer vite, histoire de faire unheureux Very Happy j'suis fan de pac-man, j'ai même découper pacman dans une éponge, (qui faut d'ailleur que j'aille humidifier, il est tout sec) Very Happy

Sinon, sa à l'air bien Smile j'éditerais quand le lien seras réssucité Smile



Visiter le site web du posteur
Répondre en citant
Message [Bat & C] Pacman //Sans fantôme 
Bonjour
contacte Bilou par mp il devrait recevoir un mail pour le faire venir




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Bat & C] Pacman //Sans fantôme 
Laddy a écrit:
Bonjour
contacte Bilou par mp il devrait recevoir un mail pour le faire venir


Ok merci Smile



Visiter le site web du posteur
Répondre en citant
Message [Bat & C] Pacman //Sans fantôme 
Merci, je vais tenté de déchiffré ça pour en refaire un pareil!!!
Okay




______________________________________________________
@echo off
[..]

OMG O.o'
Répondre en citant
Message [Bat & C] Pacman //Sans fantôme 
Lien mise a jour !


Bilou.




______________________________________________________
Il y a des jours faut pas m'chercher.
Et y'a des jours tous les jours !
Visiter le site web du posteur
Message [Bat & C] Pacman //Sans fantôme 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch