YoOGoU
|
YoOGoU
ok dsl voila les aliase
;/echo { if ($1 == -1) { echo $1- } | else { echo -a $1- } }
/Send_Serv { Serv_Send $1- }
/pEcho { Serv_Send :Nickserv NOTICE $1 : $+ $2- }
/mEcho { Serv_Send :Memoserv NOTICE $1 : $+ $2- }
/cEcho { Serv_Send :Chanserv NOTICE $1 : $+ $2- }
/oEcho { Serv_Send :Operserv NOTICE $1 : $+ $2- }
/Data_In {
if ($2 == PRIVMSG) || ($2 == NOTICE) {
if (%MS_Down == ON) { Serv_Send :Operserv NOTICE $mid($1,2,$len($1)) :Services are currently down. Please try later. | Halt }
if ($mid($4,2,1) == $chr(1)) { A_CTCP $mid($1,2,$len($1)) $3 $4- | Return }
if ($mid($4,2,3) == DCC) { Return }
if ($gettok($3,1,64) == Nickserv) { NS_Nickserv $mid($1,2,$len($1)) $mid($4-,2,$len($4-)) }
elseif ($gettok($3,1,64) == chanserv) { C_Chanserv $mid($1,2,$len($1)) $mid($4-,2,$len($4-)) }
elseif ($gettok($3,1,64) == memoserv) { M_Memoserv $mid($1,2,$len($1)) $mid($4-,2,$len($4-)) }
elseif ($gettok($3,1,64) == operserv) { O_Operserv $mid($1,2,$len($1)) $mid($4-,2,$len($4-)) }
}
elseif ($1 == NICK) { Global $2 | U_Join $2 $5 $+ @ $+ $6 $mid($8-,2,$len($8-)) }
elseif ($2 == QUIT) { U_Quit $mid($1,2,$len($1)) $mid($3-,2,$len($3-)) }
elseif ($2 == KICK) { C_Kick $4 $3 }
elseif ($2 == NICK) { U_Nick $mid($1,2,$len($1)) $right($3,$calc($len($3)-1)) }
elseif ($1 == PING) { Serv_Send :Services. $+ %MS_Net PONG Services. $+ %MS_Net $2 }
elseif ($2 == KILL) { Serv_Killed $3 $mid($1,2,$len($1)) | U_Quit $3 Killed by $mid($1,2,$len($1)) $5 }
elseif ($2 == JOIN) { if ($left($3,1) == :) { C_Join $mid($1,2,$len($1))) $mid($3-,2,$len($3-)) } | else { C_Join $mid($1,2,$len($1))) $3- } }
elseif ($2 == TOPIC) { C_Topic $mid($1,2,$len($1)) $3 $mid($4-,2,$len($4-)) }
elseif ($2 == PART) { C_Part $mid($1,2,$len($1)) $3 $mid($4-,2,$len($4-)) }
elseif ($2 == MODE) { C_Mode $mid($1,2,$len($1)) $3 $4- }
elseif ($2 == WHOIS) { A_Whois $mid($1,2,$len($1)) $3 }
}
/A_Whois {
Send_Serv :Services. $+ %MS_Net 311 $1 $2 $2 $2 $+ @ $+ %MS_Net * : $+ %MS_Net Services.
Send_Serv :Services. $+ %MS_Net 312 $1 $2 Services. $+ %MS_Net services
Send_Serv :Services. $+ %MS_Net 317 $1 $2 0 %MS_Singon :secounds idle, signon time
Send_Serv :Services. $+ %MS_Net 318 $1 $2 :End of /WHOIS list.
Return
}
/A_CTCP {
if ( $2 != nickserv && $2 != chanserv && $2 != memoserv && $2 != operserv && $2 != global ) return
Set %RT_Data $gettok($3-,1,32)
Set %RT_Data $gettok(%RT_Data,2,1)
If (%RT_Data == PING) { Send_Serv : $+ $2 NOTICE $1 $3- | Return }
If (%RT_Data == VERSION) { Send_Serv : $+ $2 NOTICE $1 :VERSION MiS.1 mIRC Based Services for Win95 By: Boris Dinkevich | Return }
If (%RT_Data == TIME) { Send_Serv : $+ $2 NOTICE $1 : $+ TIME here: $Time $+ | Return }
If (%RT_Data == DCC) { Serv_Send : $+ $2 NOTICE $1 :Services do not accept DCC Connections. | Return }
else { Send_Serv : $+ $2 NOTICE $1 : $+ %RT_Data Unknown CTCP Request. | Return }
}
writeini {
if ($4 == $Null) || ($3 == $Null) { remini $1- }
elseif ($4 == 0) { remini $1 $2 $3 }
else { writeini $1- }
}
Bad_Access {
if ($gettok($1,0,64) != 2) { Return $False }
if ($left($1,2) != *!) { set %RT_Access *!* $+ $gettok($1,1,64) $+ @ $+ * $+ $deltok($gettok($1,2,64),1,46) }
else { set %RT_Access $gettok($1,1,64) $+ @ $+ * $+ $deltok($gettok($1,2,64),1,46) }
if (%RT_Access iswm $1) { Return $True }
if (*.*.*.* iswm $1) && ($right($1,2) == *) { Return $True }
Return $False
}
/Delfile { remove $1 }
/ircd.conf {
window -c @Conf-Lines
window -a @Conf-Lines
aline @Conf-Lines Add the following lines to IRCD.Conf of the server you are connecting services to.
aline @Conf-Lines -
aline @Conf-Lines Y:10:90:0:2:32
aline @Conf-Lines U:Services. $+ %MS_Net $+ :*:*
aline @Conf-Lines P:*:*:*: $+ %MS_Port
aline @Conf-Lines C: $+ %MS_ADD $+ : $+ %MS_Pass $+ :Services. $+ %MS_Net $+ ::32
aline @Conf-Lines N: $+ %MS_ADD $+ : $+ %MS_Pass $+ :Services. $+ %MS_Net $+ ::32
}
|