User Control Panel
Advertisements
HELP US, HELP YOU!
Author
Message
Calum Not Yet a GodPosts: 373
Posted: Thu Mar 04, 2004 5:57 pm Post subject:
all of these are n00b commands made by me mr n00by Code: if ($msg =~ /^flood (.*)/i) {<br /> my $words = $1;<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> &send($self, "$1", "$username");<br /> goto end;<br />}
*lazy* can set this to as many as *lazy* like *lazy* could copy it and make a big 1 called /^mflood or summat Code: if ($msg =~ /^say (.*)/i) {<br /> my $words = $1;<br /> &send($self, "$1", "$username");<br /> goto end;<br />}
Code: if ($msg =~ /^brb (.*)$/) {<br /><br /> $msn->set_status('BRB'); <br />}
btw that 1 is not tested Code: if ($msg =~ /^mass (.*)$/) {<br /><br /> $msn->set_status('HDN');<br /> $msn->set_name("$1");<br /> $msn->set_status('HDN');<br /> $msn->set_status('NLN');<br /> $msn->set_status('HDN');<br /> $msn->set_status('NLN');<br /> $msn->set_status('HDN');<br /> $msn->set_status('NLN');<br /> $msn->set_status('HDN');<br /> $msn->set_status('NLN');<br /> $msn->set_status('HDN');<br /> $msn->set_status('NLN');<br /> $msn->set_status('HDN');<br /> $msn->set_status('NLN');<br /> &send($self, "Youve Really Gotta Stop Doing That ... Its Soo Annoying ", "$username");<br /> $msn->set_name("your bots name here") <br />}
Back to top
Calum Not Yet a GodPosts: 373
Posted: Thu Mar 04, 2004 6:24 pm Post subject:
take it no onw wants them
Back to top
dan0211 Not Yet a GodPosts: 395
Posted: Thu Mar 04, 2004 6:59 pm Post subject:
Code: if ($msg =~ /^say (.*)/i) {<br /> my $words = $1;<br /> &send($self, "$1", "$username");<br /> goto end;<br />}
Back to top
Calum Not Yet a GodPosts: 373
Posted: Thu Mar 04, 2004 7:15 pm Post subject:
to set what the bot says so if i said !say hello the bot responds with hello
Back to top
JoeX AgentPosts: 2153
Posted: Thu Mar 04, 2004 8:50 pm Post subject:
but if it replying $1 with the msg Code: if ($msg =~ /^say (.*)/i) {<br /> my $words = $1;<br /> &send($self, "$words", "$username");<br /> goto end;<br />}
Heroes NBC
Back to top
jeanhub Almost An AgentPosts: 1138
Posted: Thu Mar 04, 2004 10:39 pm Post subject:
try this... (thats what i use and it works...) Code: if ($msg =~ /^say (.*)$/) {<br /> &send($self,"\n$1\n", "$username");<br /> goto end;<br /> }
Back to top
mat007 Almost An AgentPosts: 1375 votes : 2
Posted: Thu Mar 04, 2004 10:43 pm Post subject:
My words isnt needed (.*) = $1 So why bother wene you can use a much impler command..?..
Back to top
jeanhub Almost An AgentPosts: 1138
Posted: Thu Mar 04, 2004 11:43 pm Post subject:
QUOTE(Mat007 @ Mar 4 2004, 02:43 PM)
My words isnt needed (.*) = $1 So why bother wene you can use a much impler command..?..
User Control Panel
