IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler

Alıntı:

OperServ Nickli Üyeden Alıntı (Mesaj 1042848817)

Kod:

on 1:TABCOMP:#: {

  if ($0 > 1) {

    set %_pretab $gettok($1-,$+(1,-,$calc($0 - 1)),32)

  }

  var %s_ = $eval($+($,$0),2)

  if !$istok(%tab,%s_ ,32) {

    set %tab %tab %s_

    tabtus

  }

  .timertab -m 1 300 tabver

}

alias -l tabver {

  var %nextnick = $gettok(%tab,1,32)

  editbox %_pretab %nextnick

  var %newtab = $gettok(%tab,2-,-1)

  unset %tab

  if (%newtab) {

    set %tab %newtab

  }

}

alias -l tabtus {

  .comopen scrll WScript.Shell

  noop $com(scrll,sendkeys,1,bstr,{TAB})

  .comclose scrll

}

menu channel {

  Coklu Tablama $iif($group(#coklutab).status == on,KAPAT,AC)): $iif($group(#coklutab).status == off,.enable #coklutab,.disable #coklutab) 

}

Bu kod, her tab tuşuna bastığınızda, sırayla kriterlere uyan nickleri editbox'a yazacak..

İlk tab bastığınızda bir nick gösterecek, bir sonraki tab tuşuna bastığınızda bir sonraki nicki gösterecek ve bu şekilde devam edecektir

Bu Kod zaten mirc'in yaptigini yapiyor. Benim istedigim sey o degil. Sanirim ben istegimi tam aciklayamiyorum/anlatamiyorum.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 09:52 -->-> Daha önceki mesaj 09:33 --

Benim istegime en uykun kod simdilik bu.

Kod:

#coklutab on

on 1:TABCOMP:#: { if ($0 > 1) { set  %_pretab $gettok($1-,$+(1,-,$calc($0 - 1)),32) }

  var %s_ = $eval($+($,$0),2)

if !$istok(%tab,%s_ ,32) { set %tab %tab %s_  | tabtus } | .timertab -m 1 300  tabver }

#coklutab end

alias -l tabver {  editbox  %_pretab %tab | unset %tab %_pretab  }

alias -l tabtus { .comopen scrll WScript.Shell  | noop $com(scrll,sendkeys,1,bstr,{TAB})  | .comclose scrll }

menu channel {

  Coklu Tablama $iif($group(#coklutab).status == on,KAPAT,AC)): $iif($group(#coklutab).status == off,.enable #coklutab,.disable #coklutab) 

}
 

Kullanim ornekleri

: s + TABTUSU -> "s" nicki ile baslayan tum kullaniciklari editbox satirina doldurur

: *a + TABTUSU -> sonu "a" ile biten nickleri editbox satirina doldurur.

: *e* + TABTUSU -> icinde "e" gecen nickleri editbox satirina doldurur.

Tek eksik olan, kriterlere uyan nickleri teker teker degilde hepsini birden editbox'a yazdirmasi. Sagolun varolun.