AnGelBot-Portal²

ich hab da mal was zusammen getüddelt nur leider funktionierts nich ... kann mir da wer helfen?

Code:

Sub Init

  Script "Bot-Commands per Trigger"

  Hook "Chan_msg"

  SpreadFlagMessage 0, "+tn", "14***Bot-Commands per Trigger***"

End Sub

Sub Chan_msg(Chan, Nick, RegUser, Line)

Select Case LCase(Param(Line, 1))

Case "!join"

If Param(Line, 2) = "*" Then

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

ExecuteCommand 0, ".join " & Param(Line, 2)

End If

End If

Case "!part"

If IsOn(Param(Line, 2), Chan) Then

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

ExecuteCommand 0, ".part " & Param(Line, 2)

End If

End If

Case "!rejoin"

If IsOn(Param(Line, 2), Chan) Then

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

ExecuteCommand 0, ".cycle " & Param(Line, 2)

End If

End If

End Select

End Sub

das Prob gab es schon ma...
das wurde gelöst durch ein mIRC-Script, das das join & part an die Partyline sendet (wenn sie denn offen ist)

http://www.angelbot-portal.de/showthread.php?tid=80

jo das hab ich .. wollts nur gerne als script fürn bot haben .. da mein mirc script ordner langsam unübersichtlich voll wird Smile

Code:

Sub Init()

  Script "botjoin 1.0 by gangasta"

  Hook "Chan_Msg"

End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)

Select Case LCase(Param(Line, 1))

   Case "!join"

   If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") And Left(Param(Line, 2), 1) = "#"  Then

       ExecuteCommand 0, ".join " & Param(Line, 2)

   Else

        SendLine "PRIVMSG " & Chan & " :Nö...mach ich nicht", 3

   End If

  Case "!part"

    If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") And Left(Param(Line, 2), 1) = "#" Then

      ExecuteCommand 0, ".part " & Param(Line, 2)

    Else

        SendLine "PRIVMSG " & Chan & " :Nö...mach ich nicht", 3

    End If

End Select

End Sub

Da muss er Bot aber in dem Chan sein wo du !join bzw. !part eingibst!!!!

thx ... geht einwandfrei

samymoep

Iwan-

samymoep

gangasta

samymoep