TurKDaL.NeT

Kullanımı:

!invite nick

on @*:TEXT:!invite *:#: {
if ($2 ison $chan) { NOTICE $nick $2 is already on $chan $+ . | return }
set %invite.chan $chan
set %invite.nick $gettok($2,1,44)
set %invite.msg You has been invited on $chan by $nick to /join -i ( $+ $iif($3-,$3-,no message given) $+ ).
set %invite.by $nick
raw INVITE %invite.nick $chan
}
raw 341:$($me %invite.nick %invite.chan): {
raw NOTICE %invite.nick : %invite.msg
raw NOTICE %invite.by : Succefully invited $2 to join $3 $+ .
unset %invite.*
}
raw 401:*: {
if (%invite.nick) {
if ($3-5 === No such nick) { raw NOTICE %invite.by : $2 $3-5 }
elseif ($3-5 === Target left QuakeNet.) { raw NOTICE %invite.by : $3- }
unset %invite.*
}
}

/*
================
Şarkı Sözü Arama addonu

Çalıştırmak için: /ssoz
================
*/
dialog ssoz {
title “Şarkı Sözü Arama ”
size -1 -1 122 159
option dbu
icon $shortfn($scriptdirmusic.ico), 0
box “”, 1, 3 1 116 43
text “Sanatçının adını girin:”, 2, 7 7 51 8
edit “”, 3, 6 15 109 10, autohs
button “Ara”, 4, 7 27 37 12, disable
button “Kapat”, 5, 77 28 37 12, cancel
text “Bulunanlar:”, 6, 3 46 27 8
list 7, 2 54 118 88, size vsbar
button “Sözleri Al”, 8, 83 144 37 12
text “Şarkının Sözleri:”, 9, 126 4 38 8
edit “”, 10, 125 12 140 144, read multi vsbar
}
alias ssoz $iif(!$dialog(ssoz),dialog -m ssoz ssoz)
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x } }
alias -l sarki {
write -c ssoz.txt
dialog -s ssoz $dialog(ssoz).x $dialog(ssoz).y 245 318
did -b ssoz 8
did -ra ssoz 7 Aranıyor.Bekleyin…
set %sarki $+(arama=,$replace($1-,$chr(32),+),&,image22=Ara)
sockclose sgn
sockopen sgn www.yehhu.com 80
}
alias -l soz-al {
set %sozad /sarki-sozu.asp?islem=yolla&id= $+ $1
dialog -s $dname $dialog($dname).x $dialog($dname).y 535 318
did -ra $dname 10 Sözler alınıyor.Bekleyin…
if ($sock(soz)) sockclose soz | sockopen soz www.yehhu.com 80
}
on *:sockopen:sgn: {
if ($sockerr) { echo -a Bağlantı Yok | return }
else {
var %s = sockwrite -n $sockname
%s POST /arama.asp HTTP/1.1
%s Content-Type: application/x-www-form-urlencoded; charset=”utf-8″
%s Content-Length: $calc($len(%sarki) + 1)
%s Host: www.yehhu.com
%s
%s %sarki
}
}
on *:sockread:sgn: {
sockread %sgn
if (Şarkıcı isin %sgn) && ($dialog(ssoz)) did -r ssoz 7
if (sarki-sozu.asp?islem isin %sgn) {
var %slink = $gettok($gettok(%sgn,13-,32),2,34)
write ssoz.txt $gettok(%slink,-2,61)
$iif($dialog(ssoz),did -a ssoz 7 $replace($gettok(%slink,-1,61), ,-))
}
}
on *:sockclose:sgn:{
if (
isin %sgn) && ($dialog(ssoz)) did -a ssoz 7 Aradığınız kelime ile ilgili kayıt bulunamadı.
}
on *:sockopen:soz: {
if ($sockerr) { echo -a Bağlantı Yok! | return }
else {
var %m = sockwrite -n $sockname
%m GET %sozad HTTP/1.1
%m Host: www.yehhu.com
%m $crlf
}
}
on *:sockread:soz: {
sockread %sozb
if (*Şarkı Sözü :* iswm %sozb) { write -c ssozs.txt | write ssozs.txt $remove($htmlfree(%sozb),Şarkı Sözü | sockclose soz2 | sockrename soz soz2 }
}
on *:sockread:soz2: {
sockread %sozn
$iif(%sozn,write ssozs.txt $remove($left(%sozn,900),

,

,

,

,

))
if ($gettok(%sozn,1,32) ==

) && ($dialog(ssoz)) { did -r ssoz 10 | loadbuf -o ssoz 10 ssozs.txt | .remove ssozs.txt | sockclose soz2 }
}
on *:dialog:ssoz:edit:3: $iif($did(3),did -e $dname 4,did -b $dname 4)
on *:dialog:ssoz:sclick:*: {
$iif($did == 4,sarki $did(3))
if ($did == 7) && ($did(7).seltext) did -e $dname 8
$iif($did == 8,soz-al $read(ssoz.txt,$did(7).sel))
}
on *:load: { echo -a Şarkı sözü arama addonu yüklendi. | echo -a Açmak için 4/ssoz yazın. }
on *:unload: { $iif($isfile(ssoz.txt),.remove ssoz.txt) | echo -a Şarkı sözü arama addonu kaldırıldı. }
menu menubar,status {
Şarkı Sözü Arama
.Aç : ssoz
.-
.Addonu kaldır: .unload -rs $shortfn($script)
}

===============
Addonu yüklemek
===============
Komut:
/load -rs ssoza.txt yazın

Silmek İçin:
/unload -rs ssoza.txt yazın

ADDON BİTER