It is a very simple joke bot that narrates jokes for you. Only problem is, this is not a socket and so cannot get a random joke online.. But still, its okay, you can add your own jokes to it. commands !newjoke - newjoke
!joke - narrate a random joke. !joke narrate a specific joke. !randomjoke - no need to ask...
!jokes to find total number of jokes... !jokeinfo to find out by who the joke was written and blabkabla
!findjoke to search for a joke with a specific word

You can ask me if you want to give it to anyone else....
You can also contact me at irc.lucidchat.net @ #Pokemon_Vortex, #Dragonball, #door-thirteen

on *:connect: {
  if ($network == *@lucidchat*) {
    window -k0 @commands
  }
}

on *:text:*:#: {

  ;-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
  ;    JokeBot        Made by Assasin -_
  ;-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
;Adds a new joke:
  if (!newjoke == $1) {
    -p @commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
    if ($2 != $null) {
      if ($numtok($2-,32) < 3) {
        msg $chan $nick $+ : Your joke has to be more than 3 words, otherwise its not a joke.
      }
      else {
        var %topic = $ini(jokes.ini,0) + 1
        writeini jokes.ini %topic joke $2-
        writeini jokes.ini %topic author $nick
        writeini jokes.ini %topic date $date
        writeini jokes.ini %topic time $time
        msg $chan Added new joke by $nick : $2-
      }
    }
    else {
      msg $chan $nick $+ : It's not funny joke if you dont input any text you know 3,4(:
    }
  }
  elseif (!fdeletejoke == $1) {
    -p @commands ( $+ $time $+ ) 4 $+ $nick used $1 ( $+ $1- $+ )
    if ($2 != $null) {
      if ($2 isnum) {
        if ($readini(jokes.ini, $2, author) != $null) {
          if ($nick >= 5) {
            writeini jokes.ini $2 joke $2 has been pushed down the window 
            msg $chan Joke $2 has been pushed down the window by $nick
          }
          else {
            msg $chan $nick $+ : You do not meet the required hostmask to use this command
          }
        }
        else {
          msg $chan $nick $+ : No such joke to delete bro 12,9(=
        }
      }
      else {
      msg $chan $nick $+ : Specify a number, ya fool!      }
    }
  }
;delete a joke:  
elseif (!deljoke == $1) {
    @commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
    if ($2 != $null) {
      if ($2 isnum) {
        if ($readini(jokes.ini, $2, author) == $nick) {
          writeini jokes.ini $2 joke Sorry, joke no. $2 has been deleted by $nick because he/she didnt like it.
          msg $chan Sorry, Joke no. $2 has been deleted by $nick because he/she didnt like it.

        }
        else {
          msg $chan $nick $+ : You didnt submit that joke - Type !jokeinfo $2 to see who thought of it
        }
      }
      else {
        msg $chan $nick $+ : Didnt you read the instructions? Looks like your spectacles are dirty -- e.g: !deljoke 2
      }
    }
  }
  elseif (!joke == $1) {
    @commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
    if ($2 != $null) {
      if ($readini(jokes.ini, $2, author) == $null) {
        msg $chan Have you forgotten the count? the numbers dont go that big $2
      }
      else {
        msg $chan joke $2 $+ : $readini(jokes.ini, n, $2, joke)
      }
    }
    else {
      msg $chan Random joke: $readini(jokes.ini, n, $rand(1,$ini(jokes.ini,0)), joke)
    }
  }
  elseif (!jokes == $1) {
    @commands ( $+ $time $+ ) $nick used $1
    if ($ini(jokes.ini,0) > 1) {
      msg $chan There are currently $ini(jokes.ini,0) jokes
    }
    else {
      msg $chan There is currently $ini(jokes.ini,0) joke
    }
  }
  elseif (!randomjoke == $1) {
    @commands $nick used $1
    msg $chan Random joke: $readini(jokes.ini, n, $rand(1,$ini(jokes.ini,0)), joke)
  }
  elseif (!jokeinfo == $1) {
    @commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
    if ($2 != $null) {
      if ($readini(jokes.ini, $2, author) == $null) {
        msg $chan There is no joke $2
      }
      else {
        msg $chan Joke no. $2 was stored in $chan on $readini(jokes.ini, $2, date) at $readini(jokes.ini, $2, time) by $readini(jokes.ini, $2, author)
      }
    }
    else {
      msg $chan Please specify a joke no. you'd like to look up the info for.
    }
  }
  elseif (!findjoke == $1) {
    @commands ( $+ $time $+ ) $nick used $1 ( $+ $1- $+ )
    var %x = 0
    while (%x <= $ini(jokes.ini,0)) {
      if ($2- isin $readini(jokes.ini, %x, joke)) {
        set %jokes %jokes + %x
      }
      inc %x
    }
    if ($replace($replace(%jokes, +, |), |, $null) == $null) {
      msg $chan " $+ $2- $+ " was not found in any jokes
      unset %jokes
    }
    else {
      msg $chan " $+ $2- $+ " was found in joke(s): $replace(%jokes, +, |) $chr($asc(|))
      unset %jokes
    }
  }
}