; =============================================================;
; Anti spam script for IRC (Beta version.) ====================;
; Made by: Kashi ==============================================;
; Made on: 01/07/09 14:47:21 (GMT+1+DST) ======================;
; Last edited: 01/07/09 19:19:15 (GMT+1+DST) ==================;
; =============================================================;
 
on *:LOAD:{
  echo -a Anti spam script loaded.
  echo -a Copyright by: Kashi - Ripping is lame!
}
 
;===============================;
;== Start of script ============;
;===============================;
 
;----------------
;----- Hash -----
;----------------
 
on *:TEXT:!save:#:{
  if ($wildsite == *!*@iKash.user.OnlineGamenet) { 
    hsave spamtable
    .notice $nick Spamtable saved! 
  }
  else { halt }
}
 
on *:TEXT:!load:#:{
  if ($wildsite == *!*@iKash.user.OnlineGamenet) { 
    hmake spamtable 
    hload spamtable
    .notice $nick Spamtable loaded!
  }
  else { halt }
}
 
;-------------------
;---- Anti-Spam ----
;-------------------
 
on *:TEXT:*:#:{ 
  if ($nick !isreg $chan) { halt }
  elseif ($hget(spamtable, $address($nick,2)) == $null) { spamcount }
  else {
    if ($hget(spamtable, $address($nick,2)) != $null) { spamcount2 }
  }
}
 
;-----------------
;---- Aliases ----
;-----------------
 
alias spamcount {
  timer 1 15 //hdel -w spamtable $address($nick,2)
  hadd -m spamtable $address($nick,2) 1
}
 
alias spamcount2 {
  hinc spamtable $address($nick,2) 1
  elseif ($hget(spamtable, $address($nick,2)) == 10) { mode $chan +b $address($nick,2) | kick $chan $nick Cooldown time for you. (30 sec) | timer 1 30 mode $chan -b $address($nick,2) | halt }
}
 
;----------------
;---- Menu's ----
;----------------
 
menu * {
  -
  LoadSpamMod:/load -rs spamscript.txt
  UnloadSpamMod:/unload -rs spamscript.txt
}

Commenting Options