If casestring = "tlk" Then
       Bubble(Val(parse(1))).Text = parse(2)
       Bubble(Val(parse(1))).Created = GetTickCount()
       If frmMirage.Check2.Value = 1 Then Call PlaySound("chat.mp3", 12)
       If frmMirage.FullLog.Value = 1 Then Call AddText(parse(2), WHITE)

        Exit Sub
    End If

     If casestring = "d_i" Then
        frmMirage.GlobalServer.Tag = parse(1)
        frmMirage.GlobalServer.Enabled = True
        Exit Sub
    End If