| ZaLiM1979 | 30 Ağustos 2017 08:03 |
Cevap: Badnick Nick Degistirme Kodu
Alıntı:
DavidKane Nickli Üyeden Alıntı
(Mesaj 1041861708)
yokmu bi tarama kodu verecek ya
|
Buyur DavidKane
bu Kod Benim Degil Ben Kendime Göre Editledim Büyüttüm ve Türkceye Cevirdim..
Görüntüsü: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod:
dialog test {
title "KaNaL_TaRaMa_IsTaTiKLeR"
size -1 -1 250 170
option dbu
button "[ KaPaT ]", 7, 95 132 42 11, flat ok
tab "HosT'Da_aRa", 1, 1 -2 247 131
box "", 8, 3 11 243 116, tab 1
box "", 5, 6 34 237 90, tab 1
box "aRaNaCaK_KeLiMe", 3, 6 14 207 20, tab 1
edit "", 2, 9 22 150 10, tab 1 autohs
button "iDeNT", 6, 204 23 30 8, tab 1 flat
list 9, 8 39 233 83, tab 1 size hsbar vsbar
button "HosT", 4, 171 23 30 8, tab 1 flat
tab "NickListe'De_aRa", 10
box "", 11, 3 11 243 116, tab 10
box "", 12, 6 34 237 90, tab 10
box "aRaNaCaK_KeLiMe", 13, 6 14 207 20, tab 10
edit "", 14, 9 22 150 10, tab 10 autohs
button "aRa", 15, 161 23 30 8, tab 10 flat
button "TüM_KaNaLLaRDa", 16, 194 23 50 8, tab 10 flat
list 17, 8 39 233 83, tab 10 size hsbar vsbar
tab "iRcOP'LaR", 18
box "", 19, 3 11 243 116, tab 18
box "", 20, 6 33 237 91, tab 18
box "", 21, 6 15 237 19, tab 18
button "", 24, 9 21 231 10, tab 18 flat
list 25, 8 38 233 84, tab 18 size hsbar vsbar
tab "KaNaL_iSTaTiK", 22
list 23, 8 20 233 92, tab 22 size hsbar vsbar
box "", 26, 6 15 237 99, tab 22
box "", 27, 3 11 243 116, tab 22
button "", 29, 6 115 237 10, tab 22 flat
tab "cLoNLaR", 30
box "", 31, 3 11 243 116, tab 30
list 32, 8 38 233 84, tab 30 size hsbar vsbar
box "", 33, 6 33 237 91, tab 30
box "", 34, 6 15 237 19, tab 30
button "", 37, 9 21 231 10, tab 30 flat
button "[ GöNDeR ]", 28, 50 132 42 11, flat
button "DaHa_FaZLa_KaNaL", 38, 140 132 57 11
link "EdiTLeMe Ve TüRKcEyE CeViRi: ZaLiM", 39, 80 150 100 8
}
dialog ch {
title "KaNaL"
size -1 -1 68 92
option dbu
list 2, 2 2 63 74, size vsbar
box "", 1, 0 -3 67 82
button "[ KaPaT ]", 3, 16 81 37 10, flat ok
}
on *:dialog:ch:*:*:{
if ($devent = init) {
init_chan
}
if ($devent == sclick) {
if ($did = 2) {
if ($did(2).sel) {
set %chan $did(2).seltext
dialog -x ch ch
chanstat
ref.chan
}
}
}
}
on *:dialog:test:*:*:{
if ($devent == init) {
ref.chan
chanstat
}
if ($devent == sclick) {
if ($did = 38) {
dialog -m ch ch
}
if ($did = 39) {
/run https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($did = 6) {
if ($did(2).text) {
blubb2 $did(2).text
}
}
if ($did = 4) {
if ($did(2).text) {
blubb $did(2).text
}
}
if ($did = 7) {
scon -r
unset %chan
}
if ($did = 15) {
if ($did(14).text) {
did -r $dname 17
check $did(14).text
}
}
if ($did = 16) {
if ($did(14).text) {
did -r $dname 17
spyall $did(14).text
}
}
if ($did = 24) {
ref.chan
}
if ($did = 29) {
did -r $dname 23
chanstat
}
if ($did = 37) {
did -r $dname 32
all_clones
}
if ($did = 28) {
if ($dialog(test).tab == 1) {
post 9
}
elseif ($dialog(test).tab == 10) {
post 17
}
elseif ($dialog(test).tab == 18) {
post 25
}
elseif ($dialog(test).tab == 22) {
post 23
}
elseif ($dialog(test).tab == 30) {
post 32
}
}
}
}
alias -l post {
if ($1) {
var %i = 1
while (%i <= $did(test,$1).lines) {
if ($did(test,$1,%i).text != $null) {
.timer.post $+ %i 1 %i msg $active 10 $+ $did(test,$1,%i).text
}
inc %i 1
}
}
}
alias -l init_chan {
did -r ch 2
var %i = 1
while (%i <= $chan(0)) {
did -a ch 2 $chan(%i)
if ($chan(%i) == %chan) {
}
inc %i 1
}
}
alias -l ref.chan {
set -u10 %who 1
if (!%who [ $+ [ %chan ] ]) {
set -u60 %who [ $+ [ %chan ] ] 1
who %chan
did -r test 25
did -a test 25 --> %chan KaNaLiNDaKi iRcOP'LaR
}
did -o test 24 24 %chan KaNaLiNDa iRcOP aRa
did -o test 37 37 %chan KaNaLiNDa cLoNe aRa
did -o test 29 29 %chan KaNaL iSTaTiKLeRi YeNiLe
dialog -t test KaNaL_TaRaMa_IsTaTiKLeR v2.0 ( $+ %chan $+ / $+ $server $+ )
did -r test 32
did -r test 9
did -r test 17
}
alias -l blubb {
if ($1) {
did -r test 9
var %i = 1, %h = 0
while (%i <= $nick(%chan,0)) {
if (* $+ $1 $+ * iswm $address($nick(%chan,%i),2)) {
did -a test 9 $address($nick(%chan,%i),5)
inc %h 1
}
inc %i 1
}
if (%h == 0) {
did -a test 9 $1 HiCBiR HosT'Da BuLuNMaDi!
}
did -z test 9
}
}
alias -l blubb2 {
if ($1) {
did -r test 9
var %i = 1, %h = 0
while (%i <= $nick(%chan,0)) {
if (*!* $+ $1 $+ *@* iswm $address($nick(%chan,%i),1)) {
did -a test 9 $address($nick(%chan,%i),5)
inc %h 1
}
inc %i 1
}
if (%h == 0) {
did -a test 9 $1 HiCBiR iDeNT'De BuLuNMaDi!
}
did -z test 9
}
}
alias -l all_clones {
var %c = 1
while (%c <= $nick(%chan,0)) {
var %ni = $nick(%chan,%c), %a = $address($nick(%chan,%c),2), %i = 1, %cl2 = 1
while (%i <= $nick(%chan,0)) {
if (%a == $address($nick(%chan,%i),2)) && (%ni != $nick(%chan,%i)) {
var %cl = %cl $nick(%chan,%i) VE
inc %cl2 1
}
inc %i 1
}
if (%cl2 > 1) {
did -a test 32 %ni VE $deltok(%cl,$numtok(%cl,32),32) cLoNLaR!
unset %cl
did -z test 32
}
inc %c 1
}
}
alias -l check {
var %x = 1, %i = 0
while (%x <= $calc($nick(%chan,0) + 1)) {
if ($wildtok($nick(%chan,%x),* $+ $$1 $+ *,0,0) == 1) {
var %user = %user $+ $nick(%chan,%x) $+ $chr(44)
inc %i
}
inc %x
}
did -a test 17 --> %chan KaNaLi NiCKLiSTeSiNDe $$1 KeLiMeSiNDe $iif(%i == 1,) %i KiSi VaR.
if (%user != $null) {
var %i = $numtok(%user,44), %x = 1
while (%x <= %i) {
did -a test 17 $chr(149) $gettok(%user,%x,44)
inc %x 1
}
did -a test 17
}
did -z test 17
}
alias -l spyall {
var %i = 1, %oldchan = %chan
while (%i <= $chan(0)) {
set %chan $chan(%i)
check $did(14).text
inc %i 1
}
set %chan %oldchan
}
raw 352:*:{
if (%who == 1) {
if ($chr(42) isin $7) {
did -a test 25 $chr(149) $6
}
haltdef
}
}
raw 315:*:{
if (%who == 1) {
haltdef
}
}
alias -l chanstat {
var %o = 0, %p = 0, %nostat = 0, %op = 0, %hop = 0, %voice = 0, %c = $nick(%chan,0), %i = 1
while (%i <= %c) {
if ($chr(33) isin $nick(%chan,%i).pnick) {
inc %o 1
}
elseif ($chr(126) isin $nick(%chan,%i).pnick) {
inc %o 1
}
elseif ($chr(42) isin $nick(%chan,%i).pnick) {
inc %p 1
}
elseif ($chr(38) isin $nick(%chan,%i).pnick) {
inc %p 1
}
elseif ($nick(%chan,%i) isop %chan) {
inc %op 1
}
elseif ($nick(%chan,%i) ishop %chan) {
inc %hop 1
}
elseif ($nick(%chan,%i) isvoice %chan) {
inc %voice 1
}
else {
inc %nostat 1
}
inc %i 1
}
did -r test 23
did -a test 23 ToPiC: $strip($chan(%chan).topic)
did -a test 23
did -a test 23 %chan iSTaTiKLeRi ( $+ %c KiSi VaR SuaN)
did -a test 23 ---------------------------------------------------
did -a test 23 KaNaL SaHiBi: %o KiSi ( $+ $prozent(%o,%c) $+ )
did -a test 23 sOP: %p KiSi ( $+ $prozent(%p,%c) $+ )
did -a test 23 OP: %op KiSi ( $+ $prozent(%op,%c) $+ )
did -a test 23 HaLF_OP: %hop KiSi ( $+ $prozent(%hop,%c) $+ )
did -a test 23 VoiCLeR: %voice KiSi ( $+ $prozent(%voice,%c) $+ )
did -a test 23 YeTKiSiZLeR: %nostat KiSi ( $+ $prozent(%nostat,%c) $+ )
did -a test 23 ---------------------------------------------------
did -a test 23 %chan KaNaLi MoDLaRi : $chan(%chan).mode
did -z test 23
}
alias -l prozent {
if ($$1 <= $$2) {
return $+($round($calc($$1 / ($$2 / 100)),1),%)
}
}
menu channel, {
KaNaL_TaRaMa: {
set %chan $chan
dialog -m test test
}
}
Umarim Baskalarinda Isine Yarar.. |
