MIRCX IRC Network
Would you like to react to this message? Create an account in a few clicks or log in to continue.
Search
 
 

Display results as :
 


Rechercher Advanced Search

Web Applications
install Joomla Wordpress Phpbb Drupal FluxBB PunBB osCommerce simple-machines MYBB moodle vBulletin Dolphin-v.7.1.1 PHPNUKE XOOPS
Services
install BorkNet Services X3 Services Anope Atheme Services Srvx IRC Srervices
IRCD
install Snircd IRCU INSPIRCD UNREAL Nefarious Bircd Bahamut Asuka Charybdis
TCL SCRIPT
TCL SCRIPT FOR EGGDROP Allprotection4.7 Antiproxy
Bots
Bots install FishBot bobot++ Eggdrop janus Omega Security Services Botnix Bopm SupyBot PyLink Hopm
Latest topics
» מדריך גירסה INSPIRCD V4
Spychan.tcl EmptySat Aug 05, 2023 2:09 am by Chief

» mIRCx IRC Network Config
Spychan.tcl EmptySat Jul 15, 2023 9:51 pm by Chief

» ircu2.10.12-pk with dnsbl
Spychan.tcl EmptyFri Mar 10, 2023 2:22 pm by Admin

» Guide install PyLink on New version FreeBSD
Spychan.tcl EmptyThu Dec 15, 2022 9:39 pm by Chief

» מדריך התקנה PBot על מערכת הפעלה FreeBsd-12
Spychan.tcl EmptyMon Dec 05, 2022 5:44 am by Chief

» install Nefarious2 && X3 IRC Services in FreeBsd
Spychan.tcl EmptySat Nov 12, 2022 3:12 pm by Chief

» help problem with adduser in Freebsd 12
Spychan.tcl EmptyFri Nov 11, 2022 9:06 pm by Chief

» מדריך פקודות והתקנה בסרביס X3
Spychan.tcl EmptyFri Oct 28, 2022 1:43 pm by Chief

» מדריך הגדרות WebIRC in Nefarious2
Spychan.tcl EmptyThu Apr 07, 2022 4:45 am by Chief

March 2024
MonTueWedThuFriSatSun
    123
45678910
11121314151617
18192021222324
25262728293031

Calendar Calendar

Affiliates
free forum

Affiliates
free forum


Spychan.tcl

Go down

Spychan.tcl Empty Spychan.tcl

Post  Chief Sun Sep 09, 2012 3:35 am

Spychan.tcl Script Build By
MeTroiD
Credit and thanks to MeTroiD
ok this script spychan you can some options
sign
join
part
split
KICK
action
mode
chat
pictures Script
Spychan.tcl D4656oqbzs2jzb85g212
the name code to Eggdrop.conf
Code:

source scripts/Spychan.tcl
the code
Code:

# Info
# Author : MeTroiD - #v1per on Quakenet
# Version: 1.2
set spy(author)  "MeTroiD - #v1per on Quakenet"
set spy(version) "1.2"

# Description

# This script will relay anything said on one channel to the other channel you configure
# I recommend you don't run this script on a bot that already has to do alot
# If the channel you're spying on has alot of users with alot of talking your bot could excess flood

# Configuration

# The channel it reports everything to
set spy(home) "#123"

# The channel it gets all the data from and then reports it to the homechannel
set spy(chan) "#mIRCx"

bind PUBM  -|- *                spychan:chat
bind CTCP  -|- "ACTION"        spychan:action
bind SIGN  -|- "$spy(chan) *"  spychan:sign
bind JOIN  -|- "$spy(chan) *"  spychan:join
bind PART  -|- "$spy(chan) *"  spychan:part
bind SPLT  -|- "$spy(chan) *"  spychan:split
bind KICK  -|- "$spy(chan) *"  spychan:kick
bind RAW    *  "MODE"          spychan:mode


proc spychan:part { nickname hostname handle channel reason } {
  global spy
  if {[string equal -nocase $channel $spy(chan)]} {
  putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname ($hostname) has left $spy(chan)"
  }
      }


proc spychan:join { nickname hostname handle channel } {
  global spy
  if {[string equal -nocase $channel $spy(chan)]} {
  putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname ($hostname) has joined $spy(chan)"
  }
      }

proc spychan:kick { nickname hostname handle channel target reason } {
  global spy
  if {[string equal -nocase $channel $spy(chan)]} {
  putserv "PRIVMSG $spy(home) :\[$channel\] * $target was kicked from $spy(chan) by $nickname ($reason)"
  }
      }

proc spychan:mode { from key arguments } {
  global spy
  set channel [string trim [lindex [split $arguments] 0]]
  set modechange [string trim [lindex [split $arguments] 1]]
  set victims [string trim [join [lrange [split $arguments] 2 end]]]

  set nickname [string trim [lindex [split $from "!"] 0]]
  set hostname [string trim [lindex [split $from "!"] 1]]
  if {[string equal -nocase $channel $spy(chan)]} {
  putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname sets mode: $modechange $victims"
  }
      }

proc spychan:sign { nickname hostname handle channel reason } {
  global spy
  if {[string equal -nocase $channel $spy(chan)]} {
  putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname ($hostname) has quit IRC ($reason)"
  }
      }

proc spychan:split { nickname hostname handle channel arguments } {
  global spy
  if {[string equal -nocase $channel $spy(chan)]} {
  putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname has split from the network"
  }
      }

proc spychan:chat { nickname hostname handle channel arguments } {
  global spy
  if {[string equal -nocase $channel $spy(chan)]} {
        putserv "PRIVMSG $spy(home) :\[$channel\] <$nickname> $arguments"
        }
      }
proc spychan:action { nickname hostname handle channel keyword arguments } {
  global spy
  if {[string equal -nocase $channel $spy(chan)]} {
        putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname $arguments"
        }
      }
putlog "Spychan.tcl version $spy(version) by $spy(author) Loaded!"
mIRCx the Community Old
Chief Or Dor
Enjoy
Chief
Chief
Admin

מספר הודעות : 268
Join date : 2011-12-09
מיקום : mIRCx IRC Network

Back to top Go down

Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum