Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Fussball

Uploader:Redakteurnemored
Datum/Zeit:29.08.2011 10:34:01

'$lang: "fblite"

' die verfügbaren Mannschaftsstärken
Heimattorwart% = 59
Heimatabwehr%  = 45
Heimatmittel%  = 63
Heimatsturm%   = 57
Gegnertorwart% = 43
Gegnerabwehr%  = 54
Gegnermittel%  = 43
Gegnersturm%   = 62

' Zuweisung in ein Array zur leichteren Bearbeitung
' Position 3 ist die Mitte - dort spielt Heimatmittelfeld gegen Gegnermittelfeld
' An Position 4 spielt Heimatmittelfeld gegen Gegnerabwehr usw.
DIM Heim%(0 TO 6), Gast%(0 TO 6)
Heim%(0) = Heimattorwart%
Heim%(1) = Heimatabwehr%
Heim%(2) = Heimatabwehr%
Heim%(3) = Heimatmittel%
Heim%(4) = Heimatmittel%
Heim%(5) = Heimatsturm%
Heim%(6) = Heimatsturm%

Gast%(0) = Gegnersturm%
Gast%(1) = Gegnersturm%
Gast%(2) = Gegnermittel%
Gast%(3) = Gegnermittel%
Gast%(4) = Gegnerabwehr%
Gast%(5) = Gegnerabwehr%
Gast%(6) = Gegnertorwart%

' nun die eigentliche Berechnung
RANDOMIZE TIMER
Ballbesitz% = 3
ZugProMinute% = 4
FOR Spielminute% = 1 TO 90*ZugProMinute%
  Heimteamprobe% = (RND * 1000)
  Auswartsteamprobe% = (RND * 1000)
  IF Heimteamprobe% <= Heim%(Ballbesitz%) THEN Ballbesitz% = Ballbesitz% + 1
  IF Auswartsteamprobe% <= Gast%(Ballbesitz%) THEN Ballbesitz% = Ballbesitz% - 1
  IF Ballbesitz% = 6 THEN
    Heimteamtore% = Heimteamtore% + 1
    PRINT "TOOOR für die Gastgeber! Nach"; Spielminute%\ZugProMinute%;
    PRINT " Minuten steht es"; Heimteamtore%; " :"; Auswartsteamtore%
    Ballbesitz% = 3
  ELSEIF Ballbesitz% = 0 THEN
    Auswartsteamtore% = Auswartsteamtore% + 1
    PRINT "TOOOR für die Gäste! Nach"; Spielminute%\ZugProMinute%;
    PRINT " Minuten steht es"; Heimteamtore%; " :"; Auswartsteamtore%
    Ballbesitz% = 3
  END IF
NEXT Spielminute%