DCX wallops ircd

By BigSteve on Sep 25, 2011

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

Image

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 }

Comments

Sign in to comment.
BigSteve   -  Feb 03, 2012

bite Me desoto :P

 Respond  
xdesoto   -  Feb 03, 2012

You should put the DLL link in the Description

 Respond  
BigSteve   -  Feb 02, 2012

have you got the dll

 Respond  
Mafia05   -  Feb 02, 2012
  • /dll: unable to open file 'C:\Users\Joey\AppData\Roaming\mIRC\dll\dcx.dll' (line 3, aliases1.ini)

om sorry again but this time i showing this :(

 Respond  
BigSteve   -  Jan 09, 2012

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 }
 Respond  
Mafia05   -  Jan 08, 2012

why is not working on my Mirc, is showing this XDID Unknown command
on my status

 Respond  
VxD aka DEATHJ0KER   -  Oct 10, 2011

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

 Respond  
VxD aka DEATHJ0KER   -  Oct 09, 2011

xdialog -b $dname +mnfwdsobcsh :P

 Respond  
Jordyk19   -  Oct 09, 2011

It doesn't dock.
Just opens a gigantic window and no snotices and such are working on it.
Using last mIRC.

 Respond  
VxD aka DEATHJ0KER   -  Oct 09, 2011

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

 Respond  
VxD aka DEATHJ0KER   -  Sep 27, 2011

simply fabulous ...

 Respond  
Lucius   -  Sep 27, 2011

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

 Respond  
BigSteve   -  Sep 26, 2011

morbid speak to Me on msn

 Respond  
xdesoto   -  Sep 26, 2011

I can get the background to black, and the startup text on grey, but the snotices/wallops/admin notices all stay black.

 Respond  
BigSteve   -  Sep 26, 2011

Picture of My wallops is now up :D

 Respond  
BigSteve   -  Sep 26, 2011

@xdesoto - change the item on this part $color(4) $color(0) < on yours it will say $color(0) 0 == white on irc change the (0) to (1) that will change it black for you :D

 Respond  
Gillian   -  Sep 25, 2011

ooh that nice.
i have a simliar that i've done:)
good work!
i did it different. i will have to talk to you on msn if you have one:)

 Respond  
xdesoto   -  Sep 25, 2011

@Xavia
@Gillian
This is my wallops bar image, not his. But what it is, is a docked wallops/snotice bar at the bottom of the script.
That looks like.
Image

 Respond  
BigSteve   -  Sep 25, 2011

its a wallops created in DCX ..... DCX === a type of dll

 Respond  
Gillian   -  Sep 25, 2011

umm got no comments...has no clue.

 Respond  
BigSteve   -  Sep 25, 2011

same thing that the wallops solja or blackvenom666 created but this is for DCX rather than mdx or no dll

 Respond  
Xavia   -  Sep 25, 2011

and it does what?

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.