AnGelBot-Portal²

Code:

'Script with Macromedia Dreamweaver MX 

'© by sts 

'########################################################### 

Sub Init 

  Script "7,1Command-Script v1.1 by sts" 

  SpreadFlagMessage 0, "+m", "0***7,1 Command-Script v1.0 by sts loaded" 

  Hook "Chan_Msg" 

End Sub 

Sub Chan_Msg(Chan, Nick, RegUser, Line) 

'AddGlobalOwner (Benötigte Rechte: +s) 

  If Lcase(Param(Line,1)) = "$globalowner" Then 

    If Param(Line,2) = "" Or Not IsOn(Param(Line,2), Chan) Then Exit Sub 

    If Not MatchFlags(GetUserFlags(RegUser), "+s") Then Exit Sub 

    executecommand 0, ".+user " & Param(Line,2) & " " & Mask(HostMask(Chan, Param(Line,2)), 2) 

    executecommand 0, ".chattr " & Param(Line,2) & " +n "  

    Sendline " PrivMsg " & Chan & " : ¬ Du hast gerade " & Param(Line,2) & " zum Globalen-Owner gemacht. Sein Host: " & Mask(HostMask(Chan, Param(Line,2)), 2) & ".",2 

  End If 

'AddGlobalMaster (Benötigte Rechte: +s) 

  If Lcase(Param(Line,1)) = "$globalmaster" Then 

    If Param(Line,2) = "" Or Not IsOn(Param(Line,2), Chan) Then Exit Sub 

    If Not MatchFlags(GetUserFlags(RegUser), "+s") Then Exit Sub 

    executecommand 0, ".+user " & Param(Line,2) & " " & Mask(HostMask(Chan, Param(Line,2)), 2) 

    executecommand 0, ".chattr " & Param(Line,2) & " +m "  

    Sendline " PrivMsg " & Chan & " : ¬ Du hast gerade " & Param(Line,2) & " zum Globalen-Master gemacht. Sein Host: " & Mask(HostMask(Chan, Param(Line,2)), 2) & ".",2 

  End If 

'AddOwner (Benötigte Rechte: +s) 

  If Lcase(Param(Line,1)) = "$addowner" Then 

    If Param(Line,2) = "" Or Not IsOn(Param(Line,2), Chan) Then Exit Sub 

    If Not MatchFlags(GetUserFlags(RegUser), "+s") Then Exit Sub 

    executecommand 0, ".+user " & Param(Line,2) & " " & Mask(HostMask(Chan, Param(Line,2)), 2) 

    executecommand 0, ".chattr " & Param(Line,2) & " +famno " & Chan 

    Sendline " PrivMsg " & Chan & " : ¬ Du hast gerade " & Param(Line,2) & " zum Channel-Owner gemacht. Sein Host: " & Mask(HostMask(Chan, Param(Line,2)), 2) & ".",2 

  End If 

'AddMaster (Benötigte Rechte: +n) 

  If Lcase(Param(Line,1)) = "$addmaster" Then 

    If Param(Line,2) = "" Or Not IsOn(Param(Line,2), Chan) Then Exit Sub 

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

    executecommand 0, ".+user " & Param(Line,2) & " " & Mask(HostMask(Chan, Param(Line,2)), 2) 

    executecommand 0, ".chattr " & Param(Line,2) & " +famo " & Chan 

    Sendline " PrivMsg " & Chan & " : ¬ Du hast gerade " & Param(Line,2) & " zum Channel-Master gemacht. Sein Host: " & Mask(HostMask(Chan, Param(Line,2)), 2) & ".",2 

  End If 

'AddOP (Benötigte Rechte: +n oder +m) 

  If Lcase(Param(Line,1)) = "$addop" Then 

    If Param(Line,2) = "" Or Not IsOn(Param(Line,2), Chan) Then Exit Sub 

    If Not MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Or Not MatchFlags(GetUserChanFlags(RegUser, Chan), "+m") Then Exit Sub 

    executecommand 0, ".+user " & Param(Line,2) & " " & Mask(HostMask(Chan, Param(Line,2)), 2) 

    executecommand 0, ".chattr " & Param(Line,2) & " +ao " & Chan 

    Sendline " PrivMsg " & Chan & " : ¬ Du hast gerade " & Param(Line,2) & " AutoOp-Status gegeben. Sein Host: " & Mask(HostMask(Chan, Param(Line,2)), 2) & ".",2  

  End If 

'AddVoice (Benötigte Rechte: +m oder +n) 

  If Lcase(Param(Line,1)) = "$addvoice" Then 

    If Param(Line,2) = "" Or Not IsOn(Param(Line,2), Chan) Then Exit Sub 

    If Not MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Or Not MatchFlags(GetUserChanFlags(RegUser, Chan), "+m") Then Exit Sub 

    executecommand 0, ".+user " & Param(Line,2) & " " & Mask(HostMask(Chan, Param(Line,2)), 2) 

    executecommand 0, ".chattr " & Param(Line,2) & " +av " & Chan 

    Sendline " PrivMsg " & Chan & " : ¬ Du hast gerade " & Param(Line,2) & " AutoVoice-Status gegeben. Sein Host: " & Mask(HostMask(Chan, Param(Line,2)), 2) & ".",2  

  End If 

'DelUser (Benötigte Rechte: +n) 

  If Lcase(Param(Line,1)) = "$deluser" Then 

    If Param(Line,2) = "" Or Not MatchFlags(GetUserFlags(RegUser), "+n") Then Exit Sub 

    executecommand 0, ".chattr " & Param(Line,2) & " -famnov " & Chan 

  Sendline " PrivMsg " & Chan & " : ¬ Du hast gerade " & Param(Line,2) & " alle Flags removed.",2  

  End If  

'RemUser (Benötigte Rechte: +s) 

  If Lcase(Param(Line,1)) = "$remuser" Then 

    If Param(Line,2) = "" Or Not MatchFlags(GetUserFlags(RegUser), "+s") Then Exit Sub 

    executecommand 0, ".-user " & Param(Line,2), "Reply" 

  Sendline " PrivMsg " & Chan & " : ¬ Du hast gerade " & Param(Line,2) & " erfolgreich aus der Userlist gelöscht.",2  

  End If 

End Sub

wenn man den befehl $remuser <nick> benutzt tritt ein fehler auf der pl auf.

Code:

-22:53:59- (Unimatrix) *** Scripting error in 'adduser.asc':

-22:53:59- (Unimatrix)  Error : 13 (Typen unverträglich: 'Reply')

-22:53:59- (Unimatrix)  Position: Line 1, Column 0

-22:53:59- (Unimatrix)  Excerpt : 'Script with Macromedia Dreamweaver MX

-22:53:59- (Unimatrix)  Command : Reply "*** Sorry, I couldn't find this user."

-22:53:59- (Unimatrix) *** End of error message

nene, den sts musste mal tadeln Wink

deine letzte executecommandzeile(executecommand 0, ".-user " & Param(Line,2), "Reply") ruft eine sub namens Reply auf, da die nicht vorhanden ist kommt ein fehler, aber entweder versteh ich den sinn nicht oder sts hat mal wieder gedacht c&p und passt schon :D
wenn du die exe auf

Code:

executecommand 0, ".-user " & Param(Line,2)

änderst, sollte es klappen Wink

ok danke stargate :D

Sachma Schiller bist nur so dumm oda tuste nur so? Ich hab dir schon 3mal gesagt: FALSCHES FORUM!!! Wir haben ein Script Bug Forum -.-

kannst es ja verschieben... Mad

Bin kein Mod ausserdem kannst du doch gleich so freundlich und schlau sein es direkt ins richtige Forum zu posten..........

alles klar Chef, wird gemacht Rolling Eyes

Stargate, solltest dir mal den orginal Beitrag dazu anschaun...

http://www.angelbot-portal.de/showthread...t=#pid6462

Vielleicht fällt dir was auf, es gibt zwei versionen von dem Script die ich gepostet habe, einmal mit der Reply Funtkion und einmal ohne, bei der ohne, wurde mein excutecommand das Reply auch weggenommen so wie sie Sub. Das die Sub Reply da oben fehlt, liegt net am mir....!

mfg sts

sry sts, aber einer muss ja schuld sein :D

jeder außer ICH das is doch klar! ;>

Schiller

stargate

Schiller

Strucky

Schiller

Strucky

Schiller

sts

stargate

sts