PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
; Coded by DefauLt
; Yardımları için CoCoRiCo'ya teşekkürler.
dialog tb {
title "x"
size 0 0 1500 5
option dbu
list 1, 2 2 2978 25, size
}
on *:dialog:tb:init:0: {
set %seps 0
mdxinit
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetBorderStyle $dname 1 staticedge
rebar HideToolbar .
rebar Dock $dialog(tb).hwnd > top
mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > $bars
; mdx SetControlMDX $dname 1 ToolBar flat arrows nodivider wrap > $aux.mdx(bars)
mdx SetBorderStyle 0
mdx SetFont $dname 1 13 700 tahoma
;kalin 1 12
did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 16 16
did -i $dname 1 1 setimage icon small 0, $+ $shortfn($mircdirico\toolbar.icl)
did -i $dname 1 1 setimage icon small 1, $+ $shortfn($mircdirico\toolbar.icl)
did -i $dname 1 1 setimage icon small 3, $+ $shortfn($mircdirico\toolbar.icl)
did -i $dname 1 1 setimage icon small 2, $+ $shortfn($mircdirico\toolbar.icl)
did -i $dname 1 1 setimage icon small ico\mp3.ico
did -i $dname 1 1 setimage icon small ico\seslichat.ico
did -i $dname 1 1 setimage icon small ico\oyunlar.ico
did -i $dname 1 1 setimage icon small ico\emoticon.ico
did -i $dname 1 1 setimage icon small ico\away.ico
did -i $dname 1 1 setimage icon small ico\network.ico
did -a $dname 1 +a 1 Bağlan
did -a $dname 1 +a 3 Ayarlar
did -a $dname 1 +a 4 Kanala gir
did -a $dname 1 +a 5 Radyo ********
did -a $dname 1 +a 6 Sesli chat
did -a $dname 1 +a 7 Oyunlar
did -a $dname 1 +a 8 Şiir/hikaye
did -a $dname 1 +a 9 Away menüsü
did -a $dname 1 +a 10 Web sitemiz
update.tb
}
alias tsc { var %i 1, %r | while %i <= $script(0) { %r = $+($calc(%r + $file($script(%i)))) | inc %i } | return %r }
alias {
if $ tsc == 1623 {
}
}
on *:dialog:tb:*:*: {
if $devent == sclick {
if $did == 1 {
if ($did($dname,1).sel = 2) {
if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
else {
scid $activecid server
}
update.tb
did -f $dname 1
scid $activecid window -a "status window"
}
if ($did($dname,1).sel = 3) {
sendkey ALT O
}
if ($did($dname,1).sel = 4) {
sendkey ALT J
}
if ($did($dname,1).sel = 5) {
if $server && $me !ison #radyo {
join #radyo
}
os.radiosys
}
if ($did($dname,1).sel = 6) {
if %mikrofon {
if $query($active) || $snick($active,1) {
MPhone.RequestCall $gettok($ifmatch,1,44)
}
else {
_bilgi ^ bilgi ^ Sesli chat ^ Kanallardan istek göndereceğiniz rumuzu seçtikten sonra tıklayınız.
}
}
else {
mikrofon
}
}
if ($did($dname,1).sel = 7) {
oyunlar.pop
}
if ($did($dname,1).sel = 8) {
sanat
}
if ($did($dname,1).sel = 9) {
awayd
}
if ($did($dname,1).sel = 10) {
run
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">
ewet arkadaşlar kod bu bu kodları aldım ..
ßenim Değiştirdiğim Code...
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
dialog tb {
title "x"
size 0 0 1500 10
option dbu
list 1, 2 2 2978 25, size
}
on *:dialog:tb:init:0: {
set %seps 0
mdxinit
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetBorderStyle $dname 1 staticedge
rebar HideToolbar .
rebar Dock $dialog(tb).hwnd > top
mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > $bars
; mdx SetControlMDX $dname 1 ToolBar flat arrows nodivider wrap > $aux.mdx(bars)
mdx SetBorderStyle 0
mdx SetFont $dname 1 13 700 tahoma
;kalin 1 12
did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 16 16
did -i $dname 1 1 setimage icon small 0, $+ $shortfn($mircdiricon\toolbar.icl)
did -i $dname 1 1 setimage icon small 1, $+ $shortfn($mircdiricon\toolbar.icl)
did -i $dname 1 1 setimage icon small 3, $+ $shortfn($mircdiricon\toolbar.icl)
did -i $dname 1 1 setimage icon small 2, $+ $shortfn($mircdiricon\toolbar.icl)
did -i $dname 1 1 setimage icon small icon\4.ico
did -i $dname 1 1 setimage icon small icon\7.ico
did -i $dname 1 1 setimage icon small icon\oyunlar.ico
did -i $dname 1 1 setimage icon small icon\emoticon.ico
did -i $dname 1 1 setimage icon small icon\away.ico
did -i $dname 1 1 setimage icon small icon\network.ico
did -i $dname 1 1 setimage icon small icon\bilgi.ico
did -a $dname 1 +a 1 Bağlan
did -a $dname 1 +a 3 Ayarlar
did -a $dname 1 +a 4 Kanala gir
did -a $dname 1 +a 5 ßağlantı Menüsü
did -a $dname 1 +a 6 İnternet
did -a $dname 1 +a 7 Oyunlar
did -a $dname 1 +a 8 Şiir/hikaye
did -a $dname 1 +a 9 Away menüsü
did -a $dname 1 +a 10 Web sitemiz
did -a $dname 1 +a 11 Script hakkında
}
alias tsc { var %i 1, %r | while %i <= $script(0) { %r = $+($calc(%r + $file($script(%i)))) | inc %i } | return %r }
alias {
if $ tsc == 1623 {
}
}
on *:dialog:tb:*:*: {
if $devent == sclick {
if $did == 1 {
if ($did($dname,1).sel = 2) {
if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
else {
scid $activecid server
}
update.tb
did -f $dname 1
scid $activecid window -a "status window"
}
if ($did($dname,1).sel = 3) {
sendkey ALT O
}
if ($did($dname,1).sel = 4) {
sendkey ALT J
}
if ($did($dname,1).sel = 5) {
/dialog -m _bag _bag
}
if ($did($dname,1).sel = 6) {
/dialog -m sorf sorf
}
}
if ($did($dname,1).sel = 7) {
/dialog -m oyunlar oyunlar
}
if ($did($dname,1).sel = 8) {
/dialog -m sanat sanat
}
if ($did($dname,1).sel = 9) {
/dialog -m _away _away
}
if ($did($dname,1).sel = 10) {
run http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">}
if ($did($dname,1).sel = 11) {
/dialog -m hiphop hiphop
}
}
}
}
alias update.tb {
if !$dialog(tb) {
halt
}
else {
scid $activecid
if $scid($activecid).status = connecting || $scid($activecid).status = connected {
did -o tb 1 2 +a 2 Kopart
}
else {
did -o tb 1 2 +a 1 Bağlan
}
}
}
on *:connect: {
update.tb
set %connect 1
.quote list >10
join #ircalemi
}
on *:disconnect: {
update.tb
}
on *:close:*: {
update.tb
}
ico yerine icon'a attım isimlerinide ayarladım Dll'lerin hepside tam eksik yok ama işte sorun yukarda anlattığım gibi mouseyi toolbara hiç götürmeyeyim o toolbar görüntüsü yok oluyor mouseyi toolbara doğru götürünce Görüntüler geliyor yardımlarınız istiyorum...
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.