Show Posts

Programs / Semi-complete game: werewolf (mafia) for solo play

« on: August 14, 2020, 07:57:37 pm »
Oddly enough, this thing doesn't compile anymore. Strange. edit: ah, for some reason you can't put arrays in user-defined types in QB64. I used to be able to do it with the old compiler.

I wrote this thing in QBasic like 15 years ago. If you ever played mafia or werewolf on internet forums, then this is a solo version of that game written in QBasic. Type HELP to get instructions. You can walk around rooms, pick up items, find secrets, etc. The game is kinda infinitely expandable, as you can add rooms or add items in the DATA segments. The format for rooms is 1. the room number 2. the room name 3. the room description 4. four numbers that represent the room exits in a north, south, east, west format 5. room exits that are locked or unlocked (-1 means open, or a number designates the item required to unlock that direction. There is commented out stuff about star wars that aren't in the actual game anymore.

I kinda considered it an unfinished game as the game loop I crafted is a resource hog and heats up the CPU. I think I need some sort of time delay to cool down the CPU but never figured that out.
Code: QB64: [Select]
 option escape                              ' allows use of escape chars
 
 DIM cmmd AS STRING
 DIM cmmdbuild AS STRING
 DIM kbhit AS STRING
 
type ttt
          room as integer
          title as string 
          descrip as string * 500
          exits(4) as integer
          lock(4) as integer                ' -1 = no lock, 0 = unlocked, 1 = locked, 2 = hidden
          mobs as integer
          items(10) as integer
end type
 
type mmm
          room as integer
          title as string
          descrip as string * 500
          role as string * 20
          vote as string 
          state as integer  ' 0 = alive, -1 = dead
          viewed as integer
 
end type
 
type iii
 
          id as integer 
          type as string
          name as string
          keyword as string
          descrip as string * 500
          start as integer                   ' -1 = not in game, 0 = carried by user, anything else a room number
end type
MAXMOBS = 20 
PLAYERBASE = 41
WORLDSIZE = 133
ITEMBASE = 4
seerexists = 1
day = 1 'day advances when wolves kill
 
dim zone(100000) as ttt
dim mobs(MAXMOBS) as mmm
dim item(ITEMBASE) as iii
dim inv(50) as integer
dim titles(MAXMOBS) as string
dim descrips(MAXMOBS) as string
dim seerlist(MAXMOBS) as integer 
 
declare sub initzone( array() as ttt )
declare sub initmobs( array() as mmm, array2() as ttt, MAXMOBS as integer, PLAYERBASE as integer, titles() as string, descrips() as string)
 
 CLS
 startup = 1
 readonce = -1
 
 DIM titles(PLAYERBASE) AS STRING
 DIM descrips(PLAYERBASE) AS STRING
 
 IF readonce = -1 THEN
 
 
 FOR i = 1 to PLAYERBASE 
    READ i$
    titles(i-1) = i$
 NEXT i
 
 FOR i = 1 to PLAYERBASE 
    READ i$
    descrips(i-1) = i$
 NEXT i
 
 
 for i = 0 to WORLDSIZE-1
    READ j%
    zone(j%).room = j
    READ zone(j%).title 
    READ zone(j%).descrip 
    READ zone(j%).exits(0)
    READ zone(j%).exits(1)
    READ zone(j%).exits(2)
    READ zone(j%).exits(3)
    READ zone(j%).lock(0)
    READ zone(j%).lock(1)
    READ zone(j%).lock(2)
    READ zone(j%).lock(3)
    zone(j%).mobs = 0
    FOR k = 0 to 9
        zone(j%).items(k) = -1
    NEXT k
 NEXT i
 
 
 FOR i = 0 to ITEMBASE - 1
    READ item(i).id
    READ item(i).type
    READ item(i).name
    READ item(i).keyword
    READ item(i).descrip
    READ item(i).start
    IF item(i).start <> -1 THEN                       ' if the item is NOT out of the game at game start
      j = -1
      DO
        j = j + 1
      LOOP UNTIL zone(item(i).start).items(j) = -1
      zone(item(i).start).items(j) = item(i).id
    END IF
    'PRINT "room #";
    'PRINT zone(item(i).start).room;
    'PRINT " (";
    'PRINT zone(item(i).start).title;
    'PRINT ") has item #";
    'PRINT zone(item(i).start).items(j);
    'PRINT " (";
    'PRINT item(i).name;
    'PRINT ")"
 NEXT i
 
 END IF
 
 readonce = 0
 autoupdate = 1
 wizrooms = 0                  ' toggle to see room numbers in game
 
start:
 
 ' initialize world
 ' remove items that are lying on the ground
 FOR i = 0 to ITEMBASE - 1
    IF item(i).start > -1 THEN                      ' if the item is lying on the ground or in inv at reset time
    IF item(i).start > 0 THEN                        ' if the item is lying on the ground at reset time
      j = -1
      DO
        j = j + 1
      LOOP UNTIL zone(item(i).start).items(j) = item(i).id
      zone(item(i).start).items(j) = -1 
    END IF
      ' put items back in starting state
      IF item(i).id = 10001 THEN
        item(i).start = 1018
      END IF
      IF item(i).id = 10002 THEN
        item(i).start = -1
      END IF
      IF item(i).id = 10003 THEN
        item(i).start = 2021
      END IF
      IF item(i).id = 10004 THEN
        RANDOMIZE TIMER
        x% = INT(RND * 29) + 6001
        item(i).start = x%                              ' random location start
      END IF
      IF item(i).start <> -1 THEN                       ' if the item is NOT out of the game at this point
        j = -1
        DO
          j = j + 1
        LOOP UNTIL zone(item(i).start).items(j) = -1
        zone(item(i).start).items(j) = item(i).id       ' put item back in starting room
      END IF
    END IF
  NEXT i
 
 ' clean out inventory
 
  FOR i = 0 to 50
     inv(i) = -1
  NEXT i
 
 ' lock gates
  zone(1019).lock(2) = 1
  zone(2001).lock(3) = 1
 
 
 cmmd$ = ""
 cmmdbuild$ = ""
 lastcmmd$ = ""
 kenobi = 0
 jinn = 0
 anakin = 0
 doprompt = 1
 room = 1000
 turn = 1
 wolfkill = 0 
 vigkill = 0
 
 assignroles = 1
 assignvotes = 1
 wolfchangevote = 0
 gameupdate = 0
 gameover = 0
 Starttime = TIMER
 seerexists = 1
 vigilanteexists = 0
 DAY = 1
 wolvesalive = 4
 villagersalive = 17
 tagged = -1                         'used to track wolf that is tagged by meat
 meat = -1                           'used to track meat
 meatproc = 1                        'meat proc only goes off once
 seerer = 2                          'robes of the seerer proc:  2 = not picked up, 1 = picked up, 0 = used
 
 
 
 'FOR i = 0 to MAXMOBS
 '   seerlist(i) = -1
 'NEXT i
 
 
 initmobs mobs(), zone(), MAXMOBS, PLAYERBASE, titles(), descrips()
 
 
 PRINT
 color 12
 PRINT "WereWolf v2.5"
 color 7
 PRINT "Written by BGP
 PRINT "October 14th, 2005"
 PRINT
 PRINT "Type help at any time for assistance"
 ' TIMER ON
 
 
 DO
 
 cmmd$ = ""
 
 
 IF startup = 1 THEN
 ' show room once at game start
 cmmd$ = "l"
 startup = 0
 END IF
 
 kbhit$ = INKEY$
 
 IF kbhit$ <> "" AND kbhit$ <> CHR$(13) THEN
  '  doprompt = 1
  IF kbhit$ = CHR$(8) THEN
     ' backspace key was pressed - delete last letter
     cmmdbuild$ = LEFT$(cmmdbuild$, LEN(cmmdbuild$)-1)
  ELSE
     ' add last letter
     cmmdbuild$ = cmmdbuild$ + kbhit$
  END IF
  '  PRINT "cmmdbuild$ = " + cmmdbuild$
  PRINT kbhit$;
 END IF
 
 IF kbhit$ = CHR$(13) THEN
    doprompt = 1
    cmmd$ = cmmdbuild$
    PRINT
   ' PRINT "return key pressed!"
   ' PRINT "cmmd$ = " + cmmd$
    cmmdbuild$ = ""
   IF cmmd$ = "!" THEN 
     cmmd$ = lastcmmd$
   END IF
   IF cmmd$ <> "!" THEN
     lastcmmd$ = cmmd$
   END IF
 END IF
 
 IF TIMER > Starttime + 1 THEN
   IF assignroles = 1 THEN     'assign roles only once
     RANDOMIZE TIMER  
     mobcount = 0
     x% = INT(RND * MAXMOBS)   ' pick the wolves
     DO
       y% = INT(RND * MAXMOBS)
     LOOP UNTIL x% <> y%
     DO
       z% = INT(RND * MAXMOBS)
     LOOP UNTIL z% <> x% AND z% <> y%
     DO 
       a% = INT(RND * MAXMOBS)
     LOOP UNTIL a% <> z% AND a% <> y% AND z% <> x%
     DO
       b% = INT(RND * MAXMOBS)
     LOOP UNTIL b% <> a% AND b% <> z% AND b% <> y% AND b% <> x%
     c% = INT(RND * 2)
     IF c% = 1 THEN  'make a vig
       DO
         d% = INT(RND * MAXMOBS)
       LOOP UNTIL d% <> b% AND d% <> a% AND d% <> z% AND d% <> y% AND d% <> x%
     ELSE
       d% = -1
     END IF
     DO
       IF mobcount = a% OR mobcount = z% OR mobcount = x% OR mobcount = y% THEN
         mobs(mobcount).role = "wolf"
       ELSE
         IF mobcount = b% THEN
           mobs(mobcount).role = "seer"
         ELSE
         IF d% <> -1 AND mobcount = d% THEN 'make vig
           mobs(mobcount).role = "vigilante"
           vigilanteexists = 1
         ELSE  
           mobs(mobcount).role = "villager"  
         END IF
         END IF
       END IF
       mobs(mobcount).viewed = 0
       seerlist(mobcount) = -1
       mobcount = mobcount + 1
     LOOP UNTIL mobcount = MAXMOBS 
     assignroles = 0
   END IF
 END IF
 
 IF cmmd$ = "update" OR (gameupdate = 1 AND TIMER > Starttime + 1) THEN
   doprompt = 1
   color 12
   PRINT "Werewolf Game Update:"
   color 7
   PRINT
   PRINT "Players remaining: ";
   playersleft = 1     'start by counting the user
   wolvesleft = 0
   mobcount = 0
   DO
     IF mobs(mobcount).state = 0 THEN
       playersleft = playersleft + 1
     END IF
     IF mobs(mobcount).state = 0 AND mobs(mobcount).role = "wolf" THEN
        wolvesleft = wolvesleft + 1
     END IF
   mobcount = mobcount + 1
   LOOP UNTIL mobcount = MAXMOBS
   PRINT playersleft
   PRINT "Wolves remaining: ";
   PRINT wolvesleft
   gameupdate = 0
   IF wolvesleft > (playersleft / 2) OR wolvesleft = (playersleft / 2) OR wolvesleft = 0 THEN
     gameover = 1
     GOTO endgame
   END IF
 END IF
 
 IF TIMER > Starttime + 1 THEN
   IF assignvotes = 1 THEN
     assignvotes = 0
     RANDOMIZE TIMER
     mobcount = 0
     DO
       IF mobs(mobcount).state = 0 THEN           ' only the living can cast votes
         DO
           x% = INT(RND * MAXMOBS)
         LOOP UNTIL mobs(x%).state = 0    ' must vote for living player
         IF mobs(mobcount).role = "wolf" AND mobs(x%).role = "wolf" THEN   'if wolf votes for fellow wolf % chance he changes vote
           y% = INT(RND * 3)
           IF y% = 0 THEN  ' 33% chance wolf changes vote to a villager succeeds
             wolfchangevote = 1
             DO
               x% = INT(RND * MAXMOBS)
             LOOP UNTIL mobs(x%).role = "villager" AND mobs(x%).state = 0
           END IF
         END IF
         IF mobcount = x% THEN   'if mob votes for himself, he is voting for YOU!
           mobs(mobcount).vote = "you"
         ELSE 
           mobs(mobcount).vote = mobs(x%).title
         END IF
         IF wolfchangevote = 1 THEN
           wolfchangevote = 0
           'mobs(mobcount).vote = mobs(mobcount).vote + "* (wolf changed this vote to villager)"
         END IF
       END IF
       mobcount = mobcount + 1
     LOOP UNTIL mobcount = MAXMOBS 
   END IF
 END IF
 
 
 IF TIMER > Starttime + 1 THEN
   RANDOMIZE TIMER
   mobmovespacing = 0
   mobcount = 0
   DO
     IF mobs(mobcount).state = 0 THEN  'if not dead then see if mob moves
        x% = INT(RND * 60) + 1 'throw to decide if mob moves
        IF x% = 1 THEN   
          ' this mob will try to move
          y% = INT(RND * 4) 'throw to determine movement direction
          IF zone(mobs(mobcount).room).exits(y%) <> -1 AND zone(mobs(mobcount).room).exits(y%) <> 2001 THEN
            ' mob can move in that direction so he will
            zone(mobs(mobcount).room).mobs = zone(mobs(mobcount).room).mobs - 1  'drop old room occupancy by one
            IF mobs(mobcount).room = room THEN
              'Player is in the room the mob is leaving - send exit message
              'mobexit$ = mobs(mobcount).title + " (" + mobs(mobcount).role + ") leaves "
              mobexit$ = mobs(mobcount).title + " leaves "
              IF y% = 0 THEN
              mobexit$ = mobexit$ + "north." 
              END IF
              IF y% = 1 THEN
              mobexit$ = mobexit$ + "south."
              END IF
              IF y% = 2 THEN
              mobexit$ = mobexit$ + "east."
              END IF
              IF y% = 3 THEN
              mobexit$ = mobexit$ + "west."
              END IF
              IF mobmovespacing = 0 THEN    'only want one space between room descrip and mob movements
                mobmovespacing = 1
                PRINT
              END IF
              PRINT mobexit$
              doprompt = 1
            END IF
            mobs(mobcount).room = zone(mobs(mobcount).room).exits(y%) 'moves mob to new room
            zone(mobs(mobcount).room).mobs = zone(mobs(mobcount).room).mobs + 1  'increase new room occupancy by one
            IF mobs(mobcount).room = room THEN 'check to see if mob moved to the room the player is in
              IF mobmovespacing = 0 THEN    'only want one space between room descrip and mob movements
                mobmovespacing = 1
                PRINT
              END IF
              PRINT mobs(mobcount).title + " has arrived."
              doprompt = 1
            END IF
          END IF
        END IF
     END IF
     mobcount = mobcount + 1 
   LOOP UNTIL mobcount = MAXMOBS 
   Starttime = TIMER
 END IF
 
 IF turn = 1 THEN 'check to do a turn if one hasn't been done yet
   roomcheck = 1000
   DO
     IF zone(roomcheck).mobs = 3 THEN
       'see if conditions are met to turn, if so, then do one!
       mobcount = 0
       wolvesinroom = 0
       DO
         IF mobs(mobcount).room = roomcheck AND mobs(mobcount).role = "wolf" THEN
           wolvesinroom = wolvesinroom + 1
         END IF 
         mobcount = mobcount + 1
       LOOP UNTIL mobcount = MAXMOBS
       IF wolvesinroom = 2 THEN  'if 2 wolves in room with lone villager, turn that villager
         mobcount = 0
         DO
           IF mobs(mobcount).room = roomcheck AND mobs(mobcount).role <> "wolf" AND mobs(mobcount).state = 0 AND turn = 1 THEN
             color 4
             PRINT "Someone was turned!"
             color 7
             resetviews = -1
             DO                                                     'must reset viewed for seer to start over
               resetviews = resetviews + 1
               mobs(resetviews).viewed = 0
             LOOP UNTIL resetviews = MAXMOBS
             IF mobs(mobcount).role = "vigilante" THEN
               vigilanteexists = 0
             END IF
             IF mobs(mobcount).role = "seer" THEN
               seerexists = 0
             END IF
             mobs(mobcount).role = "wolf"
             turn = 0
             doprompt = 1
             'gameupdate = 1
             wolvesalive = wolvesalive + 1
             villagersalive = villagersalive - 1
           END IF
           mobcount = mobcount + 1
         LOOP UNTIL mobcount = MAXMOBS 
       END IF
     END IF
     roomcheck = roomcheck + 1
   LOOP UNTIL roomcheck = 1008
 END IF
 
 IF left$ (cmmd$, 3) = "out" THEN
 
   ' user can attempt to out someone as seer.  If mob is seer, seer gives info to user.  Wolves get a kill.
   mobcount = -1 
   mobinroom = -1 
   DO
      mobcount = mobcount + 1
     IF right$(cmmd$, LEN (mobs(mobcount).title)) = mobs(mobcount).title AND mobs(mobcount).room = room THEN
       'mob is in this room
       mobinroom = 1
     END IF
   LOOP UNTIL mobinroom = 1 OR mobcount = MAXMOBS    'until user input matches mob name in room or all mob names checked
 
   ' if user name matches mob in room, check to see if name is seer.  if seer, give list else just do wolf kill
   IF mobinroom = 1  AND mobs(mobcount).state = 0 THEN
     wolfkill = 1 'wolves get a kill no matter if mob is seer or not
     vigkill = vigilanteexists 'vig gets kill as well
     IF mobs(mobcount).role <> "seer" THEN 
       PRINT
       PRINT mobs(mobcount).title + " says, 'A SEER?!  You are looking for a SEER?  I have no idea!'" 
       PRINT
     ELSE
         ' mob is the seer - user gets the views
         ' 1 in 5 chance that this action creates another vigilante
         RANDOMIZE TIMER
         x% = INT(RND * 2)
         IF x% = 1 THEN
           DO
             y% = INT(RND * MAXMOBS)
           LOOP UNTIL mobs(y%).state = 0 AND mobs(y%).role <> "wolf" and mobs(y%).role <> "vigilante"
           mobs(y%).role = "vigilante"
           vigilanteexists = vigilanteexists + 1 
           vigkill = vigilanteexists 
         END IF
         PRINT
         PRINT mobs(mobcount).title + " whispers to you, ";
         color 1
         PRINT "'Yes, I am the seer.  Here is what I know...'"
         color 7 
         PRINT
         PRINT "VIEWS:"
         PRINT
         i = 1
         DO
           IF day > 1 THEN
             i = i + 1
             PRINT "Day ";
             PRINT i;
             PRINT ": ";
             PRINT mobs(seerlist(i)).title + " is a " + mobs(seerlist(i)).role + "." 
           END IF
         LOOP UNTIL i = DAY
         PRINT
     END IF
   ELSE
       PRINT "No-one here by that name."
   END IF
 
 END IF
 
 IF left$ (cmmd$ , 5) = "lynch" THEN
   doprompt = 1
   mobcount = 0
   dolynch = 0
   wolfkill = 0
   IF right$ (cmmd$, 11) = "babydemon90" THEN
     PRINT "just type 'lynch babyd'"
   END IF
   DO
     'PRINT "Comparing ";
     'PRINT mobs(mobcount).title;
     'PRINT " and ";
     'PRINT right$(cmmd$, LEN (mobs(mobcount).title));
     'PRINT LEN (mobs(mobcount).title)
     IF mobs(mobcount).title = right$(cmmd$, LEN (mobs(mobcount).title)) AND mobs(mobcount).state = 0 THEN
       dolynch = 1
       color 12
       PRINT "You lynch ";
       PRINT mobs(mobcount).title;
       PRINT "!"
       color 7
       IF mobs(mobcount).role = "seer" THEN
         seerexists = 0
       END IF
       IF mobs(mobcount).role = "vigilante" THEN
         vigilanteexists = vigilanteexists - 1 
       END IF
       IF mobs(mobcount).room = room THEN  'death message
         PRINT "Your blood freezes as you hear ";
         PRINT mobs(mobcount).title;
         PRINT "'s death cry."
       END IF
       mobs(mobcount).state = -1
       IF mobs(mobcount).role = "wolf" THEN
         wolvesalive = wolvesalive - 1
       ELSE
         villagersalive = villagersalive - 1
       END IF
       IF wolvesalive = 0 OR wolvesalive = villagersalive OR wolvesalive > villagersalive THEN
         GOTO endgame
       END IF
       vigkill = vigilanteexists 
       wolfkill = 1
     END IF
   mobcount = mobcount + 1
   LOOP UNTIL mobcount = MAXMOBS
   IF dolynch = 0 THEN
     color 2
     PRINT "Player not found."
     color 7
   END IF
 END IF
 
 
 IF vigkill > 0 AND vigilanteexists > 0 THEN
 
   DO
   doprompt = 1
   vigkill = vigkill - 1 
   DO
     s% = INT(RND * MAXMOBS)
   LOOP UNTIL mobs(s%).state <> -1  'loop until we find a live player.  Vig can shoot himself.
   mobs(s%).state = -1 'kill player
   PRINT "BANG!  The vigilante has shot ";
   IF mobs(s%).role = "vigilante" THEN
     PRINT "himself?! (herself?!)"
     vigilanteexists = vigilanteexists - 1 
   ELSE
     PRINT mobs(s%).title;
     PRINT "!"
   END IF
   IF mobs(s%).role = "vigilante" THEN
     vigilanteexists = vigilanteexists - 1 
   END IF 
   IF mobs(s%).role = "seer" THEN
     seerexists = 0
   END IF
   IF mobs(s%).role = "wolf" THEN
     wolvesalive = wolvesalive - 1
   ELSE
     villagersalive = villagersalive - 1
   END IF
   IF wolvesalive = 0 OR wolvesalive = villagersalive OR wolvesalive > villagersalive THEN
     GOTO endgame
   END IF
   LOOP UNTIL vigkill = 0
 
 
 END IF
 
   IF wolfkill = 1 THEN   ' someone was lynched - now its time for the wolves to kill someone if a wolf is still alive
     wolvesleft = 0 
     'gameupdate = 1
     mobcount = 0
     DO
       IF mobs(mobcount).role = "wolf" AND mobs(mobcount).state = 0 THEN
         wolvesleft = wolvesleft + 1
       END IF
       mobcount = mobcount + 1
     LOOP UNTIL mobcount = MAXMOBS
     IF wolvesleft > 0 THEN
       RANDOMIZE TIMER
       DO
         x% = INT(RND * MAXMOBS)
       LOOP UNTIL mobs(x%).role <> "wolf" AND mobs(x%).role <> "seer" AND mobs(x%).state <> -1   ' loop until we find a living non-wolf
       mobs(x%).state = -1   ' kill player
       PRINT "The wolves eat ";
       PRINT mobs(x%).title;
       PRINT "."   
       PRINT
       day = day + 1
       assignvotes = 1
       seertime = 1
       wolfkill = 0
       IF mobs(x%).role = "seer" THEN
         seerexists = 0                      ' wolves ate the seer - no more views!
       END IF 
       IF mobs(x%).role = "vigilante" THEN
         vigilanteexists = vigilanteexists - 1 
       END IF
       IF mobs(x%).role = "wolf" THEN
         wolvesalive = wolvesalive - 1
       ELSE
         villagersalive = villagersalive - 1
       END IF
       IF wolvesalive = 0 OR wolvesalive = villagersalive OR wolvesalive > villagersalive THEN
         GOTO endgame
       END IF
     END IF
   END IF
 
 
 IF seerexists = 1 AND seertime = 1 THEN
 
   ' seer gets a chance to look at someone if exists.
   allviewed = 1            ' assume all have been viewed 
   FOR i = 0 to MAXMOBS - 1
      IF mobs(i).viewed = 0 AND mobs(i).state = 0 AND mobs(i).role <> "seer" THEN
        allviewed = 0       ' someone can be viewed 
      END IF
   NEXT i
  
   IF allviewed = 0 THEN     '  proceed
     i = -1
     DO
       i = i + 1
     LOOP UNTIL mobs(i).role = "seer" OR i = MAXMOBS
 
     IF mobs(i).role = "seer" THEN
   
       ' found seer, now he gets a random nonrepeating view
       ' maybe ale could get user ability to see seer walking about for 5 seconds? 
 
       RANDOMIZE TIMER
       DO
         newview = 1
         DO
         x% = INT(RND * MAXMOBS)
 
         LOOP UNTIL mobs(x%).state <> -1
            IF mobs(x%).viewed = 1 OR mobs(x%).role = "seer" THEN
              newview = 0
            END IF
       LOOP UNTIL newview = 1
       seerlist(day) = x%
       mobs(x%).viewed = 1
     
       seertime = 0
     END IF
   END IF 
 END IF
 
 IF cmmd$ = "unlock gate" THEN
   doprompt = 1
   IF room = 1019 or room = 1012 THEN                           ' only certain rooms have locked gates
     i = -1
     DO                                                         ' look for key in inventory
       i = i + 1
     LOOP UNTIL inv(i) = -1 OR inv(i) = 10002 
     IF inv(i) = 10002 THEN                             ' if user has key then continue
   
       IF room = 1019 and zone(room).lock(2) = 1 THEN           ' 1019 has an east gate - see if locked
         zone(room).lock(2) = 0                                 ' unlock 
         zone(2001).lock(3) = 0
         PRINT "*click*"
       ELSE
         IF room = 1019 and zone(room).lock(2) = 0 THEN
           PRINT "It is already unlocked!"
         ELSE
           PRINT "You don't have the proper key."  
         END IF
       END IF
     ELSE
       PRINT "You don't have the proper key."  
     END IF  
   ELSE
     IF room = 5001 THEN
       PRINT "You don't have the proper key."
     ELSE
       PRINT "huh?"
     END IF
   END IF
 END IF
 
 'seerer proc - if user has robes of the seerer in his inventory, he immediately learns
 'the number of wolves in village square.  One-time use.  Basically, they have to run 
 'back to the village to learn anything.  Robes are randomly placed.  Possible tweak is
 'to increase the randomization of the drop if it gets too easy.
 
 IF seerer = 1 THEN           ' seerer = 2 then robes not picked up, seerer = 1 then robes picked up, seerer = 0 then robes used
   doprompt = 1
   seerer = seerer - 1 
   ' scan for number of wolves in village square and report to user
   PRINT
   PRINT "You feel informed."
   PRINT
   i = -1
   j = 0
   DO
     i = i + 1
     IF mobs(i).room = 1004 AND mobs(i).role = "wolf" THEN
       'PRINT mobs(i).title;
       'PRINT " is a ";
       'PRINT mobs(i).role
       j = j + 1
     END IF
   LOOP UNTIL i = MAXMOBS
   PRINT "There are";
   PRINT j;
   PRINT " wolves in Village Square at this moment."
   PRINT
 END IF
 
  
  
 
 IF left$ (cmmd$ , 3) = "get" THEN    'user is trying to pick up an item
 
   doprompt = 1
   IF zone(room).items(0) <> -1 THEN
     j = -1 
     DO
       j = j + 1
     LOOP UNTIL (item(j).start = room AND right$(cmmd$, LEN (item(j).keyword)) = item(j).keyword) OR j = ITEMBASE 
     'PRINT right$(cmmd$, LEN (mobs(mobcount).title));
  
     IF right$(cmmd$, LEN (item(j).keyword)) = item(j).keyword AND item(j).keyword <> "" THEN
 
       k = -1 
       DO
         k = k + 1
       LOOP UNTIL inv(k) = -1
       inv(k) = item(j).id
       item(j).start = 0  ' 0 denotes being carried by user
       zone(room).items(0) = zone(room).items(0) - 1 
       PRINT "You get ";
       PRINT item(j).name;
       PRINT "."
       IF item(j).id = 10004 THEN
         ' picked up robes of the seerer
         seerer = seerer - 1
       END IF
     ELSE
        PRINT "You do not see that here."
     END IF
 
   ELSE
       PRINT "You do not see that here."
   END IF
 
 END IF
 
 IF meat > 0 and meatproc > 0 THEN                                      ' check to perform meat proc
   mobcount = -1 
   DO
     mobcount = mobcount + 1
     IF meatproc > 0 AND mobs(mobcount).role = "wolf" AND mobs(mobcount).room = meat THEN  'if wolf is in room with meat
       RANDOMIZE TIMER
       m% = INT(RND * 150)
       IF m% = 1 THEN                                  ' wolf takes bait and is tagged
         IF room = meat THEN                           ' send message to user
           PRINT "A wolf takes the bait!"
         END IF
         tagged = mobcount 
         meatproc = 0
       END IF
     END IF
     
   LOOP UNTIL mobcount = MAXMOBS or meat = -1
 
 END IF
 
 
 IF left$ (cmmd$ , 4) = "drop" THEN    'user is trying to drop an item
 
   ' search item keywords for what user typed in
   ' if we get a match, see if user is carrying that item and drop it if so
 
   doprompt = 1
   itemmatch = 0
   itemcarried = 0
   i = -1
   DO
     i = i + 1
 
     IF item(i).id <> 0 THEN
      IF right$(cmmd$, LEN(item(i).keyword)) = item(i).keyword THEN
        itemmatch = 1
      END IF 
     END IF
   LOOP UNTIL i = ITEMBASE OR itemmatch = 1 
 
   IF itemmatch = 1 THEN
 
     'user entered the keyword of an item.  Is it in his inventory?
 
     k = -1 
     DO
       k = k + 1
       IF inv(k) = item(i).id THEN
         itemcarried = 1
       END IF 
     LOOP UNTIL itemcarried = 1 OR k = 9
 
 
     IF itemcarried = 1 THEN
 
     ' item is carried so drop it
     j = -1
     DO
       j = j + 1
     LOOP UNTIL j = 9 OR zone(room).items(j) = -1 
     
     zone(room).items(j) = item(i).id 
     item(i).start = room
     inv(k) = -1
     PRINT "You drop ";
     PRINT item(i).name;
     PRINT "."
     IF item(i).keyword = "meat" THEN                              ' special proc for meat is setup
       meat = room
     END IF
     ELSE
         PRINT "You do not have that item."
     END IF
   ELSE
       PRINT "You do not have that item." 
   
   END IF
 
 END IF
 
 
 
 
 
 
 IF cmmd$ = "votes" THEN
   doprompt = 1
   PRINT
   PRINT "VOTES:"
   PRINT
   mobcount = 0
   DO
     IF mobs(mobcount).state = -1 THEN
       color 8
       PRINT mobs(mobcount).title + " (dead)"
       color 7
     ELSE
       color 6
       'PRINT mobs(mobcount).title + " (" + mobs(mobcount).role + "): ";
       PRINT mobs(mobcount).title + ": ";
       color 7
       PRINT mobs(mobcount).vote
     END IF
     mobcount = mobcount + 1 
   LOOP UNTIL mobcount = MAXMOBS 
   PRINT
 END IF
 
 'IF cmmd$ = "rooms" THEN
 '  PRINT "Room Usage:"
 '  PRINT
 '  FOR i = 1000 to 1019
 '     PRINT i;
 '     PRINT ": ";
 '     PRINT zone(i).mobs
 '  NEXT i
 '  FOR i = 2001 to 2009
 '     PRINT i;
 '     PRINT ": ";
 '     PRINT zone(i).mobs
 '  NEXT i
 'END IF
 
 
 IF cmmd$ = "i" OR cmmd$ = "inv" OR cmmd$ = "inventory" THEN
   doprompt = 1
   PRINT "Carried:"
   count = 0
   i = -1 
   DO
     i = i + 1
     IF inv(i) > 0 THEN
       count = count + 1
       j = -1
       DO
         j = j + 1
       LOOP UNTIL inv(i) = item(j).id
       PRINT item(j).name
     END IF 
   LOOP UNTIL i = ITEMBASE
 
   IF count = 0 THEN
     PRINT "nothing"
   END IF
 END IF
 
 IF cmmd$ = "help" THEN
 doprompt = 1
   PRINT
   PRINT "Werewolf Game Help:
   PRINT
   PRINT "You are a villager seeking to kill all wolves in the village."
   PRINT "Wolves win condition:  not outnumbered by villagers."
   PRINT "Your win condition: kill all wolves."
   PRINT "Certain situations can trigger various events.  The rules and"
   PRINT "roles may change over time accordingly.  Its up to you to"
   PRINT "figure it all out."
   PRINT 
   PRINT "See also: COMMANDS"
   PRINT
 END IF
 
 IF cmmd$ = "wizhelp" THEN
   PRINT
   PRINT "Wizhelp"
   PRINT
   PRINT "from inside gate to wolves' den:"
   PRINT "e, e, e, n, w, e, n, n, e, e"
   PRINT "from start of misty woods to great road:"
   PRINT "w,s,s,s,e,s,w,s"
   PRINT 
   PRINT "SEE ALSO: wizrooms, wizgo, wizitems, wizroles"
   PRINT
 END IF
 
 IF cmmd$ = "wizrooms" THEN
   IF wizrooms = 1 THEN
     wizrooms = 0
     PRINT "Room numbers toggled OFF.\r\n\r\nsure"
   ELSE
     wizrooms = 1 
     PRINT "Room numbers toggled ON."
   END IF
 END IF
 
 IF left$ (cmmd$, 5) = "wizgo" THEN
 PRINT
 PRINT "This is supposed to teleport you to any room for testing purposes.\r\nNot operational at this time."
 PRINT
 END IF
 
 IF cmmd$ = "wizitems" THEN
   ' list all item room numbers in game.
   i = -1
   PRINT
   DO
     i = i + 1
     PRINT item(i).name;
     PRINT ": ";
     IF item(i).start = -1 THEN
       PRINT "not in game (-1)"
     ELSE
       IF item(i).start = 0 THEN
         PRINT "carried (0)"
       ELSE
         PRINT "room #";
         PRINT item(i).start;
         PRINT " - ";
         PRINT zone(item(i).start).title 
       END IF
     END IF
   LOOP UNTIL i = ITEMBASE -1 
 END IF
 
 IF cmmd$ = "wizroles" THEN
   PRINT
   PRINT "Roles:
   PRINT
   i = -1
   DO
     i = i + 1
     PRINT mobs(i).title;
     PRINT " - ";
     PRINT mobs(i).role
   LOOP UNTIL i = MAXMOBS - 1
   PRINT
 END IF
 
 IF cmmd$ = "commands" THEN
   doprompt = 1
   PRINT
   PRINT "Commands:"
   PRINT
   PRINT "l (or look) - look at room description"
   PRINT "ex (or exits) - see obvious room exits"
   PRINT "n,s,e,w - move north, south, east, west"
   PRINT "votes - see who is voting for whom today"
   'PRINT "rooms - show zone status"
   PRINT "lynch <player> - lynch a player"
   PRINT "update - get a game update"
   PRINT "out <player> - attempt to out player as seer.  This action
   PRINT "also ends a day phase."
   PRINT "get <item> - get an item"
   PRINT "drop <item> - drop an item"
   PRINT "autoupdate - toggle update in prompt"
   PRINT "quit - quit the game"
   PRINT "help - see this file"
   PRINT "! = repeat last command"
   i = -1
   DO
     i = i + 1
   LOOP UNTIL item(i).type = "key" OR i = ITEMBASE
   IF item(i).type = "key" AND item(i).start = 0 THEN     ' user is carrying key - reveal unlock command
     PRINT "unlock - unlock something"
   END IF
   IF room = 5002 THEN                                    ' secret help file keyword is shown in helpfile if user is here
     PRINT "gamehints - learn secrets about the game"
   END IF
   PRINT
 END IF 
 
 IF cmmd$ = "ex" OR cmmd$ = "exit" OR cmmd$ = "exits" THEN
 doprompt = 1
 PRINT "Obvious Exits: "
   IF zone(room).exits(0) <> -1 AND zone(room).lock(0) <> 2 THEN    'if exit exists and not hidden (lock = 2)
     PRINT "north - ";
     IF wizrooms = 1 THEN
       PRINT "#";
       PRINT zone(room).exits(0);
       PRINT " - ";
     END IF
     PRINT zone(zone(room).exits(0)).title
   END IF
   IF zone(room).exits(1) <> -1 AND zone(room).lock(1) <> 2 THEN
     PRINT "south - "; 
     IF wizrooms = 1 THEN
       PRINT "#";
       PRINT zone(room).exits(1);
       PRINT " - ";
     END IF
     PRINT zone(zone(room).exits(1)).title
   END IF
   IF zone(room).exits(2) <> -1 AND zone(room).lock(2) <> 2 THEN
     PRINT "east  - "; 
     IF wizrooms = 1 THEN
       PRINT "#";
       PRINT zone(room).exits(2);
       PRINT " - ";
     END IF
     PRINT zone(zone(room).exits(2)).title
   END IF
   IF zone(room).exits(3) <> -1 AND zone(room).lock(3) <> 2 THEN
     PRINT "west  - "; 
     IF wizrooms = 1 THEN
       PRINT "#";
       PRINT zone(room).exits(3);
       PRINT " - ";
     END IF
     PRINT zone(zone(room).exits(3)).title
   END IF
 PRINT obviousexits$
 END IF
 
 IF cmmd$ = "n" or cmmd$ = "north" THEN
   doprompt = 1
   IF zone(room).exits(0) = -1 THEN
     PRINT "You cannot go that way."
   ELSE
     IF zone(room).lock(0) = 1 THEN
       PRINT "It seems to be locked."
     ELSE
       room = zone(room).exits(0)
       cmmd$ = "l"
     END IF
   END IF
 END IF
 
 IF cmmd$ = "s" or cmmd$ = "south" THEN
   doprompt = 1
   IF zone(room).exits(1) = -1 THEN
     PRINT "You cannot go that way."
   ELSE
     IF zone(room).lock(1) = 1 THEN
       PRINT "It seems to be locked."
     ELSE
       room = zone(room).exits(1)
       cmmd$ = "l"
     END IF
   END IF
 END IF
 
 IF cmmd$ = "e" or cmmd$ = "east" THEN
   doprompt = 1
   IF zone(room).exits(2) = -1 THEN
     PRINT "You cannot go that way."
   ELSE
     IF zone(room).lock(2) = 1 THEN
       PRINT "It seems to be locked."
     ELSE
       room = zone(room).exits(2)
       cmmd$ = "l"
     END IF
   END IF
 END IF
 
 IF cmmd$ = "w" or cmmd$ = "west" THEN
   doprompt = 1
   IF zone(room).exits(3) = -1 THEN
     PRINT "You cannot go that way."
   ELSE
     IF zone(room).lock(3) = 1 THEN
       PRINT "It seems to be locked."
     ELSE
       room = zone(room).exits(3)
       cmmd$ = "l"
     END IF
   END IF
 END IF
 
 IF room = 1009 THEN 
   ' special proc for Gorf's Tavern
   i = -1
   DO
     i = i + 1
   LOOP UNTIL i = 50 OR inv(i) = 10001 
 
   IF inv(i) = 10001 THEN
     j = -1
     DO
       j = j + 1
     LOOP UNTIL j = ITEMBASE or item(j).keyword = "key"
     IF item(j).keyword = "key" THEN
       IF item(j).start = -1 THEN         ' one-time proc to drop key
         item(j).start = 1009
         zone(1009).items(0) = zone(1009).items(0) + 1 
         PRINT "The bright light of a proper Gorf's Wicked Ale startles the patrons."
         PRINT "You think you hear something fall to the ground."
       END IF
     END IF
   END IF
 END IF
 
 
 IF cmmd$ = "autoupdate" THEN
   doprompt = 1
   IF autoupdate = 1 THEN
     autoupdate = 0
   ELSE
     autoupdate = 1
   END IF
 END IF
 
 IF cmmd$ = "gamehints" THEN
 
   PRINT
   color 2
   PRINT "Werewolf Game Hints"
   color 7
   PRINT
   PRINT "Attempting to out a seer has a 50% chance of making a vigilante."
   PRINT "The meat has a special function."
   PRINT "It turns out that villagers wander for a reason."
   PRINT
 END IF
 
 
 IF cmmd$ = "l" OR cmmd$ = "look" THEN
 PRINT
 'PRINT "Near the Droid Army"
 color 3
 IF wizrooms = 1 THEN
   PRINT "#";
   PRINT room;
   PRINT " - ";
 END IF
 PRINT zone(room).title
 color 7
 PRINT
 'PRINT "You are on the planet Genosis.  The Clone Wars rage nearby as"
 'PRINT "battle droids attack clone troopers.  Surrounded by Jedi, you"
 'PRINT "feel quite safe here as you pensively watch the fighting."
 PRINT zone(room).descrip
 PRINT
 
   IF zone(room).items(0) <> -1 THEN
     color 6 
     FOR k = 0 to ITEMBASE
        'PRINT "room: ";
        'PRINT room;
        'PRINT " item(";
        'PRINT k;
        'PRINT ").start: ";
        'PRINT item(k).start
        IF room = item(k).start THEN
          PRINT item(k).descrip
        END IF 
     NEXT k
     color 7 
   END IF 
 
 
 mobcount = 0
 DO
   IF mobs(mobcount).room = room THEN
     IF mobs(mobcount).state = 0 THEN  ' mob is alive
       color 2
       PRINT mobs(mobcount).descrip;
       IF tagged = mobcount THEN                             ' rotten meat has tagged this wolf
         PRINT " (";
         PRINT mobs(mobcount).role;
         PRINT ")"; 
       END IF
       PRINT
       color 7
     ELSE                              ' mob is dead
       color 6
       PRINT "The corpse of ";
       PRINT mobs(mobcount).title;
       PRINT " (";
       PRINT mobs(mobcount).role;
       PRINT ") is lying here."
       color 7
     END IF
   END IF
   mobcount = mobcount + 1
 LOOP UNTIL mobcount = MAXMOBS 
 
 IF room = 4007 THEN                            'deathtrap proc
   GOTO deathtrap
 END IF
 
 
 IF kenobi = 1 THEN
   PRINT "Jedi Master Obi-Wan Kenobi is standing here."
 END IF
 IF jinn = 1 THEN
   PRINT "Jedi Master Qui-Gonn Jinn is standing here."
 END IF
 IF anakin = 1 THEN
   PRINT "Jedi Knight Anakin Skywalker is standing here."
 END IF
 END IF
 
 
 
 
 IF doprompt = 1 THEN
    'PRINT zone(room).exits(0);
    'PRINT " ";
    'PRINT zone(room).exits(1);
    'PRINT " ";
    'PRINT zone(room).exits(2);
    'PRINT " ";
    'PRINT zone(room).exits(3);
    'PRINT " ";
    IF autoupdate = 1 THEN            ' automatically put update info in prompt
      PRINT "Villagers:";
      color 2
      PRINT villagersalive;
      color 7
      PRINT " Wolves:";
      color 4
      PRINT wolvesalive;
      color 7
      PRINT " ";
    END IF
    'PRINT lastcmmd$;
    'PRINT cmmd$;
    PRINT ">" + cmmdbuild$;
    doprompt = 0
 END IF
 
 'LOOP UNTIL cmmd$ = "quit" OR kbhit$ = "9"
 LOOP UNTIL cmmd$ = "quit"
 
 GOTO skip
 
 
 CLS
 Count = 0
 DO
 IF Count MOD 20 = 0 THEN GOSUB Titles
 DO
    UserIn$ = INKEY$
 LOOP UNTIL UserIn$ <> ""
 PRINT LEN(UserIn$); TAB(10); LEFT$(UserIn$, 1); TAB(20); ASC(UserIn$)
 IF LEN(UserIn$) = 2 THEN
    UserIn$ = RIGHT$(UserIn$, 1)
    LOCATE CSRLIN - 1, 30
    PRINT UserIn$; TAB(40); ASC(UserIn$)
 END IF
 Count = Count + 1
 LOOP UNTIL UserIn$ = CHR$(27)
 END
 
Titles:
PRINT
PRINT TAB(10); "Characteristics of UserIn$"
PRINT
PRINT "Length"; TAB(10); "1st char"; TAB(20); "Asc"; TAB(30); "2nd char"; TAB(40); "Asc"
PRINT
RETURN
 
'':::::
 
sub initmobs( array() as mmm, array2() as ttt, MAXMOBS AS INTEGER, PLAYERBASE as integer, titles() as string, descrips() as string )
 
 
RANDOMIZE TIMER
DIM used(PLAYERBASE) as integer  'this will keep track of used mobs so we don't repeat
 
FOR i = 1 to PLAYERBASE 
   used(i-1) = 0
NEXT i
 
  'PRINT "Used: ";
  'for j = 1 to PLAYERBASE
     'PRINT used(j-1);
     'print ", ";
  'next j
  'PRINT
i = 0
 
'PRINT "maxmobs = ";
'print MAXMOBS
DO
  'print "i = ";
  'print i
  DO
  x% = INT(RND * PLAYERBASE)  
  LOOP WHILE used(x%) = 1  ' loop until we find a nonrepeating mob
 
  used(x%) = 1  'mark this mob as used so we don't repeat it
 
  'PRINT "Used: ";
  'for j = 1 to PLAYERBASE
     'PRINT used(j-1);
     'print ", ";
  'next j
  'PRINT
  array(i).room = 1004
  array(i).title = titles(x%) 
  array(i).descrip = descrips(x%) 
  array(i).state = 0
  array(i).role = ""
  array2(1004).mobs = array2(1004).mobs + 1 
  i = i + 1
LOOP UNTIL i = MAXMOBS
 
 
end sub
 
deathtrap:
   PRINT "You are DEAD! R.I.P."
   GOTO deathtrap2
 
endgame:
 
 
 IF wolvesalive = 0 THEN
   PRINT "Congratulations!  You have killed all the WOLVES!"
   color 2
   PRINT "The village is saved."
   color 7
 ELSE
   PRINT "There are now";
   PRINT wolvesalive;
   PRINT " wolves to";
   PRINT villagersalive;
   PRINT " villagers."
   color 4
   PRINT "The wolves rise up and eat the remaining villagers."
   color 7
deathtrap2:
   PRINT "You lose!"
  END IF
   PRINT "The wolves were: ";
   mobcount = 0
   wolfcount = 0
   DO
     IF mobs(mobcount).role = "wolf" THEN
       IF wolfcount <> 0 THEN
         PRINT ", ";
       END IF
       wolfcount = wolfcount + 1
       PRINT mobs(mobcount).title;
     END IF
   mobcount = mobcount + 1
   LOOP UNTIL mobcount = MAXMOBS
 
 PRINT
 
 PRINT "Try Again? (yes/no)
 
 DO
 
 cmmd$ = ""
 
 kbhit$ = INKEY$
 
 IF kbhit$ <> "" AND kbhit$ <> CHR$(13) THEN
  '  doprompt = 1
  IF kbhit$ = CHR$(8) THEN
     ' backspace key was pressed - delete last letter
     cmmdbuild$ = LEFT$(cmmdbuild$, LEN(cmmdbuild$)-1)
  ELSE
     ' add last letter
     cmmdbuild$ = cmmdbuild$ + kbhit$
  END IF
  '  PRINT "cmmdbuild$ = " + cmmdbuild$
  PRINT kbhit$;
 END IF
 
 IF kbhit$ = CHR$(13) THEN
    doprompt = 1
    cmmd$ = cmmdbuild$
    PRINT
   ' PRINT "return key pressed!"
   ' PRINT "cmmd$ = " + cmmd$
    cmmdbuild$ = ""
 END IF
 
 IF doprompt = 1 THEN
    PRINT ">" + cmmdbuild$;
    doprompt = 0
 END IF
 LOOP UNTIL cmmd$ = "yes" OR cmmd$ = "no"
 
 IF cmmd$ = "yes" THEN
   GOTO start
 END IF
 
 
 
skip:
 
DATA "Idiot Boxer"
DATA "Norman Einstein"
DATA "malice"
DATA "babyd"
DATA "ratpfink"
DATA "Joseph"
DATA "Village Idiot"
DATA "Foosball God"
DATA "zippy"
DATA "PocketPasser"
DATA "fletch"
DATA "guppy"
DATA "tdoss"
DATA "psychopav"
DATA "noD"
DATA "sharkbait"
DATA "polecat"
DATA "cavalier"
DATA "UCONN"
DATA "Kendall"
DATA "BGP"
DATA "gorf"
DATA "BTSW"
DATA "Usual Suspects"
DATA "Gadwallgetter"
DATA "PirateMike"
DATA "Dickies"
DATA "cocoagirl"
DATA "aardball"
DATA "ColtsFreak"
DATA "snowmonkey"
DATA "swineflu"
DATA "worm"
DATA "DARAIDERS"
DATA "mjvb"
DATA "smoo"
DATA  "wingnut"
DATA "Loan"
DATA "RWS"
DATA "Preds"
DATA "Harry"
 
DATA "Idiot Boxer stands here preparing some Boxerins."
DATA "Norman Einstein is quickly figuring out who the wolves are."
DATA "malice is upgrading packmentality.net while finding wolves here."
DATA "babydemon90 :coos: here."
DATA "ratpfink is low flying and enjoying a game here."
DATA "Joseph is hinting at a role here."
DATA "Village Idiot is with us on satellite delay."
DATA "Foosball God is looking to mess with some minds here."
DATA "zippy is here serving a timeout."
DATA "PocketPasser is getting ready to cook something good."
DATA "fletch is low flying while hunting wolves here."
DATA "guppy is trying to help out inbetween patients today."
DATA "tdoss brings us his latest plan...to catch the wolves...."
DATA "psychopav is busy working but took time out to play."
DATA "noD is going feral here."
DATA "sharkbait is looking for an update."
DATA "polecat is a scary texas clown looking to HAMMAH!"
DATA "cavalier is feuding with malice here."
DATA "UCONN is in love with Diana Taurasi."
DATA "Kendall is hoping to avoid a certain situation today."
DATA "BGP is jotting something down in his notebook here." 
DATA "gorf thinks you should check out his tavern." 
DATA "BTSW wishes he were by the sea."
DATA "Usual Suspects is quickly figuring out who the wolves are here."
DATA "Gadwallgetter is here checking in."
DATA "PirateMike is enjoying a game today."
DATA "Dickies takes time out from working on cars to enjoy a game."
DATA "cocoagirl is stopping by from the movie set to cast a vote."
DATA "aardball looks for clues here."
DATA "ColtsFreak hopes he isn't the play today." 
DATA "snowmonkey kicks back and enjoys another game."
DATA "swineflu is a sick pig."
DATA "worm ponders his vote here."
DATA "DARAIDERS argues his case that he has found a wolf here."
DATA "mjvb stops by to cast a vote."
DATA "smoo slaps his beaver tail on the ground impatiently."
DATA "wingnut is watching how people vote today." 
DATA "Loan has a big smile today because he thinks he's found a wolf."
DATA "RWS is carefully watching the voting patterns at this point."
DATA "Preds ponders over the recent deaths here."
DATA "Harry hopes to lynch a wolf before he hits the sack."
 
 
 
 
 
 
DATA 1000
DATA "A Cottage"
DATA "This is a simple village cottage.  Very cottagey." + CHR$(13) + CHR$(10) + "The door to the south is open."
DATA -1, 1001, -1, -1
DATA -1,-1,-1,-1
 
DATA 1001
DATA "Outside a Cottage"
DATA "You are outside a simple village cottage." + CHR$(13) + CHR$(10) + "The road leads south from here."
DATA 1000, 1002, -1, -1 
DATA -1,-1,-1,-1
 
DATA 1002
DATA "On a Cobblestone Road"
DATA "You are on a village road paved with fine cobblestones." + CHR$(13) + CHR$(10) + "Hovels are on either side of the road.  It leads north and south."
DATA 1001, 1003, 1011 , 1010 
DATA -1,-1,-1,-1
 
DATA 1003
DATA "On a Cobblestone Road"
DATA "You are on a village road paved with fine cobblestones." + CHR$(13) + CHR$(10) + "Hovels are on either side of the road.  The village square is to the south."
DATA 1002, 1004, -1, -1 
DATA -1,-1,-1,-1
 
DATA 1004
DATA "The Village Square"
DATA "Before you is the village square.  A well-oiled CataVillager" + CHR$(13) + CHR$(10) + "rests here awaiting use."
DATA 1003, 1005, 1006, 1007 
DATA -1,-1,-1,-1
 
DATA 1005
DATA "On a Cobblestone Road"
DATA "You are on a village road paved with fine cobblestones." + CHR$(13) + CHR$(10) + "The village square is to the north."
DATA 1004, 1012, -1, -1 
DATA -1,-1,-1,-1
 
DATA 1006
DATA "On a Cobblestone Road"
DATA "You are on a village road paved with fine cobblestones." + CHR$(13) + CHR$(10) + "The village square is to the west."
DATA -1, -1, 1013, 1004
DATA -1,-1,-1,-1
 
DATA 1007
DATA "On a Dirt Road"
DATA "This is a simple dirt road in the village." + CHR$(13) + CHR$(10) + "The village square is to the east."
DATA -1, -1, 1004, 1008
DATA -1,-1,-1,-1
 
DATA 1008
DATA "Road to Gorf's Tavern"
DATA "The simple dirt road leads west towards the famous water hole and" + CHR$(13) + CHR$(10) + "east towards the village square."
DATA -1, -1, 1007, 1009
DATA -1,-1,-1,-1
 
DATA 1009
DATA "Gorf's Tavern"
DATA "The familiar, warm and cozy atmosphere of Gorf's Tavern welcomes you." + CHR$(13) + CHR$(10) + "Booths line one wall.  Patrons are seated on stools at the main bar," + CHR$(13) + CHR$(10) + "enjoying a brew.  Hey! It looks like your favorite seat is open!" + CHR$(13) + CHR$(10) + "A waiter notices you, smiles, and heads to your usual seat to make" + CHR$(13) + CHR$(10) + "sure everything is in good order." 
DATA -1, -1, 1008, -1
DATA -1,-1,-1,-1
 
DATA 1010
DATA "A Hovel"
DATA "This looks very much like the same type of hovel that" + CHR$(13) + CHR$(10) + "your family has lived in for three generations.  You do," + CHR$(13) + CHR$(10) + "however, admire the stump the people that live here get to" + CHR$(13) + CHR$(10) + "sleep on.  It sure is a nice one!"
DATA -1, -1, 1002, -1
DATA -1,-1,-1,-1
 
DATA 1011
DATA "A Hovel"
DATA "This looks very much like the same type of hovel that" + CHR$(13) + CHR$(10) + "your family has lived in for three generations.  You do," + CHR$(13) + CHR$(10) + "however, admire the stump the people that live here get to" + CHR$(13) + CHR$(10) + "sleep on.  It sure is a nice one!"
DATA -1, -1, -1, 1002
DATA -1,-1,-1,-1
 
DATA 1012
DATA "Before an Opulent Mansion"
DATA "The cobblestone road ends here at the gates of a magnificent" + CHR$(13) + CHR$(10) + "mansion.  You lose count of all the handmaidens and concubines that" + CHR$(13) + CHR$(10) + "frolic beyond the gates.  Speaking of which, the gates are shut" + CHR$(13) + CHR$(10) + "and there is no way in."
DATA 1005, 3001, -1, -1
DATA -1,1,-1,-1
 
DATA 1013
DATA "On a Cobblestone Road"
DATA "You are on a village road paved with fine cobblestones." + CHR$(13) + CHR$(10) + "The town hall is to the south."
DATA -1, 1014, 1019, 1006
DATA -1,-1,-1,-1
 
DATA 1014
DATA "Entrance to the Town Hall"
DATA "This is the town hall, where civic leaders gather to run the village." + CHR$(13) + CHR$(10) + "Looks like its ok to snoop around."
DATA 1013, 1015, 1016, -1
DATA -1,-1,-1,-1
 
DATA 1015
DATA "Mayor's Office"
DATA "A huge oak desk sits in the middle of this room.  Important paperwork" + CHR$(13) + CHR$(10) + "having to do with improving the quality of stumps the villagers" + CHR$(13) + CHR$(10) + "sleep on sit neatly in an OUT basket."
DATA 1014, -1, -1, -1
DATA -1,-1,-1,-1
 
DATA 1016
DATA "The Courtroom"
DATA "The Courtroom features a large judge's bench flanked by a witness" + CHR$(13) + CHR$(10) + "stand and clerk's table.  Facing the bench are two simple tables." + CHR$(13) + CHR$(10) + "One table for the defendant and the other for the plaintiff." + CHR$(13) + CHR$(10) + "A jury box is to the left."
DATA -1, 1017, -1, 1014
DATA -1,-1,-1,-1
 
DATA 1017
DATA "Judge's Chambers"
DATA "Another office, this one for the judge.  A closet" + CHR$(13) + CHR$(10) + "full of black robes is to the east.  A large gavel rests" + CHR$(13) + CHR$(10) + "on the judge's desk next to his wig."
DATA 1016, -1, 1018, -1
DATA -1,-1,-1,-1
 
DATA 1018
DATA "Closet"
DATA "Lots of black robes drape from hangars here."
DATA -1, -1, -1, 1017
DATA -1,-1,-1,-1
 
DATA 1019
DATA "The Village Entrance"
DATA "The entrance to the village is here.  A large wrought-iron" + CHR$(13) + CHR$(10) + "gate has been installed to protect the denizens from the hazards" + CHR$(13) + CHR$(10) + "beyond."
DATA -1, -1, 2001, 1013
DATA -1,-1,1,-1
 
DATA 2001 
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful.  The village is to the west." 
DATA 2002, 2003, 2004, 1019 
DATA -1,-1,-1,1
 
DATA 2002 
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA 2005, 2001, 2006, -1
DATA -1,-1,-1,-1
 
DATA 2003 
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA 2001, 2007, 2008, -1
DATA -1,-1,-1,-1
 
DATA 2004 
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA 2006, 2008, 2009, 2001
DATA -1,-1,-1,-1
 
DATA 2005 
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA -1, 2002, -1, -1
DATA -1,-1,-1,-1
 
DATA 2006 
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA -1, 2004, -1, 2002
DATA -1,-1,-1,-1
 
DATA 2007 
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA 2003, -1, -1, -1
DATA -1,-1,-1,-1
 
DATA 2008 
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA 2004, 4001, -1, 2003
DATA -1,-1,-1,-1
 
DATA 2009 
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA 2010, -1, 2014, 2004
DATA -1,-1,-1,-1
 
DATA 2010
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA 2011, 2009, 2013, 2016
DATA -1,-1,-1,-1
 
DATA 2011
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA -1, 2006, 2012, 2015 
DATA -1,-1,-1,-1
 
DATA 2012
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA -1, 2013, -1, 2011
DATA -1,-1,-1,-1
 
DATA 2013
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA 2012, 2014, -1, 2010
DATA -1,-1,-1,-1
 
DATA 2014
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA 2013, -1, -1, 2009
DATA -1,-1,-1,-1
 
DATA 2015
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful." 
DATA -1, 2006, 2011, -1
DATA -1,-1,-1,-1
 
DATA 2016
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful.  You can barely make out a small trail in the woods here." 
DATA 2015, 2004, 2017, 2002
DATA -1,-1,-1,-1
 
DATA 2017
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful.  You can barely make out a small trail in the woods here." 
DATA 2018, 2009, 2013, 2006
DATA -1,-1,-1,-1
 
DATA 2018
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) +  "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful.  You can barely make out a small trail in the woods here." 
DATA 2019, 2013, 2013, 2011 
DATA -1,-1,-1,-1
 
