uwscスクリプトのブログ

デリータの漫画制作ソフトComicWorks 2.0Maxは、デリータのトーン800種余を基本的に全部収録しているのが特徴で、よく
「トーン集としてだけでも買う価値がある」と言われていますが、
今回のスクリプトは、他のソフトのトーン集としてComicWorksを購入する人向けのツールです。
実行すると、収録されているトーンの全柄を、白黒二値のbmp画像として吐き出します。
(このスクリプトはVer2 Max用です。Works600,1200では別のスクリプトが必要です）

●使い方
ComicWorks Maxを起動して、新規作成で21.33cm×30.11cm、600dpi、モノクロ二値の新規ファイルを作成してください。
スクリプトの１行目が　tstver=true 　になっていますが、このまま実行してください

実行中のuwsファイルのあるフォルダにフォルダ「bmp」が作られ、その中にサブフォルダが作られます。
トーンを貼る->画像saveを繰り返し、テストモードでは3×3枚だけ、bmp化します。

正常にbmp変換されることが確認できたら、１行目をtstVer=false　に書き換えて再び実行すると、今度は全種類のトーンがbmpに変換されます。

全データを変換する場合、この作業には数時間かかります。(cw2で、作者の環境で約5時間）
600枚作ったところでいったんComicworksが終了、再起動して動き出しますが、異常ではありませんのでそのままお待ちください。
出力したbmpファイルは、works2max+追加新y柄をすべて出力した場合、3.60 GBになりますので、ハードディスクの容量を充分空けてから実行してください。

スクリプトを実行している間は、他のPC操作をしないでください。バックグラウンドで動作するようには作られていません。

他の操作をする場合は、Alt+F2で作業を中断し、他の操作が済んでから再開してください。
途中で中断した場合、中断したところから再開するように作られています。
失敗して白紙のbmpファイルができた場合は、そのbmpは削除してから再実行してください。
(bmpの有無でもう一度作成するかを判定しているので）

（注意・ComicWorks2Maxのアフィリエイトを付けましたが、ご購入の判断は自己責任でお願いします。
万一スクリプトが動作せず、bmpでの吐き出しがうまくいかなかった場合の補償はできかねます）



//worksToneCW2.uws　スクリプトここから、

public tstver=true
public worksPass

public bmpDir
public allToneDir
print "workstoneCW2 start"
bmpDir=GET_CUR_DIR+"\bmp"
worksID=GETID("DELETER COMICWORKS ","TMainForm")
worksPass=STATUS(worksID,ST_PATH)
allToneDir=copy(worksPass,1,pos("\",worksPass,-1))+"tones"+
makeBmpDir()
outputBmpFile()
print "worksToneCW2 end"
exec("Explorer.exe "+GET_CUR_DIR+"\bmp")
sound("beep")
sound("beep")

procedure worksExec()
exec(worksPass)
sleep(5)
worksID=GETID("DELETER COMICWORKS ","TMainForm")
SCKEY(worksID,VK_CTRL,VK_N) //新規作成
sleep(1)
KBD(VK_ENTER)　//OK
normalWait()
fend

procedure worksQuit()
worksID=GETID("DELETER COMICWORKS ","TMainForm")
MOUSEORG(worksID)
SCKEY(worksID,VK_CTRL,VK_Q)
sleep(1)
KBD(VK_N)
sleep(1)

fend

procedure makeBmpDir()
dirKazu=GetDir(allToneDir,"\")
ifb tstver=1 then
if dirkazu>3 then dirkazu=3
endif
for i=0 to dirKazu-1
nowDirName=GETDIR_FILES[i]
str=bmpDir+"\"+nowDirName
DosCmd("mkdir "+"bmp"+"\"+nowDirName)
next
fend

procedure outputBmpFile()
count =0
dirKazu=GetDir(allToneDir,"\")
ifb tstver=1 then
if dirkazu>3 then dirkazu=3
endif

worksID=GETID("DELETER COMICWORKS ","TMainForm")
MOUSEORG(worksID)
SCKEY(worksID,VK_CTRL,VK_W,VK_I)

for i=0 to dirKazu-1
a=GetDir(allToneDir,"\")
toneDirName=GETDIR_FILES[i]
toneDir=allToneDir+"\"+toneDirName
toneKazu=GetDir(toneDir)
ifb tstver then
if tonekazu>3 then tonekazu=3
endif

for j=0 to toneKazu-1
toneName1=GETDIR_FILES[j]
kakucho=POS( ".ds",toneName1)

if kakucho>0 then toneName=copy(toneName1,1,kakucho-1) else toneName=toneName1
//print toneName
saveFileName=bmpDir+"\"+toneDirName+"\"+toneName
IFB FOPEN(saveFileName+".bmp",F_EXISTS)=FALSE THEN // bmpファイルがあるかどうか確認

id=GETID("トーン","TFormTone")
ACW(id,378,220,250,491,0)

MOUSEORG(id)
CLKITEM(id,toneDirName)
SCKEY(id,VK_ALT,VK_T,VK_A)
MOUSEORG(id)
x=110+((j mod 5)*24)
y=80+(int(j/5)*24)
BTN(LEFT,CLICK,x,y,20)
id2=GETID("トーン貼り付け位置の指定")

ACW(id2,301,285,482,198,0)
MOUSEORG(id2)
CLkItem(id2,"繰り返し",CLK_BTN,FALSE)
SendStr(id2,　" 0 ",　1,1)
　　 SendStr(id2,　"100",　3,1)
CLKITEM(id2,"OK")

while STATUS(GETID(GET_ACTIVE_WIN),ST_TITLE)="トーン貼り付け位置の指定"
// while GETID("トーン貼り付け位置の指定")=GETID(GET_ACTIVE_WIN)
sleep(0.1)
wend

worksID=GETID("DELETER COMICWORKS ","TMainForm")

ACW(worksID,56,37,768,513,0)
SCKEY( worksID,VK_ALT,VK_F,VK_E)

saveID=GETID("別ファイル方式にエクスポート") // ver2
ACW(saveID,258,174,507,246,0)
MOUSEORG(saveID)
SendStr(saveID,saveFileName,1)

SCKEY(saveID,VK_ALT,VK_T)
SCKEY(saveID,VK_B)
CLKITEM(saveID,"保存",CLK_BTN or CLK_SHORT)
KBD(VK_Y)

renderOptionID=GETID("レンダリングオプション設定")
ACW(renderOptionID,365,218,294,332,0)
MOUSEORG(renderOptionID)
CLKITEM( renderOptionID,"ビットマップレイヤの",CLK_BTN or CLK_SHORT,1 )
CLKITEM( renderOptionID,　"文字レイヤ",　CLK_BTN or CLK_SHORT,0 )　

CLKITEM(renderOptionID,"OK")
waitID=GETID("処理中です")
while GETID(GET_ACTIVE_WIN)=waitID
sleep(0.1)
wend
worksID=GETID("DELETER COMICWORKS ","TMainForm")
ACW(worksID,56,37,768,513,0)
SCKEY( worksID,VK_CTRL,VK_A )
SCKEY( worksID,VK_DELETE )

normalWait()
count = count+1
ENDIF
IFB count>600 THEN
worksQuit()
worksExec()
count=0
ENDIF
next
next
fend

procedure normalWait()
while MUSCUR()=CUR_WAIT
sleep(0.1)
wend
fend

//ここまで　

// スクリプトをコピーして　テキストエディタでworksToneCW2.uwsとして保存　uwscで実行

  私のおすすめ:
ComicWorks2 Maxを購入