addon Türkçe mIRC indir - Resmi mIRC indirme Sitesi

Fıkra Bulucu Addon

21 Mart 2014 • 00:55 OxiGeN Addonlar

Eglenceli bir remote’dir, dileyen siteyi güncelleyebilir… İyi Eğlenceler. Kod:

alias -l  sok { sockwrite -n $sockname $1- }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^&lt;]*&gt;|&lt;[^&gt;]*&gt;|&lt;[^&gt;]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
alias komedi {
  $iif(!$dialog(komikaze),dialog -m komikaze komikaze)
  did -ra komikaze 12 Yukleniyor...   
  did -r komikaze 4 
  sockclose komik
  sockopen komik www.komikaze.net 80
}
alias -l fikra {
  did -ra komikaze 12 Yukleniyor...   
  did -h komikaze 8
  did -vb komikaze 16
  did -h komikaze 9
  did -vb komikaze 17
  did -h komikaze 10
  did -vb komikaze 18    
  did -r komikaze 11
  sockclose fikra
  sockopen fikra www.komikaze.net 80
}
alias -l pagejump {
  set %pagejump $1-
  did -ra komikaze 12 Yukleniyor... 
  did -r komikaze 4
  sockclose komik2
  sockopen komik2 www.komikaze.net 80
}
alias -l pagejump2 {
  set %pagejump2 $1-
  did -ra komikaze 12 Yukleniyor...
  did -r komikaze 11
  sockclose fikra2
  sockopen fikra2 www.komikaze.net 80
}
on *:SockOpen:fikra2:{
  sok GET %pagejump2 HTTP/1.1
  sok host: www.komikaze.net
  sok $crlf
}
on *:SockOpen:komik2:{
  sok GET %pagejump HTTP/1.1
  sok host: www.komikaze.net
  sok $crlf
}
on *:SockOpen:fikra:{
  sok GET /fikralar.asp HTTP/1.1
  sok host: www.komikaze.net
  sok $crlf
}
on *:SockOpen:komik:{
  sok GET /ayiesprileri.asp HTTP/1.1
  sok host: www.komikaze.net
  sok $crlf
}

