AnGelBot-Portal²

AnGelBot-Portal² > Scripting > Anfragen > auf text reagieren
Normale Version: auf text reagieren
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Avery

11.06.2004, 19:33 Uhr
Also, ich bräuchte ein script(hab ich schonmal irgendwo gesehen, finde es nur nichtmehr) was auf folgendes Reagiert.
!beiß nick = /me beißt nick ins bein
!sitz = oki *hinsetz*
!bell = *wau* *wau*
etc.

Also wäre ganz gut wenn ihr mir da helfen könntet, ich füge die ganzen befehle etc. auch gerne selber ein wenn ihr sagt wo und welchen teil ich dafür kopieren muss.
Aja und das script soll nur auf Leute hören die owner rechte am bot haben.

PS: wenn ichs net verständlcih erklärt hab einfach nachfragen^^
bin auch in #avery zu finden(soll keine werbung sein dürft nachm fragen gleich wieder parten Razz)

Strucky

11.06.2004, 20:15 Uhr
Mad Mad Solche Foren sollen Suchfunktionen besitzen!!!
http://www.angelbot-portal.de/showthread...light=sitz
Mad Mad

sts

11.06.2004, 20:20 Uhr
hiho, user im bot +m haben.

Code:
Sub Init
  Hook "Chan_Msg"
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Nick)
  If Not MatchFlags(GetUserChanFlags(RegUser, Chan), "+m") Then Exit Sub

    If LCase(Param(Line,1)) = "!beiß"
       Sendline "PrivMsg " & Chan & " :" & MyNick & " beiß sich in den hintern",3
    End If

    If LCase(Param(Line,1)) = "!beiß"
      Sendline "PrivMsg " & Chan & " :oki *hinsetz*",3
    End If

    If LCase(Param(Line,1)) = "!beiß"
      Sendline "PrivMsg " & Chan & " : *wau*wau* ",3
    End If

End Sub

mfg sts

Avery

11.06.2004, 20:32 Uhr
thx ihr beiden Smile

element1975

02.01.2009, 13:02 Uhr
Weiss zwar das der thread schon etwas Grauer ist aber trotzdem :

hab das mal in ne datei namens "beiß.asc" gepackt usw

ausschnitt vom bot :

----SCHNIPP----
*** Scripting error in 'beiß.asc':
• Error : 1041 (Name erneut definiert)
• Position: Line 5, Column 34
• Context : "Sub Chan_Msg(Chan, Nick, RegUser, Nick)"
• *** End of error message
• *** Sorry, the script couldn't be added.

----SCHNAPP----

mfg

Firefox

02.01.2009, 19:27 Uhr
Code:
Sub Init
  Hook "Chan_Msg"
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
  If Not MatchFlags(GetUserChanFlags(RegUser, Chan), "+m") Then Exit Sub
    If LCase(Param(Line, 1)) = "!beiß" Then
       Sendline "PrivMsg " & Chan & " :" & MyNick & " beißt sich in den hintern",3
    ElseIf LCase(Param(Line, 1)) = "!sitz" Then
      Sendline "PrivMsg " & Chan & " :oki *hinsetz*",3
    ElseIf LCase(Param(Line, 1)) = "!bell" Then
      Sendline "PrivMsg " & Chan & " : *wau*wau* ",3
    End If
End Sub

sollte so gehen
AnGelBot-Portal² > Scripting > Anfragen > auf text reagieren
Referenz-URLs