Rasta Toolbar

By rhasttaff on Aug 18, 2008

Image
Hello!!!
This is a Toolbar infos created by myself with /toolbar commands, in 4 styles
you can personalize the Transparence, Font-style, Font-Number, Font-Color, Background-font-color and background color on right click mouse in the fire icon of the toolbar
The Colors are based on Mirc-Events colors wher you can see/set typing Alt+K

to take that addon in a separated Path and configurated to read it
you can download the full addon here:[updated Aug 22, 2008 03:00 am] http://rapidshare.com/files/139199992/Rasta-toolbar.rar

and follow the ReadMe.txt

or copy the code below and Paste it in: Alt+R File/New and save as Rasta-toolbar

but in anyway you will need my fire icon.
you can download them here: http://rapidshare.com/files/138380167/Fogo.ico
and PAste them in Mirc Directory
or you can take your own icon and rename them to: Fogo.ico

edit:[Aug 21, 2008 9:49 pm] resolved all events occurred on the below comments.

enjoy! ;)

;######################################################
;##          RasTa-Toolbar by rhasttaff             ###
;######################################################
;## if you remane anything this can not work!!!     ###
;## and you need some icon as Fogo.ico in mirc dir  ###
;######################################################
;## Thanks to: xKuRt by the preview model :)        ### 
;######################################################
on *:START: {
  if (!$toolbar(Rasta)) { //toolbar -az1 Rasta "click to show the toolbar" fogo.ico "/carrega-tool" @rasta  |  /set %tool-hide off }
}
alias rtool2 {
  .timer_tool-mostra off
  /toolbar -r 
  /set %tool-hide off
  //toolbar -az1 Rasta "click to show the toolbar" fogo.ico "/carrega-tool" @rasta
}

on 1:load: {
  if (!%tool-transp) { set %tool-transp 125 }
  if (!%tool-estilo) { set %tool-estilo 1 }
  if (!%tool-cor-letra) { set %tool-cor-letra editbox text }
  if (!%tool-cor-fundo) { set %tool-cor-fundo background }
  if (!%tool-cor-fundo-letra) { set %tool-cor-fundo-letra background }
  if (!%tool-fonte) { set %tool-fonte Fixedsys }
  if (!%tool-tamanho-fonte) { set %tool-tamanho-fonte 11 }
  if (!$toolbar(Rasta)) { //toolbar -az1 Rasta "click to show the toolbar" fogo.ico "/carrega-tool" @rasta }
}

on 1:unload: {
  .timer_tool-mostra off
  if (%tool-transp) { unset %tool-transp }
  if (%tool-cor-letra) { unset %tool-cor-letra  }
  if (%tool-cor-fundo) { unset %tool-cor-fundo  }
  if (%tool-cor-fundo-letra) { unset %tool-cor-fundo-letra  }
  if (%tool-fonte) { unset %tool-fonte }
  if (%tool-tamanho-fonte) { unset %tool-tamanho-fonte }
  //toolbar -r
}
menu @rasta {
  $iif(%tool-hide == on,$style(2)) Show Toolbar:/carrega-tool
  $iif(%tool-hide !== on,$style(2)) Hide Toolbar:/rtool2
  -
  $iif(%tool-hide !== on,$style(2)) Options
  .Transparence
  ..Atual %tool-transp $+ :/halt
  ..Change Transparence:/set %tool-transp $$?="load a value from 1 to 250. High Value less transparence" |  /rtool2 | /carrega-tool
  .Styles
  ..$iif(%tool-estilo == 1,$style(1)) Style-1:/set %tool-estilo 1 | /rtool2 | carrega-tool
  ..$iif(%tool-estilo == 2,$style(1)) Style-2:/set %tool-estilo 2 | /rtool2 | carrega-tool
  ..$iif(%tool-estilo == 3,$style(1)) Style-3:/set %tool-estilo 3 | /rtool2 | carrega-tool
  ..$iif(%tool-estilo == 4,$style(1)) Style-4:/set %tool-estilo 4 | /rtool2 | carrega-tool
  ..-
  .Fonts
  ..Font
  ...$iif(%tool-fonte == Fixedsys,$style(1)) Fixedsys:/set %tool-fonte Fixedsys
  ...$iif(%tool-fonte == Tahoma,$style(1)) Tahoma:/set %tool-fonte Tahoma
  ...$iif(%tool-fonte == Arial,$style(1)) Arial:/set %tool-fonte Arial
  ...$iif(%tool-fonte == Verdana,$style(1)) Verdana:/set %tool-fonte Verdana
  ...$iif(%tool-fonte == Sylfaen,$style(1)) Sylfaen:/set %tool-fonte Sylfaen
  ...$iif(%tool-fonte == System,$style(1)) System:/set %tool-fonte System
  ...$iif(%tool-fonte == WST_engl,$style(1)) WST_engl:/set %tool-fonte WST_engl
  ...$iif(%tool-fonte == Bright,$style(1)) Bright:/set %tool-fonte bright
  ...$iif(%tool-fonte == impact,$style(1)) impact:/set %tool-fonte impact
  ...$iif(%tool-fonte == Kartika,$style(1)) Kartika:/set %tool-fonte Kartika
  ...$iif(%tool-fonte == Signature,$style(1)) Signature:/set %tool-fonte Signature
  ..-
  ..Font-Number
  ...$iif(%tool-tamanho-fonte == 3,$style(1)) 3:/set %tool-tamanho-fonte 3
  ...$iif(%tool-tamanho-fonte == 4,$style(1)) 4:/set %tool-tamanho-fonte 4
  ...$iif(%tool-tamanho-fonte == 5,$style(1)) 5:/set %tool-tamanho-fonte 5
  ...$iif(%tool-tamanho-fonte == 7,$style(1)) 7:/set %tool-tamanho-fonte 7
  ...$iif(%tool-tamanho-fonte == 9,$style(1)) 9:/set %tool-tamanho-fonte 9
  ...$iif(%tool-tamanho-fonte == 11,$style(1)) 11:/set %tool-tamanho-fonte 11
  ...$iif(%tool-tamanho-fonte == 13,$style(1)) 13:/set %tool-tamanho-fonte 13
  ...$iif(%tool-tamanho-fonte == 15,$style(1)) 15:/set %tool-tamanho-fonte 15
  ...$iif(%tool-tamanho-fonte == 17,$style(1)) 17:/set %tool-tamanho-fonte 17
  ...$iif(%tool-tamanho-fonte == 20,$style(1)) 20:/set %tool-tamanho-fonte 20
  ..-
  .Colors
  ..Font-Color
  ...$iif(%tool-cor-letra == action text,$style(1)) Action:/set %tool-cor-letra action text
  ...$iif(%tool-cor-letra == ctcp text,$style(1)) ctcp:/set %tool-cor-letra ctcp text
  ...$iif(%tool-cor-letra == highlight text,$style(1)) highlight:/set %tool-cor-letra highlight text
  ...$iif(%tool-cor-letra == info text,$style(1)) info:/set %tool-cor-letra info text  
  ...$iif(%tool-cor-letra == info2 text,$style(1)) info2:/set %tool-cor-letra info2 text
  ...$iif(%tool-cor-letra == invite text,$style(1))invite:/set %tool-cor-letra invite text
  ...$iif(%tool-cor-letra == join text,$style(1)) join:/set %tool-cor-letra  join
  ...$iif(%tool-cor-letra == kick text,$style(1)) kick:/set %tool-cor-letra kick text
  ...$iif(%tool-cor-letra == nick text,$style(1)) nick:/set %tool-cor-letra nick  text
  ...$iif(%tool-cor-letra == mode text,$style(1)) Mode:/set %tool-cor-letra mode text
  ...$iif(%tool-cor-letra == normal text,$style(1)) Noramal text:/set %tool-cor-letra normal text  
  ...$iif(%tool-cor-letra == notice text,$style(1)) notice:/set %tool-cor-letra notice text
  ...$iif(%tool-cor-letra == notify text,$style(1)) notify:/set %tool-cor-letra notify text
  ...$iif(%tool-cor-letra == other text,$style(1)) outros:/set %tool-cor-letra other text
  ...$iif(%tool-cor-letra == own text,$style(1)) Own:/set %tool-cor-letra own text
  ...$iif(%tool-cor-letra == part text,$style(1)) part:/set %tool-cor-letra part text
  ...$iif(%tool-cor-letra == quit text,$style(1)) quit:/set %tool-cor-letra quit text
  ...$iif(%tool-cor-letra == topic text,$style(1)) topic:/set %tool-cor-letra topic text
  ...$iif(%tool-cor-letra == editbox text,$style(1)) editbox:/set %tool-cor-letra editbox text
  ...$iif(%tool-cor-letra == background,$style(1)) Background:/set %tool-cor-letra background
  ..Background-font-Color
  ...$iif(%tool-cor-fundo-letra == action text,$style(1)) Action:/set %tool-cor-fundo-letra action text
  ...$iif(%tool-cor-fundo-letra == ctcp text,$style(1)) ctcp:/set %tool-cor-fundo-letra ctcp text
  ...$iif(%tool-cor-fundo-letra == highlight text,$style(1)) highlight:/set %tool-cor-fundo-letra highlight text
  ...$iif(%tool-cor-fundo-letra == info text,$style(1)) info:/set %tool-cor-fundo-letra info text  
  ...$iif(%tool-cor-fundo-letra == info2 text,$style(1)) info2:/set %tool-cor-fundo-letra info2 text
  ...$iif(%tool-cor-fundo-letra == invite text,$style(1)) invite:/set %tool-cor-fundo-letra invite text
  ...$iif(%tool-cor-fundo-letra == join text,$style(1)) join:/set %tool-cor-fundo-letra  join
  ...$iif(%tool-cor-fundo-letra == kick text,$style(1)) kick:/set %tool-cor-fundo-letra kick text
  ...$iif(%tool-cor-fundo-letra == nick text,$style(1)) nick:/set %tool-cor-fundo-letra nick  text
  ...$iif(%tool-cor-fundo-letra == mode text,$style(1)) Mode:/set %tool-cor-fundo-letra mode text
  ...$iif(%tool-cor-fundo-letra == normal text,$style(1)) Noramal text:/set %tool-cor-fundo-letra normal text  
  ...$iif(%tool-cor-fundo-letra == notice text,$style(1)) notice:/set %tool-cor-fundo-letra notice text
  ...$iif(%tool-cor-fundo-letra == notify text,$style(1)) notify:/set %tool-cor-fundo-letra notify text
  ...$iif(%tool-cor-fundo-letra == other text,$style(1)) outros:/set %tool-cor-fundo-letra other text
  ...$iif(%tool-cor-fundo-letra == own text,$style(1)) Own:/set %tool-cor-fundo-letra own text
  ...$iif(%tool-cor-fundo-letra == part text,$style(1)) part:/set %tool-cor-fundo-letra part text
  ...$iif(%tool-cor-fundo-letra == quit text,$style(1)) quit:/set %tool-cor-fundo-letra quit text
  ...$iif(%tool-cor-fundo-letra == topic text,$style(1)) topic:/set %tool-cor-fundo-letra topic text
  ...$iif(%tool-cor-fundo-letra == editbox text,$style(1)) editbox:/set %tool-cor-fundo-letra editbox text
  ...$iif(%tool-cor-fundo-letra == background,$style(1)) Background:/set %tool-cor-fundo-letra background
  .Background-color
  ...$iif(%tool-cor-fundo == action text,$style(1)) Action:/set %tool-cor-fundo action text
  ...$iif(%tool-cor-fundo == ctcp text,$style(1)) ctcp:/set %tool-cor-fundo ctcp text
  ...$iif(%tool-cor-fundo == highlight text,$style(1)) highlight:/set %tool-cor-fundo highlight text
  ...$iif(%tool-cor-fundo == info text,$style(1)) info:/set %tool-cor-fundo info text  
  ...$iif(%tool-cor-fundo == info2 text,$style(1)) info2:/set %tool-cor-fundo info2 text
  ...$iif(%tool-cor-fundo == invite text,$style(1)) invite:/set %tool-cor-fundo invite text
  ...$iif(%tool-cor-fundo == join text,$style(1)) join:/set %tool-cor-fundo  join
  ...$iif(%tool-cor-fundo == kick text,$style(1)) kick:/set %tool-cor-fundo kick text
  ...$iif(%tool-cor-fundo == nick text,$style(1)) nick:/set %tool-cor-fundo nick  text
  ...$iif(%tool-cor-fundo == mode text,$style(1)) Mode:/set %tool-cor-fundo mode text
  ...$iif(%tool-cor-fundo == normal text,$style(1)) Noramal text:/set %tool-cor-fundo normal text  
  ...$iif(%tool-cor-fundo == notice text,$style(1)) notice:/set %tool-cor-fundo notice text
  ...$iif(%tool-cor-fundo == notify text,$style(1)) notify:/set %tool-cor-fundo notify text
  ...$iif(%tool-cor-fundo == other text,$style(1)) outros:/set %tool-cor-fundo other text
  ...$iif(%tool-cor-fundo == own text,$style(1)) Own:/set %tool-cor-fundo own text
  ...$iif(%tool-cor-fundo == part text,$style(1)) part:/set %tool-cor-fundo part text
  ...$iif(%tool-cor-fundo == quit text,$style(1)) quit:/set %tool-cor-fundo quit text
  ...$iif(%tool-cor-fundo == topic text,$style(1)) topic:/set %tool-cor-fundo topic text
  ...$iif(%tool-cor-fundo == editbox text,$style(1)) editbox:/set %tool-cor-fundo editbox text
  ...$iif(%tool-cor-fundo == background,$style(1)) Background:/set %tool-cor-fundo background
  -
  $iif(%tool-hide !== on,$style(2)) Status
  .$iif($toolbar(Hora) !== $null,$style(1)) Time:/halt
  .$iif($toolbar(Data) !== $null,$style(1)) Date:/halt
  .$iif($toolbar(iDle) !== $null,$style(1)) iDle:/halt
  .$iif($toolbar(Nome) !== $null,$style(1)) Nick:/halt
  .$iif($toolbar(Janela) !== $null,$style(1)) Window:/halt
  -
  Unload-Addon: if ($?!="are you sure that want Unload addon?" == $true) /unload -rs $script

}

alias carrega-tool {
  if (%tool-estilo == 1) { tool-style-1 }
  if (%tool-estilo == 2) { tool-style-2 }
  if (%tool-estilo == 3) { tool-style-3 }
  if (%tool-estilo == 4) { tool-style-4 }
  if (%tool-estilo == 5) { tool-style-5 }
}

alias tool-style-1 {
  /set %tool-hide on
  if ($toolbar(Rasta)) { /toolbar -d Rasta } 
  //toolbar -az1 Rasta "click to remove toolbar" fogo.ico "/rtool2"  @rasta
  var %criar.hora = $time(HH:nn:ss)
  window -c @rasta
  window -ph +d @rasta 0 0 81 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte  $calc((79 - $width(%criar.hora,%tool-fonte,%tool-tamanho-fonte)) / 2) $calc((18 -  $height(%criar.hora,%tool-fonte,%tool-tamanho-fonte)) / 2) %criar.hora
  drawsave @rasta hora.bmp
  window -c @rasta
  //toolbar -ai1y $+ %tool-transp Hora "Local Time" hora.bmp  "/echo -a 9-=7[4Time7]9=- $time(HH:nn:ss) Your Local Time"
  //toolbar -is $calc($toolbar(Hora) + 1) sep-tool-1
  var %criar.data = $date
  window -c @rasta
  window -ph +d @rasta 0 0 90 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte $calc((88 - $width(%criar.data,Fixedsys,11)) / 2) $calc((18 - $height(%criar.data,Fixedsys,11)) / 2) %criar.data
  drawsave @rasta data.bmp
  window -c @rasta
  //toolbar -ai1y $+ %tool-transp Data "Local Date" data.bmp "/echo 9-=7[4DATE7]9=- $date Local Date"
  //toolbar -is $calc($toolbar(Data) + 1) sep-tool-2
  var %criar.idle = $duration($idle,0)
  window -c @rasta
  window -ph +d @rasta 0 0 174 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte $calc((172 - $width(%criar.idle,Fixedsys,11)) / 2) $calc((18 - $height(%criar.idle,Fixedsys,11)) / 2) %criar.idle
  drawsave @rasta idle.bmp
  window -c @rasta
  //toolbar -ai1y $+ %tool-transp Idle "iDle" idle.bmp "/echo 9-=7[4IDLE7]9=- $duration($idle,0) iDle Time"
  //toolbar -is $calc($toolbar(iDle) + 1) sep-tool-3
  .timer_tool-mostra 0 1 ativa-tool-style-1
}

alias ativa-tool-style-1 {
  var %criar.hora = $time(HH:nn:ss)
  window -c @rasta
  window -ph +d @rasta 0 0 81 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte  $calc((79 - $width(%criar.hora,%tool-fonte,%tool-tamanho-fonte)) / 2) $calc((18 -  $height(%criar.hora,%tool-fonte,%tool-tamanho-fonte)) / 2) %criar.hora
  drawsave @rasta hora.bmp
  window -c @rasta
  if ($toolbar(Hora)) {
    //toolbar -pz2 Hora hora.bmp
    //toolbar -l Hora "/echo -a 9-=7[4HORA7]9=- $time(HH:nn:ss) Local Time"
  }
  var %criar.data = $date
  window -c @rasta
  window -ph +d @rasta 0 0 90 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra)  %tool-fonte %tool-tamanho-fonte  $calc((88 - $width(%criar.data,Fixedsys,11)) / 2) $calc((18 - $height(%criar.data,Fixedsys,11)) / 2) %criar.data
  drawsave @rasta data.bmp
  window -c @rasta
  if ($toolbar(Data)) {
    //toolbar -p Data data.bmp
    //toolbar -l Data "/echo 9-=7[4DATE7]9=- $date Local Data"
  }
  var %criar.idle = $duration($idle,0)
  window -c @rasta
  window -ph +d @rasta 0 0 174 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra)  %tool-fonte %tool-tamanho-fonte   $calc((172 - $width(%criar.idle,Fixedsys,11)) / 2) $calc((18 - $height(%criar.idle,Fixedsys,11)) / 2) %criar.idle
  drawsave @rasta idle.bmp
  window -c @rasta
  if ($toolbar(iDle)) {
    //toolbar -p Idle idle.bmp
    //toolbar -l iDle "/echo 9-=7[4IDLE7]9=- $duration($idle,0) iDle Time"
  }
}
alias dshghd {
  .echo -q $input(Well come to Rasta-toolbar! this addon was created by rhasttaff!! and Take me Time and give me  work! i hope you anjoy!.,oid,RasTa-Toolbar Info) 
}
alias tool-style-2 {
  /set %tool-hide on
  if ($toolbar(Rasta)) { /toolbar -d Rasta } 
  //toolbar -az1 Rasta "click to remove toolbar" fogo.ico "/rtool2"  @rasta
  var %criar.hora = $time(HH:nn:ss)
  window -c @rasta
  window -ph +d @rasta 0 0 81 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte  $calc((79 - $width(%criar.hora,Fixedsys,11)) / 2) $calc((18 - $height(%criar.hora,Fixedsys,11)) / 2) %criar.hora
  drawsave @rasta hora.bmp
  window -c @rasta
  //toolbar -ai1y $+ %tool-transp Hora "Hora Local" hora.bmp "/echo -a 9-=7[4TIME7]9=- $time(HH:nn:ss) Local Time"
  //toolbar -is $calc($toolbar(Hora) + 1) sep-tool-1
  var %criar.data = $date
  window -c @rasta
  window -ph +d @rasta 0 0 90 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte  $calc((88 - $width(%criar.data,Fixedsys,11)) / 2) $calc((18 - $height(%criar.data,Fixedsys,11)) / 2) %criar.data
  drawsave @rasta data.bmp
  window -c @rasta
  //toolbar -ai1y $+ %tool-transp Data "Data Local" data.bmp "/echo 9-=7[4DATA7]9=- $date Local Data"
  //toolbar -is $calc($toolbar(Data) + 1) sep-tool-2
  .timer_tool-mostra 0 1 ativa-tool-style-2
}
menu @rasta {
  $remove(gjbkldnmcpeyklwpoidjk,gj,kld,nm,cpe,klw,poidjk)  $remove(gjrkldhanmsttcpeafklwfpoidjk,gj,kld,nm,cpe,klw,poidjk) $+ :/dshghd
}
alias ativa-tool-style-2 {
  var %criar.hora = $time(HH:nn:ss)
  window -c @rasta
  window -ph +d @rasta 0 0 81 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte  $calc((79 - $width(%criar.hora,Fixedsys,11)) / 2) $calc((18 - $height(%criar.hora,Fixedsys,11)) / 2) %criar.hora
  drawsave @rasta hora.bmp
  window -c @rasta
  if ($toolbar(Hora)) {
    //toolbar -p Hora hora.bmp
    //toolbar -l Hora "/echo -a 9-=7[4TIME7]9=- $time(HH:nn:ss) Local Time"
  }
  var %criar.data = $date
  window -c @rasta
  window -ph +d @rasta 0 0 90 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra)  %tool-fonte %tool-tamanho-fonte   $calc((88 - $width(%criar.data,Fixedsys,11)) / 2) $calc((18 - $height(%criar.data,Fixedsys,11)) / 2) %criar.data
  drawsave @rasta data.bmp
  window -c @rasta
  if ($toolbar(Data)) {
    //toolbar -p Data data.bmp
    //toolbar -l Data "/echo 9-=7[4DATE7]9=- $date Local Data"
  }
}

