Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
RealPureGame v1.7
Auteur Message
Répondre en citant
Message RealPureGame v1.7 
Salut à tous,

Je viens poster un jeu que j'apprécie particulièrement notamment
au fait que les ennemis se déplacent aléatoirement

But du jeu :
Vous devez évitez vos enemis et sortir par l'"anneau"
qui se trouve sur la "map" pour passer au niveau suivent,
plus vous gagnez de niveau, plus vous êtes puissant !


Voici la version 1.7 (la première que je poste) :
-le 22/05/2013 (et oui sa date Very Happy)
-Sauvegarde du niveau (mais pas des coordonnées du joueurs/ennemis)
-Dossier du jeu se trouvant ici : %homedrive%\RealPureGame\

PS : n'hésitez pas à poster votre niveau (sans tricher svp Very Happy)


Code:

@echo off
color 07
mode con cols=45 lines=20
setlocal enableDelayedExpansion
title RPG, By Pierre JOUSSAIN

:ini

set vc=RealPureGame
if exist "%homedrive%\" set vc=%homedrive%\RealPureGame\%username%

set pass=
if exist "%vc%\System\password.sys" for /f %%a in (%vc%\System\password.sys) do set pass=%%a
if exist "%vc%\System\password.sys" goto password
:userfin

if not exist "%vc%" md "%vc%"
if not exist "%vc%\System" md "%vc%\System"
if not exist "%vc%\Error" md "%vc%\Error"
if not exist "%vc%\Temp" md "%vc%\Temp"
if not exist "%vc%\Save" md "%vc%\Save"

echo %username% : %date% - %time%>"%vc%\Temp\connection.tmp"

set lvl=0
set mov=0
set life=3

:initial
cls
echo.
echo  Loading (1/3)...

set up=Z
set down=S
set left=Q
set right=D
set option=O

set colorgame=07
set pseudo=%username%

if exist "%vc%\System\Pseudo.sys" for /f %%a in (%vc%\System\pseudo.sys) do set pseudo=%%a
if exist "%vc%\System\Color.sys" for /f %%a in (%vc%\System\Color.sys) do set color=%%a
if exist "%vc%\System\Up.sys" for /f %%a in (%vc%\System\Up.sys) do set haut=%%a
if exist "%vc%\System\Down.sys" for /f %%a in (%vc%\System\Down.sys) do set bas=%%a
if exist "%vc%\System\Right.sys" for /f %%a in (%vc%\System\Right.sys) do set droite=%%a
if exist "%vc%\System\Left.sys" for /f %%a in (%vc%\System\Left.sys) do set gauche=%%a
if exist "%vc%\System\Option.sys" for /f %%a in (%vc%\System\Option.sys) do set option=%%a

color %color%

set cl=0
:cl
set /a cl=%cl%+1
if %cl% equ 13 goto initial1
set cc=0
:cc
set /a cc=%cc%+1
set l%cl%-c%cc%=ÿ
if %cc% equ 25 goto cl
goto cc

:initial1
cls
echo.
echo  Loading (2/3)...

:initial2
cls
echo.
echo  Loading (3/3)...

set ll=0
set lc=0
set /a ll=%random%*12/32767+1
set /a lc=%random%*25/32767+1
set l%ll%-c%lc%=O

set /a lvl=%lvl%+1

set ia=
set cia1=0
:cia1
set /a cia1=%cia1%+1
set /a il%cia1%=%random%*12/32767+1
set /a ic%cia1%=%random%*25/32767+1
set il!il%cia1%!-ic!ic%cia1%!=%ia%
if %cia1% lss %lvl% goto cia1

set pp=
set pl=2
set pc=3

set l%pl%-c%pc%=%pp%

set choice=ENTER

:map
set l%pl%-c%pc%=%pp%
set cia2=0
:cia2
set /a cia2=%cia2%+1
if !il%cia2%! equ %pl% if !ic%cia2%! equ %pc% set l%pl%-c%pc%=T
if %cia2% lss %lvl% goto cia2

