間違いもあるかもな”ぐだぐだな”スクリプトですが
ご参考までに・・・・w
■"ONION++" Buttonon mouseUp
Set cursor to watch
put "0" into i
put "0" into j
lock screen
choose select tool
doMenu select All
doMenu "Opaque"
domenu "Copy Picture"
doMenu "Transparent"
doMenu "Background","Edit"
choose select tool
doMenu select All
doMenu clear picture
domenu "Paste Picture"
get the brush
choose brush tool
set the brush to 32
repeat 140
set the pattern to 1 --white
drag from i,0 to i,240
add 3 to i
end repeat
repeat 80
drag from 0,j to 400,j
add 3 to j
end repeat
set the brush to it
set the pattern to 12 --black
doMenu "Background","Edit"
doMenu "New Card"
Put "PARA ONION" INTO BACKGROUND FIELD ID 22
choose browse tool
unlock screen
end mouseUp■"Next" Buttonon mouseUp
go next
end mouseUp■"Prev" Buttonon mouseUp
go prev
end mouseUp■"NewCard" Buttonon mouseUp
doMenu "New Card"
put "PARA ONION" into background field ID 22
end mouseUp■"DeleteCard" Buttonon mouseUp
doMenu "Delete Card"
end mouseUp■"ClearBG Picture" Buttonon mouseUp
lock screen
doMenu "Background","Edit"
choose select tool
doMenu select All
doMenu clear picture
doMenu "Background","Edit"
choose browse tool
unlock screen
end mouseUp■"Show/Hide BG" Buttonon mouseUp
get the style of bkgnd button id 4
if it = transparent then
set the style of bkgnd button id 4 to opaque
else
set the style of bkgnd button id 4 to transparent
end if
end mouseUp■"Start" Buttonon mouseUp
go first
end mouseUp■"Rewind" Buttonon mouseUp
get background field id 33
repeat forever
go prev
wait it
if the mouse is Down then exit repeat
end repeat
end mouseUp■"Speeed" Field
(background field id 33)
■"Play" Buttonon mouseUp
get background field id 33
repeat forever
go next
wait it
if the mouse is Down then exit repeat
end repeat
end mouseUp■"Window400x240" Buttonon mouseUp
set rect of card window to 80,50,480,290
end mouseUp■"Window512x342" Buttonon mouseUp
set rect of card window to 80,50,632,432
end mouseUp■"CardDumper" Buttonon mouseUp
open "CardDumper"
end mouseUp