/*
<:>:<:>:<:>:<:>:<:>:<:>:<:>
WEBSITE BOT<:>:<:>:<:>:<:>:
BY SK68<:>:<:>:<:>:<:>:<:>:
<:>:<:>:<:>:<:>:<:>:<:>:<:>
 
Syntax: !url <add | edit | del | view> <link(for add and edit) | nick(for view)>
*/
on *:START: { hmake urls 10
if ($isfile(urls.hsh)) hload urls urls.hsh
}
else
on *:TEXT:!url*:#: { if (!$2) { 
    .notice $nick please use !url <add/del/edit/view>
  }
  else {
    if ($2 == add) { 
      if ($regex($3,/((http:\/\/?)(www\.?).*.\.*)/Si)) {
        if (!$hget(urls,$nick)) {
          hadd urls $nick $3
          privmsg $chan $nick $+ 's URL set to $3
        }
        else { 
          privmsg $chan I already have a URL for you, $nick
        }
      }
      else { 
        privmsg $chan that is not a valid link
      }
    }
    elseif ($2 == edit) { if ($regex($3,/((http:\/\/?)(www\.?).*.\.*)/Si)) {
        if (!$hget(urls,$nick)) { 
          privmsg $chan You dont have a URL to edit, $nick
        }
        else { 
          hadd urls $nick $3
          privmsg $chan $nick $+ 's URL has been changed to $3
        }
      }
      else { 
        privmsg $chan that is not a valid link
      }
    }
    elseif ($2 == view) { if (!$hget(urls,$3)) { 
        privmsg $chan I dont have a URL for $+($3,$chr(44),$nick,$chr(44)) why dont you ask them to add one
      }
      else { 
        notice $nick $3 $+ 's URL is $hget(urls,$3)
      }
      else { 
        privmsg $chan that is not a valid link
      }
    }
    elseif ($2 == del) { 
      if (!$hget(urls,$nick)) { 
        privmsg $chan You dont have a URL to delete, $nick
      }
      else { 
        hdel urls $nick
        privmsg $chan $nick $+ 's URL has been deleted
      }
    }
    else { 
      privmsg $chan Incorrect syntax
    }
  }
}
on *:EXIT: { hsave -o urls urls.hsh | hfree urls }
 

Commenting Options