Advertisement
ZarTek-CREOLE

echo-scene

Jan 19th, 2023
798
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ######################################################
  2. #           System.ECHO.v1.1.WiNDROP.TCL-RaW         #
  3. ######################################################
  4. # Ligne :: 20 - 40 - 56                              #
  5. ######################################################
  6.  
  7. ## CONFiGURATiON DU SCRiPTS
  8. setudef flag ECHO
  9. namespace eval sECHO {
  10.  variable seVER "1.1";
  11.  
  12.  variable seADD     "!addpre";
  13.  variable seGN      "!gn";
  14.  variable seiNFO    "!info";
  15.  variable seMNUKE   "!modnuke";
  16.  variable seNUKE    "!nuke";
  17.  variable seP2P     "!addp2p";
  18.  variable seUNNUKE  "!unnuke";
  19.  
  20.  variable seFiLTER  [list                                   \
  21.                         "bluray"        "\00347BluRay\0037" \
  22.                         "mp3"           "\00348mp3\003"     \
  23.                     ];
  24.  
  25.  variable chADD     "#tRyzoPRED";
  26.  variable chFiLTER  "#tRyzoFiLTER";
  27.  variable chiNFO    "#tRyzoSPAM";
  28.  variable chNUKE    "#tRyzoNUKE";
  29.  variable chP2P     "#tRyzoP2PRE";
  30. }
  31.  
  32. ## CMD DiSPO
  33. bind pub -|- "${::sECHO::seADD}" ::sECHO::exec
  34.  
  35. ## CODE
  36. proc ::sECHO::exec { nick uhost hand chan arg } {
  37.     if { [getuser ${nick} XTRA uauth] != 1 } { putnow "privmsg ${chan} [format "uAUTH * YoOoOooOooo tes pas iDENTiFiER."]"; return }
  38.     if { ![channel get ${chan} ECHO] } {
  39.         set seMSG   [format "L'utilisateur %s a tenter une *CMD* sur %s, mais le salon n'a pas les *flags*" ${nick} ${chan}]
  40.         putlog ${seMSG}
  41.         return -code error ${seMSG};
  42.     }
  43.     :sECHO::execADD ${chan} ${arg}
  44. }
  45.  
  46. proc ::sECHO::execADD { chan arg } {
  47.     set seArls [lindex ${arg} 0]
  48.     set seAsec [lindex ${arg} 1]
  49.     if { ${seAsec} == "" } { putnow "privmsg ${chan} [format "\002sECHO\002 * !addpre release section"]"; return 0; }
  50.     set seArls   [string map -nocase "${::sECHO::seFiLTER}" ${seArls}]
  51.     putnow "privmsg ${::sECHO::chADD} -ADDPRE- ${seArls} ${seAsec}";
  52. }
  53.  
  54. ## COPYRiGHT TCL
  55. package provide sECHO ${::sECHO::seVER};
  56. putlog "-\002System ECHO\002 v${::sECHO::seVER}... chargement *TCL* avec \002SUCCESS\002.";
  57.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement