Php Formation Script * 2011 Working Square.

Code:

<?php
$pclkey = 'betas';
require_once("Pickle.php");
/*
*
* This script
*
* This script was made with the Penguin Client Library, found at http://www.penguinclientsystem.com/
* You will need 8 accounts :-)
*
* @author test
* @version 0.0.2
*/
// Script configuration
// Enter the target ID, most likely your ID
$intTarget = 000000000;
// Enter the account information
$arrUsernames[1] = 'penguin';
$arrPasswords[1] = 'password';
$arrUsernames[2] = 'penguin';
$arrPasswords[2] = 'password';
$arrUsernames[3] = 'penguin';
$arrPasswords[3] = 'password';
$arrUsernames[4] = 'penguin';
$arrPasswords[4] = 'password';
$arrUsernames[5] = 'penguin';
$arrPasswords[5] = 'password';
$arrUsernames[6] = 'penguin';
$arrPasswords[6] = 'password';
$arrUsernames[7] = 'penguin';
$arrPasswords[7] = 'password';
$arrUsernames[8] = 'penguin';
$arrPasswords[8] = 'password';



$strServer = 'Slushy';
// Please, do not edit below this line
// Loop to login the accounts
for($i = 1; $i <= 8; $i++) {
  $p[$i] = new Pickle;
  $intLogin = $p[$i]->connect($arrUsernames[$i], $arrPasswords[$i], $strServer);
  if($intLogin != -1) {
          die($intLogin);
        }
  $p[$i]->joinRoom(800);
  echo $arrUsernames[$i], '  is at the dock!\n';
  sleep(1);
}
echo 'We now have 8 accounts online at the dock...\n';
echo 'Now detecting ingame input of  ', $intTarget, '...\n';
// Loop for input detection
while(true) {
  $rawPack = $p[1]->readRawPacket();
  if (stripos($rawPack, "xt%sp%". $p[1]->intRoomID . "%" . $intTarget)) {
              $x = $p[1]->stribet($rawPack, "%xt%sp%" . $p[1]->intRoomID . "%" . $intTarget . "%", "%");
              $y = $p[1]->stribet($rawPack, "%xt%sp%" . $p[1]->intRoomID . "%" . $intTarget . "%" . $x . "%", "%");
      // The first "P"
          $p[1]->sendPosition($x+45, $y+0);
          $p[2]->sendPosition($x-45, $y+0);
          $p[3]->sendPosition($x+45, $y+45);
          $p[4]->sendPosition($x+45, $y-45);
          $p[5]->sendPosition($x+0, $y+45);
          $p[6]->sendPosition($x+0, $y-45);
          $p[7]->sendPosition($x-45, $y-45);
          $p[8]->sendPosition($x-45, $y+45);
  } elseif (stripos($rawPack, "xt%sf%" . $p[1]->intRoomID . "%" . $intTarget)) {
            $id = $p[1]->stribet($rawPack, "%xt%sf%" . $p[1]->intRoomID . "%" . $intTarget . "%", "%");
      for($i = 1; $i <= 8; $i++) {
              $p[$i]->sendFrame($id);
      }
        } elseif (stripos($rawPack, "xt%sa%" . $p[1]->intRoomID . "%" . $intTarget)) {
            $id = $p[1]->stribet($rawPack, "%xt%sa%" . $p[1]->intRoomID . "%" . $intTarget . "%", "%");
      for($i = 1; $i <= 8; $i++) {
              $p[$i]->sendAction($id);
      }
        }  elseif (stripos($rawPack, "xt%sm%" . $p[1]->intRoomID . "%" . $intTarget)){
            $message = $p[1]->stribet($rawPack, "%xt%sm%" . $p[1]->intRoomID . "%" . $intTarget . "%", "%");
      for($i = 1; $i <= 8; $i++) {
              $p[$i]->sendMessage($message);
      }
  } elseif (stripos($rawPack, "xt%sb%" . $p[1]->intRoomID . "%" . $intTarget)) {
            $x = $p[1]->stribet($rawPack, "%xt%sb%" . $p[1]->intRoomID . "%" . $intTarget . "%", "%");
            $y = $p[1]->stribet($rawPack, "%xt%sb%" . $p[1]->intRoomID . "%" . $intTarget . "%". $x . "%", "%");
      for($i = 1; $i <= 8; $i++) {
              $p[$i]->snowBall($x, $y);
      }
  } elseif (stripos($rawPack, "xt%bf%" . $p[1]->intRoomID . "%")) {
            $intRoom = $p[1]->stribet($rawPack, "%xt%bf%" . $p[1]->intRoomID . "%", "%");
      for($i = 1; $i <= 8; $i++) {
                $p[$i]->joinRoom($intRoom);
      }
  } elseif (stripos($rawPack, "xt%se%". $p[1]->intRoomID . "%" . $intTarget)) {
            $id = $p[1]->stribet($rawPack, "%xt%se%" . $p[1]->intRoomID . "%" . $intTarget . "%", "%");
      for($i = 1; $i <= 8; $i++) {
              $p[$i]->sendEmote($id);
      }
  }
}
?>

Bolt Hugs wrote:Epic script, thanks.