Türkçe Mirc indir

3
13

Random Nick Koruması

10 ay önce Bu yazı sabitlenmiştir.

Adminler için random nick koruması belirdiğiniz sayıda sesli ve sessiz harflere gzline atarak saldırıyı keser. /random yazarak çalıştırabilirsiniz.

alias rands { if (($regex($1,/[qwrtypğsdfghjklşzxcvbnmç]{ $+ $(%trosessizsayi) $+ }/i)) || ($regex($1,/[qüöıaeiou]{ $+ $(%troseslisayi) $+ }/i))) { return $true } | else { return $false } }

alias random { .dialog -m randomnick randomnick } 
dialog randomnick {
  title "Random Korumasi - www.mircclub.org"
  size -1 -1 179 92
  option notheme dbu
  edit "", 3, 153 22 13 10
  edit "", 4, 153 33 13 10
  text "Nick'de kac adet sessiz harf yanyana olunca banlasın.? ", 30, 13 23 137 8
  text "Nick'de kac adet sesli harf yanyana olunca banlasın.? ", 40, 13 34 137 8
  text "Durum : ", 50, 13 46 25 8
  edit "", 6, 42 45 124 10
  button "Ac", 7, 11 68 50 12
  button "Kapat", 8, 63 68 50 12
  button "Dialogu Kapat", 13, 115 68 51 12, ok flat
  box "Islemler : ", 100, 8 11 162 50
  box "", 110, 8 60 162 24
  box "Random Nick Korumasi :", 120, 3 3 172 86
}

on *:dialog:RandomNick:*:*:{
  if ($devent == init) {
    did -ra $dname 6 %trojandurum
    did -ra $dname 4 %troseslisayi
    did -ra $dname 3 %trosessizsayi

  }
  if ($devent == sclick) {
    if ($did == 7) { .enable #trocanz | set %trojandurum Random Nick Koruma Acik | dialog -x $dname $dname | dialog -m RandomNick RandomNick }
    if ($did == 8) { .disable #trocanz | set %trojandurum Random Nick Koruma Kapali | dialog -x $dname $dname | dialog -m RandomNick RandomNick }
    if ($did == 13) { set %trosessizsayi $did(3) | set %troseslisayi $did(4) }
  }
}

#trocanz off
on *:JOIN:#sohbet:{ 
  if ($rands($nick) == $true) { 
    msg #xline - gzline: 10 $nick
    gzline $nick 12random
  }
}

#trocanz end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

alias rands { if (($regex($1,/[qwrtypğsdfghjklşzxcvbnmç]{ $+ $(%trosessizsayi) $+ }/i)) || ($regex($1,/[qüöıaeiou]{ $+ $(%troseslisayi) $+ }/i))) { return $true } | else { return $false } }

alias random { .dialog -m randomnick randomnick }

dialog randomnick {

title "Random Korumasi - www.mircclub.org"

size -1 -1 179 92

option notheme dbu

edit "", 3, 153 22 13 10

edit "", 4, 153 33 13 10

text "Nick'de kac adet sessiz harf yanyana olunca banlasın.? ", 30, 13 23 137 8

text "Nick'de kac adet sesli harf yanyana olunca banlasın.? ", 40, 13 34 137 8

text "Durum : ", 50, 13 46 25 8

edit "", 6, 42 45 124 10

button "Ac", 7, 11 68 50 12

button "Kapat", 8, 63 68 50 12

button "Dialogu Kapat", 13, 115 68 51 12, ok flat

box "Islemler : ", 100, 8 11 162 50

box "", 110, 8 60 162 24

box "Random Nick Korumasi :", 120, 3 3 172 86

}

on *:dialog:RandomNick:*:*:{

if ($devent == init) {

did -ra $dname 6 %trojandurum

did -ra $dname 4 %troseslisayi

did -ra $dname 3 %trosessizsayi

}

if ($devent == sclick) {

if ($did == 7) { .enable #trocanz | set %trojandurum Random Nick Koruma Acik | dialog -x $dname $dname | dialog -m RandomNick RandomNick }

if ($did == 8) { .disable #trocanz | set %trojandurum Random Nick Koruma Kapali | dialog -x $dname $dname | dialog -m RandomNick RandomNick }

if ($did == 13) { set %trosessizsayi $did(3) | set %troseslisayi $did(4) }

}

#trocanz off

on *:JOIN:#sohbet:{

if ($rands($nick) == $true) {

msg #xline - gzline: 10 $nick

gzline $nick 12random

}

#trocanz end

3
11

Yardım kanalında 60 saniye konuşmayana ban

10 ay önce Bu yazı sabitlenmiştir.

•mIRC Hazır Kodları

menu menubar {
  .-
  Yönetici Eklentileri
  .! OperHelp Kanalında 60 Saniye Konuşmassa Banla
  ..Açık:.enable #operhelp60saniye | .echo -a 1,7 Help Konuşma Sistemi Açıldı 
  ..Kapalı:.disable #operhelp60saniye | .echo -a 1,7 Help Konuşma Sistemi Kapatıldı 
  .-
}

#operhelp60saniye off

on *:voice:#operhelp: {
  if ($nick == $me) $+(.timer,$vnick,_voice) 1 60 ban -k # $vnick 2 Bekleme Yapmak Yasaktır. %logo
}
on *:text:*:#operhelp: {
  if ($timer($nick $+ _voice)) $+(.timer,$v1) off
}

#operhelp60saniye end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

menu menubar {

.-

Yönetici Eklentileri

.! OperHelp Kanalında 60 Saniye Konuşmassa Banla

..Açık:.enable #operhelp60saniye | .echo -a 1,7 Help Konuşma Sistemi Açıldı

..Kapalı:.disable #operhelp60saniye | .echo -a 1,7 Help Konuşma Sistemi Kapatıldı

.-

}

#operhelp60saniye off

on *:voice:#operhelp: {

if ($nick == $me) $+(.timer,$vnick,_voice) 1 60 ban -k # $vnick 2 Bekleme Yapmak Yasaktır. %logo

}

on *:text:*:#operhelp: {

if ($timer($nick $+ _voice)) $+(.timer,$v1) off

}

#operhelp60saniye end

Yardım kanalında 60 saniye konuşmayana ban atma komutu

3
7

Sunucu Line Ban Listesi

10 ay önce Bu yazı sabitlenmiştir.

•mIRC Addonları, mIRC Hazır Kodları

Sunucu Line Ban Listesi Sunucuda atılan zline, gline, shun, kline listeleri addonda listeyeleyip üzerine tıkladığınız ipnin banını açmaya yarar.

##Sunucu ban listesi Menübar ve Statuse kısayol eklenecektir.

menu menubar,status {
  Sunucu Line IP Listesi:/sunucuban
}


alias sunucuban { .dialog -m glist glist } 

dialog glist {
  title "Sunucu Genel Ban Listesi"
  size -1 -1 423 149
  option dbu
  list 1, 2 10 82 126, size
  text "Gline Listesi", 4, 4 2 45 8
  button "« « KAPAT » »", 5, 170 116 82 20, flat ok
  list 2, 86 10 82 126, size
  list 3, 254 10 82 126, size
  text "Shun Listesi", 6, 86 2 71 8
  text "Zline Listesi", 7, 254 2 54 8
  text "Kaldırmak istediğiniz banın ip numarasının üzerine Çift tıklayınca ban kalkacak.", 8, 72 140 266 8
  list 9, 170 10 82 103, size
  text "G-Zline Listesi", 10, 170 2 65 8
  list 11, 338 10 82 126, size
  text "Kline Listesi", 12, 338 2 60 8
}


on *:dialog:glist:*:*:{
  if $devent == init {
    set %gkontrol on | .enable #bangizle | .stats g | .stats s | .stats k | .stats Z 
    .timer 1 1 .disable #bangizle
  }
  if $devent == dclick {
    if $did == 1 {
      gline $+(-*@, $did(1).seltext)
      did -d $dname 1 $did(1).sel
    }
    if $did == 2 {
      shun $+(-*@, $did(2).seltext)
      did -d $dname 2 $did(2).sel
    }
    if $did == 3 {
      zline $+(-*@, $did(3).seltext)
      did -d $dname 3 $did(3).sel
    }
    if $did == 9 {
      gzline $+(-*@, $did(9).seltext)
      did -d $dname 9 $did(9).sel
    }
    if $did == 11 {
      kline $+(-*@, $did(11).seltext)
      did -d $dname 11 $did(11).sel
    }
  }
  if $devent == close {
    write -c gline.txt
    write -c zline.txt
    write -c shun.txt
    write -c gzline.txt
    write -c kline.txt
  }
}

raw 223:*: { 
  if ($2 isincs G) && (%gkontrol == on) && ($dialog(glist)) {
    did -a glist 1 $gettok($3,2,64) | write gline.txt $gettok($3,2,64) 
    .timer 1 3 unset %gkontrol
  }
  if ($2 isincs z) && (%gkontrol == on) && ($dialog(glist)) {
    did -a glist 3 $gettok($3,2,64) | write zline.txt $gettok($3,2,64) 
  }
  if ($2 isincs s) && (%gkontrol == on) && ($dialog(glist)) {
    did -a glist 2 $gettok($3,2,64) | write shun.txt $gettok($3,2,64) 
  }
  if ($2 isincs Z) && (%gkontrol == on) && ($dialog(glist)) {
    did -a glist 9 $gettok($3,2,64) | write gzline.txt $gettok($3,2,64) 
  }
  if ($2 isincs K) && (%gkontrol == on) && ($dialog(glist)) {
    did -a glist 11 $gettok($3,2,64) | write kline.txt $gettok($3,2,64) 
  }
  /halt
}
alias glist { dialog -m glist glist }

#bangizle off
raw 223:*: { /halt }
raw 249:*: { /halt }
raw 219:*: { /halt }
raw 216:*: { /halt }
#bangizle end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

##Sunucu ban listesi Menübar ve Statuse kısayol eklenecektir.

menu menubar,status {

Sunucu Line IP Listesi:/sunucuban

}

alias sunucuban { .dialog -m glist glist }

dialog glist {

title "Sunucu Genel Ban Listesi"

size -1 -1 423 149

option dbu

list 1, 2 10 82 126, size

text "Gline Listesi", 4, 4 2 45 8

button "« « KAPAT » »", 5, 170 116 82 20, flat ok

list 2, 86 10 82 126, size

list 3, 254 10 82 126, size

text "Shun Listesi", 6, 86 2 71 8

text "Zline Listesi", 7, 254 2 54 8

text "Kaldırmak istediğiniz banın ip numarasının üzerine Çift tıklayınca ban kalkacak.", 8, 72 140 266 8

list 9, 170 10 82 103, size

text "G-Zline Listesi", 10, 170 2 65 8

list 11, 338 10 82 126, size

text "Kline Listesi", 12, 338 2 60 8

}

on *:dialog:glist:*:*:{

if $devent == init {

.timer 1 1 .disable #bangizle

}

if $devent == dclick {

if $did == 1 {

gline $+(-*@, $did(1).seltext)

did -d $dname 1 $did(1).sel

}

if $did == 2 {

shun $+(-*@, $did(2).seltext)

did -d $dname 2 $did(2).sel

}

if $did == 3 {

zline $+(-*@, $did(3).seltext)

did -d $dname 3 $did(3).sel

}

if $did == 9 {

gzline $+(-*@, $did(9).seltext)

did -d $dname 9 $did(9).sel

}

if $did == 11 {

kline $+(-*@, $did(11).seltext)

did -d $dname 11 $did(11).sel

}

if $devent == close {

write -c gline.txt

write -c zline.txt

write -c shun.txt

write -c gzline.txt

write -c kline.txt

}

raw 223:*: {

if ($2 isincs G) && (%gkontrol == on) && ($dialog(glist)) {

did -a glist 1 $gettok($3,2,64) | write gline.txt $gettok($3,2,64)

.timer 1 3 unset %gkontrol

}

if ($2 isincs z) && (%gkontrol == on) && ($dialog(glist)) {

did -a glist 3 $gettok($3,2,64) | write zline.txt $gettok($3,2,64)

}

if ($2 isincs s) && (%gkontrol == on) && ($dialog(glist)) {

did -a glist 2 $gettok($3,2,64) | write shun.txt $gettok($3,2,64)

}

if ($2 isincs Z) && (%gkontrol == on) && ($dialog(glist)) {

did -a glist 9 $gettok($3,2,64) | write gzline.txt $gettok($3,2,64)

}

if ($2 isincs K) && (%gkontrol == on) && ($dialog(glist)) {

did -a glist 11 $gettok($3,2,64) | write kline.txt $gettok($3,2,64)

}

/halt

}

alias glist { dialog -m glist glist }

#bangizle off

raw 223:*: { /halt }

raw 249:*: { /halt }

raw 219:*: { /halt }

raw 216:*: { /halt }

#bangizle end

Like
13

Kanal Küfür Koruma Addonu

10 ay önce Bu yazı sabitlenmiştir.

•mIRC Addonları, mIRC Hazır Kodları

Kanal küfür koruma remotesi

## www.mircclub.org

dialog swearprot {
  title "Kanal Küfür Koruması"
  size -1 -1 145 206
  option dbu
  box "Küfürde Dost Listesi", 1, 2 2 59 75
  edit "", 2, 6 10 50 10
  list 3, 6 20 50 38, size
  button "Ekle", 4, 6 61 16 12
  button "Sil", 5, 23 61 16 12
  button "Kaldır", 6, 40 61 16 12
  box "Küfür Entegre", 7, 2 78 59 75
  edit "", 8, 6 86 50 10
  list 9, 6 96 50 38, size
  button "Ekle", 10, 6 137 16 12
  button "Sil", 11, 23 137 16 12
  button "Kaldır", 12, 40 137 16 12
  box "Korunacaklar", 13, 64 2 79 48
  check "(@) Kanal Opları", 14, 69 11 70 10, group 1
  check "(+) Kanal Voiceleri", 15, 69 23 70 10
  check "Dost Listemdekiler", 16, 69 35 71 10
  box "Yapılacaklar", 17, 64 51 79 48
  radio "KickBan Süresiz", 18, 68 60 70 10, group 2
  radio "KickBan Süreli", 19, 68 72 69 10
  radio "Sadece Kickle", 20, 68 84 68 10
  box "Ban Tipi", 21, 64 100 79 53
  combo 22, 69 109 69 41, size drop
  box "Kick Mesajı & Ban Süresi.?", 23, 2 154 141 23
  edit "", 24, 6 162 110 10, autohs, disable
  edit "", 25, 117 162 22 10, autohs
  box "Ayarlar", 26, 2 178 72 22
  radio "Açık", 27, 7 186 30 10, group 3
  radio "Kapalı", 28, 39 186 30 10
  button "Kapat", 30, 79 181 63 19, ok
}

alias swearprot {
  if (!$dialog(swearprot)) { dialog -m swearprot swearprot }
}

on *:dialog:*:*:*:{
  if ($dname == swearprot) {
    if ($devent == sclick) {
      if ($did == 3) && ($did(3).seltext != $null) { did -ra $dname 2 $did(3).seltext }
      if ($did == 4) && ($did(2).text != $null) && ($numtok($did(2).text,32) == 1) {
        set %_ $numtok(%swearprot.friends.list,32)
        set %swearprot.friends.list $addtok(%swearprot.friends.list,$did(2).text,32)
        if (%_ != $numtok(%swearprot.friends.list,32)) {
          did -a $dname 3 $did(2).text | did -r $dname 2
        }
      }
      if ($did == 5) && ($did(3).sel != $null) {
        set %swearprot.friends.list $deltok(%swearprot.friends.list,$did(3).sel,32)
        did -r $dname 2,3 | didtok $dname 3 32 %swearprot.friends.list
      }
      if ($did == 6) { unset %swearprot.friends.list | did -r  $dname 2,3 }
      if ($did == 9) && ($did(9).seltext  != $null) { did -ra $dname 8 $did(9).seltext }
      if ($did == 10) && ($did(8).text != $null) {
        set %_ $numtok(%swearprot.filter,1)
        set %swearprot.filter $addtok(%swearprot.filter,$did(8).text,1)
        if (%_ != $numtok(%swearprot.filter,1)) {
          did -a $dname 9 $did(8).text | did -r $dname 8
        }
      }
      if ($did == 11) && ($did(9).sel != $null) {
        set %swearprot.filter $deltok(%swearprot.filter,$did(9).sel,1)
        did -r $dname 8,9 | didtok $dname 9 1 %swearprot.filter
      }
      if ($did == 12) { unset %swearprot.filter | did -r $dname 8,9 }
      if ($did == 14) { 
        if ($did(14).state == 0) { set %swearprot.protect.ops Off }
        if ($did(14).state == 1) { set %swearprot.protect.ops On }
      }
      if ($did == 15) { 
        if ($did(15).state == 0) { set %swearprot.protect.vos Off }
        if ($did(15).state == 1) { set %swearprot.protect.vos On }
      }
      if ($did == 16) {
        if ($did(16).state == 0) { set %swearprot.protect.frs Off }
        if ($did(16).state == 1) { set %swearprot.protect.frs On }
      }
      if ($did == 18) { set %swearprot.punish.style 1 }
      if ($did == 19) { set %swearprot.punish.style 2 }
      if ($did == 20) { set %swearprot.punish.style 3 }
      if ($did == 22) && ($did(22).sel != $null) { set %swearprot.banmask $did(22).sel }
      if ($did == 27) { set %swearprot.state On | echo -a %logo 1Küfür Koruması 3AÇILDI }
      if ($did == 28) { set %swearprot.state Off | echo -a %logo 1Küfür Koruması 4KAPATILDI } 
      if ($did == 29) { dialog -m swearprotabout swearprotabout }
    }
    if ($devent == edit) {
      if ($did == 24) && ($did(24).text != $null) {
        set %swearprot.kickmsg 0,14|0,15| 1Küfür Yasaktır! $date $time $me %logo |
      }
      if ($did == 25) && ($did(25).text != $null) {
        if ($iif($did(25).text isnum,1,2) == 1) { set %swearprot.bantime $did(25).text }
        if ($iif($did(25).text isnum,1,2) == 2) { did -r $dname 25 }
      }
    }
    if ($devent == init) && ($did == 0) {
      mdx SetBorderStyle 4,5,6,10,11,12,30 staticedge 
      did -a $dname 24 %swearprot.kickmsg
      did -a $dname 25 %swearprot.bantime
      didtok $dname 3 32 %swearprot.friends.list
      didtok $dname 9 1 %swearprot.filter
      did -a $dname 22 *!user@host
      did -a $dname 22 *!*user@host
      did -a $dname 22 *!*@host
      did -a $dname 22 *!*user@*.host
      did -a $dname 22 *!*@*.host
      did -a $dname 22 nick!user@host
      did -a $dname 22 nick!*user@host
      did -a $dname 22 nick!*@host
      did -a $dname 22 nick!*user@*.host
      did -a $dname 22 nick!*@*.host
      did -c $dname 22 %swearprot.banmask
      if (%swearprot.protect.ops == On) { did -c $dname 14 }
      if (%swearprot.protect.vos == On) { did -c $dname 15 }
      if (%swearprot.protect.frs == On) { did -c $dname 16 }
      if (%swearprot.punish.style == 1) { did -c $dname 18 }
      if (%swearprot.punish.style == 2) { did -c $dname 19 }
      if (%swearprot.punish.style == 3) { did -c $dname 20 }
      if (%swearprot.state == On) { did -c $dname 27 }
      if (%sweraprot.state == Off) { did -c $dname 28 }
    }
  }
  if ($dname == swearprotabout) {
    if ($devent == init) && ($did == 0) { did -m $dname 3,5,7 | did -f $dname 1 }
    if ($devent == sclick) { dialog -x $dname }
  }
}

on *:TEXT:*:#:{
  if (%swearprot.state == On) && ($me isop #) {
    if ($nick isop #) && (%swearprot.protect.ops == On) { halt }
    if ($nick isvo #) && (%swearprot.protect.vos == On) { halt }
    if ($istok(%swearprot.friends.list,$nick,32)) && (%swearprot.protect.frs == On) { halt }
    var %temp1 = 0
    while (%temp1 <= $numtok(%swearprot.filter,1)) {
      inc %temp1
      if ($gettok(%swearprot.filter,%temp1,1) isin $1-) { 
        if (%swearprot.punish.style == 1) {
          if ($nick ison #) && (%swearprot.banmask != $null) {
            mode # +b $address($nick,%swearprot.banmask)
            if ($nick ison #) {
              kick # $nick 14Küfür Yasaktır! 12 $me  %logo  |
            }
          }
        }
        if (%swearprot.punish.style == 2) {
          if ($nick ison #) && (%swearprot.banmask != $null) && (%swearprot.bantime != $null) {
            ban -u $+ [ %swearprot.bantime ] # $address($nick,%swearprot.banmask)
            if ($nick ison #) {
              kick # $nick 14Küfür Yasaktır! 12 $me  %logo  |
            }
          }
        }
        if (%swearprot.punish.style == 3) {
          if ($nick ison #) { kick # $nick 14Küfür Yasaktır! 12 $me  %logo  | }
        }
      }
    }
  }
}

on *:NOTICE:*:#:{
  if (%swearprot.state == On) && ($me isop #) {
    if ($nick isop #) && (%swearprot.protect.ops == On) { halt }
    if ($nick isvo #) && (%swearprot.protect.vos == On) { halt }
    if ($istok(%swearprot.friends.list,$nick,32)) && (%swearprot.protect.frs == On) { halt }
    var %temp2 = 0
    while (%temp2 <= $numtok(%swearprot.filter,1)) {
      inc %temp2
      if ($gettok(%swearprot.filter,%temp2,1) isin $1-) { 
        if (%swearprot.punish.style == 1) {
          if ($nick ison #) && (%swearprot.banmask != $null) {
            mode # +b $address($nick,%swearprot.banmask)
            if ($nick ison #) {
              kick # $nick 14Küfür Yasaktır! 12 $me  %logo  |
            }
          }
        }
        if (%swearprot.punish.style == 2) {
          if ($nick ison #) && (%swearprot.banmask != $null) && (%swearprot.bantime != $null) {
            ban -u $+ [ %swearprot.bantime ] # $address($nick,%swearprot.banmask)
            if ($nick ison #) {
              kick # $nick 14Küfür Yasaktır! 12 $me  %logo |
            }
          }
        }
        if (%swearprot.punish.style == 3) {
          if ($nick ison #) { kick # $nick 14Küfür Yasaktır! 12 $me  %logo  | }
        }
      }
    }
  }
}

on *:ACTION:*:#:{
  if (%swearprot.state == On) && ($me isop #) {
    if ($nick isop #) && (%swearprot.protect.ops == On) { halt }
    if ($nick isvo #) && (%swearprot.protect.vos == On) { halt }
    if ($istok(%swearprot.friends.list,$nick,32)) && (%swearprot.protect.frs == On) { halt }
    var %temp3 = 0
    while (%temp3 <= $numtok(%swearprot.filter,1)) {
      inc %temp3
      if ($gettok(%swearprot.filter,%temp3,1) isin $1-) { 
        if (%swearprot.punish.style == 1) {
          if ($nick ison #) && (%swearprot.banmask != $null) {
            mode # +b $address($nick,%swearprot.banmask)
            if ($nick ison #) {
              kick # $nick 14Küfür Yasaktır! 12 $me  %logo  |
            }
          }
        }
        if (%swearprot.punish.style == 2) {
          if ($nick ison #) && (%swearprot.banmask != $null) && (%swearprot.bantime != $null) {
            ban -u $+ [ %swearprot.bantime ] # $address($nick,%swearprot.banmask)
            if ($nick ison #) {
              kick # $nick 14Küfür Yasaktır! 12 $me  %logo |
            }
          }
        }
        if (%swearprot.punish.style == 3) {
          if ($nick ison #) { kick # $nick 14Küfür Yasaktır! 12 $me  %logo  | }
        }
      }
    }
  }
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

## www.mircclub.org

dialog swearprot {

title "Kanal Küfür Koruması"

size -1 -1 145 206

option dbu

box "Küfürde Dost Listesi", 1, 2 2 59 75

edit "", 2, 6 10 50 10

list 3, 6 20 50 38, size

button "Ekle", 4, 6 61 16 12

button "Sil", 5, 23 61 16 12

button "Kaldır", 6, 40 61 16 12

box "Küfür Entegre", 7, 2 78 59 75

edit "", 8, 6 86 50 10

list 9, 6 96 50 38, size

button "Ekle", 10, 6 137 16 12

button "Sil", 11, 23 137 16 12

button "Kaldır", 12, 40 137 16 12

box "Korunacaklar", 13, 64 2 79 48

check "(@) Kanal Opları", 14, 69 11 70 10, group 1

check "(+) Kanal Voiceleri", 15, 69 23 70 10

check "Dost Listemdekiler", 16, 69 35 71 10

box "Yapılacaklar", 17, 64 51 79 48

radio "KickBan Süresiz", 18, 68 60 70 10, group 2

radio "KickBan Süreli", 19, 68 72 69 10

radio "Sadece Kickle", 20, 68 84 68 10

box "Ban Tipi", 21, 64 100 79 53

combo 22, 69 109 69 41, size drop

box "Kick Mesajı & Ban Süresi.?", 23, 2 154 141 23

edit "", 24, 6 162 110 10, autohs, disable

edit "", 25, 117 162 22 10, autohs

box "Ayarlar", 26, 2 178 72 22

radio "Açık", 27, 7 186 30 10, group 3

radio "Kapalı", 28, 39 186 30 10

button "Kapat", 30, 79 181 63 19, ok

}

alias swearprot {

if (!$dialog(swearprot)) { dialog -m swearprot swearprot }

}

on *:dialog:*:*:*:{

if ($dname == swearprot) {

if ($devent == sclick) {

if ($did == 3) && ($did(3).seltext != $null) { did -ra $dname 2 $did(3).seltext }

if ($did == 4) && ($did(2).text != $null) && ($numtok($did(2).text,32) == 1) {

set %_ $numtok(%swearprot.friends.list,32)

set %swearprot.friends.list $addtok(%swearprot.friends.list,$did(2).text,32)

if (%_ != $numtok(%swearprot.friends.list,32)) {

did -a $dname 3 $did(2).text | did -r $dname 2

}

if ($did == 5) && ($did(3).sel != $null) {

set %swearprot.friends.list $deltok(%swearprot.friends.list,$did(3).sel,32)

did -r $dname 2,3 | didtok $dname 3 32 %swearprot.friends.list

}

if ($did == 6) { unset %swearprot.friends.list | did -r $dname 2,3 }

if ($did == 9) && ($did(9).seltext != $null) { did -ra $dname 8 $did(9).seltext }

if ($did == 10) && ($did(8).text != $null) {

set %_ $numtok(%swearprot.filter,1)

set %swearprot.filter $addtok(%swearprot.filter,$did(8).text,1)

if (%_ != $numtok(%swearprot.filter,1)) {

did -a $dname 9 $did(8).text | did -r $dname 8

}

if ($did == 11) && ($did(9).sel != $null) {

set %swearprot.filter $deltok(%swearprot.filter,$did(9).sel,1)

did -r $dname 8,9 | didtok $dname 9 1 %swearprot.filter

}

if ($did == 12) { unset %swearprot.filter | did -r $dname 8,9 }

if ($did == 14) {

if ($did(14).state == 0) { set %swearprot.protect.ops Off }

if ($did(14).state == 1) { set %swearprot.protect.ops On }

}

if ($did == 15) {

if ($did(15).state == 0) { set %swearprot.protect.vos Off }

if ($did(15).state == 1) { set %swearprot.protect.vos On }

}

if ($did == 16) {

if ($did(16).state == 0) { set %swearprot.protect.frs Off }

if ($did(16).state == 1) { set %swearprot.protect.frs On }

}

if ($did == 18) { set %swearprot.punish.style 1 }

if ($did == 19) { set %swearprot.punish.style 2 }

if ($did == 20) { set %swearprot.punish.style 3 }

if ($did == 22) && ($did(22).sel != $null) { set %swearprot.banmask $did(22).sel }

if ($did == 27) { set %swearprot.state On | echo -a %logo 1Küfür Koruması 3AÇILDI }

if ($did == 28) { set %swearprot.state Off | echo -a %logo 1Küfür Koruması 4KAPATILDI }

if ($did == 29) { dialog -m swearprotabout swearprotabout }

}

if ($devent == edit) {

if ($did == 24) && ($did(24).text != $null) {

set %swearprot.kickmsg 0,14|0,15| 1Küfür Yasaktır! $date $time $me %logo |

}

if ($did == 25) && ($did(25).text != $null) {

if ($iif($did(25).text isnum,1,2) == 1) { set %swearprot.bantime $did(25).text }

if ($iif($did(25).text isnum,1,2) == 2) { did -r $dname 25 }

}

if ($devent == init) && ($did == 0) {

mdx SetBorderStyle 4,5,6,10,11,12,30 staticedge

did -a $dname 24 %swearprot.kickmsg

did -a $dname 25 %swearprot.bantime

didtok $dname 3 32 %swearprot.friends.list

didtok $dname 9 1 %swearprot.filter

did -a $dname 22 *!user@host

did -a $dname 22 *!*user@host

did -a $dname 22 *!*@host

did -a $dname 22 *!*user@*.host

did -a $dname 22 *!*@*.host

did -a $dname 22 nick!user@host

did -a $dname 22 nick!*user@host

did -a $dname 22 nick!*@host

did -a $dname 22 nick!*user@*.host

did -a $dname 22 nick!*@*.host

did -c $dname 22 %swearprot.banmask

if (%swearprot.protect.ops == On) { did -c $dname 14 }

if (%swearprot.protect.vos == On) { did -c $dname 15 }

if (%swearprot.protect.frs == On) { did -c $dname 16 }

if (%swearprot.punish.style == 1) { did -c $dname 18 }

if (%swearprot.punish.style == 2) { did -c $dname 19 }

if (%swearprot.punish.style == 3) { did -c $dname 20 }

if (%swearprot.state == On) { did -c $dname 27 }

if (%sweraprot.state == Off) { did -c $dname 28 }

}

if ($dname == swearprotabout) {

if ($devent == init) && ($did == 0) { did -m $dname 3,5,7 | did -f $dname 1 }

if ($devent == sclick) { dialog -x $dname }

}

on *:TEXT:*:#:{

if (%swearprot.state == On) && ($me isop #) {

if ($nick isop #) && (%swearprot.protect.ops == On) { halt }

if ($nick isvo #) && (%swearprot.protect.vos == On) { halt }

if ($istok(%swearprot.friends.list,$nick,32)) && (%swearprot.protect.frs == On) { halt }

var %temp1 = 0

while (%temp1 <= $numtok(%swearprot.filter,1)) {

inc %temp1

if ($gettok(%swearprot.filter,%temp1,1) isin $1-) {

if (%swearprot.punish.style == 1) {

if ($nick ison #) && (%swearprot.banmask != $null) {

mode # +b $address($nick,%swearprot.banmask)

if ($nick ison #) {

kick # $nick 14Küfür Yasaktır! 12 $me %logo |

}

if (%swearprot.punish.style == 2) {

if ($nick ison #) && (%swearprot.banmask != $null) && (%swearprot.bantime != $null) {

ban -u $+ [ %swearprot.bantime ] # $address($nick,%swearprot.banmask)

if ($nick ison #) {

kick # $nick 14Küfür Yasaktır! 12 $me %logo |

}

if (%swearprot.punish.style == 3) {

if ($nick ison #) { kick # $nick 14Küfür Yasaktır! 12 $me %logo | }

}

on *:NOTICE:*:#:{

if (%swearprot.state == On) && ($me isop #) {

if ($nick isop #) && (%swearprot.protect.ops == On) { halt }

if ($nick isvo #) && (%swearprot.protect.vos == On) { halt }

if ($istok(%swearprot.friends.list,$nick,32)) && (%swearprot.protect.frs == On) { halt }

var %temp2 = 0

while (%temp2 <= $numtok(%swearprot.filter,1)) {

inc %temp2

if ($gettok(%swearprot.filter,%temp2,1) isin $1-) {

if (%swearprot.punish.style == 1) {

if ($nick ison #) && (%swearprot.banmask != $null) {

mode # +b $address($nick,%swearprot.banmask)

if ($nick ison #) {

kick # $nick 14Küfür Yasaktır! 12 $me %logo |

}

if (%swearprot.punish.style == 2) {

if ($nick ison #) && (%swearprot.banmask != $null) && (%swearprot.bantime != $null) {

ban -u $+ [ %swearprot.bantime ] # $address($nick,%swearprot.banmask)

if ($nick ison #) {

kick # $nick 14Küfür Yasaktır! 12 $me %logo |

}

if (%swearprot.punish.style == 3) {

if ($nick ison #) { kick # $nick 14Küfür Yasaktır! 12 $me %logo | }

}

on *:ACTION:*:#:{

if (%swearprot.state == On) && ($me isop #) {

if ($nick isop #) && (%swearprot.protect.ops == On) { halt }

if ($nick isvo #) && (%swearprot.protect.vos == On) { halt }

if ($istok(%swearprot.friends.list,$nick,32)) && (%swearprot.protect.frs == On) { halt }

var %temp3 = 0

while (%temp3 <= $numtok(%swearprot.filter,1)) {

inc %temp3

if ($gettok(%swearprot.filter,%temp3,1) isin $1-) {

if (%swearprot.punish.style == 1) {

if ($nick ison #) && (%swearprot.banmask != $null) {

mode # +b $address($nick,%swearprot.banmask)

if ($nick ison #) {

kick # $nick 14Küfür Yasaktır! 12 $me %logo |

}

if (%swearprot.punish.style == 2) {

if ($nick ison #) && (%swearprot.banmask != $null) && (%swearprot.bantime != $null) {

ban -u $+ [ %swearprot.bantime ] # $address($nick,%swearprot.banmask)

if ($nick ison #) {

kick # $nick 14Küfür Yasaktır! 12 $me %logo |

}

if (%swearprot.punish.style == 3) {

if ($nick ison #) { kick # $nick 14Küfür Yasaktır! 12 $me %logo | }

}

Like
3

$iif($eval($+(%,checkbadnicks.,$network,.,$chan),2) == $true,$style(1)) BadNick :{ set %checkbadnicks. [ $+ [ $network ] $+ . $+ [ $chan ] ] $iif(%checkbadnicks. [ $+ [ $network ] $+ . $+ [ $chan ] ] == $false,$true,$false) | echo -at 7>4DİKKAT7< $+ $color(ctcp) Badnick koruması $+ $color(ctcp) $iif($eval($+(%,checkbadnicks.,$network,.,$chan),2) == $true, $+($chr(3),00,$chr(44),03,$chr(32),$chan,$chr(32),$chr(3)),$+($chr(3),01,$chr(44),14,$chr(32),$chan,$chr(32),$chr(3))) 4kanalı için $iif($eval($+(%,checkbadnicks.,$network,.,$chan),2) == $true, $+($chr(3),00,$chr(44),03,$chr(32),ACILDI,$chr(32),$chr(3)),$+($chr(3),01,$chr(44),14,$chr(32),KAPATILDI,$chr(32),$chr(3))) }

-

}

on BadNick:JOIN:#:{

if (%checkbadnicks. [ $+ [ $network ] $+ . $+ [ $chan ] ] == $true) {

if ($nick($chan,$me,@&~%)) {

.mode # +b $nick

.kick # $nick 4,1-=^0,1Kufur, hakaret, skype/cam veya cinsellik ifade eden rumuzlari kullanamazsiniz %logo

}

1
5

Mirc Spamfilter Hareket Takibi

1 sene önce Bu yazı sabitlenmiştir.

•mIRC Hazır Kodları

IRC sunucusunda eklenen, silinen ve düzenlenen spamları bir pencerede takip etmenize yarayan kod.

on *:dialog:spam:*:*: {
if $devent == sclick {
if $did == 35 { set %tspamsil on | spamfilter }
if $did(4).state == 1 { set %yaptirim zline }
if $did(3).state == 1 { set %yaptirim gline }
if $did(9).state == 1 { set %yaptirim kline }
if $did(5).state == 1 { set %yaptirim gzline }
if $did(1).state == 1 { set %yaptirim shun }
if $did(7).state == 1 { set %yaptirim tempshun }
if $did(6).state == 1 { set %yaptirim block }
if $did(2).state == 1 { set %yaptirim dccblock }
if $did(8).state == 1 { set %yaptirim kill }
if $did(12).state == 1 { set %yaptirim1 c }
else { unset %yaptirim1 }
if $did(17).state == 1 { set %yaptirim2 N }
else { unset %yaptirim2 }
if $did(20).state == 1 { set %yaptirim3 q }
else { unset %yaptirim3 }
if $did(13).state == 1 { set %yaptirim4 p }
else { unset %yaptirim4 }
if $did(15).state == 1 { set %yaptirim5 n }
else { unset %yaptirim5 }
if $did(18).state == 1 { set %yaptirim6 p }
else { unset %yaptirim6 }
if $did(14).state == 1 { set %yaptirim7 t }
else { unset %yaptirim7 }
if $did(19).state == 1 { set %yaptirim8 a }
else { unset %yaptirim8 }
if $did(16).state == 1 { set %yaptirim9 d }
else { unset %yaptirim9 }
if $did(23) != $null { set %ssure $did(23) }
if $did(25) != $null { set %ssebep $did(25) }
if $did(28) != $null { set %skelime $did(28) }
if $did == 34 { /spamfilter }
if $did == 33 { /spamfilter del $$?”Parametreyi Yazınız. Yani Neleri Yasakladıgınızı Özel Msg Kanal Msg Quit,Topic Vb.” $$?”Ceza Türünü Yazınız Zline,Gline Vb.” – – $$?”Cezai Kelimeyi(Sileceğiniz Kelimeyi) Yazınız” }
if $did == 32 { spamfilter add %yaptirim1 $+ %yaptirim2 $+ %yaptirim3 $+ %yaptirim4 $+ %yaptirim5 $+ %yaptirim6 $+ %yaptirim7 $+ %yaptirim8 $+ %yaptirim9 %yaptirim $did(23) $+ d $did(25) $did(28) }
if $did == 35 { set %tspamsil on | spamfilter }
}
if $devent == init {
if %yaptirim == zline { did -c $dname 4 }
if %yaptirim == gline { did -c $dname 3 }
if %yaptirim == kline { did -c $dname 9 }
if %yaptirim == gzline { did -c $dname 5 }
if %yaptirim == shun { did -c $dname 1 }
if %yaptirim == tempshun { did -c $dname 7 }
if %yaptirim == block { did -c $dname 6 }
if %yaptirim == dccblock { did -c $dname 2 }
if %yaptirim == kill { did -c $dname 8 }
did -a $dname 23 %ssure
did -a $dname 25 %ssebep
did -a $dname 28 %skelime
}
if $devent == close {
unset %yaptirim*
}
}
raw 229:*: {
if %tspamsil == on {
/spamfilter del $3 $4 $7 $8 $10-
.timerufuk2 1 2 unset %tspamsil
.timerufuk 1 2 echo -as 4Tüm Spamlar Silindi. Eğer Silinmeyen Varsa Unrealircd.Conf’tan Kaldırmalısınız.
}
$iif(!$window(@SpamFiLter),window -nC @SpamFiLter) {
echo -e @SpamFilter 12Atılan Parametreler:4 $qt($3) 12Ceza Türü:4 $qt($4) 12Atılma Süresi:4 $qt($6) 12Atılma Sebebi:4 $qt($8) 12Atılan Kelime:4 $qt($remove($10,:)) 12Atan Nick:4 $qt($gettok($9,1,33)) $qt(10SPAMI SİL)
haltdef
}
}
on ^*:snotice:*: {
if $2 == removed && $3 == spamfilter {
$iif(!$window(@biLgi),window -nC @biLgi) {
echo -et @biLgi 7»º» 10[Spamfilter] 1Hareket: 12[KALDIRMA] 1Kaldıran Nick:4 $gettok($1,1,33) 1Kaldırılan Kelime:4 $remove($4,’) | halt
}
}
if $2 == Spamfilter && $3 == added: {
$iif(!$window(@biLgi),window -nC @biLgi) {
echo -et @biLgi 7»º» 10[Spamfilter] 1Hareket: 12[Aktif Etme] 1Atan Nick:4 $gettok($19,1,33) 1Atılan Parametreler: 4 $remove($6,]) 1 1Atılma Sebebi:4 $remove($10,]) 1Atılan Kelime:4 $remove($4,’) | halt
}
}
if $1 == [Spamfilter] && $3 == matches && $4 == filter {
$iif(!$window(@biLgi),window -nC @biLgi) {
echo -et @biLgi 7»º» 10[SPAMFİLTER TAKILMA] 12Takılan Nick:4 $gettok($2,1,33) 12Takılan İp:4 $gettok($2,2,64) 3Spamdaki Ekli Kelime:4 $remove($5,:,’) 7Userin Yazdığı Kelime:4 $remove($8-,’,]) | halt
}
}
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

on *:dialog:spam:*:*: {

if $devent == sclick {

if $did == 35 { set %tspamsil on | spamfilter }

if $did(4).state == 1 { set %yaptirim zline }

if $did(3).state == 1 { set %yaptirim gline }

if $did(9).state == 1 { set %yaptirim kline }

if $did(5).state == 1 { set %yaptirim gzline }

if $did(1).state == 1 { set %yaptirim shun }

if $did(7).state == 1 { set %yaptirim tempshun }

if $did(6).state == 1 { set %yaptirim block }

if $did(2).state == 1 { set %yaptirim dccblock }

if $did(8).state == 1 { set %yaptirim kill }

if $did(12).state == 1 { set %yaptirim1 c }

else { unset %yaptirim1 }

if $did(17).state == 1 { set %yaptirim2 N }

else { unset %yaptirim2 }

if $did(20).state == 1 { set %yaptirim3 q }

else { unset %yaptirim3 }

if $did(13).state == 1 { set %yaptirim4 p }

else { unset %yaptirim4 }

if $did(15).state == 1 { set %yaptirim5 n }

else { unset %yaptirim5 }

if $did(18).state == 1 { set %yaptirim6 p }

else { unset %yaptirim6 }

if $did(14).state == 1 { set %yaptirim7 t }

else { unset %yaptirim7 }

if $did(19).state == 1 { set %yaptirim8 a }

else { unset %yaptirim8 }

if $did(16).state == 1 { set %yaptirim9 d }

else { unset %yaptirim9 }

if $did(23) != $null { set %ssure $did(23) }

if $did(25) != $null { set %ssebep $did(25) }

if $did(28) != $null { set %skelime $did(28) }

if $did == 34 { /spamfilter }

if $did == 33 { /spamfilter del $$?”Parametreyi Yazınız. Yani Neleri Yasakladıgınızı Özel Msg Kanal Msg Quit,Topic Vb.” $$?”Ceza Türünü Yazınız Zline,Gline Vb.” – – $$?”Cezai Kelimeyi(Sileceğiniz Kelimeyi) Yazınız” }

if $did == 32 { spamfilter add %yaptirim1 $+ %yaptirim2 $+ %yaptirim3 $+ %yaptirim4 $+ %yaptirim5 $+ %yaptirim6 $+ %yaptirim7 $+ %yaptirim8 $+ %yaptirim9 %yaptirim $did(23) $+ d $did(25) $did(28) }

if $did == 35 { set %tspamsil on | spamfilter }

}

if $devent == init {

if %yaptirim == zline { did -c $dname 4 }

if %yaptirim == gline { did -c $dname 3 }

if %yaptirim == kline { did -c $dname 9 }

if %yaptirim == gzline { did -c $dname 5 }

if %yaptirim == shun { did -c $dname 1 }

if %yaptirim == tempshun { did -c $dname 7 }

if %yaptirim == block { did -c $dname 6 }

if %yaptirim == dccblock { did -c $dname 2 }

if %yaptirim == kill { did -c $dname 8 }

did -a $dname 23 %ssure

did -a $dname 25 %ssebep

did -a $dname 28 %skelime

}

if $devent == close {

unset %yaptirim*

}

raw 229:*: {

if %tspamsil == on {

/spamfilter del $3 $4 $7 $8 $10-

.timerufuk2 1 2 unset %tspamsil

.timerufuk 1 2 echo -as 4Tüm Spamlar Silindi. Eğer Silinmeyen Varsa Unrealircd.Conf’tan Kaldırmalısınız.

}

$iif(!$window(@SpamFiLter),window -nC @SpamFiLter) {

echo -e @SpamFilter 12Atılan Parametreler:4 $qt($3) 12Ceza Türü:4 $qt($4) 12Atılma Süresi:4 $qt($6) 12Atılma Sebebi:4 $qt($8) 12Atılan Kelime:4 $qt($remove($10,:)) 12Atan Nick:4 $qt($gettok($9,1,33)) $qt(10SPAMI SİL)

haltdef

}

on ^*:snotice:*: {

if $2 == removed && $3 == spamfilter {

$iif(!$window(@biLgi),window -nC @biLgi) {

echo -et @biLgi 7»º» 10[Spamfilter] 1Hareket: 12[KALDIRMA] 1Kaldıran Nick:4 $gettok($1,1,33) 1Kaldırılan Kelime:4 $remove($4,’) | halt

}

if $2 == Spamfilter && $3 == added: {

$iif(!$window(@biLgi),window -nC @biLgi) {

echo -et @biLgi 7»º» 10[Spamfilter] 1Hareket: 12[Aktif Etme] 1Atan Nick:4 $gettok($19,1,33) 1Atılan Parametreler: 4 $remove($6,]) 1 1Atılma Sebebi:4 $remove($10,]) 1Atılan Kelime:4 $remove($4,’) | halt

}

if $1 == [Spamfilter] && $3 == matches && $4 == filter {

$iif(!$window(@biLgi),window -nC @biLgi) {

echo -et @biLgi 7»º» 10[SPAMFİLTER TAKILMA] 12Takılan Nick:4 $gettok($2,1,33) 12Takılan İp:4 $gettok($2,2,64) 3Spamdaki Ekli Kelime:4 $remove($5,:,’) 7Userin Yazdığı Kelime:4 $remove($8-,’,]) | halt

}

Like
9

Log Okuyucu (Dialog)

1 sene önce Bu yazı sabitlenmiştir.

•mIRC Hazır Kodları

on *:load: { 
  .echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Log Okuyucu $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: Log Okuyucu $chr(40) $+ v5.4 $+ $chr(41))
  echo -a _____________________________________________________________________________________
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Add-On yükleniyor... 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Çalışan mIRC15 $version 0Sistem15 Windows $+ $os 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Coder: 15SaNCaK 0,1 E-Mail: 15sancak@outlook.com.tr 
  echo -a 4,1[00,01 SaNCaK 4,1] 15,1 Copyright 12©15 1999-2017 
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: { 
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Log Okuyucu $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: Log Okuyucu $chr(40) $+ v5.4 $+ $chr(41))
}

menu menubar,channel {
Log Okuyucu: { dialog -m blog blog }
}

dialog blog {
  title "Log Okuyucu"
  size 380 257 385 260
  box "", 8, 1 -2 382 260
  list 1, 2 6 212 250, size
  box "Ara:", 2, 215 -2 168 116, flat
  check "Nick:", 3, 222 15 53 13, flat
  edit "", 4, 221 28 115 23, multi return
  text "for", 23, 49 60 21 13, hide
  text ".log", 5, 338 36 25 17
  check "Yazılarda Ara:", 6, 222 55 103 13, flat
  edit "", 7, 221 68 145 23, multi return
  box "Info:", 9, 215 106 168 102
  text "Kayıt:", 10, 222 122 53 13
  text "Göster", 25, 71 73 27 13, hide
  text "Son Değişiklik:", 11, 222 147 113 13
  text "Add-on", 21, 21 33 38 14, hide
  text "Boyut:", 12, 220 171 101 13
  box "Tercih:", 13, 215 200 168 58
  text "Rc", 24, 56 72 15 13, hide
  text "", 14, 222 135 153 13
  text "", 15, 222 159 151 13
  text "", 16, 222 185 151 13
  button "Oku", 17, 222 219 45 21, flat
  button "Sil", 18, 269 219 45 21, flat
  button "Kapat", 19, 316 219 45 21, ok flat
  text "Feito", 22, 41 47 26 14, hide
  button "Ara", 26, 306 91 75 21, flat
}
on *:dialog:blog:sclick:17:{  window @log | loadbuf -rp @log $+(",%blog.dir,$$did(blog,1,$did(blog,1).sel).seltext,") }
on *:dialog:blog:sclick:18:{ .remove $+(",%blog.dir,$$did(blog,1,$did(blog,1).sel).seltext,") | did -d blog 1 $did(blog,1).sel }
on *:dialog:blog:sclick:26:{
  if ($did(3).state == 1) || ($did(6).state == 1) {
    if ($did(3).state == 1) {
      set %blog.nome $+($as1($did(blog,4)).log)
    }
    else {
      set %blog.nome *.log
    }
    if ($did(6).state == 1) {
      set %blog.text $as1($did(blog,7))
    }
    else {
      set %blog.text *
    }
    blog.findfile1 
    halt
  }
  echo -a 0,1 Arama yapÄ±lmasÄ± iÃ§in seÃ§enek kutusuna tÄ±klayÄ±nÄ±z 
}
on *:dialog:blog:init:*:{
  set %blog.dir $logdir
  blog.finddir
}
on *:dialog:blog:sclick:1:{
  if (*.log iswm $did(blog,1,$did(blog,1).sel).seltext) {
    did -r blog 14,15,16
    var %blog.arquivo $+(%blog.dir,$did(blog,1,$did(blog,1).sel).seltext)
    did -a blog 14 $asctime($file(%blog.arquivo).ctime)
    did -a blog 15 $asctime($file(%blog.arquivo).mtime)
    did -a blog 16 $bytes($file(%blog.arquivo),k).suf
  }
}

on *:dialog:blog:dclick:1:{
  if (*.log !iswm $did(blog,1,$did(blog,1).sel).seltext) {
    did -r blog 14,15,16
    if ($left($right($did(blog,1,$did(blog,1).sel).seltext,-1),-1) == ..) && ($did(blog,1).sel == 1) {
      if (!%blog.busca) {
        var %blog1 $wildtok(%blog.dir,*,0,92) 
        var %blog3 [ $+(1-,[ [  $calc(%blog1 - 1) ] ]) ]
        var %blog2 $+($gettok(%blog.dir,[ [ %blog3 ] ],92),\)
        set %blog.dir [ %blog2 ]   
        did -r blog 1 
        blog.finddir
        halt
      }
      did -r blog 1
      unset %blog.busca
      blog.finddir
      halt
    }
    set %blog.dir $+(%blog.dir,$left($right($did(blog,1,$did(blog,1).sel).seltext,-1),-1),\)
    did -r blog 1
    blog.finddir
    halt
  }
  window @log
  loadbuf -rp @log $+(%blog.dir,$did(blog,1,$did(blog,1).sel).seltext)
}
alias as1 {
  if ($1) {
    if ($left($1,1) == *) {
      var %r $1-
      goto 2
    }
    var %r $+(*,$1-)
    :2
    if ($right($1-,1) == *) {
      var %r [ %r ]
      goto 3
    }
    var %r $+(%r,*)
    :3
    return %r
  }
  return *
}

alias blog.findfile1 {
  did -r blog 1
  window -hs @logview
  window -hs @logview1
  set %blog 0
  :comeco
  inc %blog
  tokenize 32 $findfile(%blog.dir,%blog.nome,%blog)
  var %blog1 $wildtok($1-,*,0,92) 
  var %blog3 $+(1-,[ [  $calc(%blog1 - 1) ] ])
  var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)
  if (%blog2) {
    if (%blog2 == %blog.dir) && (%blog.text != *) {
      filter -p $+(",$1-,") @logview1 %blog.text
      if ($filtered) {
        did -r blog 1
        aline @logview $remove($1,%blog.dir)
        goto comeco
      }
      goto comeco
    }
    if (%blog2 == %blog.dir) {
      aline @logview $remove($1,%blog.dir)
      goto comeco
    }
  }
  if ($line(@logview,1)) {
    set %blog 1
    did -a blog 1 [..]
    while ($line(@logview,%blog)) {
      did -a blog 1 $line(@logview,%blog)
      inc %blog
    }
  }
  else {
    did -a blog 1 [..]
    did -a blog 1 No file was found
  }
  set %blog.busca CURIOSO!!!
  window -c @logview1
  window -c @logview
}
alias blog.finddir {
  var %blog 0 
  if (%blog.dir != $logdir) {
    did -a blog 1 [..]
  }
  :comeco
  inc %blog
  tokenize 32 $finddir(%blog.dir,*,%blog)
  var %blog1 $wildtok($1-,*,0,92) 
  var %blog3 $+(1-,[ [  $calc(%blog1 - 1) ] ])
  var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)
  if (%blog2 == %blog.dir) {
    did -a blog 1 $+([,$remove($1-,%blog.dir),])
    goto comeco
  }
  blog.findfile
}
alias blog.findfile {
  window -sh @logview
  var %blog 0 
  :comeco
  inc %blog
  tokenize 32 $findfile(%blog.dir,*.log,%blog)
  var %blog1 $wildtok($1-,*,0,92) 
  var %blog3 $+(1-,[ [  $calc(%blog1 - 1) ] ])
  var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)
  if (%blog2 == %blog.dir) {
    aline @logview $remove($1-,%blog.dir)
    goto comeco
  }
  var %blog 1
  while ($line(@logview,%blog)) {
    did -a blog 1 $line(@logview,%blog)
    inc %blog
  }
  window -c @logview
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

on *:load: {

.echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Log Okuyucu $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: Log Okuyucu $chr(40) $+ v5.4 $+ $chr(41))

echo -a _____________________________________________________________________________________

echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Add-On yükleniyor...

echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Çalışan mIRC15 $version 0Sistem15 Windows $+ $os

echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Coder: 15SaNCaK 0,1 E-Mail: 15sancak@outlook.com.tr

echo -a 4,1[00,01 SaNCaK 4,1] 15,1 Copyright 12©15 1999-2017

echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

}

on *:unload: {

.echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Log Okuyucu $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: Log Okuyucu $chr(40) $+ v5.4 $+ $chr(41))

}

menu menubar,channel {

Log Okuyucu: { dialog -m blog blog }

}

dialog blog {

title "Log Okuyucu"

size 380 257 385 260

box "", 8, 1 -2 382 260

list 1, 2 6 212 250, size

box "Ara:", 2, 215 -2 168 116, flat

check "Nick:", 3, 222 15 53 13, flat

edit "", 4, 221 28 115 23, multi return

text "for", 23, 49 60 21 13, hide

text ".log", 5, 338 36 25 17

check "Yazılarda Ara:", 6, 222 55 103 13, flat

edit "", 7, 221 68 145 23, multi return

box "Info:", 9, 215 106 168 102

text "Kayıt:", 10, 222 122 53 13

text "Göster", 25, 71 73 27 13, hide

text "Son Değişiklik:", 11, 222 147 113 13

text "Add-on", 21, 21 33 38 14, hide

text "Boyut:", 12, 220 171 101 13

box "Tercih:", 13, 215 200 168 58

text "Rc", 24, 56 72 15 13, hide

text "", 14, 222 135 153 13

text "", 15, 222 159 151 13

text "", 16, 222 185 151 13

button "Oku", 17, 222 219 45 21, flat

button "Sil", 18, 269 219 45 21, flat

button "Kapat", 19, 316 219 45 21, ok flat

text "Feito", 22, 41 47 26 14, hide

button "Ara", 26, 306 91 75 21, flat

}

on *:dialog:blog:sclick:17:{ window @log | loadbuf -rp @log $+(",%blog.dir,$$did(blog,1,$did(blog,1).sel).seltext,") }

on *:dialog:blog:sclick:18:{ .remove $+(",%blog.dir,$$did(blog,1,$did(blog,1).sel).seltext,") | did -d blog 1 $did(blog,1).sel }

on *:dialog:blog:sclick:26:{

if ($did(3).state == 1) || ($did(6).state == 1) {

if ($did(3).state == 1) {

set %blog.nome $+($as1($did(blog,4)).log)

}

else {

set %blog.nome *.log

}

if ($did(6).state == 1) {

set %blog.text $as1($did(blog,7))

}

else {

set %blog.text *

}

blog.findfile1

halt

}

echo -a 0,1 Arama yapÄ±lmasÄ± iÃ§in seÃ§enek kutusuna tÄ±klayÄ±nÄ±z

}

on *:dialog:blog:init:*:{

set %blog.dir $logdir

blog.finddir

}

on *:dialog:blog:sclick:1:{

if (*.log iswm $did(blog,1,$did(blog,1).sel).seltext) {

did -r blog 14,15,16

var %blog.arquivo $+(%blog.dir,$did(blog,1,$did(blog,1).sel).seltext)

did -a blog 14 $asctime($file(%blog.arquivo).ctime)

did -a blog 15 $asctime($file(%blog.arquivo).mtime)

did -a blog 16 $bytes($file(%blog.arquivo),k).suf

}

on *:dialog:blog:dclick:1:{

if (*.log !iswm $did(blog,1,$did(blog,1).sel).seltext) {

did -r blog 14,15,16

if ($left($right($did(blog,1,$did(blog,1).sel).seltext,-1),-1) == ..) && ($did(blog,1).sel == 1) {

if (!%blog.busca) {

var %blog1 $wildtok(%blog.dir,*,0,92)

var %blog3 [ $+(1-,[ [ $calc(%blog1 - 1) ] ]) ]

var %blog2 $+($gettok(%blog.dir,[ [ %blog3 ] ],92),\)

set %blog.dir [ %blog2 ]

did -r blog 1

blog.finddir

halt

}

did -r blog 1

unset %blog.busca

blog.finddir

halt

}

set %blog.dir $+(%blog.dir,$left($right($did(blog,1,$did(blog,1).sel).seltext,-1),-1),\)

did -r blog 1

blog.finddir

halt

}

window @log

loadbuf -rp @log $+(%blog.dir,$did(blog,1,$did(blog,1).sel).seltext)

}

alias as1 {

if ($1) {

if ($left($1,1) == *) {

var %r $1-

goto 2

}

var %r $+(*,$1-)

:2

if ($right($1-,1) == *) {

var %r [ %r ]

goto 3

}

var %r $+(%r,*)

:3

return %r

}

return *

}

alias blog.findfile1 {

did -r blog 1

window -hs @logview

window -hs @logview1

set %blog 0

:comeco

inc %blog

tokenize 32 $findfile(%blog.dir,%blog.nome,%blog)

var %blog1 $wildtok($1-,*,0,92)

var %blog3 $+(1-,[ [ $calc(%blog1 - 1) ] ])

var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)

if (%blog2) {

if (%blog2 == %blog.dir) && (%blog.text != *) {

filter -p $+(",$1-,") @logview1 %blog.text

if ($filtered) {

did -r blog 1

aline @logview $remove($1,%blog.dir)

goto comeco

}

goto comeco

}

if (%blog2 == %blog.dir) {

aline @logview $remove($1,%blog.dir)

goto comeco

}

if ($line(@logview,1)) {

set %blog 1

did -a blog 1 [..]

while ($line(@logview,%blog)) {

did -a blog 1 $line(@logview,%blog)

inc %blog

}

else {

did -a blog 1 [..]

did -a blog 1 No file was found

}

set %blog.busca CURIOSO!!!

window -c @logview1

window -c @logview

}

alias blog.finddir {

var %blog 0

if (%blog.dir != $logdir) {

did -a blog 1 [..]

}

:comeco

inc %blog

tokenize 32 $finddir(%blog.dir,*,%blog)

var %blog1 $wildtok($1-,*,0,92)

var %blog3 $+(1-,[ [ $calc(%blog1 - 1) ] ])

var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)

if (%blog2 == %blog.dir) {

did -a blog 1 $+([,$remove($1-,%blog.dir),])

goto comeco

}

blog.findfile

}

alias blog.findfile {

window -sh @logview

var %blog 0

:comeco

inc %blog

tokenize 32 $findfile(%blog.dir,*.log,%blog)

var %blog1 $wildtok($1-,*,0,92)

var %blog3 $+(1-,[ [ $calc(%blog1 - 1) ] ])

var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)

if (%blog2 == %blog.dir) {

aline @logview $remove($1-,%blog.dir)

goto comeco

}

var %blog 1

while ($line(@logview,%blog)) {

did -a blog 1 $line(@logview,%blog)

inc %blog

}

window -c @logview

}

3
10

Format atarken disk bölünme sorunu

1 sene önce Bu yazı sabitlenmiştir.

•Bilgisayar Yardım

Format atarken disk seçme kısmına geldiğinizde diskinizi ikiye bölemiyorsanız, diskinizi biçimlendiremiyorsanız veya diski seçtiğinizde kurulum hatası veriyorsan aşağıdaki işlemleri sırası ile yapmanız durumunda sorununuz ortadan kalkacaktır. Hata ekran resmi genelde bu şekilde oluşur. Bu durum genelde windows 10 dan windows...

Like
7

Mirc Oper, Nick Şifresi ve Oto Giriş Kanalları Düzenleme

1 sene önce Bu yazı sabitlenmiştir.

•mIRC Addonları, mIRC Hazır Kodları

Otomatik nick şifresi girme, oper şifresi girme, oto join kanal listenizi düzenleme ve sunucuya bağlanınca nickinizi kaydetme gibi özelliklere sahip bir addondur. Mirc scriptinizin remote kısmına ekleyerek kullanmaya başlayabilirsiniz. sysa komutu ile ayarlar sekmesine girebilirsiniz.

### Oto şifre oper ve kanal giriş sistemi çeviridir.

alias motident3 { dialog -m sysa sysa | did -c sysa 74 }
alias sclick { if ($_vr(soundcon,click) == 1) { blast $_vr(soundcon,73) } }
dialog sysa {
  title "Otomatik Nick Şifresi ve Kanal Sistemi"
  size 300 75 141 191
  option dbu
  tab "Oto ident ve Oper", 1, 3 4 133 159
  edit "", 7, 7 86 128 10, tab 1 return autohs autovs
  box "Nick Tanımlayıcısı", 10, 6 19 130 37, tab 1
  text "Nick Şifresi", 11, 42 36 69 8, tab 1 center
  edit "", 8, 7 43 128 10, tab 1 pass multi return autohs autovs
  check "Bağlantı Kurmak için tıklayın", 12, 9 66 124 9, tab 1
  box "Oper Aktif", 13, 6 58 130 104, tab 1
  text "Oper Şifresi", 15, 37 134 70 8, tab 1 center
  edit "", 14, 7 142 128 10, tab 1 pass multi return autohs autovs
  text "Oper Nickinizi Buradan Ayarlayabilirsiniz  ", 16, 10 114 122 20, tab 1 center
  text "Oper Nick", 9, 59 77 40 8, tab 1 center
  button "Oper aktif", 48, 8 153 59 8, tab 1 flat
  button "Deaktif Oper", 49, 75 153 59 8, tab 1 flat
  text "Başlangıçda AÇ? --=>", 4, 10 101 59 8, tab 1 center
  radio "Evet", 41, 72 101 21 8, tab 1
  radio "Hayır", 42, 96 101 20 8, tab 1
  button "Identify", 52, 103 77 30 8, tab 1 flat
  button "Oper Nick", 51, 8 77 45 8, tab 1 flat
  tab "Oto Giriş", 17
  box "Oto Giriş", 18, 9 20 128 142, tab 17
  edit "", 19, 11 41 50 10, tab 17 return autohs autovs
  edit "", 20, 11 53 50 10, tab 17 return autohs autovs
  edit "", 21, 11 65 50 10, tab 17 return autohs autovs
  edit "", 22, 11 77 50 10, tab 17 return autohs autovs
  edit "", 23, 11 89 50 10, tab 17 return autohs autovs
  edit "", 24, 11 101 50 10, tab 17 return autohs autovs
  edit "", 25, 11 113 50 10, tab 17 return autohs autovs
  edit "", 26, 11 125 50 10, tab 17 return autohs autovs
  edit "", 27, 11 137 50 10, tab 17 return autohs autovs
  edit "", 28, 11 149 50 10, tab 17 return autohs autovs
  check " #Kanal 1", 29, 91 41 42 10, tab 17
  check " #Kanal 2", 30, 91 53 42 10, tab 17
  check " #Kanal 3", 31, 91 65 42 10, tab 17
  check " #Kanal 4", 32, 91 77 42 10, tab 17
  check " #Kanal 5", 33, 91 89 42 10, tab 17
  check " #Kanal 6", 34, 91 101 42 10, tab 17
  check " #Kanal 7", 35, 91 113 42 10, tab 17
  check " #Kanal 8", 36, 91 125 42 10, tab 17
  check " #Kanal 9", 37, 91 137 42 10, tab 17
  check " #Kanal 10", 38, 91 149 43 10, tab 17
  text "Kanallar", 39, 13 31 46 8, tab 17 center
  text "Tümü aktif", 40, 82 32 50 8, tab 17
  button "Giriş", 43, 61 42 15 8, tab 17 flat
  button "Tümü", 62, 61 24 20 8, tab 17 flat
  button "Giriş", 53, 61 54 15 8, tab 17 flat
  button "Giriş", 54, 61 66 15 8, tab 17 flat
  button "Giriş", 55, 61 78 15 8, tab 17 flat
  button "Giriş", 56, 61 90 15 8, tab 17 flat
  button "Giriş", 57, 61 102 15 8, tab 17 flat
  button "Giriş", 58, 61 114 15 8, tab 17 flat
  button "Giriş", 59, 61 126 15 8, tab 17 flat
  button "Giriş", 60, 61 138 15 8, tab 17 flat
  button "Giriş", 61, 61 150 15 8, tab 17 flat
  button "Tümü", 63, 61 33 20 8, tab 17 flat
  button "Çıkış", 64, 77 42 13 8, tab 17 flat
  button "Çıkış", 65, 77 54 13 8, tab 17 flat
  button "Çıkış", 66, 77 66 13 8, tab 17 flat
  button "Çıkış", 67, 77 78 13 8, tab 17 flat
  button "Çıkış", 68, 77 90 13 8, tab 17 flat
  button "Çıkış", 69, 77 102 13 8, tab 17 flat
  button "Çıkış", 70, 77 114 13 8, tab 17 flat
  button "Çıkış", 71, 77 126 13 8, tab 17 flat
  button "Çıkış", 72, 77 138 13 8, tab 17 flat
  button "Çıkış", 73, 77 150 13 8, tab 17 flat
  tab "Kayıt", 74
  box "Kanal Kayıt", 76, 5 117 130 45, tab 74
  edit "", 77, 31 88 102 10, tab 74 return autohs autovs
  text "Şifre", 78, 6 89 25 8, tab 74 center
  text "E-mail adresi", 80, 6 99 30 8, tab 74 center
  button "Kayıt", 81, 6 108 31 9, tab 74 flat
  edit "", 79, 36 98 96 10, tab 74 return autohs autovs
  edit "", 82, 7 131 58 10, tab 74 return autohs autovs
  text "#Kanal", 83, 8 124 25 7, tab 74 center
  edit "", 84, 66 131 67 10, tab 74 return autohs autovs
  text "Şifre", 85, 67 124 25 7, tab 74
  button "Kayıt#", 86, 8 152 31 9, tab 74 flat
  text "Takma isminizi kaydetmek için, nickinizi yazınız, 'Nick değiştir' ve ardından şifreniz ve e-posta adresiniz 'Kayıt Ol'a tıklayınız. Kayıtlı bir takma adınız olduğunda, sohbet odalarına katılıp kayıt olabilirsiniz!", 89, 8 36 123 27, tab 74
  edit "", 93, 41 141 92 10, tab 74 return autohs autovs
  text "# Açıklama", 94, 8 142 33 8, tab 74 center
  box "Talimanlar", 95, 5 19 130 63, tab 74
  button "Sil", 91, 101 108 31 9, tab 74 flat
  button "Sil #", 90, 101 152 31 9, tab 74 flat
  box "Nick kayıt", 75, 5 81 130 37, tab 74
  button "Grup", 98, 38 108 31 9, tab 74 flat
  button "Aktif ol #", 97, 55 152 31 9, tab 74 flat
  edit "", 87, 6 63 127 9, tab 74 return autohs autovs
  button "Ghost", 46, 7 72 30 8, tab 74 flat
  button "Recover", 47, 102 72 30 8, tab 74 flat
  button "Identify", 88, 70 108 30 9, tab 74 flat
  check "Oto identify aktif et", 6, 6 27 127 9, tab 74
  button "Kanal nick", 92, 52 72 37 8, tab 74 flat
  button "Giriş #", 99, 34 124 31 8, tab 74 flat
  button "Çıkış", 3, 20 179 98 9, flat ok
  box "", 5, 0 165 141 26
  box "", 2, 0 167 141 24
  text "KraLaz", 50, 75 171 32 7, center
}
on *:dialog:sysa:init:0:{
  if (%nickident == on) { 
    did -c sysa 6 
  } 
  if (%oper == on) { 
    did -c sysa 12 
  }
  if (%chl.1 == on) { did -c sysa 29 }
  if (%chl.2 == on) { did -c sysa 30 }
  if (%chl.3 == on) { did -c sysa 31 }
  if (%chl.4 == on) { did -c sysa 32 }
  if (%chl.5 == on) { did -c sysa 33 }
  if (%chl.6 == on) { did -c sysa 34 }
  if (%chl.7 == on) { did -c sysa 35 }
  if (%chl.8 == on) { did -c sysa 36 }
  if (%chl.9 == on) { did -c sysa 37 }
  if (%chl.10 == on) { did -c sysa 38 }
  if (%startupz2 == on) { did -c sysa 41 }
  if (%startupz2 == off) { did -c sysa 42 }
  did -a sysa 28 %chnl.j
  did -a sysa 19 %chnl.a
  did -a sysa 20 %chnl.b
  did -a sysa 21 %chnl.c
  did -a sysa 22 %chnl.d
  did -a sysa 23 %chnl.e
  did -a sysa 24 %chnl.f
  did -a sysa 25 %chnl.g
  did -a sysa 26 %chnl.h
  did -a sysa 27 %chnl.i
  did -a sysa 7 %opernick1
  did -a sysa 8 %nickserv.pass 
  did -a sysa 14 %operpass1
  did -a sysa 77 %nickserv.pass  
  did -a sysa 79 %email.alpha
  did -a sysa 82 %reg.chan
  did -a sysa 84 %pass.chan
  did -a sysa 93 %desc.chan
  did -a sysa 87 %nick.alpha
}
on *:dialog:sysa:edit:7: { 
  if ($did == 7) { 
    set %opernick1 $did(sysa,7).text 
  }
}
on *:dialog:sysa:edit:8: {
  if ($did == 8) { 
    set %nickserv.pass  $did(sysa,8).text 
  }
}
on *:dialog:sysa:edit:14: {
  if ($did == 14) { 
    set %operpass1 $did(sysa,14).text 
  }
}
on *:dialog:sysa:edit:19: {
  if ($did == 19) { set %chnl.a $did(sysa,19).text }
}
on *:dialog:sysa:edit:20: {
  if ($did == 20) { set %chnl.b $did(sysa,20).text }
}
on *:dialog:sysa:edit:21: {
  if ($did == 21) { set %chnl.c $did(sysa,21).text }
}
on *:dialog:sysa:edit:22: {
  if ($did == 22) { set %chnl.d $did(sysa,22).text }
}
on *:dialog:sysa:edit:23: {
  if ($did == 23) { set %chnl.e $did(sysa,23).text }
}
on *:dialog:sysa:edit:24: {
  if ($did == 24) { set %chnl.f $did(sysa,24).text }
}
on *:dialog:sysa:edit:25: {
  if ($did == 25) { set %chnl.g $did(sysa,25).text }
}
on *:dialog:sysa:edit:26: {
  if ($did == 26) { set %chnl.h $did(sysa,26).text }
}
on *:dialog:sysa:edit:27: {
  if ($did == 27) { set %chnl.i $did(sysa,27).text }
}
on *:dialog:sysa:edit:28: {
  if ($did == 28) { set %chnl.j $did(sysa,28).text }
}
on *:dialog:sysa:edit:77: {
  if ($did == 77) { 
    set %nickserv.pass $did(sysa,77).text 
  }
}
on *:dialog:sysa:edit:79: {
  if ($did == 79) { 
    set %email.alpha $did(sysa,79).text 
  }
}
on *:dialog:sysa:edit:82: {
  if ($did == 82) { set %reg.chan $did(sysa,82).text }
}
on *:dialog:sysa:edit:84: {
  if ($did == 84) { set %pass.chan $did(sysa,84).text }
}
on *:dialog:sysa:edit:93: {
  if ($did == 93) { set %desc.chan $did(sysa,93).text }
}
on *:dialog:sysa:edit:87: {
  if ($did == 87) { 
    set %nick.alpha $did(sysa,87).text 
  }
}
on *:dialog:sysa:sclick:3:{
  if ($did(sysa,6).state == 1) { set %nickident on }
  else { set %nickident off }
  if ($did(sysa,12).state == 1) { set %oper on }
  else { set %oper off }
  if ($did(sysa,29).state == 1) { set %chl.1 on }
  else { set %chl.1  off }
  if ($did(sysa,30).state == 1) { set %chl.2 on }
  else { set %chl.2  off }
  if ($did(sysa,31).state == 1) { set %chl.3 on }
  else { set %chl.3  off }
  if ($did(sysa,32).state == 1) { set %chl.4 on }
  else { set %chl.4  off }
  if ($did(sysa,33).state == 1) { set %chl.5 on }
  else { set %chl.5  off }
  if ($did(sysa,34).state == 1) { set %chl.6 on }
  else { set %chl.6  off }
  if ($did(sysa,35).state == 1) { set %chl.7 on }
  else { set %chl.7  off }
  if ($did(sysa,36).state == 1) { set %chl.8 on }
  else { set %chl.8  off }
  if ($did(sysa,37).state == 1) { set %chl.9 on }
  else { set %chl.9  off }
  if ($did(sysa,38).state == 1) { set %chl.10 on }
  else { set %chl.10  off }
  set %chnl.a $did(sysa,19).text
  set %chnl.b $did(sysa,20).text
  set %chnl.c $did(sysa,21).text
  set %chnl.d $did(sysa,22).text
  set %chnl.e $did(sysa,23).text
  set %chnl.f $did(sysa,24).text
  set %chnl.g $did(sysa,25).text
  set %chnl.h $did(sysa,26).text
  set %chnl.i $did(sysa,27).text
  set %chnl.j $did(sysa,28).text
  set %opernick1 $did(sysa,7).text
  set %nick.alpha $did(sysa,87).text
  set %nickserv.pass  $did(sysa,8).text
  set %operpass1 $did(sysa,14).text
  set %nickserv.pass $did(sysa,77).text 
  set %email.alpha $did(sysa,79).text 
  set %reg.chan $did(sysa,82).text
  set %pass.chan $did(sysa,84).text 
  set %desc.chan $did(sysa,93).text
  did -h sysa 3
  did -v sysa 3
  dialog -c sysa sysa  
}
on *:dialog:sysa:sclick:43: { join %chnl.a }
on *:dialog:sysa:sclick:53: { join %chnl.b }
on *:dialog:sysa:sclick:54: { join %chnl.c }
on *:dialog:sysa:sclick:55: { join %chnl.d }
on *:dialog:sysa:sclick:56: { join %chnl.e }
on *:dialog:sysa:sclick:57: { join %chnl.f }
on *:dialog:sysa:sclick:58: { join %chnl.g }
on *:dialog:sysa:sclick:59: { join %chnl.h }
on *:dialog:sysa:sclick:60: { join %chnl.i }
on *:dialog:sysa:sclick:61: { join %chnl.j }
on *:dialog:sysa:sclick:62: { join %chnl.a $+ , $+ %chnl.b $+ , $+ %chnl.c $+ , $+ %chnl.d $+ , $+ %chnl.e $+ , $+ %chnl.f $+ , $+  %chnl.g $+ , $+ %chnl.h $+ , $+ %chnl.i $+ , $+ %chnl.j }
on *:dialog:sysa:sclick:64: { part %chnl.a }
on *:dialog:sysa:sclick:65: { part %chnl.b }
on *:dialog:sysa:sclick:66: { part %chnl.c }
on *:dialog:sysa:sclick:67: { part %chnl.d }
on *:dialog:sysa:sclick:68: { part %chnl.e }
on *:dialog:sysa:sclick:69: { part %chnl.f }
on *:dialog:sysa:sclick:70: { part %chnl.g }
on *:dialog:sysa:sclick:71: { part %chnl.h }
on *:dialog:sysa:sclick:72: { part %chnl.i }
on *:dialog:sysa:sclick:73: { part %chnl.j }
on *:dialog:sysa:sclick:63: { part %chnl.a $+ , $+ %chnl.b $+ , $+ %chnl.c $+ , $+ %chnl.d $+ , $+ %chnl.e $+ , $+ %chnl.f $+ , $+  %chnl.g $+ , $+ %chnl.h $+ , $+ %chnl.i $+ , $+ %chnl.j }
on *:dialog:sysa:sclick:77:  { 
  set %nickserv.pass $did(sysa,77).text 
}
on *:dialog:sysa:sclick:79:  { set %email.alpha $did(sysa,79).text }
on *:dialog:sysa:sclick:82: { set %reg.chan $did(sysa,82).text }
on *:dialog:sysa:sclick:84: { set %pass.chan $did(sysa,84).text }
on *:dialog:sysa:sclick:93: { set %desc.chan $did(sysa,93).text }
on *:dialog:sysa:sclick:81: { ns REGISTER  %nickserv.pass %email.alpha }
on *:dialog:sysa:sclick:91: { ns DROP }
on *:dialog:sysa:sclick:86: { cs REGISTER %reg.chan %pass.chan %desc.chan }
on *:dialog:sysa:sclick:90: { cs DROP %reg.chan }
on *:dialog:sysa:sclick:97:  { cs IDENTIFY %reg.chan %pass.chan }
on *:dialog:sysa:sclick:98: { ns GROUP $$?="Nickname:" %nickserv.pass  }
on *:dialog:sysa:sclick:99: { join %reg.chan }
on 1:CONNECT:{
  ajar
}
alias ajar {
  if (%nickident == on) { 
    nick %nick.alpha 
    ns IDENTIFY %nickserv.pass  
  }
  if (%oper == on) && (%nickident == on) {
    oper %opernick1 %operpass1
    mode $me +s +eakcfjvGFWz 
    mode $me +q 
  }
  if (%chl.1 == on) {
    join %chnl.a
  }
  if (%chl.2 == on) {
    join %chnl.b
  }
  if (%chl.3 == on) {
    join %chnl.c
  }
  if (%chl.4 == on) {
    join %chnl.d
  }
  if (%chl.5 == on) {
    join %chnl.e
  }
  if (%chl.6 == on) {
    join %chnl.f
  }
  if (%chl.7 == on) {
    join %chnl.g
  }
  if (%chl.8 == on) {
    join %chnl.h
  }
  if (%chl.9 == on) {
    join %chnl.i
  }
  if (%chl.10 == on) {
    join %chnl.j
  }
}
on *:dialog:sysa:sclick:41: { enable #startupz2 | set %startupz2 on | sclick }
on *:dialog:sysa:sclick:42: { disable #startupz2 | set %startupz2 off | sclick }
on *:dialog:sysa:sclick:51: { nick %opernick1 }
on *:dialog:sysa:sclick:92: { nick %nick.alpha }
on *:dialog:sysa:sclick:52: { ns IDENTIFY %nickserv.pass  }
on *:dialog:sysa:sclick:88: { ns IDENTIFY %nickserv.pass  }
on *:dialog:sysa:sclick:49: { mode $me -o }
on *:dialog:sysa:sclick:48: { oper %opernick1 %operpass1 | //mode $me +s +eakcfjvGFWz | //mode $me +q }
on *:dialog:sysa:sclick:46: { ns GHOST %nick.alpha %nickserv.pass  }
on *:dialog:sysa:sclick:47: { 
  ns RECOVER %nick.alpha %nickserv.pass  
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

### Oto şifre oper ve kanal giriş sistemi çeviridir.

alias motident3 { dialog -m sysa sysa | did -c sysa 74 }

alias sclick { if ($_vr(soundcon,click) == 1) { blast $_vr(soundcon,73) } }

dialog sysa {

title "Otomatik Nick Şifresi ve Kanal Sistemi"

size 300 75 141 191

option dbu

tab "Oto ident ve Oper", 1, 3 4 133 159

edit "", 7, 7 86 128 10, tab 1 return autohs autovs

box "Nick Tanımlayıcısı", 10, 6 19 130 37, tab 1

text "Nick Şifresi", 11, 42 36 69 8, tab 1 center

edit "", 8, 7 43 128 10, tab 1 pass multi return autohs autovs

check "Bağlantı Kurmak için tıklayın", 12, 9 66 124 9, tab 1

box "Oper Aktif", 13, 6 58 130 104, tab 1

text "Oper Şifresi", 15, 37 134 70 8, tab 1 center

edit "", 14, 7 142 128 10, tab 1 pass multi return autohs autovs

text "Oper Nickinizi Buradan Ayarlayabilirsiniz ", 16, 10 114 122 20, tab 1 center

text "Oper Nick", 9, 59 77 40 8, tab 1 center

button "Oper aktif", 48, 8 153 59 8, tab 1 flat

button "Deaktif Oper", 49, 75 153 59 8, tab 1 flat

text "Başlangıçda AÇ? --=>", 4, 10 101 59 8, tab 1 center

radio "Evet", 41, 72 101 21 8, tab 1

radio "Hayır", 42, 96 101 20 8, tab 1

button "Identify", 52, 103 77 30 8, tab 1 flat

button "Oper Nick", 51, 8 77 45 8, tab 1 flat

tab "Oto Giriş", 17

box "Oto Giriş", 18, 9 20 128 142, tab 17

edit "", 19, 11 41 50 10, tab 17 return autohs autovs

edit "", 20, 11 53 50 10, tab 17 return autohs autovs

edit "", 21, 11 65 50 10, tab 17 return autohs autovs

edit "", 22, 11 77 50 10, tab 17 return autohs autovs

edit "", 23, 11 89 50 10, tab 17 return autohs autovs

edit "", 24, 11 101 50 10, tab 17 return autohs autovs

edit "", 25, 11 113 50 10, tab 17 return autohs autovs

edit "", 26, 11 125 50 10, tab 17 return autohs autovs

edit "", 27, 11 137 50 10, tab 17 return autohs autovs

edit "", 28, 11 149 50 10, tab 17 return autohs autovs

check " #Kanal 1", 29, 91 41 42 10, tab 17

check " #Kanal 2", 30, 91 53 42 10, tab 17

check " #Kanal 3", 31, 91 65 42 10, tab 17

check " #Kanal 4", 32, 91 77 42 10, tab 17

check " #Kanal 5", 33, 91 89 42 10, tab 17

check " #Kanal 6", 34, 91 101 42 10, tab 17

check " #Kanal 7", 35, 91 113 42 10, tab 17

check " #Kanal 8", 36, 91 125 42 10, tab 17

check " #Kanal 9", 37, 91 137 42 10, tab 17

check " #Kanal 10", 38, 91 149 43 10, tab 17

text "Kanallar", 39, 13 31 46 8, tab 17 center

text "Tümü aktif", 40, 82 32 50 8, tab 17

button "Giriş", 43, 61 42 15 8, tab 17 flat

button "Tümü", 62, 61 24 20 8, tab 17 flat

button "Giriş", 53, 61 54 15 8, tab 17 flat

button "Giriş", 54, 61 66 15 8, tab 17 flat

button "Giriş", 55, 61 78 15 8, tab 17 flat

button "Giriş", 56, 61 90 15 8, tab 17 flat

button "Giriş", 57, 61 102 15 8, tab 17 flat

button "Giriş", 58, 61 114 15 8, tab 17 flat

button "Giriş", 59, 61 126 15 8, tab 17 flat

button "Giriş", 60, 61 138 15 8, tab 17 flat

button "Giriş", 61, 61 150 15 8, tab 17 flat

button "Tümü", 63, 61 33 20 8, tab 17 flat

button "Çıkış", 64, 77 42 13 8, tab 17 flat

button "Çıkış", 65, 77 54 13 8, tab 17 flat

button "Çıkış", 66, 77 66 13 8, tab 17 flat

button "Çıkış", 67, 77 78 13 8, tab 17 flat

button "Çıkış", 68, 77 90 13 8, tab 17 flat

button "Çıkış", 69, 77 102 13 8, tab 17 flat

button "Çıkış", 70, 77 114 13 8, tab 17 flat

button "Çıkış", 71, 77 126 13 8, tab 17 flat

button "Çıkış", 72, 77 138 13 8, tab 17 flat

button "Çıkış", 73, 77 150 13 8, tab 17 flat

tab "Kayıt", 74

box "Kanal Kayıt", 76, 5 117 130 45, tab 74

edit "", 77, 31 88 102 10, tab 74 return autohs autovs

text "Şifre", 78, 6 89 25 8, tab 74 center

text "E-mail adresi", 80, 6 99 30 8, tab 74 center

button "Kayıt", 81, 6 108 31 9, tab 74 flat

edit "", 79, 36 98 96 10, tab 74 return autohs autovs

edit "", 82, 7 131 58 10, tab 74 return autohs autovs

text "#Kanal", 83, 8 124 25 7, tab 74 center

edit "", 84, 66 131 67 10, tab 74 return autohs autovs

text "Şifre", 85, 67 124 25 7, tab 74

button "Kayıt#", 86, 8 152 31 9, tab 74 flat

text "Takma isminizi kaydetmek için, nickinizi yazınız, 'Nick değiştir' ve ardından şifreniz ve e-posta adresiniz 'Kayıt Ol'a tıklayınız. Kayıtlı bir takma adınız olduğunda, sohbet odalarına katılıp kayıt olabilirsiniz!", 89, 8 36 123 27, tab 74

edit "", 93, 41 141 92 10, tab 74 return autohs autovs

text "# Açıklama", 94, 8 142 33 8, tab 74 center

box "Talimanlar", 95, 5 19 130 63, tab 74

button "Sil", 91, 101 108 31 9, tab 74 flat

button "Sil #", 90, 101 152 31 9, tab 74 flat

box "Nick kayıt", 75, 5 81 130 37, tab 74

button "Grup", 98, 38 108 31 9, tab 74 flat

button "Aktif ol #", 97, 55 152 31 9, tab 74 flat

edit "", 87, 6 63 127 9, tab 74 return autohs autovs

button "Ghost", 46, 7 72 30 8, tab 74 flat

button "Recover", 47, 102 72 30 8, tab 74 flat

button "Identify", 88, 70 108 30 9, tab 74 flat

check "Oto identify aktif et", 6, 6 27 127 9, tab 74

button "Kanal nick", 92, 52 72 37 8, tab 74 flat

button "Giriş #", 99, 34 124 31 8, tab 74 flat

button "Çıkış", 3, 20 179 98 9, flat ok

box "", 5, 0 165 141 26

box "", 2, 0 167 141 24

text "KraLaz", 50, 75 171 32 7, center

}

on *:dialog:sysa:init:0:{

if (%nickident == on) {

did -c sysa 6

}

if (%oper == on) {

did -c sysa 12

}

if (%chl.1 == on) { did -c sysa 29 }

if (%chl.2 == on) { did -c sysa 30 }

if (%chl.3 == on) { did -c sysa 31 }

if (%chl.4 == on) { did -c sysa 32 }

if (%chl.5 == on) { did -c sysa 33 }

if (%chl.6 == on) { did -c sysa 34 }

if (%chl.7 == on) { did -c sysa 35 }

if (%chl.8 == on) { did -c sysa 36 }

if (%chl.9 == on) { did -c sysa 37 }

if (%chl.10 == on) { did -c sysa 38 }

if (%startupz2 == on) { did -c sysa 41 }

if (%startupz2 == off) { did -c sysa 42 }

did -a sysa 28 %chnl.j

did -a sysa 19 %chnl.a

did -a sysa 20 %chnl.b

did -a sysa 21 %chnl.c

did -a sysa 22 %chnl.d

did -a sysa 23 %chnl.e

did -a sysa 24 %chnl.f

did -a sysa 25 %chnl.g

did -a sysa 26 %chnl.h

did -a sysa 27 %chnl.i

did -a sysa 7 %opernick1

did -a sysa 8 %nickserv.pass

did -a sysa 14 %operpass1

did -a sysa 77 %nickserv.pass

did -a sysa 79 %email.alpha

did -a sysa 82 %reg.chan

did -a sysa 84 %pass.chan

did -a sysa 93 %desc.chan

did -a sysa 87 %nick.alpha

}

on *:dialog:sysa:edit:7: {

if ($did == 7) {

set %opernick1 $did(sysa,7).text

}

on *:dialog:sysa:edit:8: {

if ($did == 8) {

set %nickserv.pass $did(sysa,8).text

}

on *:dialog:sysa:edit:14: {

if ($did == 14) {

set %operpass1 $did(sysa,14).text

}

on *:dialog:sysa:edit:19: {

if ($did == 19) { set %chnl.a $did(sysa,19).text }

}

on *:dialog:sysa:edit:20: {

if ($did == 20) { set %chnl.b $did(sysa,20).text }

}

on *:dialog:sysa:edit:21: {

if ($did == 21) { set %chnl.c $did(sysa,21).text }

}

on *:dialog:sysa:edit:22: {

if ($did == 22) { set %chnl.d $did(sysa,22).text }

}

on *:dialog:sysa:edit:23: {

if ($did == 23) { set %chnl.e $did(sysa,23).text }

}

on *:dialog:sysa:edit:24: {

if ($did == 24) { set %chnl.f $did(sysa,24).text }

}

on *:dialog:sysa:edit:25: {

if ($did == 25) { set %chnl.g $did(sysa,25).text }

}

on *:dialog:sysa:edit:26: {

if ($did == 26) { set %chnl.h $did(sysa,26).text }

}

on *:dialog:sysa:edit:27: {

if ($did == 27) { set %chnl.i $did(sysa,27).text }

}

on *:dialog:sysa:edit:28: {

if ($did == 28) { set %chnl.j $did(sysa,28).text }

}

on *:dialog:sysa:edit:77: {

if ($did == 77) {

set %nickserv.pass $did(sysa,77).text

}

on *:dialog:sysa:edit:79: {

if ($did == 79) {

set %email.alpha $did(sysa,79).text

}

on *:dialog:sysa:edit:82: {

if ($did == 82) { set %reg.chan $did(sysa,82).text }

}

on *:dialog:sysa:edit:84: {

if ($did == 84) { set %pass.chan $did(sysa,84).text }

}

on *:dialog:sysa:edit:93: {

if ($did == 93) { set %desc.chan $did(sysa,93).text }

}

on *:dialog:sysa:edit:87: {

if ($did == 87) {

set %nick.alpha $did(sysa,87).text

}

on *:dialog:sysa:sclick:3:{

if ($did(sysa,6).state == 1) { set %nickident on }

else { set %nickident off }

if ($did(sysa,12).state == 1) { set %oper on }

else { set %oper off }

if ($did(sysa,29).state == 1) { set %chl.1 on }

else { set %chl.1 off }

if ($did(sysa,30).state == 1) { set %chl.2 on }

else { set %chl.2 off }

if ($did(sysa,31).state == 1) { set %chl.3 on }

else { set %chl.3 off }

if ($did(sysa,32).state == 1) { set %chl.4 on }

else { set %chl.4 off }

if ($did(sysa,33).state == 1) { set %chl.5 on }

else { set %chl.5 off }

if ($did(sysa,34).state == 1) { set %chl.6 on }

else { set %chl.6 off }

if ($did(sysa,35).state == 1) { set %chl.7 on }

else { set %chl.7 off }

if ($did(sysa,36).state == 1) { set %chl.8 on }

else { set %chl.8 off }

if ($did(sysa,37).state == 1) { set %chl.9 on }

else { set %chl.9 off }

if ($did(sysa,38).state == 1) { set %chl.10 on }

else { set %chl.10 off }

set %chnl.a $did(sysa,19).text

set %chnl.b $did(sysa,20).text

set %chnl.c $did(sysa,21).text

set %chnl.d $did(sysa,22).text

set %chnl.e $did(sysa,23).text

set %chnl.f $did(sysa,24).text

set %chnl.g $did(sysa,25).text

set %chnl.h $did(sysa,26).text

set %chnl.i $did(sysa,27).text

set %chnl.j $did(sysa,28).text

set %opernick1 $did(sysa,7).text

set %nick.alpha $did(sysa,87).text

set %nickserv.pass $did(sysa,8).text

set %operpass1 $did(sysa,14).text

set %nickserv.pass $did(sysa,77).text

set %email.alpha $did(sysa,79).text

set %reg.chan $did(sysa,82).text

set %pass.chan $did(sysa,84).text

set %desc.chan $did(sysa,93).text

did -h sysa 3

did -v sysa 3

dialog -c sysa sysa

}

on *:dialog:sysa:sclick:43: { join %chnl.a }

on *:dialog:sysa:sclick:53: { join %chnl.b }

on *:dialog:sysa:sclick:54: { join %chnl.c }

on *:dialog:sysa:sclick:55: { join %chnl.d }

on *:dialog:sysa:sclick:56: { join %chnl.e }

on *:dialog:sysa:sclick:57: { join %chnl.f }

on *:dialog:sysa:sclick:58: { join %chnl.g }

on *:dialog:sysa:sclick:59: { join %chnl.h }

on *:dialog:sysa:sclick:60: { join %chnl.i }

on *:dialog:sysa:sclick:61: { join %chnl.j }

on *:dialog:sysa:sclick:62: { join %chnl.a $+ , $+ %chnl.b $+ , $+ %chnl.c $+ , $+ %chnl.d $+ , $+ %chnl.e $+ , $+ %chnl.f $+ , $+ %chnl.g $+ , $+ %chnl.h $+ , $+ %chnl.i $+ , $+ %chnl.j }

on *:dialog:sysa:sclick:64: { part %chnl.a }

on *:dialog:sysa:sclick:65: { part %chnl.b }

on *:dialog:sysa:sclick:66: { part %chnl.c }

on *:dialog:sysa:sclick:67: { part %chnl.d }

on *:dialog:sysa:sclick:68: { part %chnl.e }

on *:dialog:sysa:sclick:69: { part %chnl.f }

on *:dialog:sysa:sclick:70: { part %chnl.g }

on *:dialog:sysa:sclick:71: { part %chnl.h }

on *:dialog:sysa:sclick:72: { part %chnl.i }

on *:dialog:sysa:sclick:73: { part %chnl.j }

on *:dialog:sysa:sclick:63: { part %chnl.a $+ , $+ %chnl.b $+ , $+ %chnl.c $+ , $+ %chnl.d $+ , $+ %chnl.e $+ , $+ %chnl.f $+ , $+ %chnl.g $+ , $+ %chnl.h $+ , $+ %chnl.i $+ , $+ %chnl.j }

on *:dialog:sysa:sclick:77: {

set %nickserv.pass $did(sysa,77).text

}

on *:dialog:sysa:sclick:79: { set %email.alpha $did(sysa,79).text }

on *:dialog:sysa:sclick:82: { set %reg.chan $did(sysa,82).text }

on *:dialog:sysa:sclick:84: { set %pass.chan $did(sysa,84).text }

on *:dialog:sysa:sclick:93: { set %desc.chan $did(sysa,93).text }

on *:dialog:sysa:sclick:81: { ns REGISTER %nickserv.pass %email.alpha }

on *:dialog:sysa:sclick:91: { ns DROP }

on *:dialog:sysa:sclick:86: { cs REGISTER %reg.chan %pass.chan %desc.chan }

on *:dialog:sysa:sclick:90: { cs DROP %reg.chan }

on *:dialog:sysa:sclick:97: { cs IDENTIFY %reg.chan %pass.chan }

on *:dialog:sysa:sclick:98: { ns GROUP $$?="Nickname:" %nickserv.pass }

on *:dialog:sysa:sclick:99: { join %reg.chan }

on 1:CONNECT:{

ajar

}

alias ajar {

if (%nickident == on) {

nick %nick.alpha

ns IDENTIFY %nickserv.pass

}

if (%oper == on) && (%nickident == on) {

oper %opernick1 %operpass1

mode $me +s +eakcfjvGFWz

mode $me +q

}

if (%chl.1 == on) {

join %chnl.a

}

if (%chl.2 == on) {

join %chnl.b

}

if (%chl.3 == on) {

join %chnl.c

}

if (%chl.4 == on) {

join %chnl.d

}

if (%chl.5 == on) {

join %chnl.e

}

if (%chl.6 == on) {

join %chnl.f

}

if (%chl.7 == on) {

join %chnl.g

}

if (%chl.8 == on) {

join %chnl.h

}

if (%chl.9 == on) {

join %chnl.i

}

if (%chl.10 == on) {

join %chnl.j

}

on *:dialog:sysa:sclick:41: { enable #startupz2 | set %startupz2 on | sclick }

on *:dialog:sysa:sclick:42: { disable #startupz2 | set %startupz2 off | sclick }

on *:dialog:sysa:sclick:51: { nick %opernick1 }

on *:dialog:sysa:sclick:92: { nick %nick.alpha }

on *:dialog:sysa:sclick:52: { ns IDENTIFY %nickserv.pass }

on *:dialog:sysa:sclick:88: { ns IDENTIFY %nickserv.pass }

on *:dialog:sysa:sclick:49: { mode $me -o }

on *:dialog:sysa:sclick:48: { oper %opernick1 %operpass1 | //mode $me +s +eakcfjvGFWz | //mode $me +q }

on *:dialog:sysa:sclick:46: { ns GHOST %nick.alpha %nickserv.pass }

on *:dialog:sysa:sclick:47: {

ns RECOVER %nick.alpha %nickserv.pass

}

Like
1

Mirc Benzer Nick Koruması

1 sene önce Bu yazı sabitlenmiştir.

•mIRC Hazır Kodları

Mirc benzer nick koruması ipleri farklı fakat aynı tip nicklere sahip kullanıcıları tespit edip banlar.

#Benzer nick koruması
#
# nick145645
# nick413454
# nick454655
# nick456457
# nick545441
#
# gibi nick girişlerinde kullanabileceğiniz bir koruma

;on *:JOIN:#: {
if ($nick(#,$me,@&~%)) {  
  var %Clone.join.flood2 = $+(*!*@*.,$gettok($address($nick,2),-2,46),.,$gettok($address($nick,2),-1,46))  
  if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] == $null) {
    set -u3 %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] 1 
  }
  else { inc %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] }
  if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] >= 2) {
    if (%modechanx7 != $true) {
      .raw mode  $chan +b %Clone.join.flood2
      set -u3 %modechanx7 $true
    }
  }

  var %Clone.join.flood = $+(*!*@,$remove($gettok($address($nick,2),1-2,46),*!*@),.*)    
  if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] == $null) {
    set -u3 %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] 1 
  }
  else { inc %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] }
  if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] >= 2) {
    if (%modechan1MR76567 != $true) {
      .raw mode  $chan +b %Clone.join.flood
      set -u3 %modechan1MR76567 $true
    }
  }

  var %join.flood.ident = $left($remove($gettok($address($nick,3),1,$asc(@)),*!*),4)
  if (%join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] == $null) {
    set -u3 %join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] 1 
  }
  else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] }
  if (%join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] >= 2) {
    if (%modechan1MR541 != $true) {
      .raw mode  $chan +b $+(*!,$left($gettok($gettok($address($nick,5),1,64),2,33),5),*@*)    
      set -u3 %modechan1MR541 $true
    }
  }

  var %join.flood = $+($left($nick,4),*!*@*)
  if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] == $null) {
    set -u3 %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] 1 
  }
  else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] }
  if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] >= 2) {
    if (%modechan1MR != $true) {
      set -u3 %clnicks2 1
      .raw mode  $chan +b %join.flood   
      set -u3 %modechan1MR $true
    }
  }
}
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

#Benzer nick koruması

#

# nick145645

# nick413454

# nick454655

# nick456457

# nick545441

#

# gibi nick girişlerinde kullanabileceğiniz bir koruma

;on *:JOIN:#: {

if ($nick(#,$me,@&~%)) {

var %Clone.join.flood2 = $+(*!*@*.,$gettok($address($nick,2),-2,46),.,$gettok($address($nick,2),-1,46))

if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] == $null) {

set -u3 %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] 1

}

else { inc %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] }

if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] >= 2) {

if (%modechanx7 != $true) {

.raw mode $chan +b %Clone.join.flood2

set -u3 %modechanx7 $true

}

var %Clone.join.flood = $+(*!*@,$remove($gettok($address($nick,2),1-2,46),*!*@),.*)

if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] == $null) {

set -u3 %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] 1

}

else { inc %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] }

if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] >= 2) {

if (%modechan1MR76567 != $true) {

.raw mode $chan +b %Clone.join.flood

set -u3 %modechan1MR76567 $true

}

var %join.flood.ident = $left($remove($gettok($address($nick,3),1,$asc(@)),*!*),4)

if (%join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] == $null) {

set -u3 %join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] 1

}

else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] }

if (%join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] >= 2) {

if (%modechan1MR541 != $true) {

.raw mode $chan +b $+(*!,$left($gettok($gettok($address($nick,5),1,64),2,33),5),*@*)

set -u3 %modechan1MR541 $true

}

var %join.flood = $+($left($nick,4),*!*@*)

if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] == $null) {

set -u3 %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] 1

}

else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] }

if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] >= 2) {

if (%modechan1MR != $true) {

set -u3 %clnicks2 1

.raw mode $chan +b %join.flood

set -u3 %modechan1MR $true

}

Like
4

Mirc Link Kısaltma Remotesi

1 sene önce Bu yazı sabitlenmiştir.

•mIRC Hazır Kodları

Mirc script kullanırken karşı tarafa link kısaltarak link göndermenize yarayan remote.

## Link kısaltma kanala ve özele link yansıtma 
##
## /linkver https://www.youtube.com/watch?v=OGX-ny-3ztI
##
## Şeklinde çalışmaktadır.

alias isurl return $iif($regex($1-,/\b(\^@\S+|www\.\S+|http://\S+|irc\.\S+|irc://\S+|\w+(?:[\.-]\w+)?@\w+(?:[\.-]\w+)?\.[a-z]{2,4})\b/gi),$iif($prop,$regml($v1),$true))
alias -l tiny {
  if ($1) && ($isurl($1)) {
    set %p 0
    sockclose Tinyurl
    set %TinyurlURL /create.php?source=indexpage&url= $+ $1- $+ &submit=Make+TinyURL%21&alias=
    sockopen Tinyurl tinyurl.com 80
  }
  elseif ( !$isurl($1) ) { 
    if (# isin %nick) { msg %nick Link giriniz hatalı }
    else { notice %nick Link giriniz hatalı  }
  }
} 

alias linkver { 
  set %nick $me
  .timerlinkci 1 2 / basla
  tiny $1-
}

alias basla { 
  .timerlinkci 1 2 / say Linkim bakınız >> %linkim
}


on *:SOCKOPEN:Tinyurl: {
  sockwrite -n Tinyurl GET %TinyurlURL HTTP/1.1
  sockwrite -n Tinyurl Host: tinyurl.com
  sockwrite Tinyurl $crlf
}
on *:SOCKREAD:Tinyurl: {
  sockread %Tinyurl
  while ($sockbr) {
    if (<div class="indent"><b> isin %Tinyurl) && (%p == 0) { 
      if ($chr(35) isin %nick ) { msg %nick 1 URL KISALTMANIZ: $+ :12 $gettok($right(%Tinyurl,-31),1,60)  }
      else { notice %nick 1 URL KISALTMANIZ: $+ :12 $gettok($right(%Tinyurl,-31),1,60) | set %linkim $gettok($right(%Tinyurl,-31),1,60) }
      unset %p
    }
    sockread %Tinyurl
  }
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

## Link kısaltma kanala ve özele link yansıtma

##

## /linkver https://www.youtube.com/watch?v=OGX-ny-3ztI

##

## Şeklinde çalışmaktadır.

alias isurl return $iif($regex($1-,/\b(\^@\S+|www\.\S+|http://\S+|irc\.\S+|irc://\S+|\w+(?:[\.-]\w+)?@\w+(?:[\.-]\w+)?\.[a-z]{2,4})\b/gi),$iif($prop,$regml($v1),$true))

alias -l tiny {

if ($1) && ($isurl($1)) {

set %p 0

sockclose Tinyurl

set %TinyurlURL /create.php?source=indexpage&url= $+ $1- $+ &submit=Make+TinyURL%21&alias=

sockopen Tinyurl tinyurl.com 80

}

elseif ( !$isurl($1) ) {

if (# isin %nick) { msg %nick Link giriniz hatalı }

else { notice %nick Link giriniz hatalı }

}

alias linkver {

set %nick $me

.timerlinkci 1 2 / basla

tiny $1-

}

alias basla {

.timerlinkci 1 2 / say Linkim bakınız >> %linkim

}

on *:SOCKOPEN:Tinyurl: {

sockwrite -n Tinyurl GET %TinyurlURL HTTP/1.1

sockwrite -n Tinyurl Host: tinyurl.com

sockwrite Tinyurl $crlf

}

on *:SOCKREAD:Tinyurl: {

sockread %Tinyurl

while ($sockbr) {

if (<div class="indent"><b> isin %Tinyurl) && (%p == 0) {

if ($chr(35) isin %nick ) { msg %nick 1 URL KISALTMANIZ: $+ :12 $gettok($right(%Tinyurl,-31),1,60) }

else { notice %nick 1 URL KISALTMANIZ: $+ :12 $gettok($right(%Tinyurl,-31),1,60) | set %linkim $gettok($right(%Tinyurl,-31),1,60) }

unset %p

}

sockread %Tinyurl

}

Like
4

Hızlı Kanal Bilgileri (Popups)

1 sene önce Bu yazı sabitlenmiştir.

•mIRC Hazır Kodları

on *:load: { 
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Channel info $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Thank you for using this Addon,igo,Addon: Channel info $chr(40) $+ v5.4 $+ $chr(41))
  .echo -s _____________________________________________________
  .echo -s 0,1 Loading 9,1Channel info0,1 Add-On... 
  .echo -s 0,1 You are running mIRC $version on Windows $+ $os
  .echo -s ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: { 
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Channel info $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: Channel info $chr(40) $+ v5.4 $+ $chr(41))
}
;############################  -«•»SaNCaK ScripT«•»-    ############################

menu channel {
— $chan —
.&Quickinfo  $chan:channel
.-
.Users   $nick($chan,0):say Users --> $nick($chan,0)
.Owners  $nick($chan,0,q) ( $+ $round($calc($nick($chan,0,q) / $nick($chan,0) * 100),0) $+ % $+ ):say Owners --> $nick($chan,0,q) ( $+ $round($calc($nick($chan,0,q) / $nick($chan,0) * 100),0) $+ % $+ )
.Protect     $nick($chan,0,&) ( $+ $round($calc($nick($chan,0,&) / $nick($chan,0) * 100),0) $+ % $+ ):say Protect --> $nick($chan,0,&) ( $+ $round($calc($nick($chan,0,&) / $nick($chan,0) * 100),0) $+ % $+ )
.Ops         $nick($chan,0,o) ( $+ $round($calc($nick($chan,0,o) / $nick($chan,0) * 100),0) $+ % $+ ):say Ops --> $nick($chan,0,o) ( $+ $round($calc($nick($chan,0,o) / $nick($chan,0) * 100),0) $+ % $+ )
.Halfops     $nick($chan,0,h) ( $+ $round($calc($nick($chan,0,h) / $nick($chan,0) * 100),0) $+ % $+ ):say Halfops --> $nick($chan,0,h) ( $+ $round($calc($nick($chan,0,h) / $nick($chan,0) * 100),0) $+ % $+ )
.Voices  $nick($chan,0,v) ( $+ $round($calc($nick($chan,0,v) / $nick($chan,0) * 100),0) $+ % $+ ):say Voices --> $nick($chan,0,v) ( $+ $round($calc($nick($chan,0,v) / $nick($chan,0) * 100),0) $+ % $+ )
.Normal  $nick($chan,0,r) ( $+ $round($calc($nick($chan,0,r) / $nick($chan,0) * 100),0) $+ % $+ ):say Normal --> $nick($chan,0,r) ( $+ $round($calc($nick($chan,0,r) / $nick($chan,0) * 100),0) $+ % $+ )
.&Modes  $chan($chan).mode:say Active Mode for $active $chan($chan).mode
.All Say: {
  say Users --> $nick($chan,0)
  say Owners --> $nick($chan,0,q) ( $+ $round($calc($nick($chan,0,q) / $nick($chan,0) * 100),0) $+ % $+ )
  say Protect --> $nick($chan,0,&) ( $+ $round($calc($nick($chan,0,&) / $nick($chan,0) * 100),0) $+ % $+ )
  say Ops --> $nick($chan,0,o) ( $+ $round($calc($nick($chan,0,o) / $nick($chan,0) * 100),0) $+ % $+ )
  say Halfops --> $nick($chan,0,h) ( $+ $round($calc($nick($chan,0,h) / $nick($chan,0) * 100),0) $+ % $+ )
  say Voices --> $nick($chan,0,v) ( $+ $round($calc($nick($chan,0,v) / $nick($chan,0) * 100),0) $+ % $+ )
  say Normal --> $nick($chan,0,r) ( $+ $round($calc($nick($chan,0,r) / $nick($chan,0) * 100),0) $+ % $+ )
  say Active Mode for $active $chan($chan).mode
}
.-
. $iif($network != $null,$network,n/a) Info
..Conn. ID $cid:say Conn. ID $cid
..Net $iif($network != $null,$network,n/a):say Net $iif($network != $null,$network,n/a)
..Server $iif($server != $null,$server,n/a):say Server $iif($server != $null,$server,n/a)
..Server IP $iif($serverip != $null,$serverip,n/a):say Server IP $iif($serverip != $null,$serverip,n/a)
..Port $iif($server != $null,$port,n/a):say Port $iif($server != $null,$port,n/a)
..Channels On $chr(9)  $chan(0):say $chan(0)
..DCC Get $get(0):say $get(0)
..DCC Send $send(0):say $send(0)
..Connected by $iif($server != $null,$uptime(server,1),n/a):say $iif($server != $null,$uptime(server,1),n/a)
..Idle $iif($idle,$duration($idle),n/a):say $iif($idle,$duration($idle),n/a)
. $me Info
..Prefixes $chr(9) $iif($server != $null,$prefix,n/a):say Prefixes $iif($server != $null,$prefix,n/a)
..-
..Nick - $me:say Nick $me
..Host - $host:say Host $host
..IP - $ip:say IP $ip
..Current Server - $server:say Current Server $server
..Port - $port:say Port $port
..Sistem - $os :say Sistem $os
..-
..Date - $date(dd/mm/yyyy):say Date $date(dd/mm/yyyy)
..Day - $day:say Day $day
..Hour - $time:say Hour $time
..Saytime:say [Day: $day $+ ] [Date: $ord($date(dd)) $+ ] [Month: $time(mmmm) $+ ] [Year: $date(yyyy) $+ ] [Time: $time(hh:nn:ss TT) $+ ] [Meridian: $iif($time(TT) == pm,Evening,Morning) $+ ] [GMT: $iif($left($duration($remove($timezone,-)),1) != -,+) $+ $replace($duration($remove($timezone,-)),hr,hour) $+ ] [Daylight savings: $iif($daylight != 0,Yes,No) $+ ]
..Mirc $version:say Mirc $version
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

on *:load: {

.echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Channel info $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Thank you for using this Addon,igo,Addon: Channel info $chr(40) $+ v5.4 $+ $chr(41))

.echo -s _____________________________________________________

.echo -s 0,1 Loading 9,1Channel info0,1 Add-On...

.echo -s 0,1 You are running mIRC $version on Windows $+ $os

.echo -s ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

}

on *:unload: {

.echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Channel info $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: Channel info $chr(40) $+ v5.4 $+ $chr(41))

}

;############################ -«•»SaNCaK ScripT«•»- ############################

menu channel {

— $chan —

.&Quickinfo $chan:channel

.-

.Users $nick($chan,0):say Users --> $nick($chan,0)

.Owners $nick($chan,0,q) ( $+ $round($calc($nick($chan,0,q) / $nick($chan,0) * 100),0) $+ % $+ ):say Owners --> $nick($chan,0,q) ( $+ $round($calc($nick($chan,0,q) / $nick($chan,0) * 100),0) $+ % $+ )

.Protect $nick($chan,0,&) ( $+ $round($calc($nick($chan,0,&) / $nick($chan,0) * 100),0) $+ % $+ ):say Protect --> $nick($chan,0,&) ( $+ $round($calc($nick($chan,0,&) / $nick($chan,0) * 100),0) $+ % $+ )

.Ops $nick($chan,0,o) ( $+ $round($calc($nick($chan,0,o) / $nick($chan,0) * 100),0) $+ % $+ ):say Ops --> $nick($chan,0,o) ( $+ $round($calc($nick($chan,0,o) / $nick($chan,0) * 100),0) $+ % $+ )

.Halfops $nick($chan,0,h) ( $+ $round($calc($nick($chan,0,h) / $nick($chan,0) * 100),0) $+ % $+ ):say Halfops --> $nick($chan,0,h) ( $+ $round($calc($nick($chan,0,h) / $nick($chan,0) * 100),0) $+ % $+ )

.Voices $nick($chan,0,v) ( $+ $round($calc($nick($chan,0,v) / $nick($chan,0) * 100),0) $+ % $+ ):say Voices --> $nick($chan,0,v) ( $+ $round($calc($nick($chan,0,v) / $nick($chan,0) * 100),0) $+ % $+ )

.Normal $nick($chan,0,r) ( $+ $round($calc($nick($chan,0,r) / $nick($chan,0) * 100),0) $+ % $+ ):say Normal --> $nick($chan,0,r) ( $+ $round($calc($nick($chan,0,r) / $nick($chan,0) * 100),0) $+ % $+ )

.&Modes $chan($chan).mode:say Active Mode for $active $chan($chan).mode

.All Say: {

say Users --> $nick($chan,0)

say Owners --> $nick($chan,0,q) ( $+ $round($calc($nick($chan,0,q) / $nick($chan,0) * 100),0) $+ % $+ )

say Protect --> $nick($chan,0,&) ( $+ $round($calc($nick($chan,0,&) / $nick($chan,0) * 100),0) $+ % $+ )

say Ops --> $nick($chan,0,o) ( $+ $round($calc($nick($chan,0,o) / $nick($chan,0) * 100),0) $+ % $+ )

say Halfops --> $nick($chan,0,h) ( $+ $round($calc($nick($chan,0,h) / $nick($chan,0) * 100),0) $+ % $+ )

say Voices --> $nick($chan,0,v) ( $+ $round($calc($nick($chan,0,v) / $nick($chan,0) * 100),0) $+ % $+ )

say Normal --> $nick($chan,0,r) ( $+ $round($calc($nick($chan,0,r) / $nick($chan,0) * 100),0) $+ % $+ )

say Active Mode for $active $chan($chan).mode

}

.-

. $iif($network != $null,$network,n/a) Info

..Conn. ID $cid:say Conn. ID $cid

..Net $iif($network != $null,$network,n/a):say Net $iif($network != $null,$network,n/a)

..Server $iif($server != $null,$server,n/a):say Server $iif($server != $null,$server,n/a)

..Server IP $iif($serverip != $null,$serverip,n/a):say Server IP $iif($serverip != $null,$serverip,n/a)

..Port $iif($server != $null,$port,n/a):say Port $iif($server != $null,$port,n/a)

..Channels On $chr(9) $chan(0):say $chan(0)

..DCC Get $get(0):say $get(0)

..DCC Send $send(0):say $send(0)

..Connected by $iif($server != $null,$uptime(server,1),n/a):say $iif($server != $null,$uptime(server,1),n/a)

..Idle $iif($idle,$duration($idle),n/a):say $iif($idle,$duration($idle),n/a)

. $me Info

..Prefixes $chr(9) $iif($server != $null,$prefix,n/a):say Prefixes $iif($server != $null,$prefix,n/a)

..-

..Nick - $me:say Nick $me

..Host - $host:say Host $host

..IP - $ip:say IP $ip

..Current Server - $server:say Current Server $server

..Port - $port:say Port $port

..Sistem - $os :say Sistem $os

..-

..Date - $date(dd/mm/yyyy):say Date $date(dd/mm/yyyy)

..Day - $day:say Day $day

..Hour - $time:say Hour $time

..Saytime:say [Day: $day $+ ] [Date: $ord($date(dd)) $+ ] [Month: $time(mmmm) $+ ] [Year: $date(yyyy) $+ ] [Time: $time(hh:nn:ss TT) $+ ] [Meridian: $iif($time(TT) == pm,Evening,Morning) $+ ] [GMT: $iif($left($duration($remove($timezone,-)),1) != -,+) $+ $replace($duration($remove($timezone,-)),hr,hour) $+ ] [Daylight savings: $iif($daylight != 0,Yes,No) $+ ]

..Mirc $version:say Mirc $version

}

2
6

Unrealircd 4.0.17 Versiyonu

1 sene önce Bu yazı sabitlenmiştir.

•Unreal IRCD

Unrealircd 4 versiyonun yeni sürümü 4.0.17 orjinal kaynak dosyalarını indirebilirsiniz. Unrealircd-4.0.17.tar.gz dosyasını buradan indirebilirsiniz . Putty ike çekmek için wget https://www.unrealircd.org/unrealircd4/unrealircd-4.0.17.tar.gz Yeni sürüm hakkında yayımcı tarafından yapılan açıklamalar. Bu sürümdeki öne çıkan özellikler iki yeni isteğe bağlı modüldür: “zamanlanmış yasak” (X dakika sonra...

4
9

Mirc Nickserv Popups Menü

1 sene önce Bu yazı sabitlenmiştir.

•Irc Komutlari

Mirc Scriptinizize Gelişmiş Nickserv Menüsü Eklemenize Yarayan Hazır Koddur. Mircinize Eklemek Içni Ctrl + RTuşlayınız Açılan Editörde Popups Kısmına Tıklayın Ve Kanal Channel Kısmının En Altına Listeyi Kopyalayın. Bu kod ile nick ile ilgili işlemlerinizi hızlı ve kolayca halledebilirsiniz.

-
.Nick İşlemleri
..Nick Değiştir:/nick $$?="Lutfen Yeni Nickinizi Yazınız"
..Kaydet:/nickserv register $$?*="Şifreniz?" $$?="E-mail adresiniz?"
..Sifre gir:/nickserv identify $$?="Şifreniz?"
..Düşür:/nickserv ghost $$?="Nick?" $$?="Şifre?"
..Release:/.msg nickserv release $$?="Nicki Yazınız:"
..Recover:/.msg nickserv recover  $$?="Nicki Yazınız:" $$?="Şifre:"
..Bilgi:/.msg nickserv info $$?="Nicki Yazınız:"
..Email:/.msg nickserv set email $$?="E-mail:"
..Sil:/.msg nickserv drop
..URL:/.msg nickserv set url $$?="URL:"
..Sifre:/.msg nickserv set password $$?*="Yeni şifre:"
..Help:/.msg nickserv help
..Dil
...Turkce:/.msg nickserv set language 11
...Ingilizce:/.msg nickserv set language 1
...-
...Diger ?:/.msg nickserv set language $?="Dil Numarası (1-10)"
..Gizle
...Quit Msg
....On:/.msg NickServ SET HIDE Quit On
....Off:/.msg NickServ SET HIDE Quit Off
...Host Adres
....On:/.msg NickServ SET HIDE usermask On
....Off:/.msg NickServ SET HIDE usermask Off
...Email Adres
....On:/.msg NickServ SET HIDE email On
....Off:/.msg NickServ SET HIDE email Off
..Modes
...+w:/mode $me +w
...+s:/mode $me +s
...+i:/mode $me +i
...-
...-w:/mode $me -w
...-s:/mode $me -s
...-i:/mode $me -i
..Kill
...On:/.msg nickserv set kill on
...Off:/.msg nickserv set kill off
...-
...Quick:/.msg nickserv set kill quick
..Secure
...On:/.msg nickserv set secure on
...Off:/.msg nickserv set secure off
..Dcc Allow
...Add:/dccallow + $+ $?="Nick:"
...Del:/dccallow - $+ $?="Nick:"
...List:dccallow list
...-
...Help:dccallow help
..-
..Koruma:{ /msg nickserv set kill on
  /msg nickserv set secure on
  /msg nickserv set HIDE  EMAIL  on
  /msg nickserv set HIDE  QUIT  on
  /msg nickserv set HIDE USERMASK  on
}
Mesaj İşlemleri
..Gonder	(Send):/.msg memoserv send $$?="Nick veya Kanal" $$?="Msg?"
..Listele	(List):/.msg memoserv list
..Oku	(Read):/.msg memoserv read $$?="Msg No?"
..Sil	(Del):/.msg memoserv del $$?="Msg No?"
.Ajoin
..Ekle:/ns ajoin add #$$?="Eklenecek Kanal Adı [# olmadan]:"
..SiL:/ns ajoin del #$$?="Silinecek Kanal Adı [# olmadan]:"
..Liste:/ns ajoin list
..-
.Link
..Açık:/nickserv link $$?="Link Yapılacak Nickname" $$?*="Link Yapılacak Nickin Şifresi"
..Kapalı:/nickserv unlink
..-
.Modlar
..+w:/mode $me +w
..+s:/mode $me +s
..+i:/mode $me +i
..+R:/mode $me +R
..+P:/mode $me +P
..-
..-w:/mode $me -w
..-s:/mode $me -s
..-i:/mode $me -i
..-R:/mode $me -R
..-P:/mode $me -P
..-
.Kill
..Açık:/nickserv set kill on
..Kapalı:/nickserv set kill off
..-
..Quick:/nickserv set kill quick
..-
.Güvenlik
..Açık:/nickserv set secure on
..Kapalı:/nickserv set secure off
..-
.Oto Güvenlik:/nickserv set hide USERMASK on | /nickserv set kill on | /nickserv set secure on 
.Nicki SiL:/nickserv drop
-

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

-

.Nick İşlemleri

..Nick Değiştir:/nick $$?="Lutfen Yeni Nickinizi Yazınız"

..Kaydet:/nickserv register $$?*="Şifreniz?" $$?="E-mail adresiniz?"

..Sifre gir:/nickserv identify $$?="Şifreniz?"

..Düşür:/nickserv ghost $$?="Nick?" $$?="Şifre?"

..Release:/.msg nickserv release $$?="Nicki Yazınız:"

..Recover:/.msg nickserv recover $$?="Nicki Yazınız:" $$?="Şifre:"

..Bilgi:/.msg nickserv info $$?="Nicki Yazınız:"

..Email:/.msg nickserv set email $$?="E-mail:"

..Sil:/.msg nickserv drop

..URL:/.msg nickserv set url $$?="URL:"

..Sifre:/.msg nickserv set password $$?*="Yeni şifre:"

..Help:/.msg nickserv help

..Dil

...Turkce:/.msg nickserv set language 11

...Ingilizce:/.msg nickserv set language 1

...-

...Diger ?:/.msg nickserv set language $?="Dil Numarası (1-10)"

..Gizle

...Quit Msg

....On:/.msg NickServ SET HIDE Quit On

....Off:/.msg NickServ SET HIDE Quit Off

...Host Adres

....On:/.msg NickServ SET HIDE usermask On

....Off:/.msg NickServ SET HIDE usermask Off

...Email Adres

....On:/.msg NickServ SET HIDE email On

....Off:/.msg NickServ SET HIDE email Off

..Modes

...+w:/mode $me +w

...+s:/mode $me +s

...+i:/mode $me +i

...-

...-w:/mode $me -w

...-s:/mode $me -s

...-i:/mode $me -i

..Kill

...On:/.msg nickserv set kill on

...Off:/.msg nickserv set kill off

...-

...Quick:/.msg nickserv set kill quick

..Secure

...On:/.msg nickserv set secure on

...Off:/.msg nickserv set secure off

..Dcc Allow

...Add:/dccallow + $+ $?="Nick:"

...Del:/dccallow - $+ $?="Nick:"

...List:dccallow list

...-

...Help:dccallow help

..-

..Koruma:{ /msg nickserv set kill on

/msg nickserv set secure on

/msg nickserv set HIDE EMAIL on

/msg nickserv set HIDE QUIT on

/msg nickserv set HIDE USERMASK

Mirc !zar kodu

Admin Oper Bağlantı Menüsü Portlu

Admin Nick, İdent ve Host Koruması

Proxy Koruması Socket Sorgulu

Akill Liste Remotesi Mirc

Random Nick Koruması Spamfilter

Random Nick Koruması

Yardım kanalında 60 saniye konuşmayana ban

Türkçe Mirc indir

Mircclub Oper/Admin Script v1

Mirc !zar kodu

Admin Oper Bağlantı Menüsü Portlu

Zurna Mirc

Geveze Mirc

Son Yazılar

Random Nick Koruması

Yardım kanalında 60 saniye konuşmayana ban

Sunucu Line Ban Listesi

Kanal Küfür Koruma Addonu

Badnick Kanala Ozel

Mirc Spamfilter Hareket Takibi

Log Okuyucu (Dialog)

Format atarken disk bölünme sorunu

Mirc Oper, Nick Şifresi ve Oto Giriş Kanalları Düzenleme

Mirc Benzer Nick Koruması

Mirc Link Kısaltma Remotesi

Hızlı Kanal Bilgileri (Popups)

Unrealircd 4.0.17 Versiyonu

Mirc Nickserv Popups Menü

 Son Yazılar

Son Yazılar