Coding is fairly simple, and there are a couple things that can be improved on. Try making the $nick a $wildsite. What if the nick changed nicks? He could evade your kicker. Make the $strip($1-) an $istok so that it doesn\'t retrieve the word from another word that has been combined. And you do not need the %y variable. That could be simply a while (%variable <= %x)
What about if you exit? Everything would still be saved. Add an on :exit event to unset the variables. ( unset %swear.num. )