Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Kill The Piou Piou !
Auteur Message
Répondre en citant
Message Kill The Piou Piou ! 
Salut à tous, lorsque j'ai envie de programmer un jeu mais que j'ai pas d'inspiration, je pense à ça...
Voici Kill The Piou Piou ! Laughing

À CAUSE DE INSERTBMP QUI N'EST PAS COMPATIBLE SUR W10, LE JEU EST DIFFICILEMENT JOUABLE, DÉSOLÉ !
J'ai essayé de le faire avec AffPNG mais j'ai rien compris et j'ai abandonné... Rolling Eyes

Kill The Piou Piou est un jeu où vous intégrez un lieu paisible plein de Pious Pious... Sauf que vous devez tous les tuer Laughing
Après avoir passé les dialogues avec le clic gauche, des Piou Piou vont spawn à gauche de l'écran, visez-les avec votre souris (sur le crâne !) et appuyez sur la barre ESPACE pour tirer !
Plus le score augmente et plus les Piou Piou vont vite, il va falloir être habile ! xD

Télécharger (n'oubliez pas de décompresser le dossier assets et le .bat dans un même dossier) :
http://www.sendspace.com/file/itttxv
Code source (LE JEU NE PEUT PAS FONCTIONNER SANS LE DOSSIER ASSETS FOURNI EN TÉLÉCHARGEMENT :
Code:
@echo off
CD assets
title Kill The Piou Piou
mode con cols=105 lines=40
:home
set score=0&set level=5&set waiting=10
batbox /h 0&insertbmp /p:pictures\fonts\font0.bmp&batbox /w 200&insertbmp /p:pictures\fonts\font1.bmp&batbox /w 300&insertbmp /p:pictures\fonts\font2.bmp&batbox /w 400
FOR /L %%1 in (170, 5, 625) DO insertbmp /p:pictures\boxes\loadbar.bmp /x:%%1 /y:360&batbox /w 2
insertbmp /p:pictures\boxes\loadfull.bmp /x:620 /y:360
batbox /w 500
:start
insertbmp /p:pictures\fonts\font3.bmp
FOR /L %%1 in (1, 1, 5) DO insertbmp /p:pictures\dials\dial%%1.bmp /x:20 /y:310&batbox /m >nul
batbox /w 100
insertbmp /p:pictures\fonts\font3.bmp
FOR /L %%1 in (780, 20, 800) DO insertbmp /p:pictures\fonts\0.bmp /x:%%1 /y:30
:bspawn
call :spawn
:bcl
batbox /w %waiting% /k_
if "%errorlevel%"=="32" if not "%last%"=="%time:~6,2%" (goto :tir_piou) else (insertbmp /p:pictures\dials\recharge.bmp /x:0 /y:420)
call :move_piou
goto :bcl
:spawn
set /a ran=%random%%%240+150
set X=0
set Y=%ran%
insertbmp /p:pictures\pious\sprite0.bmp /x:0 /y:%ran%
goto :eof
:move_piou
set /a X+=%level%
if %X% GEQ 850 goto :game_over
if %Y% LEQ 379 (set /a ranY=%random%%%12-5) else (set /a ranY=%random%%%9-6)
set /a Y+=%ranY%
set /a ransprite=%random%%%2
insertbmp /p:pictures\pious\sprite%ransprite%.bmp /x:%X% /y:%Y%
goto :bcl
:tir_piou
set "last=%time:~6,2%"
FOR /F "tokens=1,2,3 delims=:" %%1 in ('batbox /y') DO set "Xs2=%%1"&set "Ys2=%%2"
if "%Xs2%"=="0" goto :tir_piou && if "%Ys2%"=="0" goto :tir_piou
set /a Xs=%Xs2%*8
set /a Ys=%Ys2%*8+%Ys2%/2*8
set /a diffX=%Xs%-%X%
set /a diffY=%Ys%-%Y%
set shoot=false
if %diffX% LEQ 65 if %diffX% GEQ 25 if %diffY% LEQ 30 if %diffY% GEQ -4 set shoot=true
if "%shoot%"=="false" goto :msghelp
FOR /L %%1 in (%Y%, 5, 360) DO insertbmp /p:pictures\pious\sprite2.bmp /x:%X% /y:%%1
insertbmp /p:pictures\fonts\font3.bmp
set /a score+=1
if %level% LEQ 19 (set /a level+=1) else (if %waiting% GEQ 4 set /a waiting-=1)
if "%score:~1,1%"=="" (insertbmp /p:pictures\fonts\0.bmp /x:780 /y:30&insertbmp /p:pictures\fonts\%score%.bmp /x:800 /y:30) else (insertbmp /p:pictures\fonts\%score:~0,1%.bmp /x:780 /y:30&insertbmp /p:pictures\fonts\%score:~1,1%.bmp /x:800 /y:30)
goto :bspawn
:msghelp
if %diffY% GTR 65 set msg=up
if %diffY% LSS 25 set msg=down
if %diffX% GTR 30 set msg=left
if %diffX% LSS -4 set msg=right
insertbmp /p:pictures\dials\%msg%.bmp /x:0 /y:420
goto :bcl
:game_over
insertbmp /p:pictures\fonts\gameover.bmp
batbox /m >nul
goto :home


N'hésitez pas à me communiquer votre meilleur score ! Laughing




______________________________________________________

Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Kill The Piou Piou ! 
Salut !
C'est énorme xD Moi perso j'ai fais 15, après mon pc rame trop, et je me transforme en chasseur bourré.
Très bon jeu, et fluide (quand on ne tire pas Razz )

T'inquiètes pour la non-comptabilité avec Wind10, car VIVE WINDOWS 7 !!!
N'hésite pas à télécharger batbox (c'est pas comme darkbox, mais en mieux xDDDDDDDDD) (ceci était une boutade)
Bref bon boulot x)

