mircmekan.tr.gg,mircmekan,trresim,resim,tr resim,telehaber.tr.gg,haber,sapancam.net,sapancam,telehaber.tr.gg,telehaber

Hazır kodLar(10)

 

Tekrar Koruması

Mayıs 17th, 2008 - yazar Soulfly

on 1:text:*:#:{
  if $me !isop $chan { halt } | if $nick isop $chan { halt }
  if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
  if (%>reps_ [ $+ [ $nick ] ] == $null)  { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
  if (%>repsa_ [ $+ [ $nick ] ] == 3) {
    /mode $chan +b $address($nick,2) | /kick $chan $nick 7¤ 13Tekrar Yasaktir2 [14!2] 7¤
    unset %*_ [ $+ [ $nick ] ] |
  }
}

Log Viewer

Mayıs 17th, 2008 - yazar Soulfly

Alias Logvw {
  IF $Window(@Logvw) == $null { Window -aemk0l12Sz @Logvw }
  RafraichirLogs
  If (%Log.AfficheInfoRepLog == $true) { InfoRepertoireLog }
}
Alias RafraichirLogs {
  Clear -l @Logvw
  Titlebar @Logvw - $logdir - ( $findfile($shortfn($logdir), *.log, 0, .aline -l @Logvw $nopath($1)) logs )
  NickListColorLog
}
menu @Logvw {
  dclick: {
    If ($mouse.lb == $true) && ($sline(@Logvw,1) != $null) { $AfficheLog($sline(@Logvw,1)) }
    Else { LogvwCfg }
  }
  $iif($sline(@Logvw,1) != $null,Afficher le contenu du log) : $AfficheLog($sline(@Logvw,1))
  -
  $iif($line(@Logvw,0,0) > 0,Nouvelle Recherche) : RechercheDansLog 
  $iif(%Log.MemoLigne != $null,Continuer la recherche) : RechercheDansLog %Log.MemoLigne
  -
  $iif($sline(@Logvw,1) != $null,Supprimer) : $SupprimeLog($sline(@Logvw,1))
  $iif($sline(@Logvw,1) != $null,Renommer) : $RenommeLog($sline(@Logvw,1))
  $iif($sline(@Logvw,1) != $null,Copier dans …) : $CopieLog($sline(@Logvw,1))
  -
  &Informations
  .Sur le répertoire de log : InfoRepertoireLog
  .Sur le fichier log : InfoFichierLog $sline(@Logvw,1)
  -
  &Effacer le contenu de la fenêtre : Clear @Logvw
  -
  &Rafraichir les logs : RafraichirLogs
  -
  &Configurer Logviewer : LogvwCfg
  &Fermer Logviewer : /Window -c @Logvw
}
Alias AfficheLog {
  Var %NumLigne = 1, %MaxLigne = $lines($shortfn($logdir $+ $1)), %TextFichier
  If (%Log.EffaceFenetre == $true) { /Clear @Logvw }
  If (%Log.AfficheInfoFichier == $true) { InfoFichierLog $1 }
  LOADBUF -p @Logvw $shortfn($logdir $+ $1)
}
Alias SupprimeLog {
  Var %NbFichier = $sline(@Logvw,0), %MessConfirm = $iif(%NbFichier > 1,Désirez-vous vraiment supprimer les fichiers sélectionnés ?,Désirez-vous vraiment supprimer le fichier $1 ?)
  If $input(%MessConfirm, 72, Logvw) == $true {
    Var %Compt = 1
    While (%Compt <= %NbFichier) {
      If (%Log.SuppLogCorbeille == $true) { .Remove -b $shortfn( $logdir $+ $sline(@Logvw,%Compt) ) }
      Else { .Remove $shortfn( $logdir $+ $sline(@Logvw,%Compt)) }
      Echo $color(info text) -at $sline(@Logvw,%Compt) supprimé.
      Inc %Compt
    }
    RafraichirLogs 
  }
}
Alias RenommeLog {
  Var %NouveauNom = $input(Indiquez le nouveau nom :, 73, Logvw, $1)
  If %NouveauNom != $null {
    If $right(%NouveauNom,4) != .log { %NouveauNom = %NouveauNom $+ .log }
    .Rename $shortfn($logdir $+ $1) $shortfn($logdir $+ %NouveauNom )
    RafraichirLogs
  }
}
Alias CopieLog {
  Var %NouveauRep = $sdir($logdir,Indiquez le répertoire ), %CopierLog == $true
  If %NouveauRep != $null {
    If $exists(%NouveauRep $+ $1) { %CopierLog = $input(Le fichier %NouveauRep $+ $1 existe déjà désirez-vous l’écraser ?, 72, Logvw) }
    If (%CopierLog == $true) {
      .Copy -o $shortfn( $logdir $+ $1 ) $shortfn( %NouveauRep $+ $1 )
      SupprimeLog $1
      RafraichirLogs
    }
  }
}
Alias RechercheDansLog {
  Var %CritereRech = $iif($1 == $null,$input(Indiquez votre critère de recherche :, 129, Logvw),%Log.MemoCritere)
  If %CritereRech != $null {
    Var %NumLigne = $iif($1 != $null,$calc($1 + 1),1), %MaxLigne = $line(@Logvw,0,0)
    :LigneSuivante
    If (%NumLigne > %MaxLigne) { Goto FinRecherche }
    If %Log.RespecteCase == $true {
      If $line(@Logvw,%NumLigne,0) isin %CritereRech { Goto Trouver }
    }
    Else {
      If ($pos($upper($line(@Logvw,%NumLigne,0)),$upper(%CritereRech),1) != $null) { Goto Trouver }
    }
    Inc %NumLigne
    Goto LigneSuivante
    :Trouver
    If %Log.MemoLigne != $null { Rline @Logvw %Log.MemoLigne %Log.MemoText }
    %Log.MemoLigne   = %NumLigne
    %Log.MemoText    = $line(@Logvw,%NumLigne,0)
    %Log.MemoCritere = %CritereRech
    Sline @Logvw %NumLigne
    Rline @Logvw %NumLigne 4Trouvé –> $line(@Logvw,%NumLigne,0)
    :FinRecherche
    If (%NumLigne > %MaxLigne) { Var %Retour = $input(Le critère de recherche %CritereRech n’a pas été trouvé.,68) }
  }
}
Alias InfoFichierLog {
  Var %FichierLog = $shortfn($logdir $+ $1)
  If ($exists(%FichierLog) == $true) && ($1 != $null) {
    .Aline 4 @Logvw ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
    .Aline 4 @Logvw ¤¤¤¤ Nom du fichier ………………. : $1
    .Aline 4 @Logvw ¤¤¤¤ Taille / Nombre de lignes …. : $file(%FichierLog).size octets / $lines($shortfn($logdir $+ $1)) lignes.
    .Aline 4 @Logvw ¤¤¤¤ Créé le ………………………… : $asctime($file(%FichierLog).ctime,dd/mm/yyyy à hh:nn:ss)
    .Aline 4 @Logvw ¤¤¤¤ Modifié le ……………………… : $asctime($file(%FichierLog).mtime,dd/mm/yyyy à hh:nn:ss)
    .Aline 4 @Logvw ¤¤¤¤ Accédé le ……………………… : $asctime($file(%FichierLog).atime,dd/mm/yyyy à hh:nn:ss)
    .Aline 4 @Logvw ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
  }
}
Alias InfoRepertoireLog {
  Var %TailleRep = 0, %NumFichier = 1, %NbFichier = $findfile($shortfn($logdir), ¤.log, 0)
  :FichierSuivant
  %TailleRep = $calc( %TailleRep + $file($findfile($shortfn($logdir), ¤.log, %NumFichier)).size )
  Inc %NumFichier
  If (%NumFichier <= %NbFichier) { Goto FichierSuivant }
  .Aline 4 @Logvw ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
  .Aline 4 @Logvw ¤¤¤¤ Nom du répertoire …………… : $logdir
  .Aline 4 @Logvw ¤¤¤¤ Taille / Nombre de fichiers … : %TailleRep octets / %NbFichier fichiers.
  .Aline 4 @Logvw ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
}
Alias NickListColorLog {
  Var %NumLog = 1, %NbLogs = $line(@Logvw,0,1)
  :LogSuivant
  If (%NumLog > %NbLogs) { Goto FinListeLog } 
  If $left($line(@Logvw,%NumLog,1),1) == $chr(35) { Cline -l 4 @Logvw %NumLog }
  Else { Cline -l 12 @Logvw %NumLog }
  Inc %NumLog
  Goto LogSuivant
  :FinListeLog
}
Alias LogvwCfg {
  If $dialog(LogvwCnfg).hwnd == $null { /Dialog -md LogvwCnfg LogvwCnfg }
  Else { /Dialog -iev LogvwCnfg LogvwCnfg }
}
Dialog LogvwCnfg {
  TITLE  “Configuration de Logviewer”
  SIZE   -1 -1 310 155
  CHECK “Afficher les informations sur le log avant son contenu ?”, 100, 2 2 306 20, LEFT, FLAT
  CHECK “Afficher les informations sur le répertoire des logs ?”, 200, 2 22 306 20, LEFT, FLAT
  CHECK “Afficher Logviewer au démarrage du script ?”, 300, 2 42 306 20, LEFT, FLAT
  CHECK “Mettre les logs supprimés dans la corbeille Windows ?”, 400, 2 62 306 20, LEFT, FLAT
  CHECK “Respecter les majuscules/minuscules lors d’une recherche ?”, 500, 2 82 306 20, LEFT, FLAT
  CHECK “Effacer la fenêtre avant d’afficher un nouveau log ?”, 600, 2 102 306 20, LEFT, FLAT
  BUTTON “&Valider”, 10, 155 130 70 20, OK,  FLAT
  BUTTON “&Annuler”, 20, 235 130 70 20, CANCEL, FLAT
}
ON *:DIALOG:LogvwCnfg:init:0: {
  mdx SetMircVersion $version
  mdx  MarkDialog $dname
  mdx  SetControlMDX 30 listview showsel rowselect infotip report extsel > $cc_views
  mdx SetDialog $dname bgcolor 16772585
  mdx SetColor $dname 2 text 255
  mdx SetColor $dname 10 text 16711680
  mdx SetColor $dname 100,200,300,400,500,600 textbg 16772585
  mdx SetColor $dname 100,200,300,400,500,600 background 16772585
  If %Log.AfficheInfoFichier == $true { Did -c LogvwCnfg 100 }
  If %Log.AfficheInfoRepLog  == $true { Did -c LogvwCnfg 200 }
  If %Log.AfficherLogvw    == $true { Did -c LogvwCnfg 300 }
  If %Log.SuppLogCorbeille   == $true { Did -c LogvwCnfg 400 }
  If %Log.RespecteCase       == $true { Did -c LogvwCnfg 500 }
  If %Log.EffaceFenetre      == $true { Did -c LogvwCnfg 600 }
}
ON *:DIALOG:LogvwCnfg:sclick:10: {
  %Log.AfficheInfoFichier = $iif($did(LogvwCnfg,100).state == 1, $true, $false)
  %Log.AfficheInfoRepLog  = $iif($did(LogvwCnfg,200).state == 1, $true, $false) 
  %Log.AfficherLogvw    = $iif($did(LogvwCnfg,300).state == 1, $true, $false)
  %Log.SuppLogCorbeille   = $iif($did(LogvwCnfg,400).state == 1, $true, $false)
  %Log.RespecteCase       = $iif($did(LogvwCnfg,500).state == 1, $true, $false)
  %Log.EffaceFenetre      = $iif($did(LogvwCnfg,600).state == 1, $true, $false)

}

Operlar için harkia bir remote

Mayıs 17th, 2008 - yazar Soulfly

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) }

Ekleyen : Birkan

206

Script Sayacı

Mayıs 17th, 2008 - yazar Soulfly

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 Script kullanıma Hazır
echo Script daha önce %sayac Kere Calıstırıldı
| vsvsvs
}

Ekleyen : Birkan

205

Botu Yetkili Olmayan Kullanmaya Çalışırsa Uyarı

Mayıs 6th, 2008 - yazar Soulfly

on *:text:*:#*: {
if ($nick == Techno) || if ($nick == 2.nick) || if ($nick == 3.nick) {
if $1 == !part { /part $2 }
if $1 == !gitgel { /server $serverip }
if $1 == !hop { /hop $2 }
if $1 == !gir { /join $2 }
if $1 == !kick { /kick #antalya $2- }
if $1 == !sopekle { /auser sop $2 }
if $1 == !opekle { /auser op $2 }
if $1 == !konus { /msg $2- }
if $1 == !mode { /mode $2- }
if $1 == !accekle { /cs access $2 add $3- }
if $1 == !git { /part # }
if $1 == !kapat { quit }
if $1 == !k-b { /ban -k $2- Badnick }
if $1 == !k-k { /ban -k $2 - Kötü kelime }
}
}

 Ekleyen:Teufel

158

Ban Rapor

Mayıs 6th, 2008 - yazar Soulfly

on *:kick:#sohbet: {
.timer 1 1 /msg #sohbet@ Sohbet Kanalından $knick Atılmıştır. $knick Nickini Atan Operator ” $nick ”
.timer 1 2 /msg #sohbet Bu Mesaj Sohbet Kanalının Bir Bilgilendirme Hizmetidir.
.timer 1 3 /msg #sohbet Kanaldan Atan Operatorumuz : $nick
.timer 1 4 /msg #sohbet Atılma Zamanı : $fulldate
.timer 1 5 /msg #sohbet Kanaldan Atılma Sebebiniz : $+ $1-
.timer 1 6 /msg #sohbet Sohbet Kanalına /nick Yeni-Nick Komutu İle Nickinizi Değiştirdikten Sonra Tekrar Kanalımıza Girebilirsiniz. Sohbet Kanal Yönetimi Serdar(GuardSecurity)
}

