# this script is loaded by the TEST SCRIPTABLE command for Archons
# requires a shopkeeper called shoppy
# requires shoppy be in a room
# requires shoppy sell ID()=Dagger "a small dagger"
# requires shoppy sell ID()=Shortsword "a short sword"
# requires room have another room to the NORTH
# requires all rooms and all contents be DESTROYED after test is run
# requires check on var Shoppy ERRORS for any return values
# requires check on var Shoppy SUCCESS for any success values
ONCE_PROG
mpsetinternal NODELAY TRUE
mpsetinternal SCOPE *
mpgset $i NAME Shoppy
mpsetvar $i ERRORS ''
mpsetvar $i SUCCESS ''
mpsetvar $i UNTESTED ''
mpsetvar $i DAY_PROG_TEST TEST
mpsetvar $i RAND_PROG_TEST TEST
mpsetvar $i DELAY_PROG_TEST TEST
mpsetvar $i TIME_PROG_TEST TEST
mpsetvar $i KEYWORDS MPASOUND MPECHO MPSLAY MPJUNK MPMLOAD MPOLOAD MPECHOAT MPECHOAROUND MPCAST MPKILL MPEXP MPPURGE MPUNAFFECT MPGOTO MPAT MPSET MPTRANSFER MPFORCE IF MPSETVAR MPENDQUEST MPQUESTWIN MPSTARTQUEST MPCALLFUNC MPBEACON MPALARM MPWHILE MPDAMAGE MPTRACKTO MPAFFECT MPBEHAVE MPUNBEHAVE MPTATTOO BREAK MPGSET MPSAVEVAR MPENABLE MPDISABLE MPLOADVAR MPM2I2M MPOLOADROOM MPHIDE MPUNHIDE MPOPEN MPCLOSE MPLOCK MPUNLOCK RETURN MPTITLE BREAK MPSETCLANDATA MPPLAYERCLASS MPWALKTO MPFACTION MPNOTRIGGER MPSTOP <SCRIPT> MPRESET MPQUESTPOINTS MPTRAINS MPPRACS FOR MPARGSET MPLOADQUESTOBJ MPQSET MPLOG MPCHANNEL MPUNLOADSCRIPT MPSTEPQUEST SWITCH MPREJUV MPSCRIPT MPSETINTERNAL RAND HAS WORN ISNPC ISPC ISGOOD ISNAME ISEVIL ISNEUTRAL ISFIGHT ISIMMORT ISCHARMED STAT AFFECTED ISFOLLOW HITPRCNT INROOM SEX POSITION LEVEL CLASS BASECLASS RACE RACECAT GOLDAMT OBJTYPE VAR QUESTWINNER QUESTMOB QUESTOBJ ISQUESTMOBALIVE NUMMOBSINAREA NUMMOBS NUMRACESINAREA NUMRACES ISHERE INLOCALE ISTIME ISDAY NUMBER EVAL RANDNUM ROOMMOB ROOMITEM NUMMOBSROOM NUMITEMSROOM MOBITEM NUMITEMSMOB HASTATTOO ISSEASON ISWEATHER GSTAT INCONTAINER ISALIVE ISPKILL NAME ISMOON ISABLE ISOPEN ISLOCKED STRIN CALLFUNC NUMPCSROOM DEITY CLAN CLANRANK HASTITLE CLANDATA ISBEHAVE IPADDRESS RAND0NUM FACTION ISSERVANT HASNUM CURRENCY VALUE EXPLORED EXP NUMPCSAREA QUESTPOINTS TRAINS PRACS QVAR MATH ISLIKE STRCONTAINS ISBIRTHDAY MOOD ISRECALL INAREA DATETIME ISODD QUESTSCRIPTED QUESTROOM
mpalarm 2 mpcallfunc TEST2
~
DAY_PROG 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
if var($i DAY_PROG_TEST == 'TEST')
mpsetvar $i DAY_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:DAY_PROG
endif
~
DELAY_PROG 1 1
if var($i DELAY_PROG_TEST == 'TEST')
mpsetvar $i DELAY_PROG_TEST TRUE
else
if var($i DELAY_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:DELAY_PROG
endif
endif
~
TIME_PROG 0 1 2 3 4 5 6 7 8 9
if var($i TIME_PROG_TEST == 'TEST')
mpsetvar $i TIME_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:TIME_PROG
endif
~
ALL_GREET_PROG 100
if var($i ALL_GREET_PROG_TEST == 'TEST')
mpsetvar $i ALL_GREET_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:ALL_GREET_PROG
endif
~
MASK_PROG zoober
if var($i MASK_PROG_TEST == 'TEST')
mpsetvar $i MASK_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:MASK_PROG
endif
~
ACT_PROG p zoobie doobie doo
if var($i ACT_PROG_TEST == 'TEST')
mpsetvar $i ACT_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:ACT_PROG
endif
~
BRIBE_PROG 100
if var($i BRIBE_PROG_TEST == 'TEST')
if goldamt($o == 100)
mpsetvar $i BRIBE_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:BRIBE_PROG $%goldamt($o)%
endif
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:BRIBE_PROG
endif
~
BUY_PROG sword whistle
if var($i BUY_PROG_TEST == 'TEST')
mpsetvar $i BUY_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:BUY_PROG
endif
~
BUY_PROG p a small dagger
if var($i BUY_PROG2_TEST == 'TEST')
mpsetvar $i BUY_PROG2_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:BUY_PROG2
endif
~
CHANNEL_PROG GOSSIP p ooobie doobie
if var($i CHANNEL_PROG_TEST == 'TEST')
mpsetvar $i CHANNEL_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:CHANNEL_PROG
endif
~
CHANNEL_PROG GOSSIP eooobie edoobie
if var($i CHANNEL_PROG2_TEST == 'TEST')
mpsetvar $i CHANNEL_PROG2_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:CHANNEL_PROG2
endif
if STRCONTAINS('$g' '(edoobie)')
ELSE
mpsetvar $i ERRORS $<$i ERRORS> FAIL:STRCONTAINS1
ENDIF
if STRCONTAINS('$g' '(ooobie) > (edoobie)')
mpsetvar $i SUCCESS $<$i SUCCESS> STRCONTAINS
ELSE
mpsetvar $i ERRORS $<$i ERRORS> FAIL:STRCONTAINS2
ENDIF
~
CLOSE_PROG all
if var($i CLOSE_PROG_TEST == 'TEST')
mpsetvar $i CLOSE_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:CLOSE_PROG
endif
~
CNCLMSG_PROG FOLLOW all
if var($i CNCLMSG_PROG_TEST == 'TEST')
mpsetvar $i CNCLMSG_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:CNCLMSG_PROG
endif
~
CONSUME_PROG p a generic blob of food
if var($i CONSUME_PROG_TEST == 'TEST')
mpsetvar $i CONSUME_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:CONSUME_PROG
endif
~
DAMAGE_PROG
if var($i DAMAGE_PROG_TEST == 'TEST')
mpsetvar $i DAMAGE_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:DAMAGE_PROG
endif
~
DEATH_PROG
# if var($i DEATH_PROG_TEST == 'TEST')
# mpsetvar $i DEATH_PROG_TEST TRUE
# else
# mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:DEATH_PROG
# endif
~
DROP_PROG p a small dagger
if var($i DROP_PROG_TEST == 'TEST')
mpsetvar $i DROP_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:DROP_PROG
endif
~
ENTRY_PROG 100
if var($i ENTRY_PROG_TEST == 'TEST')
mpsetvar $i ENTRY_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:ENTRY_PROG
endif
~
EXECMSG_PROG FOLLOW ALL
if var($i EXECMSG_PROG_TEST == 'TEST')
mpsetvar $i EXECMSG_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:EXECMSG_PROG
endif
~
EXIT_PROG 100
if var($i EXIT_PROG_TEST == 'TEST')
mpsetvar $i EXIT_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:EXIT_PROG
endif
~
FUNCTION_PROG DOMEDOMEDOO
if var($i FUNCTION_PROG_TEST == 'TEST')
mpsetvar $i FUNCTION_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:FUNCTION_PROG
endif
~
GET_PROG swash shield claw
if var($i GET_PROG_TEST == 'TEST')
mpsetvar $i GET_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:GET_PROG
endif
~
GIVE_PROG p a shield
if var($i GIVE_PROG_TEST == 'TEST')
mpsetvar $i GIVE_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:GIVE_PROG
endif
~
GREET_PROG 100
if var($i GREET_PROG_TEST == 'TEST')
mpsetvar $i GREET_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:GREET_PROG
endif
~
HITPRCNT_PROG 10
if var($i HITPRCNT_PROG_TEST == 'TEST')
mpsetvar $i HITPRCNT_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:HITPRCNT_PROG
endif
~
IMASK_PROG p zoobie doobie doo
if var($i IMASK_PROG_TEST == 'TEST')
mpsetvar $i IMASK_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:IMASK_PROG
endif
~
KILL_PROG
if var($i KILL_PROG_TEST == 'TEST')
mpsetvar $i KILL_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:KILL_PROG
endif
~
LEVEL_PROG 100
if var($i LEVEL_PROG_TEST == 'TEST')
mpsetvar $i LEVEL_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:LEVEL_PROG
endif
~
LOCK_PROG all
if var($i LOCK_PROG_TEST == 'TEST')
mpsetvar $i LOCK_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:LOCK_PROG
endif
~
LOGIN_PROG 100
if var($i LOGIN_PROG_TEST == 'TEST')
mpsetvar $i LOGIN_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:LOGIN_PROG
endif
~
LOGOFF_PROG 100
if var($i LOGOFF_PROG_TEST == 'TEST')
mpsetvar $i LOGOFF_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:LOGOFF_PROG
endif
~
LOOK_PROG p a small dagger
if var($i LOOK_PROG_TEST == 'TEST')
mpsetvar $i LOOK_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:LOOK_PROG
endif
~
LLOOK_PROG sword dagger shield
if var($i LLOOK_PROG_TEST == 'TEST')
mpsetvar $i LLOOK_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:LLOOK_PROG
endif
~
OPEN_PROG all
if var($i OPEN_PROG_TEST == 'TEST')
mpsetvar $i OPEN_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:OPEN_PROG
endif
~
QUEST_TIME_PROG * 10
if var($i QUEST_TIME_PROG_TEST == 'TEST')
mpsetvar $i QUEST_TIME_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:QUEST_TIME_PROG
endif
~
PUT_PROG container
if var($i PUT_PROG_TEST == 'TEST')
mpsetvar $i PUT_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:PUT_PROG
endif
~
RAND_PROG 100
if var($i RAND_PROG_TEST == 'TEST')
mpsetvar $i RAND_PROG_TEST TRUE
else
endif
~
REGMASK_PROG Z*zitlee
if var($i REGMASK_PROG_TEST == 'TEST')
mpsetvar $i REGMASK_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:REGMASK_PROG
endif
~
REMOVE_PROG all
if var($i REMOVE_PROG_TEST == 'TEST')
mpsetvar $i REMOVE_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:REMOVE_PROG
endif
~
SELL_PROG all
if var($i SELL_PROG_TEST == 'TEST')
mpsetvar $i SELL_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:SELL_PROG
endif
~
SOCIAL_PROG wiggy
if var($i SOCIAL_PROG_TEST == 'TEST')
mpsetvar $i SOCIAL_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:SOCIAL_PROG
endif
~
SPEECH_PROG wabloo babbllooo a;lsdkjf
if var($i SPEECH_PROG_TEST == 'TEST')
mpsetvar $i SPEECH_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:SPEECH_PROG
endif
~
SPEECH_PROG p asd7f098asdyf0asdfhasdfslhd a0s9d8f7yashdfj asd78yfoahsj
if var($i SPEECH_PROG2_TEST == 'TEST')
mpsetvar $i SPEECH_PROG2_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:SPEECH_PROG2
endif
~
UNLOCK_PROG p a container
if var($i UNLOCK_PROG_TEST == 'TEST')
mpsetvar $i UNLOCK_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:UNLOCK_PROG
endif
~
WEAR_PROG p a small dagger
if var($i WEAR_PROG_TEST == 'TEST')
mpsetvar $i WEAR_PROG_TEST TRUE
else
mpsetvar $i ERRORS $<$i ERRORS> MISFIRE:WEAR_PROG
endif
~
FUNCTION_PROG TEST2
IF VAR($i DAY_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:DAY_PROG
ENDIF
IF VAR($i DELAY_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:DELAY_PROG
ENDIF
IF VAR($i TIME_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:TIME_PROG
ENDIF
IF VAR($i RAND_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:RAND_PROG
ENDIF
IF VAR($i DAY_PROG_TEST == 'TRUE') OR VAR($i DAY_PROG_TEST == 'TRUE') AND VAR($i DAY_PROG_TEST == 'TRUE')
#do nothing
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> DAY_PROG_TEST
mpsetvar $i SUCCESS $<$i SUCCESS> DELAY_PROG_TEST
mpsetvar $i SUCCESS $<$i SUCCESS> TIME_PROG_TEST
mpsetvar $i SUCCESS $<$i SUCCESS> RAND_PROG_TEST
MPMLOAD Orc
MPGSET Orc SPEED 100
mpsetvar $i ALL_GREET_PROG_TEST TEST
mpsetvar $i GREET_PROG_TEST TEST
mpsetvar $i EXIT_PROG_TEST TEST
MPFORCE Orc GO N S
IF VAR($i ALL_GREET_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:ALL_GREET_PROG
ENDIF
IF VAR($i EXIT_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:EXIT_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> ALL_GREET_PROG_TEST
mpsetvar $i SUCCESS $<$i SUCCESS> ENTRY_PROG_TEST
### skip greet-prog test
mpsetvar $i MASK_PROG_TEST TEST
MPFORCE Orc MPECHO zouober2 zoober zogobuyer
IF VAR($i MASK_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:MASK_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> MASK_PROG_TEST
mpsetvar $i ACT_PROG_TEST TEST
MPFORCE Orc MPECHO zoobie doobie doo
IF VAR($i ACT_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:ACT_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> ACT_PROG_TEST
MPGSET Orc MONEY 800
mpsetvar $i BRIBE_PROG_TEST TEST
MPFORCE Orc GIVE 100 Shoppy
IF VAR($i BRIBE_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:BRIBE_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> BRIBE_PROG_TEST
mpsetvar $i BUY_PROG_TEST TEST
MPFORCE Orc BUY "short sword" shoppy
IF VAR($i BUY_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:BUY_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> BUY_PROG_TEST
mpsetvar $i BUY_PROG2_TEST TEST
MPFORCE Orc BUY dagger shoppy
IF VAR($i BUY_PROG2_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:BUY_PROG2
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> BUY_PROG2_TEST
mpsetvar $i CHANNEL_PROG_TEST TEST
mpunaffect Orc Orcish
MPFORCE Orc GOSSIP ooobie doobie
IF VAR($i CHANNEL_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:CHANNEL_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> CHANNEL_PROG_TEST
mpsetvar $i CHANNEL_PROG2_TEST TEST
MPFORCE Orc GOSSIP ooobie edoobie
IF VAR($i CHANNEL_PROG2_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:CHANNEL_PROG2
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> CHANNEL_PROG2_TEST
MPOLOADROOM LockableContainer
MPOPEN Container
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i CLOSE_PROG_TEST TEST
MPFORCE Orc CLOSE Container
IF VAR($i CLOSE_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:CLOSE_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> CLOSE_PROG_TEST
mpsetvar $i CNCLMSG_PROG_TEST TEST
mpsetvar $i EXECMSG_PROG_TEST TEST
MPFORCE Orc FOLLOW Shoppy
IF VAR($i CNCLMSG_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:CNCLMSG_PROG
ENDIF
IF VAR($i EXECMSG_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:EXECMSG_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> CNCLMSG_PROG_TEST
mpsetvar $i SUCCESS $<$i SUCCESS> EXECMSG_PROG_TEST
MPOLOAD GenFood
GIVE food Orc
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i CONSUME_PROG_TEST TEST
MPFORCE Orc EAT food
IF VAR($i CONSUME_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:CONSUME_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> CONSUME_PROG_TEST
mpsetvar $i DAMAGE_PROG_TEST TEST
MPFORCE Orc MPDAMAGE Shoppy 1 1
IF VAR($i DAMAGE_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:DAMAGE_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> DAMAGE_PROG_TEST
################ Skipping Death test
mpsetvar $i DROP_PROG_TEST TEST
MPFORCE Orc drop dagger
IF VAR($i DROP_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:DROP_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> DROP_PROG_TEST
MPPURGE Orc
mpsetvar $i ENTRY_PROG_TEST TEST
mpsetvar $i EXIT_PROG_TEST TEST
GO N
IF VAR($i ENTRY_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:ENTRY_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> ENTRY_PROG_TEST
mpsetvar $i ENTRY_PROG_TEST TEST
mpsetvar $i EXIT_PROG_TEST TEST
GO S
IF VAR($i ENTRY_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:ENTRY_PROG_TEST
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> ENTRY_PROG_TEST
mpsetvar $i FUNCTION_PROG_TEST TEST
MPCALLFUNC DOMEDOMEDOO
IF VAR($i FUNCTION_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:FUNCTION_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> FUNCTION_PROG_TEST
MPMLOAD Orc
MPOLOADROOM StdShield
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i GET_PROG_TEST TEST
MPFORCE Orc get shield
IF VAR($i GET_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:GET_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> GET_PROG_TEST
mpsetvar $i GIVE_PROG_TEST TEST
MPFORCE Orc give shield Shoppy
IF VAR($i GIVE_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:GIVE_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> GIVE_PROG_TEST
mpsetvar $i HITPRCNT_PROG_TEST TEST
kill orc
for $0 = 1 to 10
mpsetvar $i DAMAGE_PROG_TEST TEST
MPFORCE Orc MPDAMAGE Shoppy 100 100
next
mpsetvar $i SCRIPTABLETESTTEST 0
mpwhile (VAR($i SCRIPTABLETESTTEST < 10)) mpsetvar $i SCRIPTABLETESTTEST ++
mpsetvar $i SUCCESS $<$i SUCCESS> MPSETVAR
mpsetvar $i SUCCESS $<$i SUCCESS> MPWHILE
mpsetvar $i SUCCESS $<$i SUCCESS> VAR
mpsetvar $i SUCCESS $<$i SUCCESS> MPALARM
mpsetvar $i SUCCESS $<$i SUCCESS> MPFORCE
mpsetvar $i SUCCESS $<$i SUCCESS> FOR
mpsetvar $i SUCCESS $<$i SUCCESS> IF
mpsetvar $i SUCCESS $<$i SUCCESS> MPMLOAD
mpsetvar $i SUCCESS $<$i SUCCESS> MPOPEN
mpsetvar $i SUCCESS $<$i SUCCESS> MPOLOADROOM
mpsetvar $i SUCCESS $<$i SUCCESS> MPCALLFUNC
MPALARM 1 MPCALLFUNC TEST3
~
FUNCTION_PROG TEST3
IF VAR($i HITPRCNT_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:HITPRCNT_PROG_TEST
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mppurge Orc
mppurge Orc
mpmload Orc
mpsetvar $i SUCCESS $<$i SUCCESS> HITPRCNT_PROG_TEST
mpgset $i HITS 9999
mpsetvar $i IMASK_PROG_TEST TEST
mpecho zoobie doobie doo
IF VAR($i IMASK_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:IMASK_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> IMASK_PROG_TEST
mpsetvar $i KILL_PROG_TEST TEST
mpdamage Orc 99999 99999 mekill
IF VAR($i KILL_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:KILL_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> KILL_PROG_TEST
mpmload Orc
mpsetvar $i LOCK_PROG_TEST TEST
mpforce Orc mpoload StdKey
mpforce Orc lock Container
IF VAR($i LOCK_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:LOCK_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> LOCK_PROG_TEST
################ Skipping Logon test
################ Skipping Logoff test
mpsetvar $i LOOK_PROG_TEST TEST
mpforce Orc mpoload Dagger
mpforce Orc look Dagger
IF VAR($i LOOK_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:LOOK_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> LOOK_PROG_TEST
mpsetvar $i LLOOK_PROG_TEST TEST
mpforce Orc mpoload StdShield
mpforce Orc examine Shield
IF VAR($i LLOOK_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:LLOOK_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> LLOOK_PROG_TEST
mpsetvar $i UNLOCK_PROG_TEST TEST
mpforce Orc unlock Container
IF VAR($i UNLOCK_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:UNLOCK_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> UNLOCK_PROG_TEST
mpsetvar $i OPEN_PROG_TEST TEST
mpforce Orc open Container
IF VAR($i OPEN_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:OPEN_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> OPEN_PROG_TEST
################ Skipping quest time test
mpsetvar $i PUT_PROG_TEST TEST
mpforce Orc put key Container
IF VAR($i PUT_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:PUT_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> PUT_PROG_TEST
mpsetvar $i REGMASK_PROG_TEST TEST
mpforce Orc mpecho ZZZZZzitlee
IF VAR($i REGMASK_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:REGMASK_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> REGMASK_PROG_TEST
mpsetvar $i WEAR_PROG_TEST TEST
mpsetvar $i REMOVE_PROG_TEST TEST
mpforce Orc mpoload Dagger
mpforce Orc wear Dagger
IF VAR($i WEAR_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:WEAR_PROG
ENDIF
IF VAR($i REMOVE_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:REMOVE_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> WEAR_PROG_TEST
mpsetvar $i SUCCESS $<$i SUCCESS> REMOVE_PROG_TEST
################ Skipping sell prog test
mpsetvar $i SOCIAL_PROG_TEST TEST
mpforce Orc wiggy
IF VAR($i SOCIAL_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:SOCIAL_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> SOCIAL_PROG_TEST
mpunaffect Orc Orcish
mpsetvar $i SPEECH_PROG_TEST TEST
mpforce Orc sayto Shoppy babbllooo
IF VAR($i SPEECH_PROG_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:SPEECH_PROG
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> SPEECH_PROG_TEST
mpsetvar $i SPEECH_PROG2_TEST TEST
mpforce Orc sayto Shoppy asd7f098asdyf0asdfhasdfslhd a0s9d8f7yashdfj asd78yfoahsj
IF VAR($i SPEECH_PROG2_TEST != 'TRUE')
mpsetvar $i ERRORS $<$i ERRORS> NOFIRE:SPEECH_PROG2
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i SUCCESS $<$i SUCCESS> SPEECH_PROG2_TEST
for $0 = 1 to '$<$i KEYWORDS>.LENGTH#'
if not strin('$<$i SUCCESS>' '$<$i KEYWORDS>.$0')
mpsetvar $i UNTESTED $<$i UNTESTED> $<$i KEYWORDS>.$0
endif
next
IF INLOCALE($i 'WoodRoom')
ELSE
mpsetvar $i ERRORS $<$i ERRORS> FAIL:INLOCALE1
ENDIF
IF INLOCALE(WoodRoom)
mpsetvar $i SUCCESS $<$i SUCCESS> INLOCALE
else
mpsetvar $i ERRORS $<$i ERRORS> FAIL:INLOCALE3
ENDIF
IF INROOM(Orc != 'UNKNOWN1')
mpsetvar $i ERRORS $<$i ERRORS> FAIL:INROOM1
ENDIF
IF INROOM(Orc == 'UNKNOWN1')
ELSE
mpsetvar $i ERRORS $<$i ERRORS> FAIL:INROOM2
ENDIF
IF INROOM(UNKNOWN1)
mpsetvar $i SUCCESS $<$i SUCCESS> INROOM
else
mpsetvar $i ERRORS $<$i ERRORS> FAIL:INROOM3
ENDIF
IF INAREA($i != 'UNKNOWNAREA')
mpsetvar $i ERRORS $<$i ERRORS> FAIL:INAREA1
ENDIF
IF INAREA($i == 'UNKNOWNAREA')
ELSE
mpsetvar $i ERRORS $<$i ERRORS> FAIL:INAREA2
ENDIF
IF INAREA(UNKNOWNAREA)
mpsetvar $i SUCCESS $<$i SUCCESS> INAREA
else
mpsetvar $i ERRORS $<$i ERRORS> FAIL:INAREA3
ENDIF
IF VAR($i ERRORS != '')
RETURN
ENDIF
mpsetvar $i ERRORS $<$i ERRORS> NONE!
~
