Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > alt.mud.programming > #11

I diidn't concrete nothing... you may be talking why I did it in lue, for coloring on the chat in wow, it was messing up so I needed a one line iff to th esend to chat

Show all headers | View raw

 Function Iif(Expression, TrueValue, FalseValue)
  On Error Resume Next
  If CBool(-Abs(Expression)) Then
   If IsObject(TrueValue) Then
    If Not (TrueValue Is Nothing) Then
     Set Iif = TrueValue
    End If
   ElseIf Not IsMissing(TrueValue) Then
    Iif = TrueValue
   End If
  ElseIf (Abs(Expression) = 0) Then
   If IsObject(FalseValue) Then
    If Not (FalseValue Is Nothing) Then
     Set Iif = FalseValue
    End If
   ElseIf Not IsMissing(FalseValue) Then
    Iif = FalseValue
   End If
  End If
  dim errn, errs, errd
  if err.number <> 0 then
   errn = err.number
   errs = err.source
   errd = err.description
   err.Clear
  else
   on error goto 0
   exit sub
  end if
  On Error Goto 0
  err.Raise errn, errs, errd
 End Function 

Back to alt.mud.programming | Previous | Next | Find similar

Thread

I diidn't concrete nothing... you may be talking why I did it in lue, for coloring on the chat in wow, it was messing up so I needed a one line iff to th esend to chat "Nicholas Randall Forystek" <nforystek@neotext.org> - 2016-06-23 19:09 -0500

csiph-web