Script te bazı eksiklikler
 

öncelikle bugune kadar yardımlarınız ıcın butun ircforumlari ailesine teşekkür ederim. bazı eksikilikler var mIRC ta mesela


nıckıme sag tıklayıpta opa cıkamıyorum anca komut yazmam gerekıyor cs op #kanal bunu nasıl halledebılırım.

clone addonu bulamadım mırcta yuklu olan var clone gırıs cıkıslarını gosterıyor addonda sadece at kick v.s. secenegı var.yıne kanala sag tıklayıpta addonu acıp clone tarama secenegı olan bır addon olursa daha ıyı olur dıye dusunuyorum.

Cevap: Script te bazı eksiklikler
 

Scriptini aç Alt + O yap ordan IRC + mesajlar kısmına gel olaylarda zamanı göster war onu işaretle işlem tamamdır


Clone Traması içinde şu kodu alt + r yapıp atabilirsin


alias Clone {
var %ğ = $nick(#,0)
while %ğ {
if !$hget(host,$address($nick(#,%ğ),2)) { hadd -m host $address($nick(#,%ğ),2) 1 }
else { hinc host $address($nick(#,%ğ),2) }
dec %ğ
}
echo 4 -st # kanalı için clone taraması başlatıldı...
echo -s -
.timer 1 1 .h_al #
}
alias h_al {
var %ı = $hget(host,0).item
while %ı {
if $hget(host,%ı).data > 1 {
set %y_k yes
var %ç = $nick($1,0)
while %ç {
if $hget(host,%ı).item == $address($nick($1,%ç),2) { set %_cln $addtok(%_cln,$nick($1,%ç),32) }
dec %ç
}
echo 12 -st 2Adres: $hget(host,%ı).item --- 10Bağlı kullanıcı sayısı: $hget(host,%ı).data --- 4Bağlı rumuzlar: $gettok(%_cln,1-,32)
unset %_cln
}
dec %ı
}
echo -s -
$iif($(%y_k,2) != yes,echo 4 -st $1 kanalında clone bulunamadı.,echo 4 -st $1 kanalı için clone taraması tamamlandı.)
unset %y_k
hfree host
}
menu channel {
.Clone Tara
.Clone Tara:.Clone #
}

mouse ile sağ tıklayınca ordan cloneleri taratabilirsin

Cevap: Script te bazı eksiklikler
 

bu statuste gosterıyor ve senden sonra giren kişileri hafızaya alabılıyor ben addon seklınde dusunmustum tarama taradıktan sonra yapılabılecek ıslemler v.s.

Cevap: Script te bazı eksiklikler
 

#ServerCp off
on $*:snotice:/client\s(connecting|exiting)/Si: {
var %_reg = $regml(1),%_ip = $remove($gettok($10,2,64),$chr(41))
if ($(,%_reg) = connecting) {
hinc -m _ips %_ip 1
if ($hget(_ips,%_ip) = %csayi) {
if (%cShun == on) { shun $9 +10m %clogo | hdel _ips %_ip }
if (%ckill == on) { kill $9 %clogo | hdel _ips %_ip }
if (%cakill == on) { os killclones $9 | hdel _ips %_ip }
if (%cz-Line == on) { zline $9 +10m %clogo | hdel _ips %_ip }
}
if ($(,%_reg) = exiting) $iif($hget(_ips,%_ip),hdec _ips %_ip 1)
}
}
#ServerCp end
#chanCp on
on @*:join:#: {
if ($regex($site,/(*admin|*oper|ircop|helper)/i)) { halt }
if ($ialchan($wildsite,#,0) > %csayi) {
if ($nick isop #) && (%c@plar == on) { return }
if ($nick isvo #) && (%c+v == on) { return }
if (%cban == on) { ban $iif(%csure isnum,-u $+ %csure) # $nick 2 }
if (%ckick == on) { kick # $ialchan($wildsite,#,1).nick %clogo }
}
}
#chanCp end
alias cprot { .dialog -m cprot cprot }
dialog cprot {
title "by WeiL"
size -1 -1 173 71
option dbu
box "ayarLa", 1, 1 1 87 69
check " Z-Line ", 8, 130 50 27 10
check " KiLL", 9, 92 59 21 10
edit "", 10, 114 32 23 10
text "Saniye", 11, 138 33 20 8
box "Ayir", 12, 89 1 40 26
box "ceza", 112, 89 26 83 44
check "@plar", 13, 93 7 34 10
check "+v", 14, 93 16 30 10
check " AKiLL", 7, 130 59 27 10
check " Kick", 15, 92 41 21 10
check " Ban", 16, 92 32 21 10
check " Shun", 17, 92 50 26 10
box "Mod", 18, 132 1 40 26
radio "admin", 21, 135 7 26 10
radio "aop", 22, 135 16 26 10
button "kaydet ve çık", 5, 27 34 58 12, ok
edit "", 2, 6 9 13 8
text ">= cLone sayısı", 19, 19 9 42 9
edit "", 20, 19 21 66 10, disable
text "Şuan:", 23, 3 22 16 8
button "iptaL", 24, 4 34 21 12, cancel
box "", 3, 3 46 83 22
}
on *:dialog:cprot:init:*:{
did -a $dname 2 %csayi
did -a $dname 10 %csure
if %c@plar == on { did -c $dname 13 }
if %c+v == on { did -c $dname 14 }
if %cz-Line == on { did -c $dname 8 }
if %ckill == on { did -c $dname 9 }
if %cakill == on { did -c $dname 7 }
if %cShun == on { did -c $dname 17 }
if %cban == on { did -c $dname 16 }
if %cKick == on { did -c $dname 15 }
if ($group(#ServerCp) == on) { did -c $dname 21 }
if ($group(#chanCp) == on) { did -c $dname 22 }
}
on *:dialog:cprot:sclick:*:{
if ($did == 5) { set %csayi $did(2) | set %clogo cLone Yasak | set %cduruma admin mod devrede | set %cdurumo operator mod devrede }
if $istok(7 8 9 13 14 15 16 17 ,$did,32) { $iif($did($did).state == 1,set %c $+ $gettok($did($did).text,1,32) on,.set %c $+ $gettok($did($did).text,1,32) off) }
if ($did = 21) { .disable #chanCp | .enable #ServerCp | did -b cprot 10,11,13,14,15,16 | did -e cprot 7,8,9,17 | did -r $dname 20 | did -a $dname 20 %cduruma }
if ($did = 22) { .disable #ServerCp | .enable #chanCp | did -e cprot 10,11,13,14,15,16 | did -b cprot 7,8,9,17 | did -r $dname 20 | did -a $dname 20 %cdurumo }
}
on *:dialog:cprot:edit:*:{
%csure = $did(10)
}


Remoteye ekliyosunuz açmak için /cprot

----------

Operator
. +o $$1:/mode # +ooooo $$1 $2 $3 $4 $5
. - o $$1:/mode # -ooooo $$1 $2 $3 $4 $5
.-
. +v $$1:/mode # +vvvvv $$1 $2 $3 $4 $5
. - v $$1:/mode # -vvvvv $$1 $2 $3 $4 $5
.-
. +h $$1:/mode # +hhhhh $$1 $2 $3 $4 $5
. - h $$1:/mode # -hhhhh $$1 $2 $3 $4 $5
.-
. +a $$1:/mode # +aaaaa $$1 $2 $3 $4 $5
. - a $$1:/mode # -aaaaa $$1 $2 $3 $4 $5
.-
. +q $$1:/mode # +qqqqq $$1 $2 $3 $4 $5
. - q $$1:/mode # -qqqqq $$1 $2 $3 $4 $5
.-
. - o +v $$1:/mode # -o+v $$1 $$1
-
ChanServ
.Op (+o):/cs op # $$1
.DeOp (-o):/cs deop # $$1
.-
.Voice (+v):/cs voice # $$1
.DeVoice (-v):/cs devoice # $$1
.Halfop (+h):/cs halfop # $$1
.DeHalfop (-h):/cs dehalfop # $$1
.Protect (+a):/cs protect # $$1
.DeProtect (-a):/cs deprotect # $$1
.-

Cevap: Script te bazı eksiklikler
 

bunu nasıl çalıstıracagız?

Cevap: Script te bazı eksiklikler
 

Alt+p yapıp popupsa atıcan

Cevap: Script te bazı eksiklikler
 

gorunuyor ama calısmıyor op vermıyor #ogretmenops 12Kanalında Op Değilsiniz!
#ogretmenops 12Kanalında Op Değilsiniz!

Cevap: Script te bazı eksiklikler
 

kanalda ki yetkin Aop olduğu için deop konumundayken
/mode # +o $$1 bu komutu kullanamazsın
onun yerine /cs op komutunu kullanırsın bu komutta yetkili olduğun bütün kanallarda seni op konumuna getirir.
Eğer tek kanalda op olmak istiyosan bunu kullanmalısın /cs op # $$1 (bu scripte ekleyeceğin şekil elinle komutu girmek istiyosan # işaretinin peşine kanalı yazmalısın /cs op #ogretmenops yazman lazım )

Cevap: Script te bazı eksiklikler
 

alt+p ye ekleyıp nıckımın ustune gelıp sag tıkladıgımda opver seklınde tıkladıgımda kendıme op versın ıstıyorum ama vermıyor kanalda access aoptan fazla yazılı ustelık.

Cevap: Script te bazı eksiklikler
 

Popus taki kodları buraya kopy yaparmısın