Communauté Eggdrop

#
# Dés coquins version 1.3
#
# multilingual version of sexdices
#
# Author: CrazyCat <crazycat@c-p-f.org>
# http://www.eggdrop.fr
# irc.zeolia.net #c-p-f
#
# Rolls the dices on a random or chosen person
#
# Usage:
#   !descoquins [nick]
#  - Console:
#   .chanset #channel +sexdice => (dis/en)able sexdices on #channel
#   .chanset #sexe +sexdice
#	.chanset #chat-love -sexdice
#   .chanset #sexe dicelang en => sets the language (default: fr, available: en)
#
# ChangeLog:
#   1.3 - multilingual version
#   1.2 - adding dynamic channels (Beboo did it)
#   1.1 - French translation
#       - adding Authorized channels list
#       - adding Excluded people
#   1.0a - First public alpha release
#
# TODO:
#   - More customization for display of information
#   - Ideas? Email me.
#

#
# SETTINGS
#
namespace eval sexdice {
    # Set this to the command character you want to use for the binds.
    # Only use one command character. (Default "!")
    variable command_char "!"
    
    # Set this to your preferred binds separated by spaces. i.e. "one two"
    # (Default "sexdice")
    variable binds "descoquins"
    
    # Set this to the list of excluded nicks separated by spaces. The
    # people listed in won't be choose in random "victims"
    variable novictim "Service"
    
    #---------------------------------------------------------------------#
    #                    ***End of Settings ***                           #
    #   Do not edit below this line unless you know what you are doing!   #
    #---------------------------------------------------------------------#
    variable version "CrazyCat:descoquins-1.3"
    variable versionNum "1.3"
    variable versionName "\002\00305\[\003\00312DES COQUINS\003\00305\]\002\003"
}

# Note about the strings: you can use 5 parameters:
# %c is the current channel
# %n is the nick of the player
# %v is the "victim"
# %d1 is the result of the first dice
# %2 is the result of the second dice
 
set sdLang(en) {
    dice1 {
        "kiss"
        "fondle"
        "lick"
        "suck"
        "touch"
        "nibble"
        "play with"
        "tickle"
        "do anything you want to"
        "do anything you want to"
    }
    dice2 {
        "eyes"
        "ear"
        "ears"
        "nose"
        "lips"
        "neck"
        "chest"
        "nipple"
        "nipples"
        "shoulder"
        "elbow"
        "hand"
        "fingers"
        "stomach"
        "crotch"
        "ass"
        "butt"
        "leg"
        "legs"
        "knee"
        "knees"
        "foot"
        "feet"
        "toe"
        "toes"
        "free"
    }
    msg_nochan "\002%c\002 is not an authorized channel"
    msg_notonchan "Sorry %n, %v is not on the channel"
    msg_nogamealone "You can't roll dices for you, %n! It's not funny."
    msg_alone "Well %n, noone is here to play with you! :("
    msg_roll "%n rolls the dices"
    msg_res_anywhere "%n, you have to %d1 %v anywhere you want!"
    msg_res_placed "%n, you have to %d1 %v on the %d2!"
}
set sdLang(fr) {
    dice1 {
        "embrasser"
        "caresser"
        "lécher"
        "sucer"
        "toucher"
        "mordiller"
        "jouer avec"
        "chatouiller"
        "faire ce que tu veux à"
    }
    dice2 {
        "les lèvres"
        "le cou"
        "la poitrine"
        "l'oreille"
        "free"
        "free"
        "le sein"
        "l'orteil"
        "la fesse"
        "l'entrejambe"
        "les doigts"
    }
    msg_nochan "\002%c\002 n'est pas un canal autorisé"
    msg_notonchan "Désolé %n, %v n'est pas sur le canal"
    msg_nogamealone "Vous ne pouvez pas lancer les dés pour vous, %n! Ce n'est pas amusant."
    msg_alone "Bon %n, il n'y a personne pour jouer! :("
    msg_roll "%n lance les dés"
    msg_res_anywhere "%n, tu dois %d1 %v où tu veux!"
    msg_res_placed "%n, tu dois %d1 %v sur %d2!"
}

# bind the public bind
foreach bind [split $sexdice::binds " "] {
    bind pub -|- "${sexdice::command_char}$bind" sexdice::roll
}
 
setudef flag sexdice
setudef str dicelang
 
namespace eval sexdice {
    proc filt {data} {
        regsub -all -- \\\\ $data \\\\\\\\ data
        regsub -all -- \\\[ $data \\\\\[ data
        regsub -all -- \\\] $data \\\\\] data
        regsub -all -- \\\} $data \\\\\} data
        regsub -all -- \\\{ $data \\\\\{ data
        regsub -all -- \\\" $data \\\\\" data
        return $data
    }
 
    proc replace {msg chan nick} {
        regsub -all %n $msg $nick msg
        regsub -all %c $msg $chan msg
        regsub -all %v $msg $sexdice::victim msg
        regsub -all %d1 $msg $sexdice::choice1 msg
        regsub -all %d2 $msg $sexdice::choice2 msg
        return $msg
    }
 
    proc roll {nick uhost handle chan args} {
        variable novictim
        variable victim ""
        variable choice1 ""
        variable choice2 ""
 
        if {[lsearch -exact [channel info $chan] +sexdice] == -1} {
            array set trans $::sdLang(fr)
            putserv "PRIVMSG $chan :$trans(msg_no_chan)"
            return
        }
 
        if {[channel get $chan dicelang]==""} {
            channel set $chan dicelang "fr"
            set lang "fr"
        } else  {
            set lang [channel get $chan dicelang]
        }
        array set trans $::sdLang($lang)
 
        set mylist [chanlist $chan]
 
        # Create the temporary exclude list: bot, player and exluded pple
        set exclist [split "$::botnick $nick $novictim"]
 
        foreach exclude [split $exclist] {
            set wb [lsearch [filt $mylist] [filt $exclude]]
            set mylist [lreplace $mylist $wb $wb]
 
        }
 
        # Check to see if they specified someone
        if {[lindex $args 0] != ""} {
            set victim [lindex $args 0]
            # Check to see if the nick is on the channel
            if {![onchan $victim $chan]} {
                putserv "PRIVMSG $chan :$versionName [replace $trans(msg_notonchan) $chan $nick]"
                return
            } else {
                if {$victim == $nick } {putserv "PRIVMSG $chan :$sexdice::versionName [replace $trans(msg_nogamealone) $chan $nick]";return}
                set result [lindex $args 0]
            }
        } else {
            #Choose someone randomly
            set mylength [llength $mylist]
            if {$mylength == 0} {
                putserv "PRIVMSG $chan :[replace $trans(msg_alone) $chan $nick]"
                return
            }
            set myindex [rand $mylength]
            set victim [lindex $mylist $myindex]
        }
 
 
        putserv "PRIVMSG $chan :$sexdice::versionName [replace $trans(msg_roll) $chan $nick]"
        set choice1 [lindex $trans(dice1) [rand [llength $trans(dice1)]]]
        set choice2 [lindex $trans(dice2) [rand [llength $trans(dice2)]]]
        if {$choice2 == "free" } {
            putserv "PRIVMSG $chan :$sexdice::versionName [replace $trans(msg_res_anywhere) $chan $nick]"
        } else {
            putserv "PRIVMSG $chan :$sexdice::versionName [replace $trans(msg_res_placed) $chan $nick]"
        }
    }
}
 
putlog " - DES COQUINS version $sexdice::versionNum loaded."