on *:SockRead:fikra*:{
  var %a   
  sockread %a 
  if (object moved isin %a) &amp;&amp; (href isin %a) { pagejump $gettok(%a,2,$asc(")) } 
  if (bug $+ $chr(252) $+ n isin %a) { set %bugun.link2 $gettok(%a,2,$asc(")) }
  if ($chr(246) $+ nceki isin %a) { set %onceki.link2 $gettok(%a,2,$asc(")) }
  if (*sonraki*yok* iswm %a) { set %sonraki.link2 yok }
  if (sonraki isin %a) &amp;&amp; (yok !isin %a) { set %sonraki.link2 $gettok(%a,2,$asc(")) } 
  if (face="Verdana isin %a) { set %sjn.puha Ok! }
  if (%sjn.puha == Ok!) &amp;&amp; (g $+ $chr(246) $+ nderdi isin %a) {  unset %sjn.puha }
  if (%sjn.puha == Ok!) { did -a komikaze 11 $htmlfree($replace(%a,ı,i,ş,s,
,$crlf,ğ,g,ö,o,",",ü,u,İ,I,ç,c,Ç,C,Ş,S,&amp;e,e,Ğ,G,’,',…,...,â,a,î,i,’,',”,",“,")) }
  if (%a == 
&lt;!-- Mirrored from www.mIRCFox.Com/.?sayfa=dokuman_oku&amp;id=17 by HTTrack Website Copier/3.x [XR&amp;CO'2006], Wed, 25 Oct 2006 17:57:24 GMT --&gt;
&lt;/html&gt;) {  
    if (%bugun.link2 != yok) { did -v komikaze 9 | did -h komikaze 17 } | else { did -h komikaze 9 | did -vb komikaze 17 }
    if (%sonraki.link2 != yok) { did -v komikaze 10 | did -h komikaze 18 } | else { did -h komikaze 10 | did -vb komikaze 18 }
    if (%onceki.link2 != yok) { did -v komikaze 8 | did -h komikaze 16 } | else { did -h komikaze 8 | did -vb komikaze 16 }
    did -ra komikaze 12 Tamam.
    sockclose fikra
  }
}
on *:SockRead:komik*:{
  var %a 
  sockread %a
  if (object moved isin %a) &amp;&amp; (href isin %a) { pagejump $gettok(%a,2,$asc(")) }
  if (bug $+ $chr(252) $+ n isin %a) { set %bugun.link $gettok(%a,2,$asc(")) }
  if ($chr(246) $+ nceki isin %a) { set %onceki.link $gettok(%a,2,$asc(")) }
  if (*sonraki*yok* iswm %a) { set %sonraki.link yok }
  if (sonraki isin %a) &amp;&amp; (yok !isin %a) { set %sonraki.link $gettok(%a,2,$asc(")) }
  if (class="karika"&gt; isin %a) { set %sjn.hehe Ok! }
  if (%sjn.hehe == Ok!) { did -a komikaze 4 $htmlfree($replace(%a,ı,i,ş,s,
,$crlf,ğ,g,ö,o,",",ü,u,İ,I,ç,c,Ç,C,Ş,S,&amp;e,e,Ğ,G,’,',…,...,â,a,î,i,’,',”,",“,")) }
  if (%sjn.hehe == Ok!) &amp;&amp; (&lt;/font&gt; isin %a) { unset %sjn.hehe }
  if (%a == 
&lt;!-- Mirrored from www.mIRCFox.Com/.?sayfa=dokuman_oku&amp;id=17 by HTTrack Website Copier/3.x [XR&amp;CO'2006], Wed, 25 Oct 2006 17:57:24 GMT --&gt;
&lt;/html&gt;) {  
    if (%bugun.link != yok) { did -v komikaze 6 | did -h komikaze 15 } | else { did -h komikaze 6 | did -vb komikaze 15 }
    if (%sonraki.link != yok) { did -v komikaze 7 | did -h komikaze 14 } | else { did -h komikaze 7 | did -vb komikaze 14 }
    if (%onceki.link != yok) { did -v komikaze 5 | did -h komikaze 13 } | else { did -h komikaze 5 | did -vb komikaze 13 }
    did -ra komikaze 12 Tamam.
    sockclose komik
  }
}
dialog komikaze {
  title "Espri - Fikra Bulucu"
  size -1 -1 165 122
  option dbu
  tab "Espri", 1, 3 2 159 99
  edit "", 4, 7 32 153 64, tab 1 read multi return autovs vsbar
  link "&lt;- Onceki Gun", 5, 36 20 37 8, tab 1
  text "&lt;- Onceki Gun", 13, 36 20 37 8, tab 1
  link "Bugun", 6, 76 20 17 8, tab 1
  text "Bugun", 15, 76 20 17 8, tab 1
  link "Sonraki Gun -&gt;", 7, 96 20 38 8, tab 1
  text "Sonraki Gun -&gt;", 14, 96 20 38 8, tab 1
  tab "Fikra", 2
  link "&lt;- Onceki Gun", 8, 36 20 37 8, tab 2
  text "&lt;- Onceki Gun", 16, 36 20 37 8, tab 2
  link "Bugun", 9, 76 20 17 8, tab 2
  text "Bugun", 17, 76 20 17 8, tab 2
  link "Sonraki Gun -&gt;", 10, 96 20 38 8, tab 2
  text "Sonraki Gun -&gt;", 18, 96 20 38 8, tab 2
  edit "", 11, 7 32 153 64, tab 2 read multi return autovs vsbar
  button "Kapat", 3, 126 106 37 12, ok
  edit "", 12, 7 106 111 10, read
}
on *:dialog:komikaze:*:*:{
  if ($devent == sclick) {
    if ($did == 5) &amp;&amp; (%onceki.link) { pagejump %onceki.link }
    if ($did == 6) { pagejump %bugun.link }
    if ($did == 7) &amp;&amp; (%sonraki.link != yok) { pagejump %sonraki.link }
    if ($did == 2) { fikra }
    if ($did == 1) { komedi }
    if ($did == 8) &amp;&amp; (%onceki.link2) { pagejump2 %onceki.link2 }
    if ($did == 9) { pagejump2 %bugun.link2 }
    if ($did == 10) &amp;&amp; (%sonraki.link2 != yok) { pagejump2 %sonraki.link2 }
  }
  if ($devent == init) {
    did -h komikaze 5
    did -b komikaze 13
    did -h komikaze 6
    did -b komikaze 14
    did -h komikaze 7
    did -b komikaze 15      
    did -ra $dname 12 Yukleniyor...
  }
  if ($devent == Close) { sockclose komik* | sockclose fikra* }
}
on *:LOAD:{ echo -a Espri - Fikra Bulucu Yuklendi | echo -a /komedi komutuyla calisitirin | echo -a SCouNDReL... }

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

alias -l sok { sockwrite -n $sockname $1- }

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

alias komedi {

$iif(!$dialog(komikaze),dialog -m komikaze komikaze)

did -ra komikaze 12 Yukleniyor...

did -r komikaze 4

sockclose komik

sockopen komik www.komikaze.net 80

}

alias -l fikra {

did -ra komikaze 12 Yukleniyor...

did -h komikaze 8

did -vb komikaze 16

did -h komikaze 9

did -vb komikaze 17

did -h komikaze 10

did -vb komikaze 18

did -r komikaze 11

sockclose fikra

sockopen fikra www.komikaze.net 80

}

alias -l pagejump {

set %pagejump $1-

did -ra komikaze 12 Yukleniyor...

did -r komikaze 4

sockclose komik2

sockopen komik2 www.komikaze.net 80

}

alias -l pagejump2 {

set %pagejump2 $1-

did -ra komikaze 12 Yukleniyor...

did -r komikaze 11

sockclose fikra2

sockopen fikra2 www.komikaze.net 80

}

on *:SockOpen:fikra2:{

sok GET %pagejump2 HTTP/1.1

sok host: www.komikaze.net

sok $crlf

}

on *:SockOpen:komik2:{

sok GET %pagejump HTTP/1.1

sok host: www.komikaze.net

sok $crlf

}

on *:SockOpen:fikra:{

sok GET /fikralar.asp HTTP/1.1

sok host: www.komikaze.net

sok $crlf

}

on *:SockOpen:komik:{

sok GET /ayiesprileri.asp HTTP/1.1

sok host: www.komikaze.net

sok $crlf

}

on *:SockRead:fikra*:{

var %a

sockread %a

if (object moved isin %a) && (href isin %a) { pagejump $gettok(%a,2,$asc(")) }

if (bug $+ $chr(252) $+ n isin %a) { set %bugun.link2 $gettok(%a,2,$asc(")) }

if ($chr(246) $+ nceki isin %a) { set %onceki.link2 $gettok(%a,2,$asc(")) }

if (*sonraki*yok* iswm %a) { set %sonraki.link2 yok }

if (sonraki isin %a) && (yok !isin %a) { set %sonraki.link2 $gettok(%a,2,$asc(")) }

if (face="Verdana isin %a) { set %sjn.puha Ok! }

if (%sjn.puha == Ok!) && (g $+ $chr(246) $+ nderdi isin %a) { unset %sjn.puha }

if (%sjn.puha == Ok!) { did -a komikaze 11 $htmlfree($replace(%a,ı,i,ş,s,

,$crlf,ğ,g,ö,o,",",ü,u,İ,I,ç,c,Ç,C,Ş,S,&e,e,Ğ,G,’,',…,...,â,a,î,i,’,',”,",“,")) }

if (%a ==

</html>) {

if (%bugun.link2 != yok) { did -v komikaze 9 | did -h komikaze 17 } | else { did -h komikaze 9 | did -vb komikaze 17 }

if (%sonraki.link2 != yok) { did -v komikaze 10 | did -h komikaze 18 } | else { did -h komikaze 10 | did -vb komikaze 18 }

if (%onceki.link2 != yok) { did -v komikaze 8 | did -h komikaze 16 } | else { did -h komikaze 8 | did -vb komikaze 16 }

did -ra komikaze 12 Tamam.

sockclose fikra

}

on *:SockRead:komik*:{

var %a

sockread %a

if (object moved isin %a) && (href isin %a) { pagejump $gettok(%a,2,$asc(")) }

if (bug $+ $chr(252) $+ n isin %a) { set %bugun.link $gettok(%a,2,$asc(")) }

if ($chr(246) $+ nceki isin %a) { set %onceki.link $gettok(%a,2,$asc(")) }

if (*sonraki*yok* iswm %a) { set %sonraki.link yok }

if (sonraki isin %a) && (yok !isin %a) { set %sonraki.link $gettok(%a,2,$asc(")) }

if (class="karika"> isin %a) { set %sjn.hehe Ok! }

if (%sjn.hehe == Ok!) { did -a komikaze 4 $htmlfree($replace(%a,ı,i,ş,s,

,$crlf,ğ,g,ö,o,",",ü,u,İ,I,ç,c,Ç,C,Ş,S,&e,e,Ğ,G,’,',…,...,â,a,î,i,’,',”,",“,")) }

if (%sjn.hehe == Ok!) && (</font> isin %a) { unset %sjn.hehe }

if (%a ==

</html>) {

if (%bugun.link != yok) { did -v komikaze 6 | did -h komikaze 15 } | else { did -h komikaze 6 | did -vb komikaze 15 }

if (%sonraki.link != yok) { did -v komikaze 7 | did -h komikaze 14 } | else { did -h komikaze 7 | did -vb komikaze 14 }

if (%onceki.link != yok) { did -v komikaze 5 | did -h komikaze 13 } | else { did -h komikaze 5 | did -vb komikaze 13 }

did -ra komikaze 12 Tamam.

sockclose komik

}

dialog komikaze {

title "Espri - Fikra Bulucu"

size -1 -1 165 122

option dbu

tab "Espri", 1, 3 2 159 99

edit "", 4, 7 32 153 64, tab 1 read multi return autovs vsbar

link "<- Onceki Gun", 5, 36 20 37 8, tab 1

text "<- Onceki Gun", 13, 36 20 37 8, tab 1

link "Bugun", 6, 76 20 17 8, tab 1

text "Bugun", 15, 76 20 17 8, tab 1

link "Sonraki Gun ->", 7, 96 20 38 8, tab 1

text "Sonraki Gun ->", 14, 96 20 38 8, tab 1

tab "Fikra", 2

link "<- Onceki Gun", 8, 36 20 37 8, tab 2

text "<- Onceki Gun", 16, 36 20 37 8, tab 2

link "Bugun", 9, 76 20 17 8, tab 2

text "Bugun", 17, 76 20 17 8, tab 2

link "Sonraki Gun ->", 10, 96 20 38 8, tab 2

text "Sonraki Gun ->", 18, 96 20 38 8, tab 2

edit "", 11, 7 32 153 64, tab 2 read multi return autovs vsbar

button "Kapat", 3, 126 106 37 12, ok

edit "", 12, 7 106 111 10, read

}

on *:dialog:komikaze:*:*:{

if ($devent == sclick) {

if ($did == 5) && (%onceki.link) { pagejump %onceki.link }

if ($did == 6) { pagejump %bugun.link }

if ($did == 7) && (%sonraki.link != yok) { pagejump %sonraki.link }

if ($did == 2) { fikra }

if ($did == 1) { komedi }

if ($did == 8) && (%onceki.link2) { pagejump2 %onceki.link2 }

if ($did == 9) { pagejump2 %bugun.link2 }

if ($did == 10) && (%sonraki.link2 != yok) { pagejump2 %sonraki.link2 }

}

if ($devent == init) {

did -h komikaze 5

did -b komikaze 13

did -h komikaze 6

did -b komikaze 14

did -h komikaze 7

did -b komikaze 15

did -ra $dname 12 Yukleniyor...

}

if ($devent == Close) { sockclose komik* | sockclose fikra* }

}

on *:LOAD:{ echo -a Espri - Fikra Bulucu Yuklendi | echo -a /komedi komutuyla calisitirin | echo -a SCouNDReL... }

» Devamını Oku

Yorum yaz addon, bulucu, fikra, mirc

ASP / .Asp De Kelime Sayısını Bulma

16 Mart 2014 • 14:02 OxiGeN Hazır Kodlar

< % Function Kelimebul(Gelen) Gelen=Trim(Gelen) If Gelen="" Then Exit Function KelimeParcala=Split(Gelen," ") Kelimebul=Ubound(KelimeParcala,1)+1 End Function Kelime="merhaba deneme yazisi yazdik kelime sayisini bulacagiz " Saybakalim=Kelimebul(Kelime) Response.Write (Saybakalim) 'Sonuç 7 Kelime %> TurkIRC ©

» Devamını Oku

Yorum yaz addon, irc komutları, komutlar, Komutları

DELPHI / Open Source Ahmdialogs

15 Mart 2014 • 10:13 OxiGeN Hazır Kodlar

(* This File is Part of the AHM Triton Tools for Borland Delphi and C++ Builder. Copyright (c) 1995 – 1998 AHM Alexander H. Mehlhorn For more Information contact AHM at E-Mail : [email protected] ICQ : 176724 or URL http://www.ahm.co.za AHM is copyright by Alexander H. Mehlhorn All Parts of this Collection were developed, designed and implemented by AHM Under […]

» Devamını Oku

Yorum yaz addon, irc komutları, komutlar, Komutları

mIRC Html Remotesi

15 Mart 2014 • 03:27 OxiGeN Hazır Kodlar

Bu kodun amaci mirc script uzerinden web sitelerine baglanarak yaptiginiz sockopen islevlerinde gereki olan html kodlarini temizleyip duz metin halinde görmenizi saglar. Yazan kim bilmiyorum ama socks olarak baglandiginiz web sitelerinde kod halinda geliyor kodlardan arindirmak icin en güzel yontem budur.

Kod;
alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^&amp;lt;]*&amp;gt;|&amp;lt;[^&amp;gt;]*&amp;gt;|&amp;lt;[^&amp;gt;]*$)/g,$null,%x), %x = $remove(%x,&amp;amp;nbsp;)  
  return %x  
}

Bu kodun amaci mirc script uzerinden web sitelerine baglanarak yaptiginiz sockopen islevlerinde gereki olan html kodlarini temizleyip duz metin halinde görmenizi saglar. Yazan kim bilmiyorum ama socks olarak baglandiginiz web sitelerinde kod halinda geliyor kodlardan arindirmak icin en güzel yontem budur.

Kod;

alias htmlfree {

var %x, %i = $regsub($1-,/(^[^&lt;]*&gt;|&lt;[^&gt;]*&gt;|&lt;[^&gt;]*$)/g,$null,%x), %x = $remove(%x,&amp;nbsp;)

return %x

}

» Devamını Oku

Yorum yaz addon, html, mirc, remote

mIRC PC-win (/loadbar)

15 Mart 2014 • 03:26 OxiGeN Hazır Kodlar

Ozellik(Kullanim):
Baslik ismini belirliyebilirsiniz.
6 adet tema secenegi mevcut.
Minimum 1, maksimum 5 text ekleyebilirsiniz.
Yuklenme hizini belirliyebilirsiniz.(MS formatinda)
Not: Title-name kismina girece?iniz textde, bosluk yerine &amp;amp;#8220;-&amp;amp;#8221; kullanmalisiniz.

Resimdeki yukleniyor efekti gri renkte siz renkleri degistirebilirsiniz.

Kullanim sekli: /loadbar [title-name] [red|blue|green|grey|yellow|orange] [load speed] [loadtext1+loadtext2+3../max 5 loadtext])

Ornek: /loadbar Baslik-ismi.(title) grey 20 Birinci text+ikinci text+Ucuncu text+Dorduncu text+Besinci text

Kod;

alias loadbar {
  var %echo = (/loadbar [title-name] [red|blue|green|grey|yellow|orange] [load speed] [loadtext1+loadtext2+3../max 5 loadtext]) 
  if ($regex($1-,/\\\\s/g) &amp;lt; 3) { echo $color(info) -e */loadbar: Hatal? veya eksik kullan?m. %echo | halt }
  $iif($window(@loadbar),window -c @loadbar) | unset %load | clr $2 
  set %fill $hget($2,fill) | set %rect $hget($2,rect) | set %ptitle $hget($2,title) | set %clr $2
  window -aCpdhBk0 +d @loadbar 0 0 220 65 | window -a @loadbar | drawfill -r @loadbar %fill %fill 0 0 
  drawrect -r @loadbar %rect 2 0 0 220 65 0 0 220 17 7 37 206 22 | drawrect -rf @loadbar %ptitle 1 2 2 216 13
  drawtext -rbo @loadbar %fill %ptitle Arial 9 5 3 $ll($regsubex($1,/-/g,$chr(32))) | drawtext -rb @loadbar %fill %ptitle Arial 9 202 2 = x
  .timerload -m 200 $3 inc %load $(|) drawrect -rf @loadbar %ptitle 1 10 40 $!(%load,2) 16 $(|) drawtext -rbo @loadbar %rect %fill Arial 9 7 22 $!+(Load,$chr(40),%,$round($calc($(%load,2) /2),0),$chr(41)) $(|) txt %clr $4-
}
alias -l clr {
  if ($regex(red,$1)) { hadd -m red fill $rgb(169,14,21) | hadd -m red rect $rgb(43,0,14) | hadd -m red title $rgb(60,0,13) }
  if ($regex(blue,$1)) { hadd -m blue fill $rgb(30,72,240) | hadd -m blue rect $rgb(5,20,78) | hadd -m blue title $rgb(9,33,132) }
  if ($regex(green,$1)) { hadd -m green fill $rgb(0,200,0) | hadd -m green rect $rgb(0,35,0) | hadd -m green title $rgb(0,60,0) }
  if ($regex(grey,$1)) { hadd -m grey fill $rgb(85,85,85) | hadd -m grey rect $rgb(25,25,25) | hadd -m grey title $rgb(50,50,50) }
  if ($regex(yellow,$1)) { hadd -m yellow fill $rgb(255,255,0) | hadd -m yellow rect $rgb(85,85,0) | hadd -m yellow title $rgb(105,105,0) }
  if ($regex(orange,$1)) { hadd -m orange fill $rgb(255,128,0) | hadd -m orange rect $rgb(66,33,0) | hadd -m orange title $rgb(128,64,0) } 
}
alias -l ll var %t = $iif($len($1-) &amp;gt;= 29,$+($left($1-,28),..),$1-) | var %tt = $regsubex(%t,/(?&amp;lt;=^)(.)/g,$upper(\\\\1)) | return %tt
alias -l mse if ($mouse.x &amp;gt;= $gettok($1,1,45) &amp;amp;&amp;amp; $mouse.x &amp;lt; $gettok($1,2,45)) &amp;amp;&amp;amp; ($mouse.y &amp;gt;= $gettok($1,3,45) &amp;amp;&amp;amp; $mouse.y &amp;lt; $gettok($1,4,45)) return $true 
alias -l txt {
  var %:- = $timer(load).reps
  if ($regex(%:-,^190$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t1 $gettok($2-,1,43) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t1) }
  if ($regex(%:-,^140$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t2 $iif(!$gettok($2-,2,43),%t1,$gettok($2-,2,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t2) }
  if ($regex(%:-,^90$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t3 $iif(!$gettok($2-,3,43),%t2,$gettok($2-,3,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t3) }
  if ($regex(%:-,^50$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t4 $iif(!$gettok($2-,4,43),%t3,$gettok($2-,4,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t4) }
  if ($regex(%:-,^10$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t5 $iif(!$gettok($2-,5,43),%t4,$gettok($2-,5,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t5) }
  if ($regex(%:-,^0$)) .timer 1 1 drawtext -rbo @loadbar %rect %fill Arial 9 7 22 $+(Veriler ba?ar?yla yüklendi.,$str($chr(160),30)) $(|) unset %t1 %t2 %t3 %t4 %t5 $(|) .timercls 1 3 window -c @loadbar
}
on *:close:@loadbar:$iif($timer(cls),.timercls off)
menu @loadbar {
  sclick:$iif($mse(202-207-4-9),window -n @loadbar) | if ($mse(209-216-4-11)) window -c @loadbar | .timerload off 
  mouse: { 
    $iif($mse(202-207-4-9),drawtext -rbo @loadbar $rgb(255,255,255) %ptitle Arial 10 202 2 =,drawtext -rb @loadbar %fill %ptitle Arial 9 202 2 = $+(x,$chr(160))) 
    $iif($mse(209-216-4-11),drawtext -rbo @loadbar $rgb(255,255,255) %ptitle Arial 10 210 2 x)
  }
}

Ozellik(Kullanim):

Baslik ismini belirliyebilirsiniz.

6 adet tema secenegi mevcut.

Minimum 1, maksimum 5 text ekleyebilirsiniz.

Yuklenme hizini belirliyebilirsiniz.(MS formatinda)

Not: Title-name kismina girece?iniz textde, bosluk yerine &amp;#8220;-&amp;#8221; kullanmalisiniz.

Resimdeki yukleniyor efekti gri renkte siz renkleri degistirebilirsiniz.

Ornek: /loadbar Baslik-ismi.(title) grey 20 Birinci text+ikinci text+Ucuncu text+Dorduncu text+Besinci text

Kod;

alias loadbar {

if ($regex($1-,/\\\\s/g) &lt; 3) { echo $color(info) -e */loadbar: Hatal? veya eksik kullan?m. %echo | halt }

$iif($window(@loadbar),window -c @loadbar) | unset %load | clr $2

set %fill $hget($2,fill) | set %rect $hget($2,rect) | set %ptitle $hget($2,title) | set %clr $2

window -aCpdhBk0 +d @loadbar 0 0 220 65 | window -a @loadbar | drawfill -r @loadbar %fill %fill 0 0

drawrect -r @loadbar %rect 2 0 0 220 65 0 0 220 17 7 37 206 22 | drawrect -rf @loadbar %ptitle 1 2 2 216 13

drawtext -rbo @loadbar %fill %ptitle Arial 9 5 3 $ll($regsubex($1,/-/g,$chr(32))) | drawtext -rb @loadbar %fill %ptitle Arial 9 202 2 = x

.timerload -m 200 $3 inc %load $(|) drawrect -rf @loadbar %ptitle 1 10 40 $!(%load,2) 16 $(|) drawtext -rbo @loadbar %rect %fill Arial 9 7 22 $!+(Load,$chr(40),%,$round($calc($(%load,2) /2),0),$chr(41)) $(|) txt %clr $4-

}

alias -l clr {

if ($regex(red,$1)) { hadd -m red fill $rgb(169,14,21) | hadd -m red rect $rgb(43,0,14) | hadd -m red title $rgb(60,0,13) }

if ($regex(blue,$1)) { hadd -m blue fill $rgb(30,72,240) | hadd -m blue rect $rgb(5,20,78) | hadd -m blue title $rgb(9,33,132) }

if ($regex(green,$1)) { hadd -m green fill $rgb(0,200,0) | hadd -m green rect $rgb(0,35,0) | hadd -m green title $rgb(0,60,0) }

if ($regex(grey,$1)) { hadd -m grey fill $rgb(85,85,85) | hadd -m grey rect $rgb(25,25,25) | hadd -m grey title $rgb(50,50,50) }

if ($regex(yellow,$1)) { hadd -m yellow fill $rgb(255,255,0) | hadd -m yellow rect $rgb(85,85,0) | hadd -m yellow title $rgb(105,105,0) }

if ($regex(orange,$1)) { hadd -m orange fill $rgb(255,128,0) | hadd -m orange rect $rgb(66,33,0) | hadd -m orange title $rgb(128,64,0) }

}

alias -l ll var %t = $iif($len($1-) &gt;= 29,$+($left($1-,28),..),$1-) | var %tt = $regsubex(%t,/(?&lt;=^)(.)/g,$upper(\\\\1)) | return %tt

alias -l mse if ($mouse.x &gt;= $gettok($1,1,45) &amp;&amp; $mouse.x &lt; $gettok($1,2,45)) &amp;&amp; ($mouse.y &gt;= $gettok($1,3,45) &amp;&amp; $mouse.y &lt; $gettok($1,4,45)) return $true

alias -l txt {

var %:- = $timer(load).reps

if ($regex(%:-,^190$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t1 $gettok($2-,1,43) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t1) }

if ($regex(%:-,^140$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t2 $iif(!$gettok($2-,2,43),%t1,$gettok($2-,2,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t2) }

if ($regex(%:-,^90$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t3 $iif(!$gettok($2-,3,43),%t2,$gettok($2-,3,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t3) }

if ($regex(%:-,^50$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t4 $iif(!$gettok($2-,4,43),%t3,$gettok($2-,4,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t4) }

if ($regex(%:-,^10$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t5 $iif(!$gettok($2-,5,43),%t4,$gettok($2-,5,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t5) }

if ($regex(%:-,^0$)) .timer 1 1 drawtext -rbo @loadbar %rect %fill Arial 9 7 22 $+(Veriler ba?ar?yla yüklendi.,$str($chr(160),30)) $(|) unset %t1 %t2 %t3 %t4 %t5 $(|) .timercls 1 3 window -c @loadbar

}

on *:close:@loadbar:$iif($timer(cls),.timercls off)

menu @loadbar {

sclick:$iif($mse(202-207-4-9),window -n @loadbar) | if ($mse(209-216-4-11)) window -c @loadbar | .timerload off

mouse: {

$iif($mse(202-207-4-9),drawtext -rbo @loadbar $rgb(255,255,255) %ptitle Arial 10 202 2 =,drawtext -rb @loadbar %fill %ptitle Arial 9 202 2 = $+(x,$chr(160)))

$iif($mse(209-216-4-11),drawtext -rbo @loadbar $rgb(255,255,255) %ptitle Arial 10 210 2 x)

}

» Devamını Oku

Yorum yaz addon, loadbar, mirc, pc win, remote

mIRC Cift Renkli Yazi Tipi

15 Mart 2014 • 03:25 OxiGeN Hazır Kodlar


menu menubar,channel,query {
  $iif($group(#DuaL_CoLoR.Text) == Off,DuaL_CoLoR Text [Off],DuaL_CoLoR Text [On]):{
    $iif($group(#DuaL_CoLoR.Text) == Off,.enable #DuaL_CoLoR.Text,.disable #DuaL_CoLoR.Text)
  }
}
#DuaL_CoLoR.Text on

on *:input:*:{
  if ($left($1-,1) != /) {
    if ($left($1-,1) != $chr(33)) {
    set %len $len($1-) }
    if ($remove($1,:) ison $chan) { .set %nick.comp $remove($1,:) | .say   10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 14,1 ¬ 10,1 $1 14¬ 1,1 10 $+ $left($mid($2-,00,$calc($len($2-) - 1)),4) $+ 1,10 $+ $mid($2-,5,$calc($len($2-) - 00))   $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10×  | goto End | :end | halt }
    else {
      msg $active  10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 1,1 1,1 $+ 10 $+ $left($mid($1-,1,$calc($len($1-) - 0)),11) $+ 1,10 $+ $mid($1-,12,$calc($len($1-) - 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10×0,0   | haltdef 11,11,110} 
    }
  }
}

menu menubar,channel,query {

$iif($group(#DuaL_CoLoR.Text) == Off,DuaL_CoLoR Text [Off],DuaL_CoLoR Text [On]):{

$iif($group(#DuaL_CoLoR.Text) == Off,.enable #DuaL_CoLoR.Text,.disable #DuaL_CoLoR.Text)

}

#DuaL_CoLoR.Text on

on *:input:*:{

if ($left($1-,1) != /) {

if ($left($1-,1) != $chr(33)) {

set %len $len($1-) }

if ($remove($1,:) ison $chan) { .set %nick.comp $remove($1,:) | .say 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 14,1 ¬ 10,1 $1 14¬ 1,1 10 $+ $left($mid($2-,00,$calc($len($2-) - 1)),4) $+ 1,10 $+ $mid($2-,5,$calc($len($2-) - 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10× | goto End | :end | halt }

else {

msg $active 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 1,1 1,1 $+ 10 $+ $left($mid($1-,1,$calc($len($1-) - 0)),11) $+ 1,10 $+ $mid($1-,12,$calc($len($1-) - 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10×0,0 | haltdef 11,11,110}

}

» Devamını Oku

Yorum yaz addon, cift, mirc, renkli, tipi, yazi

mIRC Baska Nickle Gireni Belirleme Kodu

15 Mart 2014 • 03:24 OxiGeN Hazır Kodlar

1: start: (. Hmake nicksch 100)
1art Do?um: #: (($ comchan ($ nick, 0) &lt;2) (nick $ site)) $ nicksgrab e?er
1: ç?k?n: (nick $ site) $ nicksgrab
1: kick: #: (
($ Comchan ($ önemsiz, e?er 0) &lt;2) (
?v?r $ ifmatch) $ nicksgrab ($ ial ($ ?v?r birlikte). host! = $ null) (
)
)
alias (nicksgrab
. $ Nicksch hadd IIf (($ gettok ($ 2, -1,46) == virtuel) &amp; &amp; ($ numtok (2,46 $)&gt; 3 ),$+($ gettok ($ 2,1-2, 46). virtuel), $ 2) $ 1
)
NicksTrouve (alias
var% a = $ IIf (($ gettok ($ 2, -1,46) == virtuel) &amp; &amp; ($ numtok (2,46 $)&gt; 3 ),$+($ gettok ($ 2,1-2 , 46). virtuel), $ 2)
return $ IIf ($ hget (nicksch,% a)! = $ 1, $ ifmatch)
)
1: JOIN: #: (
var% NickPrecedent = $ IIf ($ NicksTrouve ($ nick, $ site),? 4 [? 2Onceki Nicki? 4]? 12 $ ifmatch?)
(% NickPrecedent) (echo-tm $ chan $ ifmatch) e?er
)

1: start: (. Hmake nicksch 100)

1art Do?um: #: (($ comchan ($ nick, 0) <2) (nick $ site)) $ nicksgrab e?er

1: ç?k?n: (nick $ site) $ nicksgrab

1: kick: #: (

($ Comchan ($ önemsiz, e?er 0) <2) (

?v?r $ ifmatch) $ nicksgrab ($ ial ($ ?v?r birlikte). host! = $ null) (

)

alias (nicksgrab

. $ Nicksch hadd IIf (($ gettok ($ 2, -1,46) == virtuel) & & ($ numtok (2,46 $)> 3 ),$+($ gettok ($ 2,1-2, 46). virtuel), $ 2) $ 1

)

NicksTrouve (alias

var% a = $ IIf (($ gettok ($ 2, -1,46) == virtuel) & & ($ numtok (2,46 $)> 3 ),$+($ gettok ($ 2,1-2 , 46). virtuel), $ 2)

return $ IIf ($ hget (nicksch,% a)! = $ 1, $ ifmatch)

)

1: JOIN: #: (

var% NickPrecedent = $ IIf ($ NicksTrouve ($ nick, $ site),? 4 [? 2Onceki Nicki? 4]? 12 $ ifmatch?)

(% NickPrecedent) (echo-tm $ chan $ ifmatch) e?er

)

» Devamını Oku

Yorum yaz addon, baska, belirleme, kod, mirc, Nick

« 1 … 12 13 14 15 16 … 23 »