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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   !burç <burcunuz> (Yeni sistem) (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/495889-bur231-ltburcunuzgt-yeni-sistem.html)

By_KiLL 04 Haziran 2013 03:10

Cevap: !burç <burcunuz> (Yeni sistem)
 
Şuan denedim, tek sorun türkçe karakter problemi var.Nasıl düzeltilebilir?

DEwRM 05 Eylül 2013 08:29

Cevap: !burç <burcunuz> (Yeni sistem)
 
aga bende hiç bi türlü çalışmıyo team veririm bak istersen kafayı yedim ya

Toprak 05 Eylül 2013 10:08

Cevap: !burç <burcunuz> (Yeni sistem)
 
Alıntı:

DEwRM Nickli Üyeden Alıntı (Mesaj 1041336293)
aga bende hiç bi türlü çalışmıyo team veririm bak istersen kafayı yedim ya

Kod'da herhangi bi sorun yok ekleyip baktım bi sorun göremedim

DEwRM 06 Eylül 2013 01:09

Cevap: !burç <burcunuz> (Yeni sistem)
 
buda yalan team veriyim bakın yok arkadaş çalışmıyo hiç biri

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 01:09 -->-> Daha önceki mesaj 00:50 --

buyrun bide benim pcde bakın sorun nerde çözelim o zaman :S

uFuK 06 Eylül 2013 14:42

Cevap: !burç <burcunuz> (Yeni sistem)
 
Alıntı:

DEwRM Nickli Üyeden Alıntı (Mesaj 1041336738)
buda yalan team veriyim bakın yok arkadaş çalışmıyo hiç biri

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 01:09 -->-> Daha önceki mesaj 00:50 --

buyrun bide benim pcde bakın sorun nerde çözelim o zaman :S

:uFuK!IRCd@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].unutma.net PRIVMSG #opers :Bugünün yorumları alınıyor.
:uFuK!IRCd@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].unutma.net PRIVMSG #opers :Burcun yorumu özelinize gönderilecek, lütfen bekleyin HyperioN.
:uFuK!IRCd@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].unutma.net PRIVMSG HyperioN :Seçtiğiniz burç "Aslan"
:uFuK!IRCd@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].unutma.net PRIVMSG HyperioN :-
:uFuK!IRCd@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].unutma.net PRIVMSG HyperioN :Bugün hareket halinde olmak, karmaޟık duygulardan sizi uzaklaŞŸtıracak. Uzaklarda bulunan dostlarınızla haberleŞŸebilir ve duyduklarınızdan rahatsız olabilirsiniz. Olayları ve içinde bulunduÄŸunuz durumu sorgulayacaksınız fakat fazla derinleŞŸmeseniz iyi olacak. Aslında daha özgür bir bakıޟ açısına sahip olabilirsiniz ve böylece takılı kaldığınız detaylardan uzaklaޟıp dikkatinizi yapmak istediÄŸiniz her ne ise, ona odaklayabilirsin


!burç aslan (Türkçe Karaktere Duyarlı Bunu Unutma)
Burc Yorumunu Özeline Gönderir, Bunuda Unutma.

Kod Çalışıyor.

Paint 06 Eylül 2013 16:12

Cevap: !burç <burcunuz> (Yeni sistem)
 
Kod:

on *:sockopen:burç*:{
  var %s = sockwrite -n $sockname
  %s GET /burclar/ $+ $gettok($sockname,2,$asc(+)) $+ -burcu.html HTTP/1.1
  %s Host: burc.web.tr | %s
}
on *:sockread:burç*:{
  var %burcyorum
  sockread %burcyorum
  if </p></div> isin %burcyorum {
    $iif(!$read(burç.txt,w,$chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93)),write burç.txt $chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93))
write burç.txt $utfdecode($htmlfree(%burcyorum)) } }

On *:text:!burç*:#:{
  inc -u5 $+(%,play,+,$nick)
  if $($+(%,play,+,$nick),2) == 3 { ignore -u60 $nick | msg # 5 saniye içinde 3 defa istekte bulunduğun için tarafımdan 60 saniye ignore edildin. | halt }
  if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık
  if !$2 { msg $chan Burç adı girmediniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt }
  if !$istok($+(%burçlar,|,ikizler),$2,124) { msg $chan Burç adını yanlış girdiniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt }
  if $date != $read(burç.txt,1) { msg # Bugünün yorumları alınıyor. | burçlarıal | var %yenigün 1 }
  msg $chan Burcun yorumu özelinize gönderilecek, lütfen bekleyin $nick $+ .
  msg $nick Seçtiğiniz burç $qt($gettok(%burçlar,$findtok(%burçlar,$iif($2 == ikizler,İkizler,$2),124),124)) | msg $nick -
  $iif(%yenigün,.timer $+ $ticks 1 6) yorumat $nick $2
}
alias yorumat { if $read(burç.txt,w,$+($chr(91),$lower($replace($2,ç,c,ğ,g,ı,i,ç,c,ş,s,İ,i)),$chr(93))) {
    var %t $read(burç.txt,$calc($readn + 1))), %p 2,%e $numtok(%t,46)
while %p <= $calc(%e +1) { msg $1 $gettok(%t,$+($calc(%p -1),-,%p),46) $+ . | inc %p 2 } } }

alias burçlarıal {
  sockclose burç*
  if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık
  $iif($isfile(burç.txt),.remove burç.txt) | write burç.txt $date |  var %burc 1
while %burc <= 12 { sockopen $+(burç,+,$lower($replace($gettok(%burçlar,%burc,124),ç,c,ğ,g,ı,i,ç,c,ş,s,İ,i))) burc.web.tr 80 | inc %burc  } }

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9)) | return %x }

Denedim çalışıyor ilk mesajdaki kodu yetkililer bu kodla değiştirirse iyi olur.

fLayer 06 Eylül 2013 17:58

Cevap: !burç <burcunuz> (Yeni sistem)
 
[17:56] <abcd> !burç akrep
[17:56] <Gelhadi> Burcun yorumu özelinize gönderilecek, lütfen bekleyin abcd.

ozelde verdigi cevap başka birşey yok.

[17:56] <Gelhadi> Seçtiğiniz burç "Akrep"
[17:56] <Gelhadi> -
[17:56] <Gelhadi> [ikizler].

DEwRM 06 Eylül 2013 22:19

Cevap: !burç <burcunuz> (Yeni sistem)
 
teamdan yapabilicek olan varmı arkadaşlar ?

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:19 -->-> Daha önceki mesaj 22:11 --

birde texten okutma değil dimi bu
$iif(!$read(burç.txt,w,$chr(91)

Toprak 06 Eylül 2013 22:19

Cevap: !burç <burcunuz> (Yeni sistem)
 
Alıntı:

DEwRM Nickli Üyeden Alıntı (Mesaj 1041337162)
teamdan yapabilicek olan varmı arkadaşlar ?

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:19 -->-> Daha önceki mesaj 22:11 --

birde texten okutma değil dimi bu
$iif(!$read(burç.txt,w,$chr(91)

Pm atın id, şifre yardımcı oluyum.

Reqal 05 Ekim 2013 13:43

Cevap: !burç <burcunuz> (Yeni sistem)
 
şimdi team versem bu nu scriptimde çalıştırabilirmisiniz ????


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:45.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk