Tags: tcl

Sort by: Date / Title /

  1. eggdrop & tcl install
    4 months ago by sx
    1. wget http://www.dablnet.de/downloads/eggdrop1.6.17.tar.gz
    2. wget http://www.dablnet.de/downloads/tcl8.4.13-src.tar.gz
    3.  
    4. # extract
    5. tar zvfx eggdrop1.6.17.tar.gz
    6. tar zvfx tcl8.4.13-src.tar.gz
    7.  
    8. # install tcl
    9. cd tcl8.4.13/unix
    10. ./configure --prefix=$HOME --enable-shared
    11. make install
    12. export TCLLIB=$HOME/lib
    13. export TCLINC=$HOME/include
    14. export LD_LIBRARY_PATH=$HOME/lib
    15.  
    16. # install eggdrop
    17. cd eggdrop1.6.17
    18. ./configure
    19. make config
    20. make
    21. make install  // or make install DEST=/home/eggdrop/BOTNAME
    View source | 0
  2. tcl eggdrop : autovoice tlm à retardement dans #chan
    1 year ago by huelce
    1. ##### BINDS #######################
    2.  
    3. #-- JOIN
    4. # modifier ci-dessous #chan par le vrai nom du chan
    5. bind join - "#chan *!*@*" perso:join_autovoice
    6.  
    7. ##### PROCS ####################
    8.  
    9. ##------- perso:join_autovoice
    10.  
    11. proc perso:join_autovoice {nick userhost handle chan} {
    12.         if {![botisop $chan]} { return 0 }
    13.  
    14.         if {![isvoice $nick $chan] && ![isop $nick $chan]} {
    15.                 set num [expr int(rand()*5)+(1&&5)+5]
    16.                 utimer $num [list perso:voice $chan $nick]
    17.         }
    18.         return 0
    19. }
    20.  
    21. ##------- perso:voice
    22.  
    23. proc perso:voice {chan nick} {
    24.         if {![botisop $chan]} { return 0 }
    25.  
    26.         if {[onchan $nick $chan] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
    27.                 putserv "MODE $chan +v $nick"
    28.         }
    29.         return 0
    30. }
    View source | 0

First / Previous / Next / Last / Page 1 of 1 (2 posteets)