DATA 2019
DATA "The Howling Woods"
DATA "A chilling wind whispers through the trees, whipping up dead" + CHR$(13) + CHR$(10) + "leaves before you.  Fresh wolftracks in the soft mud warn you to" + CHR$(13) + CHR$(10) + "be careful.  You can barely make out a small trail in the woods here." 
DATA 2012, 2010, 2020, 2004 
DATA -1,-1,-1,-1
 
DATA 2020
DATA "The Howling Cave"
DATA "You are in a forgotten cave deep in the woods.  The stench of" + CHR$(13) + CHR$(10) + "rotting meat is overpowering.  A small fire deeper into the cave" + CHR$(13) + CHR$(10) + "lights your way."
DATA -1, -1, 2021, 2019
DATA -1,-1,-1,-1
 
DATA 2021
DATA "The Wolves' Den"
DATA "Piles of rotten meat lie strewn everywhere.  There are huge" + CHR$(13) + CHR$(10) + "clawmarks on the walls.  The fire, however, is well-kept and" + CHR$(13) + CHR$(10) + "burns brightly"
DATA -1, -1, -1, 2020
DATA -1,-1,-1,-1
 
DATA 3001
DATA "On the Mansion Lawn"
DATA "This is the well-trimmed lawn in front of the mansion.  A handmaiden" + CHR$(13) + CHR$(10) + "is here.  She winks at you and laughs." 
DATA 1012, -1, -1, -1
DATA -1,-1,-1,-1
 