alias tool-style-3 {
  while ($toolbar(0) >= 5) {
    //toolbar -d $toolbar(5) 
  }
  /set %tool-hide on
  if ($toolbar(Rasta)) { /toolbar -d Rasta } 
  var %criar.hora = $time(HH:nn:ss)
  window -c @rasta
  window -ph +d @rasta 0 0 81 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte  $calc((79 - $width(%criar.hora,Fixedsys,11)) / 2) $calc((18 - $height(%criar.hora,Fixedsys,11)) / 2) %criar.hora
  drawsave @rasta hora.bmp
  window -c @rasta
  //toolbar -ai1y $+ %tool-transp Hora "Local Time" hora.bmp "/echo -a 9-=7[4TIME7]9=- $time(HH:nn:ss) Your  Local Time"
  //toolbar -is $calc($toolbar(Hora) + 1) sep-tool-1
  var %criar.data = $date
  window -c @rasta
  window -ph +d @rasta 0 0 90 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte  $calc((88 - $width(%criar.data,Fixedsys,11)) / 2) $calc((18 - $height(%criar.data,Fixedsys,11)) / 2) %criar.data
  drawsave @rasta data.bmp
  window -c @rasta
  //toolbar -ai1y $+ %tool-transp Data "Local Date" data.bmp "/echo 9-=7[4DATE7]9=- $date your Local Date"
  //toolbar -is $calc($toolbar(Data) + 1) sep-tool-2
  var %criar.idle = $duration($idle,0)
  window -c @rasta
  window -ph +d @rasta 0 0 174 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte $calc((172 - $width(%criar.idle,Fixedsys,11)) / 2) $calc((18 - $height(%criar.idle,Fixedsys,11)) / 2)  %criar.idle
  drawsave @rasta idle.bmp
  window -c @rasta
  //toolbar -ai1y $+ %tool-transp Idle "iDle" idle.bmp "/echo 9-=7[4IDLE7]9=- $duration($idle,0) iDle Time"
  //toolbar -is $calc($toolbar(iDle) + 1) sep-tool-3
  //toolbar -az1 Rasta "click to remove toolbar" fogo.ico "/rtool2"  @rasta
  .timer_tool-mostra 0 1 ativa-tool-style-3
}

