source: trunk/modules/mood.tcl @ 1143

# bMotion - Mood handling
#

###############################################################################
# bMotion - an 'AI' TCL script for eggdrops
# Copyright (C) James Michael Seward 2000-2008
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
###############################################################################

#Init variables
set mood(happy) 0
set mood(horny) 0
set mood(lonely) 0
set mood(electricity) 2
set mood(stoned) 0

set moodtarget(happy) 0
set moodtarget(horny) 0
set moodtarget(lonely) 5
set moodtarget(electricity) 2
set moodtarget(stoned) 0


## MOOD ROUTINES _________________________________________________________________________________
proc bMotionGetHappy {} {
  global mood
  incr mood(happy) 1
  checkmood "" ""
}

proc bMotionGetSad {} {
  global mood
  incr mood(happy) -1
  checkmood "" ""
}

proc bMotionGetHorny {} {
  global mood
  incr mood(horny) 1
  checkmood "" ""
}

proc bMotionGetUnHorny {} {
  global mood
  incr mood(horny) -1
  checkmood "" ""
}

proc bMotionGetLonely {} {
  global mood
  incr mood(lonely) 1
  checkmood "" ""
}

proc bMotionGetUnLonely {} {
  global mood
  incr mood(lonely) -1
  checkmood "" ""
}

## Checkmood: checks the moods are within limits
proc checkmood {nick channel} {
  global mood
  foreach r {happy horny lonely electricity stoned} {
    if {$r < -30} {
      set mood($r) -30
      bMotion_putloglev d * "bMotion: mood $r went OOB, resetting to -30"
    }
    if {$mood($r) > 30} {
      bMotion_putloglev d * "bMotion: mood $r went OOB, resetting to 30"
      set mood($r) 30
    }
  }
  if {$nick == ""} {return 0}

        if {($mood(happy) > 10) && ($mood(lonely) > 5) && ($mood(horny) > 5)} {
                mee $channel "replicates some tissues"
                mee $channel "locks [getPronoun] in the bathroom"
                set mood(horny) [expr $mood(horny) - 10]
                set mood(lonely) [expr $mood(lonely) -3]
        }
}


## Driftmood: Drifts all moods towards 0
proc driftmood {} {
  set driftSummary ""
  global mood mooddrifttimer moodtarget
  foreach r {happy horny lonely electricity stoned} {
    set drift 0
    set driftString ""
    if {$mood($r) > $moodtarget($r)} {
      set drift -1
      set driftString "$moodtarget($r)--($drift)-->$mood($r)"
    }
    if {$mood($r) < $moodtarget($r)} {
      set drift 2
      set driftString "$mood($r)--(+$drift)-->$moodtarget($r)"
    }
    if {$drift != 0} {
      set mood($r) [expr $mood($r) + $drift]
      set driftSummary "$driftSummary $r:($driftString) "
    }
  }
  if {$driftSummary != ""} {
    bMotion_putloglev d * "bMotion: drifted mood $driftSummary"
  }
  checkmood "" ""
  set mooddrifttimer 1

  timer 10 driftmood
  return 0
}


## moodTimerStart: Used to start the mood drift timer when the script initialises
## and other timers now, too
proc moodTimerStart {} {
  global mooddrifttimer
        if  {![info exists mooddrifttimer]} {
                timer 10 driftmood
    #utimer 5 loldec
#    utimer 90 smileyhandler
    timer [expr [rand 30] + 3] doRandomStuff
                set mooddrifttimer 1
        }
}


## moodHander: DCC .mood
proc moodhandler {handle idx arg} {
  #global mood
  #putidx $idx "My current mood is $mood(happy) $mood(horny) $mood(lonely) $mood(electricity) $mood(stoned): happy horny lonely electricity stoned"
  #if {$arg != ""} {
  #  if {$arg == "drift"} {
  #    driftmood
  #    return 0
  #  }
  #  set moodtype [lindex $arg 0]
  #  set moodsetting [lindex $arg 1]
  #  set mood($moodtype) $moodsetting
  #  putlog "bMotion: Mood($moodtype) changed to $moodsetting by $handle"
  #}
  #checkmood "" ""
  putidx $idx "Please use .bmotion mood"
}


## pubm_moodHandler: !mood
proc pubm_moodhandler {nick host handle channel text} {
  if {![matchattr $handle n]} {
    return 0
  }

  global botnick

  bMotionDoAction $channel $nick "%%: Please use .bmotion $botnick mood"
  return 0
#  global mood botnick
#  set text [string trim $text]
#  if [regexp -nocase "^${botnick}$" $text] {
#    set ming "Mood: "
#    foreach r {happy horny lonely electricity stoned} {
#      append ming " $r=$mood($r) "
#    }
#    global bMotionCache
#    append ming " chanmood=[makeSmiley $bMotionCache($channel,mood)]"
#    bMotionDoAction $channel "" $ming
#    return 0
#  }
#
#  if [regexp -nocase "^$botnick (.+)" $text args] {
#    if {[matchattr $handle m]} {
#      if {$args == "drift"} {
#        driftmood
#        return 0
#      }
#      set moodtype [lindex $args 1]
#      set moodsetting [lindex $args 2]
#                       if {[catch {expr $moodsetting}]} {
#                         putserv "PRIVMSG $nick :Fewl, that's not right."
#                         return 0
#                 }
#      set mood($moodtype) $moodsetting
#      putlog "bMotion: Mood($moodtype) changed to $moodsetting by $handle"
#      mee $channel "undergoes mood swing"
#      return 0
#    } else {
#      bMotionDoAction $channel "" "No."
#      putlog "bMotion: $nick tried mood $args on $channel and failed."
#      return 0
#    }
#  }
#  checkmood "" ""
}

# management command
proc bMotion_mood_admin { handle { arg "" } } {
        global mood

        if {($arg == "") || ($arg == "status")} {
                #output our mood
                bMotion_putadmin "Current mood status:"
                foreach moodtype {happy horny lonely electricity stoned} {
                        bMotion_putadmin "  $moodtype: $mood($moodtype)"
                }
                return 0
        }

        if {$arg == "drift"} {
                bMotion_putadmin "Drifting mood values..."
                driftmood
                return 0
        }

        if {[regexp -nocase {set ([^ ]+) ([0-9]+)} $arg matches moodname moodval]} {
                if {[info tclversion] < 8.4} {
                        bMotion_putadmin "Sorry, the mood set command needs TCL >= 8.4 :/"
                        return
                }

                if {!([lsearch -inline {happy horny lonely electricity stoned} $moodname] == $moodname)} {
                        bMotion_putadmin "Unknown mood type '$moodname'"
                        return 0
                }
                set mood($moodname) $moodval
                bMotion_putadmin "Mood '$moodname' changed to $moodval"
                return 0
        }

        bMotion_putadmin "use: mood \[status|drift|set <type> <value>\]"
        return 0
}

# management help callback
proc bMotion_mood_admin_help { } {
        bMotion_putadmin "Controls the mood system:"
        bMotion_putadmin "  .bmotion mood [status]"
        bMotion_putadmin "    View a list of all moods and their values"
        bMotion_putadmin "  .bmotion mood set <name> <value>"
        bMotion_putadmin "    Set mood <name> to <value>. The neutral value is usually 0. Max/min is (-)30."
        bMotion_putadmin "  .bmotion mood drift"
        bMotion_putadmin "    Runs a mood tick."
}

if {$bMotion_testing == 0} {
        bMotion_plugin_add_management "mood" "^mood" n bMotion_mood_admin "any" bMotion_mood_admin_help
}

#add some default moods

set mood(happy) 0
set moodtarget(happy) 0
#bMotion_mood_add "happy" -30 30 0 1 2

set mood(horny) 0
set moodtarget(horny) 0
#bMotion_mood_add "horny" -30 30 0 1 2

set mood(lonely) 0
set moodtarget(lonely) 5
#bMotion_mood_add "lonely" -30 30 5 1 2


set mood(electricity) 2
set moodtarget(electricity) 2
#bMotion_mood_add "electricity" 0 2 2 1 2

set mood(stoned) 0
set moodtarget(stoned) 0
#bMotion_mood_add "stoned" 0 30 0 1 2

bMotion_putloglev d * "bMotion: mood module loaded"