AnGelBot-Portal² - Wer kann mir helfen nen Fehler zu finden`?^^

Code:

Sub Init()

Script "Voiceme Script by Strucky"

Hook "Chan_Msg"

End Sub

Sub Chan_msg(Chan, Nick, Line)

Case "!voice"

If Param(Line, 2) = "" Then

SendLine "MODE " & Chan & " +v " & Nick, 1

Else

SendLine "MODE " & Chan & " +v " & Param(Line, 2), 1

End If

End Sub

Na wer findet ihn? :o)

Danke für die hilfe im voraus :D

hi Strucky,
versuchs mal so ...

Code:

Sub Init() 

  Script "Voiceme Script by Strucky" 

  Hook "Chan_Msg" 

End Sub 

Sub Chan_msg(Chan, Nick, Line) 

  Select Case LCase(Param(Line, 1))

    Case "!voice" 

      If Param(Line, 2) = "" Then 

        SendLine "MODE " & Chan & " +v " & Nick, 1 

      Else 

        SendLine "MODE " & Chan & " +v " & Param(Line, 2), 1 

      End If 

  End Select

End Sub

have fun
cu Looop

danke
aber es kommt ein error:

[09:58] (_Boetchen_) *** Scripting error in 'voice.asc':
[09:58] (_Boetchen_) Error : 450 (Falsche Anzahl an Argumenten oder ungültige Eigenschaftszuweisung: 'Chan_msg')
[09:58] (_Boetchen_) Position: Line 1, Column 0
[09:58] (_Boetchen_) Excerpt : Sub Init()
[09:58] (_Boetchen_) Command : Chan_msg "#snt-clan", "SNT_StRuCkY", "SNT_StRuCkY", "!voice"
[09:58] (_Boetchen_) *** End of error message

Hi!

Ersetze mal die Zeile

Code:

Sub Chan_msg(Chan, Nick, Line)

durch folgende:

Code:

Sub Chan_Msg(Chan, Nick, RegUser, Line)

Der Hook ChanMsg hat mehr Parameter Wink

Wenn du die Fehlermeldung gleich am Anfang mit gepostet hättest, hätte man dir schneller helfen können ;D

MfG Silentium

Super es geht danke