Fantasy Football - Footballguys Forums
This is a sample guest message. Register a free account today to become a member! Once signed in, you'll be able to participate on this site by adding your own topics and posts, as well as connect with other members through your own private inbox!
Any MFL schedule experts? (1 Viewer)
- Thread starter Ripleys
- Start date
fridayfrenzy
Footballguy
http://schedules.footballguys.com/freesche...chedule=12team3
Just hit the Make my Schedule button at the bottom to see the 3 division, 12 team, 13 reg season schedule
Enter it into your MFL schedule.
Just hit the Make my Schedule button at the bottom to see the 3 division, 12 team, 13 reg season schedule
Enter it into your MFL schedule.
Last edited by a moderator:
TheFanatic
Footballguy
I use FBG's schedule generator and plug the teams into MFL manually
Hoss_Cartwright
Footballguy
Footballguys schedule maker usually covers most everyone's needs, but I had to write my own schedule maker.
If they don't have the schedule you're looking for try googling "Fantasy Football" "Schedule Maker".
We give an easier 3 game non division schedule to weaker teams from the year before, make sure to play non division games during weeks where there are bye weeks (want to have full strength for division games), play everyone in your division twice, and it's a 13 game reg season schedule, 12 team, 2 division league. I create a file that ranks the teams in each division based upon last year's results. Teams go into the two divisions based upon where they draft (before trades). Odd drafting teams go into one div and even in the other. The input file to my program below has teams 1-6 in one division and 7-12 in the other division, with 1 ranked the same as 7, 2 the same as 8, 3 the same as 9, etc.
1) First place teams play teams 1, 2, and 4 from the other division.
2) Second place teams play teams 1, 3, and 5
3) Third place teams play teams 2, 3, and 6
4) Fourth place teams play teams 1, 4, and 5
5) Fifth place teams play teams 2, 4, and 6
6) Sixth place teams play teams 3, 5, and 6
1 Bada Bing
2 JohnnyU
3 Steel Curtain
4 Wranglers
5 Skidmarks
6 Crenshaw Gangbangers
7 The Willie McCoys
8 Smackdown
9 J's Ruff Riders
10 Aerial Attack
11 EndZone Wizards
12 Whoa Nellies
?TACL ROUTINE
[#CASE [#EXCEPTION]
| _CALL | #FRAME
#PUSH open_error read_data read_prompt line char^cnt
#PUSH ^year ^month ^day ^hour ^min ^sec sched^input^file
#PUSH read_error write_var write_error sched^out^file dummy
#PUSH sched^input^line cur^date cur^time week file^msg
#PUSH ^select ^select2 ^error ^string err x n num team^nm
#PUSH error^msg sub1 blank^line ^delay finished
#PUSH #INLINEPREFIX #INLINEPROCESS
#PUSH #INLINEOUT #INLINEECHO
#PUSH #INFORMAT
#SET #INFORMAT TACL
#SET #OUTFORMAT PRETTY
#SET ^error 0
#SET ^delay 0
| _ERROR | #ERRORTEXT /CAPTURE err/
#SET ^error -1
#OUTPUT The following error occured:
#OUTPUT *******************************************************
#OUTPUTV [err]
#OUTPUT *******************************************************
| ^err |
#OUTPUT
#OUTPUT The following error occured:
#OUTPUT *******************************************************
#OUTPUT [#DELTA /COMMANDS _VIDEO/]
#OUTPUT *******************************************************
#DELAY [^delay]
| OTHERWISE |
#SET ^error -1
#OUTPUT
#OUTPUT The following error occured:
#OUTPUT *******************************************************
#SET ^string Unknown exception occurred !!
#OUTPUT [#DELTA /COMMANDS _VIDEO/]
#OUTPUT *******************************************************
#DELAY 400
] == End Case
#FILTER _ERROR ^err
=========== Called Macros =============
=============================================================================
[#DEF _VIDEO DELTA == This turns the contents of ^string to REVERSE
| BODY |
== 6530 VIDEO ATTR BITS:
==
== BIT: 6 5 4 3 2 1 0
== 0 ALWAYS NOT USED NORMAL NORMAL NORMAL NORMAL NORMAL
== 1 NOT USED ALWAYS UNDERSCORE BLANK REVERSE BLINKING DIM
== 36I 32I == PUT "REVERSE " IN BUFFER
== 37I 32I == PUT "REVERSE DIM" IN BUFFER
== 38I 32I == PUT "REVRED BLNK" IN BUFFER
== 34I 32I == PUT "BLINK RED " IN BUFFER
== 33I 32I == PUT "DIM " IN BUFFER
== 17I 32I == PUT "DIM UNDERL " IN BUFFER
== 18I 32I == PUT "RED UNDERL " IN BUFFER
== 20I 32I == PUT "REV UNDERL " IN BUFFER
== 22I 32I == PUT "REV RED UND" IN BUFFER
== 7I$ == BELL IN BUFFER
27I I6$ == PUT ESC 6 (SET VIDEO ATTR) IN BUFFER
36I 32I == PUT REVERSE IN BUFFER (%B0100101)
I[^string]$ == PUT STRING VARIABLE IN BUFFER
27I I6$ == PUT ESC 6 (SET VIDEO ATTR) IN BUFFER
64I 32I == PUT "NORMAL VIDEO" IN BUFFER
7I$
] == END DEF
=============================================================================
[#DEF _VIDEO2 DELTA == This turns the contents of ^string to REVERSE-DIM
| BODY |
27I I6$ == PUT ESC 6 (SET VIDEO ATTR) IN BUFFER
37I 32I == PUT REVERSE RED BLINK IN BUFFER (%B0100101)
I[^string]$ == PUT STRING VARIABLE IN BUFFER
27I I6$ == PUT ESC 6 (SET VIDEO ATTR) IN BUFFER
64I 32I == PUT "NORMAL VIDEO" IN BUFFER
] == END DEF
=============================================================================
[#DEF _VIDEO3 DELTA == This turns the contents of ^string to BLINK RED
| BODY |
27I I6$ == PUT ESC 6 (SET VIDEO ATTR) IN BUFFER
34I 32I == PUT "BLINK RED " IN BUFFER
I[^string]$ == PUT STRING VARIABLE IN BUFFER
27I I6$ == PUT ESC 6 (SET VIDEO ATTR) IN BUFFER
64I 32I == PUT "NORMAL VIDEO" IN BUFFER
] == END DEF
=============================================================================
[#DEF check^completion ROUTINE |BODY|
[#IF [_COMPLETION:COMPLETIONCODE] > 1
|THEN| #RETURN
] == End If
] == End #DEF check^completion ROUTINE
=============================================================================
[#DEF cls MACRO |BODY|
[#DEF :banner STRUCT
BEGIN
BYTE clear^bytes(0:1) VALUE 27 73; == ascii(27) escape control character
CHAR clear^chars(0:1) REDEFINES clear^bytes;
END;
] == end #DEF banner STRUCT
#OUTPUT [:banner:clear^chars(0:1)]
] == End #DEF cls MACRO
=============================================================================
[#DEF team^array STRUCT
BEGIN
STRUCT element (1:12);
BEGIN
INT4 num;
CHAR team^nm (0:39);
END;
END;
]
=============================================================================
[#DEF run^init MACRO |BODY|
#SET #inlineprefix +
#SET ^string
#SETV blank^line " "
#SET finished 0
#SET line
#SET n 1
#SET ^error 0
] == End #DEF run^init MACRO
=============================================================================
[#DEF validate^input^file MACRO |BODY|
#SET char^cnt 0
#SET char^cnt [#CHARCOUNT sched^input^file]
[#IF char^cnt > 7 |THEN|
#SET ^error -1
#SET ^string Team file cannot be > 7 characters [sched^input^file]
#SET ^delay 400
#RAISE ^err
|ELSE|
[#IF NOT [#FILEINFO /EXISTENCE/ [sched^input^file]] |THEN|
#SET ^error -1
#SET ^string Team file does not exist: [sched^input^file]
#SET ^delay 400
#RAISE ^err
|ELSE|
#SET sched^out^file [sched^input^file]O
[#IF NOT [#FILEINFO /EXISTENCE/ [sched^out^file]] |THEN|
create^sched^out^file
|ELSE|
fup purgedata [sched^out^file]
VARTOFILE blank^line [sched^out^file]
] == End If
] == End If
] == End If
] == End #DEF validate^input^file MACRO
=============================================================================
[#DEF create^sched^out^file MACRO |BODY|
FUP /inline/
check^completion
+ set code 101
+ set EXT ( 10 PAGES, 10 PAGES )
+ create [sched^out^file]
+ exit
check^completion
] == End #DEF create^sched^out^file MACRO
=============================================================================
[#DEF perform^read^input ROUTINE |BODY|
#SET read_error [#REQUESTER /WAIT/ READ [sched^input^file] read_error read_data read_prompt]
[#IF read_error |THEN|
#SET finished -1
#SET ^error -1
#SET ^string Open error on file [sched^input^file], exiting MSCHED !
#RAISE ^err
] == End If
[#IF ^error = 0 |THEN|
[#LOOP |WHILE| NOT read_error and NOT ^error and NOT finished |DO|
#APPEND read_prompt *start*
[#IF read_error |THEN|
#SET finished -1
|ELSE|
#SET num
#SET team^nm
#EXTRACTV read_data line
#SET num [#CHARGET line 1 TO 2]
#SET team^nm [#CHARGET line 3 TO 42]
[#IF [is^num^numeric [num]] |THEN|
[#IF ^select '=' "1" |THEN|
load^array
#SET n [#COMPUTE n + 1]
] == End If
|ELSE|
#OUTPUT Invalid input record MSCHED stopped !! [line]
#SET ^error -1
#SET finished -1
] == End If
] == End If
] == End Loop
] == End If
] == End #DEF perform^read^input MACRO
=============================================================================
[#DEF is^num^numeric ROUTINE |BODY|
#FRAME
#PUSH num^arg
[#CASE [#ARGUMENT /VALUE NUM^ARG/ NUMBER OTHERWISE]
| 1 | [#IF NOT [#MORE] |THEN|
#RESULT -1
|ELSE|
#RESULT 0
]
| OTHERWISE | #RESULT 0
]
#UNFRAME
#RETURN
] == END of is^num^numeric ROUTINE
=============================================================================
[#DEF perform^build^sched MACRO |BODY|
TIME
#OUTPUT
#OUTPUT Creating Schedule
#OUTPUT Input file reading from [sched^input^file]
#OUTPUT Output sent to [sched^out^file]
#OUTPUT
#OUTPUT Working......
#OUTPUT
#SET week 1
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(2):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(4):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(6):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(7):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(9):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(11):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 2
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(1):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(2):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(3):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(12):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(10):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(11):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 3
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(4):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(5):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(6):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(7):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(8):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(9):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 4
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(1):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(2):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(4):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(9):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(12):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(11):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 5
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(5):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(3):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(6):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(7):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(8):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(10):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 6
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 7
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(8):team^nm(0:39)] vs [team^array:element(1):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(7):team^nm(0:39)] vs [team^array:element(2):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(9):team^nm(0:39)] vs [team^array:element(3):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(11):team^nm(0:39)] vs [team^array:element(4):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(10):team^nm(0:39)] vs [team^array:element(5):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(12):team^nm(0:39)] vs [team^array:element(6):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 8
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 9
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(1):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(2):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(3):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(10):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(11):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(12):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 10
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(3):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(6):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(5):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(7):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(8):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(10):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 11
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(6):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(4):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(5):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(7):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(8):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(9):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 12
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(1):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(2):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(4):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(11):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(9):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(12):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 13
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(1):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(3):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(5):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(8):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(10):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(12):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
] == End #DEF perform^build^sched MACRO
=============================================================================
[#DEF load^array MACRO |BODY|
#SET team^array:element([n]):num [num]
#SET team^array:element([n]):team^nm(0:39) [team^nm]
] == End #DEF load^array MACRO
=============================================================================
=============================================================================
==
==
== Edit history:
==
== Date Ver By whom Change# and Description
== ---------- ----- ------------ ------------------------
== 07-Jun-06 1.x C Cantrell Initial program.
==
==
==
==
== Author: Chuck Cantrell
[#IF ^error = 0 |THEN|
run^init
== Set these to 0 to not echo inline output to the screen
#SET #inlineprefix +
#SET #INLINEECHO 0
#SET #INLINEOUT 0
] == End If
=========== Main Macro Loop ===========
[#LOOP |WHILE| ^select '<>' "E" and finished <> -1 |DO|
cls
#SET ^error 0
#SET ^delay 0
#SETMANY ^year ^month ^day ^hour ^min ^sec,[#CONTIME [#TIMESTAMP]]
#SET ^year [#compute ^year - 2000]
[#IF ^year < 10 |THEN|
#SET ^year 0[^year]
] == End If
[#IF ^month < 10 |THEN|
#SET ^month 0[^month]
] == End If
[#IF ^day < 10 |THEN|
#SET ^day 0[^day]
] == End If
[#IF ^hour < 10 |THEN|
#SET ^hour 0[^hour]
] == End If
[#IF ^min < 10 |THEN|
#SET ^min 0[^min]
] == End If
[#IF ^sec < 10 |THEN|
#SET ^sec 0[^sec]
] == End If
#set cur^date [^month]/[^day]/[^year]
#set cur^time [^hour]:[^min]:[^sec]
#OUTPUT [cur^date]
#OUTPUT [cur^time]
#OUTPUT /column 20/ --------------------------
#SET ^string Schedule Maker Utility
#OUTPUT /column 20/ [#DELTA /COMMANDS _VIDEO2/]
#OUTPUT /column 20/ --------------------------
#OUTPUT
#OUTPUT
#OUTPUT *****************************************************************
#OUTPUT 1 - 12 team, 13 weeks, play everyone in division twice, plus
#OUTPUT better teams play a harder 3 game out of division schedule
#OUTPUT
#OUTPUT 2 - Future expansion
#OUTPUT
#OUTPUT 3 - Future expansion
#OUTPUT
#OUTPUT E or CNTL-Y to exit
#OUTPUT
#OUTPUT *****************************************************************
#OUTPUT
#OUTPUT
#INPUTV ^select "Enter run option or E to exit => "
[#if [#inputeof] |THEN| == pressed CTL-Y
#SET ^select E
#SET ^error -1
#SET finished -1
#OUTPUT
#OUTPUT Break key was pressed...
#OUTPUT
] == End If
[#IF ^select '<>' "E" |THEN|
#SET ^select [#shiftstring /up/ [^select]]
] == End If
[#CASE [^select]
| 1 |
#INPUTV ^select2 "Enter team file or E to exit => "
[#IF ^select2 '<>' "E" |THEN|
#SET sched^input^file [^select2]
validate^input^file
[#IF NOT ^error |THEN|
#SET finished 0
perform^read^input
[#IF NOT ^error |THEN|
perform^build^sched
] == End If
#SET ^select E
] == End If
|ELSE|
#SET ^select E
] == End If
| 2 |
#output Nothing to see here yet
| 3 |
#output Nothing to see here yet
| E |
| OTHERWISE |
[#IF ^select '>' " " |THEN|
#SET ^string Invalid run option, please try again, or E to to exit
#SET ^delay 400
#RAISE ^err
] == end if
] == End Case
] == End Loop
#UNFRAME
Doing it from a grid it would look like
--------1---2 ---3---4---5---6---7--- 8---9---10---11---12
DIV--A---A---A---A---A---A--B---B---B---B----B-----B
1------2---1---4----3---6---5---8---7---10---9----12----11
2------4---5---6----1---2---3---10--11--12--7----8------9
3------3---6---1----5---4---2---9---12---7--11---10-----8
4------5---3---2----6---1---4--11---9----8--12----7-----10
5------6---4---5----2---3---1--12--10---11--8-----9-----7
6------7---9---8---10--12--11--1---3----2---4-----6-----5
7------8---7---9---11--10--12--2---1----3---5-----4-----6
8-----10--11--12---7---8---9---4---5----6---1-----2-----3
9------4---5---6----1---2---3--10--11---12--7-----8-----9
10-----3---6---1----5---4---2---9--12----7--11---10-----8
11-----5---3---2----6---1---4--11---9----8--12----7-----10
12-----6---4---5----2---3---1--12--10---11--8-----9-----7
13-----2---1---4----3---6---5---8---7----10--9----12----11
If they don't have the schedule you're looking for try googling "Fantasy Football" "Schedule Maker".
We give an easier 3 game non division schedule to weaker teams from the year before, make sure to play non division games during weeks where there are bye weeks (want to have full strength for division games), play everyone in your division twice, and it's a 13 game reg season schedule, 12 team, 2 division league. I create a file that ranks the teams in each division based upon last year's results. Teams go into the two divisions based upon where they draft (before trades). Odd drafting teams go into one div and even in the other. The input file to my program below has teams 1-6 in one division and 7-12 in the other division, with 1 ranked the same as 7, 2 the same as 8, 3 the same as 9, etc.
1) First place teams play teams 1, 2, and 4 from the other division.
2) Second place teams play teams 1, 3, and 5
3) Third place teams play teams 2, 3, and 6
4) Fourth place teams play teams 1, 4, and 5
5) Fifth place teams play teams 2, 4, and 6
6) Sixth place teams play teams 3, 5, and 6
1 Bada Bing
2 JohnnyU
3 Steel Curtain
4 Wranglers
5 Skidmarks
6 Crenshaw Gangbangers
7 The Willie McCoys
8 Smackdown
9 J's Ruff Riders
10 Aerial Attack
11 EndZone Wizards
12 Whoa Nellies
?TACL ROUTINE
[#CASE [#EXCEPTION]
| _CALL | #FRAME
#PUSH open_error read_data read_prompt line char^cnt
#PUSH ^year ^month ^day ^hour ^min ^sec sched^input^file
#PUSH read_error write_var write_error sched^out^file dummy
#PUSH sched^input^line cur^date cur^time week file^msg
#PUSH ^select ^select2 ^error ^string err x n num team^nm
#PUSH error^msg sub1 blank^line ^delay finished
#PUSH #INLINEPREFIX #INLINEPROCESS
#PUSH #INLINEOUT #INLINEECHO
#PUSH #INFORMAT
#SET #INFORMAT TACL
#SET #OUTFORMAT PRETTY
#SET ^error 0
#SET ^delay 0
| _ERROR | #ERRORTEXT /CAPTURE err/
#SET ^error -1
#OUTPUT The following error occured:
#OUTPUT *******************************************************
#OUTPUTV [err]
#OUTPUT *******************************************************
| ^err |
#OUTPUT
#OUTPUT The following error occured:
#OUTPUT *******************************************************
#OUTPUT [#DELTA /COMMANDS _VIDEO/]
#OUTPUT *******************************************************
#DELAY [^delay]
| OTHERWISE |
#SET ^error -1
#OUTPUT
#OUTPUT The following error occured:
#OUTPUT *******************************************************
#SET ^string Unknown exception occurred !!
#OUTPUT [#DELTA /COMMANDS _VIDEO/]
#OUTPUT *******************************************************
#DELAY 400
] == End Case
#FILTER _ERROR ^err
=========== Called Macros =============
=============================================================================
[#DEF _VIDEO DELTA == This turns the contents of ^string to REVERSE
| BODY |
== 6530 VIDEO ATTR BITS:
==
== BIT: 6 5 4 3 2 1 0
== 0 ALWAYS NOT USED NORMAL NORMAL NORMAL NORMAL NORMAL
== 1 NOT USED ALWAYS UNDERSCORE BLANK REVERSE BLINKING DIM
== 36I 32I == PUT "REVERSE " IN BUFFER
== 37I 32I == PUT "REVERSE DIM" IN BUFFER
== 38I 32I == PUT "REVRED BLNK" IN BUFFER
== 34I 32I == PUT "BLINK RED " IN BUFFER
== 33I 32I == PUT "DIM " IN BUFFER
== 17I 32I == PUT "DIM UNDERL " IN BUFFER
== 18I 32I == PUT "RED UNDERL " IN BUFFER
== 20I 32I == PUT "REV UNDERL " IN BUFFER
== 22I 32I == PUT "REV RED UND" IN BUFFER
== 7I$ == BELL IN BUFFER
27I I6$ == PUT ESC 6 (SET VIDEO ATTR) IN BUFFER
36I 32I == PUT REVERSE IN BUFFER (%B0100101)
I[^string]$ == PUT STRING VARIABLE IN BUFFER
27I I6$ == PUT ESC 6 (SET VIDEO ATTR) IN BUFFER
64I 32I == PUT "NORMAL VIDEO" IN BUFFER
7I$
] == END DEF
=============================================================================
[#DEF _VIDEO2 DELTA == This turns the contents of ^string to REVERSE-DIM
| BODY |
27I I6$ == PUT ESC 6 (SET VIDEO ATTR) IN BUFFER
37I 32I == PUT REVERSE RED BLINK IN BUFFER (%B0100101)
I[^string]$ == PUT STRING VARIABLE IN BUFFER
27I I6$ == PUT ESC 6 (SET VIDEO ATTR) IN BUFFER
64I 32I == PUT "NORMAL VIDEO" IN BUFFER
] == END DEF
=============================================================================
[#DEF _VIDEO3 DELTA == This turns the contents of ^string to BLINK RED
| BODY |
27I I6$ == PUT ESC 6 (SET VIDEO ATTR) IN BUFFER
34I 32I == PUT "BLINK RED " IN BUFFER
I[^string]$ == PUT STRING VARIABLE IN BUFFER
27I I6$ == PUT ESC 6 (SET VIDEO ATTR) IN BUFFER
64I 32I == PUT "NORMAL VIDEO" IN BUFFER
] == END DEF
=============================================================================
[#DEF check^completion ROUTINE |BODY|
[#IF [_COMPLETION:COMPLETIONCODE] > 1
|THEN| #RETURN
] == End If
] == End #DEF check^completion ROUTINE
=============================================================================
[#DEF cls MACRO |BODY|
[#DEF :banner STRUCT
BEGIN
BYTE clear^bytes(0:1) VALUE 27 73; == ascii(27) escape control character
CHAR clear^chars(0:1) REDEFINES clear^bytes;
END;
] == end #DEF banner STRUCT
#OUTPUT [:banner:clear^chars(0:1)]
] == End #DEF cls MACRO
=============================================================================
[#DEF team^array STRUCT
BEGIN
STRUCT element (1:12);
BEGIN
INT4 num;
CHAR team^nm (0:39);
END;
END;
]
=============================================================================
[#DEF run^init MACRO |BODY|
#SET #inlineprefix +
#SET ^string
#SETV blank^line " "
#SET finished 0
#SET line
#SET n 1
#SET ^error 0
] == End #DEF run^init MACRO
=============================================================================
[#DEF validate^input^file MACRO |BODY|
#SET char^cnt 0
#SET char^cnt [#CHARCOUNT sched^input^file]
[#IF char^cnt > 7 |THEN|
#SET ^error -1
#SET ^string Team file cannot be > 7 characters [sched^input^file]
#SET ^delay 400
#RAISE ^err
|ELSE|
[#IF NOT [#FILEINFO /EXISTENCE/ [sched^input^file]] |THEN|
#SET ^error -1
#SET ^string Team file does not exist: [sched^input^file]
#SET ^delay 400
#RAISE ^err
|ELSE|
#SET sched^out^file [sched^input^file]O
[#IF NOT [#FILEINFO /EXISTENCE/ [sched^out^file]] |THEN|
create^sched^out^file
|ELSE|
fup purgedata [sched^out^file]
VARTOFILE blank^line [sched^out^file]
] == End If
] == End If
] == End If
] == End #DEF validate^input^file MACRO
=============================================================================
[#DEF create^sched^out^file MACRO |BODY|
FUP /inline/
check^completion
+ set code 101
+ set EXT ( 10 PAGES, 10 PAGES )
+ create [sched^out^file]
+ exit
check^completion
] == End #DEF create^sched^out^file MACRO
=============================================================================
[#DEF perform^read^input ROUTINE |BODY|
#SET read_error [#REQUESTER /WAIT/ READ [sched^input^file] read_error read_data read_prompt]
[#IF read_error |THEN|
#SET finished -1
#SET ^error -1
#SET ^string Open error on file [sched^input^file], exiting MSCHED !
#RAISE ^err
] == End If
[#IF ^error = 0 |THEN|
[#LOOP |WHILE| NOT read_error and NOT ^error and NOT finished |DO|
#APPEND read_prompt *start*
[#IF read_error |THEN|
#SET finished -1
|ELSE|
#SET num
#SET team^nm
#EXTRACTV read_data line
#SET num [#CHARGET line 1 TO 2]
#SET team^nm [#CHARGET line 3 TO 42]
[#IF [is^num^numeric [num]] |THEN|
[#IF ^select '=' "1" |THEN|
load^array
#SET n [#COMPUTE n + 1]
] == End If
|ELSE|
#OUTPUT Invalid input record MSCHED stopped !! [line]
#SET ^error -1
#SET finished -1
] == End If
] == End If
] == End Loop
] == End If
] == End #DEF perform^read^input MACRO
=============================================================================
[#DEF is^num^numeric ROUTINE |BODY|
#FRAME
#PUSH num^arg
[#CASE [#ARGUMENT /VALUE NUM^ARG/ NUMBER OTHERWISE]
| 1 | [#IF NOT [#MORE] |THEN|
#RESULT -1
|ELSE|
#RESULT 0
]
| OTHERWISE | #RESULT 0
]
#UNFRAME
#RETURN
] == END of is^num^numeric ROUTINE
=============================================================================
[#DEF perform^build^sched MACRO |BODY|
TIME
#OUTPUT
#OUTPUT Creating Schedule
#OUTPUT Input file reading from [sched^input^file]
#OUTPUT Output sent to [sched^out^file]
#OUTPUT
#OUTPUT Working......
#OUTPUT
#SET week 1
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(2):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(4):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(6):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(7):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(9):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(11):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 2
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(1):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(2):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(3):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(12):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(10):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(11):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 3
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(4):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(5):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(6):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(7):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(8):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(9):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 4
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(1):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(2):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(4):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(9):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(12):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(11):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 5
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(5):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(3):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(6):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(7):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(8):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(10):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 6
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 7
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(8):team^nm(0:39)] vs [team^array:element(1):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(7):team^nm(0:39)] vs [team^array:element(2):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(9):team^nm(0:39)] vs [team^array:element(3):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(11):team^nm(0:39)] vs [team^array:element(4):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(10):team^nm(0:39)] vs [team^array:element(5):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(12):team^nm(0:39)] vs [team^array:element(6):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 8
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 9
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(1):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(2):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(3):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(10):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(11):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(12):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 10
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(3):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(6):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(5):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(7):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(8):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(10):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 11
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(1):team^nm(0:39)] vs [team^array:element(6):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(4):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(5):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(7):team^nm(0:39)] vs [team^array:element(12):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(8):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(9):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 12
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(5):team^nm(0:39)] vs [team^array:element(1):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(3):team^nm(0:39)] vs [team^array:element(2):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(4):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(11):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(9):team^nm(0:39)] vs [team^array:element(8):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(12):team^nm(0:39)] vs [team^array:element(10):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET week 13
#SET line WEEK [week]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
#SET line [team^array:element(2):team^nm(0:39)] vs [team^array:element(1):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(4):team^nm(0:39)] vs [team^array:element(3):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(6):team^nm(0:39)] vs [team^array:element(5):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(8):team^nm(0:39)] vs [team^array:element(7):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(10):team^nm(0:39)] vs [team^array:element(9):team^nm(0:39)]
VARTOFILE line [sched^out^file]
#SET line [team^array:element(12):team^nm(0:39)] vs [team^array:element(11):team^nm(0:39)]
VARTOFILE line [sched^out^file]
VARTOFILE blank^line [sched^out^file]
] == End #DEF perform^build^sched MACRO
=============================================================================
[#DEF load^array MACRO |BODY|
#SET team^array:element([n]):num [num]
#SET team^array:element([n]):team^nm(0:39) [team^nm]
] == End #DEF load^array MACRO
=============================================================================
=============================================================================
==
==
== Edit history:
==
== Date Ver By whom Change# and Description
== ---------- ----- ------------ ------------------------
== 07-Jun-06 1.x C Cantrell Initial program.
==
==
==
==
== Author: Chuck Cantrell
[#IF ^error = 0 |THEN|
run^init
== Set these to 0 to not echo inline output to the screen
#SET #inlineprefix +
#SET #INLINEECHO 0
#SET #INLINEOUT 0
] == End If
=========== Main Macro Loop ===========
[#LOOP |WHILE| ^select '<>' "E" and finished <> -1 |DO|
cls
#SET ^error 0
#SET ^delay 0
#SETMANY ^year ^month ^day ^hour ^min ^sec,[#CONTIME [#TIMESTAMP]]
#SET ^year [#compute ^year - 2000]
[#IF ^year < 10 |THEN|
#SET ^year 0[^year]
] == End If
[#IF ^month < 10 |THEN|
#SET ^month 0[^month]
] == End If
[#IF ^day < 10 |THEN|
#SET ^day 0[^day]
] == End If
[#IF ^hour < 10 |THEN|
#SET ^hour 0[^hour]
] == End If
[#IF ^min < 10 |THEN|
#SET ^min 0[^min]
] == End If
[#IF ^sec < 10 |THEN|
#SET ^sec 0[^sec]
] == End If
#set cur^date [^month]/[^day]/[^year]
#set cur^time [^hour]:[^min]:[^sec]
#OUTPUT [cur^date]
#OUTPUT [cur^time]
#OUTPUT /column 20/ --------------------------
#SET ^string Schedule Maker Utility
#OUTPUT /column 20/ [#DELTA /COMMANDS _VIDEO2/]
#OUTPUT /column 20/ --------------------------
#OUTPUT
#OUTPUT
#OUTPUT *****************************************************************
#OUTPUT 1 - 12 team, 13 weeks, play everyone in division twice, plus
#OUTPUT better teams play a harder 3 game out of division schedule
#OUTPUT
#OUTPUT 2 - Future expansion
#OUTPUT
#OUTPUT 3 - Future expansion
#OUTPUT
#OUTPUT E or CNTL-Y to exit
#OUTPUT
#OUTPUT *****************************************************************
#OUTPUT
#OUTPUT
#INPUTV ^select "Enter run option or E to exit => "
[#if [#inputeof] |THEN| == pressed CTL-Y
#SET ^select E
#SET ^error -1
#SET finished -1
#OUTPUT
#OUTPUT Break key was pressed...
#OUTPUT
] == End If
[#IF ^select '<>' "E" |THEN|
#SET ^select [#shiftstring /up/ [^select]]
] == End If
[#CASE [^select]
| 1 |
#INPUTV ^select2 "Enter team file or E to exit => "
[#IF ^select2 '<>' "E" |THEN|
#SET sched^input^file [^select2]
validate^input^file
[#IF NOT ^error |THEN|
#SET finished 0
perform^read^input
[#IF NOT ^error |THEN|
perform^build^sched
] == End If
#SET ^select E
] == End If
|ELSE|
#SET ^select E
] == End If
| 2 |
#output Nothing to see here yet
| 3 |
#output Nothing to see here yet
| E |
| OTHERWISE |
[#IF ^select '>' " " |THEN|
#SET ^string Invalid run option, please try again, or E to to exit
#SET ^delay 400
#RAISE ^err
] == end if
] == End Case
] == End Loop
#UNFRAME
Doing it from a grid it would look like
--------1---2 ---3---4---5---6---7--- 8---9---10---11---12
DIV--A---A---A---A---A---A--B---B---B---B----B-----B
1------2---1---4----3---6---5---8---7---10---9----12----11
2------4---5---6----1---2---3---10--11--12--7----8------9
3------3---6---1----5---4---2---9---12---7--11---10-----8
4------5---3---2----6---1---4--11---9----8--12----7-----10
5------6---4---5----2---3---1--12--10---11--8-----9-----7
6------7---9---8---10--12--11--1---3----2---4-----6-----5
7------8---7---9---11--10--12--2---1----3---5-----4-----6
8-----10--11--12---7---8---9---4---5----6---1-----2-----3
9------4---5---6----1---2---3--10--11---12--7-----8-----9
10-----3---6---1----5---4---2---9--12----7--11---10-----8
11-----5---3---2----6---1---4--11---9----8--12----7-----10
12-----6---4---5----2---3---1--12--10---11--8-----9-----7
13-----2---1---4----3---6---5---8---7----10--9----12----11
Last edited by a moderator:
Art_VanDalay
Footballguy
Just a little extra info for those that don't know on FBG schedule maker. I too am a longtime commish and make a weighted schedule based on the prior year's finish. Did you know that the order of where you list teams in their respective divisions will determine in large part who their out of division opponents will be? Play with it a little and you will find a schedule that makes sense. I find listing the teams in each division by order of finish the year before comes closest to "weighting" the schedule. Hope that helps.
TheFanatic
Footballguy
That's what I do too. 10 team league with two 5 team conferences. 14 game regular season. Play everyone in the conference twice for 8 games. Everyone in the other conference once for 13 games. The final game is against the team in the other conference that finished with the same spot in the standings. I think the order has to be inversed though. So I put the 1st, 2nd, 3rd, 4th, 5th in order in one conference and then 5th, 4th, 3rd, 2nd and 1st in the other to get the two 1st place teams from years prior to square off twice, two 2nd place teams, etc...
CD Dragon
Footballguy
12 teams , 3 divisions, 13 weeks, i choose the packaged MFL sched with the 1 double header week ( so everyone plays everyone at least once, twice in division).
i take the sched and put the double header in week eleven with one division and one non division opponent and switch the sched to accomodate the wk1,2,3,11,12,13 div matchups. i manually do this and takes 20 minutes or so
i take the sched and put the double header in week eleven with one division and one non division opponent and switch the sched to accomodate the wk1,2,3,11,12,13 div matchups. i manually do this and takes 20 minutes or so
I am the commish of my local league and had a similiar scheduling challenge. I have a 12 team league with 3 divisions. Our regular season consists of each owner playing teams in their division twice and playing each team outside their division once. That is 14 games I fit into a 13 week regular season schedule. How i accomplish the extra game is I have half the teams play a double header in week 12 and the other half in week 13. It makes for an exciting finish giving a little bump for the stronger teams towards the end of the regular season. What draft slot you get determines what division you play in. For example Draft slots 1,4,7,10 is in division A and 2,5,8,11 are in B and 3,6,9,12 are in C. I created a schedule grid below but it might not copy and paste very well. It is in Excel so I can email you the spreadsheet if you want. 6 teams make the playoffs. Seeds 1-3 are the division winnners based on W/L with total pts as a tie breaker. Seeds 4-6 are based on highest total points outside the division winners (W/L does not play a factor unless needed for a tie breaker). Week 14 #1 and #2 seeds get a bye and #3 plays #6 and #4 plays #5. #1 seed plays the lowest winning seed in Week 15 and of course the superbowl is in week 16. I also changed my league to a blind bidding waiver format. Each team gets 1,000 waiver budget. The twist is we have blind bidding for draft slots as well that goes against this 1,000. For example if the winning bid is 500 for the #1 draft slot that team will only have 500 for the season for waivers. I think this is much better than a random draw for draft slots. Plus there is strategy in what division you end up by your draft slot. As in most leagues you have some dead weight and the top owners try to get in their division when possible. Anyhoo hope that helps. Let me know if you have any questions. W1 W2 W3 W4 W5 W6 W7 W8 W9 W10 W11 W12 W133 v 9 9 v 6 12 v 9 9 v 2 8 v 9 9 v 11 7 v 9 4 v 9 9 v 1 5 v 9 9 v 10 3 v 6, 9 v 12 3 v 9, 3 v 1212 v 6 3 v 12 3 v 2 3 v 8 11 v 3 7 v 3 4 v 3 1 v 3 3 v 5 10 v 3 3 v 6 12 v 6, 8 v 2 9 v 6, 8 v 118 v 2 2 v 4 8 v 6 6 v 11 6 v 7 6 v 4 1 v 6 5 v 6 6 v 10 2 v 6 12 v 11 2 v 5, 11 v 5 8 v 5, 2 v 1111 v 5 8 v 5 10 v 11 12 v 7 12 v 4 12 v 1 5 v 12 10 v 12 12 v 2 8 v 12 2 v 7 4 v 7 4 v 104 v 7 11 v 1 7 v 5 1 v 5 1 v 2 2 v 5 10 v 2 11 v 2 8 v 4 4 v 11 8 v 1 7 v 1 4 v 110 v 1 10 v 7 4 v 1 4 v 10 5 v 10 8 v 10 11 v 8 7 v 8 11 v 7 1 v 7 4 v 5 10 v 1 7 v 10Each division opponent playing each other during weeks 1-3 and then 10-13. We have 3 different divisions. Anyone know how to get this schedule?
stugnut
Footballguy
How many teams??Each division opponent playing each other during weeks 1-3 and then 10-13. We have 3 different divisions. Anyone know how to get this schedule?
Mitch Robbins
Footballguy
.
