- -
Uyarı Ekleme
(
https://www.ircforumlari.net/mirc-scripting-sorunlari/35014-uyari-ekleme.html)
Spectral | 25 Temmuz 2007 06:28 | Uyarı Ekleme Kod:
alias argo { dialog -m argo argo }
menu status,channel {
-
Argo List:/.argo
-
}
dialog argo {
title "Küfür Ekle Kaldır"
size -1 -1 113 170
option dbu
list 1, 4 37 104 96, size
button "Ekle", 2, 4 134 37 12
button "Sil", 3, 70 134 37 12
check "Korumayı Aç", 4, 5 6 50 10
text "Kick Sebebi", 5, 5 23 31 8
edit "", 6, 40 22 69 10, autohs
button "Kapat !", 7, 38 155 37 12, flat ok
}
on *:dialog:argo:*:*:{
if ($devent == init) {
if ($group(#argo).status == on) { did -c argo 4 }
did -a argo 6 %argo.kelime
var %i 1
while (%i <= $lines(argo.txt)) {
did -a argo 1 $read(argo.txt,%i)
inc %i
}
}
if ($devent == sclick) {
if ($did == 2) {
var %i $?"Argo Kelimeyi Ekleyin"
write argo.txt %i
did -a argo 1 %i
}
if ($did == 3) {
if ($did(1).sel != $null) {
write $+(-ds,$did(1).seltext) argo.txt
did -d $dname 1 $did(1).sel
}
}
if ($did == 4) {
if ($did(4).state == 1) { enable #argo }
else { disable #argo }
}
}
if ($devent == edit) {
set %argo.kelime $did(6)
}
}
#argo on
on *:TEXT:*:#: {
var %i 1
while (%i <= $lines(argo.txt)) { Burada Ne Olması Gerekiyor Çözemedim Ve Burada Olacak şeyin Yanına 1. kez sölerse uyarı 2 kez argo listen bişiyi sölerse kick ban atacak
}
}
}
#argo end Kırmızı İle Yazılan Yere YArdım Edermisiniz. |
detay | 25 Temmuz 2007 12:18 | Cevap: Uyarı Ekleme Kod:
on *:TEXT:*:#: {
var %i 1
while (%i <= $lines(argo.txt)) {
if ($read(argo.txt,%i) iswm $1-) {
hinc -m argo $nick 1
if $hget(argo,$nick) == 1 { msg $chan Argo Konusmak yasaktir $nick }
if $hget(argo,$nick) == 2 { kick $chan $nick Argo İcerikli sözler kullanmayin. }
if $hget(argo,$nick) == 3 { ban -ku600 $chan $nick 2 Argo İcerikli sözler kullanmamaniz konusunda uyarilmistiniz. | hdel argo $nick }
}
inc %i
}
} |
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:59. | |
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net