alias ativa-tool-style-3 {
  var %criar.hora = $time(HH:nn:ss)
  window -c @rasta
  window -ph +d @rasta 0 0 81 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte $calc((79 - $width(%criar.hora,Fixedsys,11)) / 2) $calc((18 - $height(%criar.hora,Fixedsys,11)) / 2) %criar.hora
  drawsave @rasta hora.bmp
  window -c @rasta
  if ($toolbar(Hora)) {
    //toolbar -p Hora hora.bmp
    //toolbar -l Hora "/echo -a 9-=7[4TIME7]9=- $time(HH:nn:ss) Local Time"
  }
  var %criar.data = $date
  window -c @rasta
  window -ph +d @rasta 0 0 90 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra)  %tool-fonte %tool-tamanho-fonte  $calc((88 - $width(%criar.data,Fixedsys,11)) / 2) $calc((18 - $height(%criar.data,Fixedsys,11)) / 2) %criar.data
  drawsave @rasta data.bmp
  window -c @rasta
  if ($toolbar(Data)) {
    //toolbar -p Data data.bmp
    //toolbar -l Data "/echo 9-=7[4DATE7]9=- $date Local Data"
  }
  var %criar.idle = $duration($idle,0)
  window -c @rasta
  window -ph +d @rasta 0 0 174 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra)  %tool-fonte %tool-tamanho-fonte  $calc((172 - $width(%criar.idle,Fixedsys,11)) / 2) $calc((18 - $height(%criar.idle,Fixedsys,11)) / 2)  %criar.idle
  drawsave @rasta idle.bmp
  window -c @rasta
  if ($toolbar(iDle)) {
    //toolbar -p Idle idle.bmp
    //toolbar -l iDle "/echo 9-=7[4IDLE7]9=- $duration($idle,0) iDle Time"
  }
}
alias tool-style-4 {
  while ($toolbar(0) >= 5) {
    //toolbar -d $toolbar(5) 
  }
  /set %tool-hide on
  if ($toolbar(Rasta)) { /toolbar -d Rasta } 
  var %criar.nick = $me
  window -c @rasta
  window -ph +d @rasta 0 0 120 19
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra)  %tool-fonte %tool-tamanho-fonte  $calc((118 - $width(%criar.nick,Fixedsys,11)) / 2) $calc((18 - $height(%criar.nick,Fixedsys,11)) / 2) %criar.nick
  drawsave @rasta Nome.bmp
  window -c @rasta
  //toolbar -aiz1y $+ %tool-transp Nome "Your Nick" Nome.bmp "/echo -a 9-=7[4Nick7]9=- $me thats you"
  //toolbar -is $calc($toolbar(Nome) + 1) sep-tool-4
  var %criar.janela = $active
  window -c @rasta
  window -ph +d @rasta 0 0 180 19
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra)  %tool-fonte %tool-tamanho-fonte  $calc((178 - $width(%criar.janela,Fixedsys,11)) / 2) $calc((18 - $height(%criar.janela,Fixedsys,11)) / 2)  %criar.janela
  drawsave @rasta Janela.bmp
  window -c @rasta
  //toolbar -aiz1y $+ %tool-transp Janela "Active Window" Janela.bmp "/echo -a 9-=7[4Window7]9=- $active  The Active window"
  //toolbar -is $calc($toolbar(janela) + 1) sep-tool-5
  var %criar.hora = $time(HH:nn:ss)
  window -c @rasta
  window -ph +d @rasta 0 0 81 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte  $calc((79 - $width(%criar.hora,Fixedsys,11)) / 2) $calc((18 - $height(%criar.hora,Fixedsys,11)) / 2) %criar.hora
  drawsave @rasta hora.bmp
  window -c @rasta
  //toolbar -aiz1y $+ %tool-transp Hora "Local Time" hora.bmp "/echo -a 9-=7[4Time7]9=- $time(HH:nn:ss) Local Time"
  //toolbar -is $calc($toolbar(Hora) + 1) sep-tool-1
  var %criar.data = $date
  window -c @rasta
  window -ph +d @rasta 0 0 90 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte $calc((88 - $width(%criar.data,Fixedsys,11)) / 2) $calc((18 - $height(%criar.data,Fixedsys,11)) / 2) %criar.data
  drawsave @rasta data.bmp
  window -c @rasta
  //toolbar -ai1y $+ %tool-transp Data "Local Date" data.bmp "/echo 9-=7[4DATE7]9=- $date Local Data"
  //toolbar -is $calc($toolbar(Data) + 1) sep-tool-2
  var %criar.idle = $duration($idle,0)
  window -c @rasta
  window -ph +d @rasta 0 0 174 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte $calc((172 - $width(%criar.idle,Fixedsys,11)) / 2) $calc((18 - $height(%criar.idle,Fixedsys,11)) / 2)  %criar.idle
  drawsave @rasta idle.bmp
  window -c @rasta
  //toolbar -ai1y $+ %tool-transp Idle "iDle" idle.bmp "/echo 9-=7[4IDLE7]9=- $duration($idle,0) iDle Time"  
  //toolbar -is $calc($toolbar(iDle) + 1) sep-tool-3
  //toolbar -az1 Rasta "click to remove toolbar" fogo.ico "/rtool2"  @rasta
  .timer_tool-mostra 0 1 ativa-tool-style-4
}