Cordialement, timothe_2000, qui a le pseudo le plus stylet x)



N'oublie le voyage le voyage en Ardèche -Michel




______________________________________________________
Do what you want cause a pirate is free: you are a pirate !
Skype
Répondre en citant
Message Kill The Piou Piou ! 
timothe_2000 a écrit:
T'inquiètes pour la non-comptabilité avec Wind10, car VIVE WINDOWS 7 !!!

Je suis comme toi (Vive windows 7) mais un jour,ma mère utilisait mon ordi et a vu le message installer windows 10.Elle a cliqué en croyant que c'était une simple mise à jour.
Du-coup,je me suis trouvé sur windows 10 au petit matin.
J'ai ragé.#LeSeum


EDIT : si ça marche sur W10 mais à un moment ça à crashé (2nde partie,quant le poussin vole sur le titre).
Pour que ça marche sur W10 , il faut activer l'ancienne console et mettre la police raster à la bonne taille et le tour est joué (je dis ça parce-que je bosse sur BatchUnitedOS avec Fokker974)

sinon parfait,bon scénario,belle interface c'est parfait!

EDIT 2 : Utilise darkbox,c'est plus rapide
EDIT 3 : Affpng est écrit en autoit,ce qu'il fait est simuler l'affichage d'images.Tu ne pourra de toute façon pas l'intégrer au jeu car les clics ne seront pas pris en charge (comme tu sera dans une fenêtre simulée)




______________________________________________________
Compte inactif à partir de décembre 2016.
Ancien site
Nouveau site et site en contruction
Nombre de vues du profil :
Visiter le site web du posteur Skype
Répondre en citant
Message Kill The Piou Piou ! 
Yep pour darkbox j'aurais du mais j'ai vraiment du mal à le manier... Rolling Eyes
Par contre OK pour Polices Raster (la taille par défaut étant 8*12) mais l'ancienne console, c'est où exactement ? Laughing




______________________________________________________

Répondre en citant
Message Kill The Piou Piou ! 
Ozachi a écrit:
Yep pour darkbox j'aurais du mais j'ai vraiment du mal à le manier... Rolling Eyes
Par contre OK pour Polices Raster (la taille par défaut étant 8*12) mais l'ancienne console, c'est où exactement ? Laughing

Dans les paramètres de la console




______________________________________________________
Compte inactif à partir de décembre 2016.
Ancien site
Nouveau site et site en contruction
Nombre de vues du profil :
Visiter le site web du posteur Skype
Message Kill The Piou Piou ! 


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