DATA 4001
DATA "A Path in the Woods"
DATA "A canopy of trees covers this path that winds thru the woods." + CHR$(13) + CHR$(10) + "The village is northwest of here.  The path leads south."
DATA 2008, -1, 4002, -1 
DATA -1,-1,-1,-1
 
DATA 4002
DATA "A Path in the Woods"
DATA "A canopy of trees covers this path that winds thru the woods." + CHR$(13) + CHR$(10) + "The village is northwest of here.  The path leads south."
DATA -1, 4003, -1, 4001
DATA -1,-1,-1,-1
 
DATA 4003
DATA "A Path in the Woods"
DATA "A canopy of trees covers this path that winds thru the woods." + CHR$(13) + CHR$(10) + "A slight breeze chills you."
DATA 4002, -1, 4004, -1
DATA -1,-1,-1,-1
 
DATA 4004
DATA "A Path in the Woods"
DATA "A canopy of trees covers this path that winds thru the woods." + CHR$(13) + CHR$(10) + "A slight breeze chills you."
DATA -1, 4005, -1, 4003
DATA -1,-1,-1,-1
 
DATA 4005
DATA "A Path in the Woods"
DATA "A canopy of trees covers this path that winds thru the woods." + CHR$(13) + CHR$(10) + "A riverbank is to the east."
DATA 4004, 4008, 4006, -1
DATA -1,-1,-1,-1
 
