Advertisement
Guest User

Untitled

a guest
Mar 18th, 2017
1,103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.95 KB | None | 0 0
  1. set ::alertchan {
  2.     "#chan"
  3. }
  4.  
  5. bind pub - !sos sos_alert
  6. proc sos_alerte {nick uhost handle chan args} {
  7.     putquick "NOTICE $nick :\002\00312Votre SOS a été envoyé au staff \003\002"
  8.     set ::chango $chan
  9.     foreach chanalert $::alerteuhchan {
  10.         putquick "LocOps :\002\00304SOS\002:\00312 $nick \00306>> \00304!SOS par $nick \00301sur\00312 $chan !!\003"
  11.         putquick "PRIVMSG $chanalert :\002\00304SOS\002:\00312 $nick \00306>> \00304!SOS par $nick \00301sur\00312 $chan !!\003"
  12.         putquick "NOTICE $chanalert :\002\00304SOS\002:\00312 $nick \00306>> \00304!SOS par $nick \00301sur\00312 $chan !!\003"
  13.     }
  14. }
  15.  
  16. bind pub - !gosos sos_join
  17. proc sos_joint {nick host hand chan arg} {
  18.     foreach gochan $::alertchan {
  19.         if [string match -nocase $gochan $chan]  {
  20.             putquick "SAJOIN $nick $::chango"
  21.             putquick "SAMODE $::chango +h $nick"
  22.             putquick "PRIVMSG $chan :\002\00312$nick \00306prends en charge le \00304SOS \00306sur\00305 $::chango\003\002"
  23.         }
  24.     }
  25. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement