on mouseUp
pgcolorx "new",0,"512,384"
pgcolorx "new",1,"512,384"
pgcolorx "pastepict",0
pgcolorx "copybits",0,cd
repeat with i=0 to 192
pgcolorx "copybits",0,1,"0,"&i*4&",512,"&i*4+1,"0,"&i*4+1,"xor"
pgcolorx "copybits",0,1,"0,"&i*4+1&",512,"&i*4+2,"0,"&i*4+3,"notxor"
pgcolorx "copybits",0,1,"0,"&i*4+2&",512,"&i*4+3,"0,"&i*4+0,"xor"
pgcolorx "copybits",0,1,"0,"&i*4+3&",512,"&i*4+4,"0,"&i*4+2,"notxor"
end repeat
pgcolorx "copybits",1,cd
pgcolorx "copypict",1
end mouseUp
on mouseEnter
PgColorX "Paint", "cd", "#FFFF99", rect of me
PgColorX "String", "cd", short name of me, "#000000", topLeft of me,"or"
Go to this cd
end mouseEnter
on mouseLeave
PgColorX "Paint", "cd", "#FFFFCC", rect of me
PgColorX "String", "cd", short name of me, "#000000", topLeft of me,"or"
Go to this cd
end mouseLeave
というスクリプトで、カーソルが上に来ると色を変えるように細工がしてあります
(PgColorX "Flash"ではなく、go to this cdを使っているのは、
Flashの方だと、切り替えが遅く・不安定になったためです)。
<移動先の状況>
on OpenCard〜end OpenCardで、画像を消えないカラーでインストールしています。