CodeBase - basic_FrameWork
Return to the CodeBase listing
Category: Miscellaneous
Version: 1.0
Information
Uploaded: 28th Jan 2009 08:18
Modified: 3rd Jun 2009 03:27
Author: Serge Adjo
Summary
THIS is just a framework for an FPS:
Full Description
THIS is just a frame work for an FPS:<br /> <br /> rem * Title : FPSute-New<br /> rem * Author : SERGE ADJO<br /> rem * Date : 5 JANVIER 2009<br /> ` ===== FPSute-NEW =====<br /> ` 'FPSute' stands for: First-Person-Shooter using tutorials, examples (FPS utilisant tutoriels, exemples) par Serge Adjo, membre du forum TGC.<br /> ` ======================<br /> ` débuté le 15/12/2008 fini le ... version 0.9<br /> ` ======================<br /> ` Main Source File for 'FPSute-New' (Programme principal I) - :) [nom fichier projet; _MainProgFPS_DBP]<br /> ` ======================<br /> `************************************************************************************<br /> `* *<br /> `* S T A R T O F M A I N L O O P *<br /> `* *<br /> `************************************************************************************<br /> rem #INCLUDE "INCLUS.DBA" : ` <<<<<<<<< !!! ôTEZ 'REM'!!! INCLURE tout les sous-programmes grâce à "Inclus.dba";<br /> GOSUB Initialise_E : f_Initialise_Jeu() : ` Le jeu commence par cette fonction ;<br /> f_Deroulement() : ` Le déroulement du programme ENTIER se gère ici<br /> FINIR_TOUT:<br /> END :` FIN de TOUT LE PROGRAMME<br /> `***********************************************************************************<br /> `* *<br /> `* E N D O F M A I N L O O P *<br /> `* *<br /> `***********************************************************************************<br /> ` =====================<br /> ` FIN<br /> ` ===== FPSute-New =====<br /> ` "Inclus.dba" par Serge Adjo<br /> ` ======================<br /> ` fonctions: Ce programme inclu d'autres prog. au programme principal, afin qu'il les utilise.<br /> ` ======================<br /> `************************************************************************************<br /> `* *<br /> `* !!!!OTEZ REM Voici la liste des fichiers inclus: OTEZ REM !!! *<br /> `* *<br /> `************************************************************************************<br /> remstart : ` <<<<<<<<< !!! ôTEZ 'REM' !!!!!<br /> #INCLUDE "F_INITIALISATION.dba"<br /> #INCLUDE "F_Variées.dba"<br /> REMEND : ` <<<<<<<<< !!! ôTEZ 'REM' !!!!!<br /> <br /> <br /> <br /> remstart<br /> note: noms de variables: préfixe "_" (en général :)) ; noms de tableaux préfixe "T_"=GLOBAL, sinon LOCAL="t_" ; Etiquettes suffixe "_e"=GOTO sinon "_E"=GOSUB<br /> note: noms de fonctions: préfixe "f_"<br /> _variables; _variable ;suffixe # ; $ ; E ;<br /> V_variable globale; V majuscule<br /> _préfixe; "T_"=tableau GLOBAL ; "t_"=tableau LOCAL ;<br /> étiquettes ; suffixe _e et "_E"<br /> _fonctions; préfixe "f_"<br /> types: TYPE_<br /> REMEND<br /> <br /> remstart<br /> TODO:<br /> <br /> f_Deroulement() gère le déroulement de tout le programme<br /> f_Initialise_Jeu() à mettre à jour avec un tableau GLOBAL pour préférences:<br /> - FAIRE tableau GLOBAL pour charger contenu de préférences .TXT ; puis faire comme présentement<br /> f_Anti_bogue() à mettre à jour - message d'erreur<br /> f_OPEN_TO_READ_safe() mettre à jour...<br /> faire le menu principal et menu option pour afficher/modifier résolution écran, mode fenêtre<br /> <br /> <br /> Déroulement du programme , fonctions ;<br /> <br /> REMEND<br /> rem ***** Included Source File *****<br /> ` ===== FPSute-NEW =====<br /> ` "F_Initialisation.dba" par Serge Adjo<br /> ` ======================<br /> ` fonctions: Ce programme initialise le programme, ajuste résolution et rafraîchissement de l'écran;<br /> ` ======================<br /> rem DéCLARER les variables du programme;<br /> Initialise_E:<br /> ` déclarer Variables globales de lecture;<br /> GLOBAL _LectureA$ : GLOBAL _LectureB$ : GLOBAL _LectureC$ : GLOBAL _LectureD$ : GLOBAL _LectureE$ : GLOBAL _LectureF$<br /> ` déclarer Variables globales d'erreurs;<br /> GLOBAL _Erreur1$ : GLOBAL _Erreur2$ : _Erreur2$=" Erreur - pressez ECHAP pour QUITTER ce programme. "<br /> GLOBAL _Langue1 :` VARIABLE GLOBALE LANGUE<br /> ` Crée/efface un memblock pour permmettre à SC_Collision de marcher;<br /> IF MEMBLOCK EXIST(1) THEN DELETE MEMBLOCK 1<br /> ` Fin retour;<br /> RETURN<br /> <br /> <br /> // ***************************************************************<br /> // ***************************************************************<br /> rem f_Deroulement() gère le bon déroulement de TOUT le programme;<br /> FUNCTION f_Deroulement()<br /> f_Sequence_INTRO()<br /> ` FIN de la Fonction;<br /> GOTO FINIR_TOUT<br /> ENDFUNCTION<br /> <br /> rem f_Initialise_Jeu() initialise le prog., ajuste résolution, charge fichier "préférences.txt"<br /> FUNCTION f_Initialise_Jeu()<br /> ` >>>>>>>> CHANGE LE REPERTOIRE DE TRAVAIL <<<<<<<<<<<< !!!<br /> SET DIR ".." : ` <<<<<<<<< !!!<br /> f_OPEN_TO_READ_safe(1,"Données_0aPréférences.txt","Fichier introuvable: ''FPSute-NewBin32Données_0aPréférences.txt''") : ` Charger fichier "Préférences.txt" afin de changer résolution;<br /> READ STRING 1,_LectureA$ : ` lire 1 ligne intermédiaire;<br /> READ STRING 1,_LectureA$ : ` lire 3 lignes résolution LxHxProfondeur;<br /> READ STRING 1,_LectureB$ : READ STRING 1,_LectureC$ : READ STRING 1,_LectureD$ : READ STRING 1,_LectureE$ : READ STRING 1,_LectureF$<br /> SET DISPLAY MODE VAL(_LectureA$),VAL(_LectureB$),VAL(_LectureC$),VAL(_LectureD$),VAL(_LectureE$),VAL(_LectureF$)<br /> READ STRING 1,_LectureA$ : ` lire 1 ligne intermédiaire;<br /> READ STRING 1,_LectureA$ : _Langue1=VAL(_LectureA$) : ` lire 1, langue<br /> READ STRING 1,_LectureA$ : ` lire 1 ligne intermédiaire;<br /> READ STRING 1,_LectureA$ : SET TEXT FONT _LectureA$ : ` lire 1, Police texte<br /> READ STRING 1,_LectureA$ : SET TEXT SIZE VAL(_LectureA$) : ` lire 1, TAILLE texte<br /> READ STRING 1,_LectureA$ : ` lire 1 ligne intermédiaire;<br /> READ STRING 1,_LectureA$ : SYNC ON : SYNC RATE VAL(_LectureA$) : ` lire 1, fréquence d'image SYNC RATE;<br /> READ STRING 1,_LectureA$ : ` lire 1 ligne intermédiaire;<br /> READ STRING 1,_LectureA$ : SET WINDOW TITLE _LectureA$ : SET WINDOW OFF : ` lire 1, Titre du programme;<br /> READ STRING 1,_LectureA$ : ` lire 1 ligne intermédiaire;<br /> READ STRING 1,_LectureA$ : ` lire 1, Activer ECHAP Presto;<br /> IF 10=VAL(_LectureA$) THEN ENABLE ESCAPEKEY<br /> IF 0=VAL(_LectureA$) THEN DISABLE ESCAPEKEY : ` Sinon désactiver ECHAP ;<br /> ` <<<<<<<<<<<<< !!!!!! ECHAP !!! ^^^^<br /> READ STRING 1,_LectureA$ : _Erreur1$=_LectureA$ : ` message d'erreur<br /> CLOSE FILE 1<br /> BACKDROP ON<br /> COLOR BACKDROP RGB(64,64,64)<br /> AUTOCAM OFF<br /> SET NORMALIZATION ON<br /> null = MAKE VECTOR3(1) :` réglages pour fonctions distance entre 2 points ;<br /> ` FIN DE FONCTION ;<br /> ENDFUNCTION<br /> <br /> <br /> remstart ***** Included Source File *****<br /> "F_Variées.dba" par Serge Adjo<br /> ======================<br /> fonctions: Ce programme contient plusieurs fonctions ;<br /> REMEND<br /> rem ======================<br /> <br /> rem f_Anti_bogue() prévient le programme du plantage, interrompt en affichant un message d'erreur, affiche menu QUITTER.<br /> FUNCTION f_Anti_bogue()<br /> ` informer Utilisateur du problème, proposer ECHAP pour QUITTER ;<br /> ENABLE ESCAPEKEY : ` <<<<<<<<<<<< !!!!! TOUCHE ECHAP ACTIVE !!!!!!!!<br /> SET TEXT FONT "Arial"<br /> SET TEXT SIZE SCREEN WIDTH()/40<br /> SYNC RATE 60<br /> BACKDROP OFF<br /> CLS<br /> DO<br /> SET CURSOR 0,35<br /> PRINT TEXT FONT$()<br /> PRINT TEXT SIZE()<br /> PRINT _Langue1<br /> PRINT SCREEN FPS()<br /> PRINT SCREEN WIDTH()<br /> PRINT SCREEN HEIGHT()<br /> PRINT SCREEN DEPTH()<br /> TEXT 5,5,"F_ANTI_BOGUE()"<br /> PRINT _Erreur1$<br /> PRINT _Erreur2$<br /> SYNC<br /> LOOP<br /> ENDFUNCTION<br /> <br /> <br /> rem f_QUITTER_ECHAP() permet de QUITTER grâce à la touche ECHAP;<br /> FUNCTION f_QUITTER_ECHAP()<br /> IF KEYSTATE(1)=0 THEN GOTO FIN<br /> CLS<br /> DO <br /> SET CURSOR 0,0<br /> PRINT "VOUS POUVEZ QUITTER EN APPUYANT SUR ENTREE SINON ESPACE POUR CONTINUER"<br /> IF RETURNKEY()=1 THEN END<br /> IF SPACEKEY()=1 : WAIT 300 : EXIT : ENDIF<br /> SYNC <br /> LOOP<br /> FIN:<br /> ENDFUNCTION<br /> <br /> rem f_OPEN_TO_READ_safe(id,nom_du_fichier,message_d'erreur) vérifie si fichier existe et l'ouvre ;<br /> FUNCTION f_OPEN_TO_READ_safe(_id_,_nom_$,_Erreur_$)<br /> IF FILE EXIST (_nom_$)=0 : _Erreur1$=_Erreur_$ : f_Anti_bogue() : ENDIF<br /> OPEN TO READ _id_,_nom_$<br /> ENDFUNCTION<br /> <br /> rem f_Sequence_INTRO() affiche une Séquence_d'_Intro au début du programme;<br /> FUNCTION f_Sequence_INTRO()<br /> CLS<br /> ` SET CURSOR 0,5<br /> DO<br /> TEXT 0,5,"BIENVENUE DANS ''FPSute-NEW'', LE JEU VIDEO DE SERGE ADJO (c)2008 - "<br /> TEXT 0,50,"LE CONTENU PRESENTé DANS CE PROGRAMME N'EST PAS REEL."<br /> TEXT 0,95,"APPUYEZ SUR ESPACE POUR CONTINUER ou bien ECHAP POUR QUITTER"<br /> f_QUITTER_ECHAP()<br /> IF SPACEKEY()=1 THEN EXIT<br /> SYNC<br /> LOOP<br /> <br /> ENDFUNCTION
Comments
No comments yet.