;-----------------------------
; Eval Back
;  System
;    v4.01
;--------
;         by Your Friend Evil
;-----------------------------

alias load.eval { set %eval.bot.nicks Anna^ SystemBit SystemBot SyS LittleHelper [O][W][N][E][D] RAPED RSS }

on 1:input:#linkomanija {
  if (($1 == !eval) || ($1 == .eval) && ($left($1,1) != /)) {
    msg #linkomanija !eval $2
    haltdef
    set %my.evals %my.evals $2
  }
}


on 1:text:*eval*:#linkomanija: {
  set %eval.list.rplc $replace($2-,$chr(44),$chr(32))
  if ($istok(%eval.list.rplc,$me,32)) { set -u15 %eval.list %eval.list $nick }
}
on 1:notice:*rek*cija*nuo*:*: {
  set %eval on
  set %eval.nick $gettok($replace($1-,$chr(32),$chr(46)),5,46)
  set %bot.nick $nick
  who %bot.nick
}

raw 352:*: {
  if ($istok(%eval.bot.nicks,%bot.nick,32)) { 
    if (r isincs $7) { set %nick.reg $true } 
    elseif (r !isincs %nick.mods) { set %nick.reg $false }
  }
  if ($istok(%eval.list,%eval.nick,32) && ($istok(%my.evals,%eval.nick,32) == $false) && (%nick.reg)) { 
    msg #linkomanija !eval %eval.nick
    haltdef
    unset %eval.list.rplc %eval.nick %bot.nick %nick.mods %nick.reg

  }

}
raw 315:*: {  
  if (%eval == on) { haltdef | unset %eval } 
}

;*************************
;       To Install
;*************************
;-----------------------------------------
; Alt + R, File / New  ikopijuojame teksta virs bruksnio
; Ishsaugome ir uzdarome.
; Prasome /load.eval
; ----------------------------------------
;
;*************************
;       Change log
;*************************
;
;v4.0  project back, bot nick's identification check working. everybody is happy.
;v3.9  project dropped
;v3.8  added bot nick's identification check
;v3.7b added feature not to eval back person who evaled you because you gave him eval (sounfd complicated eh?)
;v3.6  fixed bug with some evals that went through without getting eval back
;v3.5  fixed some bugs, tightened security
;v3    added major protection, with help from Viki
;v2    added simple protection

;*************************
;       Report bugs
;*************************
; /msg Evil Klaida ten ir ten ;)

;*************************
;       Donate
;*************************
; If you like this snippet so much, that you can't live without it (I doubt it) feel free to donate money via paypal at etaniel@gmail.com


;*************************
;       To Install
;*************************
;-----------------------------------------
; Alt + R, File / New  ikopijuojame teksta virs bruksnio
; Ishsaugome ir uzdarome.
; Prasome /load.eval
; ----------------------------------------
;
;*************************
;       Change log
;*************************
;
;v4.0  project back, bot nick's identification check working. everybody is happy.
;v3.9  project dropped
;v3.8  added bot nick's identification check
;v3.7b added feature not to eval back person who evaled you because you gave him eval (sounfd complicated eh?)
;v3.6  fixed bug with some evals that went through without getting eval back
;v3.5  fixed some bugs, tightened security
;v3    added major protection, with help from Viki
;v2    added simple protection

;*************************
;       Report bugs
;*************************
; /msg Evil Klaida ten ir ten ;)

;*************************
;       Donate
;*************************
; If you like this snippet so much, that you can't live without it (I doubt it) feel free to donate money via paypal at etaniel@gmail.com