Changeset 290

Timestamp:

09/22/03 09:43:19 (8 years ago)

Author:

jamesoff

Message:

added friendship drifting
more robust handling of nick

File:

• trunk/modules/friendship.tcl (modified) (2 diffs)

trunk/modules/friendship.tcl

@@ -153 +153 @@
   if {($handle == "*") || ($handle == "")} {
 
-    bMotion_putloglev 1 * "bMotion: couldn't find a handle for $nick to set friendship."
-
-    return 50
-
-  }
+    #perhaps it was already a handle
+    if {![validuser $nick]} {
+      bMotion_putloglev 1 * "bMotion: couldn't find a handle for $nick to set friendship."
+
+      return 50
+
+    }
+    set handle $nick
+  }
+
 
 
@@ -284 +289 @@
 
 
+proc bMotion_friendship_tick { min hr a b c } {
+  bMotion_putloglev 3 * "bMotion_friendship_tick"
+
+  bMotion_putloglev d * "friendship tick"
+
+  set users [userlist]
+  foreach user $users {
+    set f [getuser $user XTRA friend]
+    if {$f != ""} {
+      bMotion_putloglev 4 * "$user is $f"
+      if {$f > 60} {
+        setuser $user XTRA friend [expr $f - 1]
+      }
+
+      if {$f < 40} {
+        setuser $user XTRA friend [expr $f + 1]
+      }
+    }
+  }
+}
+
+bind time - "00 * * * *" bMotion_friendship_tick
 
 bMotion_putloglev d * "bMotion: friendship module loaded"