| |
|
|
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! |
|
|
| |
|
|
|
| Haijaijai, j'ai zwar de Fußball überhaupt garkeine Ahnung, mais je beginne la fois so: KompilierenMarqueSé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(< ))
Fin
/ /
|
|
|
| |
|
|