mIRC Home    About    Download    Register    News    Help

Print Thread
A
Aurora801
Aurora801
A
Okay. I'm making my mIRC completely custom, everything from switchbars to notify bars, themes, everything, is custom. I'm currently working on the custom Toolbar I'm working on. The few commands I need, and for some reason can't find, are the aliases to open Script Editor, and the Help/About dialogs. I'm also going to add a DCC window dropdown list.
My inqueries:
DCC-
1.) For some reason my DCC isn't setup correctly, any help?
2.) How would I tell (Via Dalog init and events) to show all the DCC's in a Dropdown/List box?
Tools-
1.) The script editor: What is the command? :| Is it something simple like /scripts or will I need to make a local alias that will do Alit+r (If so, what would I put? Would it be "alias -l Scripts $altr" or something?)
2.) The about: I'm pretty sure it's just /about but I'm not sure.
3.) With connecting, I've found that just doing /server will work, But how do I tell it to cancel connecting? :|
Dialogs/Docking-
1.) I've got 4 to 5 dialogs docked currently, the "BarSys" which will be the toolbar system, a custom switchbar (Left screen), a notify list (Right screen) and a wallops bar (Bottom screen.), but with the Wallops bar I need it to go further the the right so that the switchbar will drop further, allowed the Barsys more room. I currently chat on 6 servers, one of which being EveryWhereChat, and people like to P2P me even when I'm marked away, so my switchbar fills quickly, and it is annoying that I can't see all the channels and servers when they are active, so I want to lower the switchbar to allow more room, without crunching it. The wallops script is already about 6 scripts behind the Switchbar, but when it docks it still pushes the switchbar back up, will making the Barsys bigger fix this? (The Wallops bar's size has already been altered to allow the space to be compensated.)
2.) My notify bar only takes up about 3/5's the screen.. Is there a way to have one on top of the other, like the top and bottom bars, but on the side instead?
Visual Demo:
[Top of side]
[Bottom of side]
^^That way it doesn't take up two slots for two bars that will fill one, is this possible?
The DLL's I currently use are as folows:
hOS.dll
MDX.dll
Moo.dll
"Views.mdx"
"Bars.mdx"
"ctl_gen.mdx"
"dialog.mdx" (DMDX)
"POPUPS.dll"
The aliases for my MDX/DLL's:
Code:
alias hos { return dll\hos.dll }

alias mdx { return dll\mdx.dll }

alias moo { return dll\moo.dll }

alias views { return dll\views.mdx }

alias bars { return dll\bars.mdx }

alias ctl { return dll\ctl_gen.mdx }

alias dmdx { return dll\dialog.mdx }

alias mdxin { dll $mdx SetMircVersion $version | dll $mdx MarkDialog $dname }

alias popupsd { return dll\POPUPS.DLL }

Any help would be great! Thanks!

Last edited by Aurora801; 24/08/09 11:16 PM.
Joined: Jan 2007
Posts: 1,155
D
Hoopy frood
Offline
Hoopy frood
D
Joined: Jan 2007
Posts: 1,155
You can't open the editor with a command. There is a dll that allows you to make commands for ctrl & alt commands. I think it is altkey.dll or hotkey.dll.

Help file is "/help search string".

I havent used dcc. Does each dcc open a seperate window? Also, if you keep track of your dcc's you will have your own list. Make a custom identifier if you need.

To disconnect from a server use /disconnect. You will need to make sure the correct connection is active with /scid or /scon.


Joined: Sep 2005
Posts: 2,630
H
Hoopy frood
Offline
Hoopy frood
H
Joined: Sep 2005
Posts: 2,630
To open remote you can do this:

Code:
alias openremote {
  .comopen remote wscript.shell
  if (!$comerr) .comclose remote $com(remote,sendkeys,3,bstr,% $+ r)
}


Then just call /openremote.

Joined: Jan 2007
Posts: 1,155
D
Hoopy frood
Offline
Hoopy frood
D
Joined: Jan 2007
Posts: 1,155
His com object code remined me,. The dll is called sendkeys.dll.

A
Aurora801
Aurora801
A
Okay... So, I got my switchbar...
But here's my problem: @Windows.. They don't show, and when they do, the switchbar tries to open a connection that doesn't exist... Here's the code:
Code:
alias switch { dialog -mh switchbar switchbar }
alias refresh { .timer -m 1 20 switchbar }
dialog switchbar {
  title "switchbar"
  size -1 -1 76 324
  option dbu
  list 1, 1 1 74 321, sort size
}



on *:START: { switch }


