6 $server = "irc.2600.net";
10 $jokefile = "jokes.txt";
12 error_reporting(E_ERROR
);
15 function irc_connect( $fp, $nick, $channel, $joinwait ) {
16 fwrite($fp, "USER USER $nick # # :$nick\n");
17 fwrite($fp, "NICK $nick\n");
19 fwrite($fp, "JOIN $channel\n");
22 function irc_say( $fp, $msg, $nick, $rcpto ) {
23 //fwrite($fp, ":$nick!~Harvie@r3ax157.net.upc.cz PRIVMSG $rcpto :$msg\n");
24 fwrite($fp, ": PRIVMSG $rcpto :$msg\n");
29 $jokes = file($jokefile);
32 $sfp = fsockopen ($server, $port, &$errno, &$errstr, 5);
33 irc_connect( $sfp, $nick, $channel, 0 );
35 $home_channel = $channel;
37 while(!fwrite($sfp, "")) {
39 fwrite($sfp, "JOIN $channel\n");
41 //ReadLine from IRC Server
42 $line = (fgets($sfp));
45 //IRC Sever PING/PONG Response
46 $words = (explode(" ", $line));
47 if ($words[0] == "PING") {
48 fwrite($sfp, "PONG ".trim($words[1])."\n");
49 echo("-PONG ".trim($words[1])."\n");
53 if ( ( trim($words[1]) == "INVITE" ) && ( substr(trim($words[3]), 0, 2) == ":#" ) ) {
54 $channel = substr(trim($words[3]), 1);
55 fwrite($sfp, "JOIN $channel\n");
56 irc_say( $sfp, "Hello", $nick, $channel );
57 echo("-JOINED $channel\n");
60 $commands = (explode(":", $line));
62 //Harvester - Posle vizitku
63 if ( trim($commands[2]) == "Harvester") {
64 irc_say( $sfp, ("Ahoj lidi, ja jsem Harvieho bot. Random#: ".rand(0,10)), $nick, $channel );
65 echo("-VISITCARD"."\n");
68 //hspam:Message - Posle zpravu pri kazde prijate
69 if ( trim($commands[2]) == "hspam") {
70 $spam = trim($commands[3]);
71 echo("-SPAM: ".trim($commands[3])."\n");
75 irc_say( $sfp, $spam, $nick, $channel );
76 //echo("-SAID: ".trim($commands[3])."\n");
79 //hplay:file - Prehraje soubor
80 if ( trim($commands[2]) == "hplay") {
81 if ( is_file( trim($commands[3]) ) ) {
82 $rfile = fopen( trim($commands[3]), "r");
89 echo("-FILE: ".trim($commands[3])."\n");
93 irc_say( $sfp, fgetss($rfile), $nick, $channel );
96 //hhelp - vypise tuto napovedu
97 if ( trim($commands[2]) == "hhelp") {
98 irc_say( $sfp, "Ja jsem Harvester - vice info na: http://ircbot.wz.cz/", $nick, $channel );
100 irc_say( $sfp, "Harvester - Posle vizitku", $nick, $channel );
101 irc_say( $sfp, "hhelp - vypise tuto napovedu", $nick, $channel );
102 irc_say( $sfp, "hsay:Message - Posle zpravu", $nick, $channel );
103 irc_say( $sfp, "hpsay:to:Message - Posle soukromou zpravu kanalu nebo osobe", $nick, $channel );
104 irc_say( $sfp, "hdo:Command - Posle serveru prikaz", $nick, $channel );
105 irc_say( $sfp, "hmove:Channel - Pripoji do kanalu / Zmeni aktivni kanal", $nick, $channel );
106 irc_say( $sfp, "/invite Harvester #channel - Pozve a pripoji bota do kanalu", $nick, $channel );
107 irc_say( $sfp, "hpart:Channel - Odpoji se z kanalu", $nick, $channel );
108 irc_say( $sfp, "hjoke - Posle \"nahodny\" vtip", $nick, $channel );
110 echo("-HELPED"."\n");
113 //hsay:Message - Posle zpravu
114 if ( trim($commands[2]) == "hsay") {
115 irc_say( $sfp, trim($commands[3]), $nick, $channel );
116 echo("-SAID: ".trim($commands[3])."\n");
119 //hpsay:to:Message - Posle soukromou zpravu kanalu nebo osobe
120 if ( trim($commands[2]) == "hpsay") {
121 irc_say( $sfp, trim($commands[4]), $nick, trim($commands[3]) );
122 echo("-SAID: ".trim($commands[4])." -- To: ".trim($commands[3])."\n");
125 //hcol:to:Message - Posle kolizni zpravu kanalu nebo osobe
126 if ( trim($commands[2]) == "hcol") {
127 irc_say( $sfp, trim($commands[4]), trim($commands[3]), $channel );
128 echo("-COLIDED: ".trim($commands[4])." To: ".trim($commands[3])."\n");
131 //hdo:Command - Posle serveru prikaz
132 if ( trim($commands[2]) == "hdo") {
133 $hdo = explode("hdo:", $line);
134 fwrite( $sfp, trim($hdo[1])."\n" );
135 echo("-DONE: ".trim($hdo[1])."\n");
138 //hpart:Channel - Odpoji se z kanalu
139 if ( trim($commands[2]) == "hpart") {
140 $hdo = explode("hpart:", $line);
141 if ( trim($hdo[1]) != trim($home_channel) ) {
142 fwrite( $sfp, "PART :".trim($hdo[1])."\n" );
143 echo("-PARTED: ".trim($hdo[1])."\n");
147 //hmove:Channel - Zmeni aktivni kanal
148 if ( trim($commands[2]) == "hmove") {
149 $hdo = explode("hmove:", $line);
150 if ( trim($hdo[1]) != trim($home_channel) ) {
151 $home_channel = trim($hdo[1]);
152 fwrite($sfp, "JOIN $home_channel\n");
153 irc_say( $sfp, "Hi, im here...", $nick, $home_channel );
154 echo("-ACTIVATED: ".trim($hdo[1])."\n");
158 //htime - udaje o casu
159 if ( trim($commands[2]) == "htime") {
160 $msg = implode("-", getdate(time()));
161 irc_say( $sfp, trim($msg), $nick, $channel );
165 //hjoke - Posle nahodny vtip
166 if ( trim($commands[2]) == "hjoke") {
167 $joke = ($jokes[ rand(0, (sizeof($jokes)-1) ) ]);
168 //$ftip = "Potkaji se dve blondyny a jedna rika te druhe: \"How do you do?\" a ta ji odpovi co? kde ses to naucila? To vis vzdycky pretocim radio doprava a tam mluvi jen anglicky tak se to tak ucim. Potkaji se za 2 tydny a jedna rika druhe How do you do a druha ji odpovi chsrchsrsrshchsrshchs";
169 irc_say( $sfp, trim($joke), $nick, $channel );
173 //Navrat do domaciho kanalu
174 $channel = $home_channel;
178 echo("-Connection lost.")
This page took 0.33293 seconds and 4 git commands to generate.