DATA 4006
DATA "The River of Blood"
DATA "Chunks of flesh float down the rapids of this raging stream." + CHR$(13) + CHR$(10) + "The iron-colored riverbeds are shrouded in steam.  Crows circle" + CHR$(13) + CHR$(10) + "overhead, eyeing you carefully.  Written in blood on the ground" + CHR$(13) + CHR$(10) + "is an odd phrase.  :COO:"
DATA -1, -1, 4007, 4005
DATA -1, -1, -1, -1
 
DATA 4007
DATA ":coo:"
DATA "You jump headlong into the river!  Its then you realize" + CHR$(13) + CHR$(10) + "That you can't swim!  As you slowly drown in blood, you last" + CHR$(13) + CHR$(10) + "thoughts are about wondering when they will let you into the"  + CHR$(13) + CHR$(10) + "green room." 
DATA -1, -1, -1, -1
DATA -1, -1, -1, -1
 
DATA 4008
DATA "A Path in the Woods"
DATA "A canopy of trees covers this path that winds thru the woods." + CHR$(13) + CHR$(10) + "A slight breeze chills you."
DATA 4005, 4009, -1, -1 
DATA -1,-1,-1,-1
 
DATA 4009
DATA "A Path in the Woods"
DATA "A canopy of trees covers this path that winds thru the woods." + CHR$(13) + CHR$(10) + "A slight breeze chills you."
DATA 4008, 4010, -1, -1 
DATA -1,-1,-1,-1
 
