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

15Beğeni(ler)
  • 6 Post By Toprak
  • 1 Post By Nokta
  • 2 Post By Seyra
  • 4 Post By xwerswoodx
  • 1 Post By Vision
  • 1 Post By Xander

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Temmuz 2023, 20:06   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Profil Sistem.




Merhaba, çok önceden yapmıştım, işine yarayan kullansın.


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Socket Bot;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias _prbot return PROFIL alias _pass return 56tyhgfnd alias _ident return Paradox alias _username return Coder by Toprak alias _oper return Koruma qwf8sc9c alias _supass return 121212121212121 alias _sunucu return irc.Toprak.NET alias _sunucuip return 185.241.121.51 alias _port return 6667 alias _profil return #Profil alias _services return #Services ;- Profil sayfası ayarları alias _prolink return https://profil.toprak.net/ alias _botlink return bot.toprak.net alias _prosifre return 2o22b45gb1lt0P ;---------------------------------------- ;- Bot'un gireceği kanallar. alias _pr-kanallar return $_profil $_services #Sohbet #Chat #Radyo ;---------------------------------------- alias _saatkontrol $iif(!$sock(prbot),sockopen prbot $_sunucuip $_port) alias _nick return $remove($gettok($1,1,33),:) alias swprbot $iif($sock(prbot).status == active,sockwrite -nt prbot $1-) on *:sockclose:prbot:$+(.timer,_saatkontrol) 1 2 _saatkontrol on *:sockopen:prbot:{ if ($sockerr) { sockclose $sockname | $+(.timer,_saatkontrol) 1 2 _saatkontrol } else { swprbot NICK $+($_prbot,$left($calc($ticks * $r(10,99999)),$r(5,7))) | swprbot USER $_ident "" $+(",$ip) $+(:,$_username) | sockmark $sockname $_prbot } } on *:sockread:prbot:{ var %;prbot | sockread -f %;prbot | tokenize 32 %;prbot if $regex($1,/^PING$/) { swprbot pong $remove($2,:) } elseif $regex($1,/^ERROR$/i) { sockclose $sockname | $+(.timer,_saatkontrol) 1 2 _saatkontrol } elseif $regex($2,/^(471|473|474|475)$/) { swprbot sajoin $_prbot $4 } elseif $regex($2,/^(411|481)$/) { swprbot oper $_oper | swprbot nick $_prbot | swprbot nickserv identify $_pass } elseif $regex($2,/^(001|433)$/) { swprbot oper $_oper swprbot ns ghost $_prbot $_pass swprbot ns release $_prbot $_pass swprbot join #0,0 .timer 1 3 swprbot nick $_prbot } elseif $regex($2,/^NICK$/i) { if ($_nick($1) == $_prbot) { swprbot ns ghost $_prbot $_pass | swprbot ns release $_prbot $_pass | .timer 1 3 swprbot nick $_prbot } elseif ($right($3,-1) == $_prbot) { swprbot ns identify $_pass swprbot oper $_oper swprbot os su $_supass swprbot join #0,0 swprbot mode $right($3,-1) +qHp-hY $+(.timer,_saatkontrol) 0 20 _saatkontrol $+(.timer,prbot-gir) 1 3 swprbot sajoin $right($3,-1) $replace($_pr-kanallar,$chr(32),$chr(44)) } } elseif $regex($2,/^KICK$/i) && ($4 == $_prbot) && $istok($_pr-kanallar,$3,32) { swprbot sajoin $4 $3 } elseif $regex($2,/^JOIN$/i) { if ($_nick($1) == $_prbot) { if $istok($_pr-kanallar,$right($3,-1),32) { swprbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5) } else { swprbot sapart $_nick($1) $right($3,-1) } } } elseif $regex($2,/^352$/i) && $hget(Pro-Mesajat,$8) { if !$regex($9,/r/) { swprbot privmsg $token($hget(Pro-Mesajat,$8),1,191) :Nickiniz kayıtlı olmadığından bu komutu kullanamazsınız.! | .hdel -ms Pro-Mesajat $8 } else { _profil-mesaj $8 $token($hget(Pro-Mesajat,$8),1,191) $token($hget(Pro-Mesajat,$8),2-,191) | .hdel -ms Pro-Mesajat $8 } } elseif $regex($2,/^NOTICE$/i) && $regex($_nick($1),/^NickServ$/Si) { if $regex($token($token($1-,2-,58),-1,46),/(.+) nick'inin sifresi : (.+)/Si) { if $hget(Profil-Kayit,$regml(1)) { _profil-kayit $regml(1) $+($regml(1),@,$gettok($_sunucu,2-,46)) $iif($regml(2),$v1,sifreyoqs) $_profil-rank($regml(1)) | .hdel -ms Profil-Kayit $regml(1) } elseif $hget(Profil-Güncelle,$regml(1)) { _profil-guncel $regml(1) $iif($regml(2),$v1,sifreyoqs) | .hdel -ms Profil-Güncelle $regml(1) } } } elseif $regex($2,/^PRIVMSG$/i) { if ($3 == $_services) && $regex($_nick($1),/^NickServ$/Si) { if $regex($4-,/\] (.+)!.+@.+ Nick'i sunucuya login oldu/Si) { if ($_eggdrop-nickler($regml(1)) == 1) { return } .hadd -msu50 Profil-Kayit $regml(1) ok. swprbot ns getpass $regml(1) } elseif $regex($4-,/\] (.+) Nick'i.+email üzerine kayıt edilmişdir/Si) { if ($_eggdrop-nickler($regml(1)) == 1) { return } .hadd -msu50 Profil-Kayit $regml(1) ok. swprbot ns getpass $regml(1) } elseif $regex($4-,/\] (.+) Nick'inin şifresi.+tarafından değiştirildi/Si) { if ($_eggdrop-nickler($regml(1)) == 1) { return } .hadd -msu50 Profil-Güncelle $regml(1) ok. swprbot ns getpass $regml(1) } elseif $regex($4-,/\] (.+) Nick'i.+tarafından drop'landi/Si) { if ($_eggdrop-nickler($regml(1)) == 1) { return } _profil-sil $regml(1) } } else { if $regex($remove($4,:),/^([!.&-]prof[ıiİ]l)$/Si) { if $hget(Pro-Durum,$_nick($1)) { swprbot notice $_nick($1) :5 dakika da bir !profil komutunu kullanabilirsiniz. } elseif !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/Si) { swprbot privmsg $3 :Lütfen nick belirtiniz. 4ÖRN: !profil Toprak } else { _profil-bak $strip($5) $3 | .hinc -msu300 Pro-Durum $_nick($1) } } elseif $regex($remove($4,:),/^([!.&-]durum)$/Si) { if $hget(Pro-Mesaj,$_nick($1)) { swprbot notice $_nick($1) :5 dakika da bir !durum komutunu kullanabilirsiniz. } elseif !$5 { swprbot privmsg $3 :Lütfen 4!durum MESAJ olarak belirtiniz. MESAJ en fazla 140 karekter olmalı! } elseif ($len($strip($5-)) > 140) || ($len($strip($5-)) < 10) { swprbot notice $_nick($1) :Lütfen 4!durum MESAJ olarak belirtiniz. Durumunuz en az 10 en fazla 140 karekter olmalı! } else { .hadd -ms Pro-Mesajat $_nick($1) $+($3,¿,$strip($5-)) | swprbot who $_nick($1) | .hinc -msu300 Pro-Mesaj $_nick($1) } } elseif $regex($remove($4,:),/^([!.&-]rank)$/Si) && ($3 == $_profil) { if !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/Si) { swprbot privmsg $3 :Lütfen nick belirtiniz. 4ÖRN: !rank Toprak } elseif !$istok(0 1 2 3 4 5 6,$strip($6),32) { swprbot privmsg $3 :Lütfen rank belirtiniz. swprbot privmsg $3 : swprbot privmsg $3 :0 : User swprbot privmsg $3 :1 : Özel Üye swprbot privmsg $3 :2 : Sunucu Yetkilisi (Oper/Admin) swprbot privmsg $3 :3 : Teknik Sorumlu swprbot privmsg $3 :4 : Genel Sorumlu swprbot privmsg $3 :5 : AR-GE Sorumlusu swprbot privmsg $3 :6 : Sunucu Sahibi swprbot privmsg $3 : swprbot privmsg $3 :4ÖRN: !rank Toprak 5 } else { _profil-rankekle $strip($5-) $3 } } } } } alias _profil-rank { if ($1 == Toprak) { return 5 } elseif $istok($_masternick,$1,32) { return 6 } elseif ($rootbul($1) == 1) { return 4 } elseif ($operbul($1) == 1) { return 2 } elseif $hget(VIP,$1) { return 1 } else { return 0 } } alias _profil-tr { if !$regex($1-,/^([a-zA-Z-_][a-zA-Z0-9_-]{0,30})$/Si) { return 1 } else { return 0 } } alias _profil-kayit { if ($_profil-tr($1) == 1) { swprbot privmsg $1 $+(:,$1) nickinizde Türkçe ya/yada Özel Karekterler olduğundan dolayı Profil Sayfası oluşturulamıyor. } else { sockopen $+(_profil-socks¬,$1) $_prbotlink 80 sockmark $+(_profil-socks¬,$1) $+(durum=ekle&kod=,$_prosifre,&username=,$1,&sifre=,$3,&mail=,$2,&flag=,$4) } } alias _profil-bak { sockopen $+(_profil-socks¬,$1,¬,$2) $_prbotlink 80 sockmark $+(_profil-socks¬,$1,¬,$2) $+(durum=profil&kod=,$_prosifre,&username=,$1) } alias _profil-sil { if ($_profil-tr($1) == 1) { return } else { sockopen $+(_profil-socks¬,$1) $_prbotlink 80 sockmark $+(_profil-socks¬,$1) $+(durum=sil&kod=,$_prosifre,&username=,$1) } } alias _profil-guncel { if ($_profil-tr($1) == 1) { return } else { sockopen $+(_profil-socks¬,$1) $_prbotlink 80 sockmark $+(_profil-socks¬,$1) $+(durum=guncel&kod=,$_prosifre,&username=,$1,&sifre=,$2) } } alias _profil-mesaj { if ($_profil-tr($1) == 1) { return } else { sockopen $+(_profil-socks¬,$1,¬,$2) $_prbotlink 80 sockmark $+(_profil-socks¬,$1,¬,$2) $+(durum=mesaj&kod=,$_prosifre,&username=,$1,&mesaj=,$replace($3-,$chr(32),$+($chr(37),20))) } } alias _profil-rankekle { if ($_profil-tr($1) == 1) { return } else { sockopen $+(_profil-socks¬,$1,¬,$3) $_prbotlink 80 sockmark $+(_profil-socks¬,$1,¬,$3) $+(durum=rank&kod=,$_prosifre,&username=,$1,&rank=,$2) } } on *:sockopen:_profil-socks¬*:{ if ($sockerr) { swprbot privmsg $_prbots :Profil sayfasına bağlanılamıyor, lütfen kontrol ediniz. | .sockclose $sockname } else { sockwrite -nt $sockname GET $+(/index.php?,$sock($sockname).mark) HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */* sockwrite -nt $sockname Accept-Language: tr-TR sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729) sockwrite -nt $sockname Connection: Keep-Alive sockwrite -nt $sockname $crlf } } on *:sockread:_profil-socks¬*:{ var %:_pro-socks | sockread %:_pro-socks | tokenize 32 %:_pro-socks if $regex($1-,/Kayıt tamam! profil yapılandırılıyor bekleyiniz../Si) { swprbot privmsg $_profil $+(:,$token($sockname,2,172)) nickine profil sayfası oluşturuldu! swprbot privmsg $token($sockname,2,172) :Merhaba $token($sockname,2,172) swprbot privmsg $token($sockname,2,172) :Profil sayfanız oluşturuldu, paylaşım yapmanız için sizi bekliyor :) swprbot privmsg $token($sockname,2,172) : swprbot privmsg $token($sockname,2,172) :Profil sayfamız: $_prolink swprbot privmsg $token($sockname,2,172) :Kullanıcı adınız: $token($sockname,2,172) - Şifreniz sunucu şifreniz ile aynıdır. sockclose $sockname } elseif $regex($1-,/Bu nick kayıtlı./Si) && $regex($sock($sockname).mark,/^durum=ekle/Si) { swprbot privmsg $token($sockname,2,172) :Merhaba $token($sockname,2,172) swprbot privmsg $token($sockname,2,172) : swprbot privmsg $token($sockname,2,172) :Profil sayfamız: $_prolink swprbot privmsg $token($sockname,2,172) :Kullanıcı adınız: $token($sockname,2,172) - Şifreniz sunucu şifreniz ile aynıdır. sockclose $sockname } elseif $regex($1-,/"totalFollowers":"(.+)"."totalFollowing":"(.+)"."totalFavs":"(.+)"."totalPost":"(.+)"/Si) { swprbot privmsg $token($sockname,3,172) $+(:,$token($sockname,2,172)) nickinin profil sayfası: $+($_prolink,$token($sockname,2,172)) sockclose $sockname } elseif $regex($1-,/Böyle bir profil bulunamadı!/Si) && $regex($sock($sockname).mark,/^durum=profil/Si) { swprbot privmsg $token($sockname,3,172) $+(:,$token($sockname,2,172)) nickine ait profil sayfası bulunmamaktadır! sockclose $sockname } elseif $regex($1-,/Profil kaydı silindi./Si) { swprbot privmsg $_profil $+(:,$token($sockname,2,172)) nicki silindiği(/ns drop NICK) için profil sayfası silindi. | sockclose $sockname } elseif $regex($1-,/Şifreniz güncellendi/Si) { swprbot privmsg $_profil $+(:,$token($sockname,2,172)) nickinin profil şifresi güncellendi. swprbot privmsg $token($sockname,2,172) :Merhaba $token($sockname,2,172) swprbot privmsg $token($sockname,2,172) :Profil sayfanızın şifreside güncellendi. swprbot privmsg $token($sockname,2,172) : swprbot privmsg $token($sockname,2,172) :Profil sayfamız: $_prolink swprbot privmsg $token($sockname,2,172) :Kullanıcı adınız: $token($sockname,2,172) - Şifreniz sunucu şifreniz ile aynıdır. sockclose $sockname } elseif $regex($1-,/Böyle bir nick kayıtlı değil./Si) { if $regex($sock($sockname).mark,/^durum=sil/Si) { sockclose $sockname } elseif $regex($sock($sockname).mark,/^durum=guncel/Si) { swprbot privmsg $_profil $+(:,$token($sockname,2,172)) nicki şifresini güncelledi, profil sayfası olmadığından dolayı işlem yapılamadı. Profil sayfasının olmadığı bildirildi. swprbot privmsg $token($sockname,2,172) :Merhaba $token($sockname,2,172) swprbot privmsg $token($sockname,2,172) : swprbot privmsg $token($sockname,2,172) :Profil sayfanız bulunmamaktadır!: $_prolink swprbot privmsg $token($sockname,2,172) :Nickinizi identify(/ns identify SIFRE) ederek profil sayfanızı oluşturabilirsiniz. sockclose $sockname } elseif $regex($sock($sockname).mark,/^durum=mesaj/Si) { swprbot privmsg $token($sockname,3,172) $+(:,$token($sockname,2,172)) profil sayfanız bulunmadığından !durum mesajı atamazsınız! swprbot privmsg $token($sockname,3,172) :Nickinizi identify(/ns identify SIFRE) ederek profil sayfanızı oluşturabilirsiniz. sockclose $sockname } elseif $regex($sock($sockname).mark,/^durum=rank/Si) { swprbot privmsg $token($sockname,3,172) $+(:,$token($sockname,2,172)) nickinin profil sayfası olmadığından rankı güncellenemedi. | sockclose $sockname } } elseif $regex($1-,/Durumunuz paylaşıldı.!!/Si) { swprbot privmsg $token($sockname,3,172) $+(:,$token($sockname,2,172)) durumunuz profil sayfanızda paylaşıldı! | sockclose $sockname } elseif $regex($1-,/HATA!! İşlem yapılamadı../Si) { swprbot privmsg $token($sockname,2,172) :4HATA işlem yapılamadı, lütfen daha sonra tekrar deneyiniz! | sockclose $sockname } elseif $regex($1-,/Rank güncellendi.!!/Si) { swprbot privmsg $token($sockname,3,172) $+(:,$token($sockname,2,172)) nickinin rankı güncellenmiştir. | sockclose $sockname } }

