mIRC Scripting

mIRC Scripting (https://www.mircscripting.net/)
-   Help - Yardım (https://www.mircscripting.net/help-yardym/)
-   -   nbseen Alience (https://www.mircscripting.net/help-yardym/912-nbseen-alience.html)

fav 29 Haziran 2016 23:37
nbseen Alience
 
Arkadaşlar nick takip kodudur databesalı
görüldüğü üzre Alience arkadaşımıza ait
sorunumuz ise kodun bazaldığı ipadresi
----------------------
[email protected] 2455454.03612721
-----------------------

bunun gibidir buşekilde sorunlar oluşuyor
sadece_mertt!Zurna@superop.ıp tarzında çalışan sunucularda karışıklık oluyor

Ben kodu userip $nick verisini esas alsın istedim nedendir çalıştıramadım

yardımcı olursanız sevinirim
Kod:

/*
Addon: nbseen
Versiyon: v0.1
Yazan: Alience
Tarih: 14-09-2010
mIRC version: 7.1
*/
alias nbdll {
  var %check = $dll($qt($+($scriptdir,db.dll)),Open,nblist $shortfn($+($scriptdir,nblist.db))))
  if !$regex(%check,(S_OK|E_LABEL_IN_USE)) { echo $color(info text) *** nblist error: %check | halt }
  %check = $dll($qt($+($scriptdir,db.dll)),Query,nblist $1-)
  if $isid { return %check }
  elseif $show && !$isid { echo $color(info text) *** nblist: %check }
}
alias nbsave {
  .nbdll DELETE FROM list WHERE (strftime('%J','now') - strftime('%J',ctime) > 100)
  if $regex($nbdll(select * FROM list WHERE nick = $+(',$1,') and network = $+(',$2,') and ip LIKE $+(',$regsubex($3,^.*@,$+($chr(37),@)),')),S_OK [^0]) {
    .nbdll UPDATE list SET ctime = julianday('now') where nick = $+(',$1,') and network = $+(',$2,') and ip = $+(',$3,')
  }
  else {
    .nbdll insert into list values( $+(',$1,') , $+(',$2,') , $+(',$3,') ,julianday('now'))
  }
}
alias nbsrc {
  return $gettok($nbdll(SELECT * FROM list WHERE network = $+(',$1,') AND ip LIKE $+(',$replace($2,*,%),') AND $+(nick!=,',$3,')),2,32)
}
alias nbget {
  var %x = $remove($dll($qt($+($scriptdir,db.dll)),fetchrow,nblist $1),S_OK)
  return $gettok(%x,$2,9)
}
#uip off
raw 340:*: { set %userip  *!*@ $+ $gettok($gettok($2-,2,64),1-3,46) $+ .IP | halt }
#uip end



on *:connect: { if !$ial { .ial on } }
on !*:join:#: { unset %userip | .enable #uip | .timerusip 1 1 userip $nick | .timer 1 3 .disable #uip |  set %fulladdress $fulladdress
  $iif(!$window(@AynıNickler),window -e @AynıNickler)
  if $istok(Check SozBot T-BoT,$nick,32) { return }
  if $nick != $me {
    var %outstr = $null
    if $nbsrc($iif($network,$network,$server),%userip) {
      var %i = $v1
      if #sohbet == $chan {
        echo -t @AynıNickler $+($str($chr(160),3),->) $nick 4NickininDaha Onceki nickleri $+($chr(40),%i,$chr(41),:)
      }
      echo -t $chan $+($str($chr(160),3),->) 4Daha Onceki nickleri $+($chr(40),%i,$chr(41),:)
      while %i > 0 {
        if $len(%outstr $nbget(%i,1)) <= 750 {
          %outstr = $+(%outstr,$iif(%outstr,$+(4 $+ $chr(44) $+ 3,$chr(32)),$null),$nbget(%i,1))         
        }
        else { 
          echo -t $chan $+($str($chr(160),3),->) 3 %outstr
          if #sohbet == $chan {
            echo -te  @AynıNickler  $+($str($chr(160),3),->) 3 %outstr
          }
          %outstr = $null
        }
        dec %i 1
      }
      if %outstr {
        echo -t $chan $+($str($chr(160),3),->) 3 %outstr
        if #sohbet == $chan {
          .timer 1 1  echo -te  @AynıNickler $+($str($chr(160),3),->) 3 %outstr
        }
      }
      echo $chan $chr(160)
    }
    nbsave $nick $iif($network,$network,$server) %fulladdress
  }
}

