#!/usr/bin/perl -w

use LWP::Simple;
use threads;



my ($user, $chan, $msg) = ($1, $2, $3);
#my $master = 'majo';
#my $master2 = 'Master';
#my $master3 = 'thom';
#my $time = localtime(time());
#my $clock1 = '';

my $pchan = "#sys-thx";

#my ($wtag,$monat,$tag,$alive,$jeahr)=split(/ /,$time);




my $alv = threads->create(sub { &alive;});
my $propthread = threads->create(sub { &propaganda;});
my $aktthread = threads->create(sub { &akt;});



sub akt{

$alv=fork();
while ($alv==0){
sleep 1;
if ($end > 2 *60){
foreach(@werb){
my @werb=quotemeta($_);
($delopch,$wer)=split(":",$_);
}
if ($wer eq "status"){
curtime();
privmsg($delopch, "virtuelle hilfskraft meldet: es ist $curt am $curd!");
}
if ($wer eq "on"){
@tiscr = ('ich bin eure persönliche assistentin für den chat!', 'meine befehle kannst du unter !hilfe abrufen', 'party leute, party!!!!!');
privmsg($_, "$tiscr[rand @tiscr]");
}
if ($wer eq "off"){
$alti=localtime();
print "-= ChannelWatcher ControlSystem - All systems working fine! $alti =-\n";
}
$end=0;
}
$end++;
}
}


sub alive(){
ret:
sleep (10 *60);
privmsg($pchan, "Alive Massage");
sleep(1);
goto ret;
}


sub propaganda(){
red:
sleep (39 *60);
foreach(@channels){
my @channels=quotemeta($_);
privmsg($_, "ChannelWatcher v3 out now! The new generation Channel-Control-Bot. For more Informations, contact the Projekt Manager 'majo' on channel '#sys-thx'!");
}
sleep(1);
goto red;
}



#privmsg($pchan, "Info: WerbeTest1");
##$alti=localtime();
##print "-= Sending Alive... - $alti =-\n";
#goto ret;