Baumstrukturmodus | Linearer Modus

Summerwind · 21.06.2004, 05:55 Uhr

so nachdem ich mich nun stundenlang damit befasst hab den Bot richtig zum laufen zu bekommen, steh ich nur noch vor einem Rätsel. :/
Ich hab von hier ein script installiert, wo der bot auf verschiedene wörter reagieren soll, und es besteht auch eine Textdatei, aber irgendwie funktioniert das nich, könnt ihr mir vielleicht helfen? Wie soll ich dem Bot sagen, wenn er Katze hört z.b. Katze? wooo? zu sagen?

thx, Summer

BlutigeTraene24 · 21.06.2004, 13:07 Uhr

hallo summerwind!

erstell eine datei mit dem notepad oder anderem text-editor mit der erweiterung '.asc' im verzeichnis 'filearea/scripts' mit folgendem inhalt:

Code:

Sub Init()

  Script "Katze by summerwind"

  Hook "Chan_Msg"

  SpreadFlagMessage 0, "+m", "*** Katze V1.0 by summerwind"

End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)

  If InStr(LCase(Line), "katze") Then

    SendLine "PRIVMSG " & Chan & " :Katze? Wooo?",3

  End If

End Sub

das ganze kann man natürlich auch auf 'hund' und 'vogel' erweitern! :D

gruß und so

PS: nicht vergessen das script mit '.+script SCRIPTNAME' zu aktivieren!!!

Summerwind · 21.06.2004, 18:12 Uhr

super, danke :D

Ragna · 30.08.2004, 15:57 Uhr

Kann mir einmal wer sagen wie ich dieses Teil mit "HUND" erweitere?

und ja ...ich bin ein noob *fg*

Ist ja nicht so das ich nicht schon einiges versucht hätte, aber es hat nicht sollen sein ohne hilfe eines wissenden *g*

Wäre jemand so nett bitte, damit ich in dieser Richtung einmal einen Anhaltspunkt habe.

MFG
Ragna

stargate · 30.08.2004, 16:03 Uhr

hi ragna,

Wenn du willst das er nur auf katze ODER hund reagieren soll dann muss es so sein:

Code:

Sub Init() 

  Script "Katze by summerwind" 

  Hook "Chan_Msg" 

  SpreadFlagMessage 0, "+m", "*** Katze V1.0 by summerwind" 

End Sub 

Sub Chan_Msg(Chan, Nick, RegUser, Line) 

  If InStr(LCase(Line), "katze") Then 

    SendLine "PRIVMSG " & Chan & " :Katze? Wooo?",3 

  ElseIf InStr(LCase(Line), "hund") Then 

    SendLine "PRIVMSG " & Chan & " :Hund? Wooo?",3 

  End If 

End Sub

also prüft er erst auf katze gibt sendline aus oder er prüft die elseIf(kannst auch noch 100 elseif drunter machen ^^) und gibt die sendline aus, wenn du allerdings willst das er wenn beides in eineer zeile vorkommt beides ausgibt dann muss es so sein:

Code:

Sub Init() 

  Script "Katze by summerwind" 

  Hook "Chan_Msg" 

  SpreadFlagMessage 0, "+m", "*** Katze V1.0 by summerwind" 

End Sub 

Sub Chan_Msg(Chan, Nick, RegUser, Line) 

  If InStr(LCase(Line), "katze") Then 

    SendLine "PRIVMSG " & Chan & " :Katze? Wooo?",3 

  End If 

  If InStr(LCase(Line), "hund") Then 

    SendLine "PRIVMSG " & Chan & " :Hund? Wooo?",3 

  End If 

End Sub

Ragna · 31.08.2004, 16:53 Uhr

vielen dank stargate

geht natürlich 1A und jetzt kann ich es erweitern und verstehn Smile

MFG
Cobra

Möglicherweise verwandte Themen...
Thema:		Verfasser	Antworten:	Ansichten:	Letzter Beitrag
	whois und Reaktion auf Reply auf whois	GrandAdmiralThrawn	4	1.097	31.03.2011 17:29 Uhr Letzter Beitrag: GrandAdmiralThrawn
	gamescript funbotscripte auf partyline	LordAngel69	1	671	26.01.2010 19:02 Uhr Letzter Beitrag: eXploder
	auf text reagieren	Avery	5	1.340	02.01.2009 19:27 Uhr Letzter Beitrag: Firefox
	IRC-Status auf Homepage ausgeben	RandyFisher	19	2.854	18.03.2007 17:02 Uhr Letzter Beitrag: Hollowman
	Stream Script mit PW um auf Shoutcast server zuzugreifen	Darkdavos	2	1.245	28.02.2007 21:19 Uhr Letzter Beitrag: Darkdavos
	Zugriff auf eine MySQL Datenbank	Muffe	2	1.232	02.10.2006 04:45 Uhr Letzter Beitrag: Muffe
	Anfrage auf Script	Alex26	6	773	29.08.2006 16:56 Uhr Letzter Beitrag: Alex26
	Script, was comments auf ereignisse loslässt.	dabigloosa	20	2.064	08.05.2006 04:42 Uhr Letzter Beitrag: Kamon
	VIP script auf User bezogen	Go-T	12	1.822	09.04.2006 09:03 Uhr Letzter Beitrag: Christian
	Suche ein Script das auf selbstgemachte befehle reagiert	Saphira	19	2.843	05.04.2006 16:40 Uhr Letzter Beitrag: Christian