<?php
        $pclkey = "betas";
        echo "Welcome to Happehwalrus' command bot.\n";
        require "Pickle.php";
        $Username = "Happehwalrii";
        $Password = "redfern";
        $Server = 144; //Server ID (or name)
        $TargetID = 49639452; //ID of the penguin you want to follow/listen to

        $p = new Pickle;
        $login = $p->connect($Username, $Password, $Server);

        echo "Successfully connected to $Server\n";
        joinRoom(805); //Goes to the Ice Berg.

        while(true){
        $rawPack = readRawPacket();
        if (stripos($rawPack, "xt%sp%". $p->intRoomID . "%" . $TargetID)) {
        $x = $p->stribet($rawPack, "%xt%sp%intRoomID%$TargetID%", "%");
        $y = $p->stribet($rawPack, "%xt%sp%intRoomID%$TargetID%$x%", "%");
        $p->sendPosition($x-20, $y+0); //Change this to make your bot follow you by a cordinate.
        }
        elseif (stripos($rawPack, "xt%bf%" . $p->intRoomID . "%")){
        $RoomID = $p->stribet($rawPack, "%xt%bf%" . $p->intRoomID . "%","%");
        $p->joinRoom($RoomID);
        }
        if (stripos($rawPack, "xt%rp%-1%" . $TargetID)){
        $p->findBuddy($TargetID);
        }
        if(stripos($pack, "xt%sm%")){
        $msg = $p->stribet($pack, "%xt%sm%" . $p->intRoomID . "%$ID%", "%");

        if($msg == "dance" || $msg == "Dance"){
        $p->sendFrame(26); //Dances when the target says "dance".
        }
        if($msg == "wave" || $msg == "Wave"){
        $p->sendAction(25); //Waves when the target says "wave".
        }
        if($msg == "snowball" || $msg == "Snowball"){
        $x = rand(0, 900);
        $y = rand(0, 900);
        $p->snowBall($x, $y); //Throws a snowball when the target says "snowball".
        }
        if($msg == "card" || $msg == "Card"){
        $CardID = rand(1, 50);
        $p->sendMail($TargetID, $CardID); //Sends the target a random card when it says "card".
        }
        if($msg == "sit" || $msg == "Sit"){
        $p->sendFrame(17); //Sits when the target says "sit".
        }
        }
        elseif (stripos($rawPack, "xt%sm%" . $p->intRoomID . "%" . $TargetID)){
        $Message = $p->stribet($rawPack, "%xt%sm%intRoomID%$TargetID%", "%");
        $p->sendMessage($Message); //Copies what the target says.
        }
        elseif (stripos($rawPack, "xt%se%" . $p->intRoomID . "%" . $TargetID)){
        $EmoteID = $p->stribet($rawPack, "%xt%se%" . $p->intRoomID . "%" . $TargetID . "%", "%");
        $p->sendEmote($EmoteID); //Copies the target's emotes.
        }
        elseif (stripos($rawPack, "xt%sb%" . $p->intRoomID . "%" . $TargetID)){
        $x = $p->stribet($rawPack, "%xt%sb%" . $p->intRoomID . "%" . $TargetID . "%", "%");
        $y = $p->stribet($rawPack, "%xt%sb%" . $p->intRoomID . "%" . $TargetID . "%" . $x . "%", "%");
        $p->snowBall($x, $y); //Throws a snowball where the target throws a snowball.
        }
        elseif (stripos($rawPack, "xt%sj%" . $p->intRoomID . "%" . $TargetID)){
        $jokeID = $p->stribet($rawPack, "%xt%sj%" . $p->intRoomID . "%" . $TargetID . "%", "%");
        $p->sendJoke($jokeID); //Copies the target's jokes.
        }
        elseif (stripos($rawPack, "xt%ss%" . $p->intRoomID . "%" . $TargetID)){
        $safeMessageID = $p->stribet($rawPack, "xt%ss%" . $p->intRoomID . "%" . $TargetID . "%", "%");
        $p->safeMessage($safeMessageID); //Copies the target's safe message.
        }
        elseif (stripos($rawPack, "xt%sa%" . $p->intRoomID . "%" . $TargetID)){
        $ActionID = $p->stribet($rawPack, "xt%sa%" . $p->intRoomID . "%" . $TargetID, "%");
        $p->sendAction($ActionID); //Copies the target's actions.
        }
        elseif (stripos($rawPack, "xt%sf%" . $p->intRoomID . "%" . $TargetID)){
        $FrameID = $p->stribet($rawPack, "xt%sf%" . $p->intRoomID . "%" . $TargetID . "%", "%");
        $p->sendFrame($FrameID);
        }
        elseif (stripos($rawPack, "xt%upc%" . $p->intRoomID . "%" . $TargetID)) {
        $ColorID = $p->stribet($rawPack, "%xt%upc%" . $p->intRoomID . "%" . $TargetID . "%", "%");
        $p->updateColor($ColorID); //Copies the target's colors when he/she changes colors. Will only change if the account has that color.
        }
        }
        ?>