######################## CityBOT Ayarlari ############### 
alias botnick return CityBot
alias nickpass return 123456
alias opers return Aeg 123456
alias supass return 123456
alias ident return 63
alias operchan return #opers
alias sunucu return irc.buchat.com 6667
alias sunucu2 return irc.buchat.com 6667
alias hostum return Sehir.Bot
######################## CityBOT2 Ayarlari ############### 
alias opers2 return Aeg 123456
alias sunucu2 return irc.buchat.com 6667
############### Ayar The End ############
alias city {
  if ($1 == bagla) {
    sockclose city | sockclose city2 | sockopen city $sunucu | sockopen city2 $sunucu2
  }
  if ($1 == kapat) {
    sockclose city | sockclose city2
  }
}
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}
on *:SOCKOPEN:city: {
  sw $sockname nick $+(Services,$r(0,99))
  sw $sockname USER $ident " " : $+ $+([,,CityBOT,,]) (System v1 by Aeg)
}
on *:sockread:city: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $1 == error && $2 == :closing {
    city bagla
  }
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $opers
    sw $sockname join 0,
    sw $sockname nick $botnick
    sw $sockname sethost $hostum
    sw $sockname setident $ident
    sw $sockname join $operchan
    sw $sockname mode $botnick +p
  }
  if ($2 == 352) && (%kontrol.nick [ $+ [ $8 ] ] == $8) {
    nerden $6 $8
    sw $sockname who +I $+(*,$6,*)
    unset  %kontrol.nick [ $+ [ $8 ] ]
    halt
  }
  if ($2 == 352) {
    %clone. [ $+ [ $6 ] ] = $addtok( %clone. [ $+ [ $6 ] ] ,$8,32)
  }
  if $2 == notice { 
    if (*client connecting* iswm $strip($1-)) && (%city == on) {
      set -u5  %kontrol.nick [ $+ [ $12 ] ] $12
      sw $sockname who +I $12
    }
  }
  if ($2 == privmsg) {
    var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3
    if (.city isin %m) && (%k == $operchan) { 
      if ($5 == on) {
        if (%city == on) {    sw $sockname privmsg %k CityBot Zaten Aktif! | halt }
        set %city on |    sw $sockname privmsg %k CityBot  Aktif! 
        halt
      }
      if ($5 == off) { 
        if (%city == off) {  sw $sockname privmsg %k CityBot DEAktif! | halt }
        set %city off |   sw $sockname privmsg %k  CityBot DEAktif! 
        halt
      }
    }
  }
}
on *:SOCKOPEN:city2: {
  sw $sockname nick $+(Services,$r(0,99))
  sw $sockname USER $ident " " : $+ $+([,,CityBOT,,]) (System v1 by Aeg)
}
on *:sockread:city2: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $1 == error && $2 == :closing {
    hostserv bagla
  }
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $opers2
    sw $sockname join 0,
    sw $sockname nick $+($botnick,2)
    sw $sockname sethost $hostum
    sw $sockname setident $ident
    sw $sockname mode $+($botnick,2) +p
  }
  if $2 == notice { 
    if (*client connecting* iswm $strip($1-)) && (%city == on) {
      set -u5  %kontrol.nick [ $+ [ $12 ] ] $12
      sw $sockname who +I $12
    }
  }
}
alias nerden {
  inc -u10 %xax 
  set -u6 %nick [ $+ [  $1 ] ] $2
  sockopen $+(nerden,%xax) whatismyipaddress.com 80
  sockmark $+(nerden,%xax) $1
}
on *:sockopen:nerden*:{
  sockwrite -n $sockname GET /ip/ $+  $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname Host: whatismyipaddress.com $+ $crlf $+ $crlf
}
on *:sockread:nerden*:{
  var %city
  sockread $htmlfree(%city)
  .tokenize 32 $htmlfree(%city)
  if (*City:* iswm %city) {
    .set -u10 %yerelsehir $+ $sock($sockname).mark  0
    .set -u10 %yerelsehir $+ $sock($sockname).mark $1 $2
    .set -u10 %yerelsehir $+ $sock($sockname).mark  $remove(%yerelsehir [ $+ [ $sock($sockname).mark ] ],City:)
    sw $sockname sajoin %nick [ $+ [  $sock($sockname).mark ] ]  $+($chr(35),%yerelsehir [  $+ [ $sock($sockname).mark ] ]) 
    sw $sockname privmsg #opers [GIRIS] Nick: %nick [ $+ [  $sock($sockname).mark ] ]  IP: $sock($sockname).mark Sehir: $+($chr(35),%yerelsehir [  $+ [ $sock($sockname).mark ] ]) $iif($numtok(%clone. [ $+ [ $sock($sockname).mark ] ],32) != 1 ,Kanaldaki Cloneleri: %clone. [ $+ [ $sock($sockname).mark ] ])
    sw $sockname privmsg %nick [ $+ [  $sock($sockname).mark ] ] CityBot Tarafindan OTO JOIN : $+($chr(35),%yerelsehir [  $+ [ $sock($sockname).mark ] ])
    hava %yerelsehir [  $+ [ $sock($sockname).mark ] ]   %nick [ $+ [  $sock($sockname).mark ] ]
    unset %clone. [ $+ [ $sock($sockname).mark ] ]
  }
}
alias htmlfree {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;)
  return %x
}
alias hava {
  inc -u10 %xax 
  set -u5 %hava [ $+ [ $1 ] ] $2
  sockopen $+(hava,%xax) havadurumu.mynet.com 80
  sockmark $+(hava,%xax) $replace($1-,urfa,sanliurfa)
}
on *:sockopen:hava*:{
  sockwrite -n $sockname GET /asya/turkiye/ $+  $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname Host: havadurumu.mynet.com $+ $crlf $+ $crlf
}
on *:sockread:hava*:{
  var %hava
  sockread $htmlfree(%hava)
  .tokenize 32 $htmlfree(%hava)
  if (*title*MYNET*Hava*durumu*-*T*rkiye* iswm %hava) {
    sw $sockname privmsg %hava  [ $+ [ $sock($sockname).mark ] ]  Sorgulanan: $remove($htmlfree(%hava),  ,MYNET)
  }
  if (*hvDate* iswm %hava) {
    sw $sockname privmsg %hava  [ $+ [ $sock($sockname).mark ] ]  Tarih: $remove($htmlfree(%hava),  )
  }
  if (*hvDay* iswm %hava) {
    sw $sockname privmsg  %hava [ $+ [ $sock($sockname).mark ] ] Gun: $remove($htmlfree(%hava),  )
  }
  if (*hvMood* iswm %hava) {
    sw $sockname privmsg %hava  [ $+ [ $sock($sockname).mark ] ] Durum: $remove($htmlfree(%hava),  )
  }
  if (*hvDeg1* iswm %hava) { 
    sw $sockname privmsg  %hava [ $+ [ $sock($sockname).mark ] ] En Yuksek Sicaklik: $remove($htmlfree(%hava),  )
  }
  if (*hvDeg2* iswm %hava) { 
    sw $sockname privmsg %hava  [ $+ [ $sock($sockname).mark ] ] En Dusuk Sicaklik: $remove($htmlfree(%hava),  )
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
  return %x
}