mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Help - Yardım

Help - Yardım mIRC Scripting hakkında her konuda yardım alabileceğiniz bölümdür.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 29 Haziran 2016, 23:37
Avatar Yok
fav fav isimli Üye şimdilik offline konumundadır

mS Puan: 11
mS Derece: fav
 
Üyelik tarihi: 11 Eylül 2011
Mesajlar: 40
Konular: 16
Eklentiler: 1
Alınan Teşekkür: 1
Yapılan Teşekkür: 17
Standart nbseen Alience

Arkadaşlar nick takip kodudur databesalı
görüldüğü üzre Alience arkadaşımıza ait
sorunumuz ise kodun bazaldığı ipadresi
----------------------
sadece_mertt!Zurna@88.236.51C53ED8.909E49F4 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)
}

Konu fav tarafından (29 Haziran 2016 Saat 23:39 ) değiştirilmiştir.
Alıntı ile Cevapla
Sponsored Links
  #2  
Alt 30 Haziran 2016, 12:05
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
 Chief 

mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
 
Üyelik tarihi: 10 Temmuz 2009
Bulunduğu yer: \xml:http\
Yaş: 41
Mesajlar: 135
Konular: 22
Eklentiler: 0
Alınan Teşekkür: 85
Yapılan Teşekkür: 18
Standart

$adress($nick,2)
$fulladdress
ve $adress($1,5) olan kısımları kontrol et hatanın nedenini bulacaksın..
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias
Alıntı ile Cevapla
  #3  
Alt 30 Haziran 2016, 18:30
Avatar Yok
fav fav isimli Üye şimdilik offline konumundadır

mS Puan: 11
mS Derece: fav
 
Üyelik tarihi: 11 Eylül 2011
Mesajlar: 40
Konular: 16
Eklentiler: 1
Alınan Teşekkür: 1
Yapılan Teşekkür: 17
Standart

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)
  }
}
Alıntı ile Cevapla
  #4  
Alt 02 Temmuz 2016, 14:52
Avatar Yok
fav fav isimli Üye şimdilik offline konumundadır

mS Puan: 11
mS Derece: fav
 
Üyelik tarihi: 11 Eylül 2011
Mesajlar: 40
Konular: 16
Eklentiler: 1
Alınan Teşekkür: 1
Yapılan Teşekkür: 17
Standart

raw 340:*: { sanırım joinden daha sonra çalışıyorkodu
raw 340:*: { üzerinden devam ettirmem gerekiyor diye düşünüyorum
Alıntı ile Cevapla
Cevapla

Etiketler
alience, nbseen

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

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