Advertisement
Guest User

Untitled

a guest
Jun 11th, 2017
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.47 KB | None | 0 0
  1. <?php
  2. $pclkey = "betas";
  3. echo "Welcome to Happehwalrus' command bot.\n";
  4. require "Pickle.php";
  5. $Username = "tramrom";
  6. $Password = "tuxytuxy";
  7. $Username2 = "tramrom2";
  8. $Password2 = "tuxytuxy";
  9. $Username3 = "tramrom3";
  10. $Password3 = "tuxytuxy";
  11. $Username4 = "tramrom4";
  12. $Password4 = "tuxytuxy";
  13. $Username5 = "tramrom5";
  14. $Password5 = "tuxytuxy";
  15. $Server = "Tuxedo"; //Server ID (or name)
  16. $TargetID = 38394446; // tuxytronex
  17. $p = new Pickle;
  18. $p->connect($Username, $Password, $Server);
  19. $p->connect($Username2, $Password2, $Server);
  20. $p->connect($Username3, $Password3, $Server);
  21. $p->connect($Username4, $Password4, $Server);
  22. $p->connect($Username5, $Password5, $Server);
  23. $p->joinRoom(800);
  24. echo "$Username is now at the Dock\n";
  25. echo "If you want $Username to do commands, follow you, and copy you must first join the Dock.\n";
  26. while(true){
  27. $rawPack = $p->readRawPacket();
  28. $MikeTurnsMeOn = true;
  29. if (stripos($rawPack, "xt%sp%". $p->intRoomID . "%" . $TargetID)) {
  30. $x = $p->stribet($rawPack, "%xt%sp%" . $p->intRoomID . "%" . $TargetID . "%", "%");
  31. $y = $p->stribet($rawPack, "%xt%sp%" . $p->intRoomID . "%" . $TargetID . "%" . $x . "%", "%");
  32. $p->sendPosition($x+50, $y+0); //Change this to make your bot follow you by a cordinate.
  33. }
  34. elseif (stripos($rawPack, "xt%bf%" . $p->intRoomID . "%")) {
  35. $RoomID = $p->stribet($rawPack, "%xt%bf%" . $p->intRoomID . "%", "%");
  36. $p->joinRoom($RoomID);
  37. }
  38. if (stripos($rawPack, "xt%rp%-1%" . $TargetID)) {
  39. $p->findBuddy($TargetID);
  40. }
  41. elseif (stripos($rawPack, "xt%sm" . "%" . $p->intRoomID . "%" . $TargetID . "%" . "dance" . "%")) {
  42. $p->sendFrame(26);
  43. echo "$Username is now dancing.\n";
  44. }
  45. elseif (stripos($rawPack, "xt%sm" . "%" . $p->intRoomID . "%" . $TargetID . "%" . "spin" . "%")) {
  46. $p->sendRawPacket("%xt%s%u#sf%2%2%");
  47. sleep(1);
  48. $p->sendRawPacket("%xt%s%u#sf%2%3%");
  49. sleep(1);
  50. $p->sendRawPacket("%xt%s%u#sf%2%4%");
  51. sleep(1);
  52. $p->sendRawPacket("%xt%s%u#sf%2%5%");
  53. sleep(1);
  54. $p->sendRawPacket("%xt%s%u#sf%2%6%");
  55. sleep(1);
  56. $p->sendRawPacket("%xt%s%u#sf%2%7%");
  57. sleep(1);
  58. $p->sendRawPacket("%xt%s%u#sf%2%8%");
  59. sleep(1);
  60. $p->sendRawPacket("%xt%s%u#sf%2%1%");
  61. echo "$Username has spun.\n";
  62. }
  63. elseif (stripos($rawPack, "xt%sm" . "%" . $p->intRoomID . "%" . $TargetID . "%" . "rainbow" . "%")) {
  64. $color = 1;
  65. while($color<=14) {
  66. $p->addItem($item);
  67. $item++;
  68. }
  69. $rainbow = 1;
  70. while($rainbow<=14) {
  71. $p->sendRawPacket("%xt%s%u#upc%" . $p->intRoomID . "%" . $rainbow . "%");
  72. sleep(1);
  73. $rainbow++;
  74. }
  75. }
  76. elseif (stripos($rawPack, "xt%sm" . "%" . $p->intRoomID . "%" . $TargetID . "%" . "wave" . "%")) {
  77. $p->sendAction(25);
  78. echo "$Username waved.\n";
  79. }
  80. elseif (stripos($rawPack, "xt%sm" . "%" . $p->intRoomID . "%" . $TargetID . "%" . "emoticon" . "%")) {
  81. $emoteID = rand(1, 24);
  82. $p->sendEmote($emoteID);
  83. echo "$Username has sent a random emote\n";
  84. }
  85. elseif (stripos($rawPack, "xt%sm" . "%" . $p->intRoomID . "%" . $TargetID . "%" . "snowball" . "%")) {
  86. $x = rand(0, 900);
  87. $y = rand(0, 900);
  88. $p->snowBall($x, $y);
  89. echo "$Username threw a snowball at random coordinates.\n";
  90. }
  91. elseif (stripos($rawPack, "xt%sm" . "%" . $p->intRoomID . "%" . $TargetID . "%" . "fast" . "%")) {
  92. $x = rand(10000, 10000000);
  93. $y = rand(10000, 10000000);
  94. $p->snowBall($x, $y);
  95. echo "$Username threw a fastball.\n";
  96. }
  97. elseif (stripos($rawPack, "xt%sm" . "%" . $p->intRoomID . "%" . $TargetID . "%" . "card" . "%")) {
  98. $CardID = rand(1, 50);
  99. $p->sendMail($TargetID, $CardID);
  100. echo "$Username sent the target a random card.\n";
  101. }
  102. elseif (stripos($rawPack, "xt%sm" . "%" . $p->intRoomID . "%" . $TargetID . "%" . "sit" . "%")) {
  103. $p->sendFrame(17);
  104. echo "$Username is now sitting.\n";
  105. }
  106. elseif (stripos($rawPack, "xt%sm" . "%" . $p->intRoomID . "%" . $TargetID . "%" . "stop" . "%")) {
  107. $p->sendFrame(1);
  108. echo "$Username has stopped.\n";
  109. }
  110. elseif (stripos($rawPack, "xt%sm" . "%" . $p->intRoomID . "%" . $TargetID . "%" . "walk" . "%")) {
  111. $x = rand(0, 900);
  112. $y = rand(0, 900);
  113. $p->sendPosition($x, $y);
  114. echo "$Username walked at random coordinates.\n";
  115. }
  116. elseif (stripos($rawPack, "xt%sm" . "%" . $p->intRoomID . "%" . $TargetID . "%" . "color" . "%")) {
  117. echo "What color ID would you like your penguin to turn into? 1 = blue, 2 = green, 3 = pink, 4 = black, 5 = red, 6 = orange, 7 = yellow, 8 = purple, 9 = brown, 10 = peach, 11 = dark green, 12 is aqua (light blue), and 13 is lime green.\n";
  118. $colorID = trim(fgets(STDIN));
  119. $p->sendRawPacket("%xt%s%s#upc%" . $p->intRoomID . "%" . $colorID . "%");
  120. echo "$Username has changed colors.\n";
  121. }
  122. elseif (stripos($rawPack, "xt%sm" . "%" . $p->intRoomID . "%" . $TargetID . "%" . "room" . "%")) {
  123. echo "Which room ID would you like your penguin to join?\n";
  124. $RoomID = trim(fgets(STDIN));
  125. $p->joinRoom($RoomID);
  126. echo("$Username joined room ID: $RoomID\n");
  127. }
  128. elseif (stripos($rawPack, "xt%ss%". $p->intRoomID . "%" . $TargetID)) {
  129. $safeMessage = $p->stribet($rawPack, "%xt%ss" . "%" . $p->intRoomID . "%" . $TargetID . "%", "%");
  130. $p->sendSafe($safeMessage);
  131. echo "$Username has copied the target's safe message.\n";
  132. }
  133. elseif (stripos($rawPack, "xt%sl%". $p->intRoomID . "%" . $TargetID)) {
  134. $lineMessage = $p->stribet($rawPack, "%xt%sl" . "%" . $p->intRoomID . "%" . $TargetID . "%", "%");
  135. $p->sendLine($lineMessage);
  136. }
  137. elseif (stripos($rawPack, "xt%sq%". $p->intRoomID . "%" . $TargetID)) {
  138. $quickMessage = $p->stribet($rawPack, "%xt%sq" . "%" . $p->intRoomID . "%" . $TargetID . "%", "%");
  139. $p->sendQuick($quickMessage);
  140. echo "$Username has copied the target's quick message.\n";
  141. }
  142. elseif (stripos($rawPack, "xt%sm%" . $p->intRoomID . "%" . $TargetID)){
  143. $message = $p->stribet($rawPack, "%xt%sm%" . $p->intRoomID . "%" . $TargetID . "%", "%");
  144. $p->sendMessage($message);
  145. echo "$Username has copied the target's message.\n";
  146. }
  147. elseif (stripos($rawPack, "xt%se%". $p->intRoomID . "%" . $TargetID)) {
  148. $id = $p->stribet($rawPack, "%xt%se%" . $p->intRoomID . "%" . $TargetID . "%", "%");
  149. $p->sendEmote($id);
  150. echo "$Username has copied the target's emote.\n";
  151. }
  152. elseif (stripos($rawPack, "xt%sb%" . $p->intRoomID . "%" . $TargetID)) {
  153. $x = $p->stribet($rawPack, "%xt%sb%" . $p->intRoomID . "%" . $TargetID . "%", "%");
  154. $y = $p->stribet($rawPack, "%xt%sb%" . $p->intRoomID . "%" . $TargetID . "%". $x . "%", "%");
  155. $p->snowBall($x, $y);
  156. echo "$Username has thrown a snowball where the target did.\n";
  157. }
  158. elseif (stripos($rawPack, "xt%sa%" . $p->intRoomID . "%" . $TargetID)) {
  159. $id = $p->stribet($rawPack, "%xt%sa%" . $p->intRoomID . "%" . $TargetID . "%", "%");
  160. $p->sendAction($id);
  161. echo "$Username has copied the target's action.\n";
  162. }
  163. elseif (stripos($rawPack, "xt%sf%" . $p->intRoomID . "%" . $TargetID)) {
  164. $id = $p->stribet($rawPack, "%xt%sf%" . $p->intRoomID . "%" . $TargetID . "%", "%");
  165. $p->sendFrame($id);
  166. echo "$Username has copied the target's frame.\n";
  167. }
  168. elseif (stripos($rawPack, "xt%sj%". $p->intRoomID . "%" . $TargetID)) {
  169. $jokeMessage = $p->stribet($rawPack, "%xt%sj" . "%" . $p->intRoomID . "%" . $TargetID . "%", "%");
  170. $p->sendJoke($jokeMessage);
  171. sleep(8);
  172. echo "$Username has copied the target's joke.\n";
  173. }
  174. elseif (stripos($rawPack, "xt%at%" . $p->intRoomID . "%" . $TargetID)) {
  175. $p->openNewspaper();
  176. echo "$Username has opened the newspaper.\n";
  177. }
  178. elseif (stripos($rawPack, "xt%rt%" . $p->intRoomID . "%" . $TargetID)) {
  179. $p->closeNewspaper();
  180. echo "$Username has closed the newspaper.\n";
  181. }
  182. }
  183. ?>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement