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

Kod:

[script]

n0=dialog uzunyazi {

n1=  title "uzunyazi [ LanetLy ]"

n2=  size -1 -1 138 186

n3=  option dbu

n4=  edit "", 1, 7 10 61 10

n5=  list 2, 7 22 60 50, size

n6=  button "Ekle", 3, 7 74 27 12, flat

n7=  button "Sil", 4, 39 74 27 12, flat

n8=  check "Opları (@)", 5, 85 21 41 10, flat

n9=  check "Voiceler (@)", 6, 85 10 42 10, flat

n10=  combo 7, 7 102 52 51, size

n11=  button "Ekle", 8, 7 154 24 9, flat

n12=  button "Sil", 9, 35 154 23 9, flat

n13=  box "Küfür listesi", 13, 3 2 71 88

n14=  box "Ayrılan Nickler", 14, 3 92 63 76

n15=  box "Ayrılan Kanallar", 15, 73 92 62 76

n16=  box "Ayır", 16, 78 2 56 33

n17=  button "Sil", 10, 106 154 23 9, flat

n18=  button "Ekle", 11, 78 154 24 9, flat

n19=  combo 12, 78 102 52 51, size

n20=  box "İşlemler", 17, 78 37 56 53

n21=  radio "Opersem Kline", 18, 83 47 47 10, flat

n22=  radio "Opersem Kill", 19, 83 57 47 10, flat

n23=  radio "Opsam Kick", 20, 83 67 47 10, flat

n24=  check "Banla", 21, 83 77 27 10, flat

n25=  button "Kapat", 22, 97 171 37 12, flat ok

n26=}

n27=alias uzunyazi { /dialog -m uzunyazi uzunyazi }

n28=on *:dialog:uzunyazi:init:*: {

n29=  if ($isfile(uzunyazi.txt) == $false) { write -c uzunyazi.txt } | else { loadbuf -o $dname 2 uzunyazi.txt }

n30=  if (%knickler) .didtok $dname 7 32 $ifmatch

n31=  if (%kufkanal) .didtok $dname 12 32 $ifmatch

n32=  if (%klineat) { .did -c $dname 18 }

n33=  if (%killat) { .did -c $dname 19 }

n34=  if (%kickat) { .did -c $dname 20 }

n35=  if (%banla) { .did -c $dname 21 }

n36=  if (%oplar) { .did -c $dname 5 }

n37=  if (%vlar) { .did -c $dname 6 }

n38=}

n39=on *:dialog:uzunyazi:sclick:*: {

n40=  if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }

n41=  if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }

n42=  if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }

n43=  if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }

n44=  if ($did == 3) { write uzunyazi.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }

n45=  if ($did == 4) { write -dl $+ $did(2).sel uzunyazi.txt | did -d $dname 2 $did(2).sel }

n46=  if ($did == 8) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }

n47=  if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }

n48=  if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }

n49=  if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }

n50=  if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }

n51=  if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }

n52=}

n53=on *:text:*:#: {

n54=  if $istok(%kufkanal,#,32) == $true { halt }

n55=  if $istok(%knickler,$nick,32) == $true { halt }

n56=  if ($nick isop #) && (%oplar == on) { return }

n57=  if ($nick isvo #) && (%vlar == on) { return }

n58=  koruuzunyaziden $1-

n59=}

n60=alias koruuzunyaziden {

n61=  var %HR $strip($1-) , %_: $lines(uzunyazi.txt)

n62=  while (%_:) {

n63=    if $read(uzunyazi.txt,%_:) iswm %HR iswm %HR {

n64=      if (%banla == on) { ban # $nick }

n65=      if (%klineat == on) { .kline $nick Lutfen uzunyazi Yazmayin }

n66=      if (%killat == on) { .kill $nick Lutfen uzunyazi yazmayin }

n67=      if (%kickat == on) { kick # $nick 12Harfleri Uzatarak yazmak 4Yasaktir12 Kanaldan Uzaklaştırıldın! 4By LanetLy }

n68=      return

n69=    }

n70=    dec %_:

n71=  }

n72=}

ayrıca mircin icine uzunyazi.txt sayfasını açıyorsunuz remote çaLışmaya başLıyor

----------

ArkadasLar remotenın çaLışması icin uzunyazi.txt sayfası açın dedim o dosyanın icine atmamız gerekenLeride vereyımde sorun çıkmasın.Harf uzunLuğu kendiniz ayarLarsınız

Kod:

*aaaaaa*

*bbbbbb*

*cccccc*

*dddddd*

*eeeeee*

*rrrrrr*

*tttttt*

*yyyyyy*

*uuuuuu*

*oooooo*

*pppppp*

*ssssss*

*ffffff*

*gggggg*

*hhhhhh*

*jjjjjj*

*kkkkkk*

*llllll*

*iiiiii*

*zzzzzz*

*xxxxxx*

*vvvvvv*

*nnnnnn*

*mmmmmm*

*wwwwww*

*qqqqqq*