Someone

on *:Invite:#: { 
  /join $chan 
  /timer 1 1 /msg $chan 14[7FB14] Invited by:7 $nick .14 Thanks for using 7ForceBot ! 14Bot-admin: 7Deforcer 14- 7#ForceBot.
} 
ON *:TEXT:*!part ForceBot*:#: { 
  msg $chan $+ , 14Thanks for using 7 $me .14 /invite 7ForceBot14 $chan if you want 7 $me 14 back.  
  part $chan 
}



on $*:TEXT:/^[@!.](con)?grat[zs](ulation[zs])?/Si:#: { if ($2 isnum 2-99) { msg $chan 7 @@@@@ 14Woo0oo0t! Congratulations 7 $nick 14with:7 $$2-! 7 @@@@@  } 
  else { notice $nick Error Bad Syntax, Example: !grats 99 def } 
}



on *:TEXT:!chanstats:#: { 
  if (% [ $+ lines. $+ [ $chan ] $+ . $+ [ $server ] $+ . $+ [ $nick ] ] == $null) { set %lines. $+ $chan $+ . $+ $server $+ . $+ $nick 0 } 
  if (% [ $+ joins. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %joins. $+ $chan $+ . $+ $server 0 }
  if (% [ $+ lastline. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %lastline. $+ $chan $+ . $+ $server Nobody } 
  if (% [ $+ statsdate. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %statsdate. $+ $chan $+ . $+ $server $date }
  if (% [ $+ linestot. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %linestot. $+ $chan $+ . $+ $server 0 }
  if (%waitstats == $null) { 
    notice $nick Statistics for channel $+(,$chan,:,) 
    notice $nick Recorded since: % [ $+ statsdate. $+ [ $chan ] $+ . $+ [ $server ] ]
    notice $nick Total number of lines spoken: % [ $+ linestot. $+ [ $chan ] $+ . $+ [ $server ] ]
    notice $nick There are currently $nick($chan,0) user(s) in this channel.
    notice $nick $+(,% [ $+ lastline. $+ [ $chan ] $+ . $+ [ $server ] ],) was the last person to speak.
    notice $nick You have currently spoken % [ $+ lines. $+ [ $chan ] $+ . $+ [ $server ] $+ . $+ [ $nick ] ] line(s) $nick
    notice $nick $+(,% [ $+ joins. $+ [ $chan ] $+ . $+ [ $server ] ],) people have joined the channel.
    notice $nick Random Line: $read(randomline. $+ $server $+ . $+ $chan $+ .txt)
    set -u5 %waitstats 1
  } 
}

on *:TEXT:!reset chanstats:#: {  
  set %statsdate. $+ $chan $+ . $+ $server $date 
  set %linestot. $+ $chan $+ . $+ $server 0 
  set %lastline. $+ $chan $+ . $+ $server Nobody 
  unset %lines.* 
  write -c randomline. $+ $server $+ . $+ $chan $+ .txt 
  notice $nick Statistics for $chan has been reset. 
}  

on *:TEXT:!lines*:#: {
  if (% [ $+ lines. $+ [ $chan ] $+ . $+ [ $server ] $+ . $+ [ $2 ] ] == $null) { notice $nick $2 hasn't said anything in this channel yet. } 
  else { notice $nick $2 has currently spoken % [ $+ lines. $+ [ $chan ] $+ . $+ [ $server ] $+ . $+ [ $2 ] ] in $chan on $network $+ . }
}

on *:TEXT:*:#: { 
  if ($1- == !chanstats) ($1- == !reset chanstats) { Halt } 
  if (% [ $+ statsdate. $+ [ $chan ] $+ . $+ [ $server ] ] == $null) { set %statsdate. $+ $chan $+ . $+ $server $date } 
  else if ($len($1-) >= 30) { write randomline. $+ $server $+ . $+ $chan $+ .txt $$1- $+([,By: $nick,]) } 
  set %lastline. $+ $chan $+ . $+ $server $nick 
  inc %linestot. $+ $chan $+ . $+ $server 1 
  inc %lines. $+ $chan $+ . $+ $server $+ . $+ $nick 1 
}

on *:JOIN:#deforcer: { inc %joins. $+ $chan $+ . $+ $server 1 }