alias print {
if $isfile($1) {
write -c $scriptdirprint.bat @echo off $+ $lf $+ type $1 > lpt1
run -n print.bat
}
}

run it like this

/print <filename>

i thought it was a neat script so i though i would post it

The updated versions of mIRC don't require the alias tag at the beginning, just start it off like this:

print {

Just make sure you put it in your alias file correctly.

This is the script i have been working on slowly but surly

code:

---

;Warbot
on *:LOAD: { echo -a *** Thankyou for using Fun text by Pyrus *** 
  echo -a *** Right click in channel to use texts ***
}
menu channel {
  &Text Styles
  .姩�� &Style:say $at( $+ $$?="Enter Your Text:" $+ )
  .&Backwards:say $b( $+ $$?="Enter Your Text:" $+ )
  .&Caps:say $c( $+ $$?="Enter Your Text:" $+ )
  .&Black Color Band:bla $$?="Enter Your Text:"
  &About:{ about_fun }
}


;
;Colors Band
;

alias bla { say 15,11413121110987131211109815 $1- $+  15,114131211109871312111098 }


;
;ASCII
;
alias at {
  set %atalk $1-
  %atalk = $replace(%atalk,a,�)
  %atalk = $replace(%atalk,b,�)
  %atalk = $replace(%atalk,c,�)
  %atalk = $replace(%atalk,d,�)
  %atalk = $replace(%atalk,e,�)
  %atalk = $replace(%atalk,f,F)
  %atalk = $replace(%atalk,g,G)
  %atalk = $replace(%atalk,h,H)
  %atalk = $replace(%atalk,i,�)
  %atalk = $replace(%atalk,j,J)
  %atalk = $replace(%atalk,k,K)
  %atalk = $replace(%atalk,l,�)
  %atalk = $replace(%atalk,m,M)
  %atalk = $replace(%atalk,n,�)
  %atalk = $replace(%atalk,o,�)
  %atalk = $replace(%atalk,p,�)
  %atalk = $replace(%atalk,q,Q)
  %atalk = $replace(%atalk,r,�)
  %atalk = $replace(%atalk,s,�)
  %atalk = $replace(%atalk,t,t)
  %atalk = $replace(%atalk,u,�)
  %atalk = $replace(%atalk,v,V)
  %atalk = $replace(%atalk,w,\\')
  %atalk = $replace(%atalk,x,�)
  %atalk = $replace(%atalk,y,�)
  %atalk = $replace(%atalk,z,Z)
  return %atalk
  unset %atalk
}

;
; Backwords
;


alias b {
  if ($1- == $null) halt
  var %copy 0
  var %theresult $null
  while (%copy < $len($1-)) {
    inc %copy
    %theresult = $mid($1-,%copy,1) $+ %theresult
  }
  return %theresult
}


;
; Caps
;

alias c {
  var %t = 1 , %y = 1 , %out = ""
  while (%t <= $remove($len($1-),$chr(32))) {
    if ($mid($1-,%t,1) == $chr(32)) {
      var %out = %out $+ $chr(160) 
      goto next 
    }
    inc %y
    if (2 // %y) {
      var %out = %out $+ $upper($mid($1-,%t,1))
    }
    else { 
      var %out = %out $+ $lower($mid($1-,%t,1)) 
    }
    :next
    inc %t
  }
  if ($isid == $true) {
    return $replacecs(%out,$chr(160),$chr(32)) 
  }
  else { 
    msg $active $replacecs(%out,$chr(160),$chr(32)) 
  } 
}


;
; About Window
;

alias -l about_fun { if (!$window(@fun_about)) { window -ak0pChB +d @fun_about -1 -1 215 170 | window -a @fun_about | .timer 1 0 funtext_drawall } | else { window -a @fun_about } }
alias -l funtext_drawall {
  var %i = 0 | while (%i < 193) { drawfill -rn @fun_about $rgb(%i,%i,%i) $rgb(%i,%i,%i) 0 0 | drawrect -n @fun_about 1 1 0 0 $window(@fun_about).w $window(@fun_about).h | drawdot @fun_about | inc %i }
  var %i = 79 | while (%i > 0) { drawscroll @fun_about -1 -1 %i %i 130 80 | dec %i }
  .timer 1 0 funtext_drawbox
}
alias -l funtext_drawbox {
  var %i = 5 | while (%i < 205) { drawrect -r @fun_about $rgb(0,0,0) 1 5 5 %i 1 | inc %i }
  var %i = 1 | while (%i < 160) { drawrect -rf @fun_about $rgb(192,192,192) 1 5 5 205 %i | drawrect -r @fun_about $rgb(0,0,0) 1 5 5 205 %i | inc %i }
  .timer 1 0 funtext_drawtext
}
alias -l funtext_drawtext { funtext_fadetext @fun_about -h 15 15 Warbot | funtext_fadetext @fun_about -h 145 15 Version 1.5 | funtext_fadetext @fun_about -h 15 35 Created By: | funtext_fadetext @fun_about -s 25 47 [Pyrus] | funtext_fadetext @fun_about -h 15 61 Contact By: | funtext_fadetext @fun_about -s 25 73 Email: pyrus@shaw.ca | funtext_fadetext @fun_about -s 25 85 IRC: irc.slashnet.org | funtext_fadetext @fun_about -s 25 97 Channel: #totse | funtext_fadetext @fun_about -h 15 109 Website: | funtext_fadetext @fun_about -s 25 121 N/A (currently) | funtext_fadetext @fun_about -h 15 144 Close... }
alias -l funtext_fadetext {
  if ($2 == -h) { var %i = 192 | while (%i > 0) { drawtext -ro $1 $rgb(%i,%i,%i) Tahoma 10 $3- | dec %i } }
  if ($2 == -s) { var %i = 192 | while (%i > 74) { drawtext -r $1 $rgb(%i,%i,%i) Tahoma 10 $3- | dec %i } }
}
menu @fun_about {
  mouse: {
    if ($inrect($mouse.x,$mouse.y,15,144,35,12)) { drawtext -ro @fun_about $rgb(75,75,75) Tahoma 10 15 144 Close... }
    else { drawtext -ro @fun_about $rgb(0,0,0) Tahoma 10 15 144 Close... }
  }
  sclick: { if ($inrect($mouse.x,$mouse.y,15,144,35,12)) { close -@ @fun_about } }
}

---

The about screen is a little glitchy and i am having problems fixing it .. it loads if the Mirc screens are not maximzed but when they are maximized into mirc it goes a little glitchy please feel free to take this and modify it but give me a little credit in some of the script if you use it