kann mir einer sagen wie ich es mache, das ich wenn ich
!+ao user
im chan eingebe der user beim bot geadded wird mit den +a flag damit er auch ao hat
hab es gesucht, aber ned gefunden, wäre nett wen mir jemand helfen könnte.
oder gibt es schon so nen umfang reiches script, das wenn ich zum beispielt !part schreibe er aus dem channel partet oder !join #channel und so...
wäre dankbar für hilfe
mhh ma schaun sitz hier im informatik unterricht, mal sehen ob das klappt was ich nu zusammenwurschtel ^^
Code:
Sub Init()
Script "chanblafu"
Hook "Chan_msg"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
Select Case Param(Line, 1)
Case "!join"
ExecuteCommand, 0 ".join " & Param(Line,2), 1
Case "!part"
ExecuteCommand, 0 ".part" & Param(Line,2), 1
Case "!adduser"
ExecuteCommand, 0 ".adduser " & Param(Line,2), 1
Case "!+ao"
ExecuteCommand, 0 ".chattr " & Param(Line,2) & " +ao", 1
End Select
End Sub
probiers aus, wahrscheinlich ist es voller fehler ^^ aber in etwa die richtung hast vielleicht nu gecheckt
geht leider ned :(
bitte kann mir einer das script schreiben, so das es funzt oder halt echt wenn jemand schon ne coolte trigger sammlung hat sie ma posten !
danke
bist im irc? me ist AMiR @ #angelbot-portal ... oder poste hier die fehlermeldung
da sollte sowieso noch sowas wie
Code:
If MatchFlags(GetUserChanFlags(RegUser, Chan), "+s") Then
dazu ^^
so habs heut morgen im halbschlaf vercockt
so sollte es klappen:
Code:
Sub Init()
Script "chanblafu"
Hook "Chan_msg"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
If MatchFlags(GetUserChanFlags(RegUser, Chan), "+s") Then
Select Case Param(Line, 1)
Case "!join"
ExecuteCommand 0, ".join " & Param(Line,2)
Case "!part"
ExecuteCommand 0, ".part" & Param(Line,2)
Case "!adduser"
ExecuteCommand 0, ".adduser " & Param(Line,2)
Case "!+ao"
ExecuteCommand 0, ".chattr " & Param(Line,2) & " +ao"
End Select
End Sub
Error : 1012 ('If' erwartet)
Position: Line 18, Column
Context : "End Sub"
hmm kein plan ich weis auch ned,, habs so übernommen wie dus gesagt hast !
hab jetzt doch nen script gefunden, und das kann ich soweit umschreiben das es mir passt :> also denne amir nochma thx 4 help
Zitat:Sub Init()
Script "Bot-Shortcuts by sWiE"
Hook "Chan_Msg"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
Select Case LCase(Param(Line, 1))
Case "!ao"
If MatchFlags(GetUserChanFlags(RegUser, Chan), "+m") Then
ExecuteCommand 0, ".adduser " & Param(Line, 2)
ExecuteCommand 0, ".chattr " & Param(Line, 2) & " +ao " & Chan
End If
Case "!av"
If MatchFlags(GetUserChanFlags(RegUser, Chan), "+m") Then
ExecuteCommand 0, ".adduser " & Param(Line, 2)
ExecuteCommand 0, ".chattr " & Param(Line, 2) & " +v " & Chan
End If
End Select
End Sub
au weier, ich verchecks schon wieder -_- najo nu gehts