Anonymous

set bMotionRoot "C:/windrop1/scripts/bmotion"

set bMotionModules "scripts/$bMotionRoot/modules"

set bMotionPlugins "scripts/$bMotionRoot/plugins"



if {![info exists bMotion_testing]} {

  putloglev d * "bMotion: bMotion_testing is not defined, setting to 0."

  set bMotion_testing 0

}



source "$bMotion/VERSION"

if {$bMotion_testing == 0} {

  putlog "bMotion $bMotionVersion starting up..."

}



if {$bMotion_testing == 1} {

  putlog "bMotion: INFO: Code loading in testing mode"

} else {

  putloglev 1 * "bMotion: INFO: Code loading in running mode"

}



foreach letter [split "d12345678" {}] {

  set bMotionCache($letter,lastlog) ""

  set bMotionCache($letter,lastcount) 0

}



proc bMotion_putloglev { level star text } {

  global bMotion_testing bMotionCache

  regsub "bMotion:" $text "" text

  set text2 ""

  if {$level != "d"} {

    set text2 [string repeat " " $level]

  }

  set text "bMotion:$text2 $text"



  if {$bMotion_testing == 0} {

    if {$bMotionCache($level,lastlog) == $text} {

      incr bMotionCache($level,lastcount)

      return

    }

    if {$bMotionCache($level,lastcount) > 0} {

      putloglev $level $star "($level)Previous message repeated $bMotionCache($level,lastcount) time(s)"

    }

    putloglev $level $star "($level)$text"

    set bMotionCache($level,lastlog) $text

    set bMotionCache($level,lastcount) 0

  }

}



# init default variables

if {$bMotion_testing == 1} {

  putlog "... loading variables"

}

source "$bMotionModules/variables.tcl"



#load new abstract system

if {$bMotion_testing == 1} {

  putlog "... loading abstract system"

}

source "$bMotionModules/abstract.tcl"



# load abstracts file (formerly randoms)

if {$bMotion_testing == 1} {

  putlog "... loading abstracts"

}

source "$bMotionModules/abstracts.tcl"



# load settings

if {$bMotion_testing == 1} {

  putlog "... loading settings"

}

source "$bMotionModules/settings.tcl"

#try to load a file for this bot

catch {

  if {${botnet-nick} != ""} {

    source "$bMotionModules/settings_${botnet-nick}.tcl"

    bMotion_putloglev d * "loaded settings for this bot from settings_${botnet-nick}.tcl"

  }

}



#load system functions

if {$bMotion_testing == 1} {

  putlog "... loading system"

}

source "$bMotionModules/system.tcl"



# load output functions

if {$bMotion_testing == 1} {

  putlog "... loading output"

}

source "$bMotionModules/output.tcl"



# load mood functions

if {$bMotion_testing == 1} {

  putlog "... loading mood"

}

source "$bMotionModules/mood.tcl"



# load event functions

if {$bMotion_testing == 1} {

  putlog "... loading events"

}

source "$bMotionModules/events.tcl"



if {$bMotion_testing == 1} {

  putlog "... loading events support"

}

source "$bMotionModules/events_support.tcl"



# load interbot bits

if {$bMotion_testing == 1} {

  putlog "... loading interbot"

}

source "$bMotionModules/interbot.tcl"



# load friendship code

if {$bMotion_testing == 1} {

  putlog "... loading friendship"

}

source "$bMotionModules/friendship.tcl"



# load anti-flood code

if {$bMotion_testing == 1} {

  putlog "... loading flood"

}

source "$bMotionModules/flood.tcl"



### That's everything but the plugins stuff loaded. Now load extra modules



bMotion_putloglev d * "looking for 3rd party modules..."

set files [lsort [glob -nocomplain "$bMotionModules/extra/*.tcl"]]

foreach f $files {

  bMotion_putloglev 1 * "loading module: $f"

  catch {

    source $f

  }

}



### Done, load the plugins:



# load plugins

if {$bMotion_testing == 1} {

  putlog "... loading plugins"

}

source "$bMotionModules/plugins.tcl"



if {$bMotion_testing == 1} {

  putlog "... loading plugin settings"

}

source "$bMotionModules/plugins_settings.tcl"



#load local abstracts

catch {

  if {${botnet-nick} != ""} {

    source "$bMotionModules/abstracts_${botnet-nick}.tcl"

    bMotion_putloglev d * "loaded abstracts for this bot from abstracts_${botnet-nick}.tcl"

  }

}



# load other bits

if {$bMotion_testing == 1} {

  putlog "... loading leet"

}

source "$bMotionModules/leet.tcl"



# load diagnostics

catch {

  if {$bMotion_testing == 1} {

    putlog "... loading self-diagnostics"

  }

  source "$bMotionModules/diagnostics.tcl"

}



# Ignition!

bMotion_startTimers

if {$bMotion_testing == 0} {

  set bMotionCache(rehash) ""

  putlog "\002bMotion $bMotionVersion AI online\002 :D"

}



# set this to 0 to stop showing the copyright

# DO NOT DISTRIBUTE THIS FILE IF THE VARIABLE IS SET TO 0

set bMotion_show_copyright 1



if {$bMotion_show_copyright == 1} {

  putlog "bMotion is Copyright (C) 2002 James Seward. bMotion comes with ABSOLUTELY NO WARRANTY;"

  putlog "This is free software, and you are welcome to redistribute it under certain conditions."

  putlog "See the COPYRIGHT file for details. You can edit bMotion.tcl to hide this message once you have read it."