// Îáó÷åíèå âîèíîâ Vikings: War of Clans by Torsvit v1.3
// Çàïóñêàåòñÿ â áðàóçåðå firefox ïðè ìàñøòàáå 67% â îêîííîì ðåæèìå



$line   		= 2   	// Ñòðîêà ñ îáó÷àåìûì âîéñêîì îò 1 äî 2
$column 		= 4			// Êîëîíêà ñ îáó÷àåìûì âîéñêîì îò 1 äî 4
$count  		= 1000	// Êîëè÷åñòâî âîéñê â 1ì çàõîäå îáó÷åíèÿ
$number 		= 1			// Íîìåð óñêîðåíèÿ â ñïèñêå îò 1 äî 3
$click  		= 1			// Êîëè÷åñòâî êëèêîâ ïî óñêîðåíèþ
$3d_7d_15d 	= 0			// Çàïðåòèòü 0 èëè Ðàçðåøèòü 1 óñêîðû 3, 7, 15 äíåé (íà ñâîé ñòðàõ è ðèñê)









// Íàñòðîéêè îêíà
SUB(win)
   $hgame = WNDFIND("Vikings: War of Clans | Plarium.com - Mozilla Firefox")
   HSET($hgame,1)
   WNDSIZE($hgame,704,687)
END_SUB

// Âûáðàòü òèð è òèï âîéñê
SUB(tyr)
   $x = 147+134*($column-1)
   $y = 356+179*($line-1)

   LCLICK($x,$y)
   waitms(50)

   $f = true
   WHILE($f = true)
      GETSCREEN(199,221,201,223)
      COLORMODE(6)
      IF(PXL(200,222) = 4161343)
         $f = false
      else
         waitms(50)
      END_IF
   END_CYC
END_SUB

// Ââåñòè êîëè÷åñòâî è íàæàòü îáó÷èòü
SUB(train)

   LCLICK(521,370)
   WAITMS(100)
   KEYSTRING($count,50)
   WAITMS(150)
   LCLICK(419,404)
   WAITMS(50)

   $f = true
   WHILE($f = true)
      GETSCREEN(616,577,618,579)
      COLORMODE(6)
      IF(PXL(617,578) = 4161407)
         $f = false
      else
         waitms(50)
      END_IF
   END_CYC
END_SUB

// Íàæàòü íà êíîïêó óñêîðèòü
SUB(accel)
   LCLICK(590,595)
   WAITMS(50)

   $f = true
   WHILE($f = true)
      GETSCREEN(259,211,261,213)
      COLORMODE(6)
      IF(PXL(260,212) = 4145023)
         $f = false
      else
         waitms(50)
      END_IF
   END_CYC
END_SUB

// âûáèðàåì óñêîðåíèå è ïðèìåíÿåì
SUB(click_accel)
   $exit = false
   switch($number)
   case(1)
      GETSCREEN(156,285,215,367)
      COLORMODE(7)
      if((pxl(196,321) ! 8355839) | ($3d_7d_15d = 1))
         LCLICK(439,351)
         waitms(50)
         for($i=1,$i<$click)
            waitms(250)
            LCLICK(439,351)
            waitms(50)
         end_cyc
      else
         waitms(50)
         $exit = true
         halt
      end_if
   case(2)
      GETSCREEN(156,385,215,464)
      COLORMODE(7)
      if((pxl(195,420) ! 8355839) | ($3d_7d_15d = 1))
         LCLICK(439,450)
         waitms(50)
         for($i=1,$i<$click)
            waitms(250)
            LCLICK(439,450)
            waitms(50)
         end_cyc
      else
         waitms(50)
         $exit = true
         halt
      end_if
   case(3)
      GETSCREEN(156,482,215,561)
      COLORMODE(7)
      if((pxl(195,519) ! 8355839) | ($3d_7d_15d = 1))
         LCLICK(439,550)
         waitms(50)
         for($i=1,$i<$click)
            waitms(250)
            LCLICK(439,550)
            waitms(50)
         end_cyc
      else
         waitms(50)
         $exit = true
         halt
      end_if
   end_switch

   $time = 0
   $f = true
   WHILE($f = true)
      GETSCREEN(239,211,241,213)
      COLORMODE(6)
      IF(PXL(240,212) = 4144959)
         $f = false
      else
         waitms(50)
         $time = $time + 50

         if(($time>500) & ($exit=false))
            switch($number)
            case(1)
               LCLICK(439,351)
            case(2)
               LCLICK(439,450)
            case(3)
               LCLICK(439,550)
            end_switch
            $time = 0
         END_IF
      END_IF
   END_CYC
END_SUB

win()
while(1)
   tyr()
   train()
   accel()
   click_accel()
end_cyc