IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  vaybe sohbet

>
+
Etiketlenen Kullanıcılar

2Beğeni(ler)
  • 2 Post By Goemon

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 18 Şubat 2007, 20:34   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cr.2.1-SEC' de Giriş Kod




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;## ConferenceRoom Auth-Code ;## Koded bay SpecifiC ;) ;## date 04/08/08 ;## ;## Cofig - Burada gerekli ayarları kendinize göre değiştirebilirsiniz. alias -l conf { if ($1 == server) return $& irc.sohbetlisin.com ;# Burada 'localhost' yazan kısıma kendi server adreinizi yazınız. if ($1 == port) return $& 6667 ;# Burada '6667' yaza kısıma kendi server portunuzu yazınız. if ($1 == botname) return $& ONAY ;# Burada 'ONAY' yazan kısıma bot ismini yazınız. if ($1 == botident) return $& IRC2 ;# Burada 'mService' yazan kısıma botun identini yazınız. if ($1 == bothost) return $& IRC.SohbetLisin.Com ;# Burada 'mService.ConferenceRoom.com' yazan kısıma botun hostnamesini yazınız. if ($1 == linkpass) return $& auth ;# Burada 'sercan' yazan kısıma bot ismini yazınız. if ($1 == linkname) return $& auth.sohbetlisin.com ;# Burada 'sercan.ConferenceRoom.com' yazan kısıma bot ismini yazınız. if ($1 == time) return $& 20 ;# Burada '20' yazan kısıma auth kod zaman birimini yazınız. return ERROR } ;# Functions alias -l msso { ;## Link connecting hadd -m AUTHBOT id $+(-,$ctime,I2p5UQA,$rand(a,z),>) sockwrite -tn $sockname PASS $conf(linkpass) $+ $crlf $+ SERVER $conf(linkname) 1 Bot Services Agent sockwrite -tn $sockname NICK $conf(botname) 0 25+2z $conf(botident) $conf(bothost) $conf(linkname) $hget(AUTHBOT,id) :Bot mServices Agent } alias -l mssr { if ($sockerr) { echo $color(info) -at Baglantı kesildi return } sockread %data | tokenize 32 %data if PING* iswm $1- { sockwrite -tn $sockname PONG $gettok($1-,2,32) secho PING? PONG: $gettok($1-,2,32) } if ($2 == QUIT) { if $hget(AUTHNICK,$right($1,-1)) { hdel AUTHNICK $right($1,-1) } } if ($2 == PRIVMSG) && ($3 == $hget(AUTHBOT,id)) { if $hget(AUTHNICK,$right($1,-1)) == $right($4,-1) { hdel AUTHNICK $right($1,-1) sockwrite -nt $sockname $+(:,$hget(AUTHBOT,id)) NOTICE $right($1,-1) :Auth KOD'unuz başarı ile onaylanmıştır. } } if ($1 == NICK) && $hget(AUTHBOT,status) == on { var %1 = $r(1,9), %2 = $r(0,9), %3 = $r(0,9) hadd -m AUTHNICK $8 $+(%1,%2,%3) sockwrite -nt $sockname $+(:,$conf(linkname)) 006 $8 $+(:,$aline(%1,1),$aline(%2,1),$aline(%3,1)) sockwrite -nt $sockname $+(:,$conf(linkname)) 006 $8 $+(:,$aline(%1,2),$aline(%2,2),$aline(%3,2)) sockwrite -nt $sockname $+(:,$conf(linkname)) 006 $8 $+(:,$aline(%1,3),$aline(%2,3),$aline(%3,3)) sockwrite -nt $sockname $+(:,$conf(linkname)) 006 $8 $+(:,$aline(%1,4),$aline(%2,4),$aline(%3,4)) sockwrite -nt $sockname $+(:,$conf(linkname)) 006 $8 $+(:,$aline(%1,5),$aline(%2,5),$aline(%3,5)) sockwrite -nt $sockname $+(:,$conf(linkname)) 006 $8 $+(:,$aline(%1,6),$aline(%2,6),$aline(%3,6)) sockwrite -nt $sockname $+(:,$conf(linkname)) 006 $8 $+(:,$aline(%1,7),$aline(%2,7),$aline(%3,7)) sockwrite -nt $sockname $+(:,$conf(linkname)) 006 $8 $+(:,$aline(%1,8),$aline(%2,8),$aline(%3,8)) sockwrite -nt $sockname $+(:,$conf(linkname)) 006 $8 $+(:,$aline(%1,9),$aline(%2,9),$aline(%3,9)) sockwrite -nt $sockname $+(:,$hget(AUTHBOT,id)) NOTICE $8 :Lütfen yukarıdaki KOD'u /msg ONAY <KOD> şeklinde giriniz. sockwrite -nt $sockname $+(:,$hget(AUTHBOT,id)) NOTICE $8 :Örnek: /msg OAY 123 sockwrite -nt $sockname $+(:,$hget(AUTHBOT,id)) NOTICE $8 :Onay kodunu $conf(time) saniye içerisinde girmez iseniz mesaj gönderip alamayacaksınız. atime $8 } secho > : $1- } alias baglan { sockclose mss | sockopen mss $conf(server) $conf(port) } alias baslat { hadd -m AUTHBOT status on | echo $color(info) -at *** Starting AUTH-System } alias -l atime { $+(.timer,_,$1) 1 $conf(time) killid $1 } alias -l killid { if $hget(AUTHNICK,$1) { hdel AUTHNICK $1 sockwrite -nt mss $+(:,$hget(AUTHBOT,id)) NOTICE $1 :Onay kodunu girmediginiz için, artık mesaj gönderemez ve alamazssınız. sockwrite -nt mss $+(:,$hget(AUTHBOT,id)) MODE $1 :+q } } alias -l aline { return $hget(AUTHCODE,$+(A,$1,-,$2)) } alias -l secho { if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]SockServer) { window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]SockServer } echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]SockServer $1- } alias -l mssb { if !$hget(AUTHCODE) { .hmake AUTHCODE 10 } if $isfile($scriptdirauthcode.db) { .hload AUTHCODE authcode.db } } alias -l mssl { echo $color(info) -at *** ConferenceRoom 2.1 Auth Code System Beta 1.0 Loaded echo $color(info) -at *** Coded by SpecifiC } ;# Events on *:sockopen:mss: msso on *:sockread:mss: mssr on *:start: mssb on *:load: mssl ;#eof(); ;#End Code

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
A8-4 1,1#8##1####8##1# A7-3 1,1#######7##1# A6-8 1,1##8######1## A6-7 1,1#8##1####8##1# A5-4 1,1#7#1######## A3-9 1,1########## A1-1 1,1########## A0-5 1,1#8##1####8##1# A9-7 1,1#######7##1# A8-3 1,1#8##1####8##1# A7-6 1,1####7##1#### A6-2 1,1##8#######1# A3-3 1,1#######7##1# A2-8 1,1#8########1# A2-7 1,1###8##1##### A1-4 1,1#7#####1#### A9-1 1,1########## A8-5 1,1##8#8#####1## A6-9 1,1########## A6-4 1,1#8##1####### A5-8 1,1#7#######1## A5-5 1,1#7#######1## A4-1 1,1########## A3-6 1,1#######7##1# A2-2 1,1##8######1## A9-4 1,1#7##1####7##1# A7-7 1,1###7##1##### A6-3 1,1#8##1####### A2-9 1,1########## A2-4 1,1#######8##1# A1-8 1,1#7########1# A1-5 1,1####7##1#### A0-1 1,1########## A7-1 1,1########## A6-5 1,1#8#######1## A5-9 1,1########## A5-2 1,1#7########1# A4-6 1,1#8##1##8##1### A3-7 1,1#######7##1# A2-3 1,1#8##1####8##1# A9-8 1,1##7######1## A9-5 1,1##7#######1# A8-1 1,1########## A7-4 1,1######7##1## A4-8 1,1#1####8##1### A3-1 1,1########## A2-5 1,1######8##1## A1-9 1,1########## A1-2 1,1###7###1#### A0-6 1,1#8##1####8##1# A5-3 1,1#7#1######## A4-7 1,1#8########1# A3-4 1,1#######7##1# A0-8 1,1##8######1## A9-9 1,1########## A9-2 1,1##7######1## A8-6 1,1#8##1####8##1# A7-5 1,1#####7##1### A6-1 1,1########## A5-6 1,1########7#1# A4-9 1,1########## A4-2 1,1#8##1####### A1-3 1,1##7####1#### A0-7 1,1#8##1####8##1# A8-8 1,1##8######1## A7-8 1,1##7##1###### A4-4 1,1#8##1##8##1### A3-5 1,1#7#######1## A2-1 1,1########## A1-6 1,1####7##1#### A0-9 1,1########## A0-2 1,1##8######1## A9-3 1,1#7##1####7##1# A8-7 1,1#8##1####8##1# A7-2 1,1#7########1# A6-6 1,1#8##1####8##1# A5-7 1,1########7#1# A4-3 1,1#8##1####### A3-8 1,1#7#######1## A0-4 1,1#8##1####8##1# A9-6 1,1#######7##1# A8-9 1,1########## A8-2 1,1##8######1## A7-9 1,1########## A5-1 1,1########## A4-5 1,1#8##1##8##1### A3-2 1,1#7#######1## A2-6 1,1#####8##1### A1-7 1,1####7##1#### A0-3 1,1#8##1####8##1#