on *:open:?:*: {
  var %outstr = $null
  if $nbsrc($iif($network,$network,$server),%userip,$nick) {
    var %i = $v1
    echo -t $nick 4Daha Onceki nickleri $+($chr(40),%i,$chr(41),:)
    while %i > 0 {
      if $len(%outstr $nbget(%i,1)) <= 750 {
        %outstr = $+(%outstr,$iif(%outstr,$+(4 $+ $chr(44) $+ 3,$chr(32)),$null),$nbget(%i,1))         
      }
      else { echo -t $nick $+($chr(160),->) 3 %outstr | %outstr = $null }
      dec %i 1
    }
    if %outstr { echo -t $nick $+($chr(160),->) 3 %outstr }
    echo $nick $chr(160)
  }
  nbsave $nick $iif($network,$network,$server) %fulladdress
}
on *:quit: { if $nick != $me { nbsave $nick $iif($network,$network,$server) %fulladdress } }
alias query {
  var %outstr = $null
  !query $1
  if $nbsrc($iif($network,$network,$server),%userip,$1) {
    var %i = $v1
    echo -t $1 4Daha Onceki nickleri $+($chr(40),%i,$chr(41),:)
    while %i > 0 {
      if $len(%outstr $nbget(%i,1)) <= 750 {
        %outstr = $+(%outstr,$iif(%outstr,$+(4 $+ $chr(44) $+ 3,$chr(32)),$null),$nbget(%i,1))         
      }
      else { echo -t $1 $+($chr(160),->) 3 %outstr | %outstr = $null }
      dec %i 1
    }
    if %outstr { echo -t $1 $+($chr(160),->) 3 %outstr }
    echo $1 $chr(160)
  }
  nbsave $1 $iif($network,$network,$server) %fulladdress
}



orjinal kod aşağıda

Kod:

/*
Addon: nbseen
Versiyon: v0.1
Yazan: Alience
Tarih: 14-09-2010
mIRC version: 7.1
*/

alias nbdll {
  var %check = $dll($qt($+($scriptdir,db.dll)),Open,nblist $shortfn($+($scriptdir,nblist.db))))
  if !$regex(%check,(S_OK|E_LABEL_IN_USE)) { echo $color(info text) *** nblist error: %check | halt }
  %check = $dll($qt($+($scriptdir,db.dll)),Query,nblist $1-)
  if $isid { return %check }
  elseif $show && !$isid { echo $color(info text) *** nblist: %check }
}
alias nbsave {
  .nbdll DELETE FROM list WHERE (strftime('%J','now') - strftime('%J',ctime) > 100)
  if $regex($nbdll(select * FROM list WHERE nick = $+(',$1,') and network = $+(',$2,') and ip LIKE $+(',$regsubex($3,^.*@,$+($chr(37),@)),')),S_OK [^0]) {
    .nbdll UPDATE list SET ctime = julianday('now') where nick = $+(',$1,') and network = $+(',$2,') and ip = $+(',$3,')
  }
  else {
    .nbdll insert into list values( $+(',$1,') , $+(',$2,') , $+(',$3,') ,julianday('now'))
  }
}
alias nbsrc {
  return $gettok($nbdll(SELECT * FROM list WHERE network = $+(',$1,') AND ip LIKE $+(',$replace($2,*,%),') AND $+(nick!=,',$3,')),2,32)
}
alias nbget {
  var %x = $remove($dll($qt($+($scriptdir,db.dll)),fetchrow,nblist $1),S_OK)
  return $gettok(%x,$2,9)
}


