Author Topic: СКРИНЫ v1.0  (Read 3423 times)

0 Members and 1 Guest are viewing this topic.

Золотой

  • Оплот сообщества
  • ****
  • Posts: 312
    • View Profile
СКРИНЫ v1.0
« on: October 17, 2016, 01:44:40 PM »
Code: (clickermann) [Select]
//                  17.10.2016
//            скрипт для "Clickermann v.4.12"
//                автор - Золотой
// предназначен для постоянной работы в фоновом режиме,
//на отдельнозапущеном кликере и управляется мышью  И ДИАЛОГОВЫМИ ОКНАМИ
#name "СКРИНЫ v1.0"
//       ЗАПУСК - нажатием средней кнопки мыши
//  нажатие левой кнопки мыши- указывает  первый угол
//  отпускание ЛКМ - указывает второй угол
//  скрин делается "перетаскиванием"


// Н А С Т Р О Й К И
//  внимание создайте в папке со скриптом папку "мои скрины" или укажите  путь к вашей папке по умолчанию
// будет ошибка интерпритации если сохраняет в несуществующую папку!
$papka= "мои скрины"  //укажите папку по умолчанию,  если нужно и путь к ней\
$nam= "Скрин_"        //укажите название по умолчанию

$zapr_papka=1 // 0 - запрашивать папку для сохранения, 1- сохранять в папку по умолчанию
//  ВНИМАНИЕ!  Если при сохранении указывать название уже существующих скринов, они будут заменены новыми
$nam_avto=2    // 0 - запрашивать имя скринов   ,1- номеровать  по порядку автоматически , 2- называть случайно( защита от затирания существующих скринов)
$color = 0     // 0 - запрашивать уровень COLORMODE,  1-8 использовать указанный
$sohr = 0      // 0 - запрашивать какие скрины сохранять, 1- обычный скрин, 2- с цветокоррекцией, 3- оба скрина
//=============================================

IF(iskeydown(4)=1)   // запуск нажатием средней кнопки мыши
   SWITCH($nam_avto)
   CASE(0)
      $nam=INPUTBOX("Введите имя файла", $nam, 20)
   CASE(1)
      INC($var,1)
      $nam=STRCONCAT($nam,$var)
   DEFAULT
      RND(1,5)
      $nam=STRCONCAT($nam,RND(1,1000000))
   END_SWITCH
   
   IF($zapr_papka=0)
      $papka=INPUTBOX("укажите папку для сохранения",$papka, 20)
   END_IF
   
   IF($sohr=0)
      $sohr = radiobox("Выберете какие скрины сохранять, CANCEL - оставит только 1 оригинал  ","обычный скрин","с цветокоррекцией","оба скрина")
   END_IF

   IF(($color=0)&($sohr!1))
      $color = radiobox("Выберете режим CLORMODE, CANCEL - оставит только 1 оригинал  ","1","2","3","4","5","6","7","8")
   END_IF
   
   HINTPOPUP ("нажмите ЛКМ на первом углу")
   WHILE(iskeydown(1)=0) // ждёт  нажатие левой кнопки мыши- указывает первый угол
      WAITMS(50)
   END_CYC
   $x1=$_xmouse
   $y1=$_ymouse
   HINTPOPUP ("отпустите ЛКМ на втором углу",STRCONCAT("верх ",$vx," ",$vy))
   WHILE(iskeydown(1)=1)  // ждёт отпускание ЛКМ - указывает второй угол
      WAITMS(100)       
      $x2=$_xmouse
      $y2=$_ymouse
      IF($x1>$x2)
         $vx=$x2
         $nx=$x1
      ELSE
         $vx=$x1
         $nx=$x2
      END_IF
      IF($y1>$y2)
         $vy=$y2
         $ny=$y1
      ELSE
         $vy=$y1
         $ny=$y2
      END_IF       
      $rx=$nx-$vx
      $ry=$ny-$vy         
      // в рабочем окне показывает размеры будущего скрипта
      LOGWRITE (STRCONCAT(" размеры: ", $rx," на ",$ry, " пикселей"))
   END_CYC     
   GETSCREEN($vx,$vy,$nx,$ny)
   //   LOGWRITE ($vx," ",$vy," ",$nx," ",$ny," ")
   IF($sohr!2)
// ошибка интерпритации если указана несуществующая папка
      SCREENSHOTFIX($vx,$vy,$nx,$ny,STRCONCAT($papka,"\",$nam,".bmp"))
   END_IF     
   HINTPOPUP(STRCONCAT("скрин - "$papka,$nam,".bmp"),STRCONCAT("размеры: ", $rx," на ",$ry, " пикселей"))   
   IF(($color!0)&($sohr!1))
      COLORMODE($color,$vx,$vy,$nx,$ny)
      SCREENSHOTFIX($vx,$vy,$nx,$ny,STRCONCAT($papka,"\",$nam,"_",$color,".bmp"))
   END_IF
   
   BEEP(800,200) // звуковой сигнал, скрипты готовы.
LOGCLEAR
END_IF
« Last Edit: October 17, 2016, 01:49:46 PM by Золотой »