Simple InfoBot script

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	6.5 (of 2 scores)
Date Added	Sep 18, 2009
Last Updated	Sep 20, 2009
Tags	bot infobot mirc

Introduction

Its not winning any awards but it will (at a very basic level) store factoids sort of like an infobot, key word in the title being 'simple' ;)

to allow a user to use the del,lock, and unlock commands type /auser -a admin <nick/mask> in the bot's mIRC

Commands:
All users -
<botnick> <name> is <reply>

Quote:

<&CodeNinja> sk68Bot, google is http://www.google.com
<&sk68Bot> Ok, CodeNinja

Quote:

<&CodeNinja> sk68Bot, what is google?
<&sk68Bot> google is http://www.google.com

Admins -
<botname> lock <name>

Quote:

<&CodeNinja> sk68Bot, lock google
<&sk68Bot> 'google' has been locked

<botname> unlock <name>

Quote:

<&CodeNinja> sk68Bot, unlock google
<&sk68Bot> 'google' has been unlocked

Quote:

<&CodeNinja> sk68Bot, del google
<&sk68Bot> google deleted

Grab the Code

on *:LOAD: hmake infobot 100
on *:START:{ hmake infobot 100
  if ($isfile(infobot.hsh)) hload infobot infobot.hsh
}
on *:EXIT:{ hsave infobot infobot.hsh
}
on *:TEXT:*:#:{ if ($left($1,$len($me)) == $me) { if ($2-3 == what is) { infofind $chan $4- | halt }
    elseif ($istok($3-,is,32)) { var %is.pos = $findtok($1-,is,32)
      if (!$hget(infobot,$replace($gettok($1-,2 - $calc(%is.pos - 1),32),$chr(32),[sp]))) || (!$istok(%locked,$gettok($1-,2 - $calc(%is.pos - 1),32),32)) {
        hadd infobot $replace($gettok($1-,2 - $calc(%is.pos - 1),32),$chr(32),[sp]) $gettok($1-,$calc(%is.pos + 1) -,32)
        msg # Ok, $nick
        halt
      }
      else msg # $+(',$gettok($1-,2 - $calc(%is.pos - 1),32),') is locked!
    }
    elseif ($2 == del) && ($level($nick) == admin) { if ($hget(infobot,$replace($3-,$chr(32),[sp]))) {
        if (!$istok(%locked,$3-,44)) { 
          hdel infobot $replace($3-,$chr(32),[sp])
          msg # $3- deleted
        }
        else msg # $3- is locked!
      }
      else { msg # $+(',$3-,') does not exsist! }
    }
    elseif ($2 == lock) && ($level($nick) == admin) { if ($hget(infobot,$replace($3-,$chr(32),[sp]))) {
        set %locked $addtok(%locked,$3-,44)
        msg # $+(',$3-,') has been locked
      }
      else msg # $+(',$3-,') does not exsist!
    }
    elseif ($2 == unlock) && ($level($nick) == admin) { if ($istok(%locked,$3-,44)) { 
        set %locked $remtok(%locked,$3-,44)
        msg # $+(',$3-,') has been unlocked
      }
      else msg # $+(',$3-,') is not locked!
    }
  }
}
alias infofind { var %term = $remove($replace($2-,$chr(32),[sp]),?)
  if ($hget(infobot,%term)) { 
    msg $1 $remove($2-,?) is $hget(infobot,%term)
  }
  else { msg $1 I dont know what $+(',$remove($2-,?),') is!
  }
}