//write sayı.txt 10 $crlf 9 $crlf 8 $crlf 7 $crlf 6 $crlf 5 $crlf 4 $crlf 3 $crlf 2 $crlf 1

//var %s = 10 | while %s { var %w $addtok(%w,%s,32) | dec %s } | .write sayı.txt $replace(%w,$chr(32),$crlf)

//write sayı.txt $regsubex($sorttok($regsubex($str(*,10),/./g,\n $chr(32)),32,nr),/\s/g,$crlf)

on *:join:#y: {
  .enable #rr
  .userip $nick
  .timerRR 1 1 .disable #rr
  if ($nick == Tprk) {
    $iif(%&& == Paradox,return,_aa $chan $nick)
  }
}
alias _aa { 
  .ban -u120 $1-
  .kick $1- Atıldınız.
  .unset %&&
}
#rr off
raw 340:*: {
  if ($left($4,1) == +) {
    .set %&& $remove($token($gettok($4,2,$asc(=)),1,$asc(@)),+)
  }
  elseif ($left($4,1) == -) {
    .set %&& $remove($token($gettok($4,2,$asc(=)),1,$asc(@)),-)
  }
}
#rr end

on !*:join:#Y:{
  if $regex($nick,/^Tprk$/) && $token($token($address($nick,5),2,33),1,64) != Paradox {
    ban -ku120 # $nick Yasak..
  }
}

on !*:join:#A:{
  if $regex($nick,/my/) {
    inc %my 
    if %my == 5 {
      tokenize 32 $regsubex($str(*,$nick(#Sohbet,0)),/./g,$nick(#Sohbet,\n) $chr(32)) 
      mode # +b $*
      unset %my
    }
  }
}

on !*:join:#A:{
  if $regex($nick,/my/) {
    inc %my 
    if %my == 5 {
      tokenize 32 $regsubex($str(*,$nick(#Sohbet,0)),/./g,$nick(#Sohbet,\n) $chr(32))
      if $regex($*,/my/) {
        mode # +b $*
      }
      unset %my
    }
  }
}