XProfan

Français

allô zusammen!

qui hätte intérêt daran, une Fussballmager-Simulation im Anstoss-Stil trop entwickeln? Pour mehreren Ansätzen eines solchen Spiels, ist es nahezu mon devoir, pour qui championnat meiner Bremer, un solches projet vorzuschlagen! *g*

j'ai mir cela Ganze dans etwa so vorgestellt, dass es la première et zweite Bundesliga, sowie deux Regionalligen gibt. Zunächst sollte es un Einspieler-Spiel son. qui Mannschaftsaufstellung et qui Taktik prendre Einfluss sur den Spielverlauf, qui ordinateur-Gegner entwickeln dieselbigen ihres Spielermaterials entsprechend.

Grafisch sollte es pas trop anspruchsvoll volonté, Spielverläufe im Textmodus devrait ausreichend son!

Soweit erstmal qui très grobe Planung. si quelqu'un wirkliches intérêt
daran hat et sich ernsthaft un solches projet zutraut, serait es mich
freuen, si je ici im Forum ou bien per Mail, Rückmeldungen jusqu'à zum
31.06.2004, bzgl. weiterer Planung, conservé serait!

MfG,

Tobias

PS: cela Plénier naturellement seulement dem Amusement am Programmieren, et pas irgendwelchen kommerziellen Interessen gelten!

09.05.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Haijaijai, j'ai zwar de Fußball überhaupt garkeine Ahnung, mais je beginne la fois so:
Kompilieren Marque Séparation

##########################################################################
Fussballmager-Simulation, a Profan OpenSource Project, started may 2004
__________________________________________________________________________
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 1.1
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-
1307, USA.
__________________________________________________________________________
Source changed by: [20040509] [iF] [profan@mxii.com]
Source changed by: [DATE] [NICK/NAME] [EML]
Source changed by: [DATE] [NICK/NAME] [EML]
Source changed by: [DATE] [NICK/NAME] [EML]
Source changed by: [DATE] [NICK/NAME] [EML]
##########################################################################
//headerstuff
Seterrorlevel 2
settruecolor 1
Decimals 0
//
//defstuff
Def $apptitle Fussballmager-Simulation
Def $appversion 0.0.1
//
//functionsstuff
Def GetKeyState(1) !USER32,GetKeyState
Def GetSysColor(1) !User32,GetSysColor
DEF CreateVRTextM(6) @control(STATIC,@$(2),$50801001,@%(3),@%(4),@%(5),@%(6),@%(1),800, %HInstance)
//
//declarings
declare _globMainFont&
declare _hwndtitlehdl&
declare _ex%
//
//mainwindowstuff

proc init_app

    windowstyle 512+16+8+2
    windowtitle $apptitle+ +$appversion
    window add(%maxx*2,sub(div(%maxx,2),320)),sub(div(%maxy,2),240) - 640,480
    setwindowpos %hwnd=sub(sub(%winleft,%maxx*2),div(sub(640,width(%hwnd)),2)),sub(%wintop,div(sub(480,height(%hwnd)),2)) - add(sub(640,width(%hwnd)),sub(%winright,%winleft)),add(sub(480,height(%hwnd)),sub(%winbottom,%wintop));0
    cls getsyscolor(15)
    useicon baum
    return %hwnd

endproc

//

proc init_globs

    _ex%=0
    _globMainFont&=createfont(Ms Sans Serif,16,0,0,0,0)
    return 1

endproc

proc init_elms

    _hwndtitlehdl&=CreateVRTextM(%hwnd,$apptitle,0,0,640,20)
    setfont _hwndtitlehdl&,_globMainFont&
    return 1

endproc

proc term_elms

    destroywindow (_hwndtitlehdl&)

endproc

proc term_globs

    deleteobject _globMainFont&

endproc

proc main

    if init_app()

        if init_globs()

            if init_elms()

                app
                term_elms

            endif

            term_globs

        endif

        return %hwnd

    else

        return %hinstance

    endif

endproc

proc messagehandler

    if %key=2

        _ex%=1

    endif

endproc

proc eventhandler

    if getfocus()

    endif

endproc

proc app

    whilenot _ex%

        waitinput
        messagehandler
        eventhandler

    wend

endproc

//runz app
destroywindow (main(<