AnGelBot-Portal²

Hi!

Ich möchte den bot für eine sehr begrenzte gruppen von Usern nutzen. Diese User haben alle unterschiedliche Rechte im Channel von half op bis founder...

folgende schnipsel habe ich zusammen geklaubt und würde gerne wissen ob das soweit stimmt und funktioniert:

** Nur "!" und "@" im Channel HoD-intern **
Case "!beissen"
if (Chan = "#hod-intern" and isop(nick, chan)) then
SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION beisst " & NNick &
end if

** Nur Channel #hod-intern **
Case "!beissen"
if (Chan = "#hod-intern") then
SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION beisst " & NNick &
end if

** Nur ! und @ im Channel **
Case "!beissen"
if (isop(nick, chan)) then
SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION beisst " & NNick &
end if

** Nur ich kann das (Bot owner) **
Case "!beissen"
If MatchFlags(GetUserChanFlags(RegUser, Chan), "+m") Then
SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION beisst " & NNick & " ganz kräftig in den Hintern !!! " , 1
end if

Leider reagiert mein Bot auf "/msg botname !befehl" Das soll er aber nicht machen. Wo kann ich das einstellen?
Gibt eine Tabelle wo man die Bedeutungen der Flags nachlesen kann?

1. Sub Init fehlt
2. Sub Chan_Msg fehlt
3. Erster Code-Absatz ist falsch

Richtig:

Code:

'** Nur "!" und "@" im Channel HoD-intern **

Case "!beissen"

  If (LCase(Chan) = "#hod-intern") AND (IsOp(Nick, Chan)) Then

    SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION beisst " & Nick, 3

  End If

4. Zweiter Code-Absatz ist falsch

Richtig:

Code:

'** Nur Channel #hod-intern **

Case "!beissen"

  If (LCase(Chan) = "#hod-intern") Then

    SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION beisst " & Nick, 3

  End If

5. Dritter Code-Absatz ist falsch

Richtig:

Code:

'** Nur ! und @ im Channel **

Case "!beissen"

  If (IsOp(Nick, Chan)) Then

    SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION beisst " & Nick, 3

  End If

6. Vierter Code-Absatz ist falsch

Richtig:

Code:

'** Nur ich kann das (Bot owner) **

Case "!beissen"

  If (MatchFlags(GetUserChanFlags(RegUser, Chan), "+n")) Then

    SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION beisst " & Nick & " ganz kräftig in den Hintern!!!", 3

  End If

Zitat:Leider reagiert mein Bot auf "/msg botname !befehl" Das soll er aber nicht machen. Wo kann ich das einstellen?

Einfach die Subs tauschen

8.

Zitat:Gibt eine Tabelle wo man die Bedeutungen der Flags nachlesen kann?

Ja, ".help whois" auf der Partyline eingeben

PS: Wäre schön wenn du mal dein ganzes Script posten könntest

Das hat mir alles schon weitergeholfen. Ich muß mich langsam an die Syntax gewöhnen... Hab damit noch nix gemacht und bin eher proggernoob.

ach ja und das "/msg botname !befehl" war einfacher zu lösen ... in dem Script war ein hook der auf privat message reagiert. Zeile gelöscht --> Problem gelöst Smile

Danke!

Bytespoiler

Firefox

Bytespoiler