Çevrimdışı

Ben, Hiç Scripting Dersi almadım, bir yerde öğrenim görmedim ve takipci bir insan değilim. Sadece gerekeni okuyup işletmeye çalışıyorum Hocam.
Addonu Bugün Kendim Biraz Uğraşarak, Biraz da Kendimden Ekleyerek Çevirdim. İhtiyacı Olanlar İçin Paylaşıyorum.


on *:text:*:#opers:{
if ($1 == .sajoin) {
if (!$2) { .msg #opers $nick :Lutfen komutu .sajoin nick #kanal seklinde kullanin. | return }
SAJOIN $2 $3
}

if ($1 == .sapart) {
if (!$2) { .msg #opers $nick :Lutfen komutu .sajoin nick #kanal seklinde kullanin. | return }
SAPART $2 $3
}

if ($1 == .csuspend) {
if ($regex(compile, $2-, /(\+\d{1,3}[dhm]\s)?([a-z0-9+_\-]+)\s*(.+)?/i)) {
var %reason = $iif($regml(compile, 3), $regml(compile, 3), Lutfen kurallara uyunuz), %time = $iif($regml(compile, 1), $true, $false)
.set -u5 %randsus ($r(a,z),$r(0,9),$r(A,Z))
if (%time) {
cs suspend $regml(compile, 1) $regml(compile, 2) %reason ID: (%randsus,$encode($encode($botfnick($2),m),m))
}
else {
cs suspend +5d $regml(compile, 2) %reason ID: (%randsus,$encode($encode($botfnick($2),m),m))
}
msg #opers :Suspend komutu $3 kanali uzerinde uygulandi. (Sure: $iif(%time, $regml(compile, 1), SURESIZ) Sebep: %reason ID: (%randsus,$encode($encode($botfnick($2),m),m)) )
console.log suspend $nick , $3 kanalini suspendledi.
}
else {
msg #opers :Lutfen komutu .csuspend [+sure] kanal sebep olarak girin
}
}
if ($1 == .nsuspend) {
if ($regex(compile, $2-, /(\+\d{1,3}[dhm]\s)?([a-z0-9+_\-]+)\s*(.+)?/i)) {
var %reason = $iif($regml(compile, 3), $regml(compile, 3), Lutfen Kurallara Uyunuz), %time = $iif($regml(compile, 1), $true, $false)
.set -u5 %randsus $+($r(a,z),$r(0,9),$r(A,Z))
if (%time) {
ns suspend $regml(compile, 1) $regml(compile, 2) %reason ID: $+(%randsus,$encode($encode($botfnick($nick),m),m) )
}
else {
ns suspend +5d $regml(compile, 2) %reason ID: $+(%randsus,$encode($encode($botfnick($nick),m),m) )
}
msg #opers :Suspend komutu $3 nicki uzerinde uygulandi. (Sure: $iif(%time, $regml(compile, 1), SURESIZ) Sebep: %reason ID: $+(%randsus,$encode($encode($botfnick($nick),m),m) ) $+ )
return
}
else {
MSG #opers :Lutfen komutu .nsuspend [+sure] nick sebep olarak girin
return
}
}
; if ($1 == .decode) {
; if ($2) {
; msg #opers :Cozuldu: $2 >>> $decode($decode($right($2,-1),m),m))
;}
; else {
; msg $nick :Lutfen komutu .decode ID olarak girin.
;}
;}
if ($1 == .cinfo) {
if ($left($2, 1) == $chr(35)) {
cs info $2 all
}
else {
msg #opers :Lutfen komutu .cinfo #kanal olarak girin
}
}
if ($1 == .ninfo) {
if ($2) {
ns info $2 all }
else {
msg #opers :Lutfen komutu .ninfo nick olarak girin }
}
if ($1 == .shun && $2) {
SHUN $2
msg #opers :Shun komutu $2 uzerinde uygulandi
}

if ($1 == .gzline && $2) {
GZLINE $iif($verify_ip($2), *@ $+ $2, $2) 1h $iif($3, $3-, Lutfen Kurallara Uyunuz)
msg #opers :Global Z:line komutu $4 uzerinde uygulandi
return
}

if ($1 == .kill && $2) {
kill $2 Lutfen kurallara uyunuz.
msg #opers :KILL komutu $2 uzerinde uygulandi

}
if ($1 == .sendpass && $2) {
nickserv sendpass $2
msg #opers : $2 nickinin sifresi kayitli email adresine gonderildi.
}
if ($1 == .global && $2-) {
os global $2-
}
if ($1 == .pause) {
.timer*line.dance* off
hfree opers.qcommand
msg #opers :Islem yarida kesildi.
}
if ($1 == .topic) {
os raw :Chanserv Topic $2 : $3-
}

if ($1 == .banac) {
;if (*@*.*.*.* !iswm $1-) { .msg #opers :Lutfen IP Adresini Uygun Formatlarda Girin | return }
if ($verify_ip($2)) {
GZLINE -*@ $+ $2
GLINE -*@ $+ $2
ZLINE -*@ $+ $2
KLINE -*@ $+ $2
SHUN -*@ $+ $2
OS AKILL DEL -*@ $+ $2
msg #opers : $2 Uzerindeki Tum X-Line lar Kaldirildi.
return
}
else {
MSG #opers :Lutfen IP Adresini Uygun Formatlarda Girin
return
}
}
if ($1 == .komutlar) {
_linedance msg #opers :KULLANABILECEGINIZ KOMUTLAR:
_linedance msg #opers :---------------------------------------------------------------------
_linedance msg #opers :.banac IP (IP adresindeki tum Line'lari kaldirir (.banac 78.125.32.5)
_linedance msg #opers :.gzline nick sebep (belirtilen nicke gzline atar)
_linedance msg #opers :.sajoin nick #kanal (belirtilen nicki belirtilen kanala join yapar)
_linedance msg #opers :.sapart nick #kanal (belirtilen nicki belirtilen kanaldan part yapar)
_linedance msg #opers :.shun nick (belirtilen nicke shun atar)
_linedance msg #opers :.kill nick (belirtilen nicke kill atar)
_linedance msg #opers :---------------------------------------------------------------------
_linedance msg #opers :.topic #kanal topic-metni (belirtilen kanalin topigi degistirir)
_linedance msg #opers :.cinfo #kanal (belirtilen kanalin info bilgilerini gosterir)
_linedance msg #opers :.csuspend +7d #kanal sebep (belirtilen kanali 7 gun suspende alir)
_linedance msg #opers :---------------------------------------------------------------------
_linedance msg #opers :.ninfo nick (belirtilen nickin info bilgilerini gosterir)
_linedance msg #opers :.nsuspend +7d nick sebep (belirtilen nicki 7 gun suspende alir)
_linedance msg #opers :.sendpass nick (belirtilen nickin sifresini mail adresine yollar)
_linedance msg #opers :---------------------------------------------------------------------
; _linedance msg #opers :.decode ID (suspend sebeplerindeki ID noyu cozer)
_linedance msg #opers :.pause (mevcut islemi durdurur)
_linedance msg #opers :---------------------------------------------------------------------
}
}

alias verify_ip {
if ($regex(vfip, $1, /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/)) {
var %i = 1
while (%i <= 4) {
if ($regml(vfip, %i) < 0 || $regml(vfip, %i) > 255) {
return $false
}
inc %i
}
return $true
}
return $false
}