AnGelBot-Portal²

Hiho zusammen Smile

Ich suche ein script das den channel mode +r (authed only) setzt wenn 5 user unnerhalb von 2 sekunden joinen..

Wär nett wenn einer sowas machen könnte oder so ein script irgendwo finded =)

Thx schonmal :>

ich würde es auch sehr begrüßen ... wär echt cool
ein dickes dankeschön schonmal im vorraus =)

ähm kommt schon leute ... draußen ist es kalt und die frauen sind weihnachtsshoppen da gibt es doch n bischen zeit um sowas zu basteln =)
thx a lot

Hm hab mal was gebastelt^^

Code:

Const ini_ajf = "ini_ajf.ini"

Dim JoinCount

Sub Init

  Script "JoinFlood V1.0 by Heppi"

  Hook "Join"

  Hook "Chan_Msg"

  SpreadFlagMessage 0, "+m", "14*** AntiJoinFlood v1.0 loaded..."

End Sub

Sub Join(Chan, Nick, RegUser, Flags)

  If ReadINIString(Chan, "Status", "", ini_ajf) = "on" Then

      JoinCount = JoinCount + 1

      TimedCommand "JoinCount = 0", 2

    If JoinCount > 3 Then

      SpreadFlagMessage 0, "+m", "4*** Channel " & Chan & " is being attacked"

      SendLine "MODE " & Chan & " +mi ", 1

      TimedCommand "SendLine ""MODE " & Chan & " -mi"", 3", 60

      TimedCommand "JoinCount = 0", 2

    End If

  End If

End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)

  If LCase(Param(Line, 1)) = "!floodprot" Then

   If MatchFlags(GetUserFlags(RegUser), "+m") Then

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

        WriteINIString Chan, "Status", "off", ini_ajf

        Sendline "NOTICE " & Nick & " : AntiJoinFlood: " & ReadINIString( Chan, "Status", "0", ini_ajf) & "", 3

    ElseIf Param(Line, 2) = "on" Then

        WriteINIString Chan, "Status", "on", ini_ajf

        Sendline "NOTICE " & Nick & " : AntiJoinFlood: " & ReadINIString( Chan, "Status", "0", ini_ajf) & "", 3

    End If

   End If

  End If

End Sub

jau fääD

mal sehen ob es auch funzt =)

Heppi

siLLe

siLLe

Heppi

siLLe