DATA 4010
DATA "A Path in the Woods"
DATA "A canopy of trees covers this path that winds thru the woods." + CHR$(13) + CHR$(10) + "A slight breeze chills you."
DATA 4009, 4011, -1, -1 
DATA -1,-1,-1,-1
 
DATA 4011
DATA "A Path in the Woods"
DATA "A canopy of trees covers this path that winds thru the woods." + CHR$(13) + CHR$(10) + "A slight breeze chills you."
DATA 4010, 4012, -1, -1 
DATA -1,-1,-1,-1
 
DATA 4012
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet.  You think you can make out a path in the woods here."  
DATA 4011, 4016, 4014, 4013
DATA -1,-1,-1,-1
 
DATA 4013
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA -1, 4015, 4012, -1 
DATA -1,-1,-1,-1
 
DATA 4014
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA -1, 4017, -1, 4012
DATA -1,-1,-1,-1
 
DATA 4015
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA 4013, 4023, 4016, 4021
DATA -1,-1,-1,-1
 
DATA 4016
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA 4012, 4019, 4017, 4015
DATA -1,-1,-1,-1
 
DATA 4017
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA 4014, 4018, -1, 4016
DATA -1,-1,-1,-1
 
DATA 4018
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA 4017, -1, 5001, 4019 
DATA -1,-1,-1,-1
 
