Badnick Koruması Op/Admin

alias bad { .$iif(!$dialog(bads),dialog -m bads bads,dialog -c bads bads) }
dialog bads {
  title "Badnick Korumasi"
  size -1 -1 240 170
  option dbu
  box "", 1, 10 1 220 150
  edit "", 2, 17 32 64 10, return autohs
  list 3, 17 44 64 70, size
  button "Ekle", 4, 17 21 32 10
  button "SiL", 5, 49 21 32 10
  edit "", 6, 87 32 64 10, return autohs
  list 7, 87 44 64 70, size 
  button "Ekle", 8, 87 21 32 10
  button "SiL", 9, 119 21 32 10
  edit "", 10, 158 32 64 10, return autohs
  list 11, 158 44 64 70, size 
  button "Ekle", 12, 158 21 32 10
  button "SiL", 13, 190 21 32 10
  Radio "", 14, 17 120 7 10
  Radio "", 15, 17 136 7 10
  Radio "", 16, 87 120 7 10
  Radio "", 17, 87 136 7 10
  Button "BadNick Tara", 18, 158 120 64 26
  Text "Admin Kick+ban", 19, 24 120 58 10, Center
  Text "Admin Gzline", 20, 24 136 58 10, Center
  Text "Op Kick+Ban", 21, 94 120 58 10, Center
  Text "Badnick Kapat", 22, 94 136 58 10, Center
  Button "Tamam Kapat", 23, 10 154 220 12,ok
  Text "Badnick Listesi" 24, 17 8 64 10, Center
  Text "Muaf Nick Listesi" 25, 87 8 64 10, Center
  Text "Muaf Kanal Listesi" 26, 158 8 64 10, Center
}
on 1:dialog:bads:init:0: { 
  if ($isfile(scripts\bads.txt) == $false) { write -c scripts\bads.txt } | else { loadbuf -o $dname 3 scripts\bads.txt }
  if ($isfile(scripts\muafnick.txt) == $false) { write -c scripts\muafnick.txt } | else { loadbuf -o $dname 7 scripts\muafnick.txt }
  if ($group(#adminkb) == on) { did -c $dname 14 }
  if ($group(#badsgz) == on) { did -c $dname 15 }
  if ($group(#badskick) == on) { did -c $dname 16 }
  if ($group(#badskapat) == on) { did -c $dname 17 }
  if (%korukanal) .didtok $dname 11 32 $ifmatch
}
#badskapat on
#badskapat end
on *:dialog:bads:sclick:*:{
  if ($did == 4) { 
    if ($did(2) == $null) { echo -a  Lütfen Bosluk eklemeyiniz.  | return } 
    if (#* iswm $did(2)) { echo -a  Lütfen kanal eklemeyiniz bad Nick listesidir. Örnek Nick: *seks* | return }
    if $read(scripts\bads.txt,w,$did(2)) { echo -a  Eklemeye çalıştığınız nick Listede mevcut.  | return }
    else { write scripts\bads.txt $did(2) | did -a $dname 3 $did(2) | did -r $dname 2 }
  }

  if ($did == 5) { if ($did(3).sel == 0) { echo -a  Silmek Için Bir Satir Seçiniz...  | return }
    else { write -dl $+ $did(3).sel scripts\bads.txt | did -d $dname 3 $did(3).sel } 
  }
  if ($did == 8) { if ($did(6) == $null) { echo -a  Lütfen Bosluk eklemeyiniz.  | return }
    elseif (#* iswm $did(6)) { echo -a  Lütfen kanal eklemeyiniz. Muaf Nick listesidir. Örnek Nick: *Aytac* | return }
    elseif ($read(scripts\muafnick.txt,w,$did(6))) { echo -a  Eklemeye çalıştığınız nick Listede mevcut.  | return }
    else { write scripts\muafnick.txt $did(6) | did -a $dname 7 $did(6) | did -r $dname 6 }
  }
  if ($did == 9) { if ($did(7).sel == 0) { echo -a  Silmek Için Bir Satir Seçiniz..  | return }
    else { write -dl $+ $did(7).sel scripts\muafnick.txt | did -d $dname 7 $did(7).sel } 
  }
  if ($did == 12) { if ($did(10).text == $null) { echo -a  Lütfen Bosluk eklemeyiniz.  | return } 
    elseif (#* !iswm $did(10)) { echo -a  Muaf Kanal Listesidir Nick eklemeyiniz. örnek Kanal: #Aytac  | return }
    elseif ($istok(%korukanal,$did(10),32)) { echo -a  Eklemeye Çalıştığınız Kanal Listede Mevcut.  | return }
    else { did -a $dname 11 $did(10).text | set %korukanal $didtok($dname,11,32) | did -r $dname 10 }
  }
  if ($did == 13) { if ($did(11).sel == 0) { echo -a  Silmek Için Bir Satir Seçiniz..  | return } 
    else {  did -d $dname 11 $did(11).sel | set %korukanal $didtok($dname,11,32) } 
  }
  if ($did(14).state == 1) { .enable #adminkb | .disable #badsgz | .disable #badskick | .disable #badskapat }
  if ($did(15).state == 1) { .enable #badsgz  | .disable #adminkb | .disable #badskick | .disable #badskapat }
  if ($did(16).state == 1) { .enable #badskick  | .disable #badsgz | .disable #badskapat | .disable #adminkb }
  if ($did(17).state == 1) { .enable #badskapat  | .disable #badsgz | .disable #badskick | .disable #adminkb }
  if ($did == 18) { tara $active  }
}
#adminkb off
on !*:join:#: { 
  if (o isin $usermode)  {
    var %a 1 |  while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a  }
    if $istok(%mnall,$nick,32) { return }
    if $istok(%mkall,$chan,32) { return }
    if $istok(%korukanal,$chan,32) { return }
    var %hc $lines(scripts\muafnick.txt)
    while (0 <= %hc) {
      if ($read(scripts\muafnick.txt,%hc) iswm $nick) { return }
      dec %hc
    }
    var %hd $lines(scripts\bads.txt) 
    while (0 <= %hd) { 
      if $read(scripts\bads.txt,%hd) iswm $nick { 
        kick # $nick  Yasak Rumuz.! 
        mode # +b $+($v1,!*@*) 
        break
      } 
      dec %hd
    } 
  }
}
on *:NICK:{
  if (o isin $usermode) {
    if $gettok(%mhall,$address($newnick,2),32) { return }
    if $istok(%mnall,$newnick,32) { return }
    var %kd $lines(scripts\bads.txt) 
    while (0 <= %kd) { 
      if $read(scripts\bads.txt,%kd) iswm $newnick { 
        geber 
      }
      dec %kd
    }
  }
}
alias geber {
  var %i 1
  while %i <= $comchan($newnick,0) {
    if !$istok(%korukanal,$comchan($newnick,%i),32) || !$istok(%mkall,$comchan($newnick,%i),32) { 
      mode $comchan($newnick,%i) +b $newnick
      kick $comchan($newnick,%i) $newnick  Yasak Rumuz.! 
    }
    inc %i
  }
}
#adminkb end
#admingz off
on !*:join:#: { 
  if (o isin $usermode)  {
    var %a 1 |  while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a  }
    if $istok(%mnall,$nick,32) { return }
    if $istok(%mkall,$chan,32) { return }
    if $istok(%korukanal,$chan,32) { return }
    var %hc $lines(scripts\muafnick.txt)
    while (0 <= %hc) {
      if ($read(scripts\muafnick.txt,%hc) iswm $nick) { return }
      dec %hc
    }
    var %hd $lines(scripts\bads.txt) 
    while (0 <= %hd) { 
      if $read(scripts\bads.txt,%hd) iswm $nick { 
        .gzline $nick +30d  Yasak Rumuz.!   
      } 
      dec %hd
    } 
  }
}
on *:NICK:{
  if (o isin $usermode) {
    if $gettok(%mhall,$address($newnick,2),32) { return }
    if $istok(%mnall,$newnick,32) { return }
    var %kd $lines(scripts\bads.txt) 
    while (0 <= %kd) { 
      if $read(scripts\bads.txt,%kd) iswm $newnick { 
        geber 
      }
      dec %kd
    }
  }
}
alias geber {
  var %i 1
  while %i <= $comchan($newnick,0) {
    if !$istok(%korukanal,$comchan($newnick,%i),32) || !$istok(%mkall,$comchan($newnick,%i),32) { 
      .gzline $newnick +30d  Yasak Rumuz.! 
    }
    inc %i
  }
}
#admingz end
#badskick off
on !*:join:#: { 
  if ($me isop $chan) || ($me ishop $chan) {
    var %a 1 |  while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a  }
    if $istok(%mnall,$nick,32) { return }
    if $istok(%mkall,$chan,32) { return }
    if $istok(%korukanal,$chan,32) { return }
    var %hc $lines(scripts\muafnick.txt)
    while (0 <= %hc) {
      if ($read(scripts\muafnick.txt,%hc) iswm $nick) { return }
      dec %hc
    }
    var %hd $lines(scripts\bads.txt) 
    while (0 <= %hd) { 
      if $read(scripts\bads.txt,%hd) iswm $regsubex($nick,/(.)\1+/g,\1) { 
        kick # $nick  Yasak Rumuz.! Mask: $read(scripts\bads.txt,$readn)   
        mode # +b $nick
        break
      } 
      dec %hd
    } 
  }
}
on *:NICK:{
  var %d = $comchan($newnick,0) 
  if ($me !isop $comchan($newnick,%d)) || ($me !ishelp $comchan($newnick,%d)) { return }
  if $gettok(%mhall,$address($newnick,2),32) { return }
  if $istok(%mnall,$newnick,32) { return }
  var %kd $lines(scripts\bads.txt) 
  while (0 <= %kd) { 
    if $read(scripts\bads.txt,%kd) iswm $newnick { 
      geber 
    }
    dec %kd
  }
}
alias geber {
  var %i 1
  while %i <= $comchan($newnick,0) {
    if $me ishop $comchan($newnick,%i) || $me isop $comchan($newnick,%i) {
      if !$istok(%korukanal,$comchan($newnick,%i),32) || !$istok(%mkall,$comchan($newnick,%i),32) { 
        mode $comchan($newnick,%i) +b $newnick
        kick $comchan($newnick,%i) $newnick  Yasak Rumuz.! 
      }
      inc %i
    }
  }
}
#badskick end

alias tara {
  if ($me !isop $chan($active)) && ($me !ishelp $chan($active)) && (o !isin $usermode) { echo -a  Kanalda Yetkili değilsiniz.   | return }
  msg $active  Kanal Taranıyor... 
  if $1 ischan {
    var %d = $lines(scripts\bads.txt)
    while %d {
      if $fline($1,$read(scripts\bads.txt,%d),0,1) >= 1 { 
        var %q = $ifmatch 
        while %q {
          if $line($1,$fline($1,$read(scripts\bads.txt,%d),%q,1),1) isreg $1 { 
            inc %saydım
            kick $1 $line($1,$fline($1,$read(scripts\bads.txt,%d),%q,1),1)  Yasak Rumuz.!   
            mode $1 +b $+($read(scripts\bads.txt,%d),!*@*) 
          } 
          dec %q 
        } 
      }
      dec %d 
    } 
  }

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

alias bad { .$iif(!$dialog(bads),dialog -m bads bads,dialog -c bads bads) }

dialog bads {

title "Badnick Korumasi"

size -1 -1 240 170

option dbu

box "", 1, 10 1 220 150

edit "", 2, 17 32 64 10, return autohs

list 3, 17 44 64 70, size

button "Ekle", 4, 17 21 32 10

button "SiL", 5, 49 21 32 10

edit "", 6, 87 32 64 10, return autohs

list 7, 87 44 64 70, size

button "Ekle", 8, 87 21 32 10

button "SiL", 9, 119 21 32 10

edit "", 10, 158 32 64 10, return autohs

list 11, 158 44 64 70, size

button "Ekle", 12, 158 21 32 10

button "SiL", 13, 190 21 32 10

Radio "", 14, 17 120 7 10

Radio "", 15, 17 136 7 10

Radio "", 16, 87 120 7 10

Radio "", 17, 87 136 7 10

Button "BadNick Tara", 18, 158 120 64 26

Text "Admin Kick+ban", 19, 24 120 58 10, Center

Text "Admin Gzline", 20, 24 136 58 10, Center

Text "Op Kick+Ban", 21, 94 120 58 10, Center

Text "Badnick Kapat", 22, 94 136 58 10, Center

Button "Tamam Kapat", 23, 10 154 220 12,ok

Text "Badnick Listesi" 24, 17 8 64 10, Center

Text "Muaf Nick Listesi" 25, 87 8 64 10, Center

Text "Muaf Kanal Listesi" 26, 158 8 64 10, Center

}

on 1:dialog:bads:init:0: {

if ($isfile(scripts\bads.txt) == $false) { write -c scripts\bads.txt } | else { loadbuf -o $dname 3 scripts\bads.txt }

if ($isfile(scripts\muafnick.txt) == $false) { write -c scripts\muafnick.txt } | else { loadbuf -o $dname 7 scripts\muafnick.txt }

if ($group(#adminkb) == on) { did -c $dname 14 }

if ($group(#badsgz) == on) { did -c $dname 15 }

if ($group(#badskick) == on) { did -c $dname 16 }

if ($group(#badskapat) == on) { did -c $dname 17 }

if (%korukanal) .didtok $dname 11 32 $ifmatch

}

#badskapat on

#badskapat end

on *:dialog:bads:sclick:*:{

if ($did == 4) {

if ($did(2) == $null) { echo -a Lütfen Bosluk eklemeyiniz. | return }

if (#* iswm $did(2)) { echo -a Lütfen kanal eklemeyiniz bad Nick listesidir. Örnek Nick: *seks* | return }

if $read(scripts\bads.txt,w,$did(2)) { echo -a Eklemeye çalıştığınız nick Listede mevcut. | return }

else { write scripts\bads.txt $did(2) | did -a $dname 3 $did(2) | did -r $dname 2 }

}

if ($did == 5) { if ($did(3).sel == 0) { echo -a Silmek Için Bir Satir Seçiniz... | return }

else { write -dl $+ $did(3).sel scripts\bads.txt | did -d $dname 3 $did(3).sel }

}

if ($did == 8) { if ($did(6) == $null) { echo -a Lütfen Bosluk eklemeyiniz. | return }

elseif (#* iswm $did(6)) { echo -a Lütfen kanal eklemeyiniz. Muaf Nick listesidir. Örnek Nick: *Aytac* | return }

elseif ($read(scripts\muafnick.txt,w,$did(6))) { echo -a Eklemeye çalıştığınız nick Listede mevcut. | return }

else { write scripts\muafnick.txt $did(6) | did -a $dname 7 $did(6) | did -r $dname 6 }

}

if ($did == 9) { if ($did(7).sel == 0) { echo -a Silmek Için Bir Satir Seçiniz.. | return }

else { write -dl $+ $did(7).sel scripts\muafnick.txt | did -d $dname 7 $did(7).sel }

}

if ($did == 12) { if ($did(10).text == $null) { echo -a Lütfen Bosluk eklemeyiniz. | return }

elseif (#* !iswm $did(10)) { echo -a Muaf Kanal Listesidir Nick eklemeyiniz. örnek Kanal: #Aytac | return }

elseif ($istok(%korukanal,$did(10),32)) { echo -a Eklemeye Çalıştığınız Kanal Listede Mevcut. | return }

else { did -a $dname 11 $did(10).text | set %korukanal $didtok($dname,11,32) | did -r $dname 10 }

}

if ($did == 13) { if ($did(11).sel == 0) { echo -a Silmek Için Bir Satir Seçiniz.. | return }

else { did -d $dname 11 $did(11).sel | set %korukanal $didtok($dname,11,32) }

}

if ($did(14).state == 1) { .enable #adminkb | .disable #badsgz | .disable #badskick | .disable #badskapat }

if ($did(15).state == 1) { .enable #badsgz | .disable #adminkb | .disable #badskick | .disable #badskapat }

if ($did(16).state == 1) { .enable #badskick | .disable #badsgz | .disable #badskapat | .disable #adminkb }

if ($did(17).state == 1) { .enable #badskapat | .disable #badsgz | .disable #badskick | .disable #adminkb }

if ($did == 18) { tara $active }

}

#adminkb off

on !*:join:#: {

if (o isin $usermode) {

var %a 1 | while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a }

if $istok(%mnall,$nick,32) { return }

if $istok(%mkall,$chan,32) { return }

if $istok(%korukanal,$chan,32) { return }

var %hc $lines(scripts\muafnick.txt)

while (0 <= %hc) {

if ($read(scripts\muafnick.txt,%hc) iswm $nick) { return }

dec %hc

}

var %hd $lines(scripts\bads.txt)

while (0 <= %hd) {

if $read(scripts\bads.txt,%hd) iswm $nick {

kick # $nick Yasak Rumuz.!

mode # +b $+($v1,!*@*)

break

}

dec %hd

}

on *:NICK:{

if (o isin $usermode) {

if $gettok(%mhall,$address($newnick,2),32) { return }

if $istok(%mnall,$newnick,32) { return }

var %kd $lines(scripts\bads.txt)

while (0 <= %kd) {

if $read(scripts\bads.txt,%kd) iswm $newnick {

geber

}

dec %kd

}

alias geber {

var %i 1

while %i <= $comchan($newnick,0) {

if !$istok(%korukanal,$comchan($newnick,%i),32) || !$istok(%mkall,$comchan($newnick,%i),32) {

mode $comchan($newnick,%i) +b $newnick

kick $comchan($newnick,%i) $newnick Yasak Rumuz.!

}

inc %i

}

#adminkb end

#admingz off

on !*:join:#: {

if (o isin $usermode) {

var %a 1 | while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a }

if $istok(%mnall,$nick,32) { return }

if $istok(%mkall,$chan,32) { return }

if $istok(%korukanal,$chan,32) { return }

var %hc $lines(scripts\muafnick.txt)

while (0 <= %hc) {

if ($read(scripts\muafnick.txt,%hc) iswm $nick) { return }

dec %hc

}

var %hd $lines(scripts\bads.txt)

while (0 <= %hd) {

if $read(scripts\bads.txt,%hd) iswm $nick {

.gzline $nick +30d Yasak Rumuz.!

}

dec %hd

}

on *:NICK:{

if (o isin $usermode) {

if $gettok(%mhall,$address($newnick,2),32) { return }

if $istok(%mnall,$newnick,32) { return }

var %kd $lines(scripts\bads.txt)

while (0 <= %kd) {

if $read(scripts\bads.txt,%kd) iswm $newnick {

geber

}

dec %kd

}

alias geber {

var %i 1

while %i <= $comchan($newnick,0) {

if !$istok(%korukanal,$comchan($newnick,%i),32) || !$istok(%mkall,$comchan($newnick,%i),32) {

.gzline $newnick +30d Yasak Rumuz.!

}

inc %i

}

#admingz end

#badskick off

on !*:join:#: {

if ($me isop $chan) || ($me ishop $chan) {

var %a 1 | while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a }

if $istok(%mnall,$nick,32) { return }

if $istok(%mkall,$chan,32) { return }

if $istok(%korukanal,$chan,32) { return }

var %hc $lines(scripts\muafnick.txt)

while (0 <= %hc) {

if ($read(scripts\muafnick.txt,%hc) iswm $nick) { return }

dec %hc

}

var %hd $lines(scripts\bads.txt)

while (0 <= %hd) {

if $read(scripts\bads.txt,%hd) iswm $regsubex($nick,/(.)\1+/g,\1) {

kick # $nick Yasak Rumuz.! Mask: $read(scripts\bads.txt,$readn)

mode # +b $nick

break

}

dec %hd

}

on *:NICK:{

var %d = $comchan($newnick,0)

if ($me !isop $comchan($newnick,%d)) || ($me !ishelp $comchan($newnick,%d)) { return }

if $gettok(%mhall,$address($newnick,2),32) { return }

if $istok(%mnall,$newnick,32) { return }

var %kd $lines(scripts\bads.txt)

while (0 <= %kd) {

if $read(scripts\bads.txt,%kd) iswm $newnick {

geber

}

dec %kd

}

alias geber {

var %i 1

while %i <= $comchan($newnick,0) {

if $me ishop $comchan($newnick,%i) || $me isop $comchan($newnick,%i) {

if !$istok(%korukanal,$comchan($newnick,%i),32) || !$istok(%mkall,$comchan($newnick,%i),32) {

mode $comchan($newnick,%i) +b $newnick

kick $comchan($newnick,%i) $newnick Yasak Rumuz.!

}

inc %i

}

#badskick end

alias tara {

if ($me !isop $chan($active)) && ($me !ishelp $chan($active)) && (o !isin $usermode) { echo -a Kanalda Yetkili değilsiniz. | return }

msg $active Kanal Taranıyor...

if $1 ischan {

var %d = $lines(scripts\bads.txt)

while %d {

if $fline($1,$read(scripts\bads.txt,%d),0,1) >= 1 {

var %q = $ifmatch

while %q {

if $line($1,$fline($1,$read(scripts\bads.txt,%d),%q,1),1) isreg $1 {

inc %saydım

kick $1 $line($1,$fline($1,$read(scripts\bads.txt,%d),%q,1),1) Yasak Rumuz.!

mode $1 +b $+($read(scripts\bads.txt,%d),!*@*)

}

dec %q

}

dec %d

}

Kullanımı : /bad komutuyla dialog açılır.
Şimdi tek yapacagınız scripts klasörünün içine bads.txt adlı dosya atıp içine badnickleri eklemek yeterlidir.