PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:start: {
_toolbar
dialog -m kmenu kmenu
r
}
alias r { dialog -m r r }
alias _toolbar { dialog -m ftoolbar ftoolbar }
alias html { return dll\nhtmln_2.95.dll }
alias flash.mdx {
if ($isid) { return $dll( dll\mdx.dll,$1,$2) }
else { dll " $+ dll\mdx.dll" $1- }
alias msn.dialogs { return dll\dialog.mdx }
}
alias demid {
if ($isid) return $dll("dll\demid.dll",$1,$2-)
else dll "dll\demid.dll" $1-
}
alias flash.dialogs { return dll\dialog.mdx }
alias wnd { return dll\Wnd.dll }
dialog ftoolbar {
title ""
size 150 150 642 26
option dbu
text "", 1, -7 -9 900 35
button "", 999, 0 0 0 0, hide
}
on 1:dialog:ftoolbar:init:*: {
flash.mdx MarkDialog $dname
flash.mdx SetDialog $dname style border tool
flash.mdx SetControlMDX 999 positioner noclose > $flash.dialogs
var %r = msn. $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(0,9)
did -ra $dname 1 %r
set %ftoolbar.panel.hwnd $dll(nhtmln_2.95.dll,find,%r)
dll nhtmln_2.95.dll attach %ftoolbar.panel.hwnd
dll nhtmln_2.95.dll navigate $scriptdirtb\ustbar.htm
dll nhtmln_2.95.dll handler html.handler
dll dll\rebar.dll Dock $dialog(ftoolbar).hwnd > top
}
alias fixit {
dll nhtmln_2.95.dll select %ftoolbar.panel.hwnd
dll nhtmln_2.95.dll navigate $scriptdirtb\ustbar.htm
dll nhtmln_2.95.dll handler html.handler
}
alias html.handler {
if ($2 == navigate_begin) {
if (mirc:* iswm $3-) {
$eval($mid($3-,6),2)
return S_CANCEL
}
}
return S_OK
}
alias bagla { server }
alias kes { disconnect }
alias html.handler {
if ($2 == navigate_begin) {
if (mirc:* iswm $3-) {
$eval($mid($3-,6),2)
return S_CANCEL
}
}
return S_OK
}
dialog kmenu {
title ""
size 150 150 112 240
option dbu
text "", 1, -5 -20 110 247
button "", 999, 0 0 0 0, hide
}
on 1:dialog:kmenu:init:*: {
flash.mdx MarkDialog $dname
flash.mdx SetDialog $dname style border tool
flash.mdx SetControlMDX 999 positioner noclose > $flash.dialogs
dialog -s $dname $calc($window($active).w - 220) $calc($window($active).h - $calc($window($active).h - 10)) 185 320
demid SetTopic $dname
demid DlgParent $dname STATIC $active
var %r = msn. $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(0,9)
did -ra $dname 1 %r
set %kmenu.panel.hwnd $dll(nhtmln_2.95.dll,find,%r)
dll nhtmln_2.95.dll attach %kmenu.panel.hwnd
dll nhtmln_2.95.dll navigate $scriptdirtb\kolay\kmenu.htm
dll nhtmln_2.95.dll handler html.handler
}
alias fixit {
dll nhtmln_2.95.dll select %kmenu.panel.hwnd
dll nhtmln_2.95.dll navigate $scriptdirtb\kolay\kmenu.htm
dll nhtmln_2.95.dll handler html.handler
}
alias html.handler {
if ($2 == navigate_begin) {
if (mirc:* iswm $3-) {
$eval($mid($3-,6),2)
return S_CANCEL
}
}
return S_OK
}
dialog r {
title ""
size 0 94 640 0
option dbu
text "", 1, 0 0 639 14
button "", 999, 0 0 0 0, hide
}
on 1:dialog:r:init:*: {
flash.mdx MarkDialog $dname
flash.mdx SetDialog $dname style border tool
flash.mdx SetControlMDX 999 positioner noclose > $flash.dialogs
flash.mdx SetColor $dname 1 textbg $rgb(0,0,0)
var %r = msn. $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(0,9)
did -ra $dname 1 %r
set %rtoolbar.panel.hwnd $dll(nhtmln_2.95.dll,find,%r)
dll nhtmln_2.95.dll attach %rtoolbar.panel.hwnd
dll nhtmln_2.95.dll navigate $scriptdirmedia\index.html
dll nhtmln_2.95.dll handler html.handler
}