Forums Scripts & Popups help with bonus point script

;=====Bonus Point system ====


alias -l addPoints {
if ($1 !isnum) { echo 2 -st $1 must be a number. | halt }
var %topic $+($chan,.,$nick)
var %points $calc($readini(Docs\Point.ini,%topic,Points) + $1)
writeini -n Docs\Point.ini %topic Points %points
return %points
}

alias -l lookUpPoints {
var %topic $+($chan,.,%target)
var %topic $+($chan,.,$nick)
var %points $readini(Docs\Point.ini,%topic,Points)
return %points
}

on 1:text:!bonus:#:{
var %target $iif($2,$2,$nick)
var %points $lookUpPoints
msg # %target wow already %points Bonus points in $chan
}

on 1:text:!bonusnick:#:{
var %target $iif($2)
var %points $lookUpPoints
msg # %target wow already %points Bonus points in $chan
}

;==Top 10 users===================

on 1:TEXT:!bonus10:#:{ run_top10 # }
alias run_top10 {
window -h @. | var %i 1
while $ini(Docs\point.ini,%i) {
var %n $v1
if ($+(*,$1,*) iswm %n) {
aline @. $gettok($remove(%n,[,]),2,46) $readini(Docs\point.ini,%n,points)
}
inc %i
}
filter -cetuww 2 32 @. @.
var %i 1 | while %i <= 10 {
var %list $addtok(%list,$line(@.,%i),44)
inc %i
}
msg $1 Top 10 bonus point users are $replace(%list,$chr(44),$+($chr(44),$chr(32)))
window -c @.
}

;===on part======

on 1:text:quits:#:{
if (services iswm $nick) return
if (Guest* iswm $nick) return
var %points $addPoints(-2)
msg #skinnerbek removes 2 points to $nick $- , total points %points $- :Quiting
}

;=nickchange=============

on 1:text:* now known as*:#:{
if (services iswm $nick) return
if (Guest* iswm $nick) return
var %points $addPoints(-5)
msg #skinnerbek Bot removed 5 points from $nick $- , total points %points $+ :Nickchange
halt
}
on 1:text:* now away *:#:{
if (services iswm $nick) return
if (Guest* iswm $nick) return
var %points $addPoints(-2)
msg #skinnerbek Bot removed 2 points from $nick $- , total points %points $+ :Nickcgange
halt
}

on 1:text:* smoke *:#:{
if (services iswm $nick) return
if (Guest* iswm $nick) return
var %points $addPoints(-1)
msg #skinnerbek Bot removed 1 points from $nick $- , total points %points $+ :Rook
halt
}

on 1:text:*bbl*:#:{
if (services iswm $nick) return
if (Guest* iswm $nick) return
var %points $addPoints(-3)
msg #skinnerbek Bot removed 3 points from $nick $- , total points %points $+ :BBL
halt
}
on 1:text:*brb*:#:{
if (services iswm $nick) return
if (Guest* iswm $nick) return
var %points $addPoints(-2)
;msg #skinnerbek Bot removed 2 points from $nick $- , total points %points $+ :BRB
halt
}

alias -l swear.words { RETURN tiet.spyker.bitch.poes.naai.piel.jags.cock.cunt.fok.fokkit.vok.vokkit }
alias -l good.words { RETURN more.middag.naand.hallo.hello.hi.bye.wt.dag.alo }

ON @*:TEXT:*:#:{
if (services iswm $nick) return
if (Guest* iswm $nick) return
VAR %x = $strip($1-) , %i = $numtok($swear.words,46)
WHILE (%i) {
IF ($istok(%x,$gettok($swear.words,%i,46),32)) {
var %points $addPoints(-10)
;msg #skinnerbek Bot removed 10 points from $nick $- , total points %points $+ :Badwords
RETURN
}

IF ($istok(%x,$gettok($good.words,%i,46),32)) {
var %points $addPoints(+5)
msg #skinnerbek Bot added 5 points to $nick $+ , total points %points $+ :Goodwords
RETURN
}

DEC %i
}
else
var %points $addPoints(+1)
msg #skinnerbek Bot awards 1 points to $nick $+ , total points %points $+ :Gesels
}