Nope, no more HTML invasions. ^^
...but now QBASIC is invading!!! O_O;;;
SUB CHECKLIMIT
MATKUPNO = 0: WATKUPNO = 0: MATKDOWNNO = 0: WATKDOWNNO = 0
MDEFUPNO = 0: WDEFUPNO = 0: MDEFDOWNNO = 0: WDEFDOWNNO = 0
MSPDUPNO = 0: WSPDUPNO = 0: MSPDDOWNNO = 0: WSPDDOWNNO = 0
MSPCUPNO = 0: WSPCUPNO = 0: MSPCDOWNNO = 0: WSPCDOWNNO = 0
MSPCDEFUPNO = 0: WSPCDEFUPNO = 0: MSPCDEFDOWNNO = 0: WSPCDEFDOWNNO = 0
IF MACATTACK >= MAXCATTACK THEN MACATTACK = MAXCATTACK: MATKUPNO = 1
IF WATKPWR >= WXATKPWR THEN WATKPWR = WXATKPWR: WATKUPNO = 1
IF MACATTACK <= INT(MAXCATTACK / 6) THEN MACATTACK = INT(MAXCATTACK / 6): MATKDOWNNO = 1
IF WATKPWR <= INT(WXATKPWR / 6) THEN WATKPWR = INT(WXATKPWR / 6): WATKDOWNNO = 1
IF MACDEFENSE >= MAXCDEFENSE THEN MACDEFENSE = MAXCDEFENSE: MDEFUPNO = 1
IF WDEFENSE >= WXDEFENSE THEN WDEFENSE = WXDEFENSE: WDEFUPNO = 1
IF MACDEFENSE <= INT(MAXCDEFENSE / 6) THEN MACDEFENSE = INT(MAXCDEFENSE / 6): MDEFDOWNNO = 1
IF WDEFENSE <= INT(WXDEFENSE / 6) THEN WDEFENSE = INT(WXDEFENSE / 6): WDEFDOWNNO = 1
IF MACSPD >= MAXCSPD THEN MACSPD = MAXCSPD: MSPDUPNO = 1
IF WSPD >= WXSPD THEN WSPD = WXSPD: WSPDUPNO = 1
IF MACSPD <= INT(MAXCSPD / 6) THEN MACSPD = INT(MAXCSPD / 6): MSPDDOWNNO = 1
IF WSPD <= INT(WXSPD / 6) THEN WSPD = INT(WXSPD / 6): WSPDDOWNNO = 1
IF MACSPECIAL >= MAXCSPECIAL THEN MACSPECIAL = MAXCSPECIAL: MSPCUPNO = 1
IF MACSPECIALDEF >= MAXCSPECIALDEF THEN MACSPECIALDEF = MAXCSPECIALDEF: MSPCDEFUPNO = 1
IF WSPECIAL >= WXSPECIAL THEN WSPECIAL = WXSPECIAL: WSPCUPNO = 1
IF WSPECIALDEF >= WXSPECIALDEF THEN WSPECIALDEF = WXSPECIALDEF: WSPCDEFUPNO = 1
IF MACSPECIAL <= INT(MAXCSPECIAL / 6) THEN MACSPECIAL = INT(MAXCSPECIAL / 6): MSPCDOWNNO = 1
IF MACSPECIALDEF <= INT(MAXCSPECIALDEF / 6) THEN MACSPECIALDEF = INT(MAXCSPECIALDEF / 6): MSPCDEFDOWNNO = 1
IF WSPECIAL <= INT(WXSPECIAL / 6) THEN WSPECIAL = INT(WXSPECIAL / 6): WSPCDOWNNO = 1
IF WSPECIALDEF <= INT(WXSPECIALDEF / 6) THEN WSPECIALDEF = INT(WXSPECIALDEF / 6): WSPCDEFDOWNNO = 1
IF WEVADE > 10 THEN WEVADE = 10
IF EVADE > 10 THEN EVADE = 10
IF MACACR > 20 THEN MACACR = 20
IF WACR > 20 THEN WACR = 20
IF MACACR < 0 THEN MACACR = 0
IF WACR < 0 THEN WACR = 0
IF WBOOSTHIT < 0 THEN WBOOSTHIT = 0
IF WBOOSTHIT > 4 THEN WBOOSTHIT = 4
IF MBOOSTHIT < 0 THEN MBOOSTHIT = 0
IF MBOOSTHIT > 4 THEN MBOOSTHIT = 4
IF MAXCATTACK = 0 THEN EXIT SUB
RP1# = MACATTACK / MAXCATTACK
RP2# = MACDEFENSE / MAXCDEFENSE
RP3# = MACSPD / MAXCSPD
RP4# = MACSPECIAL / MAXCSPECIAL
RP5# = MACSPECIALDEF / MAXCSPECIALDEF
WRP1# = WATKPWR / WXATKPWR
WRP2# = WDEFENSE / WXDEFENSE
WRP3# = WSPD / WXSPD
WRP4# = WSPECIAL / WXSPECIAL
WRP5# = WSPECIALDEF / WXSPECIALDEF
END SUB
FUNCTION DELSPC$ (VARNAME$)
IF VARNAME$ = NULLPKMN$ OR MID$(VARNAME$, 1, 2) = " " THEN DELSPC$ = "": EXIT FUNCTION
IF MID$(VARNAME$, LEN(VARNAME$), 1) <> " " THEN DELSPC$ = VARNAME$
DO
IF MID$(VARNAME$, LEN(VARNAME$), 1) = " " THEN VARNAME$ = MID$(VARNAME$, 1, LEN(VARNAME$) - 1): DELSPC$ = VARNAME$ ELSE EXIT FUNCTION
LOOP
END FUNCTION
FUNCTION EVAL$ (PKNUMBER)
IF PKNUMBER = 0 THEN EVAL$ = "GLITCH-PKMN": EXIT FUNCTION
OPEN OUTPUTPOKEDEXFILE$ FOR INPUT AS #38
SEARCHPKMN = 0
DO
KYN
SEARCHPKMN = SEARCHPKMN + 1
IF PKNUMBER = SEARCHPKMN THEN LINE INPUT #38, EVAL$: CLOSE #38: EXIT FUNCTION ELSE LINE INPUT #38, NONUSEVAR$
IF EOF(38) THEN CLOSE #38: EXIT FUNCTION
LINE INPUT #38, NONUSEVAR$
LINE INPUT #38, NONUSEVAR$
LINE INPUT #38, NONUSEVAR$
LOOP UNTIL SEARCHPKMN = 386
CLOSE #38
END FUNCTION
SUB EXPTOLV (NAMEPKMN$, LVL, PKMNEXP)
IF NAMEPKMN$ = "" OR LVL = 0 THEN EXIT SUB
MAXEXP NAMEPKMN$, 0, 0
NEXP = FNLVLUP(LVL + 1, MEXPSPEC)
EXPT = FNEXP(LVL, MEXPSPEC)
ACTUALNEEDEDEXP = FNEXP(LVL + 1, MEXPSPEC) - PKMNEXP
IF LVL = 100 THEN ACTUALNEEDEDEXP = 0
END SUB
SUB FAILNOTE
IF FINALDAMAGE > 0 THEN EXIT SUB
TX$ = "But, it failed!": TXM
AFFECTNOTE = 1
END SUB
Gaaaah! *takes a machine gun and starts shooting*
Take that ya evil IF! Die SELECT CASE! Kill LINE INPUT!! Waaaargh!!!!
Hey this is just like Serious Sam. o.0
