Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;------------------------
- ;Points
- ;------------------------
- 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:#:{
- msg # $nick has $iif($readini(Points.ini,$+(#,.,$nick),Points),$v1,0) total points.
- }
- on $*:text:/!points (add|remove|del)/Si:#:{
- if ($nick isop #) {
- if ($0 < 3) { msg # Insufficient parameters: Use !points <add|remove|del> <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) total points.
- }
- else { msg $chan This command is only available to moderators. }
- }
- ON !*:JOIN:#: {
- $+(.timerpoints.,#,.,$nick) 0 120 add.pts $+(#,.,$nick)
- add.pts $+(#,.,$nick)
- if ((%floodjoin) || ($($+(%,floodjoin.,$nick),2))) { return }
- set -eu10 %floodjoin On
- set -eu30 %floodjoin. $+ $nick On
- msg $chan $nick has joined and is now earning points.
- }
- ON *:KICK:#: {
- if ($knick !== $me) {
- $+(.timerpoints.,#,.,$knick) off
- if ((%floodkick) || ($($+(%,floodkick.,$knick),2))) { return }
- set -eu10 %floodkick On
- set -eu30 %floodkick. $+ $nick On
- msg $chan $knick has left the channel and is no longer earning points.
- }
- }
- ON !*:QUIT: {
- $+(.timerpoints.,#,.,$nick) off
- if ((%floodquit) || ($($+(%,floodquit.,$nick),2))) { return }
- set -eu10 %floodquit On
- set -eu30 %floodquit. $+ $nick On
- msg $chan $nick has left the channel and is no longer earning points.
- }
- ON !*:PART:#: {
- $+(.timerpoints.,#,.,$nick) off
- if ((%floodpart) || ($($+(%,floodpart.,$nick),2))) { return }
- set -eu10 %floodpart On
- set -eu30 %floodpart. $+ $nick On
- msg $chan $nick has left the channel and is no longer earning points.
- }
- alias add.pts { if ($1) { writeini -n Points.ini $1 Points $calc($readini(Points.ini,$1,Points) + 1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement