26 Ocak 2015, 00:03 | #1 |
Bir umuttur yaşamak
Üyelik tarihi: 09 Eylül 1991
Bulunduğu yer: Konya Mesajlar: 323 WEB Sitesi: https://www.teklan.com.tr/ IRC Sunucusu: irc.teklan.com.tr İlgi Alanı: mIRC Scripting Alınan Beğeni: 211 |
HostServ [Socket Sistem]
Kod:
alias sunucu return irc.sunucu.com 6667 alias opers return Aeg 123456 alias nickpass return 123456 alias hostserv { if ($1 == bagla) { sockclose hostserv | sockopen hostserv $sunucu | echo -a HostServ Baglanmistir. } if ($1 == kopar) { sockclose hostserv | echo -a HostServ Baglantisi Kopmustur. } } alias hostver { sw hostserv chghost $1 $gettok($read(host.63,w,$+($1,$chr(42),*)),2,42) } alias hostadd { if ($read(host.63,w,$+($2,$chr(42),*))) { sw hostserv notice $1 $2 Adina Eskiden Kayit Bulunmaktadir , ve Degistirilmistir. | write $+(-dl,$+($2,$chr(42),*)) host.63 } sw hostserv notice $1 Host Eklenmistir. sw hostserv notice $1 Nick: $2 sw hostserv notice $1 Host: $3 write host.63 $+($2,$chr(42),$3) } alias hostdel { if (!$read(host.63,w,$+($2,$chr(42),*))) { sw hostserv notice $1 $2 Adina kayit bulunmamaktadir. | halt } sw hostserv notice $1 $2 Adina Oto Host Sistemi Sistemden Silinmistir. Hostu: $gettok($read(host.63,w,$+($2,*)),2,42) write $+(-dl,$readn) host.63 } alias goster { if (!$2) { var %s 1 var %xx $lines(host.63) if (%xx == 0) { sw hostserv notice $1 Listede kayit bulunmamaktadir. | halt } sw hostserv notice $1 - HostServ List - sw hostserv notice $1 - while (%s <= $lines(host.63)) { sw hostserv notice $1 Nick: $gettok($read(host.63,%s),1,42) Host: $gettok($read(host.63,%s),2,42) inc %s } sw hostserv notice $1 - sw hostserv notice $1 HostServ List The End - halt } if ($2 == -r) { sw $sockname notice $1 HostServre Ait Butun Bilgiler Sifirlanmistir. | write -c host.63 | halt } if (!$read(host.63,w,$+($1,$chr(42),*))) { sw hostserv notice $1 $2 Adina kayit bulunmamaktadir. | halt } sw hostserv notice $1 Nick: $($chr(2),$gettok($read(host.63,w,$+($2,$chr(42),*)),1,42),$chr(2)) Host: $+($chr(2),$gettok($read(host.63,w,$+($2,$chr(42),*)),2,42),$chr(2)) } alias sw { if $sock($1).status == active { sockwrite -nt $1- } } on *:SOCKOPEN:hostserv: { sw $sockname nick Services $+ $r(0,99) sw $sockname USER 63 " " : $+ $+([,,HostServ,,]) (System v1 by Aeg) } on *:sockread:hostserv: { if !$sock($sockname) { echo -a Baglanti Koptu! | halt } var %q sockread %q tokenize 32 %q if $1 == error && $2 == :closing { hostserv bagla } if $1 == PING { sw $sockname PONG $2 } if $2 == 376 { sw $sockname oper $opers sw $sockname join 0, sw $sockname nick HostServ sw $sockname identify $nickpass sw $sockname sethost services.bot sw $sockname setident Server sw $sockname stats o .timerlist 0 2 sw $sockname list sw $sockname mode hostserv +p } if ($2 == 322) { if ($5 <= 1) { sw $sockname part $4 } if ($5 >= 2) { sw $sockname join $4 } } if ($2 == 352) && (r isin $9) { .hostver $8 .timer $+ $8 off } if ($2 == 243) { %operler = $addtok(%operler,$7,32) } if ($2 == privmsg) { var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3 if (%k == HostServ) { var %komutlar = on list add del help if (!$istok(%komutlar ,$remove($4,:),32)) { sw $sockname notice %n $remove($4,:) ait komut kulunmamaktadir. | halt } if (!$istok(%operler ,%n,32)) { sw $sockname notice %n Bu komutu kullanmaya yetkili degilsiniz! | halt } if (help isin %m) { sw $sockname notice %n Merhaba %n , HostServ help Commands Lists. sw $sockname notice %n - sw $sockname notice %n /Msg Hotserv Help seklinde yazarak host systemi hakkinda bilgi alabilirsiniz. sw $sockname notice %n - sw $sockname notice %n /Msg hostserv add nick host komutu ; sw $sockname notice %n *** nick yerine Host eklencek nick yazilcak , *** sw $sockname notice %n *** host yerine Eklenecek host , Ornek: O.bir.UrfaLy *** sw $sockname notice %n /msg hostserv del nick yazarak o nick'in ekli hostunu silebilirsiniz. sw $sockname notice %n - sw $sockname notice %n /msg hostserv list yazarak host listesine bakabilirsiniz. sw $sockname notice %n - sw $sockname notice %n - sw $sockname notice %n /msg hostserv on yazarak oto hostunuzu alabilirsiniz. sw $sockname notice %n - sw $sockname notice %n $decode(1`EEA<&EM8VDZ`B!">2!!96<`) } if (add isin %m) { if ($5 == $null) { sw $sockname notice %n Nick Yazmayi Unuttunuz , Ornek: /msg hostserv add Aeg O.bir.UrfaLy | halt } if ($6 == $null) { sw $sockname notice %n Host Yazmayi Unuttunuz , Ornek: /msg hostserv add Aeg O.bir.UrfaLy | halt } hostadd %n $5 $6 } if (del isin %m) { if ($5 == $null) { sw $sockname notice %n Nick Yazmayi Unuttunuz , Ornek: /msg hostserv del Aeg | halt } hostdel %n $5 } if (list isin %m) { if ($5 !== $null) { goster %n $5 | halt } goster %n } if (on isin %m) { if (!$read(host.63,w,$+(%n,$chr(42),*))) { sw $sockname notice %n HostServe Kayitli Hostunuz Bulunmamaktadir! | halt } if ($read(host.63,w,$+(%n,$chr(42),*))) { hostver %n sw $sockname notice %n Nickinize ait oto hostu almis bulunmaktasiniz. } } } } if ($2 == notice) { if (connecting isin $1-) { if ($read(host.63,w,$+($12,$chr(42),*))) { .timer $+ $12 60 1 sw $sockname who $12 } } } if $2 == JOIN { var %nick = $remove($gettok($1,1,33),:) if ($read(host.63,w,$+(%nick,$chr(42),*))) { .timer $+ %nick 60 1 sw $sockname who %nick } } if $2 == NICK { var %nickdegis = $remove($gettok($1,1,33),:) | var %newnick = $right($3,-1) if ($read(host.63,w,$+(%newnick,$chr(42),*))) { .timer $+ %newnick 60 1 sw $sockname who %newnick } } } on *:sockclose:hostserv: { unset %operler timerlist off Bu sistem normal bir hostserv islevi yapmaktadir Bu sistem orjinalin disinda sadece farki , sunucuda bulunan tum kanallara girmektedir. Kullanim Sarti; Botun chghost Komutunu kullanabilmesi ve sajoin komutu kullanabilmesi gerekmektedir. Bu Kısımlari Doldurduktan Sonra; alias sunucu return irc.sunucu.com 6667 alias opers return Aeg 123456 alias nickpass return 123456 Botu Baglamak Icin ; Botu IRC'e Baglamak icin => /hostserv bagla Botun IRC Baglantisini Kopartmak Icın => /hostserv kopar Detayli bilgileri gormek icin botu kurdugunuzda /msg hostserv help yaziniz. Ins. Isinize Yarar , hayirli IF'ler.. Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.
|
Alıntı
|
Etiketler |
hostserv, sistem, socket |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
HostServ [Socket Sistem] | Toprak | Hazır Kodlar | 1 | 17 Mart 2016 03:32 |
Not sistem tcl | Anti | TCL Scriptler | 0 | 03 Kasım 2015 22:21 |
Windows 10 sistem gereksinimleri | Siyah | Windows | 0 | 02 Kasım 2015 22:14 |
HelpOto Host Sistem TCL | No_FeaR | TCL Scriptler | 0 | 22 Mart 2015 14:17 |
BNC-Sistem (Socket Teknoloji) | Toprak | Hazır Kodlar | 0 | 27 Ocak 2015 22:55 |