OpenEuphoria

Re: mud

• Posted by Derek Parnell <ddparnell at bigpond.com> Oct 28, 2003
• 401 views

----- Original Message ----- 
From: "Michelle Rogers" <michellerogers at bellsouth.net>
To: <EUforum at topica.com>
Subject: Re: Fastest Way to...


> 
> 
> Hello, can someone tell me what is wrong with this?  I'm using the hackserv
> as a basis for a mud.  I've tried to change it to accomodate telnet, gmud,
> zmud, etc..(basically any client) where it only supported telnet in the
> beginning. I KNOW this is too much code..but i've just been adding stuff in
> trying to make it work and nothing seems to work. I KNOW that I'm
> overlooking something really easy..but I can't figure it out.  Can someone
> tell me  if you know what is wrong with this?

Might have helped to say what you were trying to achieve. I'm guessing you are
trying to strip out CR and LF characters.
 
[snip]

> if compare({10},players[charnum][6][(length(players[charnum][6]))]) or
> compare({13},players[charnum][6][length(players[charnum][6])]) then
> 
> if compare({10},players[charnum][6][length(players[charnum][6])]) then
> 
> players[charnum][6]=players[charnum][6][1..(length(players[charnum][6])-1)]
> end if
> 
> if compare({13},players[charnum][6][length(players[charnum][6])]) then
> 
> players[charnum][6]=players[charnum][6][1..(length(players[charnum][6])-1)]
> end if
> 
> if compare({10},players[charnum][6][length(players[charnum][6])]) then
> 
> players[charnum][6]=players[charnum][6][1..(length(players[charnum][6])-1)]
> end if
> junk=players[charnum][6]
> 

It might help to make the above a bit more readable...maybe something like ...


   sequence lText

   lText = players[charnum][6]
   if compare({10}, lText[length(lText)]) or 
      compare({13}, lText[length(lText)]) then
      if compare({10}, lText[length(lText)]) then
          lText = lText[1..length(lText)-1]
      end if
      if compare({13}, lText[length(lText)]) then
          lText = lText[1..length(lText)-1]
      end if
      if compare({10}, lText[length(lText)]) then
          lText = lText[1..length(lText)-1]
      end if

      junk = lText
   . . .

However, this won't work for a couple of reasons. Firstly, the compare()
function returns a ZERO of the operands are equal. Your code seems to expect it
to return a non-ZERO. Secondly, you are testing to see if the last element of the
text is the sequence '{10}' rather than the character '10'.

Here is a reworking of it ...

   sequence lText
   integer lEnd

   -- Grab text to test.
   lText = players[charnum][6]
   -- Get the potential length of the text.
   lEnd = length(lText)
   -- Keep checking unless we have no text.
   while lEnd > 0 do
     -- Is the current end char at LF or CR?
     if find(lText[lEnd], {10,13}) then
       -- Yes, so back up one character.
       lEnd -= 1
     else
       -- No, so stop checking.
       exit
     end if
   end while
   -- Slice off the part of the text we want.
   junk = lText[1..lEnd]
   . . .

Hope this helps.

-- 
Derek