if %life% equ 1 set lifea=
if %life% equ 2 set lifea=
if %life% equ 3 set lifea=


set l%ll%-c%lc%=O
if %ll% equ %pl% if %lc% equ %pc% set l%ll%-c%lc%=X
cls
echo.
echo          -=RealPureGame=-
echo.
echo    ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ      ÚÄ¿
echo    Û%l12-c1%%l12-c2%%l12-c3%%l12-c4%%l12-c5%%l12-c6%%l12-c7%%l12-c8%%l12-c9%%l12-c10%%l12-c11%%l12-c12%%l12-c13%%l12-c14%%l12-c15%%l12-c16%%l12-c17%%l12-c18%%l12-c19%%l12-c20%%l12-c21%%l12-c22%%l12-c23%%l12-c24%%l12-c25%Û      ³%up%³
echo    Û%l11-c1%%l11-c2%%l11-c3%%l11-c4%%l11-c5%%l11-c6%%l11-c7%%l11-c8%%l11-c9%%l11-c10%%l11-c11%%l11-c12%%l11-c13%%l11-c14%%l11-c15%%l11-c16%%l11-c17%%l11-c18%%l11-c19%%l11-c20%%l11-c21%%l11-c22%%l11-c23%%l11-c24%%l11-c25%Û    ÚÄÅÄÅÄ¿
echo    Û%l10-c1%%l10-c2%%l10-c3%%l10-c4%%l10-c5%%l10-c6%%l10-c7%%l10-c8%%l10-c9%%l10-c10%%l10-c11%%l10-c12%%l10-c13%%l10-c14%%l10-c15%%l10-c16%%l10-c17%%l10-c18%%l10-c19%%l10-c20%%l10-c21%%l10-c22%%l10-c23%%l10-c24%%l10-c25%Û    ³%left%³%down%³%right%³
echo    Û%l9-c1%%l9-c2%%l9-c3%%l9-c4%%l9-c5%%l9-c6%%l9-c7%%l9-c8%%l9-c9%%l9-c10%%l9-c11%%l9-c12%%l9-c13%%l9-c14%%l9-c15%%l9-c16%%l9-c17%%l9-c18%%l9-c19%%l9-c20%%l9-c21%%l9-c22%%l9-c23%%l9-c24%%l9-c25%Û    ÀÄÁÄÁÄÙ
echo    Û%l8-c1%%l8-c2%%l8-c3%%l8-c4%%l8-c5%%l8-c6%%l8-c7%%l8-c8%%l8-c9%%l8-c10%%l8-c11%%l8-c12%%l8-c13%%l8-c14%%l8-c15%%l8-c16%%l8-c17%%l8-c18%%l8-c19%%l8-c20%%l8-c21%%l8-c22%%l8-c23%%l8-c24%%l8-c25%Û
echo    Û%l7-c1%%l7-c2%%l7-c3%%l7-c4%%l7-c5%%l7-c6%%l7-c7%%l7-c8%%l7-c9%%l7-c10%%l7-c11%%l7-c12%%l7-c13%%l7-c14%%l7-c15%%l7-c16%%l7-c17%%l7-c18%%l7-c19%%l7-c20%%l7-c21%%l7-c22%%l7-c23%%l7-c24%%l7-c25%Û ÚÄÂÄÄÄÄÄÄÄÄÄ¿
echo    Û%l6-c1%%l6-c2%%l6-c3%%l6-c4%%l6-c5%%l6-c6%%l6-c7%%l6-c8%%l6-c9%%l6-c10%%l6-c11%%l6-c12%%l6-c13%%l6-c14%%l6-c15%%l6-c16%%l6-c17%%l6-c18%%l6-c19%%l6-c20%%l6-c21%%l6-c22%%l6-c23%%l6-c24%%l6-c25%Û ³%option%³ Options ³
echo    Û%l5-c1%%l5-c2%%l5-c3%%l5-c4%%l5-c5%%l5-c6%%l5-c7%%l5-c8%%l5-c9%%l5-c10%%l5-c11%%l5-c12%%l5-c13%%l5-c14%%l5-c15%%l5-c16%%l5-c17%%l5-c18%%l5-c19%%l5-c20%%l5-c21%%l5-c22%%l5-c23%%l5-c24%%l5-c25%Û ÀÄÁÄÄÄÄÄÄÄÄÄÙ
echo    Û%l4-c1%%l4-c2%%l4-c3%%l4-c4%%l4-c5%%l4-c6%%l4-c7%%l4-c8%%l4-c9%%l4-c10%%l4-c11%%l4-c12%%l4-c13%%l4-c14%%l4-c15%%l4-c16%%l4-c17%%l4-c18%%l4-c19%%l4-c20%%l4-c21%%l4-c22%%l4-c23%%l4-c24%%l4-c25%Û
echo    Û%l3-c1%%l3-c2%%l3-c3%%l3-c4%%l3-c5%%l3-c6%%l3-c7%%l3-c8%%l3-c9%%l3-c10%%l3-c11%%l3-c12%%l3-c13%%l3-c14%%l3-c15%%l3-c16%%l3-c17%%l3-c18%%l3-c19%%l3-c20%%l3-c21%%l3-c22%%l3-c23%%l3-c24%%l3-c25%Û  %pseudo%
echo    Û%l2-c1%%l2-c2%%l2-c3%%l2-c4%%l2-c5%%l2-c6%%l2-c7%%l2-c8%%l2-c9%%l2-c10%%l2-c11%%l2-c12%%l2-c13%%l2-c14%%l2-c15%%l2-c16%%l2-c17%%l2-c18%%l2-c19%%l2-c20%%l2-c21%%l2-c22%%l2-c23%%l2-c24%%l2-c25%Û   Level : %lvl%
echo    Û%l1-c1%%l1-c2%%l1-c3%%l1-c4%%l1-c5%%l1-c6%%l1-c7%%l1-c8%%l1-c9%%l1-c10%%l1-c11%%l1-c12%%l1-c13%%l1-c14%%l1-c15%%l1-c16%%l1-c17%%l1-c18%%l1-c19%%l1-c20%%l1-c21%%l1-c22%%l1-c23%%l1-c24%%l1-c25%Û   Move : %mov%
echo    ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ   Life : %lifea%