DATA 4019
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA 4016, -1, 4018, 4020
DATA -1,-1,-1,-1
 
DATA 4020
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA 4021, -1, 4020, -1
DATA -1,-1,-1,-1
 
DATA 4021
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA -1, 4022, 4015, -1
DATA -1,-1,-1,-1
 
DATA 4022
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA 4021, -1, 4020, -1
DATA -1,-1,-1,-1
 
DATA 5001
DATA "Entrance to the Burning Village"
DATA "You have reached the outskirts of a local village.  Smoke" + CHR$(13) + CHR$(10) + "billows from burning buildings.  You see no-one around." + CHR$(13) + CHR$(10) + "The city gate lies ahead." 
DATA -1, 5003, 5002, 4018
DATA -1, 2, 1, -1
 
DATA 5002
DATA "The Burning Village"
DATA "What was once a modest village has been turned into an" + CHR$(13) + CHR$(10) + "inferno. You gag on the smoke-filled air.  As you stumble around" + CHR$(13) + CHR$(10) + "this place, you feel you've gained a better sense of understanding" + CHR$(13) + CHR$(10) + "about what it all means."
DATA -1, 5004, -1, 5001
DATA -1, 2, -1, 1
 
DATA 5003
DATA "Cutting Through the Bushes"
DATA "Deciding you cannot pass the gate, you've stumbled into the bushes" + CHR$(13) + CHR$(10) + "To try to find another way around it.  Good thing you brought a" + CHR$(13) + CHR$(10) + "machete!"
DATA 5001, -1, 5004, -1
DATA -1,-1,-1,-1
 
