this is a dcx wallops that I had help creating. the original code was from aurora and then adapted from D34ths code
but I have recoded to be ircd base only meaning it has svsnick exiting and such rather than just SNOTICE
image of the full irc is here wallops is down the bottom
on *:START: { wbar }
alias wbar {
if ($dialog(wbar)) { dialog -x wbar }
dialog -m wbar wbar
Unset %Linez.Wallopz
}
alias DCX_wbar {
}
dialog wbar {
title ""
size 2 2 1366 35
option dbu
}
alias NWStart {
.timer 1 0 xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(4) $color(1) $time(hh:nn:ss tt) $chr(9) +ckb 0 0 $color(4) $color(1) Information $chr(9) +ck 0 0 $color(4) $color(1) STARTUP $chr(9) +ck 0 0 $color(4) $color(1) MiRC Started
.timer 1 1 xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(15) $color(1) $time(hh:nn:ss tt) $chr(9) +ckb 0 0 $color(15) $color(1) Information $chr(9) +ck 0 0 $color(4) $color(1) STARTUP $chr(9) +ck 0 0 $color(15) $color(1) Created By Cayne/BigSteve
.timer 1 2 xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(15) $color(1) $time(hh:nn:ss tt) $chr(9) +ckb 0 0 $color(15) $color(1) Information $chr(9) +ck 0 0 $color(4) $color(1) STARTUP $chr(9) +ck 0 0 $color(15) $color(1) Scripts Loaded $Script(0)
.timer 1 3 xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(15) $color(1) $time(hh:nn:ss tt) $chr(9) +ckb 0 0 $color(15) $color(1) Information $chr(9) +ck 0 0 $color(4) $color(1) STARTUP $chr(9) +ck 0 0 $color(15) $color(1) Your are running mIRC version $version
.timer 1 4 xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(15) $color(1) $time(hh:nn:ss tt) $chr(9) +ckb 0 0 $color(15) $color(1) Information $chr(9) +ck 0 0 $color(4) $color(1) STARTUP $chr(9) +ck 0 0 $color(15) $color(1) Client working on Windows $os
Set %Linez.Wallopz 5
}
on *:dialog:wbar:init:*: {
dcx Mark $dname DCX_wbar
xdialog -q $dname +r cross
xdialog -c $dname 1 listview 0 0 1360 100 report fullrow grid
xdid -t $dname 1 +c 0 80 Event Time $chr(9) +c 0 100 Server $chr(9) -l 0 100 Type $chr(9) +l 0 880 Message
.timer 1 0 xdock -m $dialog($dname).hwnd +b
.timer 1 1 NWStart
}
#SNote On
on *:SNOTICE:*: {
if ($4 == from) && ($2 !== Global) { .xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(4) $color(1) $time(hh:nn:ss tt) $chr(9) +ck 0 0 $color(4) $color(1) $server $chr(9) +ck 0 0 $color(4) $color(1) $2 $chr(9) +ck 0 0 $color(4) $color(1) $strip($5-) | Inc %Linez.Wallopz | xdid -V wbar 1 %Linez.Wallopz }
elseif ($4 == from) && ($2 == Global) { .xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(4) $color(1) $time(hh:nn:ss tt) $chr(9) +ck 0 0 $color(4) $color(1) $server $chr(9) +ck 0 0 $color(4) $color(1) GLOBALOPS $chr(9) +ck 0 0 $color(4) $color(1) $strip($5-) | Inc %Linez.Wallopz | xdid -V wbar 1 %Linez.Wallopz }
elseif ($4 == Client) { .xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(4) $color(1) $time(hh:nn:ss tt) $chr(9) +ck 0 0 $color(4) $color(1) $server $chr(9) +ck 0 0 $color(4) $color(1) $5 $chr(9) +ck 0 0 $color(4) $color(1) $strip($6-) | Inc %Linez.Wallopz | xdid -V wbar 1 %Linez.Wallopz }
elseif ($8 == forced) && ($12 == nickname) { .xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(4) $color(1) $time(hh:nn:ss tt) $chr(9) +ck 0 0 $color(4) $color(1) $server $chr(9) +ck 0 0 $color(4) $color(1) SVSNICK $chr(9) +ck 0 0 $color(4) $color(1) $strip($4) -> $strip($14) | Inc %Linez.Wallopz | xdid -V wbar 1 %Linez.Wallopz }
elseif ($7 == changed) && ($8 == his/her) && ($9 == nickname) { .xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(4) $color(1) $time(hh:nn:ss tt) $chr(9) +ck 0 0 $color(4) $color(1) $server $chr(9) +ck 0 0 $color(4) $color(1) NICK $chr(9) +ck 0 0 $color(4) $color(1) $strip($4) -> $strip($11) | Inc %Linez.Wallopz | xdid -V wbar 1 %Linez.Wallopz }
else { .xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(4) $color(1) $time(hh:nn:ss tt) $chr(9) +ck 0 0 $color(4) $color(1) $server $chr(9) +ck 0 0 $color(4) $color(1) SNOTICE $chr(9) +ck 0 0 $color(4) $color(1) $2- | Inc %Linez.Wallopz | xdid -V wbar 1 %Linez.Wallopz }
}
on *:WALLOPS:*: { .xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(15) $color(12) $time(hh:nn:ss tt) $chr(9) +ck 0 0 $color(15) $color(12) $server $chr(9) +ck 0 0 $color(15) $color(12) WALLOPS $chr(9) +ck 0 0 $color(15) $color(12) $1- | Inc %Linez.Wallopz | xdid -V wbar 1 %Linez.Wallopz }
on *:CONNECT: { .xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(15) $color(1) $time(hh:nn:ss tt) $chr(9) +ck 0 0 $color(15) $color(1) $server $chr(9) +ck 0 0 $color(15) $color(1) Connection $chr(9) +ck 0 0 $color(15) $color(1) Connected | Inc %Linez.Wallopz | xdid -V wbar 1 %Linez.wallopz }
On *:Text:*:*:{
If ($Active != $Chan) {
If ($me Isin $1-) || ($Regex($1-,Steve) >= 1) { .xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(8) $color(1) $time(hh:nn:ss tt) $chr(9) +ck 0 0 $color(8) $color(1) $server $chr(9) +ck 0 0 $color(8) $color(1) NICKCALL $chr(9) +ck 0 0 $color(8) $color(1) $Nick Has Said Your Name On $Chan With Message $Strip($1-) | Inc %Linez.Wallopz | xdid -V wbar 1 %Linez.wallopz }
}
}
On *:Action:*:*:{
If ($Active != $Chan) {
If ($me Isin $1-) || ($Regex($1-,Steve) >= 1) { .xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(8) $color(1) $time(hh:nn:ss tt) $chr(9) +ck 0 0 $color(8) $color(1) $server $chr(9) +ck 0 0 $color(8) $color(1) NICKCALL $chr(9) +ck 0 0 $color(8) $color(1) $Nick Has Said Your Name On $Chan With Message $Strip($1-) | Inc %Linez.Wallopz | xdid -V wbar 1 %Linez.wallopz }
}
}
on *:DISCONNECT: { .xdid -a wbar 1 0 0 +ck 0 0 0 0 $color(15) $color(1) $time(hh:nn:ss tt) $chr(9) +ck 0 0 $color(15) $color(1) $server $chr(9) +ck 0 0 $color(15) $color(1) Connection $chr(9) +ck 0 0 $color(15) $color(1) Disconnected | Inc %Linez.Wallopz | xdid -V wbar 1 %Linez.Wallopz }
#Snote End
alias mdx { return DLL\mdx.dll }
alias moo { return DLL\moo.dll }
alias hos { return DLL\hos.dll }
alias views { return DLL\views.mdx }
alias bars { return DLL\bars.mdx }
alias custom { return DLL\mircustom.dll }
alias ctl { return DLL\ctl_gen.mdx }
alias dmdx { return DLL\dialog.mdx }
alias views { return DLL\views.mdx }
alias mdxin { dll $mdx SetMircVersion $version | dll $mdx MarkDialog $dname }
alias popupsd { return DLL\POPUPS.DLL }
alias de { return DLL\darkenginex.dll }
you need to add this to your aliases
dcx {
if ($isid) { return $dll(dll\dcx.dll,$1,$2-) }
else { dll "dll\dcx.dll" $1 $2- }
}
udcx {
if ($dcx(IsUnloadSafe)) { $iif($menu, .timer 1 0) dll -u dcx.dll }
else { echo 4 -qmlbfti2 [DCX] Unable to Unload Dll. }
}
xdid {
if ( $isid ) { return $dcx( _xdid, $1 $2 $prop $3- ) }
dcx xdid $2 $3 $1 $4-
}
xdialog {
if ( $isid ) { return $dcx( _xdialog, $1 $prop $2- ) }
dcx xdialog $2 $1 $3-
}
xpop {
if ( $isid ) { return $dcx( _xpop, $1 $prop $2- ) }
dcx xpop $2 $1 $3-
}
xpopup {
if ( $isid ) { return $dcx( _xpopup, $1 $prop $2- ) }
dcx xpopup $2 $1 $3-
}
mpopup { dcx mpopup $1 $2 }
xdock {
if ($isid) { return $dcx( _xdock, $1 $prop ) }
dcx xdock $1-
}
xtray {
if ($isid) { return $dcx(TrayIcon, $1 $prop $2-) }
dcx TrayIcon $1-
}
tab {
var %i = 1, %tab | while (%i ~= $0) {
if ($eval($+($,%i),2) != $null) { %tab = $instok(%tab,$eval($+($,%i),2),$calc($numtok(%tab,9) + 1),9) }
inc %i
}
return %tab
}
shell { return $scriptdirshell.dll }
Aha2Y I deleted the edge of the window as superfluous for me (xdialog -b $dname +mnfwdsobcsh) and filled the dead zone with a background image, sure I can get a better result without using a list :)
for a correct display in all resolutions... in my view requires many changes to the code because they get a standard for use in any video resolution (for example, resizing cells automatically)
I use mirc 7.19 version translated by me and I assure you that the client is not because of the limitations of the code
great job Big Steve
I uploaded the snipped on NeCRoNoMiCoN ✞. $ ✟ ¢ ® iþ †
It would be a cute idea to add the event on sclick to the function Call Nick e.g. enters the specified channel
This is the result ... adapted at 1920 x 1080 of video resolution
http://www.hawkee.com/pictures/f_65881_0OBPoanSmfbEkiTPYpPseeyrB.jpg
Nice work.
one thing I see to make it more streamlined:
elseif ($7 == changed) && ($8 == his/her) && ($9 == nickname) {
change to:
elseif ($7-9 == changed his/her nickname) {
you don't need the split ifs for simple word matches.
8/10
would be 9 with chatspace stylings too.
I really like the word matches for the quits and joins, and hope you don't mind I implimented similar on my own project wallop bar lol.
If you do... tough it's public property now bish! lol