Er startet på det..
lige pt er det flg:
on *:text:!add & *:#: {
if ($auth($nick)) && ($auth($2)) {
if ($13) { msg $chan Max 10 numre | halt }
if ($remove($3-,$chr(32)) !isnum) { msg $chan Kun tal! | halt }
writeini split.ini Split $auth($2) $replace($sorttok($3-,32,n),$chr(32),$chr(32) $+ !NON! $+ $chr(32)) $+ !NON!
msg $chan Current targets: $Split:Target
}
}
on *:text:!take & &:#: {
if ($auth($nick)) && ($auth($2)) {
if ($3 !isnum) { msg $chan Kun tal! | halt }
if (!$istok($readini(Split.ini,Split,$auth($2)),$3,32)) { msg $chan $3 er taget eller ikke brugt! | halt }
var %Temp.data = $reptok($remove($readini(Split.ini,Split,$auth($2)),!NON!),$3,$3 $+ -( $+ $auth($nick) $+ ),1,32)
msg $chan %Temp.data $readini(Split.ini,Split,$auth($2))
writeini split.ini Split $auth($2) $replace(%Temp.data,$chr(32),$chr(32) $+ !NON! $+ $chr(32))
msg $chan Current targets: $Split:Target
}
}
on *:text:!splits:#: {
if ($auth($nick)) {
set %a 1
while (%a <= $ini(Split.ini,split,0)) {
msg $chan Splits for $+ $authnick($ini(Split.ini,Split,%a)) $+ $remove($readini(Split.ini,Split,$ini(Split.ini,Split,%a)),!NON!)
inc %a
}
else { msg $chan Ingen splits igang | halt }
}
}
on *:text:!free:#: {
if ($auth($nick)) {
set %a 1
while (%a <= $ini(Split.ini,split,0)) {
set %b 1
while (%b <= $findtok($readini(Split.ini,Split,$ini(Split.ini,Split,%a)), !NON!, 0, 32)) {
var %Test = $readini(Split.ini,Split,$ini(Split.ini,Split,%a))
var %Temp.data = %Temp.data $gettok(%test,$calc( $findtok(%test, !NON!, %b, 32) +1) ,32)
inc %b
}
msg $chan Free for $+ $authnick($ini(Split.ini,Split,%a)) $+ $remove(%Temp.data,!NON!)
unset %temp.data
inc %a
}
else { msg $chan Ingen splits igang | halt }
}
}
alias Split:Target {
set %a 1
while (%a <= $ini(Split.ini,split,0)) {
var %Temp.Data = %Temp.data $authnick($ini(Split.ini,Split,%a)) ( $+ $remove($readini(Split.ini,Split,$ini(Split.ini,Split,%a)),!NON!) $+ )
inc %a
}
if (%Temp.Data) { return $ifmatch }
else { return 0 }
}