|
| Author |
Message |
Juzz
Senior Member
Joined: 28 Feb 2004
Posts: 190
Location: NSw, australia.
  
|
 Posted: Tue Mar 02, 2004 4:37 am Post subject: |
 |
|
Hey this is my first command its not to good......
record.pl
| Quote: | sub record
{
my ($bot, $self, $user, $msg, $time) = @_;
if ($msg ne '')
{
use Storable;
my $message = "\nE-Mail : $user\nMessage: $msg";
my $messages = retrieve('record.dat') if (-e 'record.dat');
my $num;
my $requests;
foreach my $key (sort (keys %{$messages}))
{
$num++;
$requests->{$num} = $messages->{$key};
}
$num = keys %{$requests};
$requests->{$num + 1} = $message;
store ($requests, 'record.dat');
return "Recorded! \n\n The admins will look at it after  ";
}
else
{
return "To record someone its \n\n!record without brackets \n not just ! record";
}
}
{
Category => 'Records',
Usage => 'record ',
Description => 'Add a record',
}; |
records.pl
| Quote: | sub records
{
my ($bot, $self, $user, $msg) = @_;
if (-e 'record.dat')
{
use Storable;
my $requests = retrieve('record.dat');
my $reply;
foreach my $key (sort (keys %{$requests}))
{
$reply .= $key . ":-" . $requests->{$key} . "\n";
}
chomp ($reply);
return $reply;
}
else
{
return "No Messages In Guestbook";
}
}
{
Category => 'Records',
Description => 'View records.',
}; |
delete.pl
| Quote: | sub delete
{
my ($bot, $self, $user, $msg) = @_;
if (-e 'record.dat')
{
use Storable;
my $requests = retrieve('record.dat');
if (defined $requests->{$msg})
{
delete $requests->{$msg};
if (keys %{$requests} == 0)
{
unlink "record.dat";
}
else
{
store ($requests,'record.dat');
}
return "Message \#$msg erased";
}
else
{
return "That record does not exist";
}
}
else
{
return "No record exist";
}
}
{
Category => 'Records',
Description => 'Delete a record',
}; |
*edited from devil-dawgs thingy* |
|
| Back to top |
|
 |
devil_dawg
Young One
Joined: 17 Feb 2004
Posts: 62
|
| Posted: Tue Mar 02, 2004 8:00 am Post subject: |
|
|
| Nice work. i feel this will help people leads. only the thing is delete should shorten it. |
|
| Back to top |
|
|
BraveHeart
Senior Member
Joined: 14 Jan 2004
Posts: 285
|
| Posted: Tue Mar 02, 2004 8:09 am Post subject: |
|
|
Im sure ive seen this command before in downloads
<_< |
|
| Back to top |
|
|
devil_dawg
Young One
Joined: 17 Feb 2004
Posts: 62
|
| Posted: Tue Mar 02, 2004 8:20 am Post subject: |
|
|
you have dude. my version. but it went Dead  so doesnt matter. im updateing mine. with my newer version (not this) |
|
| Back to top |
|
|
zander
God Like
Joined: 14 Jan 2004
Posts: 540
Location: england
|
| Posted: Tue Mar 02, 2004 3:40 pm Post subject: |
|
|
| hey dude erm isnt this just an edited version of the request help command? |
|
| Back to top |
|
|
BraveHeart
Senior Member
Joined: 14 Jan 2004
Posts: 285
|
| Posted: Tue Mar 02, 2004 3:58 pm Post subject: |
|
|
Looks like it
:rolleyes: |
|
| Back to top |
|
|
devil_dawg
Young One
Joined: 17 Feb 2004
Posts: 62
|
| Posted: Tue Mar 02, 2004 5:32 pm Post subject: |
|
|
| Thats what i said i think it does look like it lol |
|
| Back to top |
|
|
clcool
Senior Member
Joined: 02 Nov 2003
Posts: 171
|
|
| Back to top |
|
|
Juzz
Senior Member
Joined: 28 Feb 2004
Posts: 190
Location: NSw, australia.
|
| Posted: Wed Mar 03, 2004 12:53 am Post subject: |
|
|
WAIIIIIIIIIIIIIIIIIIIIIIIIIIT LOL
I copied the guestbook command lol notice? |
|
| Back to top |
|
|
Juzz
Senior Member
Joined: 28 Feb 2004
Posts: 190
Location: NSw, australia.
|
| Posted: Wed Mar 03, 2004 12:54 am Post subject: |
|
|
I think its alright for majour n00bality  |
|
| Back to top |
|
|
Juzz
Senior Member
Joined: 28 Feb 2004
Posts: 190
Location: NSw, australia.
|
| Posted: Thu Mar 04, 2004 1:41 am Post subject: |
|
|
Can I just say its
records.pl
| Quote: | sub records
{
my ($bot, $self, $user, $msg) = @_;
if (-e 'record.dat')
{
use Storable;
my $requests = retrieve('record.dat');
my $reply;
foreach my $key (sort (keys %{$requests}))
{
$reply .= $key . ":-" . $requests->{$key} . "\n";
}
chomp ($reply);
return $reply;
}
else
{
return "No records.";
}
}
{
Category => 'Records',
Description => 'View records.',
};
|
the other one was wrong |
|
| Back to top |
|
|
JoeX
Agent
Joined: 02 Jan 2004
Posts: 2153
|
| Posted: Sat Mar 06, 2004 11:08 am Post subject: |
|
|
isn't this keenie's help system?
_________________
Heroes NBC |
|
| Back to top |
|
|
Juzz
Senior Member
Joined: 28 Feb 2004
Posts: 190
Location: NSw, australia.
|
| Posted: Sun Mar 07, 2004 1:29 am Post subject: |
|
|
| Wtf? I dunno lol. Probably not....Its the guestbook thingy |
|
| Back to top |
|
|
WinterBot
Member
Joined: 17 Jan 2004
Posts: 108
|
| Posted: Sun Mar 07, 2004 2:18 pm Post subject: |
|
|
lol i figured it was guestbook since it said
"no more records in GUESTBOOK"
but good just anyways i like it |
|
| Back to top |
|
|
Juzz
Senior Member
Joined: 28 Feb 2004
Posts: 190
Location: NSw, australia.
|
| Posted: Sun Mar 07, 2004 7:56 pm Post subject: |
|
|
lol *lazy* I fixed that because I couldnt edit the first post  so I posted it again |
|
| Back to top |
|
|
|
User Control Panel
