<?php
    $pclkey = "betas";
    require("Pickle.php");

    ///////////////Script made by SweetTooth.//////////////////////////

    $Username = ""; // Enter Username
    $Password = ""; // Enter Password
    $Server = ""; // Enter Server

    $Target = "";  // Target ID

    ///////////////////////////////////////////////////////////////////


    $p = new Pickle;
    $p->connect($Username, $Password, $Server);
    $myPengID = $p->PlayerID;
    while(true){
    $pack = $p->readRawPacket();

    if (stripos($pack, "xt%sm%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%sm%$p->intRoomID%", "%");
        $Message = $p->stribet($pack, "%xt%sm%$p->intRoomID%$PenguinID%", "%");
        if ($PenguinID == $Target && $PenguinID != $myPengID){
            echo("$PenguinID said '$Message'\n");
            $p->sendMessage($Message);
        }
    }
    elseif (stripos($pack, "xt%sp%$p->intRoomID")){
        $PenguinID = $p->stribet($pack, "%xt%sp%$p->intRoomID%", "%");
        $x = $p->stribet($pack, "%xt%sp%$p->intRoomID%$PenguinID%", "%");
        $y = $p->stribet($pack, "%xt%sp%$p->intRoomID%$PenguinID%$x%", "%");
        if ($PenguinID == $Target && $PenguinID != $myPengID){
            echo("$PenguinID moved to $x, $y\n");
            $p->goto($x,$y);
        }
    }
    elseif(stripos($pack, "xt%sa%$p->intRoomID")){
        $explodedPacket = explode("%", $pack);
        $Action = $explodedPacket[5];
        $PenguinID = $explodedPacket[4];
        if ($PenguinID == $Target && $PenguinID != $myPengID){
            echo("$PenguinID sent action #$Action\n");
            $p->sendAction($Action);
        }
    }
    elseif(stripos($pack, "xt%sf%$p->intRoomID")){
        $explodedPacket = explode("%", $pack);
        $Frame = $explodedPacket[5];
        $PenguinID = $explodedPacket[4];
        if ($PenguinID == $Target && $PenguinID != $myPengID){
            echo("$PenguinID sent frame #$Frame\n");
            $p->sendFrame($Frame);
        }
    }
    elseif (stripos($pack, "xt%se%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%se%$p->intRoomID%", "%");
        $emoteID = $p->stribet($pack, "%xt%se%$p->intRoomID%$PenguinID%", "%");
        if ($PenguinID == $Target && $PenguinID != $myPengID){
            echo("$PenguinID emoted Emote #$emoteID\n");
            $p->sendEmote($emoteID);
        }
    }
    elseif (stripos($pack, "xt%sb%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%sb%$p->intRoomID%", "%");
        $x = $p->stribet($pack, "%xt%sb%$p->intRoomID%$PenguinID%", "%");
        $y = $p->stribet($pack, "%xt%sb%$p->intRoomID%$PenguinID%$x%", "%");
        if ($PenguinID == $Target && $PenguinID != $myPengID){
            echo("$PenguinID threw a Snowball at: $x, $y\n");
            $p->snowball($x,$y);
        }
    }
    elseif (stripos($pack, "xt%sj%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%sj%$p->intRoomID%", "%");
        $JokeID = $p->stribet($pack, "%xt%sj%$p->intRoomID%$PenguinID%", "%");
        if ($PenguinID == $Target && $PenguinID != $myPengID){
            echo("$PenguinID said Joke #$JokeID\n");
            $p->sendJoke($JokeID);
        }
    }
    elseif (stripos($pack, "xt%ss%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%ss%$p->intRoomID%", "%");
        $SafeID = $p->stribet($pack, "%xt%ss%$p->intRoomID%$PenguinID%", "%");
        if ($PenguinID == $Target && $PenguinID != $myPengID){
            echo("$PenguinID said the Safe Chat Message #$SafeID\n");
            $p->sendSafe($SafeID);
        }
    }
    elseif (stripos($pack, "xt%br%" . $p->intRoomID . "%" )) {
        $PenguinID = $p->stribet($pack, "%xt%br%$p->intRoomID%", "%");
        $PenguinName = $p->stribet($pack, "%xt%br%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinName (#$PenguinID) sent a buddy request to you!\n");
    }
    }
    ?>