IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Code Yardimi Pleaze (https://www.ircforumlari.net/mirc-scripting-sorunlari/6892-code-yardimi-pleaze.html)

erdem55 24 Ağustos 2005 22:54

alias kapat dialog -x $dname $dname
alias lock did -b $dname $1-
alias mdx { return $dll(mdx.dll,$1,$2-) }
alias mdxinit { mdx SetMircVersion $version | mdx MarkDialog $dname }
alias badnick {
if -* iswm $1- {
hdel badnick $hfind(badnick,$remove($1-,-),1,W).data
hsave badnick badnick.data
echo -a $remove($1-,-) Datası Kaldırıldı
}
elseif $1 == list {
echo -a ----------BadNick Listeniz------------
var %i = 1
while %i <= $hget(badnick,0).item {
echo -a %i $+ -) $hget(badnick,%i).data
inc %i
}
}
else {
hadd badnick $r(0,999999) $1-
hsave badnick badnick.data
echo -a $1- Datası Eklendi...
}
}
on *:start: {
if !$findfile($mircdir,badnick.data,1) {
hmake badnick 100
hsave badnick badnick.data
.set %ilkacilis 1
dialog yukle yukle
}
else {
hmake badnick
hload badnick badnick.data
dialog -m yukle yukle
}
}
on 1:join:#: {
if $chan == #adana || $chan == #mersin || $chan == #izmir || $chan == #canavar || $chan == #ankara || $chan == #elma || $chan == #istanbul {
if $me isop $chan {
if $hfind(badnick,$nick,1,W).data {
ban $chan $nick 2
kick $chan $nick 4[Badnick Kullanıyorsunuz]
}
}
}
}
alias _oynat {
var %i = 1
while %i <= 100 {
if %i == 100 {
.timer.degistir 1 2 did -a $dname 2 $iif(%ilkacilis != $null,Oluşturuldu!,Okundu!)
.timer.ac 1 2 did -e $dname 2
halt
}
else {
.timer 1 2 did -a $dname 3 %i 0 100
inc %i
}
}
}
dialog yukle {
size -1 -1 325 113
title "Dialog"
text "Script Bilgileri Yükleniyor, Lütfen Bekleyin...",1,23 11 279 25
button "Yükleniyor...",2,22 68 281 30, flat
text "0 0 100",3,22 43 280 24
}
on *:dialog:yukle:*:*:{
if $devent == init {
mdxinit
mdx SetControlMDX $dname 3 ProgressBar > ctl_gen.mdx
if %ilkacilis { did -ra $dname 1 BadNick Dataları Oluşturuluyor... | did -ra $dname 2 Oluşturuluyor... | unset %ilkacilis }
else { did -ra $dname 1 BadNick Dataları Okunuyor | did -ra $dname 2 Okunuyor... }
lock 2
$_oynat
}
if $devent == sclick {
kapat
}
}

Kodu aynen bu şekilde eklersen büyük ihtimalle çalışır dark
mirci aç
alt+r ye bas ve kodu yeni bir remoteye ekle bazen bendede oluyo böyle sorunlar boşluklardan kaynaklanıyo belki sendekide öyle bişidir. Bi deneyip bilgi verirsen yeniden bakarım

Hercules 25 Ağustos 2005 00:33

alias kapat dialog -x $dname $dname