alias switchreload {
  dialog -x switchbar
  switch
}
on *:dialog:switchbar:*:*:{
  if ($devent == init) {
    $mdxin
    dll $mdx SetDialog $dname style
    dll $mdx SetControlMDX $dname 1 TreeView haslines hasbuttons showsel rowselect insertdroptarget > $views
    did -i $dname 1 1 SetColor bkg  $color(1)
    did -i $dname 1 1 SetColor line $color(14)
    did -i $dname 1 1 SetColor text $color(15)
    dll $hos Dock $dname Left -1
    $switchbar
  }
  if ($devent == sclick) {
    if ($did == 1) {
      tokenize 32 $did(1,1,1)
      if ($3 == unknown) halt
      if ($4 >= 2) && (!$5-) {
        scon $calc($4 - 1)
        window -a "Status Window"
      }
      if ($4 >= 2) && ($5 == 2) && (!$6) {
        scon $calc($4 - 1)
        if ($server) list
      }
      if ($4 >= 2) && ($5 == 2) && ($6) {
        scon $calc($4 - 1)
        var %chan = $chan($calc($6 - 1))
        window -a %chan
      }
      if ($4 >= 2) && ($5 == 3) && ($6) {
        scon $calc($4 - 1)
        var %query = $query($calc($6 - 1))
        window -a %query
      }
      if ($4 >= 2) && ($5 == 4) && ($6) {
;        scon $calc($4 - 1)
        var %window = $window($calc($6 - 1))
        window -a %window
      }
      if ($4 >= 2) && ($5 == 5) && ($6 == 2) && ($7) {
        scon $calc($4 - 1)
        var %send = $send($calc($7 - 1))
        window -a %send
      }
      if ($4 >= 2) && ($5 == 5) && ($6 == 3) && ($7) {
        scon $calc($4 - 1)
        var %get = $get($calc($7 - 1))
        window -a %get
      }
      if ($4 >= 2) && ($5 == 5) && ($6 == 4) && ($7) {
        scon $calc($4 - 1)
        var %chat = $chat($calc($7 - 1))
        window -a %chat
      }
    }
  }
}
alias switchbar { 
  did -r switchbar 1
  did -i switchbar 1 1 iconsize normal small
  did -i switchbar 1 1 seticon normal icons/connect.ico
  did -i switchbar 1 1 seticon normal icons/chan.ico
  did -i switchbar 1 1 seticon normal icons/userlist2.ico
  did -i switchbar 1 1 seticon normal icons/chan2.ico
  did -i switchbar 1 1 seticon normal icons/dcc.ico
  did -i switchbar 1 1 seticon normal icons/disconnect.ico
  did -i switchbar 1 1 seticon normal icons/about.ico
  var %a = 1
  while (%a <= $scid(0)) {
    scon %a
    did -i switchbar 1 1 cb root
    if ($server) did -a switchbar 1 +eb 1 1 $server
    if (!$server) did -a switchbar 1 +eb 6 1 Not connected.
    did -i switchbar 1 1 cb last
    did -i switchbar 1 1 cb last
    did -a switchbar 1 +e 2 2 Channels
    did -i switchbar 1 1 cb last
    var %c = 1
    while (%c <= $chan(0)) {
      if (%Notify. [ $+ [ $+($server $+ $chan(%c)) ] ] != On) did -a switchbar 1 +eu 2 2 $chan(%c)
      if (%Notify. [ $+ [ $+($server $+ $chan(%c)) ] ] == On) did -a switchbar 1 +eu 2 2 ! $+ $chan(%c)
      inc %c
    }
    did -i switchbar 1 1 cb up
    did -a switchbar 1 +e 3 3 Queries
    did -i switchbar 1 1 cb last
    var %q = 1
    while (%q <= $query(0)) {
      if (%Notify. [ $+ [ $+($server $+ $query(%q)) ] ] != On) did -a switchbar 1 +eu 3 3 $query(%q)
      if (%Notify. [ $+ [ $+($server $+ $query(%q)) ] ] == On) did -a switchbar 1 +eu 3 3 ! $+ $query(%q)
      inc %q

    }
    inc %a
  }
; did -i switchbar 1 1 cb root
; did -a switchbar 1 +e 4 4 Windows
; did -i switchbar 1 1 cb last
; var %w = 1
; if ($window(0) > 0) {
;  while (%w <= $window(0)) {
;   did -a switchbar 1 +eu 4 4 $window(%w)
;   inc %w
;  }
; }
}
on *:ACTIVE:*:{
  if ($activecid != $lactivecid) && ($lactive) {
    nbar
  }
  if ($lactive) {
    if (%Notify. [ $+ [ $+($server $+ $active) ] ] == On) unset %Notify. [ $+ [ $+($server $+ $active) ] ]
    switchbar 
  }
}
on *:CONNECT:{ .timer 1 1 refresh }
on *:DISCONNECT:{ refresh }
on *:CLOSE:*:{ refresh }
on *:TEXT:*:#:{ 
  if ($active != $chan) && (%Notify. [ $+ [ $+($server $+ $chan) ] ] != On) {
    set %Notify. [ $+ [ $+($server $+ $chan) ] ] On
    switchbar
  }
}
on *:ACTION:#:{ 
  if ($active != $chan) && (%Notify. [ $+ [ $+($server $+ $chan) ] ] != On) {
    set %Notify. [ $+ [ $+($server $+ $chan) ] ] On
    switchbar
  }
}
on *:RAWMODE:#:{ 
  if ($active != $chan) && (%Notify. [ $+ [ $+($server $+ $chan) ] ] != On) {
    set %Notify. [ $+ [ $+($server $+ $chan) ] ] On
    switchbar
  }
}
on *:JOIN:#:{ 
  if ($active != $chan) && (%Notify. [ $+ [ $+($server $+ $chan) ] ] != On) {
    set %Notify. [ $+ [ $+($server $+ $chan) ] ] On
    switchbar
  }
}
on *:TEXT:*:?:{ 
  if ($active != $nick) && (%Notify. [ $+ [ $+($server $+ $chan) ] ] != On) {
    set %Notify. [ $+ [ $+($server $+ $nick) ] ] On
    switchbar
  }
}
on *:ACTION:?:{ 
  if ($active != $nick) && (%Notify. [ $+ [ $+($server $+ $chan) ] ] != On) {
    set %Notify. [ $+ [ $+($server $+ $nick) ] ] On
    switchbar
  }
}
Any sugestions?

Joined: Aug 2004
Posts: 7,168
R
Hoopy frood
Offline
Hoopy frood
R
Joined: Aug 2004
Posts: 7,168
Quick look shows a problem with
Code:
on *:TEXT:*:?:{ 
  if ($active != $nick) && (%Notify. [ $+ [ $+($server $+ $chan) ] ] != On) {
    set %Notify. [ $+ [ $+($server $+ $nick) ] ] On
    switchbar
  }
}
in that this is for a pm/query text, thus $chan will always return $null


Link Copied to Clipboard