[Lost]

Merhaba Sayın Arkadaşlar;
Bir Socket Bot Addonu Hakkında Yardım İstiyorum Anlayanlardan.
Bu Addonu Normal Script Addonuna Çevirmek İçin Uğraştım Fakat Karakterler Kafamı Karıştırdı, Devamında Addonu Karıştırdım.
Bunu Normal Mirc Script Addonuna Çevirebilen Arkadaşlarım Olursa Çok Sevinirim. Teşekkürler.



on *:text:*:#opers: {

if ($3 == .sajoin) {
if ($4 && $left($5, 1) == $chr(35)) {
sw hub SAJOIN $4 $5
return
}
else {
sw hub PRIVMSG $1 :Lutfen komutu .sajoin nick #kanal seklinde kullanin.
return
}
}
if ($3 == .sapart) {
if ($4 && $left($5, 1) == $chr(35)) {
sw hub SAPART $4 $5
return
}
else {
sw hub PRIVMSG $1 :Lutfen komutu .sapart nick #kanal seklinde kullanin.
return
}
}
if ($3 == .csuspend) {
if ($regex(compile, $4-, /(\+\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) {
sw hub cs suspend $regml(compile, 1) $regml(compile, 2) %reason ID: $+(%randsus,$encode($encode($botfnick($2),m),m))
}
else {
sw hub cs suspend +5d $regml(compile, 2) %reason ID: $+(%randsus,$encode($encode($botfnick($2),m),m))
}
sw hub privmsg #Opers :Suspend komutu $5 kanali uzerinde uygulandi. (Sure: $iif(%time, $regml(compile, 1), SURESIZ) Sebep: %reason ID: $+(%randsus,$encode($encode($botfnick($2),m),m)) $+ )
console.log suspend $2 $+ , $5 kanalini suspendledi.
return
}
else {
sw hub PRIVMSG $1 :Lutfen komutu .csuspend [+sure] kanal sebep olarak girin
return
}
}
if ($3 == .nsuspend) {
if ($regex(compile, $4-, /(\+\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) {
sw hub ns suspend $regml(compile, 1) $regml(compile, 2) %reason ID: $+(%randsus,$encode($encode($botfnick($2),m),m))
}
else {
sw hub ns suspend +5d $regml(compile, 2) %reason ID: $+(%randsus,$encode($encode($botfnick($2),m),m))
}
sw hub privmsg #Opers :Suspend komutu $5 nicki uzerinde uygulandi. (Sure: $iif(%time, $regml(compile, 1), SURESIZ) Sebep: %reason ID: $+(%randsus,$encode($encode($botfnick($2),m),m)) $+ )
console.log suspend $2 $+ , $5 nickini suspendledi.
return
}
else {
sw hub PRIVMSG $1 :Lutfen komutu .nsuspend [+sure] nick sebep olarak girin
return
}
}
if ($3 == .decode) {
if ($4) {
sw hub privmsg $1 :Cozuldu: $4 >>> $decode($decode($right($4,-3),m),m))
return
}
else {
sw hub PRIVMSG $1 :Lutfen komutu .decode ID olarak girin.
return
}
}
if ($3 == .cinfo) {
if ($left($4, 1) == $chr(35)) {
sw hub cs info $4 all
return
}
else {
sw hub PRIVMSG $1 :Lutfen komutu .cinfo #kanal olarak girin
return
}
}
if ($3 == .ninfo) {
if ($4) {
sw hub ns info $4 all
return
}
else {
sw hub PRIVMSG $1 :Lutfen komutu .ninfo nick olarak girin
return
}
}
if ($3 == .shun && $4) {
sw hub SHUN $4
sw hub privmsg #Opers :Shun komutu $4 uzerinde uygulandi
console.log sg $2 $+ , $4 uzerinde shun uyguladi.
return
}
if ($3 == .gzline && $4) {
sw hub GZLINE $iif($verify_ip($4), *@ $+ $4, $4) 1h $iif($5, $5-, Lutfen Kurallara Uyunuz)
sw hub privmsg #Opers :Global Z:line komutu $4 uzerinde uygulandi
console.log sg $2 $+ , $4 uzerinde gzline uyguladi.
return
}
if ($3 == .kill && $4) {
sw hub kill $4 Lutfen kurallara uyunuz.
sw hub privmsg #Opers :KILL komutu $4 uzerinde uygulandi
console.log sg $2 $+ , $4 uzerinde KILL uyguladi.
return
}
if ($3 == .sendpass && $4) {
sw hub nickserv sendpass $4
sw hub privmsg #Opers : $+ $4 nickinin sifresi kayitli email adresine gonderildi.
return
}
if ($3 == .global && $4-) {
;;os global $4-
return
}
if ($3 == .pause) {
.timer*line.dance* off
hfree SevgimNet.qcommand
sw hub privmsg #Opers :Islem yarida kesildi.
return
}
if ($3 == .topic) {
os raw :Chanserv Topic $4 : $+ $5-
}
if ($3 == .banac) {
if ($verify_ip($4)) {
_linedance sw hub GZLINE -*@ $+ $4
_linedance sw hub GLINE -*@ $+ $4
_linedance sw hub ZLINE -*@ $+ $4
_linedance sw hub KLINE -*@ $+ $4
_linedance sw hub SHUN -*@ $+ $4
_linedance sw hub OS AKILL DEL *@ $+ $4
sw hub PRIVMSG #Opers : $+ $4 Uzerindeki Tum X-Line lar Kaldirildi.
return
}
else {
sw hub PRIVMSG #Opers :Lutfen IP Adresini Uygun Formatlarda Girin
return
}
}
if ($3 == .komutlar) {
_linedance sw hub privmsg #Opers :KULLANABILECEGINIZ KOMUTLAR:
_linedance sw hub privmsg #Opers :---------------------------------------------------------------------
_linedance sw hub privmsg #Opers :.banac IP (IP adresindeki tum Line'lari kaldirir (.banac 78.125.32.5)
_linedance sw hub privmsg #Opers :.gzline nick sebep (belirtilen nicke gzline atar)
_linedance sw hub privmsg #Opers :.sajoin nick #kanal (belirtilen nicki belirtilen kanala join yapar)
_linedance sw hub privmsg #Opers :.sapart nick #kanal (belirtilen nicki belirtilen kanaldan part yapar)
_linedance sw hub privmsg #Opers :.shun nick (belirtilen nicke shun atar)
_linedance sw hub privmsg #Opers :.kill nick (belirtilen nicke kill atar)
_linedance sw hub privmsg #Opers :---------------------------------------------------------------------
_linedance sw hub privmsg #Opers :.topic #kanal topic-metni (belirtilen kanalin topigi degistirir)
_linedance sw hub privmsg #Opers :.cinfo #kanal (belirtilen kanalin info bilgilerini gosterir)
_linedance sw hub privmsg #Opers :.csuspend +7d #kanal sebep (belirtilen kanali 7 gun suspende alir)
_linedance sw hub privmsg #Opers :---------------------------------------------------------------------
_linedance sw hub privmsg #Opers :.ninfo nick (belirtilen nickin info bilgilerini gosterir)
_linedance sw hub privmsg #Opers :.nsuspend +7d nick sebep (belirtilen nicki 7 gun suspende alir)
_linedance sw hub privmsg #Opers :.sendpass nick (belirtilen nickin sifresini mail adresine yollar)
_linedance sw hub privmsg #Opers :---------------------------------------------------------------------
_linedance sw hub privmsg #Opers :.decode ID (suspend sebeplerindeki ID noyu cozer)
_linedance sw hub privmsg #Opers :.pause (mevcut islemi durdurur)
_linedance sw hub privmsg #Opers :---------------------------------------------------------------------
}
}
}

[Difuzyon]

Kelimeleri İngilizce'de Türkçe'ye çevirmekle harcadığın zamanı scripting ile ilgili derslere ayırsaydın ve konuları bilinçli bir izleyici olarak dikkatle takip etmiş olsaydın,çok değil elini de az birşey pratiğe alıştırmış olsaydın belki de bu kodu istediğin versiyonda kendin yazabilirdin.

Ben bu konuda kendini geliştirmeye değecek bir paylaşım göremiyorum.

[Lost]

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
}

[Eset]

Verdiğiniz Emek İçin Teşekkür Ederiz Kardeşim..