on *:connect: { if !$ial { .ial on } }
on *:join:#: {
  if $nick != $me { 
    var %outstr = $null
    if $nbsrc($iif($network,$network,$server),$address($nick,2),$nick) {
      var %i = $v1
      echo -t $chan $+($str($chr(160),3),->) Daha önceki nickleri $+($chr(40),%i,$chr(41),:)
      while %i > 0 {
        if $len(%outstr $nbget(%i,1)) <= 750 {
          %outstr = $+(%outstr,$iif(%outstr,$+($chr(44),$chr(32)),$null),$nbget(%i,1))         
        }
        else { echo -t $chan $+($str($chr(160),3),->) %outstr | %outstr = $null }
        dec %i 1
      }
      if %outstr { echo -t $chan $+($str($chr(160),3),->) %outstr }
      echo $chan $chr(160)
    }
    nbsave $nick $iif($network,$network,$server) $fulladdress
  }
}
on *:open:?:*: {
  var %outstr = $null
  if $nbsrc($iif($network,$network,$server),$address($nick,2),$nick) {
    var %i = $v1
    echo -t $nick Daha önceki nickleri $+($chr(40),%i,$chr(41),:)
    while %i > 0 {
      if $len(%outstr $nbget(%i,1)) <= 750 {
        %outstr = $+(%outstr,$iif(%outstr,$+($chr(44),$chr(32)),$null),$nbget(%i,1))         
      }
      else { echo -t $nick $+($chr(160),->) %outstr | %outstr = $null }
      dec %i 1
    }
    if %outstr { echo -t $nick $+($chr(160),->) %outstr }
    echo $nick $chr(160)
  }
  nbsave $nick $iif($network,$network,$server) $fulladdress
}
on *:quit: { if $nick != $me { nbsave $nick $iif($network,$network,$server) $fulladdress } }
alias query {
  var %outstr = $null
  !query $1
  if $nbsrc($iif($network,$network,$server),$address($1,2),$1) {
    var %i = $v1
    echo -t $1 Daha önceki nickleri $+($chr(40),%i,$chr(41),:)
    while %i > 0 {
      if $len(%outstr $nbget(%i,1)) <= 750 {
        %outstr = $+(%outstr,$iif(%outstr,$+($chr(44),$chr(32)),$null),$nbget(%i,1))         
      }
      else { echo -t $1 $+($chr(160),->) %outstr | %outstr = $null }
      dec %i 1
    }
    if %outstr { echo -t $1 $+($chr(160),->) %outstr }
    echo $1 $chr(160)
  }
  nbsave $1 $iif($network,$network,$server) $address($1,5)
}

CoCoRiCo 30 Haziran 2016 12:05
$adress($nick,2)
$fulladdress
ve $adress($1,5) olan kısımları kontrol et hatanın nedenini bulacaksın..

fav 30 Haziran 2016 18:30
calıştıramadım :)

Kod:

on *:connect: { if !$ial { .ial on } }
alias nbdll {
  var %check = $dll($qt($+($scriptdir,db.dll)),Open,nblist $shortfn($+($scriptdir,nblist.db))))
  if !$regex(%check,(S_OK|E_LABEL_IN_USE)) { echo $color(info text) *** nblist error: %check | halt }
  %check = $dll($qt($+($scriptdir,db.dll)),Query,nblist $1-)
  if $isid { return %check }
  elseif $show && !$isid { echo $color(info text) *** nblist: %check }
}
alias nbsave {
  .nbdll DELETE FROM list WHERE (strftime('%J','now') - strftime('%J',ctime) > 100)
  if $regex($nbdll(select * FROM list WHERE nick = $+(',$1,') and network = $+(',$2,') and ip LIKE $+(',$regsubex($3,^.*@,$+($chr(37),@)),')),S_OK [^0]) {
    .nbdll UPDATE list SET ctime = julianday('now') where nick = $+(',$1,') and network = $+(',$2,') and ip = $+(',$3,')
  }
  else {
    .nbdll insert into list values( $+(',$1,') , $+(',$2,') , $+(',$3,') ,julianday('now'))
  }
}
alias nbsrc { return $gettok($nbdll(SELECT * FROM list WHERE network = $+(',$1,') AND ip LIKE $+(',$replace($2,*,%),') AND $+(nick!=,',$3,')),2,32) }
alias nbget {
  var %x = $remove($dll($qt($+($scriptdir,db.dll)),fetchrow,nblist $1),S_OK)
  return $gettok(%x,$2,9)
}


