HSPTV!掲示板

OSもどきで利用するアイコン機能を制作しております
移動とダブルクリックは実装できたのですが
削除機能がうまくいきません
一番最初にアイコンを削除すると一番下のアイコンも同時に削除されてしまいます
ソースコードを修正していただけないでしょうか

#include"user32.as"

iconmax=5
iconx=5,5,5,5,5
icony=5,40,75,110,145
ShortcutMenu="新規作成"
ShortcutMenuHot="開く","新規作成","削除","情報表示"

screen 0,ginfo(20),ginfo(21),0,0,0
GetWindowLong hwnd, -16
SetWindowLong hwnd, -16, stat | $10000 | $40000
width dispx,dispy
sendmsg hwnd, $112, $F030
gosub*desktop_draw
onclick gosub*desktop_move
stop
*desktop_draw
redraw 0
color 0,0,200:boxf
repeat iconmax
if iconx(cnt)!-1&icony(cnt)!-1 :color cnt*50,0,0:boxf iconx(cnt),icony(cnt),iconx(cnt)+32,icony(cnt)+32
loop
redraw 1
return
*desktop_move
	if wparam==1 {
		clrobj:gosub*desktop_draw
		if doubleclick>0 {
			if defx==mousex&defy==mousey&doubleclick==2:doubleclick=0 {
				repeat iconmax
				if mousex>iconx(cnt)&mousex<iconx(cnt)+32&mousey>icony(cnt)&mousey<icony(cnt)+32 :iconno=cnt
				loop
				gosub*iconrun
			}
			doubleclick+1
			return
		}
		repeat iconmax
		if mousex>iconx(cnt)&mousex<iconx(cnt)+32&mousey>icony(cnt)&mousey<icony(cnt)+32 {
			iconID=cnt:doubleclick+1
			repeat
			defx=mousex:defy=mousey
			iconx(iconID)=mousex-16:icony(iconID)=mousey-16
			gosub*desktop_draw
			await 1
			getkey click,1
			if click==0 :break
			loop
		}
		loop
	}
	if wparam==2 {
		clrobj:gosub*desktop_draw
		repeat iconmax
			if mousex>iconx(cnt)&mousex<iconx(cnt)+32&mousey>icony(cnt)&mousey<icony(cnt)+32 :MouseIconHot=1:iconno=cnt
		loop
		if MouseIconHot==0 {
			gradf mousex,mousey,100,length(ShortcutMenu)*30,1,$FFFFFF,$000000
			objsize 100,30:pos mousex,mousey
			foreach ShortcutMenu
			button gosub""+ShortcutMenu(cnt),*ShortcutRun
			loop
		}
		if MouseIconHot==1 {
			gradf mousex,mousey,100,length(ShortcutMenu)*30,1,$FFFFFF,$000000
			objsize 100,30:pos mousex,mousey
			foreach ShortcutMenuHot
			button gosub""+ShortcutMenuHot(cnt),*ShortcutRunHot
			loop
		}
	}
	return
*ShortcutRun
	return
*ShortcutRunHot
	if stat==0 :gosub*IconRun
	if stat==2 :gosub*IconDelete
	return
*IconRun
	dialog"君が押したのはIcon "+iconno+" だね?",0,"神"
	clrobj:gosub*desktop_draw
	return
*IconDelete
	iconx(iconno)=-1:icony(iconno)=-1:iconmax-1
	clrobj:gosub*desktop_draw
	return

あとから気づいたのですが、
ダブルクリックをすると他のアイコンが動かなくなるバグも発見しました
修正お願いします

*IconDelete
のルーチンで
iconmax-1
しているからじゃないですか？
icony(iconno)=-1
で消しているわけでさらにmax-1すれば、最後が消えるのは当たり前だと思います。

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

doubleclickの変数がおかしいようですね。
一部ですが、こんな感じに直してみてはどうでしょう

	if wparam==1 {;左ボタン
		clrobj:gosub*desktop_draw
		if (defx=mousex and defy=mousey) {
			doubleclick = 1
		}
	
		if doubleclick {
			doubleclick = 0
			repeat iconmax
			if mousex>iconx(cnt)&mousex<iconx(cnt)+32&mousey>icony(cnt)&mousey<icony(cnt)+32 {
				iconno=cnt
			}
			loop
			gosub*iconrun
			return
		}

		repeat iconmax
			if mousex>iconx(cnt)&mousex<iconx(cnt)+32&mousey>icony(cnt)&mousey<icony(cnt)+32 {
				iconID=cnt
				repeat
					defx=mousex:defy=mousey
					iconx(iconID)=mousex-16:icony(iconID)=mousey-16
					gosub*desktop_draw
					await 1
					getkey click,1
					if click==0 {
						break
					}
				loop
			}
		loop
	}

bellyoshiさん ありがとうございました!