HELP US, HELP YOU!

Bot Depot Forum Index -> Commands

Author	Message
M4RTIN Member Joined: 31 Dec 2004 Posts: 134	Posted: Sat Feb 26, 2005 12:38 pm    Post subject: wasnt happy with the sotry book, so i made this little upgrade, Hope it comes in usefull. Made a file called: 3word.pl In that put: Code: <br /><br />if ($msg eq "3word")<br /><br />{<br />      open (DATA, "./3word.txt");<br />      @line = <DATA>;<br />      close(DATA);<br />      $self->sendmsg("7(#) The 3 Word Story Game! (#)\n\n27@line");  <br />}<br /> Then close and save --------------- Now Make a file called: continue3word.pl Add this inside: Code: <br />if ($msg =~ /^c3word (.*) (.*) (.*)$/)<br />{<br />  open (DATA, ">>./3word.txt");<br />  print DATA "$1 $2 $3... ";<br />  close(DATA); <br /> &send($self, "[gBot] 27*lazy*ou continued the 3 word story with: '$1  $2 $3'");<br />}<br /> Then close and save --------------- Then finally, make a file called 3word.txt in the same directory as your bot.pl file. --------------- :ph34r: READ THIS PLEASE! :ph34r: Like I said, this is just a little addon, the thing that let's you put 3 words in need's somethign else in so you can only put 3 word's, i need help with that. PLEASE LEAVE A COMMENT
Back to top
mat007 Almost An Agent Joined: 12 Jan 2004 Posts: 1375 votes: 2	Posted: Sat Feb 26, 2005 1:10 pm    Post subject: Hmm maybe somat like: Code: <br />my $string = ($1);<br />my @words = qw( $string );<br />if(scalar(@words) < 3) {<br />print 'ok'; <br />} else {<br />print 'someone made a boo boo';<br />}
Back to top
M4RTIN Member Joined: 31 Dec 2004 Posts: 134	Posted: Sat Feb 26, 2005 1:12 pm    Post subject: Ill test, it look's good, thankyou very much!
Back to top
Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First

	Bot Depot Forum Index -> Commands	All times are GMT
Page 1 of 1