| |
| |
|
Hello together!
who had interest on it, a Fussballmager-Simulation in the Anstoss-Style to develop? After several Ansätzen one such Spiels, is it almost my duty, to the championship of my Bremer, one solches proposition vorzuschlagen! *g*
I have me the Whole in about so pictured, that it The first and second Bundesliga, as well as two Regionalligen gives. first of all ought to it one Einspieler-game his. The Mannschaftsaufstellung and the tactic take Einfluss on the Spielverlauf, The computer-opponent develop dieselbigen their Spielermaterials properly.
Graphic ought to not To demanding go, Spielverläufe in the Textmode should enough his!
so far first The very crude planning. If someone wirkliches interest
on it has and itself earnestly one solches proposition zutraut, would it me
forward, if I here in the Forum or by Mail, Rückmeldungen until
31.06.2004, bzgl. Another planning, receive would!
MfG,
Tobias
PS: the Whole should naturally only the Fun on the program, and not irgendwelchen commercial interests count! |
|
| |
| |
| |
|
|
 | Haijaijai, I have of course of soccer at all garkeine Idea, but I begin time so:
CompileMarkSeparation##########################################################################
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
//
|
|
| |
| |
| |
|
(2.111)
Deutsch
English
Français
Español
Italia