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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Shitlist addonu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/48740-shitlist-addonu.html)

Kod:

dialog shitlist {

  title "mIRC ShitList"

  size -1 -1 348 244

  box "Configuration", 1, 6 5 336 231

  box "List", 2, 16 21 151 154

  list 3, 26 39 130 125, size sorted

  box "Options", 4, 170 21 162 81

  text "Nick:", 5, 179 47 30 13

  edit "", 6, 212 39 109 22, multi return autohs

  button "Add", 7, 183 68 65 23

  button "Del", 8, 252 68 65 23

  box "Status", 10, 171 102 81 73

  radio "On", 11, 180 119 60 23, push group

  radio "Off", 12, 180 143 60 23, push

  box "Action", 13, 254 102 78 56

  radio "Kick", 14, 262 120 51 13, group

  radio "Kick+Ban", 15, 262 136 64 13

  box "Message", 17, 16 175 235 49

  edit "", 18, 26 192 214 22, multi return autohs

  button "Done", 19, 260 191 76 23, ok

}

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

  if $devent = init {

    didtok shitlist 3 32 %st.list 

    did -a shitlist 18 %st.msg

    if (%st.status == on) { did -c shitlist 11 }

    elseif (%st.status == off) { did -c shitlist 12 }

    if (%st.reason == k) { did -c shitlist 14 }

    elseif (%st.reason = kb) { did -c shitlist 15 }

  }

  if $devent = sclick { 

    if $did = 7 { if ($did(6).text == $null) { return } | else { did -a shitlist 3 $did(6).text | set %st.list $didtok(shitlist,3,32) | .auser 3 $did(6).text | did -r shitlist 6 } }

    if $did = 8 { if ($did(3).sel == $null) { return } | else { .ruser $did(3,$did(3).sel).text | did -d shitlist 3 $did(3).sel | set %st.list $didtok(shitlist,3,32) } }

    if $did = 11 { .set %st.status on | .enable #shitlist }

    if $did = 12 { .set %st.status off | .disable #shitlist }

    if $did = 14 { .set %st.reason k }

    if $did = 15 { .set %st.reason kb }

  }

  if $devent = edit {

    if $did = 18 { .set %st.msg $did(18) }

  }

}

#shitlist off

on 3:join:#: { if ($me isop $chan) { if (%st.reason == k) { kick $chan $nick %st.msg } | elseif (%st.reason == kb) { ban $chan $nick 3 | kick $chan $nick %st.msg } } }

#shitlist end

menu status,channel {

  -

  mIRC Shitlist:/dialog -m shitlist shitlist

  -

}

Kullanımı kolay bir shitlist addonu ;)

alıntı

Cevap: Shitlist addonu

Bunu Kullanıyorum Guzel Birde Bunun İdent wersiyonunu alabilir miyim :D

Cevap: Shitlist addonu

*!ident@* şeklinde ekleyebilirsin

Cevap: Shitlist addonu

Difuzyon ölün Coder oldugunu idda edenlere yeter :)
aci kayip ..

Cevap: Shitlist addonu

bunda bi addon sayesinde Scriptteki "users" kısmına masklı bi sekilde nickleri ekliorsun.
shitlist:lez!*@*
shitlist:gay!*@*
vs.vs. ben bunu o addon sayesinde
kl:lez!*@*
kl:gay!*@*
seklinde ekleyebilirmiyim acaba

Cevap: Shitlist addonu

Alıntı:

GuneL Nickli Üyeden Alıntı (Mesaj 704734)

shitlist: şeklinde değil
3:
şeklinde kodlanmış bu kod..

3:*!Kelime@*

gibi.

Cevap: Shitlist addonu

Kod:

dialog shitlist {
 title "mIRC ShitList"
 size -1 -1 348 244
 box "Configuration", 1, 6 5 336 231
 box "List", 2, 16 21 151 154
 list 3, 26 39 130 125, size sorted
 box "Options", 4, 170 21 162 81
 text "Nick:", 5, 179 47 30 13
 edit "", 6, 212 39 109 22, multi return autohs
 button "Add", 7, 183 68 65 23
 button "Del", 8, 252 68 65 23
 box "Status", 10, 171 102 81 73
 radio "On", 11, 180 119 60 23, push group
 radio "Off", 12, 180 143 60 23, push
 box "Action", 13, 254 102 78 56
 radio "Kick", 14, 262 120 51 13, group
 radio "Kick+Ban", 15, 262 136 64 13
 box "Message", 17, 16 175 235 49
 edit "", 18, 26 192 214 22, multi return autohs
 button "Done", 19, 260 191 76 23, ok
 }
 on *:dialog:shitlist:*:*: {
 if $devent = init {
 didtok shitlist 3 32 %st.list
 did -a shitlist 18 %st.msg
 if (%st.status == on) { did -c shitlist 11 }
 elseif (%st.status == off) { did -c shitlist 12 }
 if (%st.reason == k) { did -c shitlist 14 }
 elseif (%st.reason = kb) { did -c shitlist 15 }
 }
 if $devent = sclick {
 if $did = 7 { if ($did(6).text == $null) { return } | else { did -a shitlist 3 $did(6).text | set %st.list $didtok(shitlist,3,32) | . auser Shit $did(6).text did -r shitlist 6 } }
 if $did = 8 { if ($did(3).sel == $null) { return } | else { .ruser $did(3,$did(3).sel).text | did -d shitlist Shit $did(3).sel | set %st.list $didtok(shitlist,3,32) } }
 if $did = 11 { .set %st.status on | .enable #shitlist }
 if $did = 12 { .set %st.status off | .disable #shitlist }
 if $did = 14 { .set %st.reason k }
 if $did = 15 { .set %st.reason kb }
 }
 if $devent = edit {
 if $did = 18 { .set %st.msg $did(18) }
 }
 }
 #shitlist off
 on Shit:Join:#: { if ($me isop $chan) { if (%st.reason == k) { kick $chan $nick %st.msg } | elseif (%st.reason == kb) { ban $chan $nick 3 | kick $chan $nick %st.msg } } }
 #shitlist end
 menu status,channel {
 -
 mIRC Shitlist:/dialog -m shitlist shitlist
 -

Kod üzerindeki birkaç çakışmadan dolayı oluşan problemleri gidermek adına yeniden düzenledim.
Katkılarından dolayı CesuryureK'e teşekkür ederim..