@echo off&title Code by Taurus&mode con: cols=21 lines=1&color 0a
set TRW1=%~1
if not defined TRW1 exit
set/p=       Loading <nul
set o6=F&set o5=F&set o4=0&set o3=F&set o2=0&set o1=F
set RBHTA="%~dp0\Rainbowtext.hta"
set RBCODE="%tmp%\Discuzcode"
set RBHC="%tmp%\HTMLCode"
(
     echo ^<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"^>
     echo ^<html^>
     echo ^<head^>
     echo ^<script laguage="javascript"^>
     echo var SW =window.screen.width-767;
     echo window.resizeTo^(768,452^);
     echo window.moveTo^(SW,-500^);
     echo var y=-500;
     echo show=setInterval^("move()",1^);
     echo function move^(^){
     echo if^(0^>y^){
     echo y+=20;
     echo window.moveTo^(SW,y^);
     echo } else {
     echo clearInterval^(show^);
     echo }
     echo }
     echo function move2^(^){
     echo if^(y^>-500^){
     echo y-=20;
     echo window.moveTo^(SW,y^);
     echo } else {
     echo window.close^(^);
     echo }
     echo }
     echo ^</script^>
     echo ^<hta:application border="dialog" maximizebutton="no" scroll="no" MinimizeButton="no" caption="no" ID="oHTA" SysMenu="no" icon="C:\windows\system32\cmd.exe"^>
     echo ^<meta http-equiv="Content-Type" content="text/html"^>
     echo ^<title^>Taurus's Rainbow Text^</title^>
     echo ^<style type="text/css"^>
     echo p{
     echo     overflow: scroll;
     echo     width: 688px;
     echo     height: 150px;
     echo     padding: 1em;
     echo     border: 4px solid #FF0000;
     echo     line-height: 1.5;
     echo     color: #FF0000;
     echo     background: #000000;
     echo     margin-left: auto; margin-right: auto; margin-top: 0px;
     echo }
     echo h1{
     echo     width: 351px;
     echo     background: #FF0000;
     echo     font-size: 16px;
     echo     font-weight:bold;
     echo     margin-left: auto; margin-right: auto; margin-bottom: 3px;
     echo }
     echo form{
     echo     width: 728px;
     echo     margin-left: auto; margin-right: auto;  margin-top: 0px;
     echo }
     echo textarea{
     echo     width: 339px;
     echo     height: 100px;
     echo     background: #FFFFFF;
     echo     border: 5px solid #FF0000;
     echo     margin-left: auto; margin-right: auto; margin-top: 0px;
     echo }
     echo body{
     echo     background: #000000;
     echo }
     echo table{
     echo    border: 8px solid #FF0000;
     echo    margin-left: auto; margin-right: auto; margin-top: 0px;
     echo }
     echo ^</style^>
     echo ^</head^>
     echo ^<body^>
     echo ^<H1 style="width: 728px;"^>¡EEffect of Sample^</H1^>
     echo ^<p^>
     echo ^<marquee direction=down scrollamount=6^>
)>%RBHTA%
(
     echo ^<H1^>¡EDiscuz Code^</H1^>
     echo ^<center^>
     echo ^<textarea name=txt1^>
)>%RBCODE%
for /f "delims=:" %%i in ('findstr /n .* "%~1"') do set lines=%%i
for /f "delims=" %%Z in ('findstr .* "%~1"') do (
     set "str=%%Z"
     set /a strnub=0
     set /a line+=1
     call :Printing
)
type %RBHC%>>%RBHTA%
(
     echo ^</marquee^>
     echo ^</p^>
     echo ^<table^>
     echo ^<tr^>
     echo ^<td^>
     echo ^<H1^>¡EHTML Script^</H1^>
     echo ^<center^>
     echo ^<textarea name=txt2^>
)>>%RBHTA%
type %RBHC%>>%RBHTA%
(
     echo ^</textarea^>
     echo ^</center^>
     echo ^</td^>
     echo ^<td^>
)>>%RBHTA%
type %RBCODE%>>%RBHTA%
(
     echo ^</textarea^>
     echo ^</center^>
     echo ^</td^>
     echo ^</tr^>
     echo ^</table^>
     echo ^<table style="width:734px;border:0px"^>
     echo ^<td^>
     echo ^<INPUT onclick=javascript:document.all['txt2'].focus^(^);document.all['txt2'].select^(^);word=document.all['txt2'].createTextRange^(^);word.execCommand^(^&quot;Copy^&quot;^);alert^("...Complete!...................."^) type=button value="Copy HTML Script"^>
     echo ^<INPUT onclick=javascript:document.all['txt1'].focus^(^);document.all['txt1'].select^(^);word=document.all['txt1'].createTextRange^(^);word.execCommand^(^&quot;Copy^&quot;^);alert^("...Complete!...................."^) type=button value="Copy Discuz Code"^>
     echo ^</td^>
     echo ^<td style="text-align:right"^>
     echo ^<u^>
     echo ^<font size="2" color="#FF0000"^>Taurus Script PointTM  ^(R^)2009^</font^>
     echo ^</u^>
     echo ^<input type=button value="  EXIT  " onclick=setInterval^("move2()",1^);^>
     echo ^</td^>
     echo ^</table^>
     echo ^</body^>
     echo ^</html^>
)>>%RBHTA%
del %RBHC%
del %RBCODE%
start "" %RBHTA%
exit
:Printing
setlocal enabledelayedexpansion
set /a cope=!line!00/%lines%
if !cope!==100 set copes=Complete:!cope!%%
if !cope! lss 100 set copes=Complete: !cope!%%
if !cope! lss 10 set copes=Complete:  !cope!%%
:Printing2
if not defined str (
     if !findW!==1 (
         echo.>>%RBCODE%
         echo.^<br^>>>%RBHC%
     )
     goto :eof
)
if not "!str:~0,1!"=="" if not "!str:~0,1!"==" " set findW=1
if !Loading!==10 set Load=
if !Loading!==20 set Load=.
if !Loading!==30 set Load=. .
if !Loading!==40 set Load=. . .
set/p=<nul
set/p=    !copes!<nul
title Loading !Load!
if !Loading!==60 (
     set Loading=0
     ) else (
     set /a Loading+=1
)
for /l %%a in (1,1,6) do (
     set /a nn=%%a+1
     if "!o%%a!" == "10" set o%%a=A
     if "!o%%a!" == "11" set o%%a=B
     if "!o%%a!" == "12" set o%%a=C
     if "!o%%a!" == "13" set o%%a=D
     if "!o%%a!" == "14" set o%%a=E
     if "!o%%a!" == "15" set o%%a=F
     if "!o%%a!" == "16" set o%%a=0&call set /a o!nn!=0x%%o!nn!%%+1
     if "!o%%a!" == "-1" set o%%a=F&call set /a o!nn!=0x%%o!nn!%%-1
)
set HEX=!o6!!o5!!o4!!o3!!o2!!o1!
if !HEX!==FF0F0F set digit=4&set FML=+
if !HEX!==FFFF0F set digit=6&set FML=-
if !HEX!==0FFF0F set digit=2&set FML=+
if !HEX!==0FFFFF set digit=4&set FML=-
if !HEX!==0F0FFF set digit=6&set FML=+
if !HEX!==FF0FFF set digit=2&set FML=-
call set /a o!digit!=0x%%o!digit!%%!FML!3
set /p "var=^<font color^=#!HEX!^>!str:~0,1!^<^/font^>"<nul>>%RBHC%
set /p "var=[color^=#!HEX!]!str:~0,1![/color]"<nul>>%RBCODE%
endlocal&set o6=%o6%&set o5=%o5%&set o4=%o4%&set o3=%o3%&set o2=%o2%&set o1=%o1%&set FML=%FML%&set digit=%digit%&set line=%line%&set findW=%findW%&set "loading=%loading%"&set /a strnub+=1&set load=%Load%
setlocal enabledelayedexpansion
set "str=!str:~%strnub%,1!"
goto :Printing2