Jeg er ikke sikker på hvordan man laver den mute function..
men når du skal hente den kommando "/mute" vil jeg nok bruge left og split.
og i heletaget ville jeg bruge Cases til at fange kommandoer med, på den måde for du alle kommandoer med (de textbeskeder der starter med "/", og du kan kaste en standart besked vis kommandoen ikke virke.)
txtvar = "/mute 30"
'først tjekker vi om beskeden er en kommando ved at se om første karakter er "/"
If left("txtvar", 1) = "/" then
'nu deler vi det hele op i et array ved mellemrum, (går ud fra at en kommando ikke indholder mellemrum
Atxtvar = Split("txtvar", " ")
'her fjerner vi / fra selve kommandoen
Command = Replace(Atxtvar(0),"/")
Select Case Command
Case "mute"
If uBound(Atxtvar) = 0 Or uBound(Atxtvar) > 1 Then
ErTxt = "Der blev ikke benyttet den rigtige syntax til kommandoen: /mute [tal]"
ElseIf IsNumeric(Atxtvar(1)) = false
ErTxt = "Der blev ikke benyttet den rigtige syntax til kommandoen: /mute [tal]"
Else
time = CInt(Atxtvar(1))
'her kommer så din mute funktion
End If
'her kan så være flere tilfælde (case), eks. kick
Case "kick"
'kick funktion
Case Else
ErTxt "Den kaldte kommando eksistere ikke"
End Select
End IF
ErTxt, er en besked som brugern der skrev kommandoen havde vist.
Dette er bare lige hurtigt skrevet, og jeg har ikke testet det, men jeg skulle men det skulle virke, iværtfald er det i den retning..
Lidt mere indblik i din chat, ville også gøre chancen for at muliggøre at komme med et eks. på mute funktionen.
Hvis man er sulten nok er hundemad også mad
/Koldy
[Redigeret d. 20/05-03 14:26:27 af Thomas Michaelsen]