Bursa Arkadaşlık |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
mIRC'i Lisanslamak (Crack)
Kod:
alias Crack {
var %kg.tbl = 11:6:17:12:12:14:5:12:16:10:11:6:14:14:4:11:9:12:1 1:10:8:10:10:16:8:4:6:10:12:16:8:10:4:16
var %kg.ctr = 4
var %kg.tot = $len($1-)
while (%kg.ctr <= %kg.tot) {
var %kg.1 = $calc(%kg.1 + ($asc($mid($1-,%kg.ctr,1)) * $gettok(%kg.tbl,$calc(%kg.ctr - 3),58)))
var %kg.2 = $calc(%kg.2 + (($asc($mid($1-,%kg.ctr,1)) * $asc($mid($1-,$calc(%kg.ctr - 1),1))) * $gettok(%kg.tbl,$calc(%kg.ctr -3),58)))
inc %kg.ctr
}
echo :--------------------------------------------------------------------------------------------
echo :mIRC Sürümü 4 $version
echo :Lisanslanan kişi4 $1-
echo :Key 4 $+(%kg.1,-,%kg.2)
echo :ALT + H Tuslarına basarak REGISTER kısmına tıklayın..
echo :ardından Acılan Pencereye Parametreleri girin...
echo :--------------------------------------------------------------------------------------------
}
Karışık Yazı Tipleri
Kod:
alias yati {
if $dialog(yazitip) = $null { dialog -m yazitip yazitip }
else { halt }
}
dialog yazitip {
title "Yazıtipi"
size 250 150 110 170
radio "Elit",1,10 10 90 20
radio "Full Ascii",2,10 30 90 20
radio "Ters",3,10 50 90 20
radio "Büyük-Küçük",4,10 70 90 20
radio "Renkli",5,10 90 90 20
radio "Normal",19,10 110 90 20
box "",20,5 0 100 135
button "Tamam",21,5 145 100 20,ok
}
on 1:dialog:yazitip:sclick:1:{ .disable #ters | .disable #elit | .enable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:2:{ .disable #ters | .enable #elit | .disable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:3:{ .enable #ters | .disable #elit | .disable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:4:{ .disable #ters | .disable #elit | .disable #turkce | .enable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:5:{ .enable #renkli | .disable #ters | .disable #elit | .disable #turkce | .disable #buykuc }
on 1:dialog:yazitip:sclick:19:{ .disable #renkli | .disable #ters | .disable #elit | .disable #turkce | .disable #buykuc }
on 1:dialog:yazitip:init:0:{
if ($group(#turkce).status == on ) { did -c yazitip 1 }
if ($group(#elit).status == on ) { did -c yazitip 2 }
if ($group(#ters).status == on ) { did -c yazitip 3 }
if ($group(#buykuc).status == on ) { did -c yazitip 4 }
if ($group(#renkli).status == on ) { did -c yazitip 5 }
if ($group(#turkce).status == off ) && ($group(#elit).status == off ) && ($group(#ters).status == off ) && ($group(#buykuc).status == off ) && ($group(#renkli).status == off ) { did -c yazitip 19 }
}
#renkli off
on 1:INPUT:*:{
unset %ahenk*
set %ahenkk $1-
if ( $chr(47) == $mid(%ahenkk,1,1) ) { %ahenkk | halt }
set %ahenku $len(%ahenkk)
set %ahenks 1
:ilk
if ( %ahenks > %ahenku ) goto son
set %ahenkh $mid(%ahenkk,%ahenks,1)
if ( %ahenkh == $chr(32) ) {
%ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
}
%ahenkt = %ahenkt $+ $+ $rand(3,13) $+ %ahenkh
inc %ahenks
goto ilk
:son
say %ahenkt
unset %ahenk*
halt
}
#renkli end
#turkce off
on 1:INPUT:*:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | halt }
%turkce = $replace(%turkce,ı,I)
%turkce = $replace(%turkce,İ,I)
%turkce = $replace(%turkce,ş,$)
%turkce = $replace(%turkce,Ş,$)
%turkce = $replace(%turkce,ç,c)
%turkce = $replace(%turkce,Ç,c)
%turkce = $replace(%turkce,ğ,G)
%turkce = $replace(%turkce,Ğ,G)
%turkce = $replace(%turkce,ü,u)
%turkce = $replace(%turkce,Ü,U)
%turkce = $replace(%turkce,b,ß)
%turkce = $replace(%turkce,B,ß)
%turkce = $replace(%turkce,<,«)
%turkce = $replace(%turkce,>,»)
say %turkce
unset %turkce
halt
}
#turkce end
#elit off
on 1:INPUT:*:{
unset %elit
set %elit $1-
if ( $chr(47) == $mid(%elit,1,1) ) { %elit | halt }
%elit = $replace(%elit,a,å)
%elit = $replace(%elit,b,ß)
%elit = $replace(%elit,c,©)
%elit = $replace(%elit,d,D)
%elit = $replace(%elit,e,ë)
%elit = $replace(%elit,f,F)
%elit = $replace(%elit,h,]-[)
%elit = $replace(%elit,i,î)
%elit = $replace(%elit,k,|{)
%elit = $replace(%elit,l,£)
%elit = $replace(%elit,m,M)
%elit = $replace(%elit,n,ñ)
%elit = $replace(%elit,o,ø)
%elit = $replace(%elit,p,P)
%elit = $replace(%elit,q,¶)
%elit = $replace(%elit,r,®)
%elit = $replace(%elit,s,§)
%elit = $replace(%elit,t,±)
%elit = $replace(%elit,u,µ)
%elit = $replace(%elit,v,V)
%elit = $replace(%elit,w,')
%elit = $replace(%elit,x,×)
%elit = $replace(%elit,y,¥)
%elit = $replace(%elit,z,Z)
%elit = $replace(%elit,ı,I)
%elit = $replace(%elit,İ,Î)
%elit = $replace(%elit,ş,$)
%elit = $replace(%elit,Ş,$)
%elit = $replace(%elit,ç,¢)
%elit = $replace(%elit,Ç,¢)
%elit = $replace(%elit,ğ,g)
%elit = $replace(%elit,Ğ,Ğ)
%elit = $replace(%elit,ü,û)
%elit = $replace(%elit,Ü,Û)
%elit = $replace(%elit,ö,ô)
%elit = $replace(%elit,Ö,Ô)
%elit = $replace(%elit,!,¡)
%elit = $replace(%elit,?,¿)
%elit = $replace(%elit,<,[)
%elit = $replace(%elit,>,»)
%elit = $replace(%elit,-,¬)
%elit = $replace(%elit,:,¦)
%elit = $replace(%elit,',`)
%elit = $replace(%elit,`,')
say %elit
unset %elit
halt
}
#elit end
#ters off
on 1:INPUT:*:{
unset %ters*
set %tersd $1-
if ( $chr(47) == $mid(%tersd,1,1) ) { %tersd | halt }
set %tersu $len(%tersd)
set %terss 1
:ilk
if ( %tersu == 0 ) goto son
if ( $mid(%tersd,%tersu,1) == $chr(32) ) {
%tersd = $replace(%tersd,$mid(%tersd,%tersu,1),$chr(0160))
}
%terst = $instok(%terst,$mid(%tersd,%tersu,1),%terss,0)
dec %tersu
inc %terss
goto ilk
:son
say %terst
unset %ters*
halt
}
#ters end
#buykuc off
on 1:INPUT:*:{
unset %buy*
set %buyk $1-
if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | halt }
set %buys 1
set %buyu $len(%buyk)
:ilk
if ( %buys > %buyu ) goto son
set %buyh $mid(%buyk,%buys,1)
if ( %buyh == $chr(32) ) {
%buyh = $replace(%buyh,$chr(32),$chr(0160))
}
%buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,ı,I,o,O,p,P,ğ,Ğ,ü,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L,ş,Ş,i,İ,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,ö,Ö,ç,Ç)
set %buyb %buyb $+ %buyh
inc %buys
if ( %buys > %buyu ) goto son
set %buyh $mid(%buyk,%buys,1)
if ( %buyh == $chr(32) ) {
%buyh = $replace(%buyh,$chr(32),$chr(0160))
}
%buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,ı,O,o,P,p,Ğ,ğ,Ü,ü,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l,Ş,ş,İ,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,ö,Ç,ç)
inc %buys
set %buyb %buyb $+ %buyh
goto ilk
:son
say %buyb
unset %buy*
halt
}
#buykuc end
Kanaldaki herkese seslenmek
Kod:
alias millet { var %x = $nick(#,0) | var %y | while %x { if $nick(#,%x) != $me { %y = $addtok(%y,$nick(#,%x),32) } | dec %x } | say %y $1- }
Tarihte Bugün
Kod:
;
; www.bianet.org a teşekkürler
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
alias -l tarih { return $+($replace($gettok($date,2,$asc(/)),01,ocak,02,subat,03,mart,04,nisan,05,mayis,06,haziran,07,temmuz,08,agustos,09,eylul,10,ekim,11,kasim,12,aralik),_,$gettok($date,1,$asc(/)),.htm) }
alias tbugun { dialog -m tarih tarih }
on *:SockOpen:tarih*:{
sockwrite -n $sockname GET $+(/tarih_arsiv/,$tarih) HTTP/1.0
sockwrite -n $sockname host: www.bianet.org $+ $crlf $+ $crlf
}
on *:SockRead:tarih*:{
var %a
sockread %a
if ($sockerr) { did -ra tarih 1 Bağlantı Hatası Lütfen Daha Sonra Tekrar Deneyin | return }
if (%sjn == Ok!) && (sayfa başına !isin %a) && (dön</FONT> !isin %a) { did -a tarih 1 $htmlfree($replace($+(%a,$chr(160)),<BR>,$crlf)) }
if (Tarihte bugün isin %a) { set %sjn Ok! | did -ra tarih 1 Tarihte Bugün $+ $crlf }
}
dialog tarih {
title "Tarihte Bugün Gösterici"
size -1 -1 133 169
option dbu
edit "Yükleniyor..", 1, 4 2 124 144, read multi return autovs vsbar
button "Çıkış", 2, 47 151 37 12, ok
}
on *:dialog:tarih:init:*:{
unset %sjn
sockclose tarih*
sockopen $+(tarih,$r(1,999)) www.bianet.org 80
}
Bad İdent Koruması
Kod:
on @*:JOIN:#:{
if (*!*sik*@* iswm $fulladdress) || (*!*fuck*@* iswm $fulladdress) || (*!*yarak*@* iswm $fulladdress) || (*!*Amcik*@* iswm $fulladdress) || (*!*Oros*@* iswm $fulladdress) || (*!*Amcık*@* iswm $fulladdress) || (*!*Pic*@* iswm $fulladdress) || (*!*Piç*@* iswm $fulladdress) || (*!*www.*@* iswm $fulladdress) || (*!*.com*@* iswm $fulladdress) || (*!*fuck*@* iswm $fulladdress) || (*!*Yarak*@* iswm $fulladdress) || (*!*Yarrak*@* iswm $fulladdress) || (*!*Hack*@* iswm $fulladdress) || (*!*.net*@* iswm $fulladdress) || (*!*gay*@* iswm $fulladdress) || (*!*lez*@* iswm $fulladdress) {
ban -u120 # $nick 11
/ban -u120 # $nick 5 | kick # $nick Bu tür identlerle kanal giriş yapmak yasaktır.
}
}
Op/Voice Teşekkür Kod:
alias tesekkur { dialog -m tsk tsk }
dialog tsk {
title "Op-Voice-Hop ( Tesekkür Dialog ) | www.caddesohbet.com ( Coded : Maxi )"
size -1 -1 243 170
option dbu
tab "Op - Deop ( Tesekkür )", 1, 0 -2 241 160
button "Ekle", 8, 30 21 17 10, tab 1
edit "", 4, 55 20 178 13, tab 1 return autohs autovs
button "Sil", 9, 30 34 17 10, tab 1
button "Ekle", 10, 31 88 17 10, tab 1
edit "", 6, 55 87 178 13, tab 1 return autohs autovs
button "Sil", 11, 31 101 17 10, tab 1
list 5, 55 34 178 50, tab 1 size
list 7, 55 101 178 50, tab 1 size
check "Check Box", 31, 9 53 7 10, tab 1
edit "+(@) , -(@)", 32, 18 52 36 11, tab 1
tab "Voice - Devoice ( Tesekkür )", 2
button "Ekle", 15, 30 21 17 10, tab 2
edit "", 16, 55 20 178 13, tab 2 return autohs autovs
button "Sil", 17, 30 34 17 10, tab 2
button "Ekle", 19, 31 88 17 10, tab 2
edit "", 20, 55 87 178 13, tab 2 return autohs autovs
button "Sil", 21, 31 101 17 10, tab 2
list 18, 55 34 178 50, tab 2 size
list 22, 55 101 178 50, tab 2 size
check "Check Box", 33, 9 53 7 10, tab 2
edit "+(v) , -(v)", 34, 18 52 36 11, tab 2
tab "Hop-Dehop ( Tesekkür )", 3
button "Ekle", 23, 30 21 17 10, tab 3
edit "", 24, 55 20 178 13, tab 3 return autohs autovs
button "Sil", 25, 30 34 17 10, tab 3
button "Ekle", 27, 31 88 17 10, tab 3
edit "", 28, 55 87 178 13, tab 3 return autohs autovs
button "Sil", 29, 31 101 17 10, tab 3
list 26, 55 34 178 50, tab 3 size
list 30, 55 101 178 50, tab 3 size
check "Check Box", 35, 9 53 7 10, tab 3
edit "+(%) ,-(%)", 36, 18 52 36 11, tab 3
button "Kapat", 14, 217 159 25 11, ok
box "", 13, 2 10 238 147
box "", 12, 7 14 228 139
}
on *:dialog:tsk:*:*: {
if ($devent == sclick) {
if ($did == 5) { did -ra $dname 4 $did(5).seltext }
if ($did == {
if ($did(4) != $null) { write op.txt $did(4) | did -a $dname 5 $did(4) }
did -r $dname 4
}
if ($did == 9) {
if ($did(4) != $null) { write $+(-,d,s,$did(4)) op.txt | did -d tsk 5 $did(5).sel }
did -r $dname 4
}
if ($did == 7) { did -ra $dname 6 $did(7).seltext }
if ($did == 10) {
if ($did(6) != $null) { write deop.txt $did(6) | did -a $dname 7 $did(6) }
did -r $dname 6
}
if ($did == 11) {
if ($did(6) != $null) { write $+(-,d,s,$did(6)) deop.txt | did -d tsk 7 $did(7).sel }
did -r $dname 6
}
if ($did == 18) { did -ra $dname 16 $did(18).seltext }
if ($did == 15) {
if ($did(16) != $null) { write v.txt $did(16) | did -a $dname 18 $did(16) }
did -r $dname 16
}
if ($did == 17) {
if ($did(16) != $null) { write $+(-,d,s,$did(16)) v.txt | did -d tsk 18 $did(18).sel }
did -r $dname 16
}
if ($did == 22) { did -ra $dname 20 $did(22).seltext }
if ($did == 19) {
if ($did(20) != $null) { write dv.txt $did(20) | did -a $dname 22 $did(20) }
did -r $dname 20
}
if ($did == 21) {
if ($did(20) != $null) { write $+(-,d,s,$did(20)) dv.txt | did -d tsk 22 $did(22).sel }
did -r $dname 20
}
if ($did == 26) { did -ra $dname 24 $did(26).seltext }
if ($did == 23) {
if ($did(24) != $null) { write h.txt $did(24) | did -a $dname 26 $did(24) }
did -r $dname 24
}
if ($did == 25) {
if ($did(24) != $null) { write $+(-,d,s,$did(24)) h.txt | did -d tsk 26 $did(26).sel }
did -r $dname 24
}
if ($did == 30) { did -ra $dname 28 $did(30).seltext }
if ($did == 27) {
if ($did(28) != $null) { write dh.txt $did(28) | did -a $dname 30 $did(28) }
did -r $dname 28
}
if ($did == 29) {
if ($did(28) != $null) { write $+(-,d,s,$did(28)) dh.txt | did -d tsk 30 $did(30).sel }
did -r $dname 28
}
if ($did == 14) {
if ($did(31).state == 1) { .enable #op }
if ($did(31).state == 0) { .disable #op }
if ($did(33).state == 1) { .enable #vop }
if ($did(33).state == 0) { .disable #vop }
if ($did(35).state == 1) { .enable #hop }
if ($did(35).state == 0) { .disable #hop }
}
Espiri/Fıkra Bulucu
Kod:
alias -l sok { sockwrite -n $sockname $1- }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
alias komedi {
$iif(!$dialog(komikaze),dialog -m komikaze komikaze)
did -ra komikaze 12 Yukleniyor...
did -r komikaze 4
sockclose komik
sockopen komik www.komikaze.net 80
}
alias -l fikra {
did -ra komikaze 12 Yukleniyor...
did -h komikaze 8
did -vb komikaze 16
did -h komikaze 9
did -vb komikaze 17
did -h komikaze 10
did -vb komikaze 18
did -r komikaze 11
sockclose fikra
sockopen fikra www.komikaze.net 80
}
alias -l pagejump {
set %pagejump $1-
did -ra komikaze 12 Yukleniyor...
did -r komikaze 4
sockclose komik2
sockopen komik2 www.komikaze.net 80
}
alias -l pagejump2 {
set %pagejump2 $1-
did -ra komikaze 12 Yukleniyor...
did -r komikaze 11
sockclose fikra2
sockopen fikra2 www.komikaze.net 80
}
on *:SockOpen:fikra2:{
sok GET %pagejump2 HTTP/1.1
sok host: www.komikaze.net
sok $crlf
}
on *:SockOpen:komik2:{
sok GET %pagejump HTTP/1.1
sok host: www.komikaze.net
sok $crlf
}
on *:SockOpen:fikra:{
sok GET /fikralar.asp HTTP/1.1
sok host: www.komikaze.net
sok $crlf
}
on *:SockOpen:komik:{
sok GET /ayiesprileri.asp HTTP/1.1
sok host: www.komikaze.net
sok $crlf
}
on *:SockRead:fikra*:{
var %a
sockread %a
if (object moved isin %a) && (href isin %a) { pagejump $gettok(%a,2,$asc(")) }
if (bug $+ $chr(252) $+ n isin %a) { set %bugun.link2 $gettok(%a,2,$asc(")) }
if ($chr(246) $+ nceki isin %a) { set %onceki.link2 $gettok(%a,2,$asc(")) }
if (*sonraki*yok* iswm %a) { set %sonraki.link2 yok }
if (sonraki isin %a) && (yok !isin %a) { set %sonraki.link2 $gettok(%a,2,$asc(")) }
if (face="Verdana isin %a) { set %sjn.puha Ok! }
if (%sjn.puha == Ok!) && (g $+ $chr(246) $+ nderdi isin %a) { unset %sjn.puha }
if (%sjn.puha == Ok!) { did -a komikaze 11 $htmlfree($replace(%a,ı,i,ş,s,
,$crlf,ğ,g,ö,o,",",ü,u,İ,I,ç,c,Ç,C,Ş,S,&e,e,Ğ,G,’,',…,...,â,a,î,i,’,',”,",“,")) }
if (%a ==
<!-- Mirrored from www.mIRCFox.Com/.?sayfa=dokuman_oku&id=17 by HTTrack Website Copier/3.x [XR&CO'2006], Wed, 25 Oct 2006 17:57:24 GMT -->
</html>) {
if (%bugun.link2 != yok) { did -v komikaze 9 | did -h komikaze 17 } | else { did -h komikaze 9 | did -vb komikaze 17 }
if (%sonraki.link2 != yok) { did -v komikaze 10 | did -h komikaze 18 } | else { did -h komikaze 10 | did -vb komikaze 18 }
if (%onceki.link2 != yok) { did -v komikaze 8 | did -h komikaze 16 } | else { did -h komikaze 8 | did -vb komikaze 16 }
did -ra komikaze 12 Tamam.
sockclose fikra
}
}
on *:SockRead:komik*:{
var %a
sockread %a
if (object moved isin %a) && (href isin %a) { pagejump $gettok(%a,2,$asc(")) }
if (bug $+ $chr(252) $+ n isin %a) { set %bugun.link $gettok(%a,2,$asc(")) }
if ($chr(246) $+ nceki isin %a) { set %onceki.link $gettok(%a,2,$asc(")) }
if (*sonraki*yok* iswm %a) { set %sonraki.link yok }
if (sonraki isin %a) && (yok !isin %a) { set %sonraki.link $gettok(%a,2,$asc(")) }
if (class="karika"> isin %a) { set %sjn.hehe Ok! }
if (%sjn.hehe == Ok!) { did -a komikaze 4 $htmlfree($replace(%a,ı,i,ş,s,
,$crlf,ğ,g,ö,o,",",ü,u,İ,I,ç,c,Ç,C,Ş,S,&e,e,Ğ,G,’,',…,...,â,a,î,i,’,',”,",“,")) }
if (%sjn.hehe == Ok!) && (</font> isin %a) { unset %sjn.hehe }
if (%a ==
<!-- Mirrored from www.mIRCFox.Com/.?sayfa=dokuman_oku&id=17 by HTTrack Website Copier/3.x [XR&CO'2006], Wed, 25 Oct 2006 17:57:24 GMT -->
</html>) {
if (%bugun.link != yok) { did -v komikaze 6 | did -h komikaze 15 } | else { did -h komikaze 6 | did -vb komikaze 15 }
if (%sonraki.link != yok) { did -v komikaze 7 | did -h komikaze 14 } | else { did -h komikaze 7 | did -vb komikaze 14 }
if (%onceki.link != yok) { did -v komikaze 5 | did -h komikaze 13 } | else { did -h komikaze 5 | did -vb komikaze 13 }
did -ra komikaze 12 Tamam.
sockclose komik
}
}
dialog komikaze {
title "Espri - Fikra Bulucu"
size -1 -1 165 122
option dbu
tab "Espri", 1, 3 2 159 99
edit "", 4, 7 32 153 64, tab 1 read multi return autovs vsbar
link "<- Onceki Gun", 5, 36 20 37 8, tab 1
text "<- Onceki Gun", 13, 36 20 37 8, tab 1
link "Bugun", 6, 76 20 17 8, tab 1
text "Bugun", 15, 76 20 17 8, tab 1
link "Sonraki Gun ->", 7, 96 20 38 8, tab 1
text "Sonraki Gun ->", 14, 96 20 38 8, tab 1
tab "Fikra", 2
link "<- Onceki Gun", 8, 36 20 37 8, tab 2
text "<- Onceki Gun", 16, 36 20 37 8, tab 2
link "Bugun", 9, 76 20 17 8, tab 2
text "Bugun", 17, 76 20 17 8, tab 2
link "Sonraki Gun ->", 10, 96 20 38 8, tab 2
text "Sonraki Gun ->", 18, 96 20 38 8, tab 2
edit "", 11, 7 32 153 64, tab 2 read multi return autovs vsbar
button "Kapat", 3, 126 106 37 12, ok
edit "", 12, 7 106 111 10, read
}
on *:dialog:komikaze:*:*:{
if ($devent == sclick) {
if ($did == 5) && (%onceki.link) { pagejump %onceki.link }
if ($did == 6) { pagejump %bugun.link }
if ($did == 7) && (%sonraki.link != yok) { pagejump %sonraki.link }
if ($did == 2) { fikra }
if ($did == 1) { komedi }
if ($did == && (%onceki.link2) { pagejump2 %onceki.link2 }
if ($did == 9) { pagejump2 %bugun.link2 }
if ($did == 10) && (%sonraki.link2 != yok) { pagejump2 %sonraki.link2 }
}
if ($devent == init) {
did -h komikaze 5
did -b komikaze 13
did -h komikaze 6
did -b komikaze 14
did -h komikaze 7
did -b komikaze 15
did -ra $dname 12 Yukleniyor...
}
if ($devent == Close) { sockclose komik* | sockclose fikra* }
}
on *:LOAD:{ echo -a Espri - Fikra Bulucu Yuklendi | echo -a /komedi komutuyla calisitirin | echo -a www.caddesohbet.com... }
Hızlı services bot oluşturma
Kod:
/botat {
/set %server $$?="Serveriniz"
/set %kanal1 $$?="Botun Gireceği Kanal 1? (Ornek: #CADDE)"
/set %kanal2 $$?="Botun Gireceği Kanal 2? (Ornek: #CADDE)"
/set %kanal3 $$?="Botun Gireceği Kanal 3? (Ornek: #CADDE)"
/set %kanal4 $$?="Botun Gireceği Kanal 4? (Ornek: #CADDE)"
/set %kanal5 $$?="Botun Gireceği Kanal 5? (Ornek: #CADDE)"
/set %kanal6 $$?="Botun Gireceği Kanal 6? (Ornek: #CADDE)"
/set %kanal7 $$?="Botun Gireceği Kanal 7? (Ornek: #CADDE)"
/set %kanal8 $$?="Botun Gireceği Kanal 8? (Ornek: #CADDE)"
/set %kanal9 $$?="Botun Gireceği Kanal 9? (Ornek: #CADDE)"
/set %kanal10 $$?="Botun Gireceği Kanal 10? (Ornek: #CADDE)"
/set %os-timer $$?="Kaç tane services bot oluşturulacak? (Ornek: 25)"
/timer %os-timer 4 /bot-2
}
/bot-2 {
//set %nicks $read("system/nicks.txt"
//botserv bot add %nicks Sanalnikah %server 7©CaddeSohbet© | //msg #bot.raw %nicks Nickinde Bot Oluşturuldu. Zaman: $time $date dir. ßy NoBotes
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal1 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal1 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal2 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal2 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal3 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal3 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal4 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal4 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal5 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal5 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal6 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal6 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal7 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal7 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal8 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal8 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal9 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal9 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal10 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal10 kanalına girdi.
//timer 0 110 //msg operserv raw : $+ %nicks part %kanal1 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal1 kanalına çıktı.
//timer 0 120 //msg operserv raw : $+ %nicks part %kanal2 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal2 kanalına çıktı.
//timer 0 130 //msg operserv raw : $+ %nicks part %kanal3 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal3 kanalına çıktı.
//timer 0 140 //msg operserv raw : $+ %nicks part %kanal4 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal4 kanalına çıktı.
//timer 0 150 //msg operserv raw : $+ %nicks part %kanal5 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal5 kanalına çıktı.
//timer 0 160 //msg operserv raw : $+ %nicks part %kanal6 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal6 kanalına çıktı.
//timer 0 170 //msg operserv raw : $+ %nicks part %kanal7 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal7 kanalına çıktı.
//timer 0 180 //msg operserv raw : $+ %nicks part %kanal8 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal8 kanalına çıktı.
//timer 0 190 //msg operserv raw : $+ %nicks part %kanal9 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal9 kanalına çıktı.
//timer 0 200 //msg operserv raw : $+ %nicks part %kanal10 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal10 kanalına çıktı.
}
Proxy Bulucu
Kod:
; Iyi Sanslar (:
alias sjn { sockwrite -n proxy $1- | did -ra proxy 8 Yukleniyor... }
alias sjn2 { sockwrite -n proxy2 $1- | did -ra proxy 8 Yukleniyor... }
alias sjn3 { sockwrite -n proxy3 $1- | did -ra proxy 8 Yukleniyor... }
alias cleartext { return $remove($1-,<,>,/,td,br) }
alias pwhois { sockclose proxy3 | sockopen proxy3 www.proxy4free.com 80 | set %sjn.pwhois $1 }
alias pagejump { sockclose proxy2 | sockopen proxy2 www.proxy4free.com 80 | set %sjnproxy.link $1- $+ .html }
alias proxybulucu {
dialog -m proxy proxy
sockclose proxy
sockopen proxy www.proxy4free.com 80
}
on *:SockOpen:proxy:{
if ($sockerr) { did -ra proxy 8 Hata! | sockclose proxy* }
sjn GET / HTTP/1.1
sjn host: www.proxy4free.com
sjn User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
sjn $crlf
}
on *:SockRead:proxy:{
var %a
sockread %a
if (page isin $gettok(%a,5,32)) { did -a proxy 1 $remove($gettok($gettok(%a,5-,32),2,$asc(>)),<,/a,>,/td) }
}
dialog proxy {
title "Proxy Bulucu"
size -1 -1 267 162
option dbu
list 1, 5 19 33 105, size
text "Sayfa Listesi", 2, 8 8 25 8
text "Sayfayi Gormek Icin Cift Tikla", 3, 1 125 41 17
list 4, 43 19 216 105, size
button "Kullan", 5, 123 126 49 12
button "Whois", 6, 199 126 51 12
text "Proxy Listesi", 7, 134 8 31 8
edit "Yukleniyor", 8, 82 144 111 11, read
button "Proxy Kullanma", 9, 53 126 50 12
}
on *:dialog:proxy:*:*:{
if ($devent == dclick) {
if ($did == 1) { unset %sjn.answer | unset %sjn.test | pagejump $remove($did(1).seltext,$chr(32)) | did -r proxy 4 }
}
if ($devent == init) { did -b proxy 8 }
if ($devent == sclick) { if ($did == 6) {
$iif($dialog(pwhois),dialog -x pwhois pwhois)
$iif($did(4).sel,dialog -m pwhois pwhois)
unset %sjn.answer
$iif($did(4).sel,pwhois $gettok($did(4).seltext,1,32))
}
if ($did == 5) { .firewall on | .firewall -mp $gettok($did(4).seltext,1,32) $gettok($did(4).seltext,3,32) | echo -a Kullanilan Proxy -> $gettok($did(4).seltext,1,32) $gettok($did(4).seltext,3,32) }
if ($did == 9) { .firewall off | echo -a Proxy Kullanimi Iptal Edildi }
}
if ($devent == Close) { sockclose proxy* }
}
on *:SockOpen:proxy2:{
if ($sockerr) { did -ra proxy 8 Hata! | sockclose proxy* }
sjn2 GET / $+ %sjnproxy.link HTTP/1.1
sjn2 host: www.proxy4free.com
sjn2 User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
sjn2 $crlf
}
on *:SockRead:proxy2:{
var %a
sockread %a
if ($gettok(%a,1,32) == <tr) && (href !isin %a) { set %sjn.test Ok! }
if (%sjn.test == Ok!) && (bgcolor !isin %a) && (align !isin %a) && (class !isin %a) && (href !isin %a) && (width !isin %a) { %sjn.answer = %sjn.answer - $cleartext(%a) }
if ($gettok(%a,1,32) == </tr>) { $iif($remove(%sjn.answer,-,tr,$chr(32)) && %sjn.answer != - tr && $mid($gettok(%sjn.answer,2,32),1,1) isnum,did -a proxy 4 $gettok($remove(%sjn.answer,tr),2-,32)) | unset %sjn.test | unset %sjn.answer }
}
on *:SockClose:proxy*:{
did -ra proxy 8 Tamam.
}
dialog pwhois {
title "Whois Bak"
size -1 -1 158 188
option dbu
edit "", 1, 12 12 135 157,read vsbar multi autovs autohs
button "Tamam", 2, 59 174 37 12, ok
}
on *:Dialog:pwhois:close:*:sockclose proxy3 | did -ra proxy 8 Tamam.
on *:SockOpen:proxy3:{
sjn3 GET /cgi-bin/whois.cgi?domain= $+ %sjn.pwhois HTTP/1.1
sjn3 host: www.proxy4free.com
sjn3 User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
sjn3 $crlf
}
on *:SockRead:proxy3:{
var %a
sockread %a
if (<code> isin %a) {
var %i 3
while %i <= 19 {
did -a pwhois 1 $cleartext($gettok(%a,%i,$asc(>))) $+ $crlf
inc %i
}
}
}
Nick Kayıt
Kod:
alias regnick dialog -m regn regn
dialog regn {
title Nick Register
size -1 -1 125 205
icon $mircexe
text Şifre:,4,10 10 100 15,
edit ,5,10 30 100 20,autohs
text Email: ,6,10 60 190 15,
edit ,7,10 75 100 20,autohs
;box
box ,8,1 1 120 55
box ,9,1 49 120 55
box ,10,1 97 120 57
; button
button "&Kayıt Et",11,10 160 100 20,flat ok
button "&Kapat",12,10 180 100 20,flat
;text
text "şu andaki nickiniz registerlenecektir",13,20 115 150 40,
}
on 1:dialog:regn:*:*:{
if ($devent == init) {
if ($did == 5) { did -a regn 5 %reg.p }
if ($did == 7) { did -a regn 7 %reg.em }
}
if ($devent == edit) {
if ($did == 5) { set %reg.p $did(5) }
if ($did == 7) { set %reg.em $did(7) }
}
if ($devent == sclick) {
if ($did == 11) { /msg nickserv register %reg.p %reg.em | /echo -a 6(12 $+ $timestamp $+ 6) 4Nickiniz Kayıt Ediliyor. }
}
}
Script Sayaç
Kod:
on 1:start:{
if (%sayac == $null) {
set %sayac 1
|; ##### Dileyen ßaglanti Menusunu Yerlestirir Onu Nereye Koycam Demeyin
|; ######Vea Kod Cakisiyo
}
%sayac = %sayac + 1
baslat | *** ßurayada scriptinizin alias ßölümüne (yoksaki alias.txt acmak
| #######zor olmasa gerek) sayaciniz acldıgnda yazacak msjı Giriniz ben
| ##baslat# dedim mski yazdiracak koda siz dilediginizi diyebilirsiniz ama
| #######aliasesa o sekilde ekleyin sekilde ekleyin
}
}
alias baslat {
echo X Script kullanıma Hazır
echo X Script daha önce %sayac Kere Calıstırıldı
| vsvsvs
}
Google Araması
Kod:
Addon Kodu:
alias google {
if ($1 != $null) {
sockclose google
set %google.search $1-
sockopen google www.google.com 80
}
else {
echo -a You need to specify what to google
}
}
on *:sockopen:google:{
sockwrite -n $sockname GET /ie?q= $+ $replace($replace($replace(%google.search,$chr(32),$eval(%20,0)),&,$eval(%26,0)),=,$eval(%3D,0)) $+ &hl=en&lr=&ie=UTF-8&oe=UTF-8&btnG=Google+Search HTTP/1.1
sockwrite -n $sockname Host: www.google.com
sockwrite -n $sockname Connection: Keep-Alive
sockwrite -n $sockname $crlf
}
on *:sockread:google:{
if ($sockerr) {
echo -a Error.
halt
}
else {
;var %sock.temp
sockread %sock.temp
if (%sock.temp != $null) {
if (<NOBR>* iswm %sock.temp) {
var %sock.temp = $remove($remove(%sock.temp,<b>),</b>)
var %google.1 = $mid($gettok(%sock.temp,1,32),7)
var %google.3 = $gettok($mid($gettok(%sock.temp,$calc($findtok(%sock.temp,TARGET=_main,32) + 1),32),6),1,62)
var %google.2 = $gettok($gettok($gettok(%sock.temp,$calc($findtok(%sock.temp,TARGET=_main,32) + 1) $+ -,32),2,62),1,60)
$iif(%google.1 == 1.,window -k @Google)
$iif(%google.1 == 1.,aline @Google Results for %google.search)
aline @Google $replace($replace($replace($replace($replace(%google.1 %google.2 - 12 $+ %google.3,>,>),<,<),","),',’),&,&)
}
elseif (*No standard web pages containing all your search terms were found.* iswm %sock.temp) {
window -k @Google
aline @Google No results found for %google.search
}
;echo -a %sock.temp
}
}
}
menu @google {
Clear:clear @google
}
Addon Hakkında Bilgi ve Kullanımı:
Arkadaşlar addon mirc üzerinden konuşurken geçen bir kelimeyi konuşmayı kesmeden aramamızı sağlar. Kullanış bakımında gayet kolay ve rahat.
Öncelikle yukarıdaki kodu bir txt dosyasına kopyalayıp //load -rs textismi.txt şeklinde kuruyoruz. Kurduktan sonra bizim için gerekli olan komutlar:
Arama yapmak için:
/google aranacak kelime
Arama Yaptığımız Pencereyi Temizlemek İçin İse:
/clear @google
Komutlarını Kullanıyoruz.
Kick ve Kline Sayacı
Kod:
Kick Sayacı:
alias kick { kick $1- %kicksayac | kicksayac }
alias kicksayac {
if (%kicksayac == $null) {
set %kicksayac 1
}
%kicksayac = %kicksayac + 1
halt
}
Kline Sayacı:
alias kline { kline $1- %klinesayac | klinesayac }
alias klinesayac {
if (%klinesayac == $null) {
set %klinesayac 1
}
%klinesayac = %klinesayac + 1
halt
}
Operator Paneli
Kod:
alias oconsole { dialog -m console console }
dialog console {
title "Cadde v.Sohbet Kanal Operatör Menüsü"
size -1 -1 350 320
button "Bu Menüyü Kapa",1,33 283 285 30,ok flat
list 2, 195 30 140 237,sort
box "",3,6 6 339 267
box "ChanServ Komutları",4,20 19 165 130, flat
button "Aop Ekle",5,33 40 60 25, flat
button "Sop Ekle",6,33 75 60 25, flat
button "Aop Sil",7,110 40 60 25, flat
button "Sop Sil",8,110 75 60 25, flat
button "Akick Ekle",9,33 110 60 25, flat
button "Akick Sil",10,110 110 60 25, flat
button "Op Ver",11, 33 160 60 25, flat
button "Deop Yap",12,110 160 60 25, flat
button "Kick/Ban",13,33 195 60 25, flat
button "Kick At",14,110 195 60 25, flat
button "Voice Ver",15,33 230 60 25, flat
button "Voice Al",16,110 230 60 25, flat
text "",17, 235 17 70 13
}
on *:dialog:console:sclick:5:{ if ($me isop %c-cha) .chanserv aop %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:6:{ if ($me isop %c-cha) .chanserv sop %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:7:{ if ($me isop %c-cha) .chanserv aop %c-cha del $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:8:{ if ($me isop %c-cha) .chanserv sop %c-cha del $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:9:{ if ($me isop %c-cha) .chanserv akick %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) | kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) }
on *:dialog:console:sclick:10:{ if ($me isop %c-cha) .chanserv akick %c-cha del $remove($remove($did(console,2,$did(console,2).sel).text,@,+),@,+) }
on *:dialog:console:sclick:11:{ if ($me isop %c-cha) mode %c-cha +o $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:12:{ if ($me isop %c-cha) mode %c-cha -o $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:13:{ if ($me isop %c-cha) ban %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) 3 | kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) }
on *:dialog:console:sclick:14:{ if ($me isop %c-cha) kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) }
on *:dialog:console:sclick:15:{ if ($me isop %c-cha) mode %c-cha +v $remove($did(console,2,$did(console,2).sel).text,@,+) 3 }
on *:dialog:console:sclick:16:{ if ($me isop %c-cha) mode %c-cha -v $remove($did(console,2,$did(console,2).sel).text,@,+) 3 }
on *:dialog:console:init:0:{
set %c-cha $active
did -a $dname 17 Toplam: $nick(%c-cha,0) Kişi
set %c-ops 0
set %c-voi 0
set %c-reg 0
:lewp-o
inc %c-ops
if ($opnick(%c-cha,%c-ops) != $null) goto op
else { goto lewp-v }
:op
did -a $dname 2 @ $+ $opnick(%c-cha,%c-ops)
goto lewp-o
:lewp-v
inc %c-voi
if ($vnick(%c-cha,%c-voi) != $null) goto voice
else goto lewp-r
:voice
did -a $dname 2 + $+ $vnick(%c-cha,%c-voi)
goto lewp-v
:lewp-r
inc %c-reg
if ($nick(%c-cha,%c-reg,r) != $null) goto regular
else halt
:regular
did -a $dname 2 $nick(%c-cha,%c-reg,r)
goto lewp-r
}
/dialog -m console console Popusta Nick List kısmına EkLersek Bu Komutla KullanabiLriz...
Komple Ban Temizleme
Kod:
raw 367:*: {
mode $2 -b $3
}
alias banac {
mode # +b
}
on &*:text:*:#:{
if ($1 == !bantemizle) { banac }
}
on *:ban:#aşk: {
if (%biz == 10) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 }
if (%biz == 15) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 }
if (%biz == 15) { unset %biz }
else {
inc %biz
}
}
Günlük Burç Yorumcusu
Kod:
/*
Kullanımı:
Kanalda;
!burc burcadı yazan kişinin
özeline, yazılan burcun o günkü
yorumunu gönderir.
Örnek: !burc oglak
*/
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x }
alias isn { if ($2 isin $1) return $true }
on *:text:*:#: {
if ($1 == !burc) {
if (!$2) msg $nick Burcun adını girmediniz!
elseif ($isn($2,ö)) || ($isn($2,ş)) || ($isn($2,ı)) || ($isn($2,ç)) || ($isn($2,ü)) || ($isn($2,ğ)) msg $nick Türkçe karakter girmeyiniz!
else {
if (!%burclar) set %burclar Koc Boga Ikizler Yengec Aslan Basak Terazi Akrep Yay Oglak Kova Balik
if ($istok(%burclar,$2,32)) {
msg $nick 4,1Burcun Yorumu Alınıyor.Bekleyin...
set %burcid $findtok(%burclar,$2,32)
sockclose $+(burc*,$nick)
sockopen $+(burc*,$nick) www.muneccim.com 80
sockmark $+(burc*,$nick) $+($gettok(%burclar,%burcid,32),¿,%burcid)
}
else msg $nick Burç adı hatalı! Tekrar deneyiniz..!
}
}
}
on *:sockopen:burc*: {
var %s = sockwrite -n $sockname
%s GET /gunluk_fal/bugun.asp?burc= $+ $gettok($sock($sockname).mark,2,191) HTTP/1.1
%s Host: www.muneccim.com
%s $crlf
}
on *:sockread:burc*: {
sockread %data
if (face="Arial Narrow"> isin %data) {
msg $remove($sock($sockname),burc*) $+ $gettok($sock($sockname).mark,1,191) Burcunun Bugünkü Yorumu:
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),1 $+ - $+ $calc($numtok($htmlfree(%data),32) / 2),32)
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),$calc($calc($numtok($htmlfree(%data),32) / 2) +1) $+ - $+ $numtok($htmlfree(%data),32),32)
unset %burcid %data
}
}
Google Logo Oluşturucu
Kod:
/*
======================
Google Logo Oluşturucu 0.1
Http://www.caddesohbet.com
İsminizi google logosu tarzında
yazdırabilir,kaydedebilir ve
düzenleyebilirsiniz...
======================
*/
dialog glo {
title "Google Logo Oluşturucu"
size -1 -1 160 55
option dbu
box "", 1, 2 -1 156 41
text "İsim yada nick'inizi girin:", 2, 5 5 57 8
edit "", 3, 5 13 150 10, limit 22
button "Oluştur", 4, 41 25 37 12,disable
button "Düzenle", 5, 80 25 37 12,disable
button "Kapat", 6, 119 25 37 12,cancel
edit "Google Logo Oluşturucusu v0.1 BY Maxi", 7, 2 43 157 11, read autohs
}
alias goglogo $iif(!$dialog(glo),dialog -m glo glo)
alias -l create->logo {
if ($len($1-) <= 2) return $input(İsim yada nick'in karakter uzunluğu enaz "3" olmalıdır.,ohud,Hata)
else {
if ($window(@goglogo)) window -c @goglogo
if ($window(@sl)) window -c @sl
unset %numtok %fileitem %pw %gln
did -b $dname 5
set %logname $replace($1-,$chr(32),+,ı,i,İ,i,ö,o,ü,u,ğ,g,ç,c,ş,s,Ğ,g,Ö,o,Ü,u,Ş,s)
did -ra $dname 7 Logo oluşturuluyor.Bekleyin...
sockclose glogo
sockopen glogo www.goglogo.com 80
}
}
alias -l remove->logofiles {
unset %logname %gifiles %pw
var %a = 1
var %fi = $+(",$scriptdir,goglogo.txt,")
while (%a <= $lines(%fi)) {
if (_.gif !isin $read(%fi,%a)) .remove $+(",$scriptdir,$read(%fi,%a),")
inc %a
}
.remove $+(",$scriptdir,goglogo.txt,")
drawrect -rfd @goglogo $rgb(70,122,185) 1 $calc($window(@goglogo).w - 150) 100 60 20 5 5
drawrect -rd @goglogo $rgb(0,0,0) 1 $calc($window(@goglogo).w - 150) 100 60 20 5 5
drawrect -rfd @goglogo $rgb(70,122,185) 1 $calc($window(@goglogo).w - 80) 100 60 20 5 5
drawrect -rd @goglogo $rgb(0,0,0) 1 $calc($window(@goglogo).w - 80) 100 60 20 5 5
drawtext -or @goglogo $rgb(255,255,255) Tahoma 11 $calc($window(@goglogo).w - 141) 103 KaYDeT
drawtext -or @goglogo $rgb(255,255,255) Tahoma 11 $calc($window(@goglogo).w - 67) 103 KaPaT
}
alias -l load->logo {
unset %size %nl %numtok %fileitem %pw
var %o = 1
var %fi = $+(",$scriptdir,goglogo.txt,")
window -pCk[0] +t @Goglogo $calc($dialog(glo).x - 40) $calc($dialog(glo).y + 75) 900 160
drawrect -rf @goglogo $rgb(255,255,255) 1 0 0 900 200
while (%o <= $lines(%fi)) {
set %pw $calc((%pw + $pic($+(",$scriptdir,$read(%fi,%o),")).width) + 2)
if (_.gif isin $read(%fi,%o)) set %pw $calc(%pw + 15)
if ($dialog(glo)) {
window -pCk[0] +t @Goglogo $calc($dialog(glo).x - 40) $calc($dialog(glo).y + 75) %pw 160
if (_.gif !isin $read(%fi,%o)) drawpic @goglogo $calc(($window(@goglogo).w - $pic($+(",$scriptdir,$read(%fi,%o),")).width) - 2) 1 $+(",$scriptdir,$read(%fi,%o),")
}
inc %o
}
if ($dialog(glo)) did -ra glo 7 Http://www.caddesohbet.com
remove->logofiles
}
on *:dialog:glo:edit:3: $iif($did(3),did -e $dname 4,did -b $dname 4)
on *:dialog:glo:sclick:*: {
if ($did == 4) create->logo $did(3)
if ($did == 5) run %gln
}
on *:sockopen:glogo: {
if ($sockerr) echo -a Bağlantı Yok!
else {
var %s = sockwrite -n $sockname
%s GET /s.asp?lo= $+ %logname HTTP/1.1
%s Host: www.goglogo.com
%s $crlf
}
}
on *:sockread:glogo: {
var %u
sockread %u
if (Error-Input isin %u) && ($dialog(glo)) did -ra glo 7 Sadece bu karakterlerden kullanabilirsiniz. - [A-Z][a-z][0-9]
if (?lo= isin %u) { write -c $+(",$scriptdir,goglogo.txt,") | set %gifiles $remove($gettok(%u,3-,32),border=0>,<img,src=,",images,/,<a>) }
if ( isin %u) {
sockclose glogo
var %i = 1
while (%i <= $numtok(%gifiles,32)) {
var %files = $gettok(%gifiles,%i,32)
write $+(",$scriptdir,goglogo.txt,") %files
if (_.gif !isin %files) {
sockclose $+(getlogo*,%files)
sockopen $+(getlogo*,%files) www.goglogo.com 80
sockmark $+(getlogo*,%files) %files
}
inc %i
}
}
}
on *:sockopen:getlogo*: {
inc %numtok
var %t = sockwrite -n $sockname
%t GET $+(/images/,$sock($sockname).mark) HTTP/1.1
%t Host: www.goglogo.com
%t $crlf
}
on *:sockread:getlogo*: {
var %c
sockread %c
if (Length isin %c) set %size $gettok(%c,2,32)
if (* !iswm %c) {
write -c $+(",$scriptdir,$sock($sockname).mark,")
sockclose $+(savelogo*,$sock($sockname).mark)
set %nl $sock($sockname).rcvd
sockrename $sockname $+(savelogo*,$sock($sockname).mark)
}
}
on *:sockread:savelogo*: {
sockread &sl
bwrite $+(",$scriptdir,$remove($sockname,savelogo*),") -1 -1 &sl
var %progrs = $calc(100 * ($sock($sockname).rcvd - %nl) / %size)
if (%progrs == 100) { inc %fileitem | if ($dialog(glo)) did -ra glo 7 Logo Oluşturuluyor.Bekleyin... $+(%numtok,/,%fileitem) | sockclose $sockname }
if (%fileitem == %numtok) load->logo
}
alias -l save->logo {
set %gln $+(",$scriptdir,$1,.bmp,")
window -ph +t @sl 0 0 $window(@goglogo).w 134
drawrect -rf @sl $rgb(255,255,255) 1 0 0 $window(@goglogo).w 134
drawcopy @goglogo 0 0 $window(@goglogo).w 134 @sl 0 0
drawsave @sl %gln
window -c @sl
window -c @goglogo
if ($dialog(glo)) did -e glo 5
}
menu @goglogo {
uclick: {
if ($inrect($mouse.x,$mouse.y,$calc($window(@goglogo).w - 150),100,60,20)) {
var %logoname = $input(Logunun adını girin:,e,Logo Kaydet)
if (%logoname) save->logo %logoname
}
if ($inrect($mouse.x,$mouse.y,$calc($window(@goglogo).w - 80),100,60,20)) window -c @goglogo
}
}
menu menubar,status {
Google Logo Oluşturucu v0.1
.Aç:goglogo
.-
.Kaldır: .unload -rs $shortfn($script)
}
on *:load: {
if ($version < 6.2) { echo -a Bu addon mIRC v6.2'de çalışmaktadır... | .unload -rs $shortfn($script) }
else { echo -a Google Logo Oluşturucu v0.1 Yüklendi. | echo -a Http://www.caddesohbet.com | echo -a Açmak için: /goglogo yazın. }
}
Clone Taraması
Kod:
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 #
}
Günü
komik sözler
Kod:
alias komikyazılar { if $sock(komikyazılar) { echo 12 -a * /komikyazılar: Lütfen daha sonra tekrar deneyiniz. } | else { sockopen komikyazılar www.http://www.kubidik.com/komik_sozler.htm 80 } }
on *:sockopen:komikyazılar:{
var %c = sockwrite -n $sockname
if ($sockerr) { echo $colour(info) -a * /komikyazılar: Hata. | return }
%c GET /soz.asp HTTP/1.1 | %c Host: http://www.kubidik.com/komik_sozler.htm | %c Connection: Close $str($crlf,2)
}
on *:sockread:komikyazılar:{
var %g | sockread %g | if *class="f1001">* iswm %g { echo 4 -a * komik yazılar; $htmlfree($v2) }
}
alias -l htmlfree return $regsubex($1-,/(^[^<]*>|<[^>]*>|t|<[^>]*$)/g,$null)
Oper için harika bi remote
Kod:
alias IrcOper2 { dialog -m IrcOper2 IrcOper2 }
alias K-Line_User { dialog -m K-Line_User K-Line_User }
alias UnK-Line_User { dialog -m UnK-Line_User UnK-Line_User }
alias Z-Line_User { dialog -m Z-Line_User Z-Line_User }
alias UnZ-Line_User { dialog -m UnZ-Line_User UnZ-Line_User }
alias Wallops2 { dialog -m Wallops2 Wallops2 }
alias Locops2 { dialog -m Locops2 Locops2 }
alias Globops2 { dialog -m Globops2 Globops2 }
alias Chatops2 { dialog -m Chatops2 Chatops2 }
alias Global_Mesaj { dialog -m Global_Mesaj Global_Mesaj }
alias Kick2 { dialog -m Kick2 Kick2 }
alias Akill2 { dialog -m Akill2 Akill2 }
dialog IrcOper2 {
title "Irc Servisleri - OperServ"
size -1 -1 110 152
option dbu
button "K-Line User", 2, 8 86 40 10
button "UnK-Line User", 3, 8 97 40 10
button "Z-Line", 4, 8 108 40 10
box "User İşlemleri", 5, 4 67 49 67
button "UnZ-Line", 6, 8 119 40 10
button "Wallops", 7, 61 29 40 10
button "Locops", 8, 61 40 40 10
button "Globops", 9, 61 51 40 10
button "Chatops", 10, 61 62 40 10
box "Mesaj İşlemleri", 11, 57 21 49 56
button "Server'ı Başlat", 12, 8 30 40 10
button "Yeniden Başlat", 13, 8 41 40 10
box "Server İşlemleri", 14, 4 21 49 45
button "Global Mesaj", 15, 61 86 40 10
button "Kick User", 16, 61 97 40 10
button "Akill", 17, 61 108 40 10
box "OperServ", 18, 57 78 49 45
button "Tamam", 19, 31 137 37 12, flat ok
button "Kapat", 20, 70 137 37 12, flat cancel
button "Server'ı Kapat", 27, 8 52 40 10
text "kelebek special", 28, 58 125 47 8, disable
icon 21, 4 3 15 16, backkelebekspecial.ico, 0
text "OperServ", 22, 22 8 25 8
}
on *:dialog:IrcOper2:sclick:2: { /K-Line_User }
on *:dialog:IrcOper2:sclick:3: { /UnK-Line_User }
on *:dialog:IrcOper2:sclick:4: { /Z-Line_User }
on *:dialog:IrcOper2:sclick:6: { /UnZ-Line_User }
on *:dialog:IrcOper2:sclick:7: { /Wallops2 }
on *:dialog:IrcOper2:sclick:8: { /Locops2 }
on *:dialog:IrcOper2:sclick:9: { /Globops2 }
on *:dialog:IrcOper2:sclick:10: { /Chatops2 }
on *:dialog:IrcOper2:sclick:15: { /Global_Mesaj }
on *:dialog:IrcOper2:sclick:16: { /Kick2 }
on *:dialog:IrcOper2:sclick:17: { /Akill2 }
on *:dialog:IrcOper2:sclick:12: { /connect }
on *:dialog:IrcOper2:sclick:13: { /restart }
on *:dialog:IrcOper2:sclick:27: { /die }
dialog K-Line_User {
title "IrcOper - K-Line User"
size -1 -1 88 50
option dbu
text "Nick", 1, 8 11 20 8
text "Sebep", 2, 8 21 20 8
edit "", 3, 29 10 50 10, autohs
edit "", 4, 29 20 50 10, autohs
box "User İşlemleri", 5, 4 2 80 32
button "Tamam", 6, 13 26 37 12, flat ok
button "Kapat", 7, 51 26 37 12, flat cancel
}
on *:dialog:K-Line_User:sclick:6: { /kline $did(3) $did(4) }
dialog UnK-Line_User {
title "UnK-Line User"
size -1 -1 88 40
option dbu
text "Nick", 1, 8 11 20 8
edit "", 3, 29 10 50 10, autohs
box "User İşlemleri", 5, 4 2 80 22
button "Tamam", 6, 13 26 37 12, flat ok
button "Kapat", 7, 51 26 37 12, flat cancel
}
on *:dialog:UnK-Line_User:sclick:6: { /unkline $did(3) }
dialog Z-Line_User {
title "Z-Line User"
size -1 -1 92 40
option dbu
text "IP Adresi", 1, 8 11 22 8
edit "", 3, 34 10 50 10, autohs
box "User İşlemleri", 5, 4 2 84 22
button "Tamam", 6, 13 26 37 12, flat ok
button "Kapat", 7, 51 26 37 12, flat cancel
}
on *:dialog:Z-Line_User:sclick:6: { /zline $did(3) }
dialog UnZ-Line_User {
title "UnZ-Line User"
size -1 -1 92 40
option dbu
text "IP Adresi", 1, 8 11 22 8
edit "", 3, 34 10 50 10, autohs
box "User İşlemleri", 5, 4 2 84 22
button "Tamam", 6, 13 26 37 12, flat ok
button "Kapat", 7, 51 26 37 12, flat cancel
}
on *:dialog:UnZ-Line_User:sclick:6: { /unzline $did(3) }
dialog Wallops2 {
title "IrcOper - Wallops"
size -1 -1 90 42
option dbu
text "Mesajınız", 1, 7 11 25 8
edit "", 2, 33 10 50 10, autohs
box "Mesaj İşlemleri", 3, 4 2 82 23
button "Tamam", 4, 11 27 37 12, flat ok
button "Kapat", 5, 49 27 37 12, flat cancel
}
on *:dialog:Wallops2:sclick:4: { /wallops $did(2) }
dialog Locops2 {
title "IrcOper - Locops"
size -1 -1 90 42
option dbu
text "Mesajınız", 1, 7 11 25 8
edit "", 2, 33 10 50 10, autohs
box "Mesaj İşlemleri", 3, 4 2 82 23
button "Tamam", 4, 11 27 37 12, flat ok
button "Kapat", 5, 49 27 37 12, flat cancel
}
on *:dialog:Locops2:sclick:4: { /locops $did(2) }
dialog Globops2 {
title "IrcOper - Globops"
size -1 -1 90 42
option dbu
text "Mesajınız", 1, 7 11 25 8
edit "", 2, 33 10 50 10, autohs
box "Mesaj İşlemleri", 3, 4 2 82 23
button "Tamam", 4, 11 27 37 12, flat ok
button "Kapat", 5, 49 27 37 12, flat cancel
}
on *:dialog:Globops2:sclick:4: { /globops $did(2) }
dialog Chatops2 {
title "IrcOper - Chatops"
size -1 -1 90 42
option dbu
text "Mesajınız", 1, 7 11 25 8
edit "", 2, 33 10 50 10, autohs
box "Mesaj İşlemleri", 3, 4 2 82 23
button "Tamam", 4, 11 27 37 12, flat ok
button "Kapat", 5, 49 27 37 12, flat cancel
}
on *:dialog:Chatops2:sclick:4: { /globops $did(2) }
dialog Global_Mesaj {
title "IrcOper - Global Mesaj"
size -1 -1 90 40
option dbu
box "OperServ İşlemleri", 1, 4 2 82 22
button "Tamam", 3, 11 26 37 12, flat ok
button "Kapat", 4, 49 26 37 12, flat cancel
text "Mesajınız", 2, 7 11 25 8
edit "", 5, 32 10 50 10, autohs
}
on *:dialog:Global_Mesaj:sclick:3: { /msg operserv global $did(5) }
dialog Kick2 {
title "IrcOper - Kick User"
size -1 -1 88 50
option dbu
text "Nick", 1, 8 11 20 8
text "Sebep", 2, 8 21 20 8
edit "", 3, 29 10 50 10, autohs
edit "", 4, 29 20 50 10, autohs
box "OperServ İşlemleri", 5, 4 2 80 32
button "Tamam", 6, 9 36 37 12, flat ok
button "Kapat", 7, 47 36 37 12, flat cancel
}
dialog Akill2 {
title "IrcOper - Akill"
size -1 -1 95 50
option dbu
text "ident@host", 1, 7 11 28 8
text "Sebep", 2, 7 21 28 8
edit "", 3, 37 10 50 10, autohs
edit "", 4, 37 20 50 10, autohs
box "OperServ İşlemleri", 5, 4 2 87 32
button "Tamam", 6, 16 36 37 12, flat ok
button "Kapat", 7, 54 36 37 12, flat cancel
}
on *:dialog:Akill2:sclick:6: { /akill $did(3) $did(4) }
Otomatik Selam
Kod:
dialog otos {
title "oto selam"
size -1 -1 60 53
option dbu
button "Açık", 1, 12 5 37 12
button "Kapalı", 2, 12 20 37 12
button "Tamam", 3, 12 35 37 12, cancel
}
alias otos dialog -m otos otos
on *:dialog:otos:sclick:*: {
if ($did == 1) { .enable #otos }
if ($did == 2) { .disable #otos }
}
#otos on
on *:text:*:?: {
msg $nick selam $nick
}
#otos end
Tekrar Koruması
Kod:
on @1:text:*:#:{
if ($nick !isop $chan) {
if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
if (%>repsa_ [ $+ [ $nick ] ] == 2) {
mode $chan +b $nick
/kick $chan $nick (2 Kural ihlali yaptığınız için # kanalından 30 dakika süre ile uzaklaştırıldınız . Bundan sonra kanal genelinde 3 Kullanıcıları Rahatsız 2 eden mesajlar kullanmıyacağınıza inanıyor ve yönetim olarak hoş sohbetler diliyoruz. 3(2 $time - $date 3) 1 | ban -u1800 $chan $+($$1,!*@*) |
unset %*_ [ $+ [ $nick ] ] | goto end
}
}
}
Özele kabul kodu
Kod:
on *:open:?:*:{
msg $nick 2Selam4 $nick
msg $nick 2Bugün4 $date 2ve Saat 4 $time(HH:nn.ss)
msg $nick 2Konuşmadığım Süre 4 $duration($idle)
msg $nick 2Toplam Açılan Özel Pencerem 4Sayısı %q!
inc %q!
msg $nick 2Şu an Özelimdeki4 $+($query(0),.) 2Kişisin Müsait Olduğumda Cevap Verilecektir
msg $nick 2Lutfen 4Op2, 4Voice2, 4Oper 2istemeyiniz istemeniz Durumunda Direk Olarak ignore Edileceksiniz4.2*IRC* Servisler iLe iLgiLi Sorunlariniz için 4/join #help 2Yaziniz. 4Zline, Kline, Akill, Nick 2ve 4Kanal 2$ifre 2Sorunlariniz icin 4/join #OperHelp 2Yaziniz..
inc %q!
oto-selam-verme
Kod:
on @*:text:*:#:{
if ($nick isreg $chan) {
if (selam iswm $1-) || (s.a. iswm $1-) || (sa iswm $1-) || (slm iswm $1-) {
msg $chan ALeykum SeLaM 5 $nick }
}
Oto Identify
Kod:
alias _sifre { dialog -m _sifre _sifre }
dialog _sifre {
title "Maxi Oto Identify"
size -1 -1 110 43
option dbu
icon Imagesmt.ico, 0
edit "Şifreniz : ", 1, 6 9 28 12, read
box "", 2, 4 3 102 34
box "", 3, 0 -1 110 42
edit "", 4, 35 9 68 12, pass return autohs autovs
button "Tamam", 5, 82 22 21 12, ok
text "Lütfen şifrenizi giriniz ve tamam tuşuna basınız..", 6, 7 21 73 14
}
on *:dialog:_sifre:sclick:*: {
if ($did == 5) { ns identify $did(4) }
}
on *:notice:*/msg*Nickserv*IDENTIFY*:?: {
_sifre
timer 1 3 join %kanal
}
ircop- Admin menü
Özelden (!) Komutlar
Kod:
on *:OPEN:?:*: {
/msg $nick Görüşmek İstediğiniz Kategoriyi Seçiniz (!kategori adı ) !access !şikayet !help !ircd !sohbet !ssl !raw !ircarabirim !ping !lag !operhelp !khaled !bnc !eggdrop !shell | halt }
on *:text:*:?:{
if !access iswm $1 { msg $nick istanbul KanaLı Dı$ında ßir KanaLın Acc-Change ini KuLLanmıyorum. istanbul KanaLı içinde Ki$iseL gözLem ve ki$inin kanaL performansına göre değerLendiriyorum.}
if !şikayet iswm $1 { msg $nick KanaL GeneL ŞikayetLeriniz İçin /ms <Notunuz/Mesajınız> yazıp gönderiniz.}
if !help iswm $1 { msg $nick ServisLer için ExampLe : /cs help /ns help /ms help yapabilirsiniz. MeşkuL deyiLsem sizinLe iLgiLeneßilirim.}
if !ircd iswm $1 { msg $nick ircd komutLarı için /helpop yapaßiLirsiniz. DetayLı ßiLgi için meşkuL deyilsem ßirebir yardımcı olabilirim. }
if !sohbet iswm $1 { msg $nick MeşkuL değilsem herzaman sohbete açığım. }
if !ssl iswm $1 { msg $nick SSL(secure socket layer) network üzerindeki bilgi transferi sırasında güvenlik ve gizliliğin sağlanması amacıyla Netscape tarafından geliştirilmiş bir güvenlik protokolüdür.Bu şekilde bağlanmak için kendi donanımınız kurup server özel portu(6697) ile bağlanabilirsiniz. Yüklü oLdugunu //echo -s $ ssl komutunu kullandıktan sonra $true cevabını alırsanız anlayabilirsiniz.}
if !raw iswm $1 { msg $nick RAW:çiğmemiş,pişmemiş sözlük anlamı. IRC'de ise Rawlar "Serverin Diri mesajları" anlamına gelmektedir.Yani bu mesajlar, IRC server programının içine düzenli bir şekilde yerleştirilip, program tarafından belirli zamanlarda kullanıcılara iletiliyor.Raw'larla ilgili ilk belgelerin sahibi Jarkko Oikarinen ve S. M. Allen Rawları 6 ana bölüme ayırıyorlar.}
if !ircarabirim iswm $1 { msg $nick Sık KuLLanıLan ÖrnekLerdir: Mirc, Xchat, Bersirc, Bitchx, Klient, GLChat, PircH, Chat Space,Miranda IM,Trillian }
if !ping iswm $1 { msg $nick Pocket Internet Network Group /ping nick & /raw ping nick }
if !lag iswm $1 { msg $nick Lag, gönderdiğiniz mesajın başkaları tarafından okunmasında yaşanan gecikmedir. Normalde bu sadece bir kaç saniye sürer, ancak ağ çok meşgul olduğunda bu süre daha da uzayabilir ve bu duruma da LAG denir. PING komutuyla, iki kişi arasındaki lag süresini ölçebilirsiniz. Sunucuları değiştirmek, yoğun olan lagı azaltmanıza yardımcı olabilir.}
if !operhelp iswm $1 { msg $nick Yardım almak icin #ircop kanalına qiriniz. (/j ircop)}
if !khaled iswm $1 { msg $nick Khaled Mardam Bey.1968'de Jordan'ın (Ürdün) Amman şehrinde doğdu. İsminin ilginç olmasının sebebi ise Suriye'li bir babası, Filistinli bir annesi ve Danimarka'lı bir büyükannesinin olması. Ama şuan kendisi bir İngiliz vatandaşı. İngiltere de oturuyor ve 1995'te kurduğu mIRC Co.Ltd şirketinde çalışıyor.}
if !bnc iswm $1 { msg $nick BNC (BouNCer), kullanıcıların shell üzerinden IRC sunucularına bağlanmasını sağlar. BNC, bir proxy server kurmanızı sağlamaz, kendisi proxy sunucur. BNC bu hizmeti verirken sizin shell hesabınıza bağlanmanız gerekmez. Mirc, IRC programlarını kullanarak BNC üzerinden istediğiniz sunucuya bağlanırsınız.Shell alıdığınız şirketin size verdiği imkanlarla yüzlerlerce vhost ve IP kullanabilir, yaratabilirsiniz.}
if !eggdrop iswm $1 { msg $nick Aslında eggdrop da bir irc bottur ancak shell ile çalıştırılabilen, geliştirilebilen bir programdır. IRC Bot gibi kanalınızda 24 saat durmanın yanında (yüklediğiniz scriptlere göre) kendi listesinde bulunan kullanıcılara op veya voice verme, kanal koruma (küfür, flood vs), kanalda olan yazışmaları kayıt etme gibi değiştirilebilir ve programlanabilir özellikleri vardır.}
if !shell iswm $1 { msg $nick Basitçe, bir shell hesabı aldığınızda sürekli ve yüksek hızda(T1,T3,Kablo vs.) internete bağlı bir bilgisayarınız olacak diyebiliriz. İrc sunucusu kurmak, eggdrop kurmak yada bir bouncer kurmak için sheller ideal olabilir. Shell hesabınızın olduğu bilgisayarlar donanım ve yazılım olarak üst seviye bilgisayarlardır. Genellikle Unix, Linux ve FreeBSD gibi işletim sistemleri kullanılır.}
Önceki Nick
Kod:
on 1:start: { .hmake nicksch 100 }
on 1:part:#: { if ( $comchan($nick,0) < 2 ) { nicksgrab $nick $site } }
on 1:quit: { nicksgrab $nick $site }
on 1:kick:#: {
if ( $comchan($knick,0) < 2 ) {
if ( $ial($knick).host != $null ) { nicksgrab $knick $ifmatch }
}
}
alias nicksgrab {
.hadd nicksch $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2) $1
}
alias NicksTrouve {
var %a = $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2)
return $iif($hget(nicksch,%a) != $1,$ifmatch)
}
on 1:JOIN:#: {
var %NickPrecedent = $iif($NicksTrouve($nick,$site), 7 [Onceki Nicki] $ifmatch )
if ( %NickPrecedent ) { echo -tm $chan $ifmatch }
@Snotice Penceresinden İpe Tıklayarak Zline Atma
Kod:
on ^&*:snotice:*:{
if *client*exiting* iswm $1- {
if !$window(@Giris/Cikis) { window -en @Giris/Cikis }
echo 4 -t @Giris/Cikis Çıkış : $1- | halt
}
if *Connecting*isin* $1- {
if !$window(@Giris/Cikis) { window -en @Giris/Cikis }
echo 3 -t @Giris/Cikis Giriş : $1- | halt
}
if *clone*alert* iswm $1- {
if !$window(@Clone/Alarmı) { window -n @Clone/Alarmı }
echo 4 -t @Clone/Alarmı Clone Giriş: $1-10 $+(@,$11) | halt
}
break
}
on ^*:hotlink:*.*.*:*:{
if *@*/* iswm $window($active) {
return $1
}
Break
}
on *:hotlink:*.*.*:*:{
if *@*/* iswm $window($active) {
titlebar Kline : $+([,$gettok($1-,2,$asc(@)),])
.Kline $+(*@,$gettok($1-,2,$asc(@))) http://caddesohbet.com.com15m
}
}
Join Part Saldırılarını Durdurma
Kod:
on *^:join:#:{
;multi join[tüm adresler]
inc $+(-u,$ccrc(mjhafıza)) %mjj. [ $+ [ $chan ] ] $ccrc(mjaveraj)
if (%mj- [ $+ [ $chan ] ] >= $ccrc(mjlimit)) {
mode $chan +l $calc($nick(#,0) - %mjj. [ $+ [ $chan ] ])
.unset %mjj. [ $+ [ $nick ] ]
}
;Clone join tek adres..
var %ad = $wildsite
inc $+(-u,$ccrc(cjhafıza)) %mj. [ $+ [ %ad ] ] $ccrc(cjaveraj)
if (%mj. [ $+ [ %ad ] ] >= $ccrc(cjlimit)) {
echo -t $chan %ad $color(info) adresinden massjoin: $+(%mj. [ $+ [ %ad ] ] )
mode $chan +b %ad
unset %mj. [ $+ [ %ad ] ]
}
}
alias ccrc {
goto $1
;### Multi join conf
:mjhafıza {
RETURN 2
}
:mjaveraj {
;bu rakamı degiştirmeyin..
RETURN 1
}
:mjlimit {
RETURN 6
}
;### Clone join conf
:cjhafıza {
RETURN 1
}
:cjaveraj {
;bu rakamı değiştirmeyin..
RETURN 1
}
:cjlimit {
RETURN 2
}
}
kicklenen kişiye mesaj
Kod:
alias kickci dialog -m kickci kickci
dialog kickci {
title "Cadde v.Sohbet"
size -1 -1 107 96
option dbu
box "Atılan (kickLenen) Kişiye Mesaj Ayarları", 1, 1 0 105 29
radio "Açık", 2, 11 13 31 10, group flat push
radio "Kapalı", 3, 57 13 31 10,flat push
box "", 4, 1 25 105 56
text "Ayarlar :", 5, 38 32 27 8
radio "Ciddi", 6, 26 45 50 10, group flat push
radio "Espirili", 7, 26 62 50 10, flat push
button "Tamam", 8, 29 83 37 12, flat ok
button "İptal", 9, 68 83 37 12, flat cancel
}
on *:dialog:kickci:sclick:*: {
if ($did == 6) { set %kickstyle Ciddi }
if ($did == 7) { set %kickstyle Espirili }
if ($did == 2) { set %laugh.kick on }
if ($did == 3) { set %laugh.kick off }
}
on *:dialog:kickci:init:0: {
if (%kickstyle == Ciddi) { did -c kickci 6 8 }
if (%kickstyle == Espirili) { did -c kickci 7 8 }
if (%laugh.kick == on) { did -c kickci 2 8 }
if (%laugh.kick == off) { did -c kickci 3 8 }
}
on *:kick:#: {
inc %today 1
inc %total 1
if (%laugh.kick == off) { halt }
if (%laugh.kick == on) && (%kickstyle == Ciddi) { .notice $knick 4Hey Sen! $chan KanaLından atıLan 2(12 $+ %today $+ 2). 4kişisin ! }
if (%laugh.kick == on) && (%kickstyle == Espirili) { .notice $knick 4Kahretsin! Kanaldan atılınca bu kadar sevineceğini bilmiyordum! Hahaha ) }
}
Argo Kelimesi Uyarı/ßan
Kod:
#uyarı on
on *:text:*:#:{
if ($nick isreg $chan) {
if $istok($1-,it,32) || $istok($1-,lan,32) || $istok($1-,maymun,32) || $istok($1-,Ayı,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,?küz,32) || $istok($1-,angut,32) || $istok($1-,oğlum,32) || $istok($1-,ger?zekal?,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,?nek,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,lahn,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,uzaa,32) || $istok($1-,kro,32) {
if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan [ U y a r ı ] : $nick : Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. }
else { if (%say [ $+ [ $nick ] ] >= 1) { cs akick $chan add $nick $+ !*@* 11,1Daha Onceden > $+ %kelime [ $+ [ $nick ] ] $+ < Kelimesinden Dolayi Uyarı Aldınız 2. Olarak > $+ $strip($1-) $+ < Olan Yasak ve Kötü Unsur Içeren Sözcüğü Kullandıgınız Için Kanaldan Uzaklaştırıldınız.. irc.caddesohbet.com ßy.Maxi | cs akick $chan enforce | cs akick $chan del $nick $+ !*@* | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }
}
}
}
}
#uyarı end
Oto-msg koruma
Kod:
on *:join:#:if ($nick == $me) .set -u1 %otomsg ok!
on *:text:*:?:if (%otomsg) .at $nick
alias at {
var %u $comchan($1,0)
while (0 < %u) {
ban $comchan($1,%u) $1 2
kick $comchan($1,%u) $1 Oto msg Yapmak yasaktır !
dec %u
}
}
on *:load: {
/echo 0,4Otomsg Protection YUKLENDI!
}
kanala girene oto msg ve 60 saniyede bir mesaj
Kod:
on *:join:#:{ if $nick == $me { .timer 0 60 msg # $!read(mesajlar.txt) } | else { !notice $nick Selam $nick $+ ! $chan kanalına hoşgeldin. } }
clone on/off
Kod:
Kod:
#clonededector on
on *:join:#:{
if ($nick != $me) {
if ($ial($address($nick,2),0) > 1) {
set %clone.count [ $+ [ $nick ] ] $ial($address($nick,2),0)
:cloop
if (%clone.count [ $+ [ $nick ] ] < 1) { goto clend }
set %clecho %clecho 0,2 $+ $ial($address($nick,2), %clone.count [ $+ [ $nick ] ] ).nick
dec %clone.count [ $+ [ $nick ] ]
goto cloop
:clend
echo $chan Cloneler 4,1( $+ %clecho $address($nick,2) $+ )
}
if ($ial($address($nick,2),0) > 4) { gzline $address($nick,2) Clone | msg $chan Cloneler 4,1( $+ %clecho $address($nick,2) $+ ) }
unset %clecho*
unset %clone.count*
}
}
#clonededector end
menu status,menubar,channel {
CLone Dedector
.On:.enable #clonededector | echo -a 2 Clone Dedector On
.Off:.disable #clonededector | echo -a 2 Clone Dedector Off
}
sock bot
Kod:
alias bot { sockopen bot irc.caddesohbet.com 6667 }
on *:sockopen:bot:{
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
swbot NICK axwd
swbot USER mIRC * * :Kontrol.
sockmark $sockname axwd
.timer 1 10 /sockwrite -nt $SocknAme JOIN #Spam
.timer 0 60 /sockwrite -nt $SocknAme JOIN #istanbul
.timer 0 59 /sockwrite -nt $SocknAme part #istanbul
.timer 0 80 /sockwrite -nt $SocknAme JOIN #cadde
.timer 0 79 /sockwrite -nt $SocknAme PART #cadde
.timer 0 60 /sockwrite -nt $SocknAme JOIN #izmir
.timer 0 59 /sockwrite -nt $SocknAme part #izmir
}
on *:sockread:bot:{
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
var %; | sockread %; | tokenize 32 %;
swalias $1-
}
alias swbot { if $sock(bot) { sockwrite -n bot $1- } }
alias swalias {
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :VERSION iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION IRC Security $+ $chr(1) }
if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER IRC Security $+ $chr(1) }
if $1 == PING { swbot PONG $2- }
if $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 }
if $2 == PRIVMSG {
var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
if $istok(admin1 admin2,%n,32) {
if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< }
if .part == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< }
if .join #* iswm %m { swbot JOIN $gettok(%m,2-,32) }
if *irc.* iswm %m { swbot PRIVMSG #spam reklam, $nick }
}
if * iswm %m { swbot PRIVMSG #spam $remove($4-,:) }
}
}
}
opları topla
Kod:
on *:op:#kanal,#kanal1,#kanal2:{ sajoin $opnick #op }
helper oto dialog
Kod:
dialog helpers {
title “Helper Oto System”
size -1 -1 134 62
option dbu
button “Yardım Et..”, 1, 5 27 124 12
button “Boşver Et ”, 2, 5 41 124 12
box “”, 3, 1 20 132 40
text “”, 4, 3 7 128 8, center
}
on *:Dialog:helpers:sclick:1: {
.join #help
.mode #help +v %nik
msg #help Merhaba %nik $+ ; Size Nasıl Yardımcı Olabilirim
.dialog -x helpers helpers
.echo -a *** 7 $+ %nik $+ 1?e Yardım etmeyi Kabul ettiniz.. Kişi Voice Almış Ve Uyarılmıştır..
}
on *:Dialog:helpers:sclick:2: {
.dialog -x helpers helpers
.echo -a *** 7 $+ %nik $+ 1?e Yardım etmeyi red ettiniz..
}
on *:Dialog:helpers:init:*: {
.did -a $dname 4 %nik Yardım Bekliyor Edilsinmi ?
}
on *:join:#help:{
if $active !== #help && $nick !== $me {
.set %nik $nick
.timer 1 2 .kontrolet $nick $chan
}
}
alias kontrolet {
if ($1 !isop $2) {
.dialog -m helpers helpers
}
}
on *:load:{
.echo -a 4Maxi’nin Armağanıdır ..
mIRC Büyük Harfle baslayıp Yazma.
Kod:
on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^/) && ($active != status window) {
msg $active $cumlekur($1-)
halt
}
}
alias cumlekur {
if $isid {
var %x , %i = $regsub(cumlekur,$1-,/((.|;|:)+([a-z]|[A-Z]|[[:space:]]|ş|ü|ğ|ö|ç|ı|Ş|Ü|Ğ|Ö|Ç|İ).)/g,1,%x), %i = 1, %retval = $1-
while %i <= $regml(cumlekur,0) {
if $regex(ifcumlekur,$regml(cumlekur,%i),((.|;|:).|..)) {
%setvar = $remove($regml(cumlekur,%i),.,:,;,$chr(32))
%setvar = $+($left($regml(ifcumlekur,1),1),$chr(32),$upper($replacecs($left(%setvar,1),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)),$mid(%setvar,2,2))
var %x , %l = $regsub(%retval,$+(/,$regml(cumlekur,%i),/g),%setvar,%x), %retval = %x
}
inc %i 1
}
return $replace($upper($left(%x,1)),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)) $+ $right(%x,-1)
}
}
irc trojan silici kod kodu
Kod:
alias _tara {
if $1 {
var %_dizin $shortfn($1-) , %_dsayisi $findfile(%_dizin,*.*,0) , %_x 1
while %_x <= %_dsayisi {
%_1 = $findfile(%_dizin,*.*,%_x)
if $readini(%_1,rfiles,$+(n,0)) {
%_2 = 0
while $readini(%_1,rfiles,$+(n,%_2)) {
%_f = $shortfn($replace($+(%_dizin,$ifmatch),,,//,/))
if $dialog(tr_remover) {
if $did($ifmatch,4).lines == 0 { did -e tr_remover 6 }
did -a tr_remover 4 %_f
did -a tr_remover 9 $calc($did(tr_remover,9) + 1)
}
inc %_2
}
}
inc %_x
}
unset %_1 , %_2 , %_f
}
}
alias _tr {
if !$dialog(tr_remover) { dialog -m tr_remover tr_remover }
}
dialog tr_remover {
title "IRC Trojan Remover by Maxi"
size -1 -1 195 191
option dbu
edit "", 1, 62 19 84 10, return autohs autovs
button "Gozat...", 2, 148 19 30 10
text "Windows dizininiz:", 3, 15 20 45 8
list 4, 62 46 116 107, size hsbar vsbar
button "Taramaya basla!", 5, 123 161 55 10
button "Bulunanlari sil...", 6, 62 161 55 10
text "Bulunan dosyalar:", 7, 15 46 45 8
text "Toplam:", 8, 15 61 20 8
text "0", 9, 37 61 11 8
text "Maxi ©", 10, 15 90 36 8
link "admin@caddesohbet.com", 11, 15 100 45 8
box "IRC Trojan Remover", 12, 5 5 184 178
button "Tamam", 13, 14 161 30 10, ok
}
on *:dialog:tr_remover:*:*:{
if $devent == init {
did -b $dname 5,6
}
if $devent == sclick {
if $did == 2 {
if $sdir($gettok($mircexe,1,92),Windows dizininizi secin) {
did -ra $dname 1 $ifmatch
did -e $dname 5
}
}
if $did == 5 && $did($dname,1) {
if $input(Taramanin verimli olabilmesi icin calisan diger tum programlarinizi kapattiktan sonra OK butonuna tiklayin ve bu mIRC ile tarama bitene kadar ilgilenmeyin.,ic,Bilgi) {
_tara $did($dname,1)
}
}
if $did == 6 {
if $input(Bulunan dosyalari silmek istiyor musunuz?,ic,Silme islemi) {
var %_w 1
while %_w <= $did($dname,4).lines {
remove $did($dname,4,%_w).text
inc %_w
}
}
}
}
}
menu status,menubar {
-
IRC Trojan Remover:_tr
-
}
tüm userları bir kanalda toplamak kodu
Kod:
#juser on
raw 352*:*:{
if (*serv* iswm $6) || (mtx* iswm $6) || ($+($me,*) iswm $6) || (*_logger* iswm $6) || (Q = $6) || (*A090EFAB* iswm $address($6,2)) || (*servi* iswm $address($6,2)) { halt }
;bu kısma Excemp (kapsam dısı) kullanıcıların host-mask-nicklerini girebilirsiniz
if ($6 ison %CH: ) { halt }
else {
.echo $6 %CH:
echo @Juser 4Cekilen nick:12 $6
}
halt
}
raw 352*:*:{
echo @juser 4,8 join işlemi tamam
unset %CH:
echo @juser bu pencere 15 Saniye içinde kapanacak
.timer@Juse 1 15 if ($window(@Juser)) { .window -c @Juser }
.disable #juser
halt
}
#juser off
alias Juser {
if (!$window(@Juser)) { .window -bLe @Juser }
if ($window(@Juser)) {
echo @Juser 14,14¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨ ¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
}
if ($1 = $null) {
echo @Juser Eksik parametre
echo @Juser Kullanım :
echo @Juser Juser #kanal
halt
}
if (#* !iswm $1) {
echo @Juser yanlış parametre Kanal Belitmediniz
echo @Juser Kullanım :
echo @Juser /Juser #kanal
halt
}
if (#* iswm $1) {
;mode larınızda Join Flood varsa kullanın .mode $1 -l
;.mode $1 -l
set %cH: $1
.enable #juser
.who *
}
}
spamfilter list kodu
Kod:
raw 229:*:{
write aspamf.txt $+($3,$chr(9)) $+($4,$chr(9)) $+($7,$chr(9)) $+($8,$chr(9)) $+($9,$chr(9)) $10-
halt
}
raw 219:*:{
halt
}
menu status,channel,query {
-
.Spamfilter:/_spamf
}
menu @Spamfilter {
.Sil: {
.spamfilter del $gettok($remove($1-,$chr(9)),1,32) $gettok($remove($1-,$chr(9)),2,32) $gettok($remove($1-,$chr(9)),3,32) $gettok($remove($1-,$chr(9)),4,32) $gettok($remove($1-,$chr(9)),6-,32)
}
-
.Yeni Giriş Ekle: {
.spamfilter add $$?="Tipi" $$?="Ceza Şekli" $$?="Süresi" $$?="Sebep" $$?="Eklenecek Kelime(ler)"
}
-
.Satırı Göster: {
if (!$window(@Satırı.Göster)) {
window -g @Satırı.Göster -1 -1 800 100 Fixedsys 11
}
.echo -tm @Satırı.Göster $remove($1-,$chr(9))
halt
}
-
.Yardım: {
if (!$window(@Spam.Yardım)) {
window -gl @Spam.Yardım -1 -1 600 400 Fixedsys 11
}
iline @Spam.Yardım 1 Spamfilter eklerken kullanılan harflerin manaları:
iline @Spam.Yardım 2 c : Kanal mesajları
iline @Spam.Yardım 3 p : Özel mesajları
iline @Spam.Yardım 4 n : Özel noticeleri
iline @Spam.Yardım 5 N : Kanal noticleri
iline @Spam.Yardım 6 P : Kanaldan çıkış mesajları
iline @Spam.Yardım 7 q : Quit mesajları
iline @Spam.Yardım 8 a : Away mesajları
iline @Spam.Yardım 9 t : Topic
iline @Spam.Yardım 10 u : User (nick!user@host:realname ban) Şeklinde tanımlanır
iline @Spam.Yardım 11 d : dcc
iline @Spam.Yardım 12 -
iline @Spam.Yardım 13 Uygulanacak hareket (ceza) şekilleri:
iline @Spam.Yardım 14 kill, kline, gline, zline, gzline, shun, tempshun, block, dccblock
iline @Spam.Yardım 15 -
iline @Spam.Yardım 16 4Not : Sebep belirtilirken kelimeler arasında boşluk olmamalıdır.
iline @Spam.Yardım 17 Boşluk yerine _ kullanın. Örnek: Yasak_Kelime_Kullanımı
}
}
alias _spamf {
stats f
.timerdenemes 1 2 /_aspamfl
}
alias _aspamfl {
if ($window(@Spamfilter)) { window -c @Spamfilter } {
window -glk0 @Spamfilter -1 -1 800 600 Fixedsys 11
iline @Spamfilter 1 Eklenmiş bir spami silerken birden fazla satırı seçmeyiniz. Tek tek siliniz.
iline @Spamfilter 2 4Tipi Ceza Şekli Süresi-Ekleyen-Sebep - Eklenen Kelime(ler)
iline @Spamfilter 3 12..................2..................1...........2....................12.......................
titlebar @Spamfilter Coded By Maxi
var %s = 4
while %s <= $lines(aspamf.txt) {
var %k = $read(aspamf.txt,%s)
iline @Spamfilter %s $gettok(%k,1,32) $gettok(%k,2,32) $gettok(%k,3,32) $gettok(%k,4,32) $gettok(%k,5,32) $gettok(%k,6-,32)
inc %s
unset %k
}
remove aspamf.txt
}
halt
}
MemoServ uyarıcısı
Kod:
dialog memoserv {
title "Memoserv Addon"
size 240 228 280 142
button "Memo Gönder", 1, 13 18 105 23
box "Memo Oku:", 2, 134 3 140 99
button "Memo 1", 31, 140 21 53 20
button "Memo 4", 34, 211 21 53 20
button "Memo 2", 32, 140 46 53 20
button "Diğer", 6, 211 71 53 20
button "Memo 3", 33, 140 71 53 20
button "Son", 8, 211 46 53 20
button "Mesaj Sil", 9, 13 46 105 23
button "Tümünü Sil", 11, 13 75 105 23
button "Mesajları Listele", 12, 12 104 105 23
box "", 13, 5 2 122 133
button "Tamam", 14, 137 111 65 22,ok
button "İptal", 15, 208 111 65 22, cancel
}
on 1:dialog:memoserv:sclick:*:{
if $did == 1 { dialog -m memo1 memo1 }
if $did == 8 { %msg memoserv read last }
if $did isnum 31-34 { %msg memoserv read $calc($did - 30) }
if $did == 12 { %msg memoserv list }
if $did == 11 { %msg memoserv del all }
if $did == 9 { If $dialog(memo2) == $null {
%memo.t = Memo Sil
%memo.b = Sil
%memo.c = del
dialog -ma memo2 memo2 } }
if $did == 6 { If $dialog(memo2) == $null {
%memo.t = Memo Oku
%memo.b = Oku
%memo.c = read
dialog -ma memo2 memo2 } }
}
dialog memo1 {
title "Memo Gönder"
size 307 197 233 170
button "Gönder", 1, 36 146 75 20, ok
text "Nick:", 2, 15 7 26 13
edit "", 3, 47 5 175 19, autohs
text "Mesaj:", 4, 6 31 36 16, right
edit "", 5, 48 29 174 99, multi, return, vsbar
box "", 8, 6 129 221 11
button "Vazgeç", 9, 119 146 75 20,cancel
}
on 1:dialog:memo1:sclick:1:{
if $did(3) == $null { %erromsg = Nick Yazmadınız..!! | dialog -ma erro erro | halt }
if $did(5) == $null { %erromsg = Memo girilmedi | dialog -ma erro erro | halt }
var %tmp = 1
var %tmp2 = $did(5).lines
var %memo = ""
while (%tmp <= %tmp2) {
%memo = %memo $chr(32) $+ $did(5,%tmp)
inc %tmp
}
%msg memoserv send $did(3) %memo
unset %memo.*
}
dialog memo2 {
title %memo.t
size 307 197 175 74
button %memo.b, 1, 13 48 68 20,ok
text "Mesaj No:", 2, 22 9 87 13
edit "", 3, 113 5 35 21, autohs
box "", 8, 4 29 165 11
button "Vazgeç", 9, 92 48 67 20,cancel
}
on 1:dialog:memo2:sclick:1:{
if $did(3) == $null { %erromsg = Memo Boş Bırakmayın | dialog -ma erro erro | halt }
%msg memoserv %memo.c $did(3)
unset %memo.*
fullname banlama
Kod:
on *:JOIN:#:who $nick | set %chan $chan
raw 352:*:{
var %i 1
while (%i <= $lines(fullname.txt)) {
if ($read(fullname.txt,%i) iswm $9-) {
mode %chan +b $6
}
inc %i
}
}
@Notice açmak
Kod:
on *:text:*:?:{
if $nick == Nick {
if !$window(@notice) { .window @notice }
.echo @notice $nick > $1-
}
}
Bu kod ile "Nické adlı kişinin yazdıkları notice şeklinde açılır
5den fazla cloneye ban
Kod:
#clonededector on
on *:join:#:{
if ($nick != $me) {
if ($ial($address($nick,2),0) > 1) {
set %clone.count [ $+ [ $nick ] ] $ial($address($nick,2),0)
:cloop
if (%clone.count [ $+ [ $nick ] ] < 1) { goto clend }
set %clecho %clecho 0,2 $+ $ial($address($nick,2), %clone.count [ $+ [ $nick ] ] ).nick
dec %clone.count [ $+ [ $nick ] ]
goto cloop
:clend
echo $chan Cloneler 4,1( $+ %clecho $address($nick,2) $+ )
}
if ($ial($address($nick,2),0) > 4) { gzline $address($nick,2) Clone | msg $chan Cloneler 4,1( $+ %clecho $address($nick,2) $+ ) }
unset %clecho*
unset %clone.count*
}
}
#clonededector end
menu status,menubar,channel {
CLone Dedector
.On:.enable #clonededector | echo -a 2 Clone Dedector On
.Off:.disable #clonededector | echo -a 2 Clone Dedector Off
}
kanal modelerini görmek
Kod:
raw 324:*:{ echo -a $2 Kanalının Modeleri: $3- }
Masa üstü resmini mirc arka planı yapma
Kod:
menu query {
Resim ekle
.oratala :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,3 | closemsg $1 | query $1
.döşe :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,4 | closemsg $1 | query $1
.doldur :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,1 | closemsg $1 | query $1
}
Kanala girenlerin nickini takıp et
Kod:
on *:join:#:{
.set %hea * $+ $gettok($address($nick,0),2,64)) $+ *
if $read(klon.txt,w,%hea) {
.set %nik $gettok($read(klon.txt,w,%hea),1,11)
if %nik !== $nick {
.set %nicksaat $duration($gettok($read(klon.txt,w,%hea),3,11))
.set %benimsaat $duration($time)
echo -a $nick Nicki %nik Rumuzu ile $replace($duration($calc(%benimsaat - %nicksaat)),mins,Dk,secs,Sn,min,Dk,sec,Sn)) Önce Girmişti..
.halt
}
else {
write klon.txt $nick $+ $chr(11) $+ $gettok($address($nick,0),2,64) $+ $chr(11) $+ $time
}
}
}
alias temizle {
.unset %hea
.unset %nik
.unset %nicksaat
.unset %benimsaat
.remove klon.txt
}
Uyarı ve ban
Kod:
#uyarılı on
on *:text:*:#:{
if ($nick isreg $chan) {
if $istok($1-,it,32) || $istok($1-,lan,32) || $istok($1-,maymun,32) || $istok($1-,Ayı,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,?küz,32) || $istok($1-,angut,32) || $istok($1-,oğlum,32) || $istok($1-,ger?zekal?,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,?nek,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,lahn,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,uzaa,32) || $istok($1-,kro,32) {
if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan [ U y a r ı ] : $nick : Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. }
else { if (%say [ $+ [ $nick ] ] >= 1) { mode $chan +b $nick | kick $chan $nick 11,1Daha Onceden > $+ %kelime [ $+ [ $nick ] ] $+ < Kelimesinden Dolayi Uyarı Aldınız 2. Olarak > $+ $strip($1-) $+ < Olan Yasak ve Kötü Unsur Içeren Sözcüğü Kullandıgınız Için Kanaldan Uzaklaştırıldınız.. | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }
}
}
}
}
#uyarılı end
otomatik away olma
Kod:
on *:input:*:{
if $left($1,1) !== / {
if $away {
awaydendon
}
else {
.timeridle off | .timeridle 1 300 .awayol $me
}
}
}
alias awayol {
.set %nikim $1
.nick $+($1,`,Mesgul)
.away Meşgulüm
.ame Away oldum vs
}
alias awaydendon {
nick %nikim | .ame awaydim döndüm | .away
}
Renkli Yazı Koruması (Uyarılı)
Kod:
on @*:text:**:#: {
if ($nick == $me || ($nick isop $chan) { halt }
hinc -mu15 renk $+($chan,.,$nick) 1
if $hget(renk,$+($chan,.,$nick)) == 1 {
.msg # $nick : kanal genelinde renkli yazı yazılması yasaktır.
}
if $hget(renk,$+($chan,.,$nick)) == 2 {
.msg # $nick : renkli yazmamanız konusunda ikinci ve son uyarınız, tekrarlamanız durumunda kanaldan uzaklaştırılacaksınız.
}
if $hget(renk,$+($chan,.,$nick)) == 3 {
.ban # $nick 5
.kick # $nick Kanal genelinde renkli yazmak yasaktır.!
.hdel -s renk $+($chan,.,$nick))
}
}
Kanal içerisinde renkli yazı yazılmasını engellemek isteyenler için 2 uyarı 3. tekrarda kanaldan uzaklaştırma yapmanızı sağlayan koruma kodu.
Harfleri Uzatma Koruması(Uyarılı)
Kod:
on @*:text:*:#: {
if ($regex($1-,/([[:print:]])11/gi) >= 10) {
hinc -mu20 uzunharf $+($chan,.,$nick) 1
if $hget(uzunharf,$+($chan,.,$nick)) == 1 {
.msg # $nick : lütfen harfleri uzatmadan yazınız.
}
if $hget(uzunharf,$+($chan,.,$nick)) == 2 {
.msg # $nick : harfleri uzatmamanız konusunda ikinci uyarınız, tekrarlamanız durumunda kanaldan uzaklaştırılacaksınız..
}
if $hget(uzunharf,$+($chan,.,$nick)) == 3 {
.ban # $nick 5
.kick # $nick Harfleri uzatmadan yazmanız konusunda uyarıları dikkate almadınız.
.hdel -s uzunharf $+($chan,.,$nick))
}
}
}
Uzun Yazı Koruması (Uyarılı)
Kod:
on @*:text:*:#: {
if ($nick isop $chan) || ($nick == $me) { halt }
if ($len($strip($1-)) >= 250) {
hinc -mu10 uzunyazi $+($chan,.,$nick) 1
if $hget(uzunyazi,$+($chan,.,$nick)) == 1 {
.msg # $nick : Uzun yazı yazmak yasaktır, lütfen bu kurala uygun yazınız.
}
if $hget(uzunyazi,$+($chan,.,$nick)) == 2 {
.msg # $nick : Uzun yazı yazmamanız konusunda 2. uyarınız, tekrarlamanız halinde kanaldan uzaklaştırılacaksınız.
}
if $hget(uzunyazi,$+($chan,.,$nick)) == 3 {
.ban # $nick 5
.kick # $nick Bu kanal içerisinde uzun yazı yazmak yasaktır.
.hdel -s uzunyazi $+($chan,.,$nick))
}
}
}
mIRC Whois Takip Penceresi
Kod:
on ^*:snotice:*: {
if *size*/whois*cekti* iswm $1- {
inc -u10 %whois. [ $+ [ $1 ] ] 1
if %whois. [ $+ [ $1 ] ] >= 3 {
kill $1 Whois flood yaptığınız için sunucudan uzaklaştırıldınız.
}
echo -a [Bilgi] > $1-2 size whois cekti
if !$window(@Whois) { window -a @Whois } {
aline @Whois [**] > $1-2 rumuzu size whois cekti.
}
}
}
Mirc Düşman Listesine alma
Kod
Script Açılış Mesajı
Kod:
on 1:start:{
.echo -a 2. . . : : : :4 Script Bilgileri 2 : : : : . . .
.echo -a 2-
.echo -a 4 Script Yapımcısı: Nickiniz
.echo -a 2-
.echo -a 4 Test Edenler : 13 Nickler
.echo -a 2-
.echo -a 4 Script Adresi : 13 siteadi.com
.echo -a 2-
.echo -a 4 İletişim Adresi : 13 mailadresiniz.
.echo -a 2-
.echo -a 4 Tarih : 13 $date
.echo -a 2-
.echo -a 4 Saat : 13 $time
.echo -a 2-
.echo -a 4 Kullanmakta Olduğunuz Rumuz : 13 $me
.echo -a 2-
.echo -a 4 Bilgi : 13 Script hakkında tanıtıcı açıklamalar
.echo -a 2-
.echo -a 2. . . : : : :4 Script Bilgileri Sonu2 : : : : . . .
}
Script’inize Ses Dosyaları Ekleyin.
Kod:
wav türünde ses dosyalarını, bir klasöre atıp aşağıdaki kod metinlerinde klasör/sesdosyasiadi.wav yazan kısımleri editleyerek belirtilen işlem için ses tanımlayabilirsiniz.
Kanala giriş sesi;
on 1:join:#: {
if ($nick != $me) { halt }
else { splay klasörsesdosyasininadi.wav | halt } }
Kanaldan çıkma sesi;
on 1:part:#: {
if ($nick != $me) { halt }
else { splay klasörsesdosyasininadi.wav | halt } }
Voice verildiğinde çalacak olan ses;
on 1:voice:#: {
if ($vnick != $me) { halt }
else { splay klasörsesdosyasininadi.wav | halt } }
Op olduğunuzda çalacak ses;
on 1:op:#: {
if ($opnick != $me) { halt }
else { splay klasörsesdosyasininadi.wav | halt } }
Renk dialogu
Kod:
// açıklama:
Bu dialog ile mIRC klasorunuzde mdx.dll varsa dialoglara renk verirlen renk i ayarlayıp rgb degerlerini alabilirsiniz.
alias cstudio { $iif(!$dialog(cstudio),dialog -m cstudio cstudio,dialog -v cstudio) }
dialog cstudio {
title "Color Studio | www.caddesohbet.com | by Maxi"
size -1 -1 154 131
option dbu
scroll "", 1, 35 3 115 8, range 0 255 horizontal bottom
text "Red", 2, 1 3 11 8
text "Green", 3, 1 15 16 8
text "Blue", 4, 1 27 10 8
scroll "", 5, 35 15 115 8, range 0 255 horizontal bottom
scroll "", 6, 35 27 115 8, range 0 255 horizontal bottom
list 7, 5 45 139 26, size
box "Renk", 8, 1 37 149 38
box "Degerler", 9, 1 77 149 37
edit "", 10, 45 87 99 10, read
text "RGB", 11, 8 89 16 8
text "$RGB", 12, 8 100 20 8
edit "", 13, 45 99 99 10, read
button "Exit", 14, 1 115 46 12
button "İnfo", 15, 50 115 47 12
button "Visit To Web Site", 16, 99 115 51 12
}
on *:dialog:cstudio:*:*: {
if $devent == init {
if !%mdx.dll { taramdx }
var %s dll %mdx.dll
%s MarkDialog $dname
%s SetBorderStyle $dname 7
%s SetColor $dname 7 background 0
}
if $devent == scroll {
if !%mdx.dll { taramdx }
var %s dll %mdx.dll
%s SetColor $dname 7 background $rgb($did(1).sel,$did(5).sel,$did(6).sel)
did -ra $dname 10 $rgb($did(1).sel,$did(5).sel,$did(6).sel)
did -ra $dname 13 Red; $did(1).sel Green; $did(5).sel Blue; $did(6).sel
}
if $devent == sclick {
if $did == 14 { dialog -x $dname }
if $did == 15 {
var %a echo 2 -a
%a *** "Color Dialog"
%a *** Bu Dialog Sayesinde Renklerin RGB Kodunu Alabilirsiniz
%a *** Hayırlı Çalışmalar Dileriz
%a *** www.caddesohbet.com
}
if $did == 16 { run www.caddesohbet.com }
}
}
alias taramdx {
var %q 1
var %i $scriptdir
while (%q <= $findfile(%i,*.dll,0)) {
if $gettok($findfile(%i,*.dll,%q),-1,$asc()) == mdx.dll {
set %mdx.dll $shortfn($findfile(%i,*.dll,%q))
}
inc %q
}
}
Reklam ve Küfür Koruması
Kod:
mircreklam.txt isimli bir dosya oluşturup, reklam olarak nitelendirdiğiniz kelimeleri alt alta ekleyin. dosyayı mirc klasörünün içine atın. Bu dosyaya eklediğiniz reklam mesajları, kanal genelinde geçtiğinde, yazan kullanıcıyı kanaldan otomatik olarak uzaklaştırırsınız. Ayrıca isteğe bağlı olarak mircreklam.txt dosyasına küfür mesajlarıda ekleyebilir bu sayede korumamızı küfür koruması olarakta kullanabilirsiniz. mIRC remote bölümüne eklemeniz gereken kod;
on @*:text:*:#: {
if $read(mircreklam.txt, w, $1-) {
.mode # +b $nick
.kick # $nick Bu kanalda reklam yapmak yasaktır. Daha detaylı bilgi için /motd yazarak sunucu genel kurallarını okuyunuz.
}
}
Kick Koruması
Kod:
Yetkilisi olduğunuz bir kanalda, bir başka yetkili tarafından kicklendiğiniz takdirde. Bu kod sayesinde kanala otomatik olarak girip, sizi kickleyen yetkiliyi kanaldan atabilirsiniz.
on *:kick:#: {
if ($me !isop $chan) || ($nick != $me) {
.join #
.mode # +b $nick
.kick # $nick Bir daha beni kicklemeyin. (Caddesohbet Kick Koruması)
}
}
Helperlar İçin Gün Saatine Göre Hitap
Kod:
Alias F1 /say $mirchelper $$1 $+ , help kanalımıza hoşgeldiniz. Sorunuzu dinliyorum..
alias mirchelper {
%mirc = $gettok($time,1,58)
if $istok(00 01 02 03 04,%mirc,32) {
return iyi geceler
}
if $istok(05 06 07 08 09,%mirc,32) {
return günaydın
}
if $istok(10 11 12 13 14 15 16 17 18,%mirc,32) {
return tünaydın
}
if $istok(19 20 21 22 23,%mirc,32) {
return iyi akşamlar
}
}
Seslenme Remotesi
Kod:
dialog ses1 {
title "Kanalda Size Sesleniyorlar..."
size -1 -1 99 40
option dbu notheme
box "Kanalda Sesleniliyorlar...", 1, 1 3 96 33
button "by Maxi", 2, 6 12 87 18, flat ok
}
#seslenme on
on *:TEXT:$(* $+ $me $+ *):#:{
if ($active == $chan) { goto son }
echo -a $chr(91) $+ $time(hh:nn) $+ $chr(93) 2***7 $Nick senden bahsediyor 4 $+ $chan 1Kanalında : 4 $+ " $1- " | .dialog -m ses1 ses1
:son
}
on *:TEXT:$(* $+ $me $+ *):?:{
if ($active == $nick) { goto son }
echo -a $chr(91) $+ $time(hh:nn) $+ $chr(93) 2***7 $Nick 2 $+ Özelde Senden Bahsediyor $+ : 4 $+ " $1- " | .dialog -m ses2 ses2
:son
}
#seslenme end
dialog ses2 {
title "Özelde Size Sesleniyorlar..."
size -1 -1 99 40
option dbu notheme
box "Özelde Sesleniyorlar...", 1, 2 1 94 36
button "by Maxi", 2, 8 11 82 20, flat ok
}
menu * {
.-
Seslenme Uyarısı:.dialog -m seslen seslen
.-
}
dialog seslen {
title "Seslenme Uyarisi"
size -1 -1 111 38
option dbu
button "Açık", 1, 6 9 46 12, flat
box "Ayarlar", 2, 0 0 109 35
button "Kapalı", 3, 56 9 46 12, flat
button "ÇIKIŞ", 4, 7 22 95 10, flat ok
}
on 1:dialog:seslen:sclick:1: { .enable #seslenme | .echo -a Seslenme Göstergesi Açıldı... }
on 1:dialog:seslen:sclick:3: { .disable #seslenme | .echo -a Seslenme Göstergesi Kapatıldı... }
on 1:dialog:seslen:sclick:4: { .echo -a Seslenme Göstergesi Ayarları Yapıldı... }
on 1:dialog:ses2:sclick:2: { .echo -a Tamam }
Proxy ile yapılan clone saldırılarına basit bir önlem
Kod:
;##############################################
;# by SpecifiC - 29/07/07
;#
on *:snotice:*Client*connecting*: {
var %dx = $gettok($right($left($10,-1),-1),2,64)
var %re = $iif($regex(%dx,-) != 1,$gettok(%dx,1,46),DONE)
if %re == DONE {
kline $9 Blocked HOSTNAME
goto end
}
;##############################################
;# Türkiye IP başlangıç haneleri. 88.147.44.55
;# Buraya bu ip numaralarını aralarında boşluk bırakarak ekleyebiliriz.
;# Böylece bu ip numaraları ile başlaan girişleri, servere almayacak.
;#
if $istok(81 85 88 80 212 195,%re,32) == $false {
kline $9 Blocked HOSTNAME
}
:end
}
;# End code
;###############################################
Dialoglu seslenme uyarısı
Kod:
dialog ses {
title "caddesohbet.com seslenme uyarısı"
size -1 -1 198 66
option dbu
text "Size seslenen kişi:", 1, 1 6 196 8
text "Yazdığı mesaj", 2, 1 20 196 8
text "Yazdığı kanal", 3, 0 35 196 8
button "KAPAT", 5, 62 51 37 12, cancel
link "caddesohbet", 7, 175 57 22 8
}
on *:text:*:#:{
if $+(*,$me,*) iswm $1- {
.dialog -m ses ses
if $dialog(ses) {
.did -ra ses 1 Yazan kişi: $nick
.did -ra ses 2 Yazığı mesaj: $1-
.did -ra ses 3 Yazdığı kanal: #
}
}
}
on *:text:*:?:{
if $+(*,$me,*) iswm $1- {
.dialog -m ses ses
if $dialog(ses) {
.did -ra ses 1 Yazan kişi: $nick
.did -ra ses 2 Yazığı mesaj: $1-
.did -ra ses 3 Yazdığı kanal: özelinde.!
}
}
Kanallara Otomatik giriş
Kod:
dialog mmkanalar {
title “caddesohbet Kanallar”
size -1 -1 179 215
option dbu
text ” Global Kanalar”, 1, 7 26 45 10
check “#cadde”, 2, 6 42 48 10
check “#istanbul”, 3, 6 52 50 10
check “#zurna”, 4, 6 62 50 10
check “#Sohbet”, 5, 6 73 50 10
check “#oyun”, 6, 6 84 50 10
text ” Özel Kanallar”, 7, 60 112 45 11
text ” Şehir Kanalları”, 14, 59 26 45 10
check “#Istanbul”, 16, 60 42 42 10
check “#Ankara”, 17, 60 53 39 10
check “#Izmir”, 18, 60 64 39 10
check “#Bursa”, 19, 60 75 39 10
check “#Antalya”, 20, 60 86 41 10
check “#Adana”, 21, 60 98 38 10
text ” Müzik Kanalları”, 22, 111 26 45 10
check “#Metal”, 23, 108 42 50 10
check “#Rock”, 24, 108 54 50 10
check “#Hiphop”, 25, 108 66 50 10
check “#Rap”, 26, 108 77 50 10
check “#Arabesk”, 27, 108 88 50 10
check “#Radyo”, 28, 108 99 50 10
text ” Takım Kanalları”, 29, 9 112 45 10
check “#Fenerbahçe”, 30, 5 128 50 10
check “#Galatasaray”, 31, 5 139 50 10
check “#Beşiktaş”, 32, 5 150 50 10
check “#Trabzonspor”, 33, 5 161 50 10
check “#Bursaspor”, 34, 5 172 50 10
check “#Ankaragücü”, 35, 5 183 50 10
check “#oyun”, 8, 6 96 50 10
check “#Sevgi”, 9, 59 129 43 10
check “#Aşk”, 10, 59 140 44 10
check “#Dostluk”, 11, 59 151 45 10
check “#Felsefe”, 12, 59 162 50 10
check “#Edebiyat”, 13, 59 173 50 10
check “#Cinsellik”, 15, 59 184 50 10
text ” Yardım ve Eğitim Kanalları”, 36, 112 113 65 10
check “#Help”, 37, 109 129 50 10
check “#ruled”, 38, 109 139 50 10
check “#Eğitim”, 39, 109 149 50 10
text ” caddesohbet kanal seçme ekranına hoşgeldiniz, dilediğiniz kanalı secip muhabbet’e katılabilirsiniz. NOT : Birden fazla kanal secebilirsiniz.”, 42, 6 3 167 20, center
box “”, 40, 1 21 178 174
button “Sohbete Bağlan!”, 41, 14 198 143 12
}
on *:dialog:mmkanalar:*:*:{
if $devent == sclick {
if $did !== 41 {
if $did($did).state == 1 { .write kanallar.txt $did($did) $+ $chr(11) $+ $did } | else { .write -dw $+ $did($did) $+ $chr(11) $+ $did kanallar.txt }
}
if $did == 41 {
.server irc.caddesohbet.com
.dialog -x $dname $dname
}
}
if $devent == init {
if $lines(kanallar.txt) !== 0 {
var %i 1
while %i <= $lines(kanallar.txt) {
.did -c $dname $gettok($read(kanallar.txt,%i),2,11)
inc %i
}
}
}
}
on *:connect:{
if $lines(kanallar.txt) !== 0 {
var %y 1
while %y <= $lines(kanallar.txt) {
.join $gettok($read(kanallar.txt,%y),1,11)
inc %y
}
}
}
BadNick’leri #Cinsellik Kanalına Sokmak
Kod:
alias bad { .auser 02 $1 }
on ^&*:JOIN:#:{
if ($nick != $me) {
if ($ulist($address($nick,-1),02,1)) {
if (o isin $usermode) {
mode # +b $nick | kick # $nick %logo
sapart $nick # | sajoin $nick #Cinsellik
}
}
}
}
cadde User Karşılama
Kod:
on *:join:#cadde: {
msg $nick merhaba $nick, #kanal kanalına hoşgeldiniz.
msg $nick kanalımızda güzel vakit geçirmenizi dileriz. iyi sohbetler.
}
özelinize gelen botnet mesajlarına oto spam
Kod:
alias yildiztemizle {
var %y $+(.,?) , %yi
if $numtok($1-,32) == 1 {
var %1kelime 1
}
%yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$ chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$ch r(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr (164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$ch r(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$ch r(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr( 34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr( 45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)
if %1kelime {
%yi = $+(^,%yi,$chr(36))
}
return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
}
on *:open:?:{
set -u5 %nickw. [ $+ [ $nick ] ] warn
}
alias spch {
if (!$window(@Spams)) window -ne @Spams
spamekle $yildiztemizle($2-)
echo -t @Spams $1 : $yildiztemizle($2-)
}
on *:text:*:?:{
if (!%nickw. [ $+ [ $nick ] ]) { halt }
if (%nickw. [ $+ [ $nick ] ] == warn) && (*_* iswm $1-) && ($right($1,1) isnum) && ($2 == $null) { spch $nick $1 }
var %t = 1 , %kelime = $gettok($strip($1-),0,32)
var %cümle = $strip($1-)
if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $1- }
while (%t <= %kelime) {
set %ara $gettok($strip($1-),%t,32)
if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara }
if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara }
if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara }
if (%nickw. [ $+ [ $nick ] ] == warn) && (%ara == @) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) }
if (*@h?* iswm %ara) { spch $nick %ara }
if ($right($gettok($strip($1-),$calc(%t - 1),32),1) isnum) && (*h?t* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara }
inc %t 1
}
}
alias spamekle {
spamfilter add cNnpa gzline +7200 Spam! $1-
}
alias spamsil {
spamfilter del cNnpa gzline +7200 Spam! $1-
}
Tek komutla bir kanalı cekme
Kod:
alias mJoin {
if (!$1) || (!$2) {
echo 6 ;/Mjoin #Kanaldan #Kanala
echo 6 * Ornek : /Mjoin #cadde #istanbul
}
else {
echo 12 * Kullanicilar tasınıyor $1 - $2
set %i 1
set %nick $nick($1,%i)
While %nick != $null {
%nick = $nick($1,%i)
sajoin %nick $2
echo 12 * %i %nick Taşındı $2
inc %i
}
echo 14 * Toplam %i kullanici $2 kanalina Mjoin edildi.
}
}
Kick sebeblerini, atasozu olarak belirle
Kod:
on *:start:atasozu | .timerslct 0 5 slct
alias atasozu $iif($sock(atsz),sockclose atsz,sockopen atsz www.gulum.net 80)
on *:sockopen:atsz: {
var %n = $sockname | sockwrite -n %n GET $+(/sozleri-mesajlari/atasozleri-,$r(1,14),.php) HTTP/1.1
sockwrite -n %n Host: gulum.net | sockwrite -n %n $crlf
}
on *:sockread:atsz: {
$iif($hget(atsz),hfree atsz) | var %s | sockread %s
if ($regex($gettok(%s,1,32),^ $) && !$regex(%s,http) && $gettok(%s,3,32)) {
hinc -m atsz $replacecs(%s, ,•,♥,•,$chr(32),½) 1
if ($hget(atsz,0).item == $r(1,10)) sockclose atsz
}
}
alias slct var %u = $hget(atsz,0).item,%uu = $r(1,%u) | set %& $replacecs($hget(atsz,%uu).item,½,$chr(32))
alias kick kick $1 $2 $iif($3,$3-,%&) | atasozu
Oto Selam
Kod:
on *:open:?:*:{
msg $nick Selam 7 $nick
msg $nick Bugün 3 $date 3 Saat 7 $time(HH:nn.ss)
msg $nick 4 Konuşmadığım süre 7 $duration($idle)
msg $nick 12 Bugüne kadar özelime gelen kişi sayısı 4 %q!
inc %q!
msg $nick Şuan özelimdeki 3 $+($query(0),.) 1 kişisin müsait olduğumda cevap verilecektir.
inc %q!
msg $nick 4 Lütfen GereKSiz meşguL etmeyiniz !! 2...::::4HO$ SOhBetLer2:::::...
}
Küfür Koruma Addon
Kod:
menu status,menubar,channel {
.-
.Kufur Koruması
..Açık:.enable #Kufur | .echo -t 7[ 4KBSC 7] 12Küfür Koruması Tüm Kanallarda Açıldı
..Kapalı:.disable #Kufur | .echo -t 7[ 4KBSC 7] 12Küfür Koruması Koruması Tüm Kanallarda Kapatıldı
.-
}
#Kufur on
on 1:text:am?na*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:amc?k*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:yarrağ*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:*seks*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:anan*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:*or?s?u*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:AMCİK*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text?ç*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:am:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:*siker*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:*sikey*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:sikim*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:*SİKİŞ*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:*topunuz*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:seks:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:BACI*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:action:götveren:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:sik?er*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:SİK**:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:sikiş*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:AMİNİ*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:ŞİKER*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:şiker*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:YARAG?*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:YARRAG*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:YARAK*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:YARRAK*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:i?ne:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text?c:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:textturtur*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:sie*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
on 1:text:SİE*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@*
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !
}
#Kufur end
Script`i REgisterLeme
Kod:
alias Crack {
var %kg.tbl = 11:6:17:12:12:14:5:12:16:10:11:6:14:14:4:11:9:12:1 1:10:8:10:10:16:8:4:6:10:12:16:8:10:4:16
var %kg.ctr = 4
var %kg.tot = $len($1-)
while (%kg.ctr <= %kg.tot) {
var %kg.1 = $calc(%kg.1 + ($asc($mid($1-,%kg.ctr,1)) * $gettok(%kg.tbl,$calc(%kg.ctr - 3),58)))
var %kg.2 = $calc(%kg.2 + (($asc($mid($1-,%kg.ctr,1)) * $asc($mid($1-,$calc(%kg.ctr - 1),1))) * $gettok(%kg.tbl,$calc(%kg.ctr -3),58)))
inc %kg.ctr
}
echo :--------------------------------------------------------------------------------------------
echo :mIRC Sürümü 4 $version
echo :Lisanslanan kişi4 $1-
echo :Key 4 $+(%kg.1,-,%kg.2)
echo :ALT + H Tuslarına basarak REGISTER kısmına tıklayın..
echo :ardından Acılan Pencereye Parametreleri girin...
echo :--------------------------------------------------------------------------------------------
}
Clone Uyarı
Kod:
#cloneuyar on
on *:join:*: {
%clones = $ialchan($wildsite,#,0)
if ( %clones > 2 ) {
var %count = 1
set %clone.nicks -->
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count }
/echo -at 5CLONE UYARI : Nickler :4 $remove(%clone.nicks,-->) 5Toplam :4 %clones 5Adet }
if (%change == $null) {
haltdef
halt
}
}
#cloneuyar end
:
on @shit:join:#:{
ban $chan $nick 2
kick $chan $nick 4Düşman Listemdesin…!
echo -a 12*** Düşman Listenizdeki 4 $+ $nick 12 $+ $chan Kanalına Girdi. Ve Atıldı.
}
alias shitlist { /dialog -m shitlist shitlist }
dialog shitlist {
title “Caddesohbet - Düşman Listesi”
size -1 -1 136 99
option dbu
box “Nick:”, 6, 66 0 68 97
button “Ekle(+)”, 4, 82 25 39 11
button “Kaldır(-)”, 10, 82 41 39 11
edit “”, 1, 70 8 61 10, autohs
button “&Tamam”, 3, 82 70 39 18, ok default
list 2, 5 3 57 83, size
; check “Düşman Listesi Aktif”, 5, 5 90 57 6
}
on 1:dialog:shitlist:init:0: {
unset %vo1
shitkontrol
}
on 1:dialog:shitlist:sclick:4: {
.auser shit $did(1)
did -a shitlist 2 $did(1)
; shitkontrol
}
on 1:dialog:shitlist:sclick:10: {
.ruser shit $did(2,$did(2).sel)
did -r shitlist 2
shitkontrol
}
alias shitkontrol {
goto shitlist
:shitlist
inc %vo1
if ($ulist(*,shit,%vo1) == $null) { unset %vo1 | halt }
did -a shitlist 2 $ulist(*,shit,%vo1)
goto shitlist
}
BadNick’leri Cinsel Kanala Sokmak
Kod:
alias bad { .auser 02 $1 }
on ^&*:JOIN:#:{
if ($nick != $me) {
if ($ulist($address($nick,-1),02,1)) {
if (o isin $usermode) {
mode # +b $nick | kick # $nick %logo
sapart $nick # | sajoin $nick #Cinsel
}
}
}
}
Tüm Kanallardan Atmak
Kod:
alias tumban {
if $1 == $me || $comchan($1,1) == $null { halt }
set %kanalsayisi $comchan($1,0)
var %x = 1
while (%x <= %kanalsayisi) { if $me isop $comchan($1,%x) { .mode $comchan($1,%x) +b $address($1,2) | .kick $comchan($1,%x) $1 Kanaldan atılma sebebini buraya giriniz. | inc %x } }
}
//kullanımı /tumban nick
Günün Sözü
Kod:
alias gununsozu { if $sock(gununsozu) { echo 12 -a * /gununsozu: Lütfen daha sonra tekrar deneyiniz. } | else { sockopen gununsozu www.mynet.com 80 } }
on *:sockopen:gununsozu:{
var %c = sockwrite -n $sockname
if ($sockerr) { echo $colour(info) -a * /gununsozu: Hata. | return }
%c GET /soz.asp HTTP/1.1 | %c Host: mynet.com | %c Connection: Close $str($crlf,2)
}
on *:sockread:gununsozu:{
var %g | sockread %g | if *class="f1001">* iswm %g { echo 4 -a * Günün sözü; $htmlfree($v2) }
}
alias -l htmlfree return $regsubex($1-,/(^[^<]*>|<[^>]*>|t|<[^>]*$)/g,$null)
Vizyondaki Filmler
Kod:
alias sinema { if $sock(sinema) { sockclose sinema } | sockopen sinema sinema.com 80 | echo 3 -st * Sinema.com: Vizyondaki filmler alınmaya çalışılıyor. | if $window(@Sinema.com) { clear @Sinema.com } }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
alias -l sinemay { if !$window(@Sinema.com) { window -nk0 @Sinema.com } | aline -p @Sinema.com $1- }
on *:sockopen:sinema:{ var %c = sockwrite -n $sockname | %c GET /filmler.aspx?Status=4 HTTP/1.1 | %c Host: sinema.com $+ $crlf $+ $crlf }
on *:sockread:sinema:{
if ($sockerr) { echo 3 -st * Sinema.com: Vizyondaki filmleri alırken hata oluştu. Lütfen tekrar deneyiniz. | halt }
else { var %- | sockread %- | if (*<td width="271" class="red" valign="top"><a href="film_ozetbilgiler.aspx* iswm %-) || (*<td width="391"><a href="film_ozetbilgiler.aspx?FilmID=*"><img src="images/but_git.gif"* iswm %-) || ($count(%-,$chr(9)) == 13) { sinemay $+($iif(*red* iswm $v1,04,03),$remove($htmlfree(%-),$chr(9),)) }
elseif (*<img src="images/but_os.gif"* iswm %-) { sinemay 05Devamı ve daha fazla bilgi için:12 $+(,http://www.sinema.com/,$replace($gettok(%-,2,34),sinema,zetbilgiler),) }
elseif (*HTML*:*Erhan İDİZ* iswm %-) { if $sock(sinema) { sockclose sinema } | if $window(@Sinema.com) { window -a @Sinema.com } }
}
}
|
|
|
|
|
|
|
|
|
|
|
|