HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0724
ウィーline命令6解決


ウィー

リンク

2008/7/24(Thu) 13:55:18|NO.17611

line命令とgetkey命令を使って
クリックした場所から線が伸びて、
もう一度クリックすると、
クリックしたところからもう一度クリックしたところまでの線が書ける。
というスプリクトを書きたいのですが、
ラインの始点をクリックしたところに持っていくことができません。
どうかやり方を教えてください。



この記事に返信する


近所のもっさん

リンク

2008/7/24(Thu) 15:32:49|NO.17615

作ってみたが…

onclick goto *draw stop *draw if mode=1 :gx=mousex :gy=mousey :mode=2 if mode=0 :sx=mousex :sy=mousey :mode=1 color ,,255 if mode=2 :line sx,sy,gx,gy color ,255, circle sx-5,sy-5,sx+5,sy+5 color 255,, circle gx-5,gy-5,gx+5,gy+5 if mode=2 :mode=0
getkeyを使ってなかった…
気を取り直して…

repeat getkey key if key=1 :gosub *draw wait 10 loop *draw if mode=1 :gx=mousex :gy=mousey :mode=2 if mode=0 :sx=mousex :sy=mousey :mode=1 color ,,255 if mode=2 :line sx,sy,gx,gy color ,255, circle sx-5,sy-5,sx+5,sy+5 color 255,, circle gx-5,gy-5,gx+5,gy+5 if mode=2 :mode=0 return

こんなんでいいのだろうか…



ウィー

リンク

2008/7/24(Thu) 15:50:28|NO.17616

ラインがすべてつながっているようにするにはどうしたらいいのですか?



Quiet

リンク

2008/7/24(Thu) 16:55:13|NO.17617


buffer 1 screen 0 mx=0:my=0 sx=0:sy=0 *main redraw 0 gsel 1 color 220,50,150 if k=1:k=2:line mx,my,sx,sy gsel 0 pos 0,0:gmode 0,640,480:gcopy 1 getkey ky,1 if k=0 & ky=1:mx=mousex:my=mousey:k=1 if k=2:sx=mx:sy=my if k=2 & ky=0:k=0 color 220,50,150 line mousex,mousey,sx,sy redraw 1 await 1 goto *main
こんな感じですか?



ウィー

リンク

2008/7/24(Thu) 17:12:51|NO.17618

上のやり方だとラインの始点がクリックしたところに来ないのですけど。



Quiet

リンク

2008/7/24(Thu) 17:18:14|NO.17619


buffer 1 screen 0 mx=0:my=0 sx=0:sy=0 *main redraw 0 gsel 1 color 220,50,150 if k=1:k=2:line mx,my,sx,sy gsel 0 pos 0,0:gmode 0,640,480:gcopy 1 getkey ky,1 if kk=0:sx=mousex:sy=mousey if k=0 & ky=1:kk=1:mx=mousex:my=mousey:k=1 if k=2:sx=mx:sy=my if k=2 & ky=0:k=0 color 220,50,150 line mousex,mousey,sx,sy redraw 1 await 1 goto *main
ちょっと修正しただけですが、こういう意味ですかね?
(すいません、物分り悪くて。)



ウィー

リンク

2008/7/24(Thu) 17:28:58|NO.17621

ありがとうございました。
解決しました。



ONION software Copyright 1997-2021(c) All rights reserved.