DATA 5004
DATA "Cutting Through the Bushes"
DATA "Deciding you cannot pass the gate, you've stumbled into the bushes" + CHR$(13) + CHR$(10) + "To try to find another way around it.  Good thing you brought a" + CHR$(13) + CHR$(10) + "machete!"
DATA 5002, -1, -1, 5003 
DATA -1,-1,-1,-1
 
DATA 4023
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA 4015, 4024, 4016, 4021
DATA -1,-1,-1,-1
 
DATA 4024
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA 4019, 4022, 4025, 4016
DATA -1,-1,-1,-1
 
DATA 4025
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA 4012, 4026, 4022, 4020
DATA -1,-1,-1,-1
 
DATA 4026
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA 4020, 4020, 4020, 4027
DATA -1,-1,-1,-1
 
DATA 4027
DATA "The Misty Woods"
DATA "A think fog rolls through these woods, making it difficult to see" + CHR$(13) + CHR$(10) + "very far.  The bark on all the trees has been shredded by something." + CHR$(13) + CHR$(10) + "It is very quiet."  
DATA 4021, 4028, 4014, 4012 
DATA -1,-1,-1,-1
 
DATA 4028
DATA "The Great Road"
DATA "You are on the road leading from the castle to the northern villages." + CHR$(13) + CHR$(10) + "Merchants, peasants, and other travellers pass by on occassion." + CHR$(13) + CHR$(10) + "To the west is the sea and to the east are the Alterac mountains."
DATA 4027, 4029, -1, -1
DATA -1,-1,-1,-1
 
DATA 4029
DATA "The Great Road"
DATA "You are on the road leading from the castle to the northern villages." + CHR$(13) + CHR$(10) + "Merchants, peasants, and other travellers pass by on occassion." + CHR$(13) + CHR$(10) + "To the west is the sea and to the east are the Alterac mountains."
DATA 4028, 4030, -1, -1
DATA -1,-1,-1,-1
 
DATA 4030
DATA "The Great Road"
DATA "You are on the road leading from the castle to the northern villages." + CHR$(13) + CHR$(10) + "Merchants, peasants, and other travellers pass by on occassion." + CHR$(13) + CHR$(10) + "To the west is the sea and to the east are the Alterac mountains."
DATA 4029, 4031, -1, -1
DATA -1,-1,-1,-1
 
DATA 4031
DATA "The Great Road"
DATA "You are on the road leading from the castle to the northern villages." + CHR$(13) + CHR$(10) + "Merchants, peasants, and other travellers pass by on occassion." + CHR$(13) + CHR$(10) + "To the west is the sea and to the east are the Alterac mountains."
DATA 4030, 4032, -1, -1
DATA -1,-1,-1,-1
 
DATA 4032
DATA "The Great Road"
DATA "You are on the road leading from the castle to the northern villages." + CHR$(13) + CHR$(10) + "Merchants, peasants, and other travellers pass by on occassion." + CHR$(13) + CHR$(10) + "To the west is the sea and to the east are the Alterac mountains."
DATA 4031, 4033, -1, -1
DATA -1,-1,-1,-1
 
DATA 4033
DATA "The Great Road"
DATA "You are on the road leading from the castle to the northern villages." + CHR$(13) + CHR$(10) + "Merchants, peasants, and other travellers pass by on occassion." + CHR$(13) + CHR$(10) + "To the west is the sea and to the east are the Alterac mountains."
DATA 4032, 6001, -1, -1
DATA -1,-1,-1,-1
 
DATA 6001 
DATA "The Great Arch"
DATA "Here stands the archway that opens to the city of Hearthglen.  Guards" + CHR$(13) + CHR$(10) + "watch the crowd that bustles through carefully.  Well, as long as they can" + CHR$(13) + CHR$(10) + "keep their eyes open!"
DATA 4033, 6002, -1, -1
DATA -1,-1,-1,-1
 
DATA 6002
DATA "Angel Street"
DATA "This street is immaculately clean.  There isn't one piece of trash anywhere." + CHR$(13) + CHR$(10) + "The castle is south."
DATA 6001, 6018, 6003, 6017
DATA -1,-1,-1,-1
 
DATA 6003
DATA "Angel Street"
DATA "This street is immaculately clean.  There isn't one piece of trash anywhere."
DATA -1, -1, 6004, 6002
DATA -1,-1,-1,-1
 
DATA 6004
DATA "Angel Street"
DATA "This street is immaculately clean.  There isn't one piece of trash anywhere."
DATA -1, 6005, -1, 6003
DATA -1,-1,-1,-1
 
DATA 6005
DATA "Scholar Way"
DATA "This is the university district of the city.  Students brush past\r\nyou, late for class again."
DATA 6004, 6006, -1, -1
DATA -1,-1,-1,-1
 
DATA 6006
DATA "Scholar Way"
DATA "This is the university district of the city.  Students brush past\r\nyou, late for class again.  The castle is west." 
DATA 6005, 6007, 6022, 6020
DATA -1,-1,-1,-1
 
DATA 6007
DATA "Scholar Way"
DATA "This is the university district of the city.  Students brush past\r\nyou, late for class again."
DATA 6006, 6008, -1, -1
DATA -1,-1,-1,-1
 
DATA 6008
DATA "Villager Street"
DATA "The business sector lies in this district of Hearthglen.  The offices\r\nof many of the largest companies that do business in the kingdom\r\nare found here.  The eastern half is more blue-collar while the western\r\nhalf is more white collar."
DATA 6007, -1, -1, 6009
DATA -1,-1,-1,-1
 
DATA 6009
DATA "Villager Street"
DATA "The business sector lies in this district of Hearthglen.  The offices\r\nof many of the largest companies that do business in the kingdom\r\nare found here.  The eastern half is more blue-collar while the western\r\nhalf is more white collar."
DATA -1, -1, 6008, 6010
DATA -1,-1,-1,-1
 
DATA 6010
DATA "Villager Street"
DATA "The business sector lies in this district of Hearthglen.  The offices\r\nof many of the largest companies that do business in the kingdom\r\nare found here.  The eastern half is more blue-collar while the western\r\nhalf is more white collar.  The castle lies north."
DATA 6021, -1, 6009, 6011
DATA -1,-1,-1,-1
 
DATA 6011
DATA "Villager Street"
DATA "The business sector lies in this district of Hearthglen.  The offices\r\nof many of the largest companies that do business in the kingdom\r\nare found here.  The eastern half is more blue-collar while the western\r\nhalf is more white collar."
DATA -1, -1, 6010, 6012
DATA -1,-1,-1,-1
 
DATA 6012
DATA "Villager Street"
DATA "The business sector lies in this district of Hearthglen.  The offices\r\nof many of the largest companies that do business in the kingdom\r\nare found here.  The eastern half is more blue-collar while the western\r\nhalf is more white collar."
DATA 6013, -1, 6011, -1
DATA -1,-1,-1,-1
 
DATA 6013
DATA "Mime Avenue"
DATA "This is the entertainment district of the city.  Pubs line the street" + CHR$(13) + CHR$(10) + "on both sides.  This section of town is closest to the beach as well."
DATA 6014, 6012, -1, -1
DATA -1,-1,-1,-1
 
DATA 6014
DATA "Mime Avenue"
DATA "This is the entertainment district of the city.  Pubs line the street" + CHR$(13) + CHR$(10) + "on both sides.  This section of town is closest to the beach as well."
DATA 6015, 6013, 6019, 6023
DATA -1,-1,-1,-1
 
DATA 6015
DATA "Mime Avenue"
DATA "This is the entertainment district of the city.  Pubs line the street" + CHR$(13) + CHR$(10) + "on both sides.  This section of town is closest to the beach as well."
DATA 6016, 6014, -1, -1
DATA -1,-1,-1,-1
 
DATA 6016
DATA "Angel Street"
DATA "This street is immaculately clean.  There isn't one piece of trash anywhere."
DATA -1, 6015, 6017, -1
DATA -1,-1,-1,-1
 
DATA 6017
DATA "Angel Street"
DATA "This street is immaculately clean.  There isn't one piece of trash anywhere."
DATA -1, -1, 6002, 6016
DATA -1,-1,-1,-1
 
DATA 6018
DATA "Innocent Quarter"
DATA "The banners of the kingdom wave on flagpoles on either" + CHR$(13) + CHR$(10) + "side of the road here.  The banners are scarlett with gold\r\ntrimming.  Emblazoned on the banner is a script L.\r\nThe castle looms before you.  It is easily the largest\r\nstructure in the city and has several spires."
DATA 6002, 7001, -1, -1
DATA -1,-1,-1,-1
 
DATA 6019
DATA "Hanged Quarter"
DATA "The banners of the kingdom wave on flagpoles on either" + CHR$(13) + CHR$(10) + "side of the road here.  The banners are scarlett with gold\r\ntrimming.  Emblazoned on the banner is a script L.\r\nThe castle looms before you.  It is easily the largest\r\nstructure in the city and has several spires."
DATA -1, -1, 7001, 6014
DATA -1,-1,-1,-1
 
DATA 6020
DATA "Suspect Quarter"
DATA "The banners of the kingdom wave on flagpoles on either" + CHR$(13) + CHR$(10) + "side of the road here.  The banners are scarlett with gold\r\ntrimming.  Emblazoned on the banner is a script L.\r\nThe castle looms before you.  It is easily the largest\r\nstructure in the city and has several spires."
DATA -1, -1, 6006, 7001 
DATA -1,-1,-1,-1
 