Bottan ayırdım belki hata olmuş olur, kontrol edin yapamazsanız yardımcı olurum.
Merhaba, çok önceden yapmıştım, işine yarayan kullansın.


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Socket Bot;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias _prbot return PROFIL alias _pass return 56tyhgfnd alias _ident return Paradox alias _username return Coder by Toprak alias _oper return Koruma qwf8sc9c alias _supass return 121212121212121 alias _sunucu return irc.Toprak.NET alias _sunucuip return 185.241.121.51 alias _port return 6667 alias _profil return #Profil alias _services return #Services ;- Profil sayfası ayarları alias _prolink return https://profil.toprak.net/ alias _botlink return bot.toprak.net alias _prosifre return 2o22b45gb1lt0P ;---------------------------------------- ;- Bot'un gireceği kanallar. alias _pr-kanallar return $_profil $_services #Sohbet #Chat #Radyo ;---------------------------------------- alias _saatkontrol $iif(!$sock(prbot),sockopen prbot $_sunucuip $_port) alias _nick return $remove($gettok($1,1,33),:) alias swprbot $iif($sock(prbot).status == active,sockwrite -nt prbot $1-) on *:sockclose:prbot:$+(.timer,_saatkontrol) 1 2 _saatkontrol on *:sockopen:prbot:{ if ($sockerr) { sockclose $sockname | $+(.timer,_saatkontrol) 1 2 _saatkontrol } else { swprbot NICK $+($_prbot,$left($calc($ticks * $r(10,99999)),$r(5,7))) | swprbot USER $_ident "" $+(",$ip) $+(:,$_username) | sockmark $sockname $_prbot } } on *:sockread:prbot:{ var %;prbot | sockread -f %;prbot | tokenize 32 %;prbot if $regex($1,/^PING$/) { swprbot pong $remove($2,:) } elseif $regex($1,/^ERROR$/i) { sockclose $sockname | $+(.timer,_saatkontrol) 1 2 _saatkontrol } elseif $regex($2,/^(471|473|474|475)$/) { swprbot sajoin $_prbot $4 } elseif $regex($2,/^(411|481)$/) { swprbot oper $_oper | swprbot nick $_prbot | swprbot nickserv identify $_pass } elseif $regex($2,/^(001|433)$/) { swprbot oper $_oper swprbot ns ghost $_prbot $_pass swprbot ns release $_prbot $_pass swprbot join #0,0 .timer 1 3 swprbot nick $_prbot } elseif $regex($2,/^NICK$/i) { if ($_nick($1) == $_prbot) { swprbot ns ghost $_prbot $_pass | swprbot ns release $_prbot $_pass | .timer 1 3 swprbot nick $_prbot } elseif ($right($3,-1) == $_prbot) { swprbot ns identify $_pass swprbot oper $_oper swprbot os su $_supass swprbot join #0,0 swprbot mode $right($3,-1) +qHp-hY $+(.timer,_saatkontrol) 0 20 _saatkontrol $+(.timer,prbot-gir) 1 3 swprbot sajoin $right($3,-1) $replace($_pr-kanallar,$chr(32),$chr(44)) } } elseif $regex($2,/^KICK$/i) && ($4 == $_prbot) && $istok($_pr-kanallar,$3,32) { swprbot sajoin $4 $3 } elseif $regex($2,/^JOIN$/i) { if ($_nick($1) == $_prbot) { if $istok($_pr-kanallar,$right($3,-1),32) { swprbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5) } else { swprbot sapart $_nick($1) $right($3,-1) } } } elseif $regex($2,/^352$/i) && $hget(Pro-Mesajat,$8) { if !$regex($9,/r/) { swprbot privmsg $token($hget(Pro-Mesajat,$8),1,191) :Nickiniz kayıtlı olmadığından bu komutu kullanamazsınız.! | .hdel -ms Pro-Mesajat $8 } else { _profil-mesaj $8 $token($hget(Pro-Mesajat,$8),1,191) $token($hget(Pro-Mesajat,$8),2-,191) | .hdel -ms Pro-Mesajat $8 } } elseif $regex($2,/^NOTICE$/i) && $regex($_nick($1),/^NickServ$/Si) { if $regex($token($token($1-,2-,58),-1,46),/(.+) nick'inin sifresi : (.+)/Si) { if $hget(Profil-Kayit,$regml(1)) { _profil-kayit $regml(1) $+($regml(1),@,$gettok($_sunucu,2-,46)) $iif($regml(2),$v1,sifreyoqs) $_profil-rank($regml(1)) | .hdel -ms Profil-Kayit $regml(1) } elseif $hget(Profil-Güncelle,$regml(1)) { _profil-guncel $regml(1) $iif($regml(2),$v1,sifreyoqs) | .hdel -ms Profil-Güncelle $regml(1) } } } elseif $regex($2,/^PRIVMSG$/i) { if ($3 == $_services) && $regex($_nick($1),/^NickServ$/Si) { if $regex($4-,/\] (.+)!.+@.+ Nick'i sunucuya login oldu/Si) { if ($_eggdrop-nickler($regml(1)) == 1) { return } .hadd -msu50 Profil-Kayit $regml(1) ok. swprbot ns getpass $regml(1) } elseif $regex($4-,/\] (.+) Nick'i.+email üzerine kayıt edilmişdir/Si) { if ($_eggdrop-nickler($regml(1)) == 1) { return } .hadd -msu50 Profil-Kayit $regml(1) ok. swprbot ns getpass $regml(1) } elseif $regex($4-,/\] (.+) Nick'inin şifresi.+tarafından değiştirildi/Si) { if ($_eggdrop-nickler($regml(1)) == 1) { return } .hadd -msu50 Profil-Güncelle $regml(1) ok. swprbot ns getpass $regml(1) } elseif $regex($4-,/\] (.+) Nick'i.+tarafından drop'landi/Si) { if ($_eggdrop-nickler($regml(1)) == 1) { return } _profil-sil $regml(1) } } else { if $regex($remove($4,:),/^([!.&-]prof[ıiİ]l)$/Si) { if $hget(Pro-Durum,$_nick($1)) { swprbot notice $_nick($1) :5 dakika da bir !profil komutunu kullanabilirsiniz. } elseif !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/Si) { swprbot privmsg $3 :Lütfen nick belirtiniz. 4ÖRN: !profil Toprak } else { _profil-bak $strip($5) $3 | .hinc -msu300 Pro-Durum $_nick($1) } } elseif $regex($remove($4,:),/^([!.&-]durum)$/Si) { if $hget(Pro-Mesaj,$_nick($1)) { swprbot notice $_nick($1) :5 dakika da bir !durum komutunu kullanabilirsiniz. } elseif !$5 { swprbot privmsg $3 :Lütfen 4!durum MESAJ olarak belirtiniz. MESAJ en fazla 140 karekter olmalı! } elseif ($len($strip($5-)) > 140) || ($len($strip($5-)) < 10) { swprbot notice $_nick($1) :Lütfen 4!durum MESAJ olarak belirtiniz. Durumunuz en az 10 en fazla 140 karekter olmalı! } else { .hadd -ms Pro-Mesajat $_nick($1) $+($3,¿,$strip($5-)) | swprbot who $_nick($1) | .hinc -msu300 Pro-Mesaj $_nick($1) } } elseif $regex($remove($4,:),/^([!.&-]rank)$/Si) && ($3 == $_profil) { if !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/Si) { swprbot privmsg $3 :Lütfen nick belirtiniz. 4ÖRN: !rank Toprak } elseif !$istok(0 1 2 3 4 5 6,$strip($6),32) { swprbot privmsg $3 :Lütfen rank belirtiniz. swprbot privmsg $3 : swprbot privmsg $3 :0 : User swprbot privmsg $3 :1 : Özel Üye swprbot privmsg $3 :2 : Sunucu Yetkilisi (Oper/Admin) swprbot privmsg $3 :3 : Teknik Sorumlu swprbot privmsg $3 :4 : Genel Sorumlu swprbot privmsg $3 :5 : AR-GE Sorumlusu swprbot privmsg $3 :6 : Sunucu Sahibi swprbot privmsg $3 : swprbot privmsg $3 :4ÖRN: !rank Toprak 5 } else { _profil-rankekle $strip($5-) $3 } } } } } alias _profil-rank { if ($1 == Toprak) { return 5 } elseif $istok($_masternick,$1,32) { return 6 } elseif ($rootbul($1) == 1) { return 4 } elseif ($operbul($1) == 1) { return 2 } elseif $hget(VIP,$1) { return 1 } else { return 0 } } alias _profil-tr { if !$regex($1-,/^([a-zA-Z-_][a-zA-Z0-9_-]{0,30})$/Si) { return 1 } else { return 0 } } alias _profil-kayit { if ($_profil-tr($1) == 1) { swprbot privmsg $1 $+(:,$1) nickinizde Türkçe ya/yada Özel Karekterler olduğundan dolayı Profil Sayfası oluşturulamıyor. } else { sockopen $+(_profil-socks¬,$1) $_prbotlink 80 sockmark $+(_profil-socks¬,$1) $+(durum=ekle&kod=,$_prosifre,&username=,$1,&sifre=,$3,&mail=,$2,&flag=,$4) } } alias _profil-bak { sockopen $+(_profil-socks¬,$1,¬,$2) $_prbotlink 80 sockmark $+(_profil-socks¬,$1,¬,$2) $+(durum=profil&kod=,$_prosifre,&username=,$1) } alias _profil-sil { if ($_profil-tr($1) == 1) { return } else { sockopen $+(_profil-socks¬,$1) $_prbotlink 80 sockmark $+(_profil-socks¬,$1) $+(durum=sil&kod=,$_prosifre,&username=,$1) } } alias _profil-guncel { if ($_profil-tr($1) == 1) { return } else { sockopen $+(_profil-socks¬,$1) $_prbotlink 80 sockmark $+(_profil-socks¬,$1) $+(durum=guncel&kod=,$_prosifre,&username=,$1,&sifre=,$2) } } alias _profil-mesaj { if ($_profil-tr($1) == 1) { return } else { sockopen $+(_profil-socks¬,$1,¬,$2) $_prbotlink 80 sockmark $+(_profil-socks¬,$1,¬,$2) $+(durum=mesaj&kod=,$_prosifre,&username=,$1,&mesaj=,$replace($3-,$chr(32),$+($chr(37),20))) } } alias _profil-rankekle { if ($_profil-tr($1) == 1) { return } else { sockopen $+(_profil-socks¬,$1,¬,$3) $_prbotlink 80 sockmark $+(_profil-socks¬,$1,¬,$3) $+(durum=rank&kod=,$_prosifre,&username=,$1,&rank=,$2) } } on *:sockopen:_profil-socks¬*:{ if ($sockerr) { swprbot privmsg $_prbots :Profil sayfasına bağlanılamıyor, lütfen kontrol ediniz. | .sockclose $sockname } else { sockwrite -nt $sockname GET $+(/index.php?,$sock($sockname).mark) HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */* sockwrite -nt $sockname Accept-Language: tr-TR sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729) sockwrite -nt $sockname Connection: Keep-Alive sockwrite -nt $sockname $crlf } } on *:sockread:_profil-socks¬*:{ var %:_pro-socks | sockread %:_pro-socks | tokenize 32 %:_pro-socks if $regex($1-,/Kayıt tamam! profil yapılandırılıyor bekleyiniz../Si) { swprbot privmsg $_profil $+(:,$token($sockname,2,172)) nickine profil sayfası oluşturuldu! swprbot privmsg $token($sockname,2,172) :Merhaba $token($sockname,2,172) swprbot privmsg $token($sockname,2,172) :Profil sayfanız oluşturuldu, paylaşım yapmanız için sizi bekliyor :) swprbot privmsg $token($sockname,2,172) : swprbot privmsg $token($sockname,2,172) :Profil sayfamız: $_prolink swprbot privmsg $token($sockname,2,172) :Kullanıcı adınız: $token($sockname,2,172) - Şifreniz sunucu şifreniz ile aynıdır. sockclose $sockname } elseif $regex($1-,/Bu nick kayıtlı./Si) && $regex($sock($sockname).mark,/^durum=ekle/Si) { swprbot privmsg $token($sockname,2,172) :Merhaba $token($sockname,2,172) swprbot privmsg $token($sockname,2,172) : swprbot privmsg $token($sockname,2,172) :Profil sayfamız: $_prolink swprbot privmsg $token($sockname,2,172) :Kullanıcı adınız: $token($sockname,2,172) - Şifreniz sunucu şifreniz ile aynıdır. sockclose $sockname } elseif $regex($1-,/"totalFollowers":"(.+)"."totalFollowing":"(.+)"."totalFavs":"(.+)"."totalPost":"(.+)"/Si) { swprbot privmsg $token($sockname,3,172) $+(:,$token($sockname,2,172)) nickinin profil sayfası: $+($_prolink,$token($sockname,2,172)) sockclose $sockname } elseif $regex($1-,/Böyle bir profil bulunamadı!/Si) && $regex($sock($sockname).mark,/^durum=profil/Si) { swprbot privmsg $token($sockname,3,172) $+(:,$token($sockname,2,172)) nickine ait profil sayfası bulunmamaktadır! sockclose $sockname } elseif $regex($1-,/Profil kaydı silindi./Si) { swprbot privmsg $_profil $+(:,$token($sockname,2,172)) nicki silindiği(/ns drop NICK) için profil sayfası silindi. | sockclose $sockname } elseif $regex($1-,/Şifreniz güncellendi/Si) { swprbot privmsg $_profil $+(:,$token($sockname,2,172)) nickinin profil şifresi güncellendi. swprbot privmsg $token($sockname,2,172) :Merhaba $token($sockname,2,172) swprbot privmsg $token($sockname,2,172) :Profil sayfanızın şifreside güncellendi. swprbot privmsg $token($sockname,2,172) : swprbot privmsg $token($sockname,2,172) :Profil sayfamız: $_prolink swprbot privmsg $token($sockname,2,172) :Kullanıcı adınız: $token($sockname,2,172) - Şifreniz sunucu şifreniz ile aynıdır. sockclose $sockname } elseif $regex($1-,/Böyle bir nick kayıtlı değil./Si) { if $regex($sock($sockname).mark,/^durum=sil/Si) { sockclose $sockname } elseif $regex($sock($sockname).mark,/^durum=guncel/Si) { swprbot privmsg $_profil $+(:,$token($sockname,2,172)) nicki şifresini güncelledi, profil sayfası olmadığından dolayı işlem yapılamadı. Profil sayfasının olmadığı bildirildi. swprbot privmsg $token($sockname,2,172) :Merhaba $token($sockname,2,172) swprbot privmsg $token($sockname,2,172) : swprbot privmsg $token($sockname,2,172) :Profil sayfanız bulunmamaktadır!: $_prolink swprbot privmsg $token($sockname,2,172) :Nickinizi identify(/ns identify SIFRE) ederek profil sayfanızı oluşturabilirsiniz. sockclose $sockname } elseif $regex($sock($sockname).mark,/^durum=mesaj/Si) { swprbot privmsg $token($sockname,3,172) $+(:,$token($sockname,2,172)) profil sayfanız bulunmadığından !durum mesajı atamazsınız! swprbot privmsg $token($sockname,3,172) :Nickinizi identify(/ns identify SIFRE) ederek profil sayfanızı oluşturabilirsiniz. sockclose $sockname } elseif $regex($sock($sockname).mark,/^durum=rank/Si) { swprbot privmsg $token($sockname,3,172) $+(:,$token($sockname,2,172)) nickinin profil sayfası olmadığından rankı güncellenemedi. | sockclose $sockname } } elseif $regex($1-,/Durumunuz paylaşıldı.!!/Si) { swprbot privmsg $token($sockname,3,172) $+(:,$token($sockname,2,172)) durumunuz profil sayfanızda paylaşıldı! | sockclose $sockname } elseif $regex($1-,/HATA!! İşlem yapılamadı../Si) { swprbot privmsg $token($sockname,2,172) :4HATA işlem yapılamadı, lütfen daha sonra tekrar deneyiniz! | sockclose $sockname } elseif $regex($1-,/Rank güncellendi.!!/Si) { swprbot privmsg $token($sockname,3,172) $+(:,$token($sockname,2,172)) nickinin rankı güncellenmiştir. | sockclose $sockname } }

