mIRC Scripting - Tekil Mesaj gösterimi

fav · #1 29 Haziran 2016, 23:37

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)
}