<?php
//boilerplate
//I saw someone tell someone else that you can do this in a little under 20 lines... it took me a bit more that 60...
$pclkey = "betas";
require("library.php");
require("tasks.php");
$p = new Pickle;
//functions
function loopingcounter($var,$maxvar){
if($var<$maxvar){
return $var+1;
}else{
return 1;
}
}

function searchsetofservers($targetID,$p,$erver,$Username,$Password,$whichpeng,$maxserver){
while($erver!=1){
$p->connect($Username[$whichpeng],$Password[$whichpeng],$erver);
$p->joinRoom(800, 0,0);
$p->findBuddy($targetID);
$rawPack = $p->readRawPacket();
if(stripos($rawPack, "xt%bf%" . $p->intRoomID . "%")) {
$p->followBot($targetID);
}else{
$p->disconnect();
}
$whichpeng=loopingcounter($whichpeng,3);//change the three to the ammount of your penguins that you want to be searching for the target
$erver=loopingcounter($erver,$maxserver);
}
return $whichpeng;
}
echo "welcome to Docter Octagonapus penguin tracker! /n";
//getting usernames and passwords
$i=1;
//change the 4 to however many penguins you want searching for the penguin id plus one
while($i<4){
echo "Enter a penguin Username: "; ////////////////
$Username[$i] = trim(fgets(STDIN)); // Enter a username
echo "Enter a penguin Password: "; ////////////////
$Password[$i] = trim(fgets(STDIN)); // Enter a password
$i++;
}
//change $targetID to that of the penguin ID of he penguin you wish to track
$targetID=95220885;
//searching
$whichpeng=1;
$whichpeng=searchsetofservers($targetID,$p,100,$Username,$Password,$whichpeng,171);
$whichpeng=searchsetofservers($targetID,$p,200,$Username,$Password,$whichpeng,215);
$whichpeng=searchsetofservers($targetID,$p,300,$Username,$Password,$whichpeng,315);
$whichpeng=searchsetofservers($targetID,$p,400,$Username,$Password,$whichpeng,411);
$whichpeng=searchsetofservers($targetID,$p,501,$Username,$Password,$whichpeng,502);
$whichpeng=searchsetofservers($targetID,$p,504,$Username,$Password,$whichpeng,505);
$whichpeng=searchsetofservers($targetID,$p,508,$Username,$Password,$whichpeng,509);
$whichpeng=searchsetofservers($targetID,$p,512,$Username,$Password,$whichpeng,517);
$whichpeng=searchsetofservers($targetID,$p,550,$Username,$Password,$whichpeng,555);
$whichpeng=searchsetofservers($targetID,$p,654,$Username,$Password,$whichpeng,658);
$whichpeng=searchsetofservers($targetID,$p,660,$Username,$Password,$whichpeng,665);
?>