on *:text:*:#OperLog:{
  if $regex($1,/^[!.][uüÜ]lke/Si) {
    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok. }
      elseif $hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. }
      else { .hadd -ms Ulke $remove($strip($3-),$chr(32)) $+($strip($3-),$chr(191),$nick) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg # Lütfen !ulke sil <Ulke> olarak belirtiniz. }
      elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. }
      else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesinden silindi. }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }
      else {
        msg # Yasak Ülke Listesi
        msg # -
        var %:t = 1 | while %:t <= $hget(Ulke,0).data {
          msg # $+(%:t,-,$chr(41)) Ülke:4 $token($hget(Ulke,%:t).data,1,191)  Ekleyen:2 $token($hget(Ulke,%:t).data,2,191)
          inc %:t
        }
        msg # -
        msg # Yasak Ülke Listesi Sonu
      }
    }
  }
}
on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }
on *:sockopen:ulke*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:ulke*:{ 
  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke
  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!)
    if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }
    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
  }
}

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }

#nickTakip on
on !*:join:#:if ($hmatch(#,$+($site,*),0) >= 2) && !$regex($token($address,2,64),/(helper|oper|admin|global|ircop|dj)/i) { kntrl # $site $nick } | hadd -m # $+($site,½,$nick) 1 
alias kntrl var %1 1,%2 | while %1 <= $hmatch($1,$+($2,*),0) { var %& = $gettok($hmatch($1,$+($2,*),%1),2,189) | if (%& != $3) { %2 = $addtok(%2,%&,32) } | inc %1 } | $iif($gettok(%2,2,32),echo $colour(part) -t $1 5-Bilgi- 4 $3 5Daha Önce 5: %2 5Nicklerinden Giriş Yaptı. 4Host : $address($nick,2)) 
#nickTakip end
menu status {
  Takip
  .On:/enable #nickTakip
  .Off:/disable #nickTakip
}

