| IrCbaStarD | 30 Kasım 2010 19:32 |
Online destek sock
Kod:
on *:Sockopen:Destek: {
%H.Sys = h-System $+ $r(100,999999)
sockwrite -nt $sockname NICK %H.Sys
sockwrite -nt $sockname USER hAte-Sys "" " $+ $iif($host,$host,$ip) $+ " : $+ hAte System Online Destek Botu..
sockmark $sockname %H.Sys
}
on *:Sockread:Destek: {
var %Christina!
sockread %Christina!
tokenize 32 %Christina!
if !$window(@hAte.System) { window -k0l16zSe @hAte.System | aline -l @hAte.System Online destek | aline -l @hAte.System - | echo -t @hAte.System (Bilgi) hAte System online destek kanalı.. (4irc.mIRCTR.net #mIRCHelp) }
if $1 == PING {
sockwrite -nt $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sockwrite -nt $sockname join #mIRCHelp
}
if $2 == 353 && #mIRCHelp isin $1- { var %s 1 | while %s <= $numtok($right($6-,-1),32) { aline -l @hAte.System $asd($gettok($remove($right($6-,-1),~,&,@,+,%),%s,32)) | inc %s } }
if $2 == Join {
if #mIRCHelp isin $1- && $sock($sockname).mark isin $1 { bilgi.hAte.System | halt }
if #mIRCHelp isin $1- { aline -l @hAte.System $asd($remove($gettok($1,1,33),:))) }
}
if $2 == Privmsg && $3 == #mIRCHelp { echo -t @hAte.System $+([,$asd($remove($gettok($1,1,33),:)),]) > $asd($right($4-,-1)) }
if $2 == mode && $3 == #mIRCHelp && + isin $4 && $sock($sockname).mark == $5 { echo 3 -t @hAte.System $me Yardım alabilirsiniz, $4 konumuna geldiniz.. }
if $2 == mode && $3 == #mIRCHelp && - isin $4 && $sock($sockname).mark == $5 { echo 3 -t @hAte.System $me Kanalda beklemek, makara yapmak serbesttir :D $4 moduna alındınız. }
}
on *:input:@hAte.System:{ if / isin $1 { $1- | halt } | echo -t @hAte.System $+([,hAte System Online Destek,]) > $1- | sockwrite -nt destek privmsg #mIRCHelp : $+ $1- | halt }
alias destek {
if !$window(@hAte.System) { window -k0l16zSe @hAte.System | aline -l @hAte.System #Online destek# | echo -t @hAte.System (Bilgi) hAte System online desteğe bağlanıyor.. (4irc.mIRCTR.net #mIRCHelp) }
if !$sock(Destek) { sockopen destek Server Port }
}
alias asdasd return $replace($1-,$sock(Destek).mark,$me)
alias asd { return $replace($1-,IrCbaStarD,12~IrCbâStârD,hAte,12~hÀtè,SerJan,12~SérJán,Christina,13&Christina,Emrax,2&Emrax,HeavenLy,13%HeavenLy,Boreas,13%Boreas,X5,12@X5,$sock(Destek).mark,$me) }
Menu @hAte.System {
.Destek penceresini kapat:window -c @hAte.System
.-
.Pencereyi temizle:clear $active | bilgi.hate.system
}
menu * {
ONLİNE DESTEK:destek
}
on *:Close:@hAte.System:sockclose Destek
alias Bilgi.hAte.System { echo -t @hAte.System (Bilgi) Online destek kanalına bağlandınız.. | echo -t @hAte.System (Bilgilendirme) Ascii karakter kullanmayınız, spamfiltera takılma olasılıgınız yüksektir.. | echo -t @hAte.System (Bilgilendirme) Kanalda beklemek serbesttir, bilgi paylaşımına acıktır.. }
Kendi scriptime yapdıgım bi destek kodu, server ve portu ayarlıya bilirsiniz, diğer bilgileride kendinize göre editleye bilirsiniz.. =) |
