AnGelBot-Portal²

Hallo zusammen

Ich hätte da eine Frage an euch, und bitte euch um Hilfe !

Was ich suche ist ein Support Script das diese Dinge kann.

Wen einer in den Channel kommt das er gesagt bekommt z.b " Warte bis du dran bist ein Supporter kümmert sich gleich um dich "
Dann wen einer da ist das er .next schreibt und er Voice bekommt.
Und wen man mit ihm fertig ist dan .devoice nick schreibt.
Und dan sollte es noch eins können. Das keiner bei uns im Chan drin bleiben kann der nichts schreibt oder kein OB hat. So das er nach einer zeit vom Bot gekickt wird.

Ich hoffe ihr versteht was ich meine und könnt mir helfen.

Möchte mich schon mal bei allen bedanken.

Mfg

Sascha

Foren suche benutzen, danke!

Christian schrieb:Foren suche benutzen, danke!

Ich habe gesucht jedoch nichts gefunden..
Und da ich denke das du dich gut aus kennst würde ich dich bitten mir einen Link zu Posten, wo so ein script zu finden ist das diese Sachen kann.
Danke dir

Suche_Tonspur schrieb:So sollte soweit funktionieren, pls mal gründlich auf Bugs testen, sowie, falls vorhanden, Verbesserungsvorschläge bringen.

hF

Code:

'|-------------------------------------------------------------------|'
'| Support-Script 1.1 © by sts                                       |'
'|                                                                   |'
'| Website : www.AnGelBot-Portal.de                                  |'
'|-------------------------------------------------------------------|'
'| PartyLine Setup             [ ]                                   |'
'| Anlegung einer INI-Datei    [x]                                   |'
'| Channeleinstellungen        [x]                                   |'
'|-------------------------------------------------------------------|'
'|  Instruction                                                      |'
'|-Commands:                                                         |'
'| -.next <for the next user>                                        |'
'| -.next <users> <for the 'x' users                                 |'
'| -.done <nick> devoice nick and kick user auto. (10 minutes)       |'
'| -.done all devoice all support-users and kick auto. (10 Minutes)  |'
'|-------------------------------------------------------------------|'

Const INI = "support.ini"
Const Channel = "#AnGel-Bot.org"

Sub Init()
  Script "Support-Script 1.1 © by sts"
  SpreadFlagMessage 0, "+m", "3 Support-Script 1.1 © by sts"  
  Hook "Chan_Msg"
  Hook "Join"
  Hook "Part"
  Hook "Quit"
  Hook "Nick"
End Sub

Sub Join(Chan, Nick, RegUser, Flags)
  If LCase(Channel) <> LCase(Chan) Then Exit Sub
  
  WriteINIString "Global", "wUsers", ReadINIString("Global", "wUsers", "", INI) & Nick & "*", INI
End Sub

Sub Part(Chan, Nick, RegUser, Flags)
  Dim wUsers
  
  If LCase(Channel) <> LCase(Chan) Then Exit Sub
  
  wUsers = ReadINIString("Global", "wUsers", "", INI)
  If InStr(1, wUsers, Nick) > 0 Then
    nUsers = Replace(wUsers, Nick & "*", vBNullstring)
    WriteINIString "Global", "wUsers", nUsers, INI
  End If
End Sub

Sub Quit(Chan, Nick, RegUser, Flags, Message)
  Dim wUsers, nUsers
  
  If LCase(Channel) <> LCase(Chan) Then Exit Sub

  wUsers = ReadINIString("Global", "wUsers", "", INI)
  If InStr(1, wUsers, Nick) > 0 Then
    nUser = Replace(wUsers, Nick & "*", vBNullstring)
    WriteINIString "Global", "wUsers", nUsers, INI
  End If
End Sub

Sub Nick(Chan, OldNick, NewNick, RegUser, Flags, Count)
  Dim wUsers, nUsers
  
  If LCase(Channel) <> LCase(Chan) Then Exit Sub
  
  wUsers = ReadINIString("Global", "wUsers", "", INI)
  If InStr(1, wUsers, OldNick) > 0 Then
    nUsers = Replace(wUsers, OldNick, NewNick)
    WriteINIString "Global", "wUsers", nUsers, INI
  End If
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
  If LCase(Channel) <> LCase(Chan) Then Exit Sub
  
  Select Case LCase(Param(Line,1))
  
    Case ".next"
      SpreadFlagMessage 0, "+m", wUsers
      If Param(Line,2) = "" Then
        wUsers = ReadINIString("Global", "wUsers", "", INI)
        aUser = ParamX(wUsers, "*",1)
        nUsers = Replace(wUsers, aUser & "*", "")
        Sendline "Mode " & Chan & " +v " & aUser,3
        Sendline "Notice " & aUser & " : " & aUser & " please state your question! Your Helper is Op -- " & Chan,3
        WriteINIString "Global", "wUsers", nUsers, INI
        WriteINIString "Global", "aUsers", ReadINIString("Global", "aUsers", "", INI) & aUser & "*", INI
      ElseIf IsNumeric(Param(Line,2)) Then
        For i = 1 to Param(Line,2)
          aUser = ParamX(wUsers, "*",i)
          Sendline "Mode " & Chan & " +v " & aUser,3
          nUsers = Replace(wUsers, aUser & "*", vBNUllString)
          WriteINIString "Global", "wUsers", nUsers, INI
          WriteINIString "Global", "aUsers", ReadINIString("Global", "aUsers", "", INI) & aUser & "*", INI
          Sendline "Notice " & aUser & " : " & Nick & " please state your question! Your Helper is Op -- " & Chan,3
        Next
      Else
        Sendline "Notice " & Nick & " : Wrong syntax: .next <Number>",3
      End If

    Case ".done"
      Dim aUsers, aUser, Count, all, i, j, k
        
      If LCase(Param(Line,2)) = "all" Then
        aUsers = ReadINIString("Global", "aUsers", "", INI)
        all = Split(aUsers, "*")
        For j = LBound(all) To UBound(all)
          Count = Count + 1
        Next

        For k = 1 To Count
          aUser = ParamX(aUsers, "*", k)

          Sendline "Mode " & Chan & " -v " & aUser,3
          Sendline "Notice " & aUser & " :Support end... please part the channel",3
          WriteINIString "Global", "aUsers", Replace(aUsers, aUser & "*", vBNullString), INI
          TimedCommand "KickUser """ & aUser & """, """ & Chan & """", 600
        Next
          
        WriteINIString "Global", "aUsers", vBNullString, INI
      Else
        aUsers = ReadINIString("Global", "aUsers", "", INI)

        If IsOn(Param(Line,2), Chan) And IsVoice(Param(Line,2), Chan) AND InStr(1, aUsers, Param(Line,2)) > 0 Then
          Sendline "Mode " & Chan & " -v " & Param(Line,2),3
          Sendline "Notice " & Param(Line,2) & " :Support end... please part the channel",3
          WriteINIString "Global", "aUsers", Replace(aUsers, Param(Line,2) & "*", vBNullString), INI
          TimedCommand "KickUser """ & Param(Line,2) & """, """ & Chan & """", 600
        End If
      End If
  End Select
End Sub

Sub KickUser(Nick, Chan)
  If IsOn(Nick, Chan) Then
    SendLine "Kick " & Chan & " " & Nick & " : Support end... please part the channel",3
  End If
End Sub

sts

Erst mal vielen Danke das du es mir hier noch mal geschrieben hast.
Doch irgend wie geht das im quakenet nicht so richtig.
Bei den Befehlen wie .done devoict er die User nicht.
Und auch die nachricht die kommen soll wen die in den channel kommen, kommen nicht.
Was kann es sein ?
Würdest du mir das bitte noch mal schreiben.
Ich habe bei Const Channel = "#AnGel-Bot.org" nur meinen channel eingetragen. mehr habe ich da nicht dran gemacht.

danke

1.) Hab ich das Script nicht geschrieben.
2.) Schreibe ich es auch nicht neu.
3.) evtl. gibts ja noch ne version im Forum
4.) haste es auch richtig geladen etc. ?

Hi
Ja habe ich . Ich habe alles richtig gemacht und über .+script support geladen.
Es steht ja auch da das es geladen ist.
Nur es geht halt nicht so wie es soll.

Leider giebt es hier auch kein anderes was diese Sachen kann.
Das du keine lust hast um es neu zu schreiben kann ich zum teill verstehen.
Doch ich denke das ich nicht alleine so ein Script brauche.
Danke möchte ich dir aber doch noch mal für deine Antworten hier.

Mfg
xxSxx

Ich muss dich leider enttäuschen . . .

Zitat:(12:16:29) —› join: (Spiky-Bot2k) (e_Spiky01@eggdrop.my-ct.de)
(12:16:34) (@SI|Spiky) .next
(12:16:35) —› mode: (AnGelBots) sets mode (+v Spiky-Bot2k)
(12:16:50) (@SI|Spiky) .done Spiky-Bot2k
(12:16:50) —› mode: (AnGelBots) sets mode (-v Spiky-Bot2k)
(12:26:50) —› kick: (Spiky-Bot2k) was kicked by (AnGelBots) (Support end... please part the channel)

Bei mir funktionierts!