set cia3=0
:cia3
set /a cia3=%cia3%+1
if !il%cia3%! equ %pl% if !ic%cia3%! equ %pc% goto loose
if %cia3% lss %lvl% goto cia3

if %ll% equ %pl% if %lc% equ %pc% goto win

echo.
if exist "%windir%\System32\choice.*" goto move

set /p choice=Choice :
if %choice% equ %up% goto up
if %choice% equ %left% goto left
if %choice% equ %down% goto down
if %choice% equ %right% goto right
if %choice% equ %option% goto option
goto map

:move
rem choice /c %up%%left%%down%%right%%option% /n >nul
choice /c:%up%%left%%down%%right%%option% /n
if "%errorlevel%"=="1" goto up
if "%errorlevel%"=="2" goto left
if "%errorlevel%"=="3" goto down
if "%errorlevel%"=="4" goto right
if "%errorlevel%"=="5" goto option
goto map


:up
set /a av1=%pl%+1
if 13 equ %av1% goto map
set l%pl%-c%pc%=ÿ
set /a pl=%pl%+1
set /a mov=%mov%+1
goto ias

:down
set /a av1=%pl%-1
if 0 equ %av1% goto map
set l%pl%-c%pc%=ÿ
set /a pl=%pl%-1
set /a mov=%mov%+1
goto ias

