Welcome Guest | RSS
BigText - mIRC Land
Home | BigText - mIRC Land | Sign Up | Log In
To skip the ad click continue and skip
 
[ New messages · Members · Forum rules · Search · RSS ]
Page 1 of 11
Forum moderator: Wikked 
mIRC Land » mIRC Scripts » mIRC User (User-Wise) Scripts » BigText (BigText)
BigText
WikkedDate: Sunday, 01/01/2017, 7:03:27 AM | Message # 1
I Own This
Group: Moderators
Messages: 4
Reputation: 0
Status: Offline
Just copy and paste in Aliases then type /bigtext <text>

Code


; Put in aliases.

BigText {
  ;Defined Font: /bixtext "Font name" size Text
  ;Default Font: (fixedsys) /bigtext Text
  var %font = $regex($1-,/(".*?")/)
  %font = $regml(1)
  if (%font) { tokenize 32 $gettok($1-,2-,34) }
  else { %font = fixedsys | tokenize 32 -1 $1- }
  var %width = $width($2-,%font,$1,0,1) , %height = $height($2-,%font,$1)
  window -Bhpf +d @Convert 1 1 %width %height
  drawrect -rf @Convert 16711935 1 0 0 $window(-1).w $window(-1).h
  drawtext -p @Convert 0 %font $1 0 0 $2-
  var %y = 0 | while (%y < %height) {
    var %x = 0 | while (%x < %width) {
      var %addto = $iif($getdot(@convert,%x,%y) = 16711935,$chr(160),$+(,$FindColor($v1),$chr(160),))
      var % $+ line. $+ %y $eval(% $+ line. $+ %y,2) $+ %addto
      inc %x
    }
    inc %y
  }
  var %y = 0 | while (%y < %height) {
    if ($eval($+(%,line.,%y),2)) { var %line = $ifmatch | if (%line != $strip(%line,burc)) { $iif($show,say,echo -a) %line } }
    inc %y
  }
  window -c @Convert
}
FindColor {
  var %x = 0 | while (%x < 16) {
    if ($color(%x) = $1) { return %x $+ , $+ %x }
    inc %x
  }
}

 
mIRC Land » mIRC Scripts » mIRC User (User-Wise) Scripts » BigText (BigText)
Page 1 of 11
Search:

Copyright MyCorp © 2017