ManuDiaz

on *:TEXT:*:#: { inc -u3 %spam [ $+ [ $nick ] ] | if (%spam [ $+ [ $nick ] ] >= 5) && ($nick($chan,$me,oh)) && (!$nick($chan,$nick,oh)) { ban -ku30 # $nick 2 ok. } }

-------------

on *:TEXT:!greets *:#: { if ($chan == #n.i) || ($chan == #parko) && ($me != Manu`) halt 
  if ($nick isop $chan) { 
    if ($2 == off) { writeini Greetz.ini Greet $chan off | msg $chan 12Greets are now off. } 
    if ($2 == on) { writeini Greetz.ini Greet $chan on | msg $chan 12Greets are now on. } 
  } 
}
on *:TEXT:!setgreet *:#: { if ($chan == #n.i) || ($chan == #parko) && ($me != Manu`) halt 
  if ($2- != $null) { 
    writeini Greetz.ini Greet $wildsite $replace($2-,$chr(36),_,$chr(37),_,$chr(125),_,$chr(132),_,$chr(3),ç,$chr(2),Î,$chr(31),¾,$chr(22),µ) 
    notice $nick 1Your greet message has been set to: $replace($2-,$chr(36),_,$chr(37),_,$chr(125),_,$chr(132),_) 
  } 
} 
on *:JOIN:#: { 
  if ($readini(Greetz.ini,Greet,$wildsite) != $null) && ($readini(Greetz.ini,Greet,$chan) == on) { 
    msg $chan [12 $+ $nick $+ ] $replace($readini(Greetz.ini,Greet,$wildsite),ç,$chr(3),Î,$chr(2),¾,$chr(31),µ,$chr(22)) 
  } 
} 
on *:TEXT:!delgreet:#: { if ($chan == #n.i) || ($chan == #parko) && ($me != Manu`) halt 
  if ($readini(Greetz.ini,Greet,$wildsite) != $null) { 
    remini Greetz.ini Greet $wildsite 
    notice $nick 1Your greet has been removed 
  } 
} 
on $*:TEXT:/^[@!](Greet|Checkgreet|viewgreet)/Si:#: { if ($chan == #noobsinc) || ($chan == #parko) && ($me != Manu`) halt 
  set %WTFlol. [ $+ [ $nick ] ] $iif($left($1,1) == @, msg $chan, notice $nick) 
  if ($readini(Greetz.ini,Greet,$wildsite) != $null) { %WTFlol. [ $+ [ $nick ] ] 1Your greet is " $+ $readini(Greetz.ini,Greet,$wildsite) $+ " } 
  if ($readini(Greetz.ini,Greet,$wildsite) == $null) { %WTFlol. [ $+ [ $nick ] ] 12You dont have a greet 
    unset %WTFlol. [ $+ [ $nick ] ] 
  } 
}

------------------

alias World {
  set %World $1
} 

on $*:TEXT:/^[+.](ni)?world/Si:#parko: { if $me ishop #Parko || ($me isop #parko) { notice $nick 12The current world is0[12 $+ %World $+ 0] } }

on *:TEXT:!setworld*:#: { if ($me ishop $chan) || ($address($nick,2) == $address($me,2)) { world $2- } { msg $chan 12World is $2-  } }