raw 311:*:{ {
    /echo -a 0,4 Whois Info  4Beginn der Whois-Liste von $2 
    /echo -a 0,4 ©  3Nickname4:12 $2  
    /echo -a 0,4 ©  3Hostmask4:12 4(12 $+ $3 $+ 4 $+ @ $+ 12 $+ $4 $+ 4)   
    /echo -a 0,4 ©  3Realname4:12 $6-
    /echo -a 0,4 ©  3Country4:12 $country($4) 
    var %clone = $kanalclone($2) 
    if (%clone == $null) /echo -a 0,4 ©  3Clones vom $2 $+ 4: 12Keine Clones gefunden! 
    else /echo -a 0,4 ©  3Clones vom $2 $+ 4:12 $numtok(%clone,44) $+  4Clones -12 %clone 
    if ($2 == $me) { /echo -a 0,4 ©  3Meine Modes4:12 $usermode }
    Halt
  }
  haltdef
}
alias kanalclone { 
  if ($ial($address($1,2),0) == 1) return 
  var %nickler = 0 | var %clone = $1 
  while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) } 
  return %clone 
}
Alias country { 
  if (&? iswm $1) return country 
  if ($readini($scriptdircountry.ini,country,$gettok($1,-1,46))) return $ifmatch 
  if ($network == ptnet) && (127.* iswm $1) return PTnet fakemask 
  if ($remove($1,.) isnum) return Numeric IP 
  return Unknown
}  
raw 330:*: {
  haltdef
  /echo -a 0,4 ©  3Authname4:12 $2  $4 $5 $6 $7 $3
}
raw 307:*: {
  haltdef
  /echo -a 0,4 ©  3Registriert4:12 Nickname $2 ist registriert. 
} 
raw 379:*: {
  haltdef
  /echo -a 0,4 ©  3User Modes4:12 $6- 
} 
raw 312:*: {
  haltdef
  /echo -a 0,4 ©  3Network4:12 $network 
  /echo -a 0,4 ©  3Server4:12 $3 
  /echo -a 0,4 ©  3Server Description4:12 $4- 
}
raw 301:*: {
  haltdef
  /echo -a 0,4 ©  3Away4:12 $2 ist AwAy:4 $3- 
} 
raw 335:*: {
  haltdef
  /echo -a 0,4 ©  3Bot4:12 $2 ist ein Bot auf $network
} 
raw 317:*: {
  haltdef
  %idle = $replace($duration($3),  secs, 12 Sek.4,  sec, 12 Sek.4,  mins, 12 Min4,  min, 12 Min.4,  hrs, 12 Std.4,  hr, 12 Std.4,  days, 12 Tage4,  day, 12 Tag4,  wks, 12 Wochen4,  wk, 12 Woche)
  %online = $replace($duration($calc($ctime - $4)),  secs, 12 Sek.4,  sec, 12 Sek.4,  mins, 12 Min4,  min, 12 Min.4,  hrs, 12 Std.4,  hr, 12 Std.4,  days, 12 Tage4,  day, 12 Tag4,  wks, 12 Wochen4,  wk, 12 Woche)
  %baglanis = $replace($asctime($4,04dddd $+ 04dd12/04mm12/04yyyy 12UM 04HH12:04nn12:04ss ),monday,12Montag 3,tuesday,12Dienstag 3,wednesday,12Mittwoch 3,thursday,12Donnerstag 3,friday,12Freitag 3,saturday,12Samstag 3,sunday,12Sonntag 3,january,12Januar,February,12Februar,March,12März,april,12April,May,12Mai,June,12Juni,July,12Juli,August,12August,September,12September,October ,12Oktober,November,12November,December,12Dezember)  
  /echo -a 0,4 ©  3Eingeloggt4:12 $2 ist Eingeloggt am4 -4 %baglanis 12Uhr 
  /echo -a 0,4 ©  3Online4:12 $2 ist Online seit4 %online
  /echo -a 0,4 ©  3Idle4:12 $2 idlet seit4 %idle
  .timer 1 5 unset %idle*
  .timer 1 5 unset %online*
  .timer 1 5 unset %baglanis*
} 
raw 401:*: {
  haltdef
  /echo -a 0,4 ©  3Online4:12 $2 ist nicht online!
} 
raw 378:*:{
  haltdef
  /echo -a 0,4 ©  3Local Host4:12 $2 $3 $4 $5 $6
  nerden $7
}
alias nerden {
  if ($longip($1)) {
    var %e echo $color(whois) $iif($active == Status Window,-s,$active), %h 1, %r
    var %a ajax. $+ $upper($regsubex($str(.,10),/./g,$mid($md5($time),$r(1,32),1)))
    .comopen %a msxml2.xmlhttp
    %e 0,4 ©  3IP-Adresse4:12 $1
    noop $com(%a,send,$com(%a,open,1,bstr,GET,bstr,$+(http://ipinfo.io/,$1,/json),bool,true)) $com(%a,ResponseText,2)
    %r = $remove($replace($remove($com(%a).result,$({,0),$(},0),"),$+($chr(44),$lf),=),$lf)
    if ($count(%r,=)) {
      while ($gettok(%r,%h,61)) {
        %e $str($chr(160),15) $(|,0) $regsubex($v1,(.+):,$+($upper(\1),$str($chr(160),$calc(11-$len(\1))),:))
        inc %h
      }
    }
    .comclose %a
  }
  else whois $1
}

raw 318:*: {
  haltdef
  /echo -a 0,4 Whois Info  4Ende der Whois-Liste von $2 
} 
raw 310:*: {
  haltdef
  /echo -a 0,4 ©  3HelpOp4:12 $2- 
} 
raw 313:*: {
  haltdef
  /echo -a 0,4 ©  3InFo4:12 $2- 
} 
raw 320:*: {
  haltdef
  /echo -a 0,4 ©  3Oper Info4:12 $2- $+  
} 
raw 431:*: {
  haltdef
  /echo -a 0,4 ©  3Keinen Nicknamen Angegeben. 
} 
raw 671:*: {
  haltdef
  /echo -a 0,4 ©  3SSL-Verbindung4:12 Client Is Using A Secure Connection 
} 
raw 406:*: {
  haltdef
  /echo -a 0,4 ©  3Nickname Unbekannt. 
}
raw 319:*:{
  var %count 1, %temp, %crap, %result
  while ($comchan($2,%count)) {
    %temp = %temp $ifmatch
    inc %count
  }
  %count = 1
  while ($gettok($3-,%count,32)) {
    %crap = $fixchan($ifmatch)
    if ($istok(%temp,%crap,32)) { %result = %result 4 $+($chr(2),$gettok($3-,%count,32),$chr(2)) 12 }
    else { %result = %result $gettok($3-,%count,32) }
    inc %count
  }
  /echo -a 0,4 ©  3Channels4:3 -5 $numtok($3-,32) 3-12 %result 
  haltdef
}
raw 276:*:{
  haltdef
  echo -a 0,4 ©  3SSL-Client4:12 $2 $3 $4 $5 $6 $7
}
raw 327:*: {
  echo -a $timestamp 14|---› 14Client Info:1 Java User
  haltdef
}
alias fixchan return $mid($1,$pos($1,$chr(35)) -)



raw 1:*: { /echo   12Hoşgeldin4 $8 0,7 | halt }
raw 2:*: { /echo   12Server versionu:4 $8 | halt }
raw 3:*: { /echo   12Server Kuruluş Tarihi:4  $6 $7 $8 $6 $11 | halt }
raw 4:*: { /echo   12Sunucu Adı:4  $2 12Çalışan Version:4 $3  | halt }
raw 5:*: { /echo   12Server bilgi:4 $6 $7 $8 $6 $10 | halt }

raw 250:*: { /echo  12Toplam bağlantı4 $4 12kişi. | halt }
raw 251:*: { /echo  12Toplam kullanıcı sayısı:4 $4 | halt }
raw 251:*: { /echo  12Görünmeyen kullanıcı sayısı:4 $7 | halt }
raw 251:*: { /echo  12Toplam Server sayısı:4 $10 | halt  }
raw 252:*: { /echo  12IRC'de olan IRCop sayısı:4 $2 | halt }
raw 253:*: { /echo  12Bilinmeyen bağlantı sayısı:4 $2 | halt }
raw 254:*: { /echo  12Aktif kanal sayısı:4 $2 | halt }
raw 255:*: { /echo  12Alıcılar4 $4 12tane - Yerel kullanıcılar4 $7 12tane. | halt }

raw 301:*: { /echo -a 14* 6 $2 »3 Su Anda Away: 6 $3- |  halt }
raw 306:*: { /echo -a 4***12 Şu andan ihtibaren awaysiniz.  | halt }
raw 307:*: { echo -a %whoischange 14* 6 Rumuz Bilgi:3 $2 Sifreli ve Tanitilmis Bir Nicktir  | halt }
raw 310:*: { /echo -a %whoischange 14* 6 $2 3Bir Helper(IRC YardImcI) dır. | halt }
raw 311:*: {  /echo -a %whoischange 4© © © ©14 [6 Whois $2 14]4 © © © ©   | /echo -a %whoischange 14* 6 Adres: 3 $3 $+ @ $+ $4  | /echo -a %whoischange 14* 6 İsim: 3 $6- |  if ( %mynick == $2 ) { set %myaddress *!*@ $+ $4 | halt  } | halt }
raw 312:*: { /echo -a %whoischange 14* 6 Server: 3 $3 $4 $5-  | halt }
raw 313:*: { /echo -a %whoischange 14* 6 IRCop: 3 $2 $3- | halt }
raw 317:*: { /set -a %onlineT $calc($ctime - $4)   | /echo -a %whoischange 14* 6 Konuşmadığı Süre: 3 $replace($duration($3),secs,Saniye,mins,Dakika,hrs,Saat,days,Gün,wk,Hafta)  | /echo -a %whoischange 14* 6 Sunucuya Giriş Saati: 3 $replace($asctime($4),mon,Pazartesi,tue,Salı,wed,Çarşamba,thu,Perşembe,fri,Cuma,sat,Cumartesi,sun,Pazar,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)  | halt }
raw 318:*: {  /echo -a %whoischange 4© © © ©14 [6 Whois Sonu 14]4 © © © © | halt }
raw 319:*: { echo -a %whoischange 14* 6 Kanallar: 3 $3- | halt }
raw 328:*:{ /echo  4***12 $2 URL: $3   | halt }
raw 352:*:{ /echo    4***12 $2-  | halt }
REM raw 375:*:{ /echo  4«[12 Server Motd Başlangıcı 4]» | halt }
REM raw 376:*:{ /echo -  | /echo %c 4«[12 Server Motd Sonu 4]»  | /echo -  | halt }
raw 381:*:{ /echo -a 4***12 IRCop Oldun. Tebrikler | halt }

raw 401:*:{ /echo -a 4***12 $2 Kişi bulunamadı..  | halt }
raw 404:*:{ /echo -a 4***12 $2 Kanalına Gönderilmedi.  | halt }
raw 405:*:{ /echo -a 4***12 Daha fazla kanala giremezsiniz.  | halt }
raw 412:*:{ /echo -a 4***12 $2 yazdığınız gitmedi.  | halt }
raw 421:*:{ /echo -a 4***12 $2 Yalnış komut. | Halt }
raw 430:*:{ /echo  -a 4***12 $2 IRCop komutudur. Kullanamazsınız. | halt }
raw 433:*:{ .nick TeuFeLs-KerL $+ $rand(1,9) $+ $rand(1,9) | halt }
raw 441:*:{ /echo -a 4***12 $2 $3 Kanalında bulunamadı. | Halt }
raw 471:*: { echo  -a 4***12 $2 Kanalında limit var ve şu anda kanal limiti dolu. Daha sonra tekrar deneyiniz...  | halt }
raw 472:*:{ /echo  -a 4***12 $2 Yalnış mode ayarı.  | halt }
raw 473:*: { echo  -a 4***12 $2 Kanalına şu anda giremezsiniz. Kanal davetsel konumda (+i). Daha sonra tekrar deneyiniz...  | halt }
raw 474:*: { echo  -a 4***12 $2 Kanalına giremezsiniz. Banlısınız...  | halt }
raw 475:*: { echo  -a 4***12 $2 Kanalı şifreli konumda. (+k) Şifreyi bilmeden giremezsiniz.  | halt }
raw 437:*: { echo  -a 4***12 $2 Kanalında iken nick değiştiremezsiniz. Kanal nick değiştirmeye kapalı durumda. (+N)  | halt }
raw 478:*:{ /echo -a 4***12 $2 Ban List dolu.. ( $3 ) | Halt }
raw 481:*:{ /echo  -a 4***12 IRCop değilsiniz. Bu komutu kullanamazsınız. | halt }
raw 482:*:{ /echo  -a 4***12 $2 Kanalında op değilsin.  | halt }
raw 493:* { /echo -a %logo 0,12 0,4 $2 0,12 Nickinin Özeli Kapalı Olduğu Icin Mesajınız Kendisine Ulaşamadı.. | halt }
raw 461:* { /echo -a %logo 0,12 Yeterli Parametre Girmediniz.!! | halt }
raw 432:* { /echo -a %logo 0,4 $2 0,12 Kullanmaya Calıştığınız Nick Yasaklı Bir Nick.!! Lütfen Başka Bir Nick Deneyin.. | halt }