| StanteaR | 09 Haziran 2009 09:36 |
Cevap: mırce şiir vsvs eklemek
Forumda Arama Yaptım Senın Icın Bır Diyalog Buldum.
Bu Kodu Remote Bölümüne Eklıyorsun Tabı Bu Addonun Calısması Icın Mdx.dll si Gerkıyor Eger Scriptinde Dll klasorunun Icınde Mdx.dll Yoksa Forumdan Aratıp Bulabılırsın.
Dll klasoru Olup Icıne Mdx.dll sini Koyman Gerekır PHP- Kodu:
alias bilgi {
echo -at 0,6 Bilgi 0,4 »» 12 $1-
}
alias ascii {
_dialog ascii
}
dialog ascii {
title "ASCII Kodları"
size -1 -1 86 131
option dbu
list 3, 5 6 75 105, size
box "", 4, 2 0 82 114
button "Kapat", 5, 2 117 38 12, ok
}
on *:dialog:ascii:*:*: {
if $devent == init {
mdxinit
mdx SetControlMDX $dname 3 ListView report single grid showsel nosortheader nolabelwrap > $views
did -i $dname 3 1 headerdims 63 50
did -i $dname 3 1 headertext Karakter $chr(9) Kod
kalin 3 12
var %i 33
while %i <= 255 {
if $chr(%i) {
did -a $dname 3 $chr(%i) $chr(9) %i
}
inc %i
}
did -c $dname 3 1 1
bilgi Kopyalamak istediğiniz karakterin üzerine çift tıklayınız.
}
if $devent == dclick {
if $did == 3 {
var %k $gettok($gettok($did($dname,3).seltext,4-,48),1,9)
if %k {
clipboard %k
bilgi Karakter kopyalandı:4 $gettok($gettok($did($dname,3).seltext,4-,48),1,9)
}
}
}
}
;;
alias sanat {
if $1 {
set %sanat $1
}
/dialog -m sanat sanat
}
dialog sanat {
title "Şiir/hikaye/komik/özdeyişler"
size -1 -1 438 301
option pixels
button "Kapat", 3, 2 270 76 24, cancel
list 1, 3 9 156 214, size extsel
tab "Tab 1", 5, -50 -50 600 400
edit "", 2, 161 9 275 214, tab 5 read multi return autovs vsbar
combo 4, 3 226 155 85, tab 5 size drop
edit "", 6, 251 228 100 21, tab 5
button "Gönder", 7, 360 226 76 24, tab 5
text "Rumuz/#kanal:", 8, 174 232 72 16, tab 5
text "* Göndermek istediğiniz rumuz/#kanalı yazın ve gönder butonuna tıklayın. Seçtiğiniz eser otomatikman gönderilecektir.", 9, 183 255 252 44, tab 5
tab "Tab 2", 12
box "Quit ve Part Mesajları Düzenleme", 13, 171 3 336 282, tab 12
combo 14, 177 33 239 241, tab 12 size hsbar vsbar
button "Ekle", 15, 425 32 76 24, tab 12
button "Çıkar", 16, 425 65 76 24, tab 12
}
on *:dialog:sanat:*:*: {
if $devent == init {
mdxinit
mdx SetControlMDX $dname 1 Treeview fullrowselect singleexpand nohscroll > $views
mdx SetColor $dname 2 text $rgb(255,255,255)
mdx SetColor $dname 2 textbg $rgb(89,162,166)
mdx SetColor $dname 2 background $rgb(89,162,166)
kalin 1,2 12
did -i $dname 1 1 setcolor text $rgb(255,255,255)
did -i $dname 1 1 setcolor line $rgb(186,218,7)
did -i $dname 1 1 setcolor bkg $rgb(99,99,156)
didtok $dname 4 44 Şiirler,Hikayeler,Komikler,Özdeyişler
did -c $dname 4 1
did -a $dname 2 Soldaki listeden herhangi bir eser seçip okuyabilir, alt bölümdeki kutucuğa gönderilecek rumuzu/#kanalı yazıp gönderebilirsiniz.
if %sanat {
did -a $dname 6 $ifmatch
}
else {
if $active ischan || $query($active) {
did -a $dname 6 $ifmatch
}
}
sanat.yukle
did -f $dname 6
}
if $devent == sclick {
if $did == 1 && slclick select * iswm $did($did,1) {
set %sanat.y $right($gettok($did($dname,1,$gettok($did($did,1),4-,32)),-1,48),-1)
if $did(sanat,4).sel == 1 {
set %sanat.dosya siir
}
if $did(sanat,4).sel == 2 {
set %sanat.dosya hikaye
}
if $did(sanat,4).sel == 3 {
set %sanat.dosya komik
}
if $did(sanat,4).sel == 4 {
set %sanat.dosya ozdeyis
}
if $exists($shortfn($+(texts\,%sanat.dosya,\,%sanat.y,.txt))) {
.loadbuf 0 -oipr $dname 2 $shortfn($+(texts\,%sanat.dosya,\,%sanat.y,.txt))
}
}
if $did == 4 {
sanat.yukle
}
if $did == 7 {
if %sanat.dosya && %sanat.y {
if $did($dname,6) {
var %im $did($dname,6)
if %im !ischan && !$query(%im) {
query %im
}
scid $activecid play %im $shortfn($+(texts\,%sanat.dosya,\,%sanat.y,.txt)) 2000
bilgi %sanat.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor...
}
else {
var %im $$?"Gönderilecek rumuzu veya #kanal ismini yazınız:"
if %im {
did -a $dname 6 %im
if %im !ischan && !$query(%im) {
query %im
}
scid $activecid play %im $shortfn($+(texts\,%sanat.dosya,\,%sanat.y,.txt)) 2000
bilgi %sanat.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor...
}
}
}
else {
bilgi Göndermek için herhangi bir şiir/hikaye/komik/özdeyiş seçmediniz.
}
}
}
if $devent == close {
unset %sanat*
}
}
alias sanat.yukle {
did -r sanat 1,2
did -a sanat 2 Soldaki listeden herhangi bir eser seçip okuyabilir, alt bölümdeki kutucuğa gönderilecek rumuzu/#kanalı yazıp gönderebilirsiniz.
if $did(sanat,4).sel == 1 {
set %sanat.dosya siir
}
if $did(sanat,4).sel == 2 {
set %sanat.dosya hikaye
}
if $did(sanat,4).sel == 3 {
set %sanat.dosya komik
}
if $did(sanat,4).sel == 4 {
set %sanat.dosya ozdeyis
}
var %i 1
while %i <= $findfile($+(texts\,%sanat.dosya),*.txt,0) {
did -a sanat 1 $left($nopath($findfile($+(texts\,%sanat.dosya),*.txt,%i)),-4)
inc %i 1
}
Bu Kodu Remote ye Ekledıkden Sonra Scriptin Alias Kısmına Sunları Eklıyoruz. PHP- Kodu:
mdxinit {
mdx SetMircVersion $version
mdx MarkDialog $dname
}
kalin {
mdx SetFont $dname $1 $2 800 tahoma
}
mdx { return $dll(DLL\mdx.dll,$1,$2-)
Ve Scriptin Icınde Texts Dosyasının Icıne Istedıklerını Ekleyebılırsın.
Ekran Görüntüsü. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