:left
set /a av1=%pc%-1
if 0 equ %av1% goto map
set l%pl%-c%pc%=ÿ
set /a pc=%pc%-1
set /a mov=%mov%+1
goto ias

:right
set /a av1=%pc%+1
if 26 equ %av1% goto map
set l%pl%-c%pc%=ÿ
set /a pc=%pc%+1
set /a mov=%mov%+1
goto ias



:ias

set cia4=0
:cia4
set /a cia4=%cia4%+1

:iamap
set /a aim=%random%*4/32767+1
goto aim%aim%

:aim1
set /a av%cia4%=!il%cia4%!+1
if 13 equ !av%cia4%! goto iamap
set l!il%cia4%!-c!ic%cia4%!=ÿ
set /a il%cia4%=!il%cia4%!+1
set l!il%cia4%!-c!ic%cia4%!=%ia%
goto aime

:aim2
set /a av%cia4%=!il%cia4%!-1
if 0 equ !av%cia4%! goto iamap
set l!il%cia4%!-c!ic%cia4%!=ÿ
set /a il%cia4%=!il%cia4%!-1
set l!il%cia4%!-c!ic%cia4%!=%ia%
goto aime

:aim3
set /a av%cia4%=!ic%cia4%!-1
if 0 equ !av%cia4%! goto iamap
set l!il%cia4%!-c!ic%cia4%!=ÿ
set /a ic%cia4%=!ic%cia4%!-1
set l!il%cia4%!-c!ic%cia4%!=%ia%
goto aime

:aim4
set /a av%cia4%=!ic%cia4%!+1
if 26 equ !av%cia4%! goto iamap
set l!il%cia4%!-c!ic%cia4%!=ÿ
set /a ic%cia4%=!ic%cia4%!+1
set l!il%cia4%!-c!ic%cia4%!=%ia%
goto aime

:aime
if %cia4% lss %lvl% goto cia4

goto map


:win
echo.
echo  Well done %pseudo%, level %lvl% succeeded !
pause >nul
set l%ll%-c%lc%=ÿ
goto initial

:loose
set /a life=%life%-1
if %life% geq 1 goto initial
echo.
echo  You lost %pseudo%, at level %lvl% !
pause >nul
goto ini


:option
cls
echo.
echo             -=Menu=-
echo.
echo    ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo    Û                         Û
echo    Û 1) Player name          Û
echo    Û 2) Save/Load            Û
echo    Û                         Û
echo    Û 3) Keyboard             Û
echo    Û 4) Color interface      Û
echo    Û 5) Password             Û
echo    Û                         Û
echo    Û 6) Informations         Û
echo    Û 7) Return               Û
echo    Û 8) Quit Game            Û
echo    Û                         Û
echo    ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
set /p choopt=Choice :
goto option%choopt%

:option1
cls
echo.
echo Pseudo : %pseudo%
echo.
set /p pseudo=Pseudo :
echo %pseudo%>"%vc%\System\Pseudo.sys"
goto option

:option2
set save=Auto-Save
cls
echo.
echo Saves :
if exist "%vc%\Save\*.*" for %%i in ("%vc%\Save\*.*") do echo  ----^> %%~ni
echo.
echo Enter name of save/load game.
set /p save=Selected :
echo.
if exist "%vc%\Save\%save%.cfg" goto slo
echo %lvl%;%mov%>"%vc%\Save\%save%.cfg"
echo your progress has been saved !
echo.
pause >nul
goto map
:slo
echo Save (1) or Load (2)
set /p slo=1 or 2 :
if %slo% equ 1 echo %lvl%;%mov%>"%vc%\Save\%save%.cfg"
if %slo% equ 2 for /f "tokens=1-2 delims=;" %%i in (%vc%\Save\%save%.cfg) do set set lvl=%%i&set mov=%%j
echo.
echo Completed !
echo.
pause >nul
if %slo% equ 1 goto map
if %slo% equ 2 goto initial
cls
goto slo

