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

Gelismis Op/Voice Prefix Tesekkur Addonu

21 Mart 2014 • 00:56 OxiGeN Addonlar

Kod Yazari LeadeR’dir.

alias tesekkur { dialog -m tsk tsk }
dialog tsk {
  title "Op-Voice-Hop ( Tesekkür Dialog ) | www.mircturk.com ( Coded : LeadeR )"
  size -1 -1 243 170
  option dbu
  tab "Op - Deop ( Tesekkür )", 1, 0 -2 241 160
  button "Ekle", 8, 30 21 17 10, tab 1
  edit "", 4, 55 20 178 13, tab 1 return autohs autovs
  button "Sil", 9, 30 34 17 10, tab 1
  button "Ekle", 10, 31 88 17 10, tab 1
  edit "", 6, 55 87 178 13, tab 1 return autohs autovs
  button "Sil", 11, 31 101 17 10, tab 1
  list 5, 55 34 178 50, tab 1 size
  list 7, 55 101 178 50, tab 1 size
  check "Check Box", 31, 9 53 7 10, tab 1
  edit "+(@) , -(@)", 32, 18 52 36 11, tab 1
  tab "Voice - Devoice ( Tesekkür )", 2
  button "Ekle", 15, 30 21 17 10, tab 2
  edit "", 16, 55 20 178 13, tab 2 return autohs autovs
  button "Sil", 17, 30 34 17 10, tab 2
  button "Ekle", 19, 31 88 17 10, tab 2
  edit "", 20, 55 87 178 13, tab 2 return autohs autovs
  button "Sil", 21, 31 101 17 10, tab 2
  list 18, 55 34 178 50, tab 2 size
  list 22, 55 101 178 50, tab 2 size
  check "Check Box", 33, 9 53 7 10, tab 2
  edit "+(v) , -(v)", 34, 18 52 36 11, tab 2
  tab "Hop-Dehop ( Tesekkür )", 3
  button "Ekle", 23, 30 21 17 10, tab 3
  edit "", 24, 55 20 178 13, tab 3 return autohs autovs
  button "Sil", 25, 30 34 17 10, tab 3
  button "Ekle", 27, 31 88 17 10, tab 3
  edit "", 28, 55 87 178 13, tab 3 return autohs autovs
  button "Sil", 29, 31 101 17 10, tab 3
  list 26, 55 34 178 50, tab 3 size
  list 30, 55 101 178 50, tab 3 size
  check "Check Box", 35, 9 53 7 10, tab 3
  edit "+(%) ,-(%)", 36, 18 52 36 11, tab 3
  button "Kapat", 14, 217 159 25 11, ok
  box "", 13, 2 10 238 147
  box "", 12, 7 14 228 139
}