157

Clone Uyarıcısı

Mayıs 6th, 2008 - yazar Soulfly

on *:join:#: { if $nick == $me && !$ialchan(#) { .ial on | who # } | else { bak $nick } }
alias bak {
who $1
  if $ialchan($+(*,$gettok($address($1,2),2,64),*),$active,0) < 2 { halt }
   else { var %% = 1,%& = $gettok($address($1,2),2,64),%&& = $ialchan($+(*,%&,*),$active,0)
   while %% <= %&& { var %%- = $addtok(%%-,$gettok($ialchan($+(*,%&,*),$active,%%),1,33),44)
   inc %%
   }
  echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Klon:,$chr(32),$chr(40),$chr(32),
  $chr(2),$calc(%% -1),$chr(2),$chr(32),$chr(41),$chr(32),Adres:,$chr(32),$chr(40),$chr(2),
  $chr(32),%&,$chr(2),$chr(32),$chr(41),$chr(32),Nickler:,$chr(32),$chr(40),$chr(32),
  $chr(2),%%-,$chr(32),$chr(2),$chr(41))
}
}

Ekleyen:Teufel

156

Kötü Rumuz Koruması

Mayıs 6th, 2008 - yazar Soulfly

;————————————————–
; Kötü Rumuz Koruması
; Kodlamaların tamamı ve bazı dialog kodları el33t’e aittir…
; Dialog hazırlaması bana aittir…
; /KötüRumuz Yazarak Çalıştırabilirsiniz…
; www.Forummeydani.net
;———————————————————
alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz }
dialog kötürumuz {
  title “Kötü Rumuz Koruması”
  size -1 -1 200 180
  option dbu
  text “..:: Rumuz Listesi ::..”, 999, 20 10 60 10
  combo 1, 5 20 90 130
  button “Ekle (+)”, 2, 4 146 27 13
  button “Çıkar (-)”, 3, 32 146 27 13
  button “Temizle (!)”, 4, 60 146 35 13
  box “Seçenekler”, 5, 101 17 93 40
  check “OP olduğumda tarama yap!”, 6, 106 28 73 10
  check “Yeni rumuz kötüyse at!”, 7, 106 40 70 10
  button “?”, 8, 182 28 9 9
  button “?”, 9, 182 40 9 9
  box “Kick Mesajınız”, 10, 101 60 93 40
  edit “”, 11, 106 76 83 10, autohs
  box “Açıklamalar”, 12, 101 103 93 55
  text “Kötü Rumuz Koruması  www.IRCForumlari.net              S1y4H”, 13, 106 110 85 40
  link “www.ircforumlari.net”, 14, 108 164 52 15
  button “Kapat!”, 15, 168 161 27 13
  text “..:: Kötü Rumuz Koruması ::..”, 16, 13 165 80 10,disable
}
on *:dialog:kötürumuz:*:*:{
  if ($devent == init) {
    loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1
    if (%oto-tara == on) { did -c kötürumuz 6 }
    if (%NickDeğiş == on) { did -c kötürumuz 7 }
    did -a $dname 11 %kckmsg
  }
  if ($devent == sclick) {
    if ($did == 2) {
      var %kötürmz = $did(1).text
      if $read(nickler.txt,w,%kötürmz) {
        echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.
      }
      else {
        write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text
      }
    }
    if ($did == 3) {
      if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel }
    }
    if ($did == 4) {
      if ($$?!=”Bütün listeyi silmek istediğinizden emin misiniz?” == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki  $+ %satırsayısı $+  adet rumuz silindi. | unset %satırsayısı } | else { return }
    }
    if ($did == 8) {
      did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır.
    }
    if ($did == 9) {
      did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır.
    }
    if ($did == 6) {
      if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }
      elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }
    }
    if ($did == 7) {
      if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }
      elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }
    }
    if ($did == 14) {
      run http://www.ircforumlari.net
    }
    if ($did == 15) {
      if ($did(11) == $Null) {
        echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.
        dialog -x kötürumuz kötürumuz
        set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
      }
      else {
        set %kckmsg $did(11)
        dialog -x kötürumuz kötürumuz
      }
    }
  }
}
;——————–
; Kodlamalar…
;——————–
on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }
#NickDeğiş on
on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }
#NickDeğiş end
alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
alias krt {
  if $1 ischan && $me isop $1 {
    var %` = $lines(Nickler.txt)
    while %` {
      if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }
      dec %`
    }
  }
}
#oto-tara on
on *:OP:#:if $opnick == $me { krt $chan }
#oto-tara end
;—————————————–
on *:LOAD:{
  echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
  echo -a $timestamp *** S1y4H
  run notepad.exe nickler.txt
  set %oto-tara on
  set %NickDeğiş on
  set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}

on *:UNLOAD:{
  echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.
  unset %oto-tar
  unset %NickDeğiş
  unset %kckmsg
}

Ekleyen:Teufel

155

Ping Mesajını Değiştir

Mayıs 6th, 2008 - yazar Soulfly

[script]
n0=#pingle on
n1=on *:TEXT:*ping*:#:{ CTCP $nick PING | notice $nick 10ßeni5m tarafı4mdan PingLendin ßak 7;) %logo }
n2=on *:NOTICE:*ping*:#:{ CTCP $nick PING | notice $nick 10ßeni5m tarafı4mdan PingLendin ßak 7;) %logo }
n3=on *:ACTION:*ping*:#:{ CTCP $nick PING | notice $nick 10ßeni5m tarafı4mdan PingLendin ßak 7;) %logo }
n4=on *:TEXT:*LAG*:#:{ CTCP $nick PING | notice $nick 10ßeni5m tarafı4mdan PingLendin ßak 7;) %logo }
n5=on *:NOTICE:*LAG*:#:{ CTCP $nick PING | notice $nick 10ßeni5m tarafı4mdan PingLendin ßak 7;) %logo }
n6=on *:ACTION:*LAG*:#:{ CTCP $nick PING | notice $nick 10ßeni5m tarafı4mdan PingLendin ßak 7;) %logo }
n7=#pingle end

Ekleyen:Teufel

154

Otomatik identify

Mayıs 6th, 2008 - yazar Soulfly

on *:notice:*:?: {
if ($nick == NickServ) {
if (Bu kayitli ve sifre korumali bir nick’tir isin $1-) { msg NickServ IDENTIFY şifreniz}
}
}
on *:notice:*:?: {
if ($nick == NickServ) {
if (Bu nick kayitli bir nicktir, siz bu nicki kullanamazsiniz isin $1-) { msg NickServ ghost nickiniz şifreniz | msg NickServ release nickiniz şifreniz | timer 2 5 nick nickiniz | timer 2 5 msg NickServ IDENTIFY şifreniz }
}
}

Şifre derdiyle ugraşmak istemiyenLere..

Ekleyen:Teufel

153
11 ziyaretçi
Copyright By Ahmet KOLASALI Tüm hakları açıktır.

Telehaber.tr.gg 'de sörf için Google Chrome'i tavsiye ediyoruz.
Möhüm Sayfalar;
mIRCmekan | ktunnel | msn ac | msn kaydol | Xhamster | facebook | Sohbet | köpek dövüşleri | kurtlar vadisi gladyo
trSohbet | Forumuz| Linç | ultrAslan Fun Club | Fenerbahçe Fan Club
| 29 Ekim oratoryosu | Fifa 2011 indir | Fifa 2011 e0001 Hatatsı | Fatmagül'ün suçu ne geyikleri | 2011 YGS tarihi | Mor ve Ötesi Kalbin işine bak | Fifa 2011 tek link | Desole dinle indir | Aşk'in işine bak | Kardeşimden sonra full izle | Esed Nod32 Güncelleme | WargoD | Kpss güncel bilgiler |İletişim | Reklam Alt sayfalarımız en kısa zamanda düzenlenecektir.

Sitenin tüm hakları açıktır.Copyright Ahmet KOLASALI
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=