AnGelBot-Portal²

Code:

Sub Init()

Script "'Whois on Join' by Imrahil"

Hook "Join"

Hook "raw"

End Sub

Sub Join(Chan, Nick, RegUser, Line)

   SendLine "WHOIS " & Nick, 1

END Sub

Sub RAW(Line)

   If Param(Line,2) = "330" THEN

      Nick = Param(line,4)

      AuthNick = Param(line,5)

                                     Hier kannst du tun was du nicht lassen kannst :)

                                     Es empfiehlt sich den nick temporär in ner Ini

                                     oder so zu speichern damit da kein unglück

                                     geschieht :)

   End If

End Sub

Hab das hier im Forum gefunden; könnte mir das einer so umschreiben, dass der den whois und auth erst dann prüft, wenn ich zB $checkauth mach?!

mfg N3bu

Code:

Sub Init 

  Hook "Chan_Msg" 

  Hook "raw"

End Sub 

Dim aChan

Sub Chan_MSg(Chan, Nick, RegUser, Line)

  If (LCase(Param(Line, 1)) = CommandPrefix & "checkauth") Then

  If Param(Line, 2) = "" Then Exit Sub

  aChan = Chan

  SendLine "WHOIS " & Param(Line, 2), 1

End If

End Sub

Sub RAW(Line)

   If Param(Line,2) = "330" THEN

      Nick = Param(line,4)

      AuthNick = Param(line,5)

      SendLine "PrivMsg " & aChan & " :"&Nick&" is authed as "&AuthNick,3

      aChan = ""

   End If

End Sub

Kopf -> Tisch

sry, ich hab verplant zu schreiben, was ich damit vor hab.

Ich will damit ein Admin-Check realisieren sprich wenn ich "$a" mach checkt er ob ich mit meinem auth in einer ini drin steh, wenn dass der Fall is kann ich halt weiter verarbeiten mit zB "$a op *" etc ..

Hoffe das ich jetz alles richtig beschrieben hab, schon so spät Wink

N3bu

N3buk4d

Copykill

N3buk4d