Panelden Socklınk Olusturdugunuz Taktırde Kod Sorunsuz Calısıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________

Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
google_ad_section_end -->

Konu Goemon tarafından (23 Kasım 2015 Saat 21:34 ) değiştirilmiştir.
 
Alıntı ile Cevapla

 

Etiketler
conferenceroom, cr21sec, crde, de, giris, giriste, giriş, girişte, kod, kodu, sorunu, yazma


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
AÖL sınav giriş belgesi açıklandı mı? Sınav giriş yerleri ne zaman açıklanacak? Sanem AÖL 0 03 Temmuz 2018 12:31
23-24 Ocak AÖF Sınav Giriş Yerleri belirlendi - 2016 AÖF giriş yeri sorgula NarÇiçeği AÖF 0 18 Ocak 2016 19:12
AÖF tek ders sınavı giriş yerleri ve sınav giriş belgesi Tufan AÖF 0 24 Haziran 2015 00:53
Giriş Kodu Giriş Paneli ve Nick Listesi yardımı impOsibLe mIRC Scripting Sorunları 4 12 Temmuz 2010 13:35
2010 YGS Giriş Belgesini Kaybedenler Veya Giriş Belgesi Gelmeyenler İçin Pentagram YGS ve LYS'ye Hazırlık 0 05 Nisan 2010 13:48