6/10/2009 ·
; youtube video search
Yorum (yok)
Yorum yaz! alias Crack {
Yorum (yok)
Yorum yaz! alias Ekoru {
Yorum (yok)
Yorum yaz! ; Iddaa Tahminleri By Uyuss(AkIn)
; returns the first search result for your search terms
; usage for you
;
; trigger: /yt
; syntax: /yt
; example: /yt charleston daft punk
; usage for other people
;
; triggers: !youtube @youtube !tube @tube
; syntax: @youtube
; example: !tube charleston daft punk
; if you want to sort search by VIEW COUNT, use this line below
; sockwrite -nt $sockname GET /results?search_sort=video_view_count&search_query= $+ %searchstring
;
; if you want the regular search, use this line below
; sockwrite -nt $sockname GET /results?search_query= $+ %searchstring HTTP//1.1
;
; the place im referring to is: under the heading on *:sockopen:ytsearch:{
alias yt {
%channel = $chan
if (%channel) { %saystyle = echo -t %channel }
else { %saystyle = echo -at }
%searchstring = $replace($1-,$chr(32),+)
sockclose ytsearch
sockopen ytsearch www.youtube.com 80
}
on $*:TEXT:/^[!@](yt|youtube|tube) */Si:#: {
%channel = $chan
%saystyle = /msg %channel
%searchstring = $replace($2-,$chr(32),+)
if ($2 == $null) { %saystyle Search could not be completed | halt }
sockclose ytsearch
sockopen ytsearch www.youtube.com 80
}
on *:sockopen:ytsearch:{
sockwrite -nt $sockname GET /results?search_query= $+ %searchstring HTTP//1.1
sockwrite -nt $sockname Host: youtube.com
sockwrite -nt $sockname $crlf $crlf
}
on *:sockread:ytsearch:{
sockread -n %temp
if (%founddesc_be) { unset %founddesc_be | %desc_be = $replace($remove(%temp, ),
,$chr(32)) }
if ( if (%foundtitle) { inc %titlecounter }
if (%titlecounter = 1) { %searchtitle = $replace($remove($regsubex(%temp,/]+>(.+?)/,1),
, ),",$chr(34)) }
if (
if (}
6/10/2009 ·
var %kg.tbl = 11:6:17:12:12:14:5:12:16:10:11:6:14:14:4:11:9:12:1 1:10:8:10:10:16:8:4:6:10:12:16:8:10:4:16
var %kg.ctr = 4
var %kg.tot = $len($1-)
while (%kg.ctr <= %kg.tot) {
var %kg.1 = $calc(%kg.1 + ($asc($mid($1-,%kg.ctr,1)) * $gettok(%kg.tbl,$calc(%kg.ctr - 3),58)))
var %kg.2 = $calc(%kg.2 + (($asc($mid($1-,%kg.ctr,1)) * $asc($mid($1-,$calc(%kg.ctr - 1),1))) * $gettok(%kg.tbl,$calc(%kg.ctr -3),58)))
inc %kg.ctr
}
echo :--------------------------------------------------------------------------------------------
echo :mIRC Sürümü 4 $version
echo :Lisanslanan kişi4 $1-
echo :Key 4 $+(%kg.1,-,%kg.2)
echo :ALT + H Tuslarına basarak REGISTER kısmına tıklayın..
echo :ardından Acılan Pencereye Parametreleri girin...
echo :--------------------------------------------------------------------------------------------
}6/10/2009 ·
.window -Bdok0pbx +fyX @Ekran_koruyucu
.timer_sc_nokta 0 3 drawdot @Ekran_koruyucu $rand(0,15) 2000 10 5
.timer_sckoşabine 0 5 drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Fixedsys 1000 11 500 500 $me
gelbana
.timer_scgel -hio 0 1 gelbana
.timer_sc_koşgel 0 1 baslıx
.timer_sc_kapat_ -mio 0 1 .SCC | .set %MX $+($mouse.x,$mouse.y)
}
alias SCC {
if ( $+($mouse.x,$mouse.y) == %MX) { Halt }
if ( $+($mouse.x,$mouse.y) != %MX) { SCF }
}
alias SCF { .timersc off | .window -c @Ekran_koruyucu | .timer_sc* off }
on *:KEYDOWN:@Ekran_koruyucu:*:SCF
alias -l gelbana {
drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Fixedsys $rand(0,500) $rand(0,500) $rand(0,500) MTX
drawtext -r @Ekran_koruyucu ($rgb(100,173,255) verdana 20 200 650 Ekranı Açmak için Fareyi Kıpırdatın }
alias -l baslıx {
drawtext -r @Ekran_koruyucu $rgb(73,73,73) Verdana 50 112 12 Screen Saver
drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Verdana 50 110 10 Screen Saver
}6/10/2009 ·
; www.betstudy.com 'a Teşekkürler
alias -l txt $iif($1 == -o,drawtext -or @tahmin $2 Tahoma 11 $3 $4 $5-,drawtext -r @tahmin $1 Tahoma 11 $2 $3 $4-)
alias -l rect $iif($1 == -f,drawrect -rf @tahmin $2 1 $3 $4 $5 $6,drawrect -r @tahmin $1 1 $2 $3 $4 $5)
alias -l mlist { inc %mly 23 | txt -o $rgb(255,255,255) 30 %mly $1- }
alias -l create->table {
if ($window(@tahmin)) {
set %ly 26
rect -f $rgb(0,130,65) 6 6 770 22
rect $rgb(0,0,0) 6 6 770 22
rect -f $rgb(69,101,8) 6 27 770 25
rect $rgb(0,0,0) 6 27 770 25
rect $rgb(0,0,0) 60 27 1 25
rect $rgb(0,0,0) 120 27 1 25
;rect $rgb(0,0,0) 320 27 1 25
rect $rgb(0,0,0) 530 27 1 25
rect $rgb(0,0,0) 590 27 1 25
rect $rgb(0,0,0) 660 27 1 25
txt -o $rgb(255,204,0) 20 33 Saat
txt -o $rgb(255,204,0) 80 33 Kod
txt -o $rgb(255,204,0) 300 33 KARŞILAŞMA
;txt -o $rgb(255,204,0) 470 33 Misafir Takım
txt -o $rgb(255,204,0) 550 33 MBS
txt -o $rgb(255,204,0) 610 33 Sonuç
txt -o $rgb(255,204,0) 680 33 Banko/Süpriz
}
}
alias -l create->col {
if ($window(@tahmin)) {
rect -f $rgb(52,113,52) 0 50 2000 2000
var %tsay = 1
while (%tsay <= $lines(maclar.txt)) {
inc %ly 24
tokenize 191 $read(maclar.txt,%tsay)
rect -f $rgb(0,92,0) 6 %ly 770 25
rect $rgb(0,0,0) 6 %ly 770 25
rect $rgb(0,0,0) 60 %ly 1 25
rect $rgb(0,0,0) 120 %ly 1 25
;rect $rgb(0,0,0) 320 %ly 1 25
rect $rgb(0,0,0) 530 %ly 1 25
rect $rgb(0,0,0) 590 %ly 1 25
rect $rgb(0,0,0) 660 %ly 1 25
$iif($1 != $null,txt $rgb(255,255,255) 17 $calc(%ly + 5) $1)
$iif($2 != $null,txt $rgb(255,255,0) 77 $calc(%ly + 5) $2)
$iif($3 != $null,txt $rgb(255,255,0) 180 $calc(%ly + 5) $3)
$iif($4 != $null,txt $rgb(255,255,255) 555 $calc(%ly + 5) $4)
$iif($5 != $null,txt $rgb(255,255,255) 620 $calc(%ly + 5) $5)
$iif($6 != $null,txt $rgb(255,255,255) 700 $calc(%ly + 5) $6)
$iif(%tsay == $lines(maclar.txt),guncel->button)
inc %tsay
}
}
}
alias tahmin {
window -pxk[1] @Tahmin
rect -f $rgb(52,113,52) 0 0 2000 2000
create->table
drawtext -or @tahmin $rgb(255,255,0) Tahoma 25 50 150 Bekleyin...
}
alias -l guncel->button {
txt -o $rgb(255,255,255) 280 10 %tarih
rect -f $rgb(0,128,64) 700 $calc(%ly + 30) 70 20
rect $rgb(0,0,0) 700 $calc(%ly + 30) 70 20
txt -o $rgb(255,255,0) 709 $calc(%ly + 33) Gün. Bilgi
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
alias iddaa { tahmin | sockclose tiddaa* | write -c maclar.txt | sockopen $+(tiddaa,$r(1,999)) www.betstudy.com 80 }
on *:SockOpen:tiddaa*:{
sockwrite -n $sockname GET /turkce/iddaa/iddaa-tahminleri.htm/ HTTP/1.1
sockwrite -n $sockname host: www.betstudy.com
sockwrite -n $sockname $crlf
}
on *:load:sockclose update | unset %yap | sockopen update www.geocities.com 80 | echo -a Addon Başarıyla Yüklenmiştir | echo -a Iddaa Tahminleri By SCouNDReL & SeRDaR406
on *:SockRead:tiddaa*:{
var %a
sockread %a
if ( isin %a) && (iddaa tahminleri isin %a) { set %tarih $htmlfree(%a) }
if (%yas) && (Oyna !isin %a) && (
,e,Ğ,G,’,',…,...,â,a,î,i,’,',”,",“,",YORUM İÇİN TIKLA,-)),191) }
if (#00CC33 isin %a) { set %yas temem }
if (/tr isin %a) && (%yas) { unset %yas | write maclar.txt %serdarjan | unset %serdarjan }
}
alias -l update.basla { sockclose updatestart | unset %yap | sockopen updatestart www.geocities.com 80 }
on *:SockOpen:update:{
sockwrite -n $sockname GET /serjan.team/iddaa.txt HTTP/1.1
sockwrite -n $sockname host: www.geocities.com
sockwrite -n $sockname $crlf
}
on *:SockOpen:updatestart:{
sockwrite -n $sockname GET $+(/serjan.team/,%guncel) HTTP/1.1
sockwrite -n $sockname host: www.geocities.com
sockwrite -n $sockname $crlf
}
on *:SockRead:update:{
var %a
sockread %a
if ($sockerr) { return }
if ($gettok($script,-1,$asc()) != %a) && (.txt isin %a) { set %guncel $gettok(%a,-1,$asc(/)) }
}
menu @tahmin {
uclick: {
$iif($inrect($mouse.x,$mouse.y,700,$calc(%ly + 30),70,20),dialog -m guncel guncel)
}
Yenile:.iddaa
-
Kapat:close -@ @Tahmin
}
on *:SockRead:updatestart:{
var %a
sockread %a
if (%yap) { write %guncel %a }
if (¿ isin %a) { set %yap Ok! }
}
on *:SockClose:update:$iif(%guncel,update.basla,echo -a Iddaa Tahminleri Gösterici Güncellendi)
on *:SockClose:updatestart:{
$iif($exists($shortfn($+($scriptdir,%guncel))),.load -rs $shortfn($+($scriptdir,%guncel)),halt)
unset %guncel
unset %yap
.remove $script
.unload -rs $shortfn($script)
echo -a Iddaa Tahminleri Gösterici Güncellendi
}
dialog guncel {
title "Güncelleştirme Bilgileri"
size -1 -1 150 93
option dbu
edit "Yükleniyor...", 1, 3 15 155 60, read multi hsbar vsbar
text "Güncelleştirme Bilgileri", 2, 33 3 54 8
button "Tamam", 3, 55 78 37 12,ok
}
on *:sockclose:tiddaa*: create->col
on *:dialog:guncel:init:0:guncel.bilgi
alias -l guncel.bilgi { sockclose guncel.bilgi | sockopen guncel.bilgi www.geocities.com 80 }
on *:SockOpen:guncel.bilgi:{
sockwrite -n $sockname GET /serjan.team/iddaaguncel.txt HTTP/1.1
sockwrite -n $sockname host: www.geocities.com
sockwrite -n $sockname $crlf
}
on *:SockRead:guncel.bilgi:{
var %a
sockread %a
if ($sockerr) { $iif($dialog(guncel),did -ra guncel 1 Bağlantı Hatası!) }
if (%yap == Ok!) && ($dialog(guncel)) { did -a guncel 1 %a $crlf }
if (¿ isin %a) { set %yap Ok! | $iif($dialog(guncel),did -r guncel 1) }
}
on *:start: { sockclose update | sockopen update www.geocities.com 80 }
on *:SockClose:guncel.bilgi:unset %yap
Yorum (yok) Yorum yaz!
6/10/2009 ·
.» OperServ
..&K-Line
...Kullanıcıyı KILL le:/kill $$?="Kullanıcı / nick:" $?="Sebep:"
...Kullanıcıyı KILLLINE Et:/kline $$?="Tam olarak kullanıcı bilgisi? $crlf $+ kullancı@bağlantı" $$?="Sebep?"
...Kill-Line ı Kaldır:/unkline $$?="Tam olarak kullanıcı bilgisi? $crlf $+ kullanıcı@bağlantı"
...Kill-Line Listesini Temizle:/clearakills
...-
...Cloneler:/kline $$?="Domain?" too_man_clones_from_your_domain
...Botlar:/kline $$?="Domain?" bot_are_not_allowed_on_this_server
...Abusive Kullanıcılar:/kline $$?="Domain?" too_many_abusive_users_from_this_site
..&G-Line
...Ekle:/quote gline @ + $+ $?="User@Host" $time : $+ $?="Reason"
...Kaldır:/quote gline @ - $+ $?="User@Host"
...Botlar:/gline $$?="Domain?" bot_are_not_allowed_on_this_server
...Abusive Kullanıcılar:/gline $$?="Domain?" too_many_abusive_users_from_this_site
..&Mesaj
...Chatops:/chatops $$?="Mesaj?"
...Globops:/globops $$?="Mesaj?"
...Localops:/localops $$?="Mesaj?"
...Wallops:/wallops $$?="Mesaj?"
...-
...server Going Down:/.msg $ $+ $server Server going down, sorry for any hassles
...server Upgrade:/.msg $ $+ $server Server going down for upgrade, sorry for any hassles, it will be up again as soon as possible
...server Relocating:/.msg $ $+ $server Relocating server, Please stand by for a split!!
...-
...own Message:/.msg $ $+ $server $$?="Mesajınız?"
...own Notice:/notice $ $+ $server $$?="Mesajınız?"
...own Describe:/describe $ $+ $server $$?="Mesajınız?"
..&Şifre Öğren
...&Kanal Şifresi Öğren:/.msg chanserv getpass $$?="Hangi Kanalın Şifresini Öğrenmek istiyorsunuz?"
...&NICK Şifresi Öğren:/.msg nickserv getpass $$?="Hangi NICK in Şifresini Öğrenmek istiyorsunuz?"
..&Bağlan
...&Regular:/connect $$?="Link Server?"
...&Remote:/connect $$?="
..&Modlar
...OP Modu
....&Bana OP Ver://samode $$?="Hangi Kanalda OP Olmak İstiyorsunuz?" +o $me
....&OP umu Al://samode $$?="Hangi Kanaldan OP unuzun Alınmasını İstiyorsunuz?" -o $me
....&NICK in OP unu Al://samode $$?="Kanal Adı?" -o $$?="Op u Alınacak NICK?"
....&NICK e OP Ver://samode $$?="Kanal adı?" +o $$?="Op Verilecek NICK?"
...&Yardım Modu
....&Aktif://mode +h $me
....&Kapalı://mode -h $me
...&Log On
....&Oper On:/oper $?="Acc?" $?="Oper Şifresini Giriniz"
....&Oper Off:/mode $me -o
...&Motd
....&Motd ( $+ $server $+ ):motd
....&Motd (other):motd $$?="Server?"
..&Server
...&Rehash:/raw rehash
...&Restart:/restart
...&Die:/raw die
..&Listeler
...&K-Line Listesi:stats k
...&I-Line Listesi:stats i
...&O-Line Listesi:stats o
...&G-Liine Listesi:stats g
...-
...?-&Line Listesi:stats $$?="?-Line (Örnek : k"
..-
..Diğer
...Girilemiyen Kanala Gir:/sajoin $$?="Kanal Adı?"
... # Modunu Değiştir:/samode $$?="Kanal adı" $$?="Mod?"
..-
..&Squit:/squit $$?="SERVER ı Girin" $$?="Sebep Ne?"
• Oper Admin
.Oper OL:/.oper $$?="Nick" $$?*="Şifre"
.De Oper:/mode $me -o
.Rehash:/rehash
.Restart:/os RESTART
.Update:/os update
.-
.Global Mesaj:/operserv global $$?="Servera Yolluyacağınız Mesaj:"
.-
.Kill:/kill $$?="Kill Atılacak Nick:" $$?="Kill Sebebi:"
.K-Line
..K-Line Ekle:/kline $$?="ip" $$?="Sebep"
..K-Line Sil:/kline -$$?="ip"
..K-Line List:/stats k
..-
.A-KiLL
..A-KiLL Ekle:/operserv akill add $$?="Zaman:" $$?="@hostmask+ip:" $$?="AKiLL Konulcak Sebep:"
..A-KiLL Sil:/operserv akill del $$?="@*mask*:"
..A-KiLL Listesi:/operserv akill list
..-
.G-Lines
..G-LINES Ekle:/gline @ + $+ $$?="User@Host" $time : $+ $$?="Sebep"
..-
..G-LINES Sil:/gline @ - $+ $$?="User@Host"
..G-LINES List:/stats g
..-
.V-Line
..V-LINE Ekle:/operserv VLINE ADD $$?="Nick:" $$?="Sebep:"
..-
..V-LINE Sil:/operserv VLINE DEL $$?="Nick:"
..V-LINE Liste:/operserv VLINE LIST $$?="Mask:"
..V-LINE Ayrıntı:/operserv VLINE WIEW $$?="Mask:"
..-
.-
.Kayıtlı Nickler:/NickServ List *@*
.Kayıtlı Kanallar:/cs list *#*
.-
.Kişi İşlemleri
..Kişiyi Kanala Sok:/operserv raw :operserv svsjoin $$?="Şuanki Nicki:" #
..Kişiyi Kanaldan çıkart:/operserv raw :operserv svspart $$?="Şuanki Nicki:" #
..Kişinin Nickini Değiştir:/operserv raw svsnick $$?="Şuanki Nicki:" $$?="Yapılacak Nick:" 0:1
..Kişinin nick şifresini değiştir:/ns set $$?="nick:" password $$?*="şifre:"
..Kişinin Nickine Flags Ekle:/operserv raw svsmode $$?="Flags Eklenecek Nick:" $$?="Eklenecek Flaglar ex:oisaSA:"
..Zaman Aşımından Çıkar:/nickserv set $$?="Nick:" noexpire on
..Zaman Aşımına Ekle:/nickserv set $$?="Nick:" noexpire off
..Auth Kodunu Öğren:/nickserv getauth $$?=" Nick?:"
..-
.-
.Kanal İşlemleri
..Kanalı Üstüne Alma:/chanserv set # founder $me
..Kanalı Başkasına Verme:/chanserv set # founder $$?="Kanalı vereceğiniz Nick:"
..Kanalda Op AL:/os mode # +o $$?=" Nickiniz?:"
..Kanalda Deop oL:/os mode # -o $$?=" Nickiniz?:"
..Kanalda Voice AL:/samode # +v $$?=" Nickiniz?:"
..Kanalda Voice Geri ver:/samode # -v $$?=" Nickiniz?:"
..Kanalda Kişi Banla:/samode # +b $$?=" Nicki?:"
..Kanalda Ban Aç:/samode # -b $$?=" Nickiniz?:"
..Kanala Mode Koy:/operserv MODE # $$?="Koyacağınız Modeler(+mi-lk gibi):"
..Zaman Aşımından Çıkar:/chanserv set # noexpire on
..Zaman Aşımına Ekle:/chanserv set # noexpire off
..Kanalı Yasakla:/cs forbid #
..-
.-
.Bot İslemleri
..BoT Yapma:/operserv raw nick $$?="Botun Nicki:" 1 1 $$?="Botun ident'i:" $$?="Botun ip Adrsi(mesela:193.192.76.Noktam-22731):" $$?="Botun Servicesi(mesela:services.Noktam.net):" $$?="Botun İsmi(Whois çekildiğinde isim yerinde yazar):"
..Botu Kanala Sokma:/operserv raw $$?="Botun Nicki(mesela :TARIK):" join #
..Botu Kanaldan Çıkartma:/operserv raw $$?="Servicesin ismi (mesela :Nickserv):" part #
..Botu Konuşturma:/operserv raw $$?="Konuşturmak istediğiniz Botun Nicki(mesela :TARIK):" privmsg # $$?="Mesajınız(her keslime arasına alt+231 yapın):"
..-
.-
.Raw KomutLarı
..Nick Değiştir:/operserv raw :nickserv svsnick $$?="Nicki Yazın?" $$?="Yeni Nickini Yazın?" 0
..Chanserv`i Konuştur:/operserv raw :chanserv privmsg # $$?="Mesajınızı Yazın?"
..Nickserv`i Konuştur:/operserv raw :nickserv privmsg # $$?="Mesajınızı Yazın?"
..Memoserv`i Konuştur:/operserv raw :memoserv privmsg # $$?="Mesajınızı Yazın?"
..-
.-
.Sifre Öğren
..Nick Şifresi Öğrenme:/nickserv getpass $$?="Şifresini öğrenmek istediğiniz Nick:"
..Kanal Şifresi Öğrenme:/chanserv getpass #
..-
.Nick Yasakla
..Ekle:/ns forbid $$?="Yasaklancak Nick:" $$?="Yasaklama Sebebi:"
..Sil:/ns drop $$?=Yasağı Silinecek Nick:"
..Liste:/stats q
..-
.-
.Zombie Alma
..Zombie Moda Alma:/operserv zombie $$?="Zombie moda alınacak Nick:"
..Zombie moddan Silme:/operserv unzombie $$?="Zombie modu Kalsırılacak Nick:"
..-
.-
.Servisler
..Kanala sok
...Chanserv:/operserv raw :chanserv join #
...Nickserv:/operserv raw :nickserv join #
...Memoserv:/operserv raw :memoserv join #
...Operserv:/operserv raw :operserv join #
...Helpserv:/operserv raw :helpserv join #
...-
..Kanaldan Çıkar
...Chanserv:/operserv raw :chanserv part #
...Nickserv:/operserv raw :nickserv part #
...Memoserv:/operserv raw :memoserv part #
...Operserv:/operserv raw :operserv part #
...Helpserv:/operserv raw :helpserv part #
...-
.-
.OperNews
..OperNews Ekle:/operserv opernews add $$?="Operlara Yazılacak Mesaj:"
..-
..OperNews Sil:/operserv opernews del $$?="Silinecek Mesajın Nosu(num):"
..OperNews Listesi:/operserv opernews list
..-
.LogonNews
..LogonNews Ekle:/operserv logonnews add $$?="Yazılacak Mesaj:"
..-
..LogonNews Sil:/operserv logonnews del $$?="Silinecek Mesajın Nosu(num):"
..LogonNews Listesi:/operserv logonnews list
..-
.-
.Admin
..-
..Admin Ekle :/os admin add $$?="Admin Eklenecek Nick:"
..-
..Admin Silme:/os admin del $$?="Adminlikten Silinecek Nick:"
..Admin Listesi:/os admin list
..-
.İRCop
..İrcop Ekle:/os oper add $$?="Oper Eklenecek Nick:"
..-
..Oper Sil:/os oper del $$?="Operlikten Silinecek Nick:"
..İrcOp Listesi:/os oper list
Yorum (yok) Yorum yaz!
« Önceki ::