

alias _saat return $regsubex($replace($duration($1-),wks,hafta,days,gün,hrs,saat,mins,dakika,secs,saniye,wk,hafta,day,gün,hr,saat,min,dakika,sec,saniye),/(\d+)/gSi,\1 $chr(32))
alias _tr-ay-gun return $replace($1-,Sunday,Pazar,Monday,Pazartesi,Tuesday,Salý,Wednesday,Çarþamba,Thursday,Perþembe,Friday,Cuma,Saturday,Cumartesi,January,Ocak,February,Þubat,March,Mart,April,Nisan,May,Mayýs,June,Haziran,July,Temmuz,August,Aðustos,September,Eylül,October,Ekim,November,Kasým,December,Aralýk) 
alias _tr-ay-gun2 return $replace($1-,Sun,Pazar,Mon,Pazartesi,Tue,Salý,Wed,Çarþamba,Thu,Perþembe,Fri,Cuma,Sat,Cumartesi,Jan,Ocak,Feb,Þubat,Mar,Mart,Apr,Nisan,May,Mayýs,Jun,Haziran,Jul,Temmuz,Aug,Aðustos,Sep,Eylül,Oct,Ekim,Nov,Kasým,Dec,Aralýk)
alias _tr-ok return $replace($1-,Ãœ,Ü,ÅŸ,þ,Ä,Ð,Ä°,Ý,Ã–,Ö,Ã¼,ü,ÅŸ,Þ,ÄŸ,ð,Ã§,ç,Ä±,ý,Ã¶,ö,Ð±,ý,Ð°,Ý,Ã‡,Ç,Å,Þ,ÐŸ,ð,Asia,Asya,Europe,Avrupa,Turkey,Türkiye,City,Þehir,Country,Ülke,Continent,Kýta,Latitude,Enlem,Longitude,Boylam,Code,Kodu,Region,Plaka)
alias _tarih {
  if ($1 == $date) { return Bugün }
  elseif ($1 == $asctime($calc($ctime - 24 * 3600 * 1),dd/mm/yyyy)) { return Dün }
  elseif ($1 == $asctime($calc($ctime + 24 * 3600 * 1),dd/mm/yyyy)) { return Yarýn }
  else { return $1 }
}
alias _emesaj {
  var %n 1
  while %n <= $lines(hash/globals.tprk) {
    ;swegbot privmsg $read(hash/globals.tprk,%n) : $token($read(Txt/emesaj.txt),1,191)
    inc %n
  }
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
alias _trkce return $replace($1-,Ã–,ö,Ã‡,ç,Ä°,i,Ã¶,ö,Ã§,ç,Ã¼,ü,ÅŸ,þ,Ä±,ý,Åž,þ,ÄŸ,ð,Ãœ,ü,Äž,ð,$chr(39),`)


alias _oprcza-kontrol {
  var %:_oprcez-kontrol = $hget(operceza,0).data | while %:_oprcez-kontrol {
    var %:_oczra-ctime = $token($hget(operceza,%:_oprcez-kontrol).data,1,172)
    if ($calc(%:_oczra-ctime - $ctime) <= 30) {
      swbot privmsg $_admin $+(:,$_qt6(Bilgi),:) Oper cezasý olan $hget(operceza,%:_oprcez-kontrol).item nickinin ceza süresi doldu.
      .hdel -ms operceza $hget(operceza,%:_oprcez-kontrol).item
      .hsave -o operceza Hash/operceza.tprk
    }
    dec %:_oprcez-kontrol
  }
}

;- Bilgi komutu Sicil sorgusu
alias _yt-sicil {
  if !$lines($+(TXT/YT-Sicil/,$1,.txt)) { swbot privmsg $_admin :Yönetim sicil kaydý bulunmamaktadýr. }
  else { swbot privmsg $_admin :Yönetim sicil kaydý 4VAR! Okumak için: !Sicil Oku $1 }
  swbot privmsg $_admin :
  if !$lines($+(TXT/CS-Sicil/,$1,.txt)) { swbot privmsg $_admin :ChanServ sicil kaydý bulunmamaktadýr. }
  else { swbot privmsg $_admin :ChanServ sicil kaydý 4VAR! Okumak için: !Sicil Oku $1 }
  swbot privmsg $_admin :
  if !$lines($+(TXT/NS-Sicil/,$1,.txt)) { swbot privmsg $_admin :NickServ sicil kaydý bulunmamaktadýr. }
  else { swbot privmsg $_admin :NickServ sicil kaydý 4VAR! Okumak için: !Sicil Oku $1 }
  swbot privmsg $_admin :
}

;- Departman komutu, görev ve yardýmcý silme
alias _yt-dprmn-sil {
  if $hget(yardimci,$1) { .hdel -ms yardimci $1 | .hsave -o yardimci Hash/yardimci.tprk }
  if $hget(görev,$1) { .hdel -ms görev $1 | .hsave -o görev Hash/görev.tprk }
  if $regex($2,/^G[uüÜ]venl[ýiÝ]k$/Si) {
    swbot cs access $_sc del $1
    swbot cs access $_sc@ del $1
    swbot cs access $_destek del $1
    swbot cs access $_unban del $1
    swbot cs access $_koruma del $1
    swbot cs access $_proxy del $1
    swbot cs access $_kontrol del $1
    swbot cs access $_adwords del $1
    swbot cs access $_spamfilter del $1
    swbot cs access $_version del $1
    swbot cs access $_version@ del $1
    swbot sapart $1 $+($_destek,$chr(44),$_unban,$chr(44),$_koruma,$chr(44),$_kontrol,$chr(44),$_version,$chr(44),$_version@,$chr(44),$_sc,$chr(44),$_sc@,$chr(44),$_proxy,$chr(44),$_adwords,$chr(44),$_spamfilter)
    if $hget(spamgiris,$1) { .hdel -ms spamgiris $1 | .hsave -o spamgiris Hash/spamgiris.tprk }
    if $hget(progiris,$1) { .hdel -ms progiris $1 | .hsave -o progiris Hash/progiris.tprk }
    if $hget(scseviye,$1) { .hdel -ms scseviye $1 | .hsave -o scseviye Hash/scseviye.tprk }
    if $hget(scgiris,$1) { .hdel -ms scgiris $1 | .hsave -o scgiris Hash/scgiris.tprk }
    if $hget(versiongiris,$1) { .hdel -ms versiongiris $1 | .hsave -o versiongiris Hash/versiongiris.tprk }
    if $hget(xlgiris,$1) { .hdel -ms xlgiris $1 | .hsave -o xlgiris Hash/xlgiris.tprk }
    if $hget(badnickgiris,$1) { .hdel -ms badnickgiris $1 | .hsave -o badnickgiris Hash/badnickgiris.tprk }
  }
  elseif $regex($2,/^ChanServ$/Si) {
    swbot cs access $_cs del $1
    swbot cs access $_cs@ del $1
    swbot cs access $_cs-log del $1
    swbot cs access $_globals del $1
    swbot cs access $_founders del $1
    swbot sapart $1 $+($_cs,$chr(44),$_cs@,$chr(44),$_cs-log,$chr(44),$_globals,$chr(44),$_founders)
    if $hget(csseviye,$1) { .hdel -ms csseviye $1 | .hsave -o csseviye Hash/csseviye.tprk }
    if $hget(csgiris,$1) { .hdel -ms csgiris $1 | .hsave -o csgiris Hash/csgiris.tprk }
  }
  elseif $regex($2,/^N[ýiÝ]ckServ$/Si) {
    swbot cs access $_ns del $1
    swbot cs access $_ns@ del $1
    swbot cs access $_ns-log del $1
    swbot cs access $_badnick del $1
    swbot sapart $1 $+($_ns,$chr(44),$_ns@,$chr(44),$_ns-log,$chr(44),$_badnick)
    if $hget(nsseviye,$1) { .hdel -ms nsseviye $1 | .hsave -o nsseviye Hash/nsseviye.tprk }
    if $hget(nsgiris,$1) { .hdel -ms nsgiris $1 | .hsave -o nsgiris Hash/nsgiris.tprk }
    if $hget(badnickgiris,$1) { .hdel -ms badnickgiris $1 | .hsave -o badnickgiris Hash/badnickgiris.tprk }
  }
  elseif $regex($2,/^Sales$/Si) {
    swbot cs access $_sales del $1
    swbot cs access $_sales@ del $1
    swbot sapart $1 $+($_sales,$chr(44),$_sales@)
    if $hget(salesyetkili,$1) { .hdel -ms salesyetkili $1 | .hsave -o salesyetkili Hash/salesyetkili.tprk }
    if $hget(salesgiris,$1) { .hdel -ms salesgiris $1 | .hsave -o salesgiris Hash/salesgiris.tprk }
  }
  elseif $regex($2,/^XL[ýiÝ]ne$/Si) {
    swbot cs access $_xline del $1
    swbot cs access $_xline@ del $1
    swbot cs access $_xline& del $1
    swbot cs access $_proxy del $1
    swbot sapart $1 $+($_xline,$chr(44),$_xline@,$chr(44),$_xline&,$chr(44),$_proxy)
    if $hget(spamgiris,$1) { .hdel -ms spamgiris $1 | .hsave -o spamgiris Hash/spamgiris.tprk }
    if $hget(progiris,$1) { .hdel -ms progiris $1 | .hsave -o progiris Hash/progiris.tprk }
    if $hget(scgiris,$1) { .hdel -ms scgiris $1 | .hsave -o scgiris Hash/scgiris.tprk }
    if $hget(versiongiris,$1) { .hdel -ms versiongiris $1 | .hsave -o versiongiris Hash/versiongiris.tprk }
    if $hget(xlgiris,$1) { .hdel -ms xlgiris $1 | .hsave -o xlgiris Hash/xlgiris.tprk }
    if $hget(badnickgiris,$1) { .hdel -ms badnickgiris $1 | .hsave -o badnickgiris Hash/badnickgiris.tprk }
  }
}


alias Goldekle { if $1 { if $read(Gold/Gold.txt,w,$1) { swbot privmsg  $_admin $1   zaten listede ekli. | halt } | else { write Gold/Gold.txt $1 | swbot privmsg  $_admin  $1  Gold olarak eklendi. | swbot privmsg chanserv access #Gold add $1 50 } } }
alias Goldlist { if !$lines(Gold/Gold.txt)  { swbot privmsg  $_admin $_nick($1) listede ekli Gold user yok | halt } | var %l2 1 | while (%l2 <= $lines(Gold/Gold.txt)) { swbot privmsg  $_admin %l2 $read(Gold/Gold.txt,%l2) | inc %l2 } }
alias Goldsil { if $1 { if !$read(Gold/Gold.txt,w,$1) { swbot privmsg  $_admin  $1  Gold listesinde yok. | halt } | else { write $+(-dl,$readn) Gold/Gold.txt | swbot privmsg  $_admin  $1 Gold listesinden silindi.  | swbot privmsg chanserv access #Gold del $1 } } }
alias vipekle { if $1 { if $read(Vip/vip.txt,w,$1) { swbot privmsg $_admin $1  zaten listede ekli. | halt } | else { write Vip/vip.txt $1 | swbot privmsg  $_admin $1  vip olarak eklendi. | swbot privmsg chanserv access #vip add $1 50 } } }
alias viplist { if !$lines(Vip/vip.txt)  { swbot privmsg  $_admin $_nick($1) listede ekli vip user yok | halt } | var %l2 1 | while (%l2 <= $lines(Vip/vip.txt)) { swbot privmsg  $_admin %l2 $read(Vip/vip.txt,%l2) | inc %l2 } }
alias vipsil { if $1 { if !$read(Vip/vip.txt,w,$1) { swbot privmsg  $_admin  $1  vip listesinde yok. | halt } | else { write $+(-dl,$readn) Vip/vip.txt | swbot privmsg  $_admin  $1 vip listesinden silindi.  | swbot privmsg chanserv access #vip del $1 } } }
alias Webmasterekle { if $1 { if $read(Forum/Netforumlari/Webmaster.txt,w,$1) { swforumbot privmsg $_forum@ $_qt5(Bilgi) $1  zaten listede ekli. | halt } | else { write Forum/Netforumlari/Webmaster.txt $1 | swforumbot privmsg $_forum@ $1  Webmaster olarak eklendi. | swbot privmsg chanserv access #Webmaster add $1 50 } } }
alias Webmasterlist { if !$lines(Forum/Netforumlari/Webmaster.txt)  { swforumbot privmsg $_forum@ $_qt5(Bilgi) Webmaster  listesi boþ | halt } | var %l2 1 | while (%l2 <= $lines(Forum/Netforumlari/Webmaster.txt)) { swforumbot privmsg $_forum@ %l2 $read(Forum/Netforumlari/Webmaster.txt,%l2) | inc %l2 } }
alias Webmastersil { if $1 { if !$read(Forum/Netforumlari/Webmaster.txt,w,$1) { swforumbot privmsg $_forum@ $_qt5(Bilgi) $1  Webmaster listesinde yok. | halt } | else { write $+(-dl,$readn) Forum/Netforumlari/Webmaster.txt | swforumbot privmsg $_forum@ $_qt5(Bilgi)  $1 Webmaster listesinden silindi.  | swbot privmsg chanserv access #Webmaster del $1 } } }
alias Emektarekle { if $1 { if $read(Forum/Netforumlari/emektar.txt,w,$1) { swforumbot privmsg $_forum@ $_qt5(Bilgi) $1  zaten listede ekli. | halt } | else { write Forum/Netforumlari/emektar.txt $1 | swforumbot privmsg $_forum@ $_qt5(Bilgi) $1  Emektar olarak eklendi. | swbot privmsg chanserv access #Emektar add $1 50 } } }
alias Emektarlist { if !$lines(Forum/Netforumlari/emektar.txt)  { swforumbot privmsg $_forum@ $_qt5(Bilgi) Emektar  listesi boþ | halt } | var %l2 1 | while (%l2 <= $lines(Forum/Netforumlari/emektar.txt)) { swforumbot privmsg $_forum@ %l2 $read(Forum/Netforumlari/emektar.txt,%l2) | inc %l2 } }
alias Emektarsil { if $1 { if !$read(Forum/Netforumlari/emektar.txt,w,$1) { swforumbot privmsg $_forum@ $_qt5(Bilgi) $1  Emektar listesinde yok. | halt } | else { write $+(-dl,$readn) Forum/Netforumlari/emektar.txt | swforumbot privmsg $_forum@  $1 Emektar listesinden silindi.  | swbot privmsg chanserv access #Emektar del $1 } } }
alias Radyoekle { if $1 { if $read(Forum/Netforumlari/Radyo.txt,w,$1) { swforumbot privmsg $_forum@ $_qt5(Bilgi) $1  zaten listede ekli. | halt } | else { write Forum/Netforumlari/Radyo.txt $1 | swforumbot privmsg $_forum@ $_qt5(Bilgi) $1  Radyo olarak eklendi. | swbot privmsg chanserv access #OkyanusFM add $1 50 } } }
alias Radyolist { if !$lines(Forum/Netforumlari/Radyo.txt)  { swforumbot privmsg $_forum@ $_qt5(Bilgi) Radyo listesi boþ | halt } | var %l2 1 | while (%l2 <= $lines(Forum/Netforumlari/Radyo.txt)) { swforumbot privmsg $_forum@ %l2 $read(Forum/Netforumlari/Radyo.txt,%l2) | inc %l2 } }
alias Radyosil { if $1 { if !$read(Forum/Netforumlari/Radyo.txt,w,$1) { swforumbot privmsg $_forum@ $_qt5(Bilgi)  $1  Radyo listesinde yok. | halt } | else { write $+(-dl,$readn) Forum/Netforumlari/Radyo.txt | swforumbot privmsg $_forum@  $1 Radyo listesinden silindi.  | swbot privmsg chanserv access #OkyanusFM del $1 } } }
alias Coderekle { if $1 { if $read(Forum/Netforumlari/Coder.txt,w,$1) { swforumbot privmsg $_forum@ $_qt5(Bilgi) $1  zaten listede ekli. | halt } | else { write Forum/Netforumlari/Coder.txt $1 | swforumbot privmsg $_forum@ $_qt5(Bilgi) $1  Coder olarak eklendi. | swbot privmsg chanserv access #Coder add $1 50 } } }
alias Coderlist { if !$lines(Forum/Netforumlari/Coder.txt)  { swforumbot privmsg $_forum@ $_qt5(Bilgi) Coder listesi boþ | halt } | var %l2 1 | while (%l2 <= $lines(Forum/Netforumlari/Coder.txt)) { swforumbot privmsg $_forum@ %l2 $read(Forum/Netforumlari/Coder.txt,%l2) | inc %l2 } }
alias Codersil { if $1 { if !$read(Forum/Netforumlari/Coder.txt,w,$1) { swforumbot privmsg $_forum@ $_qt5(Bilgi) $1  Coder listesinde yok. | halt } | else { write $+(-dl,$readn) Forum/Netforumlari/Coder.txt | swforumbot privmsg $_forum@  $1 $_qt5(Bilgi) Coder listesinden silindi.  | swbot privmsg chanserv access #Coder del $1 } } }
alias Hostingekle { if $1 { if $read(Forum/Netforumlari/Hosting.txt,w,$1) { swforumbot privmsg $_forum@ $_qt5(Bilgi) $1  zaten listede ekli. | halt } | else { write Forum/Netforumlari/Hosting.txt $1 | swforumbot privmsg $_forum@ $1 $_qt5(Bilgi) Hosting olarak eklendi. | swbot privmsg chanserv access #Hosting add $1 50 } } }
alias Hostinglist { if !$lines(Forum/Netforumlari/Hosting.txt)  { swforumbot privmsg $_forum@ $_qt5(Bilgi) Hosting  listesi boþ | halt } | var %l2 1 | while (%l2 <= $lines(Forum/Netforumlari/Hosting.txt)) { swforumbot privmsg $_forum@ %l2 $read(Forum/Netforumlari/Hosting.txt,%l2) | inc %l2 } }
alias Hostingsil { if $1 { if !$read(Forum/Netforumlari/Hosting.txt,w,$1) { swforumbot privmsg $_forum@ $_qt5(Bilgi)  $1  Hosting listesinde yok. | halt } | else { write $+(-dl,$readn) Forum/Netforumlari/Hosting.txt | swforumbot privmsg $_forum@  $1 Hosting listesinden silindi.  | swbot privmsg chanserv access #Hosting del $1 } } }
