IRC Bot Befehle geben ! *HELP*

[CodenameCookie]

Hallöchen liebe DPC :-D !

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 :firejump:

[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 ! :gruebel:

[Spoon]

Soweit ich mich erinnere konnte man den Nick auch zur Laufzeit mit

Delphi-Quellcode:

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.

Delphi-Quellcode:

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 ...

Delphi-Quellcode:

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 :wink: :-D

[Die Muhkuh]

Delphi-Quellcode:

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

[CodenameCookie]

hehe tHX !!!

noch ne kleine frage :roll: :mrgreen:

Delphi-Quellcode:

if (pos('!lol',Content) <> 0) AND (AUser.Nick='Cheffe') then IdIRC1.Say:('jaa genau LOL');

Compiler Error .. er sacht mir falscher Syntax :wall: :wiejetzt: !!

Grüsse Kecks

[Die Muhkuh]

Zitat:

Zitat von CodenameCookie

hehe tHX !!!

noch ne kleine frage :roll: :mrgreen:

Delphi-Quellcode:

if (pos('!lol',Content) <> 0) AND (AUser.Nick='Cheffe') then IdIRC1.Say:('jaa genau LOL');

Compiler Error .. er sacht mir falscher Syntax :wall: :wiejetzt: !!

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 :gruebel: .. 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 ;)