Multi GlobServ Socket Sistem
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 |
alias sw { if $sock($1).status == active { sockwrite -nt $1- } } alias sunucu return irc.maytap.net 6667 alias opers return Aeg 12345 alias botnick return GlobServ alias password return b12345 alias ident return Services alias host return maytap.Net alias global return #sohbet alias nochan return #cinsellik alias yonetim return #operhelp,#help,#helpers alias operchan return #opers alias saniye return 120 alias bagla { sockclose globserv sockopen globserv $sunucu } alias kopar { sockclose globserv } on *:SOCKOPEN:globserv: { sw $sockname nick $botnick sw $sockname USER $ident " " : $+ $+([,,Multi Global,,]) System v1 } on *:sockread:globserv: { if !$sock($sockname) { echo -a Baglanti Koptu! | halt } var %q sockread %q tokenize 32 %q var %sock = $gettok($sockname,2-,11) if $1 == PING { sw $sockname PONG $2 } if $2 == 376 { sw $sockname oper $opers sw $sockname identify $password sw $sockname sethost $host sw $sockname join 0, sw $sockname join $operchan timerliste 0 $saniye sw $sockname list } if ($2 == 322) { if ($5 > 1) && (!$istok($nochan ,$4,44)) && (!$istok($yonetim,$4,44)) && ($4 !== $operchan) { sw $sockname join $4 | sw $sockname who +R $4 | sw $sockname part $4 | unset %kotn.* } } if ($2 == 352) { if (%kotn. [ $+ [ $8 ] ] !== $null) { halt } if ($mfind($8)) { halt } sw $sockname whois $8 set %kotn. $+ $8 1 } if ($2 == 319) { if ( $+(*,#,$global,*) !iswm $5- ) && ( $+(*,#,$nochan,*) !iswm $5- ) { sw $sockname sajoin $4 $global sw $sockname privmsg $4 5Sunucu Uzerinde Bulundugunuz Kanallar; sw $sockname privmsg $4 5Kanallar:4 $5- sw $sockname privmsg $4 5Tarafimca Sunucuda Bulunan Butun Rumuz/Nick 'leri $global Kanalda Tutmam Mecburidir. } } if ($2 == privmsg) && ($3 == $operchan) { if (!muafadd isin $4) { set %chan $3 | madd $5 } if (!muafdel isin $4) { set %chan $3 | mdel $5 } if (!muaflist isin $4) { mlist $gettok($gettok($1,1,33),1,58) } } } alias madd { var %n = $left($calc($ctime * $rand(1000,9999)),7) if ($1- == $null) { sw globserv PRIVMSG %chan lutfen nick yaziniz. | halt } if ($hfind(muaf,$1-,0,W).data) { sw globserv PRIVMSG %chan $1 eskiden muaf listesinde bulunmaktadir. | halt } hadd -m muaf %n $1- hsave -o muaf muaf.ch sw globserv PRIVMSG %chan $1 muaf listesine eklendi. } alias mdel { if ($1- == $null) { sw globserv PRIVMSG %chan lutfen nick yaziniz. | halt } if (!$hfind(muaf,$1-,0,W).data) { sw globserv PRIVMSG %chan bu nick listede bulunmamakta zaten. | halt } hdel muaf $hfind(muaf,$1-,1,W).data hsave -o muaf muaf.ch .hfree -sw muaf hmake muaf hload muaf muaf.ch sw globserv PRIVMSG %chan $1 muaf listesinden silindi. } alias mfind { var %muaf = $remove($1-,$chr(44)) if ($hfind(muaf,%muaf,1,W).data) { return 1 } else { return 0 } } alias mlist { var %i = 1, %t = $hget(muaf,0).data if (!%t) && (!$hget(muaf)) { hmake muaf 100 hload muaf muaf.ch } sw globserv PRIVMSG $1- muaf listesi. while (%i < = %t) { %d = $hget(muaf,%i).data if (%d != $null) { sw globserv PRIVMSG $1- %i - %d } inc %i } sw globserv PRIVMSG $1- muaf listesi sonu. } Multi GlobServ , ne işe yarar ? Sunucuda Bulunan Butun Nickleri , 1 Global Kanalda Tutma Olasiligi Saglamaya Yarar kısacasi bu , Socket Bir Sistem Olup Sunucuda Bulunan Butun Kanallara belli bir sure araligiyla (sizin ayarliyacaginiz) kanallara giriş yapip tekrar cıkar ve ayarladiginiz kanalda bulunmayan userleri ayarladiginiz kanalla joinler, ama cinsel kanal muaf tutma ozelligi olup sadece muaf'ta bulunan kanal bulundugu kanallara arasinda ise ayarladiginiz kanala o useri cekmez , ins. anlatabilmişimdir uykusuz halde anlatmaya calişmaktayim cünqü =) , Muaf Nick Ayarlama Ozeligi ; !muafadd Nick !muafdel Nick !muaflist seklinde. /bagla <= Yazdiginizda sunucuya baglar /kopar <= Yazdiginizda sunucudan baglantisini koparir. |
Alıntrıdır.