home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1992-09-26 | 25.0 KB | 741 lines |
- Break Off
- Screen Open 0,640,400,2,Hires
- Dim NFL_NAME$(28),WLAF_NAME$(9)
- Global WLAF_DIR$,NFL_DIR$,NFL_NAME$(),WLAF_NAME$()
- MAIN
- Procedure MAIN
- Sam Bank 15
- NFL_DIR$="S:" : WLAF_DIR$="S:"
- Make Mask : Hide
- Curs Off : Flash Off
- Led On
- _SMALL_COPYRIGHT[225]
- Fade 1 : Wait 16
- Auto View Off : Unpack 6 To 0 : Screen Clone 1 : Screen To Front 0
- For C=0 To 31
- Colour C,0
- Next
- View : Auto View On
- Curs Off : Flash Off
- Fade 3 To 1,%10001001100 : Wait 100
- Fade 3 To 1,%10000000 : Wait 100
- Fade 3 To 1,%1000000000 : Wait 100
- Fade 3 To 1 : Wait 45
- Wait Key
- Auto View Off
- Screen Close 1
- Erase 6
- Screen Open 1,640,400,16,Hires
- Get Palette 0
- Pen 14
- Curs Pen 14
- Palette ,0
- If Not Exist("S:AAFP.NFLstats")
- Screen To Front 1
- Screen 1
- N0THERE:
- Cls
- Centre "Could not find the NFL stats file."
- Cdown : Centre "If you wish to create a new one, press enter"
- Cdown : Centre "or enter the directory where it resides. (i.e. dh0:AAFP/)"
- Locate 0,3 : Print "Please include the slash (/) if needed: ";
- Wait Vbl : View : Auto View On
- Line Input "";NFL_DIR$
- If NFL_DIR$=""
- STATS_MAKER["N"]
- NFL_DIR$="S:"
- Else
- If Not Exist(NFL_DIR$+"AAFP.NFLstats")
- Goto N0THERE
- End If
- End If
- End If
- If Not Exist("S:AAFP.WLAFstats")
- Auto View Off
- Screen To Front 1
- Screen 1
- N0THERE2:
- Cls
- Centre "Could not find the WLAF stats file."
- Cdown : Centre "If you wish to create a new one, press enter"
- Cdown : Centre "or enter the directory where it resides. (i.e. dh0:AAFP/)"
- Locate 0,4 : Print "Please include the slash if needed: ";
- Wait Vbl : View : Auto View On
- Line Input "";WLAF_DIR$
- If WLAF_DIR$=""
- STATS_MAKER["W"]
- WLAF_DIR$="S:"
- Else
- If Not Exist(WLAF_DIR$+"AAFP.WLAFstats")
- Goto N0THERE2
- End If
- End If
- End If
- Data "bears","bengals","bills","broncos","browns","bucaneers","cardinals"
- Data "chargers","chiefs","colts","cowboys","dolphins","eagles","falcons"
- Data "forty-niners","giants","jets","lions","oilers","packers","patriots"
- Data "raiders","rams","redskins","saints","seahawks","steelers","vikings"
- For X=0 To 27
- Read NAME$
- NFL_NAME$(X)=Upper$(NAME$)
- Next X
- Sort NFL_NAME$(0)
- Data "fire","thunder","knights","surge","galaxy","monarchs","riders","glory"
- Data "dragons"
- For X=0 To 8
- Read NAME$
- WLAF_NAME$(X)=Upper$(NAME$)
- Next X
- Sort WLAF_NAME$(0)
- '***********************************************************************
- '* Setup BOBs on the screen *
- '***********************************************************************
- Auto View Off
- Screen Hide 1
- Screen 0
- Cls 0,0,180 To 319,199
- Get Sprite Palette
- Reserve Zone 3
- Set Zone 1,123,87 To 196,99
- Set Zone 2,123,104 To 196,116
- Set Zone 3,123,121 To 196,133
- Paste Bob 113,81,2
- Locate 0,9 : Paper 0 : Cline : Centre "Main Menu"
- Bob 1,123,87,10
- Bob 2,123,104,9
- Bob 3,123,121,6
- '***********************************************************************
- '* BOBs are seen, so start loop to detect click or key *
- '***********************************************************************
- Show
- Do
- Wait Vbl : View
- MAINKEY$=""
- Repeat
- MAINKEY$=Inkey$
- Until Mouse Key or(Upper$(MAINKEY$)="E") or(Upper$(MAINKEY$)="P") or(Upper$(MAINKEY$)="Q")
- MAIN_ZONE=Mouse Zone
- MAIN_KEY=Instr("EePpQq",MAINKEY$)
- If MAIN_ZONE>0 or MAIN_KEY>0
- If(MAIN_ZONE=1) or(Upper$(MAINKEY$)="E")
- Sam Play 1,2,8000
- Bob 1,124,88,10
- Wait Vbl : View : Wait 25
- ESTATS
- MAIN_ZONE=0 : MAINKEY$=""
- Locate 0,9 : Paper 0 : Cline : Centre "Main Menu"
- End If
- If(MAIN_ZONE=2) or(Upper$(MAINKEY$)="P")
- Sam Play 1,2,8000
- Bob 2,124,105,9
- Wait Vbl
- View : Wait 25
- PREDICTOR
- MAIN_ZONE=0 : MAINKEY$=""
- Locate 0,9 : Paper 0 : Cline : Centre "Main Menu"
- End If
- If(MAIN_ZONE=3) or(Upper$(MAINKEY$)="Q")
- Sam Play 1,2,8000
- Bob 3,124,122,6
- Wait Vbl : View : Wait 25
- Run "amoner005:autoexec.amos"
- End If
- End If
- Loop
- Run "amoner005:autoexec.amos"
- End Proc
- Procedure PREDICTOR
- '***********************************************************************
- '* Setup BOBs on the screen *
- '***********************************************************************
- Paper 0 : Locate 0,9 : Cline : Centre "Predictions Menu"
- Bob 1,123,87,3
- Bob 2,123,104,4
- Bob 3,123,121,5
- Wait Vbl : View
- '***********************************************************************
- '* BOBs are seen, so start loop to detect click or key *
- '***********************************************************************
- Do
- Wait Vbl : View
- PREDICTKEY$=""
- Repeat
- PREDICTKEY$=Inkey$
- Until Mouse Key or(Upper$(PREDICTKEY$)="N") or(Upper$(PREDICTKEY$)="W") or(Upper$(PREDICTKEY$)="M")
- PREDICT_ZONE=Mouse Zone
- PREDICT_KEY=Instr("NnWwMm",PREDICTKEY$)
- If PREDICT_ZONE>0 or PREDICT_KEY>0
- If(PREDICT_ZONE=1) or(Upper$(PREDICTKEY$)="N")
- Sam Play 1,2,8000
- Bob 1,124,88,3 : Wait Vbl : View : Wait 25
- PREDICT["N"]
- PREDICT_ZONE=0 : PREDICTKEY$="" : Bob 1,123,87,3
- End If
- If(PREDICT_ZONE=2) or(Upper$(PREDICTKEY$)="W")
- Sam Play 1,2,8000
- Bob 2,124,105,4 : Wait Vbl
- View : Wait 25
- PREDICT["W"]
- PREDICT_ZONE=0 : PREDICTKEY$="" : Bob 2,123,104,4
- End If
- If(PREDICT_ZONE=3) or(Upper$(PREDICTKEY$)="M")
- Sam Play 1,2,8000
- Bob 3,124,122,5
- Wait Vbl : View : Wait 25
- Bob 1,123,87,10
- Bob 2,123,104,9
- Bob 3,123,121,6
- Pop Proc
- End If
- End If
- Loop
- End Proc
- Procedure PREDICT[LEAGUE$]
- Screen Hide 0
- Screen Show 1
- Screen 1
- If LEAGUE$="N"
- _MAXGAMES=14
- NAMEFILE$=NFL_DIR$+"AAFP.NFLnames"
- STATFILE$=NFL_DIR$+"AAFP.NFLstats"
- WINNERFILE$=NFL_DIR$+"AAFP.NFLwinners"
- Else
- NAMEFILE$=WLAF_DIR$+"AAFP.WLAFnames"
- STATFILE$=WLAF_DIR$+"AAFP.WLAFstats"
- WINNERFILE$=WLAF_DIR$+"AAFP.WLAFwinners"
- _MAXGAMES=8
- End If
- View : Auto View On
- Dim _HOME$(_MAXGAMES),VISITOR$(_MAXGAMES),_HOME_DEF(_MAXGAMES),_HOME_OFF(_MAXGAMES),VISIT_DEF(_MAXGAMES)
- Dim VISIT_OFF(_MAXGAMES),_HOME_PF(_MAXGAMES),_HOME_PA(_MAXGAMES),VISIT_PF(_MAXGAMES),VISIT_PA(_MAXGAMES)
- Dim USER_LIKES$(_MAXGAMES),WINNER$(_MAXGAMES),H_FIRST_DOWNS(_MAXGAMES),H_RET_YARDS(_MAXGAMES)
- Dim V_FIRST_DOWNS(_MAXGAMES),V_RET_YARDS(_MAXGAMES)
- _START:
- A$=At(39,2)+"vs"
- Repeat
- Cls
- Print "Would you like to enter the stats (K) or have the stats read in from the"
- Line Input "stats file(F)? (K/F)";REDIN$
- Until(Upper$(REDIN$)="K") or(Upper$(REDIN$)="F")
- Cls : Centre "How many games would you like to predict (1 - "+Str$(_MAXGAMES)+")" : Input INDEX
- If INDEX=0
- Wait 50
- Auto View Off
- Screen Hide 1
- Screen Show 0
- Screen 0
- Pop Proc
- Else
- If(INDEX<1) or(INDEX>_MAXGAMES)
- Centre "Illegal entry. Press a key to try again" : Wait Key
- Cline
- Goto _START
- End If
- End If
- Cls
- Centre "Which week is this" : Line Input WEEKNO
- Cup : Cline : Centre "Week #"+Str$(WEEKNO)
- Locate 0,4 : Print " Total Offensive Yardage -- ";
- Locate 0,5 : Print " Total First Downs -- ";
- Locate 0,6 : Print " Total Return Yards -- ";
- Locate 0,7 : Print "Yards Given Up by Defense -- ";
- Locate 12,8 : Print "Points Scored -- ";
- Locate 10,9 : Print "Points Given Up -- ";
- Locate 0,11 : Centre "Who do you pick (H/V) -- "
- Locate 0,12 : Centre "A '?' Means Who Cares"
- If Upper$(REDIN$)="K"
- For X=0 To INDEX-1
- REDO:
- _HOME_OUTCUM=1
- VISIT_OUTCUM=0
- Put Key _HOME$(X)
- Locate 25,14 : Line Input "Home Team? ";_HOME$(X)
- If _HOME$(X)=""
- Wait 50
- Auto View Off
- Screen Hide 1
- Screen Show 0
- Screen 0
- Pop Proc
- End If
- Cup : Cline
- _HOME$(X)=Upper$(Left$(_HOME$(X),1))+Mid$(_HOME$(X),2)
- Locate 25,2 : Cline : Print _HOME$(X);
- Put Key Str$(_HOME_OFF(X))
- Locate 29,4 : Cline 49 : Line Input "";_HOME_OFF(X)
- Put Key Str$(H_FIRST_DOWNS(X))
- Locate 29,5 : Cline 49 : Line Input "";H_FIRST_DOWNS(X)
- Put Key Str$(H_RET_YARDS(X))
- Locate 29,6 : Cline 49 : Line Input "";H_RET_YARDS(X)
- Put Key Str$(_HOME_DEF(X))
- Locate 29,7 : Cline 49 : Line Input "";_HOME_DEF(X)
- Put Key Str$(_HOME_PF(X))
- Locate 29,8 : Cline 49 : Line Input "";_HOME_PF(X)
- Put Key Str$(_HOME_PA(X))
- Locate 29,9 : Cline 49 : Line Input "";_HOME_PA(X)
- Put Key VISITOR$(X)
- Locate 25,14 : Line Input "Visiting Team? ";VISITOR$(X) : Cup : Cline
- If VISITOR$(X)=""
- Wait 50
- Auto View Off
- Screen Hide 1
- Screen Show 0
- Screen 0
- Pop Proc
- End If
- VISITOR$(X)=Upper$(Left$(VISITOR$(X),1))+Mid$(VISITOR$(X),2)
- Locate 45,2 : Cline 33 : Print VISITOR$(X);
- Print A$;
- Put Key Str$(VISIT_OFF(X))
- Locate 49,4 : Line Input "";VISIT_OFF(X)
- Put Key Str$(V_FIRST_DOWNS(X))
- Locate 49,5 : Cline 33 : Line Input "";V_FIRST_DOWNS(X)
- Put Key Str$(V_RET_YARDS(X))
- Locate 49,6 : Cline 33 : Line Input "";V_RET_YARDS(X)
- Put Key Str$(VISIT_DEF(X))
- Locate 49,7 : Cline 33 : Line Input "";VISIT_DEF(X)
- Put Key Str$(VISIT_PF(X))
- Locate 49,8 : Cline 33 : Line Input "";VISIT_PF(X)
- Put Key Str$(VISIT_PA(X))
- Locate 49,9 : Cline 33 : Line Input "";VISIT_PA(X)
- Put Key "?"
- Locate 52,11 : Cline 33 : Line Input "";USER_LIKES$(X) : USER_LIKES$(X)=Upper$(Left$(USER_LIKES$,1))
- If((USER_LIKES$(X)<>"H") or(USER_LIKES$(X)<>"V"))
- USER_LIKES$(X)="?"
- End If
- Put Key "Y"
- Locate 0,13 : Centre "Do you accept these values (Y/N)? " : Line Input "";ACCEPT$
- Cup : Cline
- If Upper$(ACCEPT$)<>"Y"
- Goto REDO
- End If
- If(_HOME_DEF(X)>VISIT_DEF(X))
- Inc VISIT_OUTCUM
- End If
- If(_HOME_DEF(X)<VISIT_DEF(X))
- Inc _HOME_OUTCUM
- End If
- If(H_FIRST_DOWNS(X)>V_FIRST_DOWNS(X))
- Inc _HOME_OUTCUM
- End If
- If(H_FIRST_DOWNS(X)<V_FIRST_DOWNS(X))
- Inc VISIT_OUTCUM
- End If
- If(H_RET_YARDS(X)>V_RET_YARDS(X))
- Inc _HOME_OUTCUM
- End If
- If(H_RET_YARDS(X)<V_RET_YARDS(X))
- Inc VISIT_OUTCUM
- End If
- If(_HOME_PF(X)>VISIT_PF(X))
- Inc _HOME_OUTCUM
- End If
- If(_HOME_PF(X)<VISIT_PF(X))
- Inc VISIT_OUTCUM
- End If
- If(_HOME_PA(X)>VISIT_PA(X))
- Inc VISIT_OUTCUM
- End If
- If(_HOME_PA(X)<VISIT_PA(X))
- Inc _HOME_OUTCUM
- End If
- If(_HOME_OFF(X)>VISIT_OFF(X))
- Inc _HOME_OUTCUM
- End If
- If(_HOME_OFF(X)<VISIT_OFF(X))
- Inc VISIT_OUTCUM
- End If
- If(_HOME_OUTCUM>VISIT_OUTCUM)
- WINNER$(X)=_HOME$(X)
- Else
- If(VISIT_OUTCUM>_HOME_OUTCUM)
- WINNER$(X)=VISITOR$(X)
- Else
- If(Upper$(USER_LIKES$(X))="H")
- WINNER$(X)=_HOME$(X)
- Else
- If(Upper$(USER_LIKES$(X))="V")
- WINNER$(X)=VISITOR$(X)
- Else
- WINNER$(X)="Pick'em"
- End If
- End If
- End If
- End If
- Next
- Else
- Open Random 1,STATFILE$
- Field 1,12 As NAME$,5 As OFF_YARDS$,4 As PF$,4 As PA$,5 As DEF_YARDS$,4 As FIRSTDOWNS$,4 As RETYARDS$
- For X=0 To INDEX-1
- REDO2:
- Put Key _HOME$(X)
- Locate 25,14 : Curs On : Line Input "Home Team? ";_HOME$(X)
- If _HOME$(X)=""
- Wait 50
- Auto View Off
- Screen Hide 1
- Screen Show 0
- Screen 0
- Close 1
- Pop Proc
- End If
- Curs Off : Cup : Cline
- _HOME$(X)=Upper$(Left$(_HOME$(X),1))+Mid$(_HOME$(X),2)
- Locate 25,2 : Cline : Print _HOME$(X);
- If LEAGUE$="N"
- TEAM_RECORD=Match(NFL_NAME$(0),Upper$(_HOME$(X)))
- Else
- TEAM_RECORD=Match(WLAF_NAME$(0),Upper$(_HOME$(X)))
- End If
- If TEAM_RECORD<0
- Locate 0,22 : Centre "That name was not found."
- Locate 0,23 : Centre "Enter LAST NAME only. (i.e. Dolphins, Cowboys, etc.)"
- Locate 0,24 : Centre "Press key to continue" : Wait Key
- Cline : Cup : Cline : Cup : Cline : Goto REDO2
- Else
- Get 1,TEAM_RECORD
- End If
- _HOME_OFF(X)=Val(OFF_YARDS$)
- Locate 29,4 : Cline 49 : Print _HOME_OFF(X);
- H_FIRST_DOWNS(X)=Val(FIRSTDOWNS$)
- Locate 29,5 : Cline 49 : Print H_FIRST_DOWNS(X);
- H_RET_YARDS(X)=Val(RETYARDS$)
- Locate 29,6 : Cline 49 : Print H_RET_YARDS(X);
- _HOME_DEF(X)=Val(DEF_YARDS$)
- Locate 29,7 : Cline 49 : Print _HOME_DEF(X);
- _HOME_PF(X)=Val(PF$)
- Locate 29,8 : Cline 49 : Print _HOME_PF(X);
- _HOME_PA(X)=Val(PA$)
- Locate 29,9 : Cline 49 : Print _HOME_PA(X);
- REDO3:
- Locate 25,14 : Curs On : Line Input "Visiting Team? ";VISITOR$(X) : Curs Off : Cup : Cline
- If VISITOR$(X)=""
- Wait 50
- Close 1
- Auto View Off
- Screen Hide 1
- Screen Show 0
- Screen 0
- Pop Proc
- End If
- VISITOR$(X)=Upper$(Left$(VISITOR$(X),1))+Mid$(VISITOR$(X),2)
- Locate 45,2 : Cline 33 : Print VISITOR$(X);
- Print A$;
- If LEAGUE$="N"
- TEAM_RECORD=Match(NFL_NAME$(0),Upper$(VISITOR$(X)))
- Else
- TEAM_RECORD=Match(WLAF_NAME$(0),Upper$(VISITOR$(X)))
- End If
- If TEAM_RECORD<0
- Clear Key : Locate 0,22 : Centre "That name was not found."
- Locate 0,23 : Centre "Enter LAST NAME only. (i.e. Dolphins, Cowboys, etc.)"
- Locate 0,24 : Centre "Press key to continue" : Wait Key
- Cline : Cup : Cline : Cup : Cline : Goto REDO3
- Else
- Get 1,TEAM_RECORD
- End If
- VISIT_OFF(X)=Val(OFF_YARDS$)
- Locate 49,4 : Cline 29 : Print VISIT_OFF(X);
- V_FIRST_DOWNS(X)=Val(FIRSTDOWNS$)
- Locate 49,5 : Cline 29 : Print V_FIRST_DOWNS(X);
- V_RET_YARDS(X)=Val(RETYARDS$)
- Locate 49,6 : Cline 29 : Print V_RET_YARDS(X);
- VISIT_DEF(X)=Val(DEF_YARDS$)
- Locate 49,7 : Cline 29 : Print VISIT_DEF(X);
- VISIT_PF(X)=Val(PF$)
- Locate 49,8 : Cline 29 : Print VISIT_PF(X);
- VISIT_PA(X)=Val(PA$)
- Locate 49,9 : Cline 29 : Print VISIT_PA(X);
- Put Key "?"
- Locate 52,11 : Curs On : Line Input "";USER_LIKES$(X) : Curs Off : USER_LIKES$(X)=Upper$(Left$(USER_LIKES$,1))
- If((USER_LIKES$(X)<>"H") or(USER_LIKES$(X)<>"V"))
- USER_LIKES$(X)="?"
- End If
- Put Key "Y"
- Locate 0,13 : Curs On : Centre "Do you accept these values (Y/n)? " : Line Input "";ACCEPT$ : Curs Off
- Cup : Cline
- If Upper$(ACCEPT$)<>"Y"
- Goto REDO2
- End If
- _HOME_OUTCUM=1
- VISIT_OUTCUM=0
- If(_HOME_DEF(X)>VISIT_DEF(X))
- Inc VISIT_OUTCUM
- End If
- If(_HOME_DEF(X)<VISIT_DEF(X))
- Inc _HOME_OUTCUM
- End If
- If(H_FIRST_DOWNS(X)>V_FIRST_DOWNS(X))
- Inc _HOME_OUTCUM
- End If
- If(H_FIRST_DOWNS(X)<V_FIRST_DOWNS(X))
- Inc VISIT_OUTCUM
- End If
- If(H_RET_YARDS(X)>V_RET_YARDS(X))
- Inc _HOME_OUTCUM
- End If
- If(H_RET_YARDS(X)<V_RET_YARDS(X))
- Inc VISIT_OUTCUM
- End If
- If(_HOME_PF(X)>VISIT_PF(X))
- Inc _HOME_OUTCUM
- End If
- If(_HOME_PF(X)<VISIT_PF(X))
- Inc VISIT_OUTCUM
- End If
- If(_HOME_PA(X)>VISIT_PA(X))
- Inc VISIT_OUTCUM
- End If
- If(_HOME_PA(X)<VISIT_PA(X))
- Inc _HOME_OUTCUM
- End If
- If(_HOME_OFF(X)>VISIT_OFF(X))
- Inc _HOME_OUTCUM
- End If
- If(_HOME_OFF(X)<VISIT_OFF(X))
- Inc VISIT_OUTCUM
- End If
- If(_HOME_OUTCUM>VISIT_OUTCUM)
- WINNER$(X)=_HOME$(X)
- Else
- If(VISIT_OUTCUM>_HOME_OUTCUM)
- WINNER$(X)=VISITOR$(X)
- Else
- If(Upper$(USER_LIKES$(X))="H")
- WINNER$(X)=_HOME$(X)
- Else
- If(Upper$(USER_LIKES$(X))="V")
- WINNER$(X)=VISITOR$(X)
- Else
- WINNER$(X)="Pick'em"
- End If
- End If
- End If
- End If
- Next
- Close 1
- End If
- Cls : Centre Pen$(2)+"AMOS"+Pen$(14)+" American"+Pen$(6)+" Football"+Pen$(14)+" Predictor Says"
- Locate 0,2 : Print "Home"; : Locate 20,2 : Print "Visitor"; : Locate 40,2 : Print "WINNER";
- Locate 0,3 : Print "----"; : Locate 20,3 : Print "-------"; : Locate 40,3 : Print "------";
- Curs Off : Flash Off
- For X=0 To INDEX-1
- Locate 0,4+X : Print _HOME$(X); : Locate 20,4+X : Print VISITOR$(X); : Locate 40,4+X : Pen 5 : Print WINNER$(X); : Pen 14
- Next
- Print : Print : Line Input "Shall I save these predictions? (Y/N)";PREDSAVE$
- If Upper$(PREDSAVE$)="Y"
- Print "Saving . . .";
- Open Random 1,WINNERFILE$
- Field 1,2 As WEEK$,12 As H0ME$,12 As VIS$,12 As W1NNER$
- NXTRECORD=(Lof(1)/38)+1
- For X=0 To INDEX-1
- WEEK$=Str$(WEEKNO)
- H0ME$=_HOME$(X)
- VIS$=VISITOR$(X)
- W1NNER$=WINNER$(X)
- Put 1,NXTRECORD
- Inc NXTRECORD
- Next X
- Close 1
- End If
- Wait 25
- Auto View Off
- Screen Hide 1
- Screen Show 0
- Screen 0
- End Proc
- Procedure STATS_MAKER[LEAGUE$]
- If LEAGUE$="N"
- Open Random 1,"S:AAFP.NFLstats"
- Field 1,12 As NAME$,5 As OFF_YARDS$,4 As PF$,4 As PA$,5 As DEF_YARDS$,4 As FIRSTDOWNS$,4 As RETYARDS$
- Else
- Open Random 1,"S:AAFP.WLAFstats"
- Field 1,12 As NAME$,5 As OFF_YARDS$,4 As PF$,4 As PA$,5 As DEF_YARDS$,4 As FIRSTDOWNS$,4 As RETYARDS$
- End If
- If LEAGUE$="N"
- NFL_TEAMS:
- Data "bears","bengals","bills","broncos","browns","bucaneers","cardinals"
- Data "chargers","chiefs","colts","cowboys","dolphins","eagles","falcons"
- Data "forty-niners","giants","jets","lions","oilers","packers","patriots"
- Data "raiders","rams","redskins","saints","seahawks","steelers","vikings"
- For X=0 To 27
- Read NAME$
- NAME$=Upper$(NAME$)
- OFF_YARDS$="0"
- PF$="0"
- PA$="0"
- DEF_YARDS$="0"
- Put 1,X+1
- Next
- Close 1
- Else
- WLAF_TEAMS:
- Data "fire","thunder","knights","surge","galaxy","monarchs","riders","glory"
- Data "dragons"
- For X=0 To 8
- Read NAME$
- NAME$=Upper$(NAME$)
- OFF_YARDS$="0"
- PF$="0"
- PA$="0"
- DEF_YARDS$="0"
- Put 1,X+1
- Next
- Close 1
- End If
- End Proc
- Procedure _SMALL_COPYRIGHT[YDISPLAY]
- '
- Auto View Off
- '
- Screen Open 7,320,24,16,0 : Curs Off : Flash Off : Cls 0
- Screen Display 7,,-100,,
- Paste Bob 260,3,1
- Paper 0 : Pen 7 : Print At(1,1);"This program was written using"
- Get Sprite Palette
- View : Wait Vbl
- '
- For Y=1 To Screen Height/2
- Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2
- Screen Offset 7,,Screen Height/2-Y
- View : Wait Vbl
- Next
- '
- Wait 100
- '
- For Y=Screen Height/2 To 0 Step -1
- Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2
- Screen Offset 7,,Screen Height/2-Y
- View : Wait Vbl
- Next
- '
- Screen Close 7
- Auto View On
- '
- End Proc
- Procedure _EDIT_STATS[LEAGUE$]
- If LEAGUE$="N"
- TEAMS=28
- STATFILE$=NFL_DIR$+"AAFP.NFLstats"
- Else
- TEAMS=8
- STATFILE$=WLAF_DIR$+"AAFP.WLAFstats"
- End If
- Screen Hide 0
- Screen Show 1
- Screen 1
- Cls
- Locate 30,2 : Print "Current Total","+","New Data","= New Total"
- Locate 0,4 : Print "Offensive Yards Gained: "
- Locate 0,5 : Print " First Downs Made: "
- Locate 0,6 : Print " Return Yards: "
- Locate 0,7 : Print " Defense Yards Allowed: "
- Locate 0,8 : Print " Points For: "
- Locate 0,9 : Print " Points Allowed: "
- Locate 0,15
- Print "Here's a short explanation of how this works:"
- Print "AAFP will go through each team and ask you to enter the New Data,"
- Print "which is the stats from the game last played for that team. This"
- Print "information can be found in any newspaper with a decent sports section."
- Print "After each entry, the New Total will be displayed. When done, you will be"
- Print "asked if everything is correct. Answer appropriately. If all is well, the"
- Print "New Total will be saved to the file and you will proceed to the next team."
- Print "You repeat this for EVERY team. Default values will be 0. If you have anymore"
- Print "problems, please contact me as described in AAFP.DOC"
- Open Random 1,STATFILE$
- Field 1,12 As NAME$,5 As OFF_YARDS$,4 As PF$,4 As PA$,5 As DEF_YARDS$,4 As FIRSTDOWNS$,4 As RETYARDS$
- Wait Vbl : View : Auto View On
- For QZ=1 To TEAMS
- Get 1,QZ
- Locate 0,0 : Centre NAME$
- Locate 34,4 : Print Using "#####";Val(OFF_YARDS$)
- Locate 35,5 : Print Using "####";Val(FIRSTDOWNS$)
- Locate 35,6 : Print Using "####";Val(RETYARDS$)
- Locate 34,7 : Print Using "#####";Val(DEF_YARDS$)
- Locate 35,8 : Print Using "####";Val(PF$)
- Locate 35,9 : Print Using "####";Val(PA$)
- REDO5:
- Locate 48,4 : Cline 30 : Line Input "";OY
- NTOY=OY+Val(OFF_YARDS$)
- Locate 64,4 : Print Using "#####";NTOY
- Locate 48,5 : Cline 30 : Line Input "";FD
- NTFD=FD+Val(FIRSTDOWNS$)
- Locate 65,5 : Print Using "####";NTFD
- Locate 48,6 : Cline 30 : Line Input "";RY
- NTRY=RY+Val(RETYARDS$)
- Locate 65,6 : Print Using "####";NTRY
- Locate 49,7 : Cline 30 : Line Input "";DY
- NTDY=DY+Val(DEF_YARDS$)
- Locate 64,7 : Print Using "#####";NTDY
- Locate 50,8 : Cline 30 : Line Input "";PF
- NTPF=PF+Val(PF$)
- Locate 64,8 : Print Using "#####";NTPF
- Locate 50,9 : Cline 30 : Line Input "";PA
- NTPA=PA+Val(PA$)
- Locate 64,9 : Print Using "#####";NTPA
- Locate 0,11 : Centre "Correct? (Y/N) "
- Line Input "";YN$ : Cup : Cline
- If(Upper$(YN$)="N")
- OY=0 : DY=0 : PF=0 : PA=0 : RY=0 : FD=0
- Goto REDO5
- End If
- OFF_YARDS$=Str$(NTOY)
- DEF_YARDS$=Str$(NTDY)
- PA$=Str$(NTPA)
- PF$=Str$(NTPF)
- FIRSTDOWNS$=Str$(NTFD)
- RETYARDS$=Str$(NTRY)
- Put 1,QZ
- Next
- Cls : Close 1
- Auto View Off
- Screen Hide 1
- Screen Show 0
- Screen 0
- End Proc
- Procedure ESTATS
- '***********************************************************************
- '* Setup BOBs on the screen *
- '***********************************************************************
- Paper 0 : Locate 0,9 : Cline : Centre "Edit Stats Menu"
- Bob 1,123,87,3
- Bob 2,123,104,4
- Bob 3,123,121,5
- Wait Vbl : View
- '***********************************************************************
- '* BOBs are seen, so start loop to detect click or key *
- '***********************************************************************
- Do
- Wait Vbl : View
- ESTATSKEY$=""
- Repeat
- ESTATSKEY$=Inkey$
- Until Mouse Key or(Upper$(ESTATSKEY$)="N") or(Upper$(ESTATSKEY$)="W") or(Upper$(ESTATSKEY$)="M")
- ESTATS_ZONE=Mouse Zone
- ESTATS_KEY=Instr("NnWwMm",ESTATSKEY$)
- If ESTATS_ZONE>0 or ESTATS_KEY>0
- If(ESTATS_ZONE=1) or(Upper$(ESTATSKEY$)="N")
- Sam Play 1,2,8000
- Bob 1,124,88,3 : Wait Vbl : View : Wait 25
- _EDIT_STATS["N"]
- ESTATS_ZONE=0 : ESTATSKEY$="" : Bob 1,123,87,3
- End If
- If(ESTATS_ZONE=2) or(Upper$(ESTATSKEY$)="W")
- Sam Play 1,2,8000
- Bob 2,124,105,4 : Wait Vbl
- View : Wait 25
- _EDIT_STATS["W"]
- ESTATS_ZONE=0 : ESTATSKEY$="" : Bob 2,123,104,4
- End If
- If(ESTATS_ZONE=3) or(Upper$(ESTATSKEY$)="M")
- Sam Play 1,2,8000
- Bob 3,124,122,5
- Wait Vbl : View : Wait 25
- Bob 1,123,87,10
- Bob 2,123,104,9
- Bob 3,123,121,6
- Pop Proc
- End If
- End If
- Loop
- End Proc