rendered paste body
--------------
; X controlling script 0.3
; by Chris--
; the_sithlord@yahoo.com
; http://privat.schlund.de/cstaudenmayer/xcs/
; #joli on irc.undernet.org
; 1002133069
On *:LOAD: {
set %cpv 0.3
echo $color(normal text) -s \ Thank you for using X controlling script %cpv $+ ! /
}
On *:START: {
set %cpv 0.3
echo $color(normal text) -s \ 9,1un cadeau dedié par votre ami (coldice) /
echo $color(background) -s .
echo $color(normal text) -s > 9,1tres grand salut à toute l'equipe du chan #oeuf (chan de pret de eggdrop) vous êtes les meilleur(e)s.
echo $color(background) -s .
}
menu status {
-
X
.500
..Set
...AutoJoin
....On: msg x set $$?="Enter #channel name please" autojoin on
....Off: msg x set $$?="Enter #channel name please" autojoin off
...NoOp
....On: msg x set $$?="Enter #channel name please" noop on
....Off: msg x set $$?="Enter #channel name please" noop off
...StrictOp
....On: msg x set $$?="Enter #channel name please" strictop on
....Off: msg x set $$?="Enter #channel name please" strictop off
...-
...FloodPro: msg x set $$?="Enter #channel name please" floodpro $$?="Enter a value in the range of 0 - 7"
...Language: msg x set $$?="Enter #channel name please" lang $$?="Enter en for english, or other language"
...MassDeOpPro: msg x set $$?="Enter #channel name please" massdeoppro $$?="Enter a value in the range of 0 - 7"
..-
..Part: msg x part $$?="Enter #channel name please"
.450 - 499
..Set
...AutoTopic
....On: msg x set $$?="Enter #channel name please" autotopic on
....Off: msg x set $$?="Enter #channel name please" autotopic off
...UserFlags
....No Automode: msg x set $$?="Enter #channel name please" userflags 0
....Op Automode: msg x set $$?="Enter #channel name please" userflags 1
....Voice Automode: msg x set $$?="Enter #channel name please" userflags 2
...-
...Description: msg x set $$?="Enter #channel name please" description $$?="Enter a description of the channel. (Maximum is 80 characters)"
...Keywords: msg x set $$?="Enter #channel name please" keywords $$?="Enter some key words about the channel, enter no words to reset current"
...Mode: msg x set $$?="Enter #channel name please" mode
...Description: msg x set $$?="Enter #channel name please" url $$?="Enter the channel's homepage address"
..-
..Join: msg x join $$?="Enter #channel name please"
.400 - 449
..ModInfo
...AutoMode
....None: msg x modinfo $$?="Enter #channel name please" automode $$?="Enter username" none
....Op: msg x modinfo $$?="Enter #channel name please" automode $$?="Enter username" op
....Voice: msg x modinfo $$?="Enter #channel name please" automode $$?="Enter username" voice
...-
...Access: msg x modinfo $$?="Enter #channel name please" access $$?="Enter username" $$?="Enter the new access level"
..-
..AddUser: msg x adduser $$?="Enter #channel name please" $$?="Enter the username you want to add" $$?="Enter the access level you want the new user to have"
..ClearMode: msg x clearmode $$?="Enter #channel name please"
..RemUser: msg x remuser $$?="Enter #channel name please" $$?="Enter username"
.200
..Mask Kick: {
set %xcs01 $$?="Enter #channel name please"
set %xcs02 $$?="Enter *!*user@*.host"
set %xcs03 $?="Enter reason (may be left blank)"
if %xcs03 == $null msg x kick $chan %xcs02
else msg x kick %xcs01 %xcs02 %xcs03
}
..Status: msg x status $$?="Enter #channel name please"
.100 - 399
..Op: msg x op $$?="Enter #channel name please" $$?="Enter one or several nicks, seperated by spaces"
..DeOp: msg x deop $$?="Enter #channel name please" $$?="Enter one or several nicks, seperated by spaces"
..Invite X: msg x invite $$?="Enter #channel name please"
..Suspend: msg x suspend $$?="Enter #channel name please" $$?="Enter username" $$?="Enter duration (eg. 5 d for 5 days or 2 h for 2 hours or 15 m for 15 minutes)"
..UnSuspend: msg x unsuspend $$?="Enter #channel name please" $$?="Enter username"
.75 - 99
..Ban: {
set %xcs11 $$?="Enter #channel name please"
set %xcs12 $$?="Enter nick or *!*user@*.host"
set %xcs13 $$?="Enter duration (Max. 336 hours = 2 weks)"
set %xcs14 $$?="Enter level (1-74 = no ops; 75+ = total ban)"
set %xcs15 $?="Enter reason (may be left blank)"
if %xcs15 == $null msg x ban %xcs11 %xcs12 %xcs13 %xcs14
else msg x ban %xcs11 %xcs12 %xcs13 %xcs14 %xcs15
}
..UnBan: msg x unban $$?="Enter #channel name please" $$?="Enter nick or *!*user@*.host"
.50 - 74
..Kick: {
set %xcs21 $$?="Enter #channel name please"
set %xcs22 $$?="Enter nick"
set %xcs23 $?="Enter reason (may be left blank)"
if %xcs23 == $null msg x kick %xcs21 %xcs22
else msg x kick %xcs21 %xcs22 %xcs23
}
..Topic: msg x topic $$?="Enter #channel name" $$?="Enter new topic (Maximum 145 characters)"
.25 - 49
..Voice: msg x voice $$?="Enter #channel name please" $$?="Enter one or several nicks, seperated by spaces"
..DeVoice: msg x devoice $$?="Enter #channel name please" $$?="Enter one or several nicks, seperated by spaces"
.1 - 24
..Status: msg x status $$?="Enter #channel name please"
.0
..Access
...Username: msg x access $$?="Enter #channel name please" $$?="Enter username"
...-min: msg x access $$?="Enter #channel name please" -min $$?="Enter level"
...-max: msg x access $$?="Enter #channel name please" -max $$?="Enter level"
...-op: msg x access $$?="Enter #channel name please" -op
...-voice: msg x access $$?="Enter #channel name please" -voice
...-none: msg x access $$?="Enter #channel name please" -none
...-modif: msg x access $$?="Enter #channel name please" -modif
..Set Invisible
...On: msg x set invisible on
...Off: msg x set invisible off
..-
..BanList: echo -s This command can only be used in a channel.
..ChanInfo: msg x chaninfo $$?="Enter #channel name"
..Help: msg x help $?="Enter the command you want to learn something about."
..Info: msg x info $$?="Enter a username"
..LBanList: msg x lbanlist $$?="Enter #channel name please" $$?="Enter * for whole list or *!*user@*.host"
..Login: .msg x@channels.undernet.org login $$?="Enter your username" $$?*="Enter your password" | echo $timestamp Your request has been sent, awaiting answer...
..Motd: msg x motd
..NewPass: {
set %xcs31 $$?*="Enter your new password (case-sensitive, max. length is 50 characters)"
set %xcs32 $$?*="Please enter it again, for security reasons"
if (%xcs31 === %xcs32) {
.msg x@channels.undernet.org newpass %xcs32
echo $timestamp Your request has been sent, awaiting answer...
}
else {
echo 0,0 $+ $?!="The two entries didn't match!!! Try again."
echo 1,0 $+ The two entries didn't match!!! Try again.
}
}
..Search: msg x search $$?="Enter search parameter"
..ShowCommands: msg x showcommands $$?="Enter #channel name please"
..ShowIgnore: msg x showignore
..Verify: msg x verify $$?="Enter a nickname"
.Help
..About: run xcs.txt
..X Commands: run xcoms.txt
..-
..XCS Homepage: run http://privat.schlund.de/cstaudenmayer/xcs/
..Author's Homepage: run http://joli.fr.st
..eMail the author: run mailto:the_sithlord@yahoo.com?Subject=xcs_ $+ %cpv $+ _feedback
..Visit author's undernet channel: {
if undernet isin $server join #joli
else echo $timestamp (Visit author's undernet channel) You must be connected to an Undernet server to do this.
}
..-
..Uninstall: {
if $$?!="Are you sure you want to uninstall xcs %cpv $+ ?" == $true /unload -rs xcs.mrc
}
.About: run xcs.txt
}
menu channel {
-
X
.500
..Set
...AutoJoin
....On: msg x set $chan autojoin on
....Off: msg x set $chan autojoin off
...NoOp
....On: msg x set $chan noop on
....Off: msg x set $chan noop off
...StrictOp
....On: msg x set $chan strictop on
....Off: msg x set $chan strictop off
...-
...FloodPro: msg x set $chan floodpro $$?="Enter a value in the range of 0 - 7"
...Language: msg x set $$?="Enter #channel name please" lang $$?="Enter en for english, or other language"
...MassDeOpPro: msg x set $chan massdeoppro $$?="Enter a value in the range of 0 - 7"
..-
..Part: msg x part $chan
.450 - 499
..Set
...AutoTopic
....On: msg x set $chan autotopic on
....Off: msg x set $chan autotopic off
...UserFlags
....No Automode: msg x set $chan userflags 0
....Op Automode: msg x set $chan userflags 1
....Voice Automode: msg x set $chan userflags 2
...-
...Description: msg x set $chan description $$?="Enter a description of the channel. (Maximum is 80 characters)"
...Keywords: msg x set $chan keywords $$?="Enter some key words about the channel, enter no words to reset current"
...Mode: msg x set $chan mode
...Description: msg x set $chan url $$?="Enter the channel's homepage address"
..-
..Join: msg x join $chan
.400 - 449
..ModInfo
...AutoMode
....None: msg x modinfo $chan automode $$?="Enter username" none
....Op: msg x modinfo $chan automode $$?="Enter username" op
....Voice: msg x modinfo $chan automode $$?="Enter username" voice
...-
...Access: msg x modinfo $chan access $$?="Enter username" $$?="Enter the new access level"
..-
..AddUser: msg x adduser $chan $$?="Enter the username you want to add" $$?="Enter the access level you want the new user to have"
..ClearMode: msg x clearmode $chan
..RemUser: msg x remuser $chan $$?="Enter username"
.200
..Mask Kick: {
set %xcs02 $$?="Enter *!*user@*.host"
set %xcs03 $?="Enter reason (may be left blank)"
if %xcs03 == $null msg x kick $chan %xcs02
else msg x kick $chan %xcs02 %xcs03
}
..Status: msg x status $chan
.100 - 399
..Op: msg x op $chan $$?="Enter one or several nicks, seperated by spaces"
..DeOp: msg x deop $chan $$?="Enter one or several nicks, seperated by spaces"
..Invite X: msg x invite $chan
..Suspend: msg x suspend $chan $$?="Enter username" $$?="Enter duration (eg. 5 d for 5 days or 2 h for 2 hours or 15 m for 15 minutes)"
..UnSuspend: msg x unsuspend $chan $$?="Enter username"
.75 - 99
..Ban: {
set %xcs12 $$?="Enter nick or *!*user@*.host"
set %xcs13 $$?="Enter duration (Max. 336 hours = 2 weks)"
set %xcs14 $$?="Enter level (1-74 = no ops; 75+ = total ban)"
set %xcs15 $?="Enter reason (may be left blank)"
if %xcs15 == $null msg x ban $chan %xcs12 %xcs13 %xcs14
else msg x ban $chan %xcs12 %xcs13 %xcs14 %xcs15
}
..UnBan: msg x unban $chan $$?="Enter nick or *!*user@*.host"
.50 - 74
..Kick: {
set %xcs22 $$?="Enter nick"
set %xcs23 $?="Enter reason (may be left blank)"
if %xcs23 == $null msg x kick %xcs21 %xcs22
else msg x kick $chan %xcs22 %xcs23
}
..Topic: msg x topic $chan $$?="Enter new topic (Maximum 145 characters)"
.25 - 49
..Voice: msg x voice $chan $$?="Enter one or several nicks, seperated by spaces"
..DeVoice: msg x devoice $chan $$?="Enter one or several nicks, seperated by spaces"
.1 - 24
..Status: msg x status $chan
.0
..Access
...Username: msg x access $chan $$?="Enter username"
...-min: msg x access $chan -min $$?="Enter level"
...-max: msg x access $chan -max $$?="Enter level"
...-op: msg x access $chan -op
...-voice: msg x access $chan -voice
...-none: msg x access $chan -none
...-modif: msg x access $chan -modif
..Set Invisible
...On: msg x set invisible on
...Off: msg x set invisible off
..-
..BanList: msg x banlist $chan
..ChanInfo: msg x chaninfo $chan
..Help: msg x help $?="Enter the command you want to learn something about."
..Info: msg x info $$?="Enter a username"
..LBanList: msg x lbanlist $chan $$?="Enter * for whole list or *!*user@*.host"
..Login: .msg x@channels.undernet.org login $$?="Enter your username" $$?*="Enter your password" | echo $timestamp Your request has been sent, awaiting answer...
..Motd: msg x motd
..NewPass: {
set %xcs31 $$?*="Enter your new password (case-sensitive, max. length is 50 characters)"
set %xcs32 $$?*="Please enter it again, for security reasons"
if (%xcs31 === %xcs32) {
.msg x@channels.undernet.org newpass %xcs32
echo $timestamp Your request has been sent, awaiting answer...
}
else {
echo 0,0 $+ $?!="The two entries didn't match!!! Try again."
echo 1,0 $+ The two entries didn't match!!! Try again.
}
}
..Search: msg x search $$?="Enter search parameter"
..ShowCommands: msg x showcommands $chan
..ShowIgnore: msg x showignore
..Verify: msg x verify $$?="Enter a nickname"
.Help
..About: run xcs.txt
..X Commands: run xcoms.txt
..-
..XCS Homepage: run http://privat.schlund.de/cstaudenmayer/xcs/
..Author's Homepage: run http://joli.fr.st
..eMail the author: run mailto:the_sithlord@yahoo.com?Subject=xcs_ $+ %cpv $+ _feedback
..Visit author's undernet channel: {
if undernet isin $server join #joli
else echo $timestamp (Visit author's undernet channel) You must be connected to an Undernet server to do this.
}
..-
..Uninstall: {
if $$?!="Are you sure you want to uninstall xcs %cpv $+ ?" == $true /unload -rs xcs.mrc
}
.About: run xcs.txt
}
menu menubar {
-
X
.500
..Set
...AutoJoin
....On: {
if $chan == $null /msg x set $$?="Enter #channel name please" autojoin on
else msg x set $chan autojoin on
}
....Off: {
if $chan == $null /msg x set $$?="Enter #channel name please" autojoin off
else msg x set $chan autojoin off
}
...NoOp
....On: {
if $chan == $null /msg x set $$?="Enter #channel name please" noop on
else msg x set $chan noop on
}
....Off: {
if $chan == $null /msg x set $$?="Enter #channel name please" noop off
else msg x set $chan noop off
}
...StrictOp
....On: {
if $chan == $null /msg x set $$?="Enter #channel name please" strictop on
else msg x set $chan strictop on
}
....Off: {
if $chan == $null /msg x set $$?="Enter #channel name please" strictop off
else msg x set $chan strictop off
}
...-
...FloodPro: {
if $chan == $null msg x set $$?="Enter #channel name please" floodpro $$?="Enter a value in the range of 0 - 7"
else msg x set $chan floodpro $$?="Enter a value in the range of 0 - 7"
}
...Language: {
if $chan == $null msg x set $$?="Enter #channel name please" lang $$?="Enter en for english, or other language"
else msg x set $$?="Enter #channel name please" lang $$?="Enter en for english, or other language"
}
...MassDeOpPro: {
if $chan == $null msg x set $$?="Enter #channel name please" massdeoppro $$?="Enter a value in the range of 0 - 7"
else msg x set $chan massdeoppro $$?="Enter a value in the range of 0 - 7"
}
..-
..Part: {
if $chan == $null msg x part $$?="Enter #channel name please"
else msg x part $chan
}
.450 - 499
..Set
...AutoTopic
....On: {
if $chan == $null /msg x set $$?="Enter #channel name please" autotopic on
else msg x set $chan autotopic on
}
....Off: {
if $chan == $null /msg x set $$?="Enter #channel name please" autotopic off
else msg x set $chan autotopic off
}
...UserFlags
....No Automode: {
if $chan == $null /msg x set $$?="Enter #channel name please" userflags 0
else msg x set $chan userflags 0
}
....Op Automode: {
if $chan == $null /msg x set $$?="Enter #channel name please" userflags 1
else msg x set $chan userflags 1
}
....Voice Automode: {
if $chan == $null /msg x set $$?="Enter #channel name please" userflags 2
else msg x set $chan userflags 2
}
...-
...Description: {
if $chan == $null msg x set $$?="Enter #channel name please" description $$?="Enter a description of the channel. (Maximum is 80 characters)"
else msg x set $chan description $$?="Enter a description of the channel. (Maximum is 80 characters)"
}
...Keywords: {
if $chan == $null msg x set $$?="Enter #channel name please" keywords $$?="Enter some key words about the channel, enter no words to reset current"
else msg x set $chan keywords $$?="Enter some key words about the channel, enter no words to reset current"
}
...Mode: {
if $chan == $null /msg x set $$?="Enter #channel name please" mode
else msg x set $chan mode
}
...Description: {
if $chan == $null msg x set $$?="Enter #channel name please" url $$?="Enter the channel's homepage address"
else msg x set $chan url $$?="Enter the channel's homepage address"
}
..-
..Join: {
if $chan == $null msg x join $$?="Enter #channel name please"
else msg x join $chan
}
.400 - 449
..ModInfo
...AutoMode
....None: {
if $chan == $null msg x modinfo $$?="Enter #channel name please" automode $$?="Enter username" none
else msg x modinfo $chan automode $$?="Enter username" none
}
....Op: {
if $chan == $null msg x modinfo $$?="Enter #channel name please" automode $$?="Enter username" op
else msg x modinfo $chan automode $$?="Enter username" op
}
....Voice: {
if $chan == $null msg x modinfo $$?="Enter #channel name please" automode $$?="Enter username" voice
else msg x modinfo $chan automode $$?="Enter username" voice
}
...-
...Access: {
if $chan == $null msg x modinfo $$?="Enter #channel name please" access $$?="Enter username" $$?="Enter the new access level"
else msg x modinfo $chan access $$?="Enter username" $$?="Enter the new access level"
}
..-
..AddUser: {
if $chan == $null msg x adduser $$?="Enter #channel name please" $$?="Enter the username you want to add" $$?="Enter the access level you want the new user to have"
else msg x adduser $chan $$?="Enter the username you want to add" $$?="Enter the access level you want the new user to have"
}
..ClearMode: {
if $chan == $null msg x clearmode $$?="Enter #channel name please"
else msg x clearmode $chan
}
..RemUser: {
if $chan == $null msg x remuser $$?="Enter #channel name please" $$?="Enter username"
else msg x remuser $chan $$?="Enter username"
}
.200
..Mask Kick: {
if $chan == $null {
set %xcs01 $$?="Enter #channel name please"
set %xcs02 $$?="Enter *!*user@*.host"
set %xcs03 $?="Enter reason (may be left blank)"
if %xcs03 == $null msg x kick %xcs01 %xcs02
else msg x kick %xcs01 %xcs02 %xcs03
}
else {
set %xcs02 $$?="Enter *!*user@*.host"
set %xcs03 $?="Enter reason (may be left blank)"
if %xcs03 == $null msg x kick $chan %xcs02
else msg x kick $chan %xcs02 %xcs03
}
}
..Status: {
if $chan == $null msg x status $$?="Enter #channel name please"
else msg x status $chan
}
.100 - 399
..Op: {
if $chan == $null msg x op $$?="Enter #channel name please" $$?="Enter one or several nicks, seperated by spaces"
else msg x op $chan $$?="Enter one or several nicks, seperated by spaces"
}
..DeOp: {
if $chan == $null msg x deop $$?="Enter #channel name please" $$?="Enter one or several nicks, seperated by spaces"
else msg x deop $chan $$?="Enter one or several nicks, seperated by spaces"
}
..Invite X: {
if $chan == $null msg x invite $$?="Enter #channel name please"
else msg x invite $chan
}
..Suspend: {
if $chan == $null msg x suspend $$?="Enter #channel name please" $$?="Enter username" $$?="Enter duration (eg. 5 d for 5 days or 2 h for 2 hours or 15 m for 15 minutes)"
else msg x suspend $chan $$?="Enter username" $$?="Enter duration (eg. 5 d for 5 days or 2 h for 2 hours or 15 m for 15 minutes)"
}
..UnSuspend: {
if $chan = $null msg x unsuspend $$?="Enter #channel name please" $$?="Enter username"
else msg x unsuspend $chan $$?="Enter username"
}
.75 - 99
..Ban: {
if $chan == $null {
set %xcs11 $$?="Enter #channel name please"
set %xcs12 $$?="Enter nick or *!*user@*.host"
set %xcs13 $$?="Enter duration (Max. 336 hours = 2 weks)"
set %xcs14 $$?="Enter level (1-74 = no ops; 75+ = total ban)"
set %xcs15 $?="Enter reason (may be left blank)"
if %xcs15 == $null msg x ban %xcs11 %xcs12 %xcs13 %xcs14
else msg x ban %xcs11 %xcs12 %xcs13 %xcs14 %xcs15
}
else {
set %xcs12 $$?="Enter nick or *!*user@*.host"
set %xcs13 $$?="Enter duration (Max. 336 hours = 2 weks)"
set %xcs14 $$?="Enter level (1-74 = no ops; 75+ = total ban)"
set %xcs15 $?="Enter reason (may be left blank)"
if %xcs15 == $null msg x ban $chan %xcs12 %xcs13 %xcs14
else msg x ban $chan %xcs12 %xcs13 %xcs14 %xcs15
}
}
..UnBan: {
if $chan == $null msg x unban $$?="Enter #channel name please" $$?="Enter nick or *!*user@*.host"
else msg x unban $chan $$?="Enter nick or *!*user@*.host"
}
.50 - 74
..Kick: {
if $chan == $null {
set %xcs21 $$?="Enter #channel name please"
set %xcs22 $$?="Enter nick"
set %xcs23 $?="Enter reason (may be left blank)"
if %xcs23 == $null msg x kick %xcs21 %xcs22
else msg x kick %xcs21 %xcs22 %xcs23
}
else {
set %xcs22 $$?="Enter nick"
set %xcs23 $?="Enter reason (may be left blank)"
if %xcs23 == $null msg x kick %xcs21 %xcs22
else msg x kick $chan %xcs22 %xcs23
}
}
..Topic: {
if $chan == $null msg x topic $$?="Enter #channel name" $$?="Enter new topic (Maximum 145 characters)"
else msg x topic $chan $$?="Enter new topic (Maximum 145 characters)"
}
.25 - 49
..Voice: {
if $chan == $null msg x voice $$?="Enter #channel name please" $$?="Enter one or several nicks, seperated by spaces"
else msg x voice $chan $$?="Enter one or several nicks, seperated by spaces"
}
..DeVoice: {
if $chan == $null msg x devoice $$?="Enter #channel name please" $$?="Enter one or several nicks, seperated by spaces"
else msg x devoice $chan $$?="Enter one or several nicks, seperated by spaces"
}
.1 - 24
..Status: {
if $chan == $null msg x status $$?="Enter #channel name please"
else msg x status $chan
}
.0
..Access
...Username: {
if $chan == $null msg x access $$?="Enter #channel name please" $$?="Enter username"
else msg x access $chan $$?="Enter username"
}
...-min: {
if $chan == $null msg x access $$?="Enter #channel name please" -min $$?="Enter level"
else msg x access $chan -min $$?="Enter level"
}
...-max: {
if $chan == $null msg x access $$?="Enter #channel name please" -max $$?="Enter level"
else msg x access $chan -max $$?="Enter level"
}
...-op: {
if $chan == $null msg x access $$?="Enter #channel name please" -op
else msg x access $chan -op
}
...-voice: {
if $chan == $null msg x access $$?="Enter #channel name please" -voice
else msg x access $chan -voice
}
...-none: {
if $chan == $null msg x access $$?="Enter #channel name please" -none
else msg x access $chan -none
}
...-modif: {
if $chan == $null msg x access $$?="Enter #channel name please" -modif
else msg x access $chan -modif
}
..Set Invisible
...On: msg x set invisible on
...Off: msg x set invisible off
..-
..BanList: {
if $chan == $null echo -s This command can only be used in a channel.
else msg x banlist $chan
}
..ChanInfo: {
if $chan == $null msg x chaninfo $$?="Enter #channel name"
else msg x chaninfo $chan
}
..Help: msg x help $?="Enter the command you want to learn something about."
..Info: msg x info $$?="Enter a username"
..LBanList: {
if $chan == $null msg x lbanlist $$?="Enter #channel name please" $$?="Enter * for whole list or *!*user@*.host"
else msg x lbanlist $chan $$?="Enter * for whole list or *!*user@*.host"
}
..Login: .msg x@channels.undernet.org login $$?="Enter your username" $$?*="Enter your password" | echo $timestamp Your request has been sent, awaiting answer...
..Motd: msg x motd
..NewPass: {
set %xcs31 $$?*="Enter your new password (case-sensitive, max. length is 50 characters)"
set %xcs32 $$?*="Please enter it again, for security reasons"
if (%xcs31 === %xcs32) {
.msg x@channels.undernet.org newpass %xcs32
echo $timestamp Your request has been sent, awaiting answer...
}
else {
echo 0,0 $+ $?!="The two entries didn't match!!! Try again."
echo 1,0 $+ The two entries didn't match!!! Try again.
}
}
..Search: msg x search $$?="Enter search parameter"
..ShowCommands: {
if $chan == $null msg x showcommands $$?="Enter #channel name please"
else msg x showcommands $chan
}
..ShowIgnore: msg x showignore
..Verify: msg x verify $$?="Enter a nickname"
.Help
..About: run xcs.txt
..X Commands: run xcoms.txt
..-
..XCS Homepage: run http://privat.schlund.de/cstaudenmayer/xcs/
..Author's Homepage: run http://joli.fr.st
..eMail the author: run mailto:the_sithlord@yahoo.com?Subject=xcs_ $+ %cpv $+ _feedback
..Visit author's undernet channel: {
if undernet isin $server join #joli
else echo $timestamp (Visit author's undernet channel) You must be connected to an Undernet server to do this.
}
..-
..Uninstall: {
if $$?!="Are you sure you want to uninstall xcs %cpv $+ ?" == $true /unload -rs xcs.mrc
}
.About: run xcs.txt
}
menu nicklist {
-
X
.Op $$1: msg x op $chan $$1 $2 $3
.DeOp $$1: msg x deop $chan $$1 $2 $3
.Voice $$1: msg x voice $chan $$1 $2 $3
.DeVoice $$1: msg x devoice $chan $$1 $2 $3
.-
.Kick $$1 from $chan: msg x kick $chan $$1 $?="Enter a reason (may be left blank)"
.Ban $$1 from $chan: msg x ban $chan $$1 $$?="Enter duration (in hours, max. is 336 hours = 2 weeks)" $$?="Enter level (1-74 = no ops; 75+ = total ban; max. is your own access level)" $?="Enter a reason (may be left blank)"
.-
.Info: msg x info = $+ $$1
.Verify $$1: msg x verify $$1
.Show $$1 $+ 's Access in $chan: msg x access $chan = $+ $$1
.-
.AddUser: msg x adduser $chan = $+ $$1 $$?="Enter the access level you want the new user to have."
.RemUser: if $$?!="Are you sure you want to remove $$1 from $chan $+ 's userlist?" == $true msg x remuser $chan = $+ $$1
.-
.Suspend $$1 from $chan $+ 's userlist: msg x suspend $chan = $+ $$1 $$?="Enter duration (eg. 5 d for 5 days or 2 h for 2 hours or 15 m for 15 minutes)"
.UnSuspend $$1: msg x unsuspend $chan = $+ $$1
}
-------------------
; ((((( Anti clones )))))
;
off ^1:JOIN:#:{ if ($ialchan($address($nick,2),$chan,0) >= 2) { /gline $nick ScanDetect: Par Mesure de Protect Votre Ip Qui Es Cloner 2x Es Refuser Sur le Serveur }
}
---------------------
; made for mIRC 5.9 (32 bits) by Vanguard
; http://vanguard.bubix.net | vanguard@bubix.net
; userlist / levels: shitlist: 50 | | autovoice: 100 | autoop: 150 | protect list: 999
on ^1:join:*: {
if ($nick == $me) return
if ($me isop #) {
if (# isin $ulist($nick).info) || ($ulist($nick).info == $null) && ($level($fulladdress) == 50) { .quote KICK $chan $nick :4(G-Lined By Mafia[D]4)) Scan Detected: Open Proxy/Spam.exe Not Allowed Here!! T Pas Un Bot /msg mafia[d] | .raw MODE $chan -o+b $nick $address($nick,2) } }
if (# isin $ulist($nick).info) || ($ulist($nick).info == $null) && ($level($fulladdress) == 100) { .raw MODE $chan +v $nick }
if (# isin $ulist($nick).info) || ($ulist($nick).info == $null) && ($level($fulladdress) == 150) { .raw MODE $chan +o $nick }
}
on *:kick:*:if (# isin $ulist($knick).info) || ($ulist($knick).info == $null) && ($level($ulist($address($knick,5))) == 999) { .raw MODE $chan -o+b $nick $address($nick,2) | .quote BAN $chan $nick :protected user was kicked by you! }
alias userlist if ($dialog(ulist)) { dialog -v ulist } | else dialog -m ulist userlist
alias -l user.new if ($1) { userlist | did -rac ulist 2 $1- | did -c ulist 6 1 | did -e ulist 9 }
dialog userlist {
title "userlist"
size -1 -1 250 170
icon $mircexe, 0
option dbu
button "close",999,215 154 30 10,ok
box "hostmask",1,5 3 240 25
combo 2,10 12 230 50, drop size edit
box "users list",3,5 30 240 65
list 4,10 39 230 50, size vsbar autovs sort
box "levels",5,5 97 240 25
combo 6,10 106 230 50, drop size
box "channels (separated by commas, leave blank to all)",7,5 124 240 25
edit "",8,10 133 230 10, autohs
button "add",9,5 154 30 10, default disable
button "delete",10,37 154 30 10, disable
button "update",11,69 154 30 10, disable
}
alias -l get.users var %u = 1 | var %user.tmp = $ulist(*,%u) | while (%user.tmp != $null) { var %user.tmp = $ulist(*,%u) | if (%user.tmp != $null) { did -a ulist 4 %user.tmp } | inc %u }
alias -l drop.lines did -ra ulist 6 normal (1) | did -a ulist 6 shitlist (50) | did -a ulist 6 auto-voice (100) | did -a ulist 6 auto-op (150) | did -a ulist 6 protected user (999)
on *:dialog:ulist:init:*:get.users | drop.lines
on *:dialog:ulist:sclick:*:{
if ($did == 4) { did -rac ulist 2 $did(4).seltext | var %user.info = $level($did(4).seltext) | if (%user.info == 1) { did -c ulist 6 1 } | if (%user.info == 50) { did -c ulist 6 2 } | if (%user.info == 100) { did -c ulist 6 3 } | if (%user.info == 150) { did -c ulist 6 4 } | if (%user.info == 999) { did -c ulist 6 5 } | if ($ulist($did(4).seltext).info != $null) { did -ra ulist 8 $ulist($did(4).seltext).info } | else { did -r ulist 8 } }
if ($did == 9) { .auser $iif($did(6).sel < 4,$iif($did(6).sel > 1,$calc(($ifmatch -1) * 50),1),999) $$did(ulist,2).text $did(ulist,8).text | did -a ulist 4 $did(2).text | did -r ulist 2,8 | did -u ulist 6 }
if ($did == 10) { .ruser $$did(4).seltext | did -d ulist 4 $did(4).sel | did -r ulist 2 | did -u ulist 6 }
if ($did == 11) { .auser $iif($did(6).sel < 4,$iif($did(6).sel > 1,$calc(($ifmatch -1) * 50),1),999) $$did(ulist,2).text | .iuser $$did(ulist,2).text $did(ulist,8).text | did -r ulist 2,8 | did -u ulist 4,6 }
if ($did(2).text == $null) { did -b ulist 9 } | else { did -e ulist 9 }
if ($did(4).seltext == $null) { did -b ulist 10,11 } | else { did -e ulist 10,11 }
if ($did(6).sel == $null) { did -b ulist 9,11 }
if ($did(2).text isin $didtok(4)) { did -b ulist 9 }
}
on *:dialog:ulist:edit:2:if ($did(2).text == $null) || ($did(2).text isin $didtok(4)) { did -b ulist 9 } | if ($did(2).text != $null) && ($did(2).text !isin $didtok(4)) { did -e ulist 9 | if ($did(6).sel == $null) { did -c ulist 6 1 } }
alias _a return $address($1,$2)
menu menubar,channel,status {
-
userlist:userlist
}
menu nicklist {
-
userlist
.view userlist:userlist
.$iif($1 != $me,$iif($ulist($_a($$1,5)) != $nulll,rem $1,add $1)):if ($ulist($_a($1,5))) { .ruser $ifmatch } | else user.new $iif($_a($1,5) != $null,$_a($1,5),$1 $+ !*@*)
.-
.$iif($1 != $me,$iif($level($_a($$1,5)) == 1,1 (normal),$iif($level($_a($1,5)) == 50,50 (shitlisted),$iif($level($_a($1,5)) == 100,100 (auto voice),$iif($level($_a($1,5)) == 150,150 (auto op),$iif($level($_a($1,5)) == 999,999 (protected))))))):echo -a :n: $1 level is $iif($level($_a($1,5)) == 1,1 (normal),$iif($level($_a($1,5)) == 50,50 (shitlisted),$iif($level($_a($1,5)) == 100,100 (auto voice),$iif($level($_a($1,5)) == 150,150 (auto op),$iif($level($_a($1,5)) == 999,999 (protected))))))
.-
; yes, i know... i could use $iif($_a($1,5) != $null,$_a($1,5),$1 $+ !*@*) instead of $1 $+ !*@* but if i do it the user will have a new "entry" everytime he change it's userid, ip or host. so with the $1 $+ !*@* it has an universal wildmask! :P
.$iif($1 != $me,$iif($level($_a($$1,5)) != 1,normal (1))):.auser 1 $1 $+ !*@*
.$iif($1 != $me,$iif($level($_a($$1,5)) != 50,shilist (50))):.auser 50 $1 $+ !*@* | .raw MODE $chan -o+b $nick $address($nick,2) | .quote BAN # $1 :(G-Lined By Mafia[D]4)) Scan Detected: Open Proxy/Spam.exe Not Allowed Here!! T Pas Un Bot /msg mafia[d]
.$iif($1 != $me,$iif($level($_a($$1,5)) != 100,auto voice (100))):.auser 100 $1 $+ !*@* | .raw MODE # +v $1
.$iif($1 != $me,$iif($level($_a($$1,5)) != 150,auto op (150))):.auser 150 $1 $+ !*@* | .raw MODE # +o $1
.$iif($1 != $me,$iif($level($_a($$1,5)) != 999,protect (999))):.auser 999 $1 $+ !*@*
}
on *:load:clear -s | echo -s Thanks for trying out userlist script by Vanguard [PTnet] | echo -s contact: vanguard@bubix.net | echo -s website: http://vanguard.bubix.net | echo -s to open it: /userlist or use the menubar popup.
; eof...
-----------------------------
on *:text:!Besoin-Egg*:#: /notice /notice $nick 0,1[attend 1min svp] Un de nos op vous répondera sous-peu ( Des qu'il en aura un de D'isponible ) Merci de passianter | /msg $chan 0,1[Un Client A Besoin Daide ->] ( $+ $nick $+ ) a Taper !Besoin-Egg la raison de ca demande est ( $2- )
on *:text:!Besoin-bnc*:#: /notice $nick 0,1 [auto-msg] Un de nos op vous répondera sous-peu ( Des qu'il en aura un de D'isponible ) Merci de passianter | /msg $chan 0,1[Un Client A Besoin Daide ->] ] ( $+ $nick $+ ) a Taper !Besoin-bnc la raison de ca demande est ( $2- )
on *:text:!autre-choix*:#: /notice $nick 0,1 [auto-msg] Un de nos op vous répondera sous-peu ( Des qu'il en aura un de D'isponible ) Merci de passianter | /msg $chan 0,1[Un Client A Besoin Daide ->] ] ( $+ $nick $+ ) a Taper !autre-choix la raison de ca demande est ( $2- )
on *:text:!Besoin-Daide*:#: /notice $nick 0,1 [auto-msg] Un de nos op vous répondera sous-peu ( Des qu'il en aura un de D'isponible ) Merci de passianter | /msg $chan 0,1[Un Client A Besoin Daide ->] ] ( $+ $nick $+ ) a Taper !Besoin-daide la raison de ca demande est ( $2- )
on *:text:!plainte*:#: /notice $nick 0,1 [auto-msg] Un de nos op vous répondera sous-peu ( Des qu'il en aura un de D'isponible ) Merci de passianter | /msg $chan 0,1[Un Client A Besoin Daide ->] ] ( $+ $nick $+ ) a Taper plainte la raison de ca demande est ( $2- )
on *:text:!take*:#: /notice $nick 0,1 [auto-msg] Un de nos op vous répondera sous-peu ( Des qu'il en aura un de D'isponible ) Merci de passianter | /msg $chan 0,1[Un Client A Besoin Daide ->] ] ( $+ $nick $+ ) a Taper !take la raison de ca demande est ( $2- )
on *:text:!reop*:#: /notice $nick 0,1 [auto-msg] Un de nos op vous répondera sous-peu ( Des qu'il en aura un de D'isponible ) Merci de passianter | /msg $chan 0,1[Un Client A Besoin Daide ->] ] ( $+ $nick $+ ) a Taper !reop la raison de ca demande est ( $2- )
on *:text:!Abuse-flood*:#: /notice $nick 0,1 [auto-msg] Un de nos op vous répondera sous-peu ( Des qu'il en aura un de D'isponible ) Merci de passianter | /msg $chan 0,1[Un Client A Besoin Daide ->] ] ( $+ $nick $+ ) a Taper !Abuse-flood la raison de ca demande est ( $2- )
------------------------
on *:JOIN:#quebec:{ notice $nick ton.textmsg | notice $nick TextMsg-2 | notice $nick Textmsg-3 }
-------------------------
;===============================================
; Google Search v1.9 by kev <kevenroy@gmail.com>
;===============================================
on *:LOAD: {
if ($version < 6.03) {
.unload -rs $+(",$script,")
echo -ts Google Search v1.9 Requires mIRC v6.03 or newer to be installed successfully, script auto-unloaded.
}
else { echo -ts Google Search v1.9, Successfully loaded - Type /_google to configure. }
}
on *:UNLOAD: {
if ($timer(_google)) { .timer_google off }
unset %queue._google.*
hfree -w _google.*
echo -ts Google Search v1.9, Successfully unloaded.
}
on *:TEXT:*:#: { if ($_ban($+($nick,!,$address))) && ($_trigger($1)) { _input $chan $cid $nick $2- } }
on *:INPUT:#: { if ($_trigger($1)) { _input $chan $cid $nick $2- } }
on *:SOCKOPEN:_google.*: {
tokenize 32 $sock($sockname).mark
sockwrite -nt $sockname GET $+(/search?hl=en&q=,$_encode($6-),&num=,$4,&btnG=Search&meta=) HTTP/1.0
sockwrite -nt $sockname Accept-Language: en-us
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.4) Gecko/20070515 Firefox/2.0.0.4
sockwrite -nt $sockname Referer: http://www.google.com
sockwrite -nt $sockname Host: www.google.com
sockwrite -nt $sockname Connection: keep-alive
sockwrite -t $sockname $str($crlf,2)
}
on *:SOCKREAD:_google.*: {
if ($sockerr > 0) return
:nextread
sockread &x
if ($sockbr == 0) return
if ($bvar(&x, 1, 7).text == HTTP/1.) {
var %r $bvar(&x, 1, $calc($bfind(&x, 1, $cr) - 1)).text
if ($gettok(%r, 2, 32) != 200) && ($gettok(%r, 2, 32) != 302) {
_hadd $sockname error %r
_parse $sockname error $sock($sockname).mark
sockclose $sockname
return
}
}
hadd -mbu300 $sockname $_item($sockname) &x
if ($bfind(&x, 1, </html>)) { var %sn $sockname, %sm $sock(%sn).mark | sockclose $sockname | _main %sn %sm | return }
goto nextread
}
on *:SOCKCLOSE:_google.*: { _main $sockname $sock($sockname).mark | return }
;
; Main HTML Parsing Alias
;
alias -l _main {
var %i 1, %sn $1
bunset &x
while ($hget(%sn,%i).item) {
.echo -q $hget(%sn,%i,&x.d)
bcopy &x $calc($bvar(&x,0) + 1) &x.d 1 $bvar(&x.d,0)
inc %i
}
bunset &x.d
if ($hget(%sn)) { hfree %sn }
if ($bvar(&x,0) == 0) {
_hadd %sn error No data received on socket!
_parse %sn error $2-
sockclose %sn
return
}
tokenize 32 $2-
var %p = $bfind(&x, 1, <font size=-1>Results)
.echo -q $regex(one, $remove($bvar(&x, %p, 500).text, $cr, $lf), <font size=-1>Results .*? of about <b>(.[^ ]*)</b>.*?\((.*?) second.*?\) </font>)
if ($5 == 1) {
_hadd %sn results $_regexp($regml(one, 1))
_hadd %sn time $_regexp($regml(one, 2))
_parse %sn info $1-
}
var %i 1, %m $_ini(set, max)
while (%i <= %m) {
var %p = $calc($bfind(&x, %p, <!--m-->) + 1)
if ($regex(one, $remove($bvar(&x, %p, 400).text, $cr, $lf), <a .*?href="(.*?)".*?>(.*?)</a>)) {
var %p = $calc($bfind(&x, %p, <font size=-1>))
if (!$regex(four, $remove($bvar(&x, %p, 800).text, $cr, $lf), <font size=-1>(.*?)<nobr>)) { continue }
var %t = $regml(four, 1)
.echo -q $regex(two, $regml(four, 1), (.*?<b>...</b>|.*?\.)<.*?<span.[^>]+>(.*?)</span>)
.echo -q $regex(three, $regml(two, 2),.*? - (.*?) -(?: (.*?) -|))
var %size $iif($regml(three, 1),$ifmatch,n/a)
var %date $iif($regml(three, 2),$asctime($ctime($ifmatch),yyyy-mm-dd),n/a)
var %desc $iif($_regexp($regml(two, 1)),$ifmatch,n/a)
_hadd %sn num %i
_hadd %sn url $regml(one, 1)
_hadd %sn title $_regexp($regml(one, 2))
_hadd %sn desc %desc
_hadd %sn size %size
_hadd %sn date %date
_parse %sn result $1-
}
else {
if (%i == 1) { _parse %sn none $1- }
break
}
inc %i
}
}
;
; Main Input Alias
;
alias -l _input {
if (!$_chan($1)) || (!$_ini(set, online)) { return }
var %l 1, %i 1, %c 0
while (%i <= $calc($0 - 3)) {
var %m = $gettok($4-,%i,32)
if (($left(%m,2) iswm -l) && ($right(%m,-2) > 0)) { var %l $right(%m,-2) }
elseif (%m == -i) { var %c 1 }
else { break }
inc %i
}
var %t = $gettok($4-, $+(%i,-), 32)
if (!%t) {
_msg $1 $2 $3 3 $decode(Akdvb2dsZSBTZWFyY2ggdjEuOQIgYnkgTWVpaiA8bWVpamllQGdtYWlsLmNvbT4=,m)
_msg $1 $2 $3 3 $eval($decode(AlVzYWdlAjogJF9pbmkoc2V0LCB0cmlnZ2VyKSBbb3B0aW9uc10gPHNlYXJjaD4=,m),2)
_msg $1 $2 $3 3 $decode(Ak9wdGlvbnMCOg==,m)
_msg $1 $2 $3 3 $decode(AiACIAIgAiACIAJMaW1pdCBSZXN1bHRzOiAtbE4gKHdoZXJlIE4gaXMgdGhlIG51bWJlciBvZiByZXN1bHRzIHRvIGxpc3Qp,m)
_msg $1 $2 $3 3 $decode(AiACIAIgAiACIAJTZWFyY2ggSW5mbzogLWkgKGRpc3BsYXR5cyBzb21lIG1pc2Mgc2VhcmNoIGluZm8gd2l0aCByZXN1bHRzKQ==,m)
_msg $1 $2 $3 3 $eval($decode(AkV4YW1wbGU6AiAkX2luaShzZXQsIHRyaWdnZXIpIC1pIC1sMTAgbUlSQw==,m),2)
return
}
if ($_ini(set, max) < %l) { var %l $ifmatch }
; Format:
; 1 = channel the trigger was activated from
; 2 = network scid
; 3 = nickname of the person who activated it
; 4 = how many results to list (1, this is default)
; 5 = display misc search info (0 = off, 1 = on)
; 6 = search string
sockmark $_open $1 $2 $3 %l %c %t
}
;
; Queue Aliases
;
alias -l _msg {
set %queue._google. [ $+ [ $calc($_info(0) + 1) ] ] $1-
if (!$timer(_google)) { .timer_google -m 0 2000 _say }
}
alias -l _info {
if ($1 isnum) {
if (%queue._google. [ $+ [ $1 ] ]) && ($1 > 0) { return %queue._google. [ $+ [ $1 ] ] }
elseif ($1 == 0) { return $var(%queue._google.*) }
}
}
alias -l _say {
var %i 1
if (%queue._google. [ $+ [ %i ] ]) {
tokenize 32 %queue._google. [ $+ [ %i ] ]
scid $2
if ($3 ison $1) && ($me ison $1) && ($5) {
if ($4 == 1) { msg $1 $5- }
elseif ($4 == 2) { .msg $3 $5- }
else { .notice $3 $5- }
}
unset %queue._google. [ $+ [ %i ] ] | var %h $calc(%i + 1)
while (%queue._google. [ $+ [ %h ] ]) { set %queue._google. [ $+ [ $calc(%h - 1) ] ] %queue._google. [ $+ [ %h ] ] | unset %queue._google. [ $+ [ %h ] ] | inc %h }
}
else { .timer_google off }
}
;
; Socket Aliases
;
alias -l _open {
:name
var %s = $+(_google.,$md5($ticks))
if ($sock(%s)) { goto name }
if ($_ini(set, proxy)) {
if ($_ini(set, host)) && ($_ini(set, port)) { sockopen %s $_ini(set, host) $_ini(set, port) }
else { echo -ta [Server Googlr Search] Error: please specify a hostname and port number in the proxy settings }
}
else { sockopen %s www.google.com 80 }
return %s
}
;
; Misc Aliases
;
alias -l _ban {
var %i 1
while (%i <= $ini($scriptdirgoogle.set, ban, 0)) {
var %x = $readini($scriptdirgoogle.set, n, ban, $ini($scriptdirgoogle.set, ban, %i))
if ($1 isnum) && ($1 == %i) { return %x }
elseif (%x iswm $1) { return 0 }
inc %i
}
return $iif($1 == 0,$calc(%i - 1), 1)
}
alias -l _item {
var %i 1
while ($hget($1,%i).item) { inc %i }
return %i
}
alias -l _regexp {
var %i 1, %l quot 34|lt 60|lg 62|amp 38|nbsp 32, %m $1
while ($regex(regexp, %m, /(&#(\d{1,3});)/s)) { var %m = $replace(%m, $regml(regexp, 1), $chr($regml(regexp, 2))) }
.echo -q $regsub(%m, /<[^>]+>/g,, %m)
while (%i <= $gettok(%l,0,124)) {
var %t = $gettok(%l,%i,124)
.echo -q $regsub(%m, $+(/&,$gettok(%t,1,32),;/g), $chr($gettok(%t,2,32)), %m)
inc %i
}
.echo -q $regsub(%m, /&[^;]+;/g,, %m)
return $remove(%m, (show more), (WGA), (more), (view trailer))
}
alias -l _mode { return $iif($_ini(set, msgmode), $ifmatch, 1) }
alias -l _encode {
var %s, %p = $len($1-)
while (%p) {
if ($mid($1-,%p,1) isalnum) { %s = $+($ifmatch,%s) }
else { %s = $+(%,$base($asc($mid($1-,%p,1)),10,16),%s) }
dec %p
}
return %s
}
alias -l _ini {
if ($isid) { return $readini($scriptdirgoogle.set, n, $1, $$2) }
elseif ($3) { writeini $+(",$scriptdir,google.set,") $1 $2 $$3- }
else { remini $+(",$scriptdir,google.set,") $$1 $2 }
}
alias -l _trigger {
if ($1 == $_ini(set, trigger)) { return 1 }
return 0
}
alias -l _chan {
if ($_ini(set, all)) { return 1 }
var %i 1, %l $_ini(set, networks)
while (%i <= $gettok(%l, 0, 44)) {
var %n = $gettok(%l, %i, 44)
if (%n == $network) {
var %j 1
while (%j <= $gettok($_ini(set, $+(.,%n)), 0, 44)) {
var %c = $gettok($_ini(set, $+(.,%n)), %j, 44)
if (%c == $1) { return 1 }
inc %j
}
}
inc %i
}
}
;
; Output Parsing Aliases
;
alias -l _mini {
var %i 1, %l
while (%i <= $ini($scriptdirgoogle.set, $1, 0)) {
var %m = $ini($scriptdirgoogle.set, $1, %i)
if ($iif($3,$3-,*) iswm %m) { var %l = $addtok(%l, %m, 44) }
inc %i
}
var %l = $sorttok(%l, 44)
return $iif($2 == 0, $gettok(%l, 0, 44), $gettok(%l, $2, 44))
}
alias -l _hadd { hadd -mcu300 $1 $$2 $3- }
alias -l _codes {
var %i 1, %o $$1-, %r = $+(/&b\^/g 2|/&u\^/g 31|/&o\^/g 15|/&k\^/g 3|/&r\^/g 22)
while (%i <= $gettok(%r, 0, 124)) {
var %t = $gettok(%r, %i, 124)
.echo -q $regsub(%o, $gettok(%t, 1, 32), $iif($gettok(%t, 2, 32) isnum, $chr($ifmatch), $ifmatch), %o)
inc %i
}
return %o
}
alias -l _parse {
var %i 1, %m $+($2,_*), %s $3-
_hadd $1 chan $gettok(%s, 1, 32)
_hadd $1 nick $gettok(%s, 3, 32)
_hadd $1 limit $gettok(%s, 4, 32)
_hadd $1 search $gettok(%s, 6-, 32)
while (%i <= $_mini(outp, 0, %m)) {
var %e = $_mini(outp, %i, %m), %l = $_codes($_ini(outp, %e)), %j 1, %o %l
while (%j <= $hget($1, 0).item) {
.echo -q $regsub(%o, $+(/&,$hget($1, %j).item,\^/g), $hget($1, $hget($1, %j).item), %o)
inc %j
}
inc %i
if ($regex(%l, /&[^&]*?\^/g) != $regex(%o, /&[^&]*?\^/g)) {
.echo -q $regsub(%o,/&[^&]*?\^/g,n/a, %o)
_msg $gettok(%s, 1, 32) $gettok(%s, 2, 32) $gettok(%s, 3, 32) $_mode %o
}
}
if ($hget($1)) { hfree $1 }
}
;
; Dialog Stuff
;
alias _google { if (!$dialog(_google)) { dialog -m _google _google } }
alias -l _cmbload {
var %i 1
while (%i <= $gettok($_ini($3, $4),0,44)) {
did -a $1 $2 $gettok($_ini($3, $4),%i,44)
inc %i
}
}
alias -l _cmbsave {
var %i 1, %j
while ($did($1,$2,%i).text) {
var %j = $+($iif(%j,$+(%j,$chr(44))),$did($1,$2,%i).text)
inc %i
}
return %j
}
alias -l _replace { return $replace($$1-, $chr(2), &b^, $chr(31), &u^, $chr(15), &o^, $chr(3), &k^, $chr(22), &r^)) }
dialog _google {
title "Google Search - Settings [/_google]"
size -1 -1 190 102
option dbu
combo 5, 0 9 60 72, sort size
combo 1, 61 9 61 72, sort size
button "Done", 2, 74 93 37 9, ok cancel
edit "", 3, 127 37 60 10
text "Trigger:", 4, 127 30 20 7
text "Channels", 6, 80 1 23 7
text "Networks", 7, 18 1 24 7
button "Add", 8, 61 81 16 9
button "Rem", 9, 78 81 16 9
button "Add", 10, 0 81 16 9
button "Rem", 11, 17 81 16 9
check "All", 16, 106 81 17 10
check "Enable Script", 15, 128 48 46 9
combo 12, 127 19 60 43, size drop
box "Options", 13, 124 6 66 85
text "Message Mode", 14, 127 12 37 7
button "Ban List", 20, 127 59 60 9
button "Proxy Settings", 17, 127 69 60 9
button "Configure Output", 18, 127 79 60 9
}
dialog _google.proxy {
title "Google Search - Proxy Settings"
size -1 -1 164 19
option dbu
button "Done", 1, 62 10 37 9, ok cancel
text "Host:", 2, 0 1 14 8, right
edit "", 3, 15 0 102 10
text "Port:", 4, 118 1 13 8, right
edit "", 5, 132 0 31 10
check "Enabled", 6, 133 10 30 9
}
dialog _google.ban {
title "Google Search - Ban List"
size -1 -1 190 102
option dbu
combo 1, 1 1 188 92, size
button "Done", 2, 74 93 37 9, ok cancel
button "Add", 3, 0 93 16 9, default
button "Rem", 4, 17 93 16 9
}
dialog _google.output {
title "Google Search - Configure Output"
size -1 -1 190 102
option dbu
edit "", 1, 0 12 190 80, multi return autohs autovs vsbar
combo 2, 1 1 60 50, size drop
text "", 3, 136 3 51 8, hide
button "Done", 4, 74 93 37 9, ok cancel
}
on *:DIALOG:_google:*:*: {
if ($devent == init) {
if ($_ini(set, online)) { did -c $dname 15 }
did -a $dname 12 Channel
did -a $dname 12 Private
did -a $dname 12 Notice
did -c $dname 12 $iif($_ini(set, msgmode),$ifmatch,1)
did -ra $dname 3 $_ini(set, trigger)
_cmbload $dname 5 set networks
if ($_ini(set, all)) { did -c $dname 16 | did -b $dname 1,5,8,9,10,11 }
else { did -c $dname 5 1 }
if ($did($dname,5,1).text) {
_cmbload $dname 1 set . $+ $did($dname,5,1)
}
}
if ($devent == sclick) {
if ($did == 19) { run $did($dname,19).text }
if ($did == 17) { if (!$dialog(_google.proxy)) { dialog -ma _google.proxy _google.proxy } }
if ($did == 20) { if (!$dialog(_google.ban)) { dialog -ma _google.ban _google.ban } }
if ($did == 18) { if (!$dialog(_google.output)) { dialog -ma _google.output _google.output } }
if ($did == 12) { _ini set msgmode $did($dname,12).sel }
if ($did == 15) { _ini set online $did($dname,15).state }
if ($did == 16) {
_ini set all $did($dname,16).state
if ($did($dname,16).state == 1) {
did -u $dname 5
did -b $dname 1,5,8,9,10,11
}
else {
did -e $dname 1,5,8,9,10,11
if ($did($dname,5,1).text) {
did -c $dname 5 1
did -r $dname 1
_cmbload $dname 1 set . $+ $did($dname,5,1)
}
did -f $dname 5
}
}
if ($did == 5) && ($did($dname,5).sel isnum) {
did -r $dname 1
_cmbload $dname 1 set . $+ $did($dname,5,$did($dname,5).sel)
}
if ($did == 10) && (!$did($dname,5).sel) && ($did($dname,5).text) {
did -a $dname 5 $did($dname,5).text
did -c $dname 5 $did($dname,5).lines
_ini set networks $_cmbsave($dname,5)
did -r $dname 1
_cmbload $dname 1 set . $+ $did($dname,5).text
did -f $dname 5
}
if ($did == 11) && ($did($dname,5).sel isnum) {
var %s $did($dname,5).sel
did -d $dname 5 %s
_ini set networks $_cmbsave($dname,5)
did -r $dname 1
while (%s > 0) {
if ($did($dname,5,%s).text) {
did -c $dname 5 %s
_cmbload $dname 1 set . $+ $did($dname,5,%s)
break
}
dec %s
}
did -f $dname 5
}
if ($did == 8) && (!$did($dname,1).sel) && ($did($dname,1).text) && ($did($dname,5).seltext) {
var %t $did($dname,1).text
did -a $dname 1 $iif($left(%t,1) != $chr(35),$+($chr(35),%t),%t)
did -c $dname 1 $did($dname,1).lines
_ini set $+(.,$did($dname,5).seltext) $_cmbsave($dname,1)
did -f $dname 1
}
if ($did == 9) && ($did($dname,1).sel isnum) {
var %s $did($dname,1).sel
did -d $dname 1 %s
_ini set $+(.,$did($dname,5).seltext) $_cmbsave($dname,1)
while (%s > 0) {
if ($did($dname,1,%s).text) {
did -c $dname 1 %s
break
}
dec %s
}
did -f $dname 1
}
}
if ($devent == close) {
if ($did($dname,3).text) { _ini set trigger $iif($gettok($did($dname,3).text, 1, 32),$ifmatch,!google) }
}
}
on *:DIALOG:_google.proxy:*:*: {
if ($devent == init) {
did -a $dname 3 $_ini(set, host)
did -a $dname 5 $_ini(set, port)
if (!$_ini(set, proxy)) || (!$_ini(set, host)) || (!$_ini(set, port)) { did -b $dname 3,5 }
else { did -c $dname 6 }
}
elseif ($devent == sclick) {
if ($did == 6) {
_ini set proxy $did($dname,6).state
if ($did($dname,6).state == 1) { did -e $dname 3,5 }
else { did -b $dname 3,5 }
}
}
elseif ($devent == close) {
_ini set host $did($dname,3).text
_ini set port $did($dname,5).text
}
}
on *:DIALOG:_google.ban:*:*: {
if ($devent == init) {
var %i 1
while (%i <= $_ban(0)) {
did -a $dname 1 $_ban(%i)
inc %i
}
}
elseif ($devent == sclick) {
if ($did == 3) && ($did($dname, 1).text) {
did -a $dname 1 $did($dname, 1).text
did -c $dname 1 $did($dname,1).lines
did -f $dname 1
}
if ($did == 4) && ($did($dname, 1).sel) {
var %s $did($dname, 1).sel
did -d $dname 1 %s
while (%s > 0) {
if ($did($dname,1,%s).text) {
did -c $dname 1 %s
break
}
dec %s
}
did -f $dname 1
}
else { did -f $dname 1 }
}
elseif ($devent == close) {
_ini ban
var %i 1
while (%i <= $did($dname, 1).lines) {
_ini ban %i $did($dname, 1, %i)
inc %i
}
}
}
on *:DIALOG:_google.output:*:*: {
if ($devent == init) {
did -r $dname 1,2,3
did -a $dname 2 Result
did -a $dname 2 Info
did -a $dname 2 None
did -a $dname 2 Error
did -c $dname 2 1
var %i 1, %n $_mini(outp, 0, result_*)
while (%i <= %n) {
var %s = $_mini(outp, %i, result_*)
var %o = $+(%o,$_ini(outp, %s),$iif(%i != %n,$crlf))
inc %i
}
did -a $dname 1 %o
did -j $dname 1
did -c $dname 1 1
did -a $dname 3 $did($dname, 2).text
}
if (($devent == sclick) && ($did == 2) && ($did($dname, 1).edited)) || (($devent == close) && ($did($dname, 1).edited)) {
var %m = $+($lower($did($dname, 3).text),_*)
var %i 1
while (%i <= $_mini(outp, 0, %m)) {
_ini outp $_mini(outp, %i, %m)
inc %i
}
var %i 1
while (%i <= $did($dname, 1).lines) {
var %m = $+($lower($did($dname, 3).text),_,%i)
var %t = $did($dname, 1, %i).text
if (%t) {
_ini outp %m $_replace(%t)
inc %i
}
else { did -d $dname 1 %i }
}
}
if ($devent == sclick) {
if ($did == 2) {
did -ra $dname 3 $did($dname, 2).text
did -r $dname 1
var %i 1, %n $_mini(outp, 0, $+($did($dname,2).seltext,_*))
while (%i <= %n) {
var %s = $_mini(outp, %i, $+($did($dname,2).seltext,_*))
var %o = $+(%o,$_ini(outp, %s),$iif(%i != %n,$crlf))
inc %i
}
did -a $dname 1 %o
did -j $dname 1
did -c $dname 1 1
}
}
}
---------------------------------
Query:/query $$1
-
Personal stuffs-
.&Whois:/whois $1
.&UCentral:/uwho $1
.&Ping:/ctcp $$1 ping
.&Version:/ctcp $$1 version
.&time:/ctcp $$1 time
.&DNS (IP):/set %dnso 2 | /dns $*
.&Ignore
..&CTCP's:/ignore -t $1 3 | /echo 2 $active « 13 %nnick 2 has been 4ignored2 » | /beep 4 50
..&Messages:/ignore -p $1 3
..&Notices:/ignore -n $1 3
..&Channels:/ignore -c $1 3
..-
..&Timed:/ignore -u $+ $?="Ignore for how many time ?! (in secs)" $1 3 | /notice $$1 2U have been ignored for 44 $+ $! secs %logo
..&Definitly:/ignore $1 3 | /notice $me $$1 has been definitly ignored | /notice $$1 2U have been ignored 44Definitly 2 " $$?="Enter Reason" "
..-
..&Remove:/ignore -r $$1 3 | /notice $me has removed $$1 from tha ignore list
.&Invite:/invite $$1 $$?="EnteR CHannel"
.-
.&Messages
..&Private Message:/msg $$1 $$?="Enter Message"
..&Notice Message:/notice $$1 $$?="Enter Message"
..-
..&MassNotice:/notice # $?="Enter msg to all channel"
..&MsgOnlyOPs:/omsg
..&Msg Only Voiced:/vmsg
..Msg Non Ops:/nopmsg
.-
.&Notify
..&Add:/notify $*
..&Remove:/notify $*
..-=- ?? -=-:/notify $$?="Enter Nickname to Add/Remove
.Page/Msg:/ctcp $1 PAGE $$?="Enter Message:"
.-
.Op msgs
..message Ops:/omsg
..notice Ops:/onotice
.-
.&Channel Modes
..&Invite only
...&On:/mode # +i
...&Off:/mode # -i
..&Limit to
...- ?? -:/mode # +l $$?="Enter Limit"
...&Off:/mode # -l
..&Private
...&On:/mode # +p
...&Off:/mode # -p
..&Secret
...&On:/mode # +s
...&Off:/mode # -s
..&Moderated
...&On:/mode # +m
...&Off:/mode # -m
..&External msgs
...&On:/mode # +n
...&Off:/mode # -n
..&Lock Topic
...&On:/mode # +t
...&Off:/mode # -t
..-
..&Global Modes
...+tn:/mode # +tn
...+stn:/mode # +stn
...+stni:/mode # +stni
.-
.&joke Controls
..&joke op:/mode # +o-o $$1 $$1
..&joke Voice:/mode # +v-v $$1 $$1
..&joke Kick:/me 3 $+ $$1 was kicked by $me ( $+ $$?="Enter reason" $+ )
..&joke Ban:/me 3 $+ $me sets mode: +b $$?="Enter IP (ex: *!*what@ever.com )"
-
Helper
.Annonce:/say Ceci est le helper add-Ons par 5c2o4l7d12_11i9c14e
.-
.split:/say $1 Un split c'est une separation entre serveurs. Le reseau IRC est constitue de plusieurs serveurs relies entre eux , si le reseau se coupe en 2 , les gens se retrouvent separes en 2 groupes. | $1 Ainsi , a chaque rupture de reseau , chaque groupe voit partir les personnes qui sont de l'autre cote et vice versa. | $1 Les causes de ces coupures sont diverses: disfonctionnement, lenteur du reseau (LAG) , maintenance etc. (split (mot anglais) signifie dire cassure , separation)
.-
.oeuf
..id nor:/say $1 pour t'identifier tu dois faire 4/msg (egg nick) id (ton pass)
..id host:/say $1 c'est que fortement t'as changer de host pour cela tu dois faire 4/msg (egg nick) id (ton pass) (ton nick) | /say $1 apres tu t'identifi 4/msg (egg nick) id (ton pass) | /say $1 pour le nick tu dois faire le nick avec lequel t'as eu access
..demande:/say $1 l'adresse de la page est la suivante http://www.oeuf.fr.st/ | /say inscris toi dans la liste des demandes , ce sera traité aussi vite que possible | /say $1 Canaux refusés : Warez, Child porn, MP3 ainsi que tout canal considéré comme illégal par Undernet | /say $1 pour tout placement , il faut patienter entre 24 et 48 heures - aucun placement n'est fait immédiatement ( 10 users réguliers pour le chan )
..verif:/say $1 va voir sur le site ( verifier vos demandes ) ecris le nom de ton chan avec le # devant
..etre-help:/say $1 pour devenir un helper sur le chan #oeuf tu dois avant tout remplir un formulaire sur la page http://oeuf.fr.st/admission
.-
.Basic
..Joindre:/say $$1 : Pour joindre un canal fait /join #canal
..Partir:/say $$1 : Pour partir d'un canal fait /part #canal
..Quitter:/say $$1 : Pour quitter un serveur fait /quit raison
..-
..Ignorer:/say $$1 : Pour ignorer une personne fait /ignore nick
..Notifier:/say $$1 : Pour ajouter une personne en notify list fait /notify nick un message
..-
..Notice:/say $$1 : Pour faire une notice fait /notice nick ou #canal un message
..Message:/say $$1 : Pour envoyer un message fait /msg nick ou #lanal un message
..Action:/say $$1 : Pour faire une action fait /me un message
..Message(A):/say $$1 : Pour envoyer un message sur tous les canaux fait /amsg #canal un message
..Action(A):/say $$1 : Pour faire une action dans tous les canaux fait /ame un message
..-
..Topic:/say $$1 : Mettre un Topic fait /topic #canal un message
..Mode:/say $$1 : Changer un mode d'un canal fait /mode #canal +/-lpsmntlk une variable
..Kicker:/say $$1 : Pour kicker fait /kick #canal nick raison
..Bannir:/say $$1 : Pour bannir fait /ban #canal nick/host
..Oper:/say $$1 : Pour mettre kelkun OP fait /mode #canal +o nick
..Deoper:/say $$1 : Pour enlever un OP fait /mode #canal -o nick
..Voicer:/say $$1 : Pour mettre un voice fait /mode #canal +v nick
..Devoice:/say $$1 : Pour enlever un voice fait /mode #canal -v nick
..-
..Priver:/say $$1 : Pour allez en priver fait /query nick un message
..DCC CHAT:/say $$1 : Pour un DCC Chat fait /dcc chat nick
..DCC SEND:/say $$1 : Pour un DCC Send fait /dcc send nick fichier
.Complex
..timer:/say $$1 : Pour créé un timer fait (X = nombre de fois) (Y = Temps entre chaque en secondes) (Z = numéro du timer) /timerZ X Y /commande (ex: timer1 2 50 /say Allo!)
..Echo:/say $$1 : Apparaitre un texte a l'interne faite /echo message
..Say:/say $$1 : La commande say équivaut a msg, mais s'action seulement dans la fenêtre active, faite /say message
..Away:/say $$1 : Pour se mettre away fait /away raison et pour l'enlever /away
..Server:/say $$1 : Pour se connecter sur un server fait /server adresse port (ex: /server chat.infinit.net 6667)
.ON commandes
..TEXT:/say $$1 : Pour une capture de commande ou de text fait on *:text:un texte:# ou ? ou *: { commande }
..JOIN:/say $$1 : Pour une capture de quelqu'un qui join un canal fait on *:join:#canal: { commande }
..PART:/say $$1 : Pour une capture de quelqu'un qui part d'un canal fait on *:part:#canal: { commande }
..START:/say $$1 : Pour une commande au démarrage de ton mirc fait on *:start: { commande }
..LOAD:/say $$1 : Pour une commande lors du chargement de ton add-ons fait on *:load: { commande }
..Explication:/say $$1 : Prend note ke # cé pour un canal ? un priver et * c'est pour partous.
.Définition
..Script:/say $$1 : Script n.m. Un mIRC modifier selon les caractérisqties d'un scripteur.
..Scripteur:/say $$1 : Scripteur (euse) n.m. Un type de programmeur qui change les caractéristiques d'un mIRC.
..Add-ONs:/say $$1 : Add-Ons (anglais) n.m. Un ajout de caractéristique partiel a un script mIRC.
..User@Host:/say $$1 : User@Host (Anglais) n.m. Identification alphanumétique (digital ou analogique) d'un individu de type nom@fournisseur.com
..DNS/IP:/say $$1 : DNS/IP (Abrévéation anglaise) n.m. Un moyen numérique en chiffre de donner un USER@HOST. (127.0.0.1 représente un IP/DNs interne a son ordinateur)
..Lamer:/say $$1 : Lamer (Anglais) n.m. Personne de faible connaissance en informatique, mais qui ce croit meilleur que tous. Une majoriter de c'est personne sont des gens de 12 à 18ans et traite eux même les autres de lamer ou de nerdz. Sinonyme; Nerdz
..Nerdz:/say $$1 : Nerdz (Anglais) n.m. Personne de faible connaissance en informatique, mais qui ce croit meilleur que tous. Une majoriter de c'est personne sont des gens de 12 à 18ans et traite eux même les autres de lamer ou de nerdz. Sinonyme; lamer
..Hacker:/say $$1 : Hacker (Anglais) n.m. Terme désignant une personne douer dans un domaine, tel que la Danse, la musique et l'informatique. Les Lamer ou Nerdz on tendeance a ce dire hacker. Les hacker sont des personne aidant leur domaine pour résoudre des problèmes et non d'en créé.
..Hacking:/say $$1 : Kacking (Anglais) verbe Terme utiliser par les lamers ou nerdz pour dire qui pirate sur internet, peut aussi désigner quelqu'un qui aide a sont domaine pour trouver une solution.
.Script pré-fait
..Ping Reply:{
.timer 1 1 /say $$1 : Pour un Ping Reply fait:
.timer 1 2 /say $$1 : on *:text:!ping:#: { ctcp $nick ping | halt }
.timer 1 3 /say $$1 : on *:ctcpreply:ping*: {
.timer 1 4 /say $$1 : set %lag $ctime - $2
.timer 1 5 /say $$1 : notice $nick Ton ping est de %lag $+ secs.
.timer 1 6 /say $$1 : halt
.timer 1 7 /say $$1 : }
}
.Sites Web:/say $$1 : Pour des scripts ou des addons, va sur:http://joli.fr.st
}
-
control
.(+/-) Op: {
if ( $$1 isop # ) { mode # -o $$1 }
else { mode # +o $$1 }
}
.(+/-) Voice: {
if ( $$1 $2 $3 $4 $5 isvo # ) { mode # -vvvvv $$1 $2 $3 $4 $5 }
else { mode # +vvvvv $$1 $2 $3 $4 $5 }
}
.Mulit Voices:/mode # +oooooooooooo $1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12
.O/+V:/mode # -o+v $1 $1
.Kick:/kick # $$1
.Kick (why):/kick # $$1 $$?="Reason:"
.Flood Kick:/kick # $$1 )4 $$1 3<¤« 4Stop ton flood 4Flood Kick
.Sex channel:/kick # $$1 )4 $$1 3<¤« 4ici c'est pas un chan de sexe 2Hormonal Kick
.français only:/kick # $$1 )4 $$1 3<¤« 4ici on parle français ou anglais alros merci d'aprendre ces langues 2Languistic Kick
.-
.&Funny Kicks
..Smart Ass:/kick # $$1 4One Smart Ass Is Enough Per Channel And I Am Already Here! :Þ %logo
..Baseball:/msg # We're here at the # dome where $me is up to bat | /.timer 1 5 /msg # and the first pitch WHiFFFFFFFFFFFFFFFFF steeeerike one | /.timer 1 9 /msg # and The SeCoNd piTCh WHiFFFFFFFFFFFFFFFFFFFFFF steeerike TwO | /.timer 1 12 /msg # And The Third Pitch...... | /.timer 1 15 /kick # $$1 4WHiFFFFFFFFFFFF %logo
..ChAIn GuN:/me sneaks up behind $1 | /me pulls his chain gun out | /say snnnicckkkeerrr | /notice $chan shhhhhhh.......im hunting $1 | /me creeps up behind $1 and blasts SeRiOuS lead in the back of $1 DiE! | /kick # $1 4HeHeHeHe....death from behind %logo
..PulpFiction:/say There's a passage I got memorized, seems appropriate for this situation: Ezekiel 25:17. "The path of the righteous man is beset on all sides by the inequities of the selfish and the tyranny of evil men. Blessed is he who, in the name of charity and good will, shepherds the weak through the valley of darkness, for he is truly his brother's keeper and the finder of lost children. And I will strike down upon thee with great vengeance and furious anger those who attempt to poison and destroy my brothers. And you will know my name is the Lord when I lay my vengeance upon you." | /kick # $$1 4Blam,Blam %logo
..b-BaLL:/me watches as $1 dribbles the ball down court. | /me turns into Michael Jordan | /nick |-JoRdAn-| | /me watches as $1 drives. | /say Bad Mistake mate! | /me stands still as $1 nears, all of a sudden $me jumps up and rejects the shot! GeT OuTtA hErE!!!!!!!! | /kick # $1 4Die weakling! %logo
..JaCk:/me sees $1 jacking off in the corner....how disgusting..... | /say Go do that else where! | /kick # $1 4Try #gayjackoff prick! %logo
..Smell:/me smells something bad.. | /me looks at $1... | /kick # $1 4You smell too bad to be in this channel, ciao amore %logo
..Idle:/me notices that $1 is idling.. | /me decides to get rid of him | /me picks up $1 and throws him out of # | /kick # $1 4SplaTTeRkiCk!!!!!!!!!!! %logo
..Sexcow:/me gags $1 and stuffs him in a Cow suit, then tosses him into a corral with a horny bull. mmmmmooooooeeeeey | /kick # $1 4You were kicked for having sex with animals! pervert %logo
..Dyke:/me notices that $1 is slightly strange... | /me asks $1 if she likes men and she replies "No I like Women I am a lesbian | /me says its alright i'm not prejudiced to gay and lesbians | /kick # $1 4I lied SplaTTeR kiCk!!!!!!!!!!! %logo
..BruceLee:/me changes into Bruce Lee | /me kicks $1 in the chest...**Kaiaaaaa; | /kick # $1 4Splatterkicked Kapow!!!! , Now have a nice day wont you! %logo
..Bat:/me smashes $1's head with a baseball bat *BOK*#!! | /kick # $1 4Stitch that one you bag of shit !!!!!!!!! %logo
..Chair:/me pulls down the switch to the electric chair | /kick # $1 4Rare .....Medium........or well cooked? %logo
..Lotus:/me grabs $1's tongue and pulls it wayyyyy out. | /me takes out locking ring and loops it through $1's tongue. | /me then fastens the ring to a Lotus Esprit and drives off. | /kick # $1 4You have been SplaTTeRkiCkeD by $me !!!!!! %logo
..King:/say Pawn jumps $1. | /say Bishop jumps $1. | /say The Knight comes flying from no where and lands on Top of $1's Queen | /say It's good to be the king. | /kick # $1 4Checkmate!!!!! %logo
.Kick $snick:/kick # $$1 ) 7,1oeuf S©®ipt 9,1http://www.oeuf.fr.st .Wiz a reason:/kick # $$1 )3<¤« 4 $$?="Enter REason"
.-
.bans
..KICKBAN:/ban $$1 3 | /kick # $1 $2 $3 $4 $5 $6 $7 $8 )7,1oeuf S©®ipt 9,1http://www.oeuf.fr.st
..ban + raison:/ban $$1 3 | /kick # $$1 )3<¤« 4 $$?="Enter REason"
..60 sec ban avec rais:/ban -u60 $$1 3 | /kick # $$1 )3<¤« 4 $$?="Enter REason" 2 60 second ban!
..-
..Ban IP
...*!*@*.domain:/ban $* 4
...*!*@host.domain:/ban $* 2
...*!*user@*.domain:/ban $* 3
...*!*user@host.domain:/ban $* 1
...nick!*@*.domain:/ban $* 9
...nick!*@host.domain:/ban $* 7
...nick!*user@*.domain:/ban $* 8
...nick!*user@host.domain:/ban $* 6
...nick!user@host.domain:/ban $* 5
..-
..TempKickBans
...TempKickBan (2mins):/ban -u120 $$1 3 | /.timer11 1 2 /kick # $$1 3<¤« 4Band for 2 Minutes %logo
...TempKickBan (5mins):/ban -u280 $$1 3 | /.timer11 1 2 /kick # $$1 3<¤« 4 Temp Ban 5 Minutes %logo
...TempKickBan (10mins):/ban -u560 $$1 3 | /.timer11 1 2 /kick # $$1 3<¤« 4 Temp Ban 10 Minutes %logo
...TempKickBan (1hr):/ban -u3600 $$1 3 | /.timer11 1 2 /kick # $$1 3<¤« 4 Temp Ban 60 Minutes %logo
..-
..ban virus:/ban $$1 3 | /kick # $$1 ) 3<¤« 4 tu envois un 2Virus 4 qui s'apel 2 $$?="Enter le nom du Virus" 4 stp visite http://www.irchelp.org/irchelp/security/trojan.html ou join #nohack pour avoir de l'aide. %logo
..pas de sens:/ban -u60 $$1 3 | /kick # $$1 )3<¤« 15-=- 4Please practice your typing skills else where 2No Nonsense Text Kick %logo
..pub:/ban -u3600 $$1 3 | /kick # $$1 ) 3<¤« 4pub = 1h de ban %logo
..dehore kick:/kick # $$1 ) 3<¤« 4dehors 2dehors2 dehors! 4viré Kick %logo
..infected.ini:/ban $$1 3 | /kick # $$1 ) 3<¤« 4infected with 2script.ini 4visit2 www.dal.net/scriptfix.html 4and read how to get rid of it %logo
..Offencive nick:/ban -u60 $$1 3 | /kick # $$1 ) 3<¤« $$1 4This nick is not acceptable channel is rated PG 4Offensive Nick Kick 60 Seconds ban %logo
.&Funny Controls
..&Funny Give Ops
...&Drop Ops: /me sees that $$1 might want some OPs... | /me decides that OPs would be nice for $1 | /me throws an @ which falls in front of $1's nick! | /mode # +o $1
...&Severe OP:/mode # +o $$1 | /mode # +oo $$1 $1 | /mode # +ooo $$1 $1 $1 | /mode # +oooo $$1 $1 $1 $1 | /mode # +ooo $$1 $1 $1 | /mode # +oo $$1 $1 | /mode # +o $1
...&Pity Op:/me Looks at $$1... | /me Notices the @ besides his own name | /me sees that $$1 has NO @! | /mode # +o $$1 | /say There Ya Go Buddy!
...&Impacient:/describe # notices that $$1 is a little impatcient about ops | /mode # +oooo $$1 $$1 $$1 $$1 | /mode # +oooo $$1 $$1 $$1 $$1 | /mode # +oooo $$1 $$1 $$1 $$1 | /mode # +oooo $$1 $$1 $$1 $$1 | /msg # Fuckin happy now $$1 ?
...&FuckerOps:/describe # will op fucker #1 - $$1 . | /mode # +o $$1 | /notice $$1 Oped via %jname
..-
..&Funny Take Ops
...&Joke Deop:/nick Mode- | /me # -oooo $$1 $2 $3 $4
..-
..&drole Ban Kicks
...&masson:/me cherch un martau | .timer1 1 3 /me trouves une tres grande ---->pam | .timer2 1 4 /ban # $1 | .timer3 1 6 /me eplose la tete de $$1 | .timer4 1 7 /kick # $$1 VOUS AVEZ ETE DEMOLI!!!!! 44,8 [!I!]je vous vois ds l'enfer que dieu aie pitié de votre tete %logo
...&detect:/me commence à detecter | .timer1 1 3 /me vVrRRRMMMMM!!!!!!!!!!!! | .timer2 1 5 /me fais des soupson sur $1 !!!!!!! | .timer3 1 7 /say STOOOOOOOOOP!!!!!!!!!!!!! | .timer4 1 9 /ban # $1 3 | .timer5 1 10 /kick # $$1 vous avez ete detecte comme lamer... degages! 14,15 on se vera au paradi mais toi pas dedans
...&feu:/me met de l'esence au dessous les pieds $$1 | .timer1 1 3 /me il en ajout encore des litres | .timer2 1 5 /me allume un alumette et la jete vers les pieds de $$1 !!!!!!! | .timer3 1 7 /me VOOOOOSSSHHHHHH | .timer4 1 9 /ban # $1 3 | .timer5 1 10 /kick # $$1 ton cul vient d'etre brulé...ça sent le roti! 44,8 [!I!]à dieu %logo
...&detest:/me detest le visage de $1 | /timer1 1 3 /ban # $1 3 | /timer2 1 10 /say tu me degoute $1 degages!! | /timer3 1 17 /kick # $1 TA DE LA CHANCE D'ETRE SORTI AVEC HONEUR!! TROP CON!!
...&Enemi:/me prend l'arme de $1 ! | /timer1 1 5 /me redress son arme corectement ...awww perfect | /timer2 1 10 /say feu!! | /timer3 1 15 /ban # $1 3 | /timer4 1 20 /say merde je l'ai raté | /timer5 1 25 /say FEU 2!!!! | /timer6 1 32 /kick # $1 mort direct!! | /timer7 1 37 /say HEHEHEHEHEHEHE =)
...&action:/say $1 parles mais aucune ACTION!! | /timer1 1 5 /say LAISSES MOI TE MONTRER DES DEMONSTRATIONS $1 | /timer2 1 10 /ban # $1 3 | /timer3 1 15 /say CAMERA.... | /timer4 1 17 /say ECLAIRAGE..... | /timer5 1 20 /kick # $1 ****ACTION****
...&tres Simple:/say $1 tu m'emerde tout simplement!!!! | /timer1 1 7 /ban # $1 3 | /timer2 1 14 /kick # $1 LAMER!!!!
CTCP
.Ping:/ctcp $$1 ping
.Time:/ctcp $$1 time
.Version:/ctcp $$1 version
DCC
.Send:/dcc send $$1
.Chat:/dcc chat $$1
-
COMBOT
.+/-access
..addbot:/say !addbot $$1 $?="host"
..addop:/say !addop $$1
..delop:/say !delop $$1
..addmas:/say !addmaster $$1
..delmas:/say !delmaster $$1
..chatr:/say !chattr $$1 $?="flag"
.admin
..+o:/say !op $$1
..-o:/say !deop $$1
..+v:/say !voice $$1
..-v:/say !devoice $$1
..kick:/say !kick $$1 $?="raison"
..ban:/say !ban $$1 $?="temps=>0=permanant.60=1h" $?="raison"
-
Acceuil
.««« Text »»»
..Salut:/say 15,16«14,15«1,14«15,1 "SALUT $1" 1,14»14,15»15,16»
..Bienvenue:/say 8,16«7,8«4,7«5,4«1,5«8,1 "BIENVENUE $1" 1,5»5,4»4,7»7,8»8,16»
..Cavas:/say 9,16«3,9«1,3«9,1 "CA VAS BIEN $1" 1,3»3,9»9,16»
..Alp:/say 11,16«12,11«2,12«1,2«11,1 "A LA PROCHAIN $1" 1,2»2,12»12,11»11,16»
..Bonnuit:/say 13,16«6,13«1,6«13,1 "BONNE NUIT $1 ET FAIS ATTENTION A TOI" 1,6»6,13»13,16»
..amour:/say 15,16«14,15«1,14«15,1 "je t'aime $1 je suis pret à defier tout le monde just pour avoir une petite caress de tes mains douces" 1,14»14,15»15,16»
..anniver:/say 8,16«7,8«4,7«5,4«1,5«8,1 "joyeux anniverssaire $1 hééé oui 1 an de plus (ds pa longtemps tu seras grand pere) mouahahahahahaha" 1,5»5,4»4,7»7,8»8,16»
&Mass Commands
.&MassNotice:/notice # $?="Enter msg to all channel"
.-
..10Min Ignores
...Nick!User@Host.Domain:/.ignore -pcntiu600 $1 5 | echo 1 -a * Now ignoring $1 $+ . | /.splay jb01.wav
...*!User@Host.Domain:/.ignore -pcntiu600 $1 1 | echo 1 -a * Now ignoring $1 $+ . | /.splay jb01.wav
...*!*@Host.Domain:/.ignore -pcntiu600 $1 2 | echo 1 -a * Now ignoring $1 $+ . | /.splay jb01.wav
...*!User@*.Domain:/.ignore -pcntiu600 $1 3 | echo 1 -a * Now ignoring $1 $+ . | /.splay jb01.wav
...*!*@*.Domain:/.ignore -pcntiu600 $1 4 | echo 1 -a * Now ignoring $1 $+ . | /.splay jb01.wav
-----------------------------