AnGelBot-Portal²

AnGelBot-Portal² > Scripting > Anfragen > suche script
Normale Version: suche script
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2

asriel

08.05.2003, 16:59 Uhr
Ich suche da noch ein bischen größeres script und zwar ein wo man !op und dann den name eingibt un der bot gibt dem user op das sucvhe ich mit +o , +v , kick bann deop und devoice kann mir das ma einer machen ??

Iwan-

09.05.2003, 06:47 Uhr
ich bin mir sicher, das ich so eins zu Hause habe, was auch auf meinem Bot läuft
wenn ich dran denke, dann poste ich es heute abend Wink

PS: ich meine, das hätte ich von hier runtergeladen, aber irgendwie find ich es net mehr :(

Iwan-

09.05.2003, 16:52 Uhr
so, da isses Wink
Code:
Sub Init()
  Script "Channel commands 1.0a by Sp33d"
  Hook "Chan_Msg"
End Sub

Sub Chan_msg(Chan, Nick, RegUser, Line)
  If MatchFlags(GetUserChanFlags(RegUser, Chan), "+o") Then
    Select Case LCase(Param(Line, 1))
      Case "!hop"
        If Param(Line, 2) = "" Then
          SendLine "MODE " & Chan & " +h " & Nick, 1
        Else
          SendLine "MODE " & Chan & " +h " & Param(Line, 2), 1
        End If
      Case "!dehop"
        If Param(Line, 2) = "" Then
          SendLine "MODE " & Chan & " -h " & Nick, 1
        Else
          If LCase(Param(Line, 2)) <> LCase(MyNick) Then
            SendLine "MODE " & Chan & " -h " & Param(Line, 2), 1
          End If
        End If
      Case "!op"
        If Param(Line, 2) = "" Then
          SendLine "MODE " & Chan & " +o " & Nick, 1
        Else
          SendLine "MODE " & Chan & " +o " & Param(Line, 2), 1
        End If
      Case "!deop"
        If Param(Line, 2) = "" Then
          SendLine "MODE " & Chan & " -o " & Nick, 1
        Else
          If LCase(Param(Line, 2)) <> LCase(MyNick) Then
            SendLine "MODE " & Chan & " -o " & Param(Line, 2), 1
          End If
        End If
      Case "!voice"
        If Param(Line, 2) = "" Then
          SendLine "MODE " & Chan & " +v " & Nick, 1
        Else
          SendLine "MODE " & Chan & " +v " & Param(Line, 2), 1
        End If
      Case "!devoice"
        If Param(Line, 2) = "" Then
          SendLine "MODE " & Chan & " -v " & Nick, 1
        Else
          If LCase(Param(Line, 2)) <> LCase(MyNick) Then
            SendLine "MODE " & Chan & " -v " & Param(Line, 2), 1
          End If
        End If
    End Select
  End If
End Sub
viel Spass :D

asriel

09.05.2003, 17:31 Uhr
sorry aber da muss was falsch sein ich kann es nciht laden

LOSer09

09.05.2003, 21:35 Uhr
poste mal fehlermeldung ... erahnen können wir die noch net ^^

asriel

10.05.2003, 03:03 Uhr
Error : 1032 (ungültiges zeichen)
Position: Line 2, coumn 0
Context:" Script "Kaffe by gangsta1.0" "

genau das steht da

LOSer09

10.05.2003, 05:19 Uhr
du das ist ein ganz anderes script ....
poste mal das script kaffee dann sag ich dir auch den fehler

hades

10.05.2003, 08:55 Uhr
also bei mir funktionierts einwandfrei... :D
nochmal thx

asriel

10.05.2003, 11:52 Uhr
ups hehe falsches script also nun aber das richtige:


Fehlermeldung : Error : 1032 (ungöltiges zeichen)
Position: Line 2 ; colum 0
Context. " "Script "Channel commands 1.0a by Sp33d""

nubber

10.05.2003, 13:38 Uhr
Danke für das Script Iwan =)
Seiten: 1 2
AnGelBot-Portal² > Scripting > Anfragen > suche script
Referenz-URLs