on *:dialog:tsk:*:*: {
  if ($devent == sclick) {
    if ($did == 5) { did -ra $dname 4 $did(5).seltext }
    if ($did == 8) {
      if ($did(4) != $null) { write op.txt $did(4) | did -a $dname 5 $did(4) }
      did -r $dname 4
    }
    if ($did == 9) {
      if ($did(4) != $null) { write $+(-,d,s,$did(4)) op.txt | did -d tsk 5 $did(5).sel }
      did -r $dname 4
    }
    if ($did == 7) { did -ra $dname 6 $did(7).seltext }
    if ($did == 10) {
      if ($did(6) != $null) { write deop.txt $did(6) | did -a $dname 7 $did(6) }
      did -r $dname 6
    }
    if ($did == 11) {
      if ($did(6) != $null) { write $+(-,d,s,$did(6)) deop.txt | did -d tsk 7 $did(7).sel }
      did -r $dname 6
    }
    if ($did == 18) { did -ra $dname 16 $did(18).seltext }
    if ($did == 15) {
      if ($did(16) != $null) { write v.txt $did(16) | did -a $dname 18 $did(16) }
      did -r $dname 16
    }
    if ($did == 17) {
      if ($did(16) != $null) { write $+(-,d,s,$did(16)) v.txt | did -d tsk 18 $did(18).sel }
      did -r $dname 16
    }
    if ($did == 22) { did -ra $dname 20 $did(22).seltext }
    if ($did == 19) {
      if ($did(20) != $null) { write dv.txt $did(20) | did -a $dname 22 $did(20) }
      did -r $dname 20
    }
    if ($did == 21) {
      if ($did(20) != $null) { write $+(-,d,s,$did(20)) dv.txt | did -d tsk 22 $did(22).sel }
      did -r $dname 20
    }
    if ($did == 26) { did -ra $dname 24 $did(26).seltext }
    if ($did == 23) {
      if ($did(24) != $null) { write h.txt $did(24) | did -a $dname 26 $did(24) }
      did -r $dname 24
    }
    if ($did == 25) {
      if ($did(24) != $null) { write $+(-,d,s,$did(24)) h.txt | did -d tsk 26 $did(26).sel }
      did -r $dname 24
    }
    if ($did == 30) { did -ra $dname 28 $did(30).seltext }
    if ($did == 27) {
      if ($did(28) != $null) { write dh.txt $did(28) | did -a $dname 30 $did(28) }
      did -r $dname 28
    }
    if ($did == 29) {
      if ($did(28) != $null) { write $+(-,d,s,$did(28)) dh.txt | did -d tsk 30 $did(30).sel }
      did -r $dname 28
    }
    if ($did == 14) {
      if ($did(31).state == 1) { .enable #op }
      if ($did(31).state == 0) { .disable #op }
      if ($did(33).state == 1) { .enable #vop }
      if ($did(33).state == 0) { .disable #vop }
      if ($did(35).state == 1) { .enable #hop }
      if ($did(35).state == 0) { .disable #hop }    
    }
}

100

101

102

103

104

105

106

107

108

alias tesekkur { dialog -m tsk tsk }

dialog tsk {

title "Op-Voice-Hop ( Tesekkür Dialog ) | www.mircturk.com ( Coded : LeadeR )"

size -1 -1 243 170

option dbu

tab "Op - Deop ( Tesekkür )", 1, 0 -2 241 160

button "Ekle", 8, 30 21 17 10, tab 1

edit "", 4, 55 20 178 13, tab 1 return autohs autovs

button "Sil", 9, 30 34 17 10, tab 1

button "Ekle", 10, 31 88 17 10, tab 1

edit "", 6, 55 87 178 13, tab 1 return autohs autovs

button "Sil", 11, 31 101 17 10, tab 1

list 5, 55 34 178 50, tab 1 size

list 7, 55 101 178 50, tab 1 size

check "Check Box", 31, 9 53 7 10, tab 1

edit "+(@) , -(@)", 32, 18 52 36 11, tab 1

tab "Voice - Devoice ( Tesekkür )", 2

button "Ekle", 15, 30 21 17 10, tab 2

edit "", 16, 55 20 178 13, tab 2 return autohs autovs

button "Sil", 17, 30 34 17 10, tab 2

button "Ekle", 19, 31 88 17 10, tab 2

edit "", 20, 55 87 178 13, tab 2 return autohs autovs

button "Sil", 21, 31 101 17 10, tab 2

list 18, 55 34 178 50, tab 2 size

list 22, 55 101 178 50, tab 2 size

check "Check Box", 33, 9 53 7 10, tab 2

edit "+(v) , -(v)", 34, 18 52 36 11, tab 2

tab "Hop-Dehop ( Tesekkür )", 3

button "Ekle", 23, 30 21 17 10, tab 3

edit "", 24, 55 20 178 13, tab 3 return autohs autovs

button "Sil", 25, 30 34 17 10, tab 3

button "Ekle", 27, 31 88 17 10, tab 3

edit "", 28, 55 87 178 13, tab 3 return autohs autovs

button "Sil", 29, 31 101 17 10, tab 3

list 26, 55 34 178 50, tab 3 size

list 30, 55 101 178 50, tab 3 size

check "Check Box", 35, 9 53 7 10, tab 3

edit "+(%) ,-(%)", 36, 18 52 36 11, tab 3

button "Kapat", 14, 217 159 25 11, ok

box "", 13, 2 10 238 147

box "", 12, 7 14 228 139

}

on *:dialog:tsk:*:*: {

if ($devent == sclick) {

if ($did == 5) { did -ra $dname 4 $did(5).seltext }

if ($did == 8) {

if ($did(4) != $null) { write op.txt $did(4) | did -a $dname 5 $did(4) }

did -r $dname 4

}

if ($did == 9) {

if ($did(4) != $null) { write $+(-,d,s,$did(4)) op.txt | did -d tsk 5 $did(5).sel }

did -r $dname 4

}

if ($did == 7) { did -ra $dname 6 $did(7).seltext }

if ($did == 10) {

if ($did(6) != $null) { write deop.txt $did(6) | did -a $dname 7 $did(6) }

did -r $dname 6

}

if ($did == 11) {

if ($did(6) != $null) { write $+(-,d,s,$did(6)) deop.txt | did -d tsk 7 $did(7).sel }

did -r $dname 6

}

if ($did == 18) { did -ra $dname 16 $did(18).seltext }

if ($did == 15) {

if ($did(16) != $null) { write v.txt $did(16) | did -a $dname 18 $did(16) }

did -r $dname 16

}

if ($did == 17) {

if ($did(16) != $null) { write $+(-,d,s,$did(16)) v.txt | did -d tsk 18 $did(18).sel }

did -r $dname 16

}

if ($did == 22) { did -ra $dname 20 $did(22).seltext }

if ($did == 19) {

if ($did(20) != $null) { write dv.txt $did(20) | did -a $dname 22 $did(20) }

did -r $dname 20

}

if ($did == 21) {

if ($did(20) != $null) { write $+(-,d,s,$did(20)) dv.txt | did -d tsk 22 $did(22).sel }

did -r $dname 20

}

if ($did == 26) { did -ra $dname 24 $did(26).seltext }

if ($did == 23) {

if ($did(24) != $null) { write h.txt $did(24) | did -a $dname 26 $did(24) }

did -r $dname 24

}

if ($did == 25) {

if ($did(24) != $null) { write $+(-,d,s,$did(24)) h.txt | did -d tsk 26 $did(26).sel }

did -r $dname 24

}

if ($did == 30) { did -ra $dname 28 $did(30).seltext }

if ($did == 27) {

if ($did(28) != $null) { write dh.txt $did(28) | did -a $dname 30 $did(28) }

did -r $dname 28

}

if ($did == 29) {

if ($did(28) != $null) { write $+(-,d,s,$did(28)) dh.txt | did -d tsk 30 $did(30).sel }

did -r $dname 28

}

if ($did == 14) {

if ($did(31).state == 1) { .enable #op }

if ($did(31).state == 0) { .disable #op }

if ($did(33).state == 1) { .enable #vop }

if ($did(33).state == 0) { .disable #vop }

if ($did(35).state == 1) { .enable #hop }

if ($did(35).state == 0) { .disable #hop }

}

» Devamını Oku

Yorum yaz gelişmiş, mirc, op, tesekkur, voice

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

Turkirc.com Web sitemize Hoş geldiniz Sitemizde Sohbet Arkadaşlık Sohbet Platfromu mircimizi indirebilirsiniz Turkirc.com mirc indir Aşk, Sevgi , Arkadaşık, Herşeyi Turkir.com mirc indir sitemizde bulabilirsiniz.

» Devamını Oku

Yorum yaz mirc, mirc download, Türkçe mirc indir, turkce mırc

turk irc chat

15 Mart 2014 • 10:19 OxiGeN Türkçe mIRC

www.turkirc.com Güncel Sitemize Girip mircimi’zi Ziyaret edebilirsiniz Sohbet chat Kelimelerde öncülük etmekdedir, www.turkirc.com mirc Scriptimi’zi indirip Sohbet’e başlayabilirsiniz.

» Devamını Oku

Yorum yaz indir, mirc, Mirc indir

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

« 1 … 40 41 42 43 44 … 60 »

Etiket: mirc

Gelismis Op/Voice Prefix Tesekkur Addonu

Fıkra Bulucu Addon

turkçe mirc

turk irc chat

mIRC Html Remotesi

mIRC PC-win (/loadbar)

mIRC Cift Renkli Yazi Tipi