rpower=1
near=instance_nearest(x,y,object1)
if near.rpower=1
   {
   instance_destroy()
   }

x1=x '//x первого объекта
y1=y '//y первого объекта

xx=x '//координаты твоего объекта которому нужно знать про рядом находящиеся объекты
yy=y '//координаты твоего объекта которому нужно знать про рядом находящиеся объекты
For i = -32 To 32
For j = -32 To 32
If xx+i = x1 And yy+j =  y1 Then
'instance_destroy() - в VB нет такой функции, потому пишу её в коммент.тут главно разрушить другой объект, а не этот
End If
If xx+i = x2 And yy+j =  y2 Then
'instance_destroy() - в VB нет такой функции, потому пишу её в коммент.тут главно разрушить другой объект, а не этот
End If
Next
Next

global.x1=x //x первого объекта  
  global.y1=y //y первого объекта

global.x2=x //x второго объекта  
  global.y2=y //y второго объекта

var i,j {
xx1=x
yy1=y
for (i=-32;i<=32;i+=1) {
for (j=-32;j<=32;j+=1) {
if xx1+i=global.x1 {
if yy1+j=global.y1 {
instance_destroy()
}
if xx1+i=global.x2 {
if yy1+j=global.y2 {
instance_destroy()
}
}
}  
}  
}
}

if xx1+i=global.x2 {
if yy1+j=global.y2 {
instance_destroy()
}
}

with lever_obj
{
if (distance_to_object(other)<32) && (rpower=1)
{
with other
{
rpower=1
}
}   
else
{
rpower=0
}
}
if rpower=1
{
image_index=1
}
else
{
image_index=0
}

with lever_obj
{
if (distance_to_object(other)<32) && (rpower=1)
{
with other
{
rpower=1
}
}  
else  
{
with other
{
rpower=0
}
}
}
if rpower=1
{
image_index=1
}
else
{
image_index=0
}

enemynumb=global.enemynumb
global.enemynumb+=1