AnGelBot-Portal²

Ich hab mal so nen Bot gesehen der wenn man !frau NICK eingibt hat er geschrieben: Namedesbots holt eine Frau für NICK aus der Küche!

Jetzt würd ich gerne wissen ob es so was schon fertig gibt

schau ma sowas?

Code:

Sub Init() 

  Script "!mann !frau script by sWiE" 

  SpreadFlagMessage 0, "+m", "*** !mann !frau script installed" 

  Hook "Chan_Msg" 

End Sub 

Sub Chan_Msg(Chan, Nick, RegUser, Line)

  If LCase(Param(Line, 1)) =  "!frau" Then 

      SendLine "PRIVMSG " & Chan & " :" & MyNick & " holt eine Frau für " & Param(Line,2) aus der Küche.", 3

  End If

  If LCase(Param(Line, 1)) =  "!mann" Then 

      SendLine "PRIVMSG " & Chan & " :" & MyNick & " holt einen Mann für " & Param(Line,2) aus der Garage.", 3

  End If

End Sub

Viel besser ist das hier Smile

Code:

Option Explicit

'In welchen Channeln soll das Script aktiv sein?

'(mit Leerzeichen trennen; "*" für alle)

Const sChannels = "*"

Sub Init()

  Script "Frau/Mann v1.0a by Sp33d"

  Hook "Chan_Msg"

End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)

  If sChannels <> "*" Then

    If InStr(1, " " & LCase(sChannels) & " ", " " & LCase(Chan) & " ") = 0 Then Exit Sub

  End If

  If Param(Line, 2) <> vbNullString Then Nick = Param(Line, 2)

  Select Case LCase(Param(Line, 1))

    Case "!frau"

      SendLine "PRIVMSG " & Chan & " :" & Chr(1) & "ACTION holt eine Frau für " & Nick & " aus der Küche." & Chr(1), 3

    Case "!mann"

      SendLine "PRIVMSG " & Chan & " :" & Chr(1) & "ACTION holt einen Mann für " & Nick & " aus dem Wohnzimmer." & Chr(1), 3

  End Select

End Sub

Btw. dein schnelles Posting in Ehren, aber da sind mehrere Syntaxfehler drin Razz

ja hm k sehs grad :( nächstes ma lass ich mir mehr zeit Razz

Thx, leude, aber ich hab mal bisschen rumexperimentiert und mri so ein funsciprt angeschaut und da ich nicht coden kann, hab ich das mal ausprobiert und, wie ein wunder .....................es funktioniert! mfg Wing

BlackWing

sWiE

Sp33d

sWiE

BlackWing