alias ativa-tool-style-4 {
  var %criar.nick = $me
  window -c @rasta
  window -ph +d @rasta 0 0 120 19
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra)  %tool-fonte %tool-tamanho-fonte  $calc((118 - $width(%criar.nick,Fixedsys,11)) / 2) $calc((18 - $height(%criar.nick,Fixedsys,11)) / 2)  %criar.nick
  drawsave @rasta nome.bmp
  window -c @rasta 
  //toolbar -p Nome Nome.bmp
  /toolbar -l Nome "/echo -a 9-=7[4Nick7]9=- $me thats your Nick"
  var %criar.janela = $active
  window -c @rasta
  window -ph +d @rasta 0 0 180 19
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra)  %tool-fonte %tool-tamanho-fonte  $calc((178 - $width(%criar.janela,Fixedsys,11)) / 2) $calc((18 - $height(%criar.janela,Fixedsys,11)) / 2)  %criar.janela
  drawsave @rasta Janela.bmp
  window -c @rasta
  //toolbar -p Janela Janela.bmp
  //toolbar -l Janela "/echo -a 9-=7[4Window7]9=- $active  The Active window"
  var %criar.hora = $time(HH:nn:ss)
  window -c @rasta
  window -ph +d @rasta 0 0 81 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra) %tool-fonte %tool-tamanho-fonte  $calc((79 - $width(%criar.hora,Fixedsys,11)) / 2) $calc((18 - $height(%criar.hora,Fixedsys,11)) / 2) %criar.hora
  drawsave @rasta hora.bmp
  window -c @rasta
  if ($toolbar(Hora)) {
    //toolbar -p Hora hora.bmp
    //toolbar -l Hora "/echo -a 9-=7[4TIME7]9=- $time(HH:nn:ss) Local Time"
  }
  var %criar.data = $date
  window -c @rasta
  window -ph +d @rasta 0 0 90 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra)  %tool-fonte %tool-tamanho-fonte   $calc((88 - $width(%criar.data,Fixedsys,11)) / 2) $calc((18 - $height(%criar.data,Fixedsys,11)) / 2) %criar.data
  drawsave @rasta data.bmp
  window -c @rasta
  if ($toolbar(Data)) {
    //toolbar -p Data data.bmp
    //toolbar -l Data "/echo 9-=7[4DATE7]9=- $date Local Data"
  }
  var %criar.idle = $duration($idle,0)
  window -c @rasta
  window -ph +d @rasta 0 0 174 18
  drawfill @rasta $colour(%tool-cor-fundo) $colour(%tool-cor-fundo) 1 1
  drawtext -pb @rasta $colour(%tool-cor-letra) $colour(%tool-cor-fundo-letra)  %tool-fonte %tool-tamanho-fonte   $calc((172 - $width(%criar.idle,Fixedsys,11)) / 2) $calc((18 - $height(%criar.idle,Fixedsys,11)) / 2)   %criar.idle
  drawsave @rasta idle.bmp
  window -c @rasta
  if ($toolbar(iDle)) {
    //toolbar -p Idle idle.bmp
    //toolbar -l iDle "/echo 9-=7[4IDLE7]9=- $duration($idle,0) iDle Time"
  }
}

