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... }

Yorum yaz addon, bulucu, fikra, mirc

Fıkra Bulucu Addon

Bir cevap yazın Cevabı iptal et