XProfan

Español

¡Hola zusammen!

Wer hätte Interesse daran, una Fussballmager-Simulation en el Anstoss-Stil para desarrollar? Nach más Ansätzen uno solchen Spiels, es nahezu mi Pflicht, después de el Meisterschaft meiner Bremer, una solches Projekt vorzuschlagen! *g*

Yo habe me Ganze en etwa así vorgestellt, dass lo el erste y zweite Bundesliga, sowie zwei Regionalligen son. Zunächst debería lo una Einspieler-Spiel ser. El Mannschaftsaufstellung y el Taktik nehmen Einfluss en el Spielverlauf, el Computer-Gegner entwickeln dieselbigen ihres Spielermaterials entsprechend.

Grafisch debería no a anspruchsvoll voluntad, Spielverläufe en el Textmodus debería ausreichend ser!

Soweit primero el muy grobe Planung. Wenn alguien wirkliches Interesse
daran ha y se ernsthaft una solches Projekt zutraut, sería lo mich
freuen, si yo hier en el Foro oder por Mail, Rückmeldungen a para
31.06.2004, bzgl. weiterer Planung, obtener sería!

MfG,

Tobias

PS: Das Plenario natürlich sólo el Spaß al Programmieren, y no irgendwelchen kommerziellen Interessen gelten!

09.05.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Haijaijai, Yo zwar de Fußball überhaupt garkeine Idea, pero yo beginne veces así:
Kompilieren Marca Separación

##########################################################################
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(<