Lol, this is a funny little command, not sure why I made it.. I was a little bored.. Anyway, it is for AIM, and the format is ".voodoo (screenname) (action)". Replace screenname with the person that you "want to get revenge on" and replace action with either "glare", "tossrock", or "thrash". (Have red eyes glare at them, toss a rock at their head, or thrash them against the ground). Lol have fun!
voodoo.pl
Code:
sub voodoo {<br /><br />$msg =~ s/\.voodoo //ig;<br />($sn, $action) = split(/ /, $msg);<br /><br />if($action eq "glare"){<br />sleep(3);<br />$aim->send_im($sn, "<body bgcolor=black><font face='lucida console'><font color=red><font size=2>Two red eyes suddenly appear right in front of you, glaring at you. Could this be the work of voodoo?");<br />$reply = "Glared at $sn!";<br />}<br /><br />elsif($action eq "thrash"){<br />sleep(3);<br />$aim->send_im($sn, "<body bgcolor=black><font face='lucida console'><font color=red><font size=2>Your feet suddenly lift off the ground, and you are thrashed over and over onto the hard floor. Could this be the work of voodoo?");<br />$reply = "Thrashed $sn against the floor!";<br />}<br /><br />elsif($action eq "tossrock"){<br />sleep(3);<br />$aim->send_im($sn, "<body bgcolor=black><font face='lucida console'><font color=red><font size=2>A rock appears out of nowhere and is tossed at your head. Could this be the work of voodoo?");<br />$reply = "Tossed a rock at $sn\'s head!";<br />}<br /><br />else{<br />$reply = "Sorry, but that isn't a valid voodoo action! Try \".voodoo SCREENNAME glare\", \".voodoo SCREENNAME thrash\", or \".voodoo SCREENNAME tossrock\"! Don\'t forget to replace SCREENNAME with the screenname of the person who you want to do \"voodoo\" on!";<br />}<br /><br />return $reply;<br />}<br />1;