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

Juventus · 05 Haziran 2009, 18:34

Selam arkadaşlar ben kullandığım Shitlist'i editleyip aynı dialog'u başka bir şekilde kullanmak istiyorum fakat yapamadım.
İstediğim şu bu seferde eklediğim nick ident host vs.. kick + ban atılmasın zline atılsın istiyorum.
Shitlist kodu şu şekilde.
NOT : İki dialog'uda aynı anda kullanıcam mIRC'mde gereken değişmeleri yaparsanız sevinirim arkadaşlar.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

WeiLSiDe · 06 Haziran 2009, 22:36

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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 "KiLL", 14, 262 120 51 13, group
  radio "Z-Line", 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 on
on 3:join:#: { if ($me isop $chan) { if (%st.reason == k) { kill $nick %st.msg } | elseif (%st.reason == kb) { zline $nick +1h %st.msg } } }
#shitlist end
menu status,channel {
  -
  mIRC Shitlist:/dialog -m shitlist shitlist
  -
}

kick =kiLL
kick ban = Z-Line yaptım
Denemedim ama çalışması lazım.

06 Haziran 2009, 22:55

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

İlk madde gereğince; başlık kapatılmıştır.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Yardım Nick info Son Görülen Zaman aşımından Access silme Yardım	HsN	mIRC Scripting Sorunları	4	14 Ocak 2014 21:15
Soru ? yardım ?? Kod yardım ?	SabotaJ_	mIRC Scripting Sorunları	1	24 Haziran 2009 05:11
Yardım!	xfactor	Windows	1	03 Aralık 2008 18:46
Yardım Kanalınla ilgili yardım	Avukat	mIRC Scripting Sorunları	16	01 Haziran 2008 23:52
yardım	Cr@zyy	Unreal IRCd	6	16 Ağustos 2007 19:25

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.