mIRC Bigtext
mirc te büyük yazılar yazmak isterseniz ?
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 |
alias bigtext { if (!$1) { return } tokenize 9 $1- if ($0 == 1) { var %fc = 01, %bc = 00, %fs = 10, %ff = Fixedsys } else { if ($3) { var %fc = $gettok($2,1,32), %bc = $gettok($2,2,32), %fs = $gettok($3,1,32), %ff = $gettok($3,2-,32) } else { if ($gettok($2,2-,32) isnum) { var %fc = $gettok($2,1,32), %bc = $gettok($2,2,32), %fs = 10, %ff = Fixedsys } else { var %fs = $gettok($2,1,32), %ff = $gettok($2,2-,32), %fc = 01, %bc = 00 } } } if (%bc !isnum 0-15) { %bc = 00 } if (%fc !isnum 0-15) { %fc = 01 } if (!%ff || !$isfontinstalled($qt(%ff))) { %ff = Fixedsys } if (!%fs || %fs !isnum) { %fs = 10 } var %text = $1, %i 0, %y 0 %fc = $base(%fc,10,10,2) %bc = $base(%bc,10,10,2) window -hp @bigtext drawfill -r @bigtext $color(%bc) $color(%bc) 0 0 drawtext -brp @bigtext $color(%fc) $color(%bc) $qt(%ff) %fs 0 0 %text var %heightend = $height(%text,%ff,%fs) + 1, %widthend = $width(%text,%ff,%fs,0,1) + 1 while (%y <= %heightend) { var %x 0, %s = $null while (%x <= %widthend) { var %c = $iif($getdot(@bigtext,%x,%y) != $color(%bc),$coc($v1,%fc),%bc) if (%lc != %c) { var %lc = %c %c = $+($chr(3),%c,$chr(44),%c) } else %c = $null %s = $+(%s,%c,@) inc %x } %s = $+($chr(3),%bc,$chr(44),%bc,@,%s,$chr(3),%bc,$chr(44),%bc,@) if ($regex(%s,/\x03(?! $+ %bc $+ )/)) { msg $active %s inc %i } inc %y } window -c @bigtext } alias coc { var %i 0 while (%i < 16) { if ($color(%i) == $1) return $base(%i,10,10,2) inc %i } return $base($2,10,10,2) } ;Alias by praetorian. alias isfontinstalled { var %w = @isfontinstalled,%f = isfontinstalled.bmp window -ak0pBfh +d %w -1 -1 200 100 drawfill -r %w $rgb(0,0,0) $rgb(0,0,0) 0 0 drawtext -r %w $rgb(255,255,255) "this is surely not the name of an installed font" -9 5 5 test. drawsave %w %f var %crc = $crc(%f) clear %w drawfill -r %w $rgb(0,0,0) $rgb(0,0,0) 0 0 drawtext -r %w $rgb(255,255,255) $+(",$1,") -9 5 5 test. drawsave %w %f var %crc2 = $crc(%f) .remove %f window -c %w if (%crc != %crc2) { return $true } else { return $false } } |