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

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

    $Username = "CPPSusername"; // Enter Username
    $Password = "CPPSpassword"; // Enter Password
    $Server = "HPPS"; // Enter Server (can be "HPPS" or "ClubPenguinV" case sensitive!
    $Room = 100; // Enter Room ID

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


    $p = new Pickle;
    $p->connect($Username, $Password, $Server);
    $p->joinRoom(120);
    sleep(1);
    $p->joinRoom($Room);
    sleep(1);

    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%", "%");
        echo("$PenguinID said '$Message'\n");
    }
    elseif (stripos($pack, "xt%sp%$p->intRoomID")){
        $MovedPeng = $p->stribet($pack, "%xt%sp%$p->intRoomID%", "%");
        $x = $p->stribet($pack, "%xt%sp%$p->intRoomID%$MovedPeng%", "%");
        $y = $p->stribet($pack, "%xt%sp%$p->intRoomID%$MovedPeng%$x%", "%");
    echo("$MovedPeng moved to $x, $y\n");
    }
    elseif(stripos($pack, "xt%sa%$p->intRoomID")){
        $explodedPacket = explode("%", $pack);
        $Action = $explodedPacket[5];
        $ActionPeng = $explodedPacket[4];
        echo("$ActionPeng sent action #$Action\n");
    }
    elseif(stripos($pack, "xt%sf%$p->intRoomID")){
        $explodedPacket = explode("%", $pack);
        $Frame = $explodedPacket[5];
        $FramePeng = $explodedPacket[4];
        echo("$FramePeng sent frame #$Frame\n");
    }
    elseif (stripos($pack, "xt%se%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%se%$p->intRoomID%", "%");
        $emoteID = $p->stribet($pack, "%xt%se%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinID emoted Emote #$emoteID\n");
    }
    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%", "%");
        echo("$PenguinID threw a Snowball at: $x, $y\n");
    }
    elseif (stripos($pack, "xt%sj%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%sj%$p->intRoomID%", "%");
        $JokeID = $p->stribet($pack, "%xt%sj%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinID said Joke #$JokeID\n");
    }
    elseif (stripos($pack, "xt%ss%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%ss%$p->intRoomID%", "%");
        $SafeID = $p->stribet($pack, "%xt%ss%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinID said the Safe Chat Message #$SafeID\n");
    }
    elseif (stripos($pack, "xt%upc%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%upc%$p->intRoomID%", "%");
        $ColorID = $p->stribet($pack, "%xt%upc%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinID put on Color #$ColorID\n");
    }
    elseif (stripos($pack, "xt%uph%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%uph%$p->intRoomID%", "%");
        $HeadID = $p->stribet($pack, "%xt%uph%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinID put on Head Item #$HeadID\n");
    }
    elseif (stripos($pack, "xt%upf%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%upf%$p->intRoomID%", "%");
        $FaceID = $p->stribet($pack, "%xt%upf%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinID put on Face Item #$FaceID\n");
    }
    elseif (stripos($pack, "xt%upn%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%upn%$p->intRoomID%", "%");
        $NeckID = $p->stribet($pack, "%xt%upn%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinID put on Neck Item #$NeckID\n");
    }
    elseif (stripos($pack, "xt%upb%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%upb%$p->intRoomID%", "%");
        $BodyID = $p->stribet($pack, "%xt%upb%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinID put on Body Item #$BodyID\n");
    }
    elseif (stripos($pack, "xt%uph%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%uph%$p->intRoomID%", "%");
        $HeadID = $p->stribet($pack, "%xt%uph%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinID put on Head Item #$HeadID\n");
    }
    elseif (stripos($pack, "xt%upa%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%upa%$p->intRoomID%", "%");
        $HandID = $p->stribet($pack, "%xt%upa%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinID put on Hand Item #$HandID\n");
    }
    elseif (stripos($pack, "xt%upe%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%upe%$p->intRoomID%", "%");
        $FootID = $p->stribet($pack, "%xt%upe%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinID put on Foot Item #$FootID\n");
    }
    elseif (stripos($pack, "xt%ap%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "xt%ap%$p->intRoomID%", "|");
        $joinedPeng = $p->stribet($pack, "xt%ap%$p->intRoomID%$PenguinID|", "|");
        echo("'$joinedPeng' joined the room.\n");
    }
    elseif (stripos($pack, "xt%upp%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%upp%$p->intRoomID%", "%");
        $BackgroundID = $p->stribet($pack, "%xt%upp%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinID put on Background #$BackgroundID\n");
    }
    elseif (stripos($pack, "xt%upl%". $p->intRoomID . "%")) {
        $PenguinID = $p->stribet($pack, "%xt%upl%$p->intRoomID%", "%");
        $PinID = $p->stribet($pack, "%xt%upl%$p->intRoomID%$PenguinID%", "%");
        echo("$PenguinID put on Pin #$PinID\n");
    }
    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");
    }
    elseif (stripos($pack, "xt%rp%-1%")){
        $PenguinID = $p->stribet($pack, "xt%rp%-1%", "%");
        echo("$PenguinID left the room.\n");
    }
    }
    ?>