Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on !*:join:#:{
- msg # $nick welcome to the channel
- }
- alias doaddpoints {
- if ($3 !isnum) { echo 2 -st $3 is not a number. it needs to be a number. | halt }
- var %topic $+(,.,$2)
- var %points $calc($readini(points.ini,%topic,points) + $3 )
- writeini -n points.ini %topic points %points
- echo -a added points for %topic
- }
- alias -l addpoints {
- if ($1 !isnum) { echo 2 -st $1 is not a number. It needs to be a number. | halt }
- var %topic $+($chan,.,$nick)
- var %points $calc($readini(points.ini,%topic,points) + $1)
- writeini -n points.ini %topic points %points
- return %points
- }
- alias -l lookUppoints {
- var %topic $+($chan,.,$nick)
- var %points $readini(points.ini,%topic,points)
- return %points
- }
- alias doaddpoints {
- if ($3 !isnum) { echo 2 -st $3 is not a number. It needs to be a number. | halt }
- var %topic $+($1,.,$2)
- var %points $calc($readini(points.ini,%topic,points) + $3)
- writeini -n points.ini %topic points %points
- echo -a Added points for %topic
- }
- alias dorempoints {
- var %topic $+($1,.,$2)
- remini -n points.ini %topic points
- echo -a Removed points for %topic
- }
- on *:text:!points:#:{
- if ((%floodpoints) || ($($+(%,floodpoints.,$nick),2))) { return }
- set -u10 %floodpoints On
- set -u30 %floodpoints. $+ $nick On
- msg # $nick has $readini(points.ini,$+(#,.,$nick),points) total points.
- }
- on $*:text:/!points (add|remove)/Si:#:{
- if ($nick isop # ) {
- if ($0 < 3) { msg # Insufficient parameters: Use !points <add|remove> <user> [number] | return }
- writeini -n points.ini $+(#,.,$3) points $calc($readini(points.ini,$+(#,.,$3),points) $iif($2 == add,+,-) $iif($4 isnum,$4,1))
- { msg $chan $3 now has $readini(points.ini,$+(#,.,$3),points) points. }
- }
- else { msg $chan YOU ARE NOT WORTHY. }
- }
- on !*:join:#:{
- $+(.timerpoints.,#,.,$nick) 0 300 add.pts $+(#,.,$nick)
- add.pts $+(#,.,$nick)
- }
- on !*:part:#:$+(.timerpoints.,#,.,$nick) off
- alias -l add.pts {
- writeini -n points.ini $1 points $calc($readini(points.ini,$1,points) + 1)
- }
- on *:TEXT:!pson:#: {
- if ($nick isop #) {
- msg $chan points are now being earned
- .timerpoints on
- }
- }
- on *:TEXT:!psoff:#: {
- if ($nick isop #) {
- msg $chan the point system is now off
- .timerpoints off
- }
- }
- on !*:text:*:#:{
- if ($nick isop #) { return }
- if ( $len($1-) >= 10 ) {
- if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 70 ) {
- ; check if user is not warned yet
- if !$istok(%caps.warned,$nick,32) {
- ; warning user
- msg $chan $nick -> stop typing in caps! [warning]
- ; add user to %caps.warned, so we can check it later
- set -e %caps.warned $addtok(%caps.warned,$nick,32)
- ; set timer to remove user from %caps.warned after 300s
- .timer 1 300 remove.warned $nick
- }
- else {
- msg # /timeout $nick 10
- }
- }
- }
- }
- alias -l remove.warned {
- set -e %caps.warned $remtok(%caps.warned,$1,1,32)
- }
- on @*:text:*:#:linkpost $1-
- on @*:action:*:#:linkpost $1-
- on @*:notice:*:#:linkpost $1-
- alias -l linkpost {
- if ((!%p) && (!$hfind(permit,$nick))) { inc -u4 %p
- var %purge /^!(link\so(n|ff)|(permit))\b/iS
- var %domain com|edu|gov|mil|net|org|biz|info|name|museum|us|ca|uk
- var %link /(?<=^|\s)((?>\S{3,8}:\/\/|w{3}\56)\S+)|\56( $+ %domain $+ )\b/iS
- if ($findtok(%chanon1,#,1,32)) && ($nick(#,$nick,vr)) && ($regex($1-,%link)) {
- timeout # $nick | /mode # -b $nick
- msg # $nick You did not have permission to post a link ask a mod to !permit you
- msg # /timeout $nick 1
- }
- elseif (($regex($1-,%purge)) && ($regml(1) = permit) && ($nick isop #) && ($$2 ison #)) {
- hadd -mz permit $v1 30 | notice $v1 You have 30 seconds to post a link. Starting now!
- msg # You now have 30 seconds to post a link!
- }
- elseif (($regml(1) = link on) && ($nick isop #)) {
- goto $iif(!$istok(%chanon1,#,32),a,b) | :a | set %chanon1 $addtok(%chanon,#,32)
- .msg # My Link Protection Is Now on in: $+($chr(2),#)
- halt | :b | .msg # $nick $+ , my link protection is already on in $&
- $+($chr(2),#,$chr(2)) !
- }
- elseif (($regml(1) = link off) && ($nick isop #)) {
- goto $iif($istok(%chanon1,#,32),c,d) | :c | set %chanon1 $remtok(%chanon,#,1,32)
- .msg # My Link Protection Is Now off in: $+($chr(2),#)
- halt | :d | .msg # $nick $+ , My link protection is already off . $&
- !
- }
- }
- }
- on $*:text:/^!commandedit !?(\S+)/iS:#:{
- if ($nick !isop #) return
- writeini commands.ini commands $regml(1) $$3-
- msg # your command has been edit'ed
- }
- on $*:text:/^!commandadd !?(\S+)/iS:#:{
- if ($nick !isop #) return
- writeini commands.ini commands $regml(1) $$3-
- msg # your command has been add'ed
- }
- on $*:text:/^!commandremove !?(\S+)/iS:#:{
- if ($nick !isop #) return
- remini commands.ini commands $regml(1)
- msg # your command has been removed
- }
- on $*:text:/^!repeat !?(\S+) (off|\d+)/iS:#:{
- if ($nick !isop #) return
- var %command = $regml(1), %interval = $regml(2)
- if ($timer(command. $+ %command)) {
- if (%interval == off) .timercommand. $+ %command off
- else msg # ! $+ %command is already repeating
- }
- elseif ($readini(commands.ini,n,commands,%command)) {
- var %response = $v1
- .timercommand. $+ %command 0 $iif(%interval < 5,5,%interval) msg # $safe(%response)
- msg # %response
- }
- }
- on $*:text:/^!(\S+)/:#:{
- if ($nick !isop #) return
- if ($readini(commands.ini,n,commands,$regml(1))) msg # $v1
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement