AnGelBot-Portal²

AnGelBot-Portal² > Scripting > Anfragen > Prob mit Antwort Script
Normale Version: Prob mit Antwort Script
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Abrax0x

16.10.2003, 19:44 Uhr
hi leute

ich habe da ein problem mit einem antwort script...wenn jemannd sagt hi sagt der bot hi +nick is ja ok aber wenn ich nun sage zu nem kumpel hi alex z.b. sagt der bot den hallo +mein nick...

kann ich das abstellen so das er nur hallo +nick sagt wenn echt nur hi dasteht..??

hier das script...

Code:
Dim FloodCounter, LastRequest, FloodTriggered
Sub init()
  Hook "Chan_Msg"
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
  If FloodTriggered Then Exit Sub
  If LastRequest = Nick Then Exit Sub
  LastRequest = Nick
  FloodCounter = FloodCounter + 1
    If FloodCounter > 2 Then
      FloodTriggered = True
      TimedCommand "FloodTriggered = False", 5
      TimedCommand "CheckFlood", 5
    End if
  TimedCommand "ResetLastRequest", 5

  If LCase(Param(Line,1)) = "hi" Then
    Sendline "Privmsg " & Chan & " :Hallo " & Nick & "",2
  End If
  If LCase(Param(Line,1)) = "thx" Then
    Sendline "Privmsg " & Chan & " :Kein Problem " & Nick & " ", 2
  End If
  If LCase(Param(Line,1)) = "..." Then
    Sendline "Privmsg " & Chan & " :was wo wer??",3
  End If
  If LCase(Param(Line,1)) = "!op" Then
    Sendline "Privmsg " & Chan & " :naaa...du nicht :o)))",2
  End If
  If LCase(Param(Line,1)) = "n8" Then
    Sendline "Privmsg " & Chan & " :Gute Nacht " & Nick & " ", 2
  End If
End Sub

Sub ResetLastRequest
  LastRequest = ""
End Sub

Sub CheckFlood
  If FloodCounter > 0 Then
    FloodCounter = FloodCounter - 1
    TimedCommand "CheckFlood", 5
  End If
End Sub

stargate

16.10.2003, 20:31 Uhr
Code:
If Param(line, 2) = "" Then
.....
End If

das musste nur oben einfügen, dann reagiert es nur noch wenn hinter hi kein zeichen oder wort kommt

Abrax0x

16.10.2003, 20:46 Uhr
mhhh...geht nich...kann aber auch sein das ichs falsch eingefügt hab... Laughing

wo oben ? ganz oben ? also an erster stelle ? line 1 ? Confused:

mfg Abrax0x

stargate

16.10.2003, 22:43 Uhr
Code:
Dim FloodCounter, LastRequest, FloodTriggered
Sub init()
  Hook "Chan_Msg"
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
  If FloodTriggered Then Exit Sub
  If LastRequest = Nick Then Exit Sub
  LastRequest = Nick
  FloodCounter = FloodCounter + 1
    If FloodCounter > 2 Then
      FloodTriggered = True
      TimedCommand "FloodTriggered = False", 5
      TimedCommand "CheckFlood", 5
    End if
  TimedCommand "ResetLastRequest", 5

  If LCase(Param(Line,1)) = "hi" Then
   If Param(Line, 2) = "" Then
    Sendline "Privmsg " & Chan & " :Hallo " & Nick & "",2
   End If
  End If
  If LCase(Param(Line,1)) = "thx" Then
    Sendline "Privmsg " & Chan & " :Kein Problem " & Nick & " ", 2
  End If
  If LCase(Param(Line,1)) = "..." Then
    Sendline "Privmsg " & Chan & " :was wo wer??",3
  End If
  If LCase(Param(Line,1)) = "!op" Then
    Sendline "Privmsg " & Chan & " :naaa...du nicht :o)))",2
  End If
  If LCase(Param(Line,1)) = "n8" Then
    Sendline "Privmsg " & Chan & " :Gute Nacht " & Nick & " ", 2
  End If
End Sub

Sub ResetLastRequest
  LastRequest = ""
End Sub

Sub CheckFlood
  If FloodCounter > 0 Then
    FloodCounter = FloodCounter - 1
    TimedCommand "CheckFlood", 5
  End If
End Sub



so meinte ich es Rolling Eyes

Abrax0x

17.10.2003, 01:39 Uhr
hoi

also ich das mal so übernommen wie du des da gemacht hast...

geht aber nicht er reagiert nun auf nix mehr nicht auf hi gn8 usw. Confused

wieso ??

mfg Abrax0x

stargate

17.10.2003, 05:40 Uhr
ka, was passiert denn beim laden des scriptes ???

kannst aber folgendes mal probieren Wink

Code:
If Param(Line, 2) = "" Then
mach daraus mal
Code:
If Param(Line, 2) = vbNullString Then
AnGelBot-Portal² > Scripting > Anfragen > Prob mit Antwort Script
Referenz-URLs