а вот вопрос - как найти центр ячейки
Type soundsempler
Field x_start
Field y_start
Field ghz
Field image
Field fool
Field sound
Field stat
End Type
Function addPointSound(sample,x#,y#,i,f,gz#)
s.soundsempler=New soundsempler
s.soundsempler=s
s\x_start#=x#
s\y_start#=y#
s\image=i
s\fool=f : DrawImage s\fool,s\x_start#,s\y_start#
s\sound=PlaySound(sample)
PauseChannel s\sound
s\stat=0
s\ghz=gz#
End Function
Function updateSint()
Local xMO=MouseX()
Local yMO=MouseY()
For s.soundsempler = Each soundsempler
If xMO>ImageWidth(s\fool)-ImageWidth(s\fool) And yMO>ImageHeight(s\fool)-ImageHeight(s\fool) Then
If MouseHit(1) Then
s\stat=1
End If
End If
;End If
If s\stat=1 Then
DrawImage s\image,s\x_start#,s\y_start#
ResumeChannel s\sound
;s\ghz=s\ghz+MouseZSpeed ()
End If
ChannelPitch s\sound,s\ghz
Next
End Function
клетки в массиве:
For x=1 To GridW
For y=1 To GridH
addPointSound(s,sx+x*ItemW,sy+y*ItemH,inuse,defImg,8000+y*1000)
Next
Next