Changeset 94 for devel/www/chat/irc_bot.php

Timestamp:

Jul 26, 2008, 10:16:52 PM (16 years ago)

Author:

george

Message:

Upraveno: Přepsány ostatní příkazy a celý bot jako třída.

File:

• devel/www/chat/irc_bot.php (modified) (4 diffs)

devel/www/chat/irc_bot.php

@@ -16 +16 @@
   function __construct() 
   {
-    $Jokes = file($this->JokeFileName);
+    $this->Jokes = file($this->JokeFileName);
     $this->File = fsockopen($this->Server, $this->Port, $ErrNumber, $ErrString, 5);
     $this->Connect($this->File, $this->Nick, $this->Channel, 0);
@@ -29 +29 @@
   }
 
-  function SayPrivate($Message, $Recepient)
+  function Say($Message, $Recipient = '')
   {
-    $this->Command(': PRIVMSG '.$Recepient.' :'.$Message);
-  }
-
-  function Say($Message)
-  {
-    $this->Command(':'.$Message);
+    if($Recipient == '') $Recipient = $this->Channel;
+    $this->Command(': PRIVMSG '.$Recipient.' :'.$Message);
   }
 
@@ -92 +88 @@
         if($Command == 'hhelp')
         {
-          $this->SayPrivate('Ja jsem Harvester.', $this->Channel);
+          $this->Say('Ja jsem Harvester.');
           /*
           irc_say( $sfp, "Harvester - Posle vizitku", $nick, $channel );
@@ -107 +103 @@
         }
 
-       // hsay:Message - Posle zpravu
-       if($Command == 'hsay')
-       {
-         $this->SayPrivate($Commands[3], $this->Channel);
-         echo("-SAID: ".$Commands[3]."\n");
-       }
+        // hsay:Message - Posle zpravu
+        if($Command == 'hsay')
+        {
+          $this->Say($Commands[3]);
+          echo("-SAID: ".$Commands[3]."\n");
+        }
 
-       // hpsay:to:Message - Posle soukromou zpravu kanalu nebo osobe
-       if($Command == 'hpsay')
-       {
-         $this->SayPrivate($Commands[4], $Commands[3]);
-         echo("-SAID: ".$Commands[4]." -- To: ".$Commands[3]."\n");
-       }
+        // hpsay:to:Message - Posle soukromou zpravu kanalu nebo osobe
+        if($Command == 'hpsay')
+        {
+          $this->Say($Commands[4], $Commands[3]);
+          echo("-SAID: ".$Commands[4]." -- To: ".$Commands[3]."\n");
+        }
 
-/*
-    // hcol:to:Message - Posle kolizni zpravu kanalu nebo osobe
-    if($Command == 'hcol')
-    {
-      irc_say( $sfp, trim($commands[4]), trim($commands[3]), $channel );
-      echo("-COLIDED: ".trim($commands[4])." To: ".trim($commands[3])."\n");
-    }
+        // hcol:to:Message - Posle kolizni zpravu kanalu nebo osobe
+        if($Command == 'hcol')
+        {
+          $this->Say($Commands[4], $Commands[3]);
+          echo("-COLIDED: ".$Commands[4]." To: ".$Commands[3]."\n");
+        }
 
-    // hdo:Command - Posle serveru prikaz
-    if(trim($commands[2]) == "hdo")
-    {
-      $hdo = explode("hdo:", $line);
-      fwrite( $sfp, trim($hdo[1])."\n" );
-      echo("-DONE: ".trim($hdo[1])."\n");
-    }
+        // hdo:Command - Posle serveru prikaz
+        if($Command == 'hdo')
+        {
+          $hdo = explode('hdo:', $Line);
+          $this->Command(trim($hdo[1]));
+          echo("-DONE: ".trim($hdo[1])."\n");
+        }
 
-    // hpart:Channel - Odpoji se z kanalu
-    if(trim($commands[2]) == "hpart")
-    {
-      $hdo = explode("hpart:", $line);
-      if(trim($hdo[1]) != trim($home_channel))
-      {
-        fwrite( $sfp, "PART :".trim($hdo[1])."\n" );
-        echo("-PARTED: ".trim($hdo[1])."\n");
+        // hpart:Channel - Odpoji se z kanalu
+        if($Command == 'hpart')
+        {
+          $hdo = explode('hpart:', $Line);
+          if(trim($hdo[1]) != trim($this->Channel))
+          {
+            $this->Command('PART :'.trim($hdo[1])."\n");
+            echo("-PARTED: ".trim($hdo[1])."\n");
+          }
+        }
+
+        // hmove:Channel - Zmeni aktivni kanal
+        if($Command == 'hmove')
+        {
+          $hdo = explode("hmove:", $Line);
+          if(trim($hdo[1]) != trim($$this->Cannel))
+          {
+            $this->Channel = trim($hdo[1]);
+            $this->Command('JOIN '.$this->Channel."\n");
+            $this->Say('Hi, im here...');
+            echo("-ACTIVATED: ".trim($hdo[1])."\n");
+          }
+        }
+
+        // htime - udaje o casu
+        if($Command == 'htime')
+        {
+          $Date = implode("-", getdate(time()));
+          $this->Say(trim($Date));
+          echo("-TIMED"."\n");
+        }
+
+        // hjoke - Posle nahodny vtip
+        if($Command == 'hjoke') 
+        {
+          $Joke = ($this->Jokes[rand(0, (sizeof($this->Jokes) - 1))]);
+          $this->Say(trim($Joke));
+          echo("-JOKED"."\n");
+        }
       }
-    }
-
-    // hmove:Channel - Zmeni aktivni kanal
-    if(trim($commands[2]) == "hmove")
-    {
-      $hdo = explode("hmove:", $line);
-      if(trim($hdo[1]) != trim($home_channel))
-      {
-        $home_channel = trim($hdo[1]);
-        fwrite($sfp, "JOIN $home_channel\n");
-        irc_say( $sfp, "Hi, im here...", $nick, $home_channel );
-        echo("-ACTIVATED: ".trim($hdo[1])."\n");
-      }
-    }
-
-    // htime - udaje o casu
-    if(trim($commands[2]) == "htime")
-    {
-      $msg = implode("-", getdate(time()));
-      irc_say( $sfp, trim($msg), $nick, $channel );
-      echo("-TIMED"."\n");
-    }
-
-    // hjoke - Posle nahodny vtip
-    if(trim($commands[2]) == "hjoke") 
-    {
-      $joke = ($jokes[ rand(0, (sizeof($jokes)-1) ) ]);
-      //$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";
-      irc_say( $sfp, trim($joke), $nick, $channel );
-      echo("-JOKED"."\n");
-    }
-*/    }
     }
     echo("-Connection lost.\n");