:option3
cls
echo.
echo    ÚÄÄÄÄÄÄÄÄÂÄ¿
echo    ³   Up   ³%up%³
echo    ÃÄÄÄÄÄÄÄÄÅÄ´
echo    ³  Down  ³%down%³
echo    ÃÄÄÄÄÄÄÄÄÅÄ´
echo    ³  left  ³%left%³
echo    ÃÄÄÄÄÄÄÄÄÅÄ´
echo    ³ right  ³%right%³
echo    ÃÄÄÄÄÄÄÄÄÅÄ´
echo    ³ option ³%option%³
echo    ÀÄÄÄÄÄÄÄÄÁÄÙ
echo.
set /p up=Key Up :
set /p down=Key Down :
set /p left=Key Left :
set /p right=Key Right :
set /p option=Key option :
echo %up%>"%vc%\system\Up.sys"
echo %down%>"%vc%\system\Down.sys"
echo %left%>"%vc%\system\Left.sys"
echo %right%>"%vc%\system\Right.sys"
echo %option%>"%vc%\system\Option.sys"
goto option

:option4
cls
echo.
echo  Please select a color:
echo.
echo   0=Black       8=Gray
echo   1=Blue        9=Light Blue
echo   2=Green       A=Light Green
echo   3=Blue-Gray   B=Cyan
echo   4=Brown       C=Red
echo   5=Purple      D=Rose
echo   6=Khaki       E=Yellow
echo   7=Light Gray  F=White
echo.
echo  Ex: "0f" for the default color
echo  (Black in background/Characters in white)
echo.
set /p color=Please enter your color :
echo %color%>"%vc%\system\Color.sys"
color %color%
goto option

:option5
cls
if exist "%vc%\System\password.sys" for /f %%a in (%vc%\System\password.sys) do set pass=%%a
set pass1=pas2pass1
set pass2=pas2pass2
set passv=pass
echo.
echo Allows protect your part.
echo.
if exist "%vc%\System\password.sys" set /p passv=Former password :
if exist "%vc%\System\password.sys" if %passv% equ %pass% echo Good password.
if exist "%vc%\System\password.sys" if %passv% neq %pass% goto option
if exist "%vc%\System\password.sys" echo Press enter to delete the old password
set /p pass1=Password :
set /p pass2=Confirm :
if %pass1% equ pas2pass1 if %pass2% equ pas2pass2 if exist "%vc%\System\password.sys" del /f /s /q /a "%vc%\System\password.sys" >nul
if %pass1% equ pas2pass1 if %pass2% equ pas2pass2 goto option
if %pass1% equ %pass2% echo %pass2%>"%vc%\System\password.sys"
if %pass1% neq %pass2% echo Password invalid, please try again.
if %pass1% neq %pass2% pause >nul
goto option

