ПОМОГИТЕ УПРОСТИТЬ СКРИПТ И ЕЩЕ ХОТЕЛ БЫ ЗНАТЬ НЕТ ЛИ ОШИБОК заранее спасибо.
$arr[0]="1a.bmp"
$arr[1]="2a.bmp"
$arr[2]="3a.bmp"
$arr[3]="4a.bmp"
$arr[4]="5a.bmp"
$arr[5]="6a.bmp"
$arr[6]="7a.bmp"
$arr[7]="8a.bmp"
$arr[8]="9a.bmp"
SUB(click1)
FOR($i=0, $i < 9)
GETSCREEN
COLORMODE(6,707,302,746,358)
IF_PICTURE_IN (707,302,746,358,$arr[$i])
KEYDOWN($i+49)
WAITMS(50)
KEYUP($i+49)
GOTO(fin1)
END_IF
END_CYC
END_SUB
SUB(click2)
$s=0
FOR($i=0, $i < 9)
$s=$i+1
WAITMS(500)
GETSCREEN
COLORMODE(6,740,300,781,358)
IF_PICTURE_IN (740,300,781,358,$arr[$i])
KEYDOWN($i+49)
WAITMS(50)
KEYUP($i+49)
GOTO(fin2)
END_IF
END_CYC
END_SUB
SUB(click3)
$s=0
FOR($i=0, $i < 9)
$s=$i+1
WAITMS(500)
GETSCREEN
COLORMODE(6,775,300,814,357)
IF_PICTURE_IN (775,300,814,357,$arr[$i])
KEYDOWN($i+49)
WAITMS(50)
KEYUP($i+49)
GOTO(fin3)
END_IF
END_CYC
END_SUB
SUB(click4)
$s=0
FOR($i=0, $i < 9)
$s=$i+1
WAITMS(500)
GETSCREEN
COLORMODE(6,813,300,848,357)
IF_PICTURE_IN (813,300,848,357,$arr[$i])
KEYDOWN($i+49)
WAITMS(50)
KEYUP($i+49)
GOTO(fin4)
END_IF
END_CYC
END_SUB
start:
MOVE(692,389)
WAITMS(500)
LCLICK(692,389) // 16777215
click1()
WAITMS(500)
fin1:
click2()
WAITMS(500)
fin2:
click3()
WAITMS(500)
fin3:
click4()
WAITMS(500)
fin4:
WAITMS(500)
KEYPRESS(#ENTER)
WAITMS(500)
GETSCREEN
IF_PICTURE_IN (400,300,1065,600,"blok.bmp")
WAITMS(50)
SOUND("blip2.wav")
MOVE($_return1+8,$_return2+8)
WAITMS(50)
LCLICK($_return1+8,$_return2+8)
WAITMS(50)
KEYPRESS(#ENTER)
END_IF
GOTO(start)