;#########################################
;# raven's serial.dll CloudyServ Plugin ##
;# written just for HaOsLsE ;)          ##
;#########################################
;# i know its a rough and simple way to ##
;# do this, but it gets the job done!   ##
;#########################################

;begin reading the renlog for certain words..

on *:signal:FDSlog: {
  if ($2 == Serial && $3 == hash && $4 == response) {
    set %serialhash $strip($left($8,32))
    var %n = ($strip($6))
    %n = $nick.chk(%n)
    var %i = $_info(%n).id
;this loop checks to see if the player's serial is on the banlist or not
    var %d = 1
    while (%d <= $lines(bannedhashes.txt)) {
      if (%serialhash isin $read(bannedhashes.txt,%d)) { inc %d $lines(bannedhashes.txt) | renrem msg $s_n $6 $+ 's serial hash is on the ban list. | renrem 

kick %i }
      inc %d 1
    }
;this loop checks to see if the player's serial is already in the database or not, if it isnt it adds it
    var %y = 1
    while (%y <= $lines(player_serials.txt)) {
       if ($6 isin $read(player_serials.txt,%y)) { inc %y $lines(player_serials.txt) | halt }
       inc %y 1
    }
    write player_serials.txt $6 %serialhash
  }
;ending of reading the renlog.. time for commands!

alias _LEVELcmds {
  if ($1 == !gethash) { %lvl = $readini(rav_serial.ini,PERMS,gethash) }
  elseif ($1 == !lookuphash) { %lvl = $readini(rav_serial.ini,PERMS,lookuphash) }
  elseif ($1 == !banhash) { %lvl = $readini(rav_serial.ini,PERMS,banhash) }
  elseif ($1 == !unbanhash) { %lvl = $readini(rav_serial.ini,PERMS,unbanhash) }
  elseif ($1 == !addhash) { %lvl = $readini(rav_serial.ini,PERMS,addhash) }
}

on *:TEXT:*:#: {
  var %cmd = $_LEVELcmds($1), %u = $ulev($nick)
  if ($1 == !gethash && %u >= %cmd) {
    var %n = $strip($2)
    if (!%n) { .msg $chan $s_n Please specify a player ingame. | halt }
    %n = $nick.chk(%n)
    var %i = $_info(%n).id
    if (!%n) { .msg $chan $s_n That player was not found ingame. | halt }
    renrem get_serial %i
    .msg $chan $s_n The serial hash for $2 is: $read(player_serials.txt,$2)
  }
  elseif ($1 == !lookuphash && %u >= %cmd) {
    var %n = $strip($2)
    if ($read(player_serials.txt,%n) == $null) { .msg $chan $s_n No serial found for %n $+ . }
    .msg $chan $s_n Serial for %n $+ : $read(player_serials.txt,%n)
  }