Bottan ayırdım belki hata olmuş olur, kontrol edin yapamazsanız yardımcı olurum.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 07 Temmuz 2023, 20:07   #2
Çevrimdışı
IF Eggdrop BOT System
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Profil Sistem.




yapıyorsun bu sporu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
eline sağlık

__________________
IF Eggdrop Forum System BOT
 
Alıntı ile Cevapla

Alt 07 Temmuz 2023, 22:51   #3
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Profil Sistem.




Soyle sitesinde bi ara çok popülerdi bu profil uygulaması.

__________________
"Ben hüznümü, kederimi ancak ALLAH'a şikayet ederim...!
 
Alıntı ile Cevapla

Alt 08 Temmuz 2023, 18:45   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Profil Sistem.




O zaman da boş bir sistemdi, hala da boş bir sistem bence. Eğer insanlar profil oluşturmak istese IRCe mi girer, IRC'i insanların sevme nedeni burada istedikleri insan olabilmeleri zaten. Soylede de sadece sahte fotoğraflar koyup ben buyum diyenlerden başka kimsenin kullanmadığı bir sistemdi. Yine de eline sağlık emek verilmiş ancak, IRC'yi olmadığı bir şeye çevirmekle uğraşmak gerçekten anlamsız. İlle resim falan atacağım diyorsanız bir sürü güzel resimli, sesli, applet yapanlar var, gidin appleti satın alın kullanın botla motla uğraşmaya ne gerek var.

 
Alıntı ile Cevapla

Alt 09 Temmuz 2023, 13:51   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Profil Sistem.




İsteyen kullanır, istemeyen kullanmaz.

Güzel paylaşım @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], eline sağlık.

__________________
Şüphe tek gerçektir!
 
Alıntı ile Cevapla

Alt 09 Temmuz 2023, 14:03   #6
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Profil Sistem.




Çok eski bir sistemdi, bir kaç sunucuda görmüştüm ellerine sağlık ibram. Emek vermişsin birşeyler yapmissin, İRC için yapılan herşey iyidir taktir edilmelidir.

__________________
no guts no glory.
 
Alıntı ile Cevapla

Cevapla


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

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
Yüz Profil Estetiği Violent Sağlık Köşesi 0 29 Ekim 2014 20:08
PROFIL StiqMaTa Unreal IRCd 7 03 Kasım 2013 14:42
Profil Ayarları ßambam vBulletin Sorunları ve Çözümleri 11 29 Kasım 2008 20:34