[script]
n0=on *:TEXT:Hello:#: {
n1= if ((%floodcommands) || ($($+(%,floodcommands.,$nick),2))) { return }
n2= set -u10 %floodhello On
n3= set -u30 %floodhello. $+ $nick On
n4= msg $chan Welcome $nick to the SCDudeDark Show!
n5=}
n6=on *:TEXT:Hi:#: {
n7= if ((%floodcommands) || ($($+(%,floodcommands.,$nick),2))) { return }
n8= set -u10 %floodhi On
n9= set -u30 %floodhi. $+ $nick On
n10= msg $chan Welcome $nick to the SCDudeDark Show!
n11=}
n12=on *:TEXT:Sup:#: {
n13= if ((%floodcommands) || ($($+(%,floodcommands.,$nick),2))) { return }
n14= set -u10 %floodsup On
n15= set -u30 %floodsup. $+ $nick On
n16= msg $chan Welcome $nick to the SCDudeDark Show!
n17=}
n18=
n19=alias -1 addPoints {
n20= if ($1 !isnum) (echo 2 -st $1 is not a number. It needs to be a number. | halt )
n21= var %topic $+($chan,.,$nick)
n22= var %points $calc($readini(Points.ini,%topic,Points) + $1)
n23= writeini -n Points.ini %topic Points %points
n24= return %points
n25=}
n26=alias -1 lookUpPoints {
n27= var %topic $+($chan,.,$nick)
n28= var %points $readini(Points.ini,%topic,Points)
n29= return %points
n30=}
n31=alias doaddpoints {
n32= if ($3 !isnum) { echo 2 -st $3 is not a number. It needs to be a number. | halt }
n33= var %topic $+($1,.,$2)
n34= var %points $calc($readini(Points.ini,%topic,Points) + $3)
n35= writeini -n Points.ini %topic Points %points
n36= echo -a Added points for %topic
n37=}
n38=alias dorempoints {
n39= var %topic $+($1,.,$2)
n40= remini -n Points.ini %topic Points
n41= echo -a Removed points for %topic
n42=}
n43=on *:text:!Scars cut*:#: {
n44= if ($0 != 4) || ($4 !isnum) {
n45= msg $chan Insufficient or incorrect parameters: use !Scars cut [user] [number]
n46= Halt
n47= }
n48= if ($4 <= 0) {
n49= msg $chan $nick you cannot give someone less than 1 Scar.
n50= halt
n51= }
n52= if ($readini(Points.ini,$+(#,.,$3),Points) = $null) {
n53= msg $chan $nick That person isn't registered to The SCDudeDark Show, please check your spelling or that you have the correct name and try again.
n54= Halt
n55= }
n56= else {
n57= if ($readini(Points.ini,$+(#,.,$nick),Points) >= $4) {
n58= writeini -n Points.ini $+(#,.,$3) Points $calc($readini(Points.ini,$+(#,.,$3),Points) + $4)
n59= writeini -n Points.ini $+(#,.,$nick) Points $calc($readini(Points.ini,$+(#,.,$nick),Points) - $4)
n60= msg $chan $nick has given $4 of their Scars to $3, $3 now has $readini(Points.ini,$+(#,.,$3),Points) Scars and $nick now has $readini(Points.ini,$+(#,.,$nick),Points).
n61= halt
n62= }
n63= elseif ($readini(Points.ini,$+(#,.,$nick),Points) < $4) {
n64= msg $chan $nick you do not have that many Scars to give.
n65= halt
n66= }
n67= }
n68=}
n69=on *:text: !scars:#:{ msg # $nick the chicks really dig your $readini(Points.ini,$+(#,.,$nick),Points) Scars!
n70=}
n71=on $*:TEXT:/!Scars (add|remove)/Si:#:{
n72= if ($nick = SCDudeDark) {
n73= if ($0 < 3) { msg # Insufficient parameters: Use !Scars <add|remove> <user> [number] | return }
n74= writeini -n Points.ini $+(#,.,$3) Points $calc($readini(Points.ini,$+(#,.,$3),Points) $iif($2 == add,+,-) $iif($4 isnum,$4,1))
n75= { msg $chan $3 now has $readini(Points.ini,$+(#,.,$3),Points) total Scars. }
n76= }
n77= else { msg $chan /me Only SCDudeDark can give you more Scars! Punches $nick }
n78=}
n79=ON !*:join:#:{
n80= $+(.timerpoints.,#,.,$nick) 0 600 add.pts $+(#,.,$nick)
n81= add.pts $+(#,.,$nick)
n82= if ((%floodjoin) || ($($+(%,floodjoin.,$nick),2))) { return }
n83= set -u10 %floodjoin On
n84= set -u30 %floodjoin. $+ $nick On
n85=}
n86=ON !*:part:#:$+(.timerpoints.,#,.,$nick) off
n87=alias -l add.pts {
n88= writeini -n Points.ini $1 Points $calc($readini(Points.ini,$1,Points) + 1)
n89=}