Cmdline.wcx replacement by IceRage Technologies.

This is going to be the cheapest doc you ever read. (hehe)

disclaimer. we dont take any responsibility for anything that happens.
            if this formats your hard drive. blame somebody else :)
            basically. we want ourselves risk free. <g>

what the hell does this stupid thing do anyway?
 simple. it makes it so whenever a user enters certain @ codes like..
   @LOGOFF@ it will make them @logoff@ and so on :) VERY USEFUL!! hehe

   **PUT THIS IN YOUR WC5 MAIN DIRECTORY!**

if you find any bugs let us know please..

support@icerage.bbs.net
(201)-209-1930  << IceRage Technologies Technical Support Line
(201)-729-3674  << IceRage BBS

thnx for downloading this. i hope you make good use of it..
here is the source code to the part we added (most of it, that is..)

Function NoAt(OldStr as String) as String
   Dim Where as Integer
   Dim Temp as String
   Dim TempI as Integer
   Dim Tmp as String
   Dim Code as String
   Dim Count as Integer
      Tmp = OldStr
    Count = 0
   Do
   Inc(Count)
   Select Case Count
    Case 1
      Code = "@LOGOFF@"
    Case 2
      Code = "@USER.NAME@"
    Case 3
      Code = "@CLS@"
    Case 4
      Code = "@DATE@"
    Case 5
      Code = "@DAYOFWEEK@"
    Case 6
      Code = "@TIME@"
    Case 7
      Code = "@USER.ADDRESS1@"
    Case 8
      Code = "@USER.ADDRESS2@"
    Case 9
      Code = "@USER.ALIAS"
    Case 10
      Code = "@USER.BIRTHDATE@"
    Case 11
      Code = "@USER.CHATAVAILABLE@"
    Case 12
      Code = "@USER.CITY@"
    Case 13
      Code = "@USER.COMMENT1@"
    Case 14
      Code = "@USER.COMMENT2@"
    Case 15
      Code = "@USER.COMMENT3@"
    Case 16
      Code = "@USER.COMMENT4@"
    Case 17
      Code = "@USER.COMMENT5@"
    Case 18
      Code = "@USER.COMMENT6@"
    Case 19
      Code = "@USER.COMPANY@"
    Case 20
      Code = "@USER.COMPUTERTYPE@"
    Case 21
      Code = "@USER.CONFERENCE@"
    Case 22
      Code = "@USER.COUNTRY@"
    Case 23
      Code = "@USER.DATANUMBER@"
    Case 24
      Code = "@USER.DOWNLOADS@"
    Case 25
      Code = "@USER.EDITOR@"
    Case 26
      Code = "@USER.EXPIREDATE@"
    Case 27
      Code = "@USER.FAXNUMBER@"
    Case 28
      Code = "@USER.FILEDISPLAY@"
    Case 29
      Code = "@USER.FIRSTCALL@"
    Case 30
      Code = "@USER.FROM@"
    Case 31
      Code = "@USER.ID@"
    Case 32
      Code = "@USER.LASTCALL@"
    Case 33         
      Code = "@USER.PHONENUMBER@"
    Case 34
      Code = "@USER.PROTOCOL"
    Case 35
      Code = "@USER.SECURITY@"
    Case 36
      Code = "@USER.SEX@"
    Case 37
      Code = "@USER.STATE@"
    Case 38
      Code = "@USER.SUBSCRIPTIONBALANCE@"
    Case 39
      Code = "@USER.TIMELEFTTODAY@"
    Case 40
      Code = "@USER.TIMESON@"
    Case 41
      Code = "@USER.TITLE"
    Case 42
      Code = "@USER.ZIP"
    Case 43
      Code = "@USER.UPLOADS"
    Case 44
      Code = "@BELL@"
    Case 45
      Code = "@CONFOP@"
    Case 46
      Code = "@NODE@"
    Case 47
      Code = "@PREVON@"
    Case 48
      Code = "@OTHERUSER.NAME@"
    Case 49
      Code = "@SYSTEM.SYSOPNAME@"
    Case 50
      Code = "@SYSTEM.BBSNAME@"
    Case 51
      Code = "@TOTALCALLS@"
    Case 52
      Code = "@TOTALUSERS@"
    Case 53
      Code = "@TOTALFILES@"
    Case 54
      Code = "@TOTALMESSAGES@"
    Case 55
      Code = "@ENTER@"
    Case 56
      Code = "@STOP@"
    Case 57
      Code = "@PAUSE@"
    Case 58
      Code = "@NOPAUSE@"
    End Select

    Do 
     Where = Instr(Tmp, Code)
     If Where <> 0 Then
      Temp = Left(Tmp, Where - 1)
      Temp = Temp + Lcase(Code) + Mid(Tmp, Where + Len(Code), Len(tmp))
      Tmp = Temp
     End if
   
    Loop Until Where = 0
    Loop Until Count >= 58


    NoAt = Tmp
End function

and we just basically made it replace every getinput statement.
**ATTENTION PROGRAMMERS! PLEASE GIVE US SOME CREDIT IF YOU USE THIS
THATS ALL WE ASK!
..and please use it. im sick of games where smart @$$ users put @LOGOFF@ in
and screws up my other users, thank you.