#1 on
raw 340:*: {
  set %userip  *!*@ $+ $gettok($gettok($2-,2,64),1-3,46) $+ .IP
  nbsave %nik $iif($network,$network,$server) $puttok(%fulladdress,$gettok(%userip,2,64),2,64)
  halt
}
#1 end
#2 off
raw 340:*: {
  set %userip  *!*@ $+ $gettok($gettok($2-,2,64),1-3,46) $+ .IP
  nbsave %nik $network $puttok(%D,$gettok(%userip,2,64),2,64) 
  halt
}
#2 end

on *:quit: {  if $nick != $me { nbsave $nick $iif($network,$network,$server) $fulladdress } }
on !*:join:#sohbet: {  .enable #1 | .disable #2
  unset %userip | set %fulladdress $fulladdress | userip $nick | set %nik $nick
  if $istok(Check SozBot T-BoT,$nick,32) { return }
  if $nick != $me {
    var %outstr = $null
    if $nbsrc($iif($network,$network,$server),%userip) {
      var %i = $v1
      if #sohbet == $chan {
        $iif(!$window(@AynıNickler),window -e @AynıNickler)
        echo -t @AynıNickler $+($str($chr(160),3),->) $nick 4NickininDaha Onceki nickleri $+($chr(40),%i,$chr(41),:)
      }
      echo -t $chan $+($str($chr(160),3),->) 4Daha Onceki nickleri $+($chr(40),%i,$chr(41),:)
      while %i > 0 {
        if $len(%outstr $nbget(%i,1)) <= 750 {
          %outstr = $+(%outstr,$iif(%outstr,$+(4 $+ $chr(44) $+ 3,$chr(32)),$null),$nbget(%i,1))         
        }
        else { 
          echo -t $chan $+($str($chr(160),3),->) 3 %outstr
          if #sohbet == $chan {
            echo -te  @AynıNickler  $+($str($chr(160),3),->) 3 %outstr
          }
          %outstr = $null
        }
        dec %i 1
      }
      if %outstr {
        echo -t $chan $+($str($chr(160),3),->) 3 %outstr
        if #sohbet == $chan {
          .timer 1 1  echo -te  @AynıNickler $+($str($chr(160),3),->) 3 %outstr
        }
      }
      echo $chan $chr(160)
    }
  }
}

on *:open:?:*: {  .enable #1 | .disable #2
  unset %userip | set %fulladdress $fulladdress | userip $nick | set %nik $nick

  var %outstr = $null
  if $nbsrc($iif($network,$network,$server),%userip) {
    var %i = $v1
    echo -t $nick Daha önceki nickleri $+($chr(40),%i,$chr(41),:)
    while %i > 0 {
      if $len(%outstr $nbget(%i,1)) <= 750 {
        %outstr = $+(%outstr,$iif(%outstr,$+($chr(44),$chr(32)),$null),$nbget(%i,1))         
      }
      else { echo -t $nick $+($chr(160),->) %outstr | %outstr = $null }
      dec %i 1
    }
    if %outstr { echo -t $nick $+($chr(160),->) %outstr }
    echo $nick $chr(160)
  }
  echo -a 3orjinal4 $nick $iif($network,$network,$server) $fulladdress
}
alias query { .enable #2 | .disable #1
  unset %userip | set %D $address($1,5) | userip $1 | set %nik $1
  var %outstr = $null
  !query $1
  if $nbsrc($iif($network,$network,$server),%userip) {
    var %i = $v1
    echo -t $1 Daha önceki nickleri $+($chr(40),%i,$chr(41),:)
    while %i > 0 {
      if $len(%outstr $nbget(%i,1)) <= 750 {
        %outstr = $+(%outstr,$iif(%outstr,$+($chr(44),$chr(32)),$null),$nbget(%i,1))         
      }
      else { echo -t $1 $+($chr(160),->) %outstr | %outstr = $null }
      dec %i 1
    }
    if %outstr { echo -t $1 $+($chr(160),->) %outstr }
    echo $1 $chr(160)
  }
}

fav 02 Temmuz 2016 14:52
raw 340:*: { sanırım joinden daha sonra çalışıyorkodu
raw 340:*: { üzerinden devam ettirmem gerekiyor diye düşünüyorum


++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz.   Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.



mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials



User Alert System provided by Advanced User Tagging v3.1.3 (Lite) - vBulletin Mods & Addons Copyright © 2026 DragonByte Technologies Ltd. Runs best on HiVelocity Hosting.

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76

SEO by vBSEO 3.6.1