set %pic[1] LoadImage (C:\TMP\Original.bmp)
printscreen workwindow 0 0 1920 1080 C:\TMP\_.bmp
for #EndX 500 502
  set %scrin GetImage (470 924 #EndX 933)
  set #type %scrin[1 1]
  set #PR FindImage(0 0 1920 1080 (%pic[1 1]) %PR #type 92 1)
  init_arr %name(1) c:\TMP\ SaveScrin _  - #EndX _ #PR % .bmp
  set $NameScrin %name[1]
  set $bmp SaveImage (%scrin[1 1] $NameScrin)
  set $b DeleteImage  (%scrin [1 1])
end_for
set $bmp SaveImage (%pic[1 1] "C:\TMP\SaveOriginal.bmp")
stop_script
