[S] Teamspeak Reg BOT

[hammy]

ICh suche ein Teamspeak BOT in Perl coded ist der irgendein user Reggi gibt wenn er in den channel von dem bot joined.

Kennt einer von euch so was?

wäre es möglich einen irgendwo herzubekommen SOurce code oder so wo man selber was editieren kann?

Wäre cool wenn ihr weiterhelfen könnt. ^.^

Mit freundlich grüßen
Euer Hammy

[slaystation]

http://bot.2x.to/

guck mal da, hab mir den noch nicht genau angeguckt, aber er sollte sowas können

[hammy]

Danke für den link ich guck mir den mal an mal gucken was man damit alles machen kann

[ghost0cnc]

Du könntest die Perlmod anpassen und so einen Channel definieren, in dem dem User die entsprechenden Rechte gegeben werden.

[hammy]

Ja ok hmm nur ich kann nicht so gut Perl, Perlmod =( Könnte mir da nicht jemand helfen und den channelbot dann halt hier aufm board als freeware anbieten

[Mafio]

	  # auto registration channel
      if(!$player->{pprivs}->{registered} and !$player->{pprivs}->{allowed_reg} and $player->{c_id} eq (Hier Eintragen) {
        # grant player the right to register with server
        $ts2->execute("sppriv " . $player->{p_id} . " privilege_canregister 1");
        $player->sendMessage("Sie koennen Sich nun Registrieren.");
		  &log($log, "[RegiChannel] Player ".$player->{nick}." ".$player->getFlags()." kann sich nun Registrieren");
		  foreach my $player2 (@playerlist) {
            if($player2->{p_id} != $player->{p_id} && $player2->{pprivs}->{serveradmin}) {
              $player2->sendMessage($player->{nick}." ".$player->getFlags()." mit IP: ".$player->{ip}." kann sich nun Registrieren!");
             }
	       }
	     }

Füg das einfach unter

      # extended welcome message

ein und änder das "Hier Eintragen" in die Channel ID um. Find ich besser als mit dem Channel Namen, denn so können auch Sonderzeichen verwendet werden.

[hammy]

VIelen dank ich melde weiteres wenns perfekt ist