alias lock did -b $dname $1-
alias mdx { return $dll(mdx.dll,$1,$2-) }
alias mdxinit { mdx SetMircVersion $version | mdx MarkDialog $dname }
alias badnick {
if -* iswm $1- {
hdel badnick $hfind(badnick,$remove($1-,-),1,W).data
hsave badnick badnick.data
echo -a $remove($1-,-) Datası Kaldırıldı
}
elseif $1 == list {
echo -a ----------BadNick Listeniz------------
var %i = 1
while %i <= $hget(badnick,0).item {
echo -a %i $+ -) $hget(badnick,%i).data
inc %i
}
}
else {
hadd badnick $r(0,999999) $1-
hsave badnick badnick.data
echo -a $1- Datası Eklendi...
}
}
on *:start: {
if !$findfile($mircdir,badnick.data,1) {
hmake badnick 100
hsave badnick badnick.data
.set %ilkacilis 1
dialog yukle yukle
}
else {
hmake badnick
hload badnick badnick.data
dialog -m yukle yukle
}
}
on 1:join:#: {
if $chan == #adana || $chan == #mersin || $chan == #izmir || $chan == #canavar || $chan == #ankara || $chan == #elma || $chan == #istanbul {
if $me isop $chan {
if $hfind(badnick,$nick,1,W).data {
ban -ku300 $chan $nick 2
10,1ßåd Ñï¢k KuLLåñdIgInIz t€$pït €dïLdï. 6,1ßåñLåñdInIz. 4Nick1:12 $$1 ! 0,1ßÿ. Ñêw¥ørk.
}
}
}
}
alias _oynat {
var %i = 1
while %i <= 100 {
if %i == 100 {
.timer.degistir 1 2 did -a $dname 2 $iif(%ilkacilis != $null,Oluşturuldu!,Okundu!)
.timer.ac 1 2 did -e $dname 2
halt
}
else {
.timer 1 2 did -a $dname 3 %i 0 100
inc %i
}
}
}
dialog yukle {
size -1 -1 325 113
title "Dialog"
text "Script Bilgileri Yükleniyor, Lütfen Bekleyin...",1,23 11 279 25
button "Yükleniyor...",2,22 68 281 30, flat
text "0 0 100",3,22 43 280 24
}
on *:dialog:yukle:*:*:{
if $devent == init {
mdxinit
mdx SetControlMDX $dname 3 ProgressBar > ctl_gen.mdx
if %ilkacilis { did -ra $dname 1 BadNick Dataları Oluşturuluyor... | did -ra $dname 2 Oluşturuluyor... | unset %ilkacilis }
else { did -ra $dname 1 BadNick Dataları Okunuyor | did -ra $dname 2 Okunuyor... }
lock 2
$_oynat
}
if $devent == sclick {
kapat
}
}

Bu şekilde bi dene bakalım...

LaGoodLife 25 Ağustos 2005 10:54

Ferudun Bu Seferde Badnickleri Banlıyor Kicklemiyor. :) ya valleyi neden Kicklemiyor Bir Anlayabilsem.

LaGoodLife 25 Ağustos 2005 10:56

ban -ku300 $chan $nick 2

Bende codede şurda -ku300 yazmıyordu o ne anlama gelior belki onunla ilgili bişi olabilir.

Hercules 25 Ağustos 2005 14:15

Alıntı:

LaGoodLife Nickli Üyeden Alıntı
ban -ku300 $chan $nick 2

Bende codede şurda -ku300 yazmıyordu o ne anlama gelior belki onunla ilgili bişi olabilir.

ban -ku300 demek "hem banla hem kickle ve 300 saniye (5 dk) sonra aç" demek. Ama eğer kicklemiyorsa hemen o kodun altına;
kick $chan $nick ekle. Yani şöyle;

.
.
.
if $hfind(badnick,$nick,1,W).data {
ban -ku300 $chan $nick 2
kick $chan $nick 10,1ßåd Ñï¢k KuLLåñdIgInIz t€$pït €dïLdï. 6,1ßåñLåñdInIz. 4Nick1:12 $$1 ! 0,1ßÿ. Ñêw¥ørk.
}

Kolay gelsin.

LaGoodLife 25 Ağustos 2005 14:58

Ferudun Saol. Valleyi Çok Zahmet Verdim :)

Hercules 25 Ağustos 2005 15:05

Önemli değil.
Olduysa ne mutlu, çalışıyor mu şu an ?

LaGoodLife 25 Ağustos 2005 15:22

Ferudun Bu Seferde Sebep Görünmüyor Sebep Yaziyorum Nick Yazior Sadece Bu Konu Giderek Sarpa Sarmaya Basladi :D Sebebte Sadece kullandıgım nick yazior mesela Nickim Efsane diyelim Parantez içinde (efsane) yazior

LaGoodLife 25 Ağustos 2005 15:43

Calisior Suan Saat Gibi Ama Sebep Göstermiyor Badnicklerin Banlarını 5 Dakka sonrada acior Ferudun su Sebep Olayınada Bi Çözüm Bulsan Tam olcak

Hercules 25 Ağustos 2005 16:15

ban -ku300 $chan $nick 2
kick $chan $nick 10,1ßåd Ñï¢k KuLLåñdIgInIz t€$pït €dïLdï. 6,1ßåñLåñdInIz. 4Nick1:12 $$1 ! 0,1ßÿ. Ñêw¥ørk.
}

Şu kısmı bul ve böyle değiştir.

ban -ku300 $chan $nick 2
kick $chan $nick 12Bad nick kullanıyorsunuz! 1Nickiniz:4 $nick 2--- 7/nick YeniNick 2--- 1| 2Banlayan:4 $$1


Kolay gelsin.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 16:20.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk