XProfan

Deutsch

Hallo zusammen!

Wer hätte Interesse daran, eine Fussballmager-Simulation im Anstoss-Stil zu entwickeln? Nach mehreren Ansätzen eines solchen Spiels, ist es nahezu meine Pflicht, nach der Meisterschaft meiner Bremer, ein solches Projekt vorzuschlagen! *g*

Ich habe mir das Ganze in etwa so vorgestellt, dass es die erste und zweite Bundesliga, sowie zwei Regionalligen gibt. Zunächst sollte es ein Einspieler-Spiel sein. Die Mannschaftsaufstellung und die Taktik nehmen Einfluss auf den Spielverlauf, die Computer-Gegner entwickeln dieselbigen ihres Spielermaterials entsprechend.

Grafisch sollte es nicht zu anspruchsvoll werden, Spielverläufe im Textmodus sollten ausreichend sein!

Soweit erstmal die sehr grobe Planung. Wenn jemand wirkliches Interesse
daran hat und sich ernsthaft ein solches Projekt zutraut, würde es mich
freuen, wenn ich hier im Forum oder per Mail, Rückmeldungen bis zum
31.06.2004, bzgl. weiterer Planung, erhalten würde!

MfG,

Tobias

PS: Das Ganze soll natürlich nur dem Spaß am Programmieren, und nicht irgendwelchen kommerziellen Interessen gelten!

09.05.2004 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Haijaijai, ich habe zwar von Fußball überhaupt garkeine Ahnung, aber ich beginne mal so:
Kompilieren Markieren Separieren

##########################################################################
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())
End
//