DATA 6021
DATA "Guilty Quarter"
DATA "The banners of the kingdom wave on flagpoles on either" + CHR$(13) + CHR$(10) + "side of the road here.  The banners are scarlett with gold\r\ntrimming.  Emblazoned on the banner is a script L.\r\nThe castle looms before you.  It is easily the largest\r\nstructure in the city and has several spires."
DATA 7001, 6010, -1, -1
DATA -1,-1,-1,-1
 
DATA 6022
DATA "The Eastern Arch"
DATA "Here stands the archway that opens to the city of Hearthglen.  Guards" + CHR$(13) + CHR$(10) + "watch the crowd that bustles through carefully.  Well, as long as they can" + CHR$(13) + CHR$(10) + "keep their eyes open!"
DATA -1, -1, 6031, 6006
DATA -1,-1,-1,-1
 
DATA 6023
DATA "The Western Arch"
DATA "Here stands the archway that opens to the city of Hearthglen.  Guards" + CHR$(13) + CHR$(10) + "watch the crowd that bustles through carefully.  Well, as long as they can" + CHR$(13) + CHR$(10) + "keep their eyes open!"
DATA -1, -1, 6014, 6024
DATA -1,-1,-1,-1
 
DATA 6024
DATA "The Hinting Strand"
DATA "These are the western beaches of the kingdom.  The sea lies" + CHR$(13) + CHR$(10) + "beyond and stretches out to the horizon."
DATA 6025, 6028, 6023, -1
DATA -1,-1,-1,-1
 
DATA 6025
DATA "The Hinting Strand"
DATA "These are the western beaches of the kingdom.  The sea lies" + CHR$(13) + CHR$(10) + "beyond and stretches out to the horizon."
DATA 6026, 6024, -1, -1
DATA -1,-1,-1,-1
 
DATA 6026
DATA "The Hinting Strand"
DATA "These are the western beaches of the kingdom.  The sea lies" + CHR$(13) + CHR$(10) + "beyond and stretches out to the horizon."
DATA 6027, 6025, -1, -1
DATA -1,-1,-1,-1
 
DATA 6027
DATA "The Hinting Strand"
DATA "These are the western beaches of the kingdom.  The sea lies" + CHR$(13) + CHR$(10) + "beyond and stretches out to the horizon."
DATA -1, 6026, -1, -1
DATA -1,-1,-1,-1
 
DATA 6028
DATA "The Hinting Strand"
DATA "These are the western beaches of the kingdom.  The sea lies" + CHR$(13) + CHR$(10) + "beyond and stretches out to the horizon."
DATA 6024, -1, 6029, -1
DATA -1,-1,-1,-1
 
DATA 6029
DATA "The Hinting Strand"
DATA "These are the western beaches of the kingdom.  The sea lies" + CHR$(13) + CHR$(10) + "beyond and stretches out to the horizon."
DATA -1, 6030, -1, 6028
DATA -1,-1,-1,-1
 
DATA 6030
DATA "The Hinting Strand"
DATA "These are the western beaches of the kingdom.  The sea lies" + CHR$(13) + CHR$(10) + "beyond and stretches out to the horizon."
DATA 6029, -1, -1, -1
DATA -1,-1,-1,-1
 
DATA 6031
DATA "The Kingdom Road"
DATA "Flint, gravel, and other various stones pave this highway\r\nleading from the city of Hearthglen east towards the Alterac\r\nmountains.  Inscribed milestones greet you at fixed intervals."
DATA -1, -1, 6032, 6022
DATA -1,-1,-1,-1
 
DATA 6032
DATA "The Kingdom Road"
DATA "Flint, gravel, and other various stones pave this highway\r\nleading from the city of Hearthglen east towards the Alterac\r\nmountains.  Inscribed milestones greet you at fixed intervals."
DATA -1, -1, 6033, 6031
DATA -1,-1,-1,-1
 
DATA 6033
DATA "The Kingdom Road"
DATA "Flint, gravel, and other various stones pave this highway\r\nleading from the city of Hearthglen east towards the Alterac\r\nmountains.  Inscribed milestones greet you at fixed intervals."
DATA -1, -1, 6034, 6032
DATA -1,-1,-1,-1
 
DATA 6034
DATA "The Kingdom Road"
DATA "Flint, gravel, and other various stones pave this highway\r\nleading from the city of Hearthglen east towards the Alterac\r\nmountains.  Inscribed milestones greet you at fixed intervals."
DATA 6035, -1, -1, 6033
DATA -1,-1,-1,-1
 
DATA 6035
DATA "The Alterac Mountain Pass"
DATA "The kingdom road snakes thru a pass here in the Alterac mountains.\r\nIt grows colder and a few flakes of snow brush against your face.\r\nTowering above you is a huge mountain range.  You can sometimes\r\nget a glimpse of the fortress built near the top."
DATA -1, 6034, 6036, -1
DATA -1,-1,-1,-1
 
DATA 6036
DATA "The Alterac Mountain Pass"
DATA "The kingdom road snakes thru a pass here in the Alterac mountains.\r\nIt grows colder and a few flakes of snow brush against your face.\r\nTowering above you is a huge mountain range.  You can sometimes\r\nget a glimpse of the fortress built near the top."
DATA -1, 6037, -1, 6035
DATA -1,-1,-1,-1
 
DATA 6037
DATA "The Alterac Mountain Pass"
DATA "The kingdom road snakes thru a pass here in the Alterac mountains.\r\nIt grows colder and a few flakes of snow brush against your face.\r\nTowering above you is a huge mountain range.  You can sometimes\r\nget a glimpse of the fortress built near the top."
DATA 6036, 6038, -1, -1
DATA -1,-1,-1,-1
 
DATA 6038
DATA "The Alterac Mountain Pass"
DATA "The kingdom road snakes thru a pass here in the Alterac mountains.\r\nIt grows colder and a few flakes of snow brush against your face.\r\nTowering above you is a huge mountain range.  You can sometimes\r\nget a glimpse of the fortress built near the top."
DATA 6037, -1, 6039, -1
DATA -1,-1,-1,-1
 
DATA 6039
DATA "The Alterac Mountain Pass"
DATA "The kingdom road snakes thru a pass here in the Alterac mountains.\r\nIt grows colder and a few flakes of snow brush against your face.\r\nTowering above you is a huge mountain range.  You can sometimes\r\nget a glimpse of the fortress built near the top."
DATA 6040, -1, -1, 6038
DATA -1,-1,-1,-1
 
DATA 6040
DATA "The Kingdom Road"
DATA "Flint, gravel, and other various stones pave this highway\r\nleading from the city of Hearthglen east towards the Alterac\r\nmountains.  Inscribed milestones greet you at fixed intervals."
DATA -1, 6039, 6041, -1
DATA -1,-1,-1,-1
 
DATA 6041
DATA "The Kingdom Road"
DATA "Flint, gravel, and other various stones pave this highway\r\nleading from the city of Hearthglen east towards the Alterac\r\nmountains.  Inscribed milestones greet you at fixed intervals."
DATA -1, -1, 6042, 6040
DATA -1,-1,-1,-1
 
DATA 6042
DATA "The Kingdom Road"
DATA "Flint, gravel, and other various stones pave this highway\r\nleading from the city of Hearthglen east towards the Alterac\r\nmountains.  Inscribed milestones greet you at fixed intervals.\r\nIncreasing amounts of sand begin to blot out the road."
DATA -1, -1, 8001, 6041
DATA -1,-1,-1,-1
 
DATA 7001
DATA "Entrance to the Castle"
DATA "This is where the leadership of the city make their home.  Guards\r\nin gleaming suits of platemail watch your every move, their swords ready.\r\nThe main hall leads further into the castle."
DATA 6018, 7002, 6020, 6019
DATA -1,-1,-1,-1
 
DATA 7002
DATA "The Main Hall"
DATA "You walk down the main hall of the castle.  Immense portraits of\r\nlate kings and queens adorn the walls.  Guards in gleaming suits of\r\nplatemail stand at attention nearby, watching for trouble."
DATA 7001, 7003, -1, -1
DATA -1,-1,-1,-1
 
DATA 7003
DATA "The Waiting Room"
DATA "Exquisite furniture from far away lands adorn this room.  Here, nobles\r\nand robed seerers who visit the royal family can rest while they wait\r\nfor an audience." 
DATA 7002, -1, -1, -1
DATA -1,-1,-1,-1
 
DATA 8001
DATA "The Stormwind Desert"
DATA "Oceans of sand dumped by a recent sandstorm have blotted\r\nout most of the road here.  If you go Any further, it is\r\nunlikely you will see any road at all."
DATA 8002, 8006, 8004, 6042
DATA -1,-1,-1,-1
 
DATA 8002
DATA "The Stormwind Desert"
DATA "Nothing but miles and miles of sand in all directions."
DATA 8005, 8001, 8003, 8001
DATA -1, -1, -1, -1
 
DATA 8003
DATA "The Stormwind Desert"
DATA "Nothing but miles and miles of sand in all directions."
DATA 8009, 8004, 8007, 8002
DATA -1, -1, -1, -1
 
DATA 8004
DATA "The Stormwind Desert"
DATA "Nothing but miles and miles of sand in all directions."
DATA 8003, 8005, 8008, 8001
DATA -1, -1, -1, -1
 
DATA 8005
DATA "The Stormwind Desert"
DATA "Nothing but miles and miles of sand in all directions."
DATA 8004, 8008, 8009, 8006
DATA -1, -1, -1, -1
 
DATA 8006
DATA "The Stormwind Desert"
DATA "Nothing but miles and miles of sand in all directions."
DATA 8001, 8006, 8005, 8004
DATA -1, -1, -1, -1
 
DATA 8007
DATA "The Stormwind Desert"
DATA "Nothing but miles and miles of sand in all directions."
DATA 8002, 8008, 8005, 8003
DATA -1, -1, -1, -1
 
DATA 8008
DATA "The Stormwind Desert"
DATA "Nothing but miles and miles of sand in all directions."
DATA 8007, 8009, 8002, 8004
DATA -1, -1, -1, -1
 
DATA 8009
DATA "The Stormwind Desert"
DATA "Nothing but miles and miles of sand in all directions."
DATA 8008, 8003, 8009, 8005
DATA -1, -1, -1, -1
 
 
 
 
 
 
 
DATA 10001
DATA "potion"
DATA "Gorf's Wicked Ale (glowing)"
DATA "ale"
DATA "A bottle of Gorf's Wicked Ale glows with a bright golden light here."
DATA 1018
 
DATA 10002
DATA "key"
DATA "the key to the village"
DATA "key"
DATA "The key to the village rests at your feet."
DATA -1 
 
DATA 10003
DATA "meat"
DATA "rotten meat"
DATA "meat"
DATA "A pile of rotten meat that used to be a villager lies here."
DATA 2021
 
DATA 10004
DATA "seerer"
DATA "Robes of the Seerer"
DATA "seerer"
DATA "A pile of cloth made for a red alert lies here."
DATA 6030
News:

Messages - frobozz

Programs / Re: Semi-complete game: werewolf (mafia) for solo play

Programs / Semi-complete game: werewolf (mafia) for solo play
