IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

ON *:START: {
.timertitletoc off
title [ $server $time ] Boş geçen zaman: $iif($server,$idle) saniye
.timertitle 0 1 titletime
.splay /sounds/trivia.wav
dialog -m toolbar toolbar
.remote on
inc %session
echo -s 0,1Son Güncelleme Tarihi: 0,4 27.12.2006
echo -s 4« Trivia Bot v6.0 » 12Siz Şu ana Kadar « Trivia Botu » %session 12 kez açtınız
echo -s 4« Trivia Bot v6.0 » 12« Trivia Bot v6.0 » 12By 4McKruGer 12©2006
echo -s 4« Trivia Bot v6.0 » 1212Download : 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
echo -s 4« Trivia Bot v6.0 » 1212Forum : 4http://forum.tmirc.com
echo -s 4« Trivia Bot v6.0 » 12Her türlü görüş ve önerileriniz için
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
12mail adresine mail atınız..
echo -s 4« Trivia Bot v6.0 » 1212Bize 4TTnet => 4#Sad ve #Cake 12Kanallarında ulaşabilirsiniz
echo -s 4« Trivia Bot v6.0 » 12Lütfen Oyuna başlamadan önce 4F1 12tuşuna basarak Trivia Bot hakkında Bilgi ediniz.
echo -s 4« Trivia Bot v6.0 » 12F1 Trivia Botu nasıl çalıştıracağınızı size anlatan yardım dosyasıdır.
echo -s 4« Trivia Bot v6.0 » 12F6 TriviaBot Genel Ayarlar menüsünü açar.
echo -s 4« Trivia Bot v6.0 » 5Bütün cevaplarınızda türkçe karakterleride kullanarak yazınız. Botta Türkçe , İngilizce Karakter farkettiğinden dolayı Cevaplarda türkçe karakter kullanmaya özen gösteriniz. Cevaplarda büyük harf yazarakda kullanabilirsiniz. Ama ingilizcede büyük, küçük harf sorunu olduğunu unutmayınız. Bu Yüzden cevaplarınızı küçük harf kullanarak veriniz ve Oyuncularıda cevaplarda küçük harf kullanması konusunda uyarınız!
if ( %telnet == on ) { {
}
Ctcps
ctcp 1:VERSION:{
/ctcpreply $nick VERSION %b&rversion 12« Trivia Bot v6.0 » 12By 4McKruGer 12©2006 12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on 500:join:#:/mode $chan +o $nick | .notice $nick 12Hoşgeldiniz Sayın Sahip. | .notice $nick Ben Hazırım! | halt
on 200:join:#:/mode $chan +v $nick | .notice $nick 12Hoşgeldiniz Sayın Yardımcım. | .notice $nick Ben Hazırım! | halt
on 100:join:#:/mode $chan +v $nick | .notice $nick 12Hoşgeldiniz Sayın Helper. | .notice $nick Ben Hazırım! | halt
}
}
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
alias rebar { dll DLL\rebar.dll $$1- }
alias bars { return DLL\bars.mdx }
alias views { return dll\views.mdx }
alias Temadene { echo -a Temam: $iif($temabul,XP Teması,Klasik Windows Teması) }
alias Temabul { .comreg dll/Tema.dll | .comopen toolbar Tema.buL | var %komut = $com(toolbar,TemaBul,1) | var %komut = $com(toolbar).result | .comclose toolbar | .comreg -u dll/Tema.dll | return %komut }
on *:connect: {
update.toolbar
}
on *:disconnect: {
update.toolbar
}
on *:close:*: {
update.toolbar
}
alias saat { if ($dialog(toolbar)) { did -a toolbar $1 $time } }
alias update.toolbar {
if (!$dialog(toolbar)) { halt }
else {
scid $activecid
if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {
did -o toolbar 1 3 +a 2 $chr(32) Bağlantıyı Kes $chr(9) $+ Bağlantıyı Kes
}
else {
did -o toolbar 1 3 +a 1 $chr(32) Server Bağlan $chr(9) $+ Servere Bağlan
}
}
}

dialog toolbar {
title "x"
size 0 3 400 $iif($temabul,18,21)
option dbu
icon 3, -1 -1 520 35, $mircdiricon/trivia2.png
list 1, 168 4 230 15, size
text "", 11, 464 9 45 16, center
text "", 12, 467 13 39 12, center

}
on *:dialog:toolbar:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style border
mdx SetDialog $dname bgcolor $rgb(236,233,216)
mdx SetFont $dname 1 Turkish 14 800 Cyrillic
mdx SetColor 1,11,12 background $rgb(236,233,216)
mdx SetColor 1,12 text $rgb(0,0,0)
mdx SetColor 11,12 textbg $rgb(236,233,216)
mdx SetFont $dname 12 +b 20 600 ANSI
.timersaat 0 1 saat 12

rebar HideToolbar .
rebar Dock $dialog(toolbar).hwnd > top
mdx SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider > $bars
mdx SetBorderStyle 1

did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 34 34
did -i $dname 1 1 setimage icon large icon\connect.ico
did -i $dname 1 1 setimage icon large icon\disconnect.ico
did -i $dname 1 1 setimage icon large icon\Trivia.ico
did -i $dname 1 1 setimage icon large icon\kanal.ico
did -i $dname 1 1 setimage icon large icon\ayarlar2.ico
did -i $dname 1 1 setimage icon large icon\yardim.ico
did -i $dname 1 1 setimage icon large icon\info.ico
did -a $dname 1 +a -
did -a $dname 1 +a 1 Server Bağlan $chr(9) $+ Server Bağlan
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Bağlantı $chr(9) $+ Bağlantı Diyalogunu Gösterir.
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) Kanala Giriş $chr(9) $+ Kanala Giriş Diyalogunu Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 5 $chr(32) Ayarlar $chr(9) $+ Trivia Genel Ayarları Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) Yardım $chr(9) $+ Triviabot Yardım Dosyasını Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) Bilgi $chr(9) $+ Script ve Yapımcı Hakkında Bilgi Gösterir.
did -a $dname 1 +a -
}
on *:dialog:toolbar:sclick:*:{
if $did == 1 {
if ($did($dname,1).sel = 3) {
if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
else {
scid $activecid server
}
update.toolbar
did -f $dname 1
scid $activecid window -a "status window"
}
if ($did($dname,1).sel = 5) {
/dll dll\popread.dll mn 159
}
if ($did($dname,1).sel = 7) {
/dll dll\popread.dll mn 142
}
if ($did($dname,1).sel = 9) {
/dialog -m qset qset
}
if ($did($dname,1).sel = 11) {
/run triviahelp.chm
}
if ($did($dname,1).sel = 13) {
/dialog -m hakkinda hakkinda
}
}
}
alias Hakkinda { if ($dialog(Hakkinda) == $null) dialog -m Hakkinda Hakkinda }
dialog Hakkinda {
title " « Trivia Bot v6.0 » / Hakkında! "
size -1 -1 187 140
option dbu
icon icon/info.ico, 0
text "İsim :", 5, 10 40 50 10
text "Trivia Bot", 12, 60 40 130 10
text "Versiyon :", 6, 10 53 50 10
text "v6.0", 13, 60 53 130 10
text "Yapılış Tarihi :", 7, 10 66 50 10
text "27.12.2006", 14, 60 66 130 10
text "Yapımcı :", 8, 10 79 50 10
text "McKruGer", 15, 60 79 130 10
text "İletişim :", 9, 10 92 50 10
text "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 16, 60 92 130 10
text "Web :", 10, 10 105 50 10
link [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], 11, 60 105 100 10
icon 3, 5 2 177 36, icon\mc.jpg, 0
box "",89, 4 1 179 118
list 88, 70 123 46 30, ok cancel

}
on *:dialog:hakkinda:init:*:{
dll dll/mdx.dll SetMircVersion $version
dll dll/mdx.dll MarkDialog $dname
dll dll/mdx.dll SetBorderStyle $dname 5,184,186,187
dll dll/mdx.dll SetControlMDX $dname 185 toolbar flat list nodivider arrows > $bars
dll dll/mdx.dll SetFont $dname 186 19 600 Tahoma
dll dll/mdx.dll SetFont $dname 187 16 600 Tahoma
dll dll/mdx.dll SetFont $dname 5,6,7,8,9,10 13 600 Tahoma
dll dll/mdx.dll SetFont $dname 12,13,14,15,16 14 600 Arial
dll dll/mdx.dll SetColor $dname 5,6,7,8,9,10,187 text $rgb(0,14,255)
mdx SetBorderStyle 88 windowedge
mdx SetControlMDX $dname 88 toolbar arrows nodivider list noresize flat > $bars
mdx SetControlMDX $dname 88 toolbar nodivider list noresize > $bars noresize flat > $bars
mdx SetFont $dname 88 Turkish 20 800 Cyrillic
did -i $dname 88 1 bmpsize 22 22
did -i $dname 88 1 setimage +nh icon small icon\tamam.ico
did -a $dname 88 +b 1 Tamam

}
on *:dialog:hakkinda:sclick:11:/run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
on *:dialog:hakkinda:sclick:88:/dialog -x hakkinda hakkinda

Silip Tekrar yukledım Setuptan Direk Actım Aynı Sorun Ortaya Cıktı.