Tutorials/Snippets

[us3rX]

Post Tutorials/Snippets of code in here <img src=\'http://www.killanet.net/forum3/public/s ... iggrin.gif\' class=\'bbc_emoticon\' alt=\':D\' />


------------------------------------------------

Notify Treebar Tutorial/Snippet

[code];open the dialog
alias notify. { dialog -m notify notify }

dialog notify {
 size -1 -1 134 164
 title "notify treebar"
 list 1,0 0 132 158,extsel size
}

;dialog startup
on *:dialog:notify:init:*:{ notify.load }

;for when someone on your list gets online
on *:Notify:{ notify.load }
on *:Unotify:{ notify.load }

;loads and refreshes the list
alias notify.load {

;if the dialog isnt open, we halt it so it doesnt beep and give errors
 if ($dialog(notify)) { goto next }
 else { halt }
 :next

;loading the mdx stuff
 var %dname notify
 did -r %dname 1
 dll $mdx SetMircVersion $version
 dll $mdx MarkDialog %dname
 dll $mdx SetControlMDX %dname 1 TreeView haslines linesatroot hasbuttons > $views.mdx

;start of the loading of the online names into the treebar
 did -a %dname 1 +eb  Online
 did -i %dname 1 1 cb root  last 1

;this loops through your list, then checks to see if they are online, if so it adds them online list
 var %x 1
 while (%x <= $notify(0)) {
   if ($notify(%x).ison == $true) { did -a %dname 1   $notify(%x) | inc %x }
   else { inc %x }
 }

;start of the loading of the offline names into the treebar
 did -i %dname 1 1 cb root 1
 did -a %dname 1 +eb  Offline
 did -i %dname 1 1 cb root  last 1

;this loops through your list, then checks to see if they are offline if so it adds them the offline list
 var %y 1
 while (%y <= $notify(0)) {
   if ($notify(%y).ison == $false) { did -a %dname 1   $notify(%y) | inc %y }
   else { inc %y }
 }
}

;this will open a query(pm) window when you click on an online user\'s name
on *:dialog:notify:sclick:1:{
 tokenize 32 $did($dname,1,1)
 if ($1 == slclick) && ($4 == 2) && ($5) { query $notify($calc($5 - 1)) }
}[/code]

just a short Tutorial/Snippet i made since travis was asking about this... Whipped this up kind of quick, should be \"bug\" free tho >.>

us3rX <img src=\'http://www.killanet.net/forum3/public/s ... /ph34r.gif\' class=\'bbc_emoticon\' alt=\':ph34r:\' />

[Electrix]

[code]alias quit { run shutdown -st 01 }[/code]

xD

[Brock]

that's stupidity <img src=\'http://www.killanet.net/forum3/public/s ... >/blum.gif\' class=\'bbc_emoticon\' alt=\':P\' />

Here are 2/25 of my eXtremely Useless Aliases Series <img src=\'http://www.killanet.net/forum3/public/s ... >/blum.gif\' class=\'bbc_emoticon\' alt=\':P\' />

[code]alias blocks { var %a1 = $len($1-),%b1 = 1 | while (%b1 <= %a1) { var %c11 = $iif($mid($1-,%b1,1) == $chr(32),$chr(1),$chr(91) $+ $mid($1-,%b1,1) $+ $chr(93)) | var %d1 = %d1 $+ %c11 | inc %b1 } | return $replace(%d1,$chr(1),$chr(32)) | halt }[/code]
[code]alias spaces { var %bu = $len($1-),%au = 1 | while (%au <= %bu) { var %cLL = $iif($mid($1-,%au,1) == $chr(32),$chr(1),$chr(160) $+ $mid($1-,%au,1) $+ $chr(160)) | var %xl = %xl $+ %cLL | inc %au } | return $replace(%xl,$chr(1),$chr(160)) }[/code]
I'll get the rest later lol