IRC Bot Befehle geben ! *HELP*

[CodenameCookie]

Hallöchen liebe DPC !

Da ich erfolgreich es geschafft habe einen IRCBOT zu basteln *stolz* , habe ich mich nun gefragt ob es möglich ist ihm noch Befehle zuzuordnen . Habe mir folgende Funktionen ausgedacht , weiss ja ned ob es realisierbar is aber ich sachs einfach ma *gg:

1.) systeminfo
2.) beenden [ der bot sich selber ]
3.) wann er gestartet wurde oder wie lange der Server wodrauf er liegt läuft

und noch einiges mehr aber ich denke für den Anfang reicht das .

achso noch eine kleine zusatzfrage :

Wenn der bot joinen sollte aber sein Nickname ( bot ) ist schon vorhanden .. wie is das machbar , vllt so

Delphi-Quellcode:

procedure TForm1.IdIRC1NicksInUse(Sender: TObject; var ANick: String);
begin
   IdIRC1.Say('/nick bot|bla');
end;

Grüsse CC

[DGL-luke]

wenn der nick schon online is, dann bekommt er automatisch einen anderen namen, meist anonymousxxxx(xxxx=zahl),zugewiesen.

[CodenameCookie]

naja dachte ich auch , aber bei mir ist es so das er dann nicht joint !

[Spoon]

Soweit ich mich erinnere konnte man den Nick auch zur Laufzeit mit
IdIRC1.Nick:='blub' ändern.

Zu den deinen anderen Frage:

Du musst auf bestimmte Worte reagieren, die von anderen gesagt werden, am besten geht das im OnMessage-event.

z.B.

if (pos('!beenden',Content) <> 0) AND (AUser.Nick='chef') then IdIRC1.Disconnect; Jetzt sollte er eigentlich die Verbindung beenden wenn ein gewisser 'chef', !beenden sagt. (hab's nicht getestet)

Versuchs einfach mal

[CodenameCookie]

Hallöchen ...

if (pos('!beenden',Content) <> 0) AND (AUser.Nick='chef') then IdIRC1.Disconnect; geht wunderbar TXH! dafür .

nun is meine Frage wie kann ich FormClose mit "!beenden" erreichen?

Delphi-Quellcode:

procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; Content: String);
begin
if (pos('!quit',Content) <> 0) AND (AUser.Nick='chef') then TForm1.FormClose;
end;

???? .. Vielen Dank im Vorraus

[Die Muhkuh]

if (pos('!quit',Content) <> 0) AND (AUser.Nick='chef') then Application.Terminate;

[CodenameCookie]

hehe tHX !!!

noch ne kleine frage

if (pos('!lol',Content) <> 0) AND (AUser.Nick='Cheffe') then IdIRC1.Say:('jaa genau LOL'); Compiler Error .. er sacht mir falscher Syntax !!

Grüsse Kecks

[Die Muhkuh]

Zitat von CodenameCookie:

hehe tHX !!!

noch ne kleine frage

if (pos('!lol',Content) <> 0) AND (AUser.Nick='Cheffe') then IdIRC1.Say:('jaa genau LOL'); Compiler Error .. er sacht mir falscher Syntax !!

Grüsse Kecks

Ich schätze mal er sagt, dass das Komma ein ungültige Bezeichner ist Lösch ma das Komma nach Say

[CodenameCookie]

sorry aber Komma .. ich sehe da kein komme

[Die Muhkuh]

Code:

if (pos('!lol',Content) <> 0) AND (AUser.Nick='Cheffe') then IdIRC1.Say[b][size=24][color=#ff001f]:[/color][/size][/b]('jaa genau LOL');

Das