Héhé :p
Source / Exemple :
alias block.join {
window -c @Multi. $+ $gettok($3-,4,32) $+ . $+ $1
aline -hp $colour(info2) $2 *** $gettok($3-,4,32) : $rem.double($gettok($3-,5-,32))
aline -hp $colour(info2) $2
}
alias show.whois.mask {
aline -hp $colour(Whois) $active *** $gettok($1-,4,32) $gettok($1-,5,32) $+ @ $+ $gettok($1-,6,32) : $gettok($1-,7-,32)
var %multi.country = $readini $scriptdir $+ countries.ini countries $gettok($gettok($1-,6,32),-1,46)
if (%multi.country != $null) { aline -hp $colour(info) $active *** country : $gettok(%multi.country,2-10,32) ( $+ $gettok(%multi.country,1,32) $+ ) }
}
alias show.whois.chan { aline -hp $colour(Whois) $active *** is in channel(s) $gettok($1-,5-,32) }
alias show.whois.net { aline -hp $colour(Whois) $active *** connected to server : $gettok($1-,5-,32) }
alias show.whois.IRCop { aline -hp $colour(info) $active *** $rem.double($gettok($1-,5-,32)) }
alias show.whois.idle {
aline -hp $colour(Whois) $active *** signed on $duration($calc($ctime - $gettok($1-,6,32))) ago
aline -hp $colour(Whois) $active *** has been $duration($gettok($1-,5,32)) idle
}
alias show.whois.end {
aline -hp $colour(Whois) $active *** $gettok($1-,4,32) $gettok($1-,5-,32)
aline -hp $colour(Whois) $active
}
alias multi.i.isop {
var %i.isop = %multiserver.op. [ $+ [ $gettok($active,3-,46) ] ] [ $+ . $+ [ $multi.chan ] ]
if ((%i.isop != $null) && ($mouse.lb)) { return #boss }
}
alias multi.chan { return $gettok($active,2,46) }
alias multi.me.nick { return %multiserver.nick1. [ $+ [ $gettok($active,3-,46) ] ] }
alias listbox {
if ($mouse.lb) { return $1- }
}
alias chanpop {
if ($mouse.lb == $false) { return $1- }
}
alias querypop {
if (($mouse.lb == $false) && ($left($gettok($active,2,46),1) != $chr(35)) && ($gettok($active,2,46) != status)) { return $1- }
}
;multi.echo <message>
alias multi.echo {
var %echo.num = $numtok($1-,32)
var %echo.i = 1
var %echo.text
while (%echo.i <= %echo.num) {
%echo.text = %echo.text [ [ $gettok($1-,%echo.i,32) ] ]
inc %echo.i 1
}
echo $colour(own) -a %echo.text
}
;multi.me <message>
alias multi.me { var %sock.me = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.me PRIVMSG $gettok($active,2,46) :ACTION $1- $+ | aline -hp $colour(action) * %multiserver.nick1. [ $+ [ $gettok($active,3-,46) ] ] $1- }
;multi.msg <nickname> <message> or multi.msg <channel> <message>
alias multi.msg { var %sock.msg = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.msg PRIVMSG $1 : $2- | aline -hp $colour(own) $+ $colour(highlight) $+ < $+ %multiserver.nick1. [ $+ [ $gettok($active,3-,46) ] ] $+ > $+ $colour(own) $+ $2- }
;multi.msg.silent <nickname> <message>
alias multi.msg.silent { var %sock.msg.silent = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.msg.silent PRIVMSG $1 : $2- | aline -hp $colour(own) --> $1 - $2- }
;multi.say <message>
alias multi.say { var %sock.say = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.say PRIVMSG $gettok($active,2,46) : $1- | aline -hp $colour(own) $+ $colour(highlight) $+ < $+ %multiserver.nick1. [ $+ [ $gettok($active,3-,46) ] ] $+ > $+ $colour(own) $+ $1- }
;multi.quote <command> <parameters>
alias multi.quote { var %sock.quote = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.quote $1 : $2- }
;multi.query <nickname>
alias multi.query {
if ((@ isin $1) || (+ isin $1)) { var %multi.win.query = @Multi. $+ $rem.double($1) $+ . $+ $gettok($active,3-,46) }
else { var %multi.win.query = @Multi. $+ $1 $+ . $+ $gettok($active,3-,46) }
if ($window(%multi.win.query).state == $null) { window -bek0 %multi.win.query 10 10 500 250 }
elseif (($window(%multi.win.query).state == minimized) || ($window(%multi.win.query).state == normal)) { window -a %multi.win.query }
}
;multi.ping <nickname>
alias multi.ping { var %sock.ping = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.ping PRIVMSG $1 :PING $ctime $+ | aline -hp $colour(own) $target -> Ping request on $1 }
;multi.ctcp <nick> <message>
alias multi.ctcp { var %sock.ctcp = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.ctcp PRIVMSG $1 : $+ $2- $+ | aline -hp $colour(ctcp) $target -> $chr(91) $+ $1 $+ $chr(93) - $2- }
;multi.whois <nickname>
alias multi.whois { var %sock.whois = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.whois whois $1 }
;multi.whois.idle <nickname>
alias multi.whois.idle { var %sock.whois.idle = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.whois.idle whois $1 $1 }
;multi.whowas <nickname>
alias multi.whowas { var %sock.whowas = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.whowas whowas $1 }
;multi.who <nickname> or <channel>
alias multi.who { var %sock.who = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.who who $1 }
;multi.nick <new nickname>
alias multi.nick { var %sock.nick = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.nick NICK $1 }
;multi.notice <nickname> <message>
alias multi.notice { var %sock.not = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.not NOTICE $1 : $2- | aline -hp $colour(own) $target -> $1 - $2- }
;multi.mode <paramaters>
alias multi.mode { var %sock.mode = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.mode MODE $1- }
;multi.kick <nick> <reason>
alias multi.kick { var %sock.kick = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.kick KICK $1 $2 : $+ $3- }
;multi.invite <channel> <nick>
alias multi.invite { var %sock.inv = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.inv INVITE $1 $2 }
;multi.topic <channel> <topic>
alias multi.topic { var %sock.top = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.top TOPIC $1 : $+ $2- }
;multi.away <msg>
alias multi.away { var %sock.away = multiserver. $+ $gettok($active,3-,46) | sockwrite -tn %sock.away AWAY : $+ $1- }
;multi.join <channel>
alias multi.join {
if ($left($1,1) == $chr(35) ) {
var %sock.join = multiserver. $+ $gettok($active,3-,46)
var %multi.win.chan = @Multi. $+ $1 $+ . $+ $gettok($active,3-,46)
if ($window(%multi.win.chan).state == $null) { set %multiserver.names. [ $+ [ $gettok($active,3-,46) ] ] [ $+ . ] [ $+ [ $1 ] ] [ on ] }
multi.status.win $gettok($active,3-,46) $1
sockwrite -tn %sock.join JOIN $1-
}
else { aline -hp $colour(info2) $active *** Invalid channel name *** }
}
;multi.notify <nick>
alias multi.notify {
if (($left($1,1) == $chr(64)) || ($left($2,1) == +)) { notify $rem.double($1) }
else { notify $1 }
}
;multi.amsg <message>
alias multi.amsg {
var %amsg.win.tot = $window(@Multi.#*,0)
var %amsg.win.i = 1
while (%amsg.win.i <= %amsg.win.tot) {
if ($gettok($active,3-,46) == $gettok($window(@Multi.#*,%amsg.win.i),3-,46)) {
if ($gettok($window(@Multi.#*,%amsg.win.i),2,46) != status) { multi.msg $gettok($window(@Multi.#*,%amsg.win.i),2,46) $1- }
}
inc %amsg.win.i 1
}
}
;multi ame <message>
alias multi.ame {
var %ame.win.tot = $window(@Multi.*,0)
var %ame.win.i = 1
while (%ame.win.i <= %ame.win.tot) {
if ($gettok($active,3-,46) == $gettok($window(@Multi.*,%ame.win.i),3-,46)) {
if ($gettok($window(@Multi.*,%ame.win.i),2,46) != status) {
var %sock.me = multiserver. $+ $gettok($window(@Multi.*,%ame.win.i),3-,46)
sockwrite -tn %sock.me PRIVMSG $gettok($window(@Multi.*,%ame.win.i),2,46) : $+ ACTION $1-
aline -hp $colour(own) $window(@Multi.*,%ame.win.i) $+ $colour(action) $+ * %multiserver.nick1. [ $+ [ $gettok($window(@Multi.*,%ame.win.i),3-,46) ] ] $1-
}
}
inc %ame.win.i 1
}
}
alias multi.sound {
if ($2 != $null) {
var %multi.sock = multiserver. $+ $gettok($1,3-,46)
if ($3 != $null) {
var %sound.file.exist = $mircdir $+ sounds\ $+ $3
if ($exists(%sound.file.exist)) {
splay -q $3
sockwrite -tn %multi.sock PRIVMSG $gettok($1,2,46) :SOUND $3 $+
aline -hp $colour(ctcp) $1 --> $chr(91) $+ SOUND $2 $3 $+ $chr(93)
}
else { aline -hp $colour(info2) $target *** /sound : sound file doesn't exist in your sounds folder *** }
}
if ($3 == $null) {
var %sound.file.exist = $mircdir $+ sounds\ $+ $2
if ($exists(%sound.file.exist)) {
splay -q $2
sockwrite -tn %multi.sock PRIVMSG $gettok($1,2,46) :SOUND $2 $+
aline -hp $colour(ctcp) $1 $chr(91) $+ SOUND $2 $+ $chr(93)
}
else { aline -hp $colour(info2) $target *** /sound : sound file doesn't exist in your sounds folder *** }
}
}
else { aline -hp $colour(info2) $target *** /sound : insufficient parameters *** }
}
on *:CLOSE:@Multi.*:{
var %multi.resize.win = $readini -n $scriptdir $+ multidata.ini windows $gettok($target,2,46)
if (%multi.resize.win != $null) {
var %multi.win.coord = $window($active).x $window($target).y $window($target).w $window($target).h
writeini $scriptdir $+ multidata.ini windows $gettok($target,2,46) %multi.win.coord
}
}
alias multi.win.pos {
var %multi.pos = $readini -n $scriptdir $+ multidata.ini pos win
var %multi.pos.win = $gettok($active,2,46)
var %multi.pos.i = 1
var %multi.pos.exist = $false
while (%multi.pos.i <= $numtok(%multi.pos,32)) {
if ($gettok(%multi.pos,%multi.pos.i,32) == %multi.pos.win) { %multi.pos.exist = $true | break }
inc %multi.pos.i 1
}
if (%multi.pos.exist == $true) { echo $colour(info) -a *** window %multi.pos.win is already in the list }
else {
%multi.pos = %multi.pos %multi.pos.win
writeini $scriptdir $+ multidata.ini pos win %multi.pos
var %multi.pos.win.coord = $window($active).x $window($active).y $window($active).w $window($active).h
writeini $scriptdir $+ multidata.ini windows %multi.pos.win %multi.pos.win.coord
echo $colour(info) -a *** window %multi.pos.win added to the list
if ($window(MultiserverDialog).state != $null) { multi.win.pos.setup }
}
}
alias advertise { multi.me eliador }
;Multi.flood <QueryM NoticeM PingM InviteM CtcpM> < $+ .server>
alias Multi.flood {
var %MfloodType = $1
if (%MfloodDetected. [ $+ [ %MfloodType ] ] == $null) {
var %MtypeName = $gettok(%MfloodType,1,46)
var %MfloodName = $left(%MtypeName,$calc($len(%MtypeName) - 1))
inc %MfloodNumber. [ $+ [ %MfloodType ] ] 1
if (%MfloodDetection. [ $+ [ %MfloodType ] ] == $null) { set %MfloodDetection. [ $+ [ %MfloodType ] ] [ on ] | .timerMFloodDetection. [ $+ [ %MfloodType ] ] 1 %MfloodInterval /MfloodDetectionCheck %MfloodType }
if (%MfloodNumber. [ $+ [ %MfloodType ] ] >= %MfloodTrigger) {
set %MfloodDetected. [ $+ [ %MfloodType ] ] [ on ]
echo $colour(notice) $active - $gettok(%MfloodType,2-,46) - %MfloodName flood detected : ignoring them during %MfloodTimer seconds
.timerMFloodAlert. [ $+ [ %MfloodType ] ] 1 %MfloodTimer /stopMFloodAlert %MfloodType
}
}
}
alias MfloodDetectionCheck {
var %MfloodDetectionType = $1
if (%MfloodNumber. [ $+ [ %MfloodDetectionType ] ] < %MfloodTrigger ) { set %MfloodNumber. [ $+ [ %MfloodDetectionType ] ] [ 0 ] }
unset %MfloodDetection. [ $+ [ %MfloodDetectionType ] ]
}
alias stopMFloodAlert {
var %MfloodAlertType = $1
var %MfloodAlertName = $left($gettok(%MfloodAlertType,1,46),$calc($len($gettok(%MfloodAlertType,1,46)) - 1))
unset %MfloodDetection. [ $+ [ %MfloodAlertType ] ]
set %MfloodNumber. [ $+ [ %MfloodAlertType ] ] [ 0 ]
unset %MfloodDetected. [ $+ [ %MfloodAlertType ] ]
echo $colour(notice) $active - $gettok(%MfloodAlertType,2-,46) - Anti- $+ %MfloodAlertName flood measure off
}
Conclusion :
Voila ! :)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.