From 08e80e41af814eb3d6bc21c72e0830f0fc1e8c6c Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sun, 28 Mar 2010 10:55:24 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@47
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 HsBot/Logics/AI.hs       |  6 ------
 HsBot/Logics/IRCKarma.hs | 27 +++++++++++++++++++++++++++
 2 files changed, 27 insertions(+), 6 deletions(-)
 delete mode 100644 HsBot/Logics/AI.hs
 create mode 100644 HsBot/Logics/IRCKarma.hs

(limited to 'HsBot/Logics')

diff --git a/HsBot/Logics/AI.hs b/HsBot/Logics/AI.hs
deleted file mode 100644
index 9deaca4..0000000
--- a/HsBot/Logics/AI.hs
+++ /dev/null
@@ -1,6 +0,0 @@
-module HsBot.AI (aiRun) where
-
-import HsBot.Env
-
-aiRun :: String -> Env -> IO Env
-aiRun str env = return (env)
diff --git a/HsBot/Logics/IRCKarma.hs b/HsBot/Logics/IRCKarma.hs
new file mode 100644
index 0000000..55c74d7
--- /dev/null
+++ b/HsBot/Logics/IRCKarma.hs
@@ -0,0 +1,27 @@
+module HsBot.Logics.IrcKarma where
+
+import HsBot.Env
+import HsBot.Logics
+
+data Karma = Karma { 
+      karmaName :: String, 
+      minPts :: Int, 
+      minPerc :: Float
+   } deriving (Show, Read)
+
+instance Eq Karma where 
+   x == y = (minPerc x) == (minPerc y) && (minPts x == minPts y)
+
+instance Ord Karma where
+   x > y
+      | (minPerc x) > (minPerc y) = True
+      | otherwise = (minPts x) > (minPts y)
+   x < y
+      | (minPerc x) < (minPerc y) = True
+      | otherwise = (minPts x) < (minPts y)
+   x >= y = not (x < y)
+   x <= y = not (x > y)
+
+instance Logics Karma where
+	logicsRun str env = return (env)
+			
-- 
cgit v1.2.3