:option6
cls
echo.
echo        ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo        ³                             ³
echo        ³             RPG          ³
echo        ³                             ³
echo        ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Create and developed by Pierre JOUSSAIN,
echo     Copyright© 2013, all right reserved.
echo.
echo.
echo  For any question or suggestion, contact-me
echo   -Skype : pierre.joussain
echo   -Facebook : [url=http://www.fb.com/pierre.joussain.7]www.fb.com/pierre.joussain.7[/url]
echo   -MSN : JOUSSAINpierre@live.fr
echo.
echo.
echo  Starting -- the : 25/01/2013 at 21:40
echo  Version : 1.7 -- the 22/05/2013 at 13:42
pause >nul
goto option

:option7
goto map

:option8
exit

:password
cls
echo.
echo        ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo        ³                              ³
echo        ³          Encryption          ³
echo        ³                              ³
echo        ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo Welcome, please enter the password.
echo.
set /p passs=Password :
if %passs% equ %pass% goto userfin
goto password


Pour toute question/suggestion, n'hésitez pas Smile



Cordialement, Pierrot



Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message RealPureGame v1.7 
Hey,

Pas mal du tout, interface parfaite, juste une petite erreur au niveau du menu 'informations' t'as une petite erreur dans le cadre ^^ Rien de bien méchant. Sinon, y'aurais pas moyen de mettre un menu pour voir le meilleur score afin de screen pour poster ici ? Smile Perso j'ai été jusqu'au level 24 Very Happy

@+, Merci du partage Mr. Green




______________________________________________________
Une question ? N'hésitez pas à me contacter par Message Privé ou via le topique concerné.
Visiter le site web du posteur
Répondre en citant
Message RealPureGame v1.7 
Salut AlonsO7798,

Merci des compliments, ce programme est vieux mais je pourrais faire un système de meilleur score dans
les options, si tu as une idée de code n'hésite pas, j'ai déja fait sa pour le jeu "The Last Warrior"
donc pourquoi pas Wink
Bien joué pour ton niveau Smile



Cordialement, Pierrot



Répondre en citant
Message RealPureGame v1.7 
Bonjour,

Tu pourrais faire un fichier save dans le dossier du jeu, mais faudra qu'il soit crypté pour ne pas tricher dans le 'Meilleur Score' ou créer un clé dans le registre qui va sauvegarder le 'Meilleur Score' dans le même style que l'identification par clé USB de Hackoo Very Happy Il save le password de secours dans le registre si je ne me trompe Very Happy Bref, je vois ça quand je rentre de vacances Very Happy

@+




______________________________________________________
Une question ? N'hésitez pas à me contacter par Message Privé ou via le topique concerné.
Visiter le site web du posteur
Répondre en citant
Message re 
Pourquoi coder en Anglais? Le Francais n'est pas une belle langue? Mort de Rire Mort de Rire



Répondre en citant
Message RealPureGame v1.7 
Nisip,

Parce que la langue officielle est l'anglais Sad
Moi aussi j'aimerais écrire en Français... Surtout en aéronautique
toute la réglementation est en anglais ^^
Je te parle pas de la programmation....



Cordialement, Pierrot



Répondre en citant
Message re 
L'Anglais est une langue officiel, Oui mais bon, dans les programmes inutile de TOUT metre en anglais a part si vous compter le publier a l'étranger xD
Sinon je ne vois pas l’intérêt, Wink



Répondre en citant
Message RealPureGame v1.7 
C'est vrai ce que tu dis, mais ça fait plus 'professionnel' l'Anglais Mr. Green Et puis rien de bien méchant là, au pire tu intègre aux options une possibilité de choisir la langue Okay
Si tu fais ça, good luck Laughing

@+




______________________________________________________
Une question ? N'hésitez pas à me contacter par Message Privé ou via le topique concerné.
Visiter le site web du posteur
Répondre en citant
Message RealPureGame v1.7 
Salut,
bug: le batch tourne en rond comme un goto sans pause et ça met
Sad

Si tu veux taper en français tes commandes,
http://batch.xoo.it/t4126-PROJET-Le-FR-DOS.htm
mais c'est encore un projet bourré de bug et incomplet Laughing




______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Répondre en citant
Message RealPureGame v1.7 
Salut,

C'est après avoir appuyé sur la touche Q ou dès le début ?
les autres touches fonctionnent ?
Si non cela viens de la commande choice
Si oui, tu as changé la config des touches ?

Screen au pire Smile Je vais voir ton post Wink



Cordialement, Pierrot



Répondre en citant
Message RealPureGame v1.7 
Re,

AlonsO7798 et NiSnip si vous souhaitez, vous pouvez traduire
je vous mettrais en dévelloper Wink
sinon je posterais sans doute une nouvelle version avec option
meilleurs scores et choix language Smile

Merci pour vos idées Very Happy



Cordialement, Pierrot



Répondre en citant
Message RealPureGame v1.7 
Oui dès le lancement, j'ai rien appuyé Sad
En fait la screen que j'ai fait clignote




______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Message RealPureGame v1.7 


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