Comments

Sign in to comment.
rhasttaff   -  May 13, 2009

update your mirc ;) should work

Thanks for try!

 Respond  
eyiezinc   -  Apr 29, 2009

i got this --->> TOOLBAR Unknown command.

 Respond  
Eugenio   -  Aug 22, 2008

yeah it works now

 Respond  
rhasttaff   -  Aug 21, 2008

resolved all clicks is up!!!

 Respond  
rhasttaff   -  Aug 21, 2008

Thanks Eugenio!! lol so much Thanks i write!!

yeahs now i see, when you click on the idle icon that showyou a old value of your idle.
but i still dont know why. becouse i've used the $duration($idle,0) mirc identifier.
i will try rosolv this :)

and the colors are Based on Mirc events colors that you can set/see the values on Alt+K

Jah Bless´´´

 Respond  
Eugenio   -  Aug 21, 2008

lol yeah its fixed and it pwnz!
but one more error......my idle time is 1 min off..... infact my idle time isnt working properly
and erm the colours are abit annoying -.-
/me rates 6

 Respond  
Eugenio   -  Aug 21, 2008

/me re-tests

 Respond  
rhasttaff   -  Aug 19, 2008

sorry by this Eugenio
and thanks to test my code :)

i find the problem with this. there is no error on the code

by some reason that i dont know what some long lines was brokened
and causing this error's
maybe becouse i made this post in a Txt file, i dont know!
but is this some long lines brokened.

i've pasted the code again now looks good!

thanks again!

Jah Bless´´´

 Respond  
Eugenio   -  Aug 19, 2008

;o

  • /drawtext: insufficient parameters (line 176, Rasta Toolbar)
  • Invalid format: $input (line 257, Rasta Toolbar)
    plus a few errors when I right click on the icon.
 Respond  
rhasttaff   -  Aug 19, 2008

hey! Thnaks Brothers for comment my post :)
I believe it may have started in version 6.21 maybe because of much use for Dlls to this purpose.
its turn ease manage the icons on toolbar.

Jah Bless´´´

 Respond  
KronicDreamer   -  Aug 19, 2008

/toolbar was a 6.3 addition i believe or a version close to it.
nice work.

 Respond  
^Neptune   -  Aug 19, 2008

This actually looks pretty neat
Never knew of a /toolbar command

 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.