sorry for not including more code, i'll put that in now
the code given by wiredcode.com (the one that only has 1 line work, that i cant figure out) was given and is:
-----------------------------------------------------------
Screenname: SCREENNAME;
Password: PASSWORD;
Message;
Hello|Hi|Hey=exact>Hi! How are you?|Hello!;
Are you=>Yep.|Probably.|I dunno.|Nah.;
/Message;
Connect;
-----------------------------------------------------------
now the main perl one that i would want to enter the responses into is called on_im.pl, and it shows and area to enter the responses (if not a command), but i dont know what to put in or how. heres that code
-----------------------------------------------------------
################################
# WIRED BOTS
#
# on_im();
#
# desc: This sub is called when the bot recieves an IM.
# It first grabs AIM default vars.
# Then filters those vars
# Then checks to see if $victim is an idiot
# Then Checks to see if $msg is a command
# If not a command && not an idiot:
# It replies via the custom code (or command sub)
# Then logs the IM
# Then sleeps and sends
#
# recv: AIM's vars w/ $victim, $friend, and $msg as args.
# sends: either a warning, or a message.
################################
sub on_im {
($aim, $evt, $from, $to) = @_;
$args = $evt->args();
($victim, $friend, $msg) = @$args;
#filter $victim, make it lower case and remove spaces
$victim = lc($victim);
$victim =~ s/ //g;
# This Code creates formats $msg the way you (should) want it, without HTML.
$msg =~ s/<(.|\n)+?>//g;
#check against IDIOT LIST
my $idiot = idiots("$victim");
#if an idiot, warn and block him
if ($idiot != 1) {
#otherwise, continue
#check msg vs. list of commands.. call the commands sub
($isacommand,$reply) = commands($victim,$msg);
#if not a command..
if ($isacommand != 1) {
#custom code
#put what you want your bot to do here.
#its better to put it in a sub, so you can edit it later
easily.
#right now its set up to grab a thought from my database
$reply = thought();
#end custom code
}
#LOG this IM..
log_im($victim,$msg,$screenname,$reply);
#SLEEP & SEND!
sleep(dosleep(1,3));
$aim->send_im($victim, "$reply");
#print that the sleep is done..
print " done.\n\n";
}
}
1;
-----------------------------------------------------------
now it also says i could put it in a sub file, so that it would be easier to edit. if i were to, how would i do this?
thanks alot for your help and please respond and email responses to
aimbot1@hotmail.com
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.