точка всех вещей для СТ++ Опции

[IvaniuS]

вчера задался идеей написать данный скрипт и чтобы он работал на ура, возможно что-то буду менять, сделал его максимально удобным и доступным, всего по 2-м точкам вычисляю все остальные (коих больше 14)

Код

//Enchant all
set #handleWin findwindow (Lineage II)
set workwindow  #handleWin
:sets
set %armor[1 1]  1185 //cords X Helmet  center!!!
set %armor[1 2]  390 //Y center
set %cords[1 1] 1065  //where X ench UP center!!!
set %cords[1 2] 600  //where Y ench UP center!!!
//DONT EDIT VARIABLES
set #cordsxc 85  
set #cordsyc 115
set #SImgX  150
set #SImgY  50
set #EImgX  150
set #EImg  35
//end
set #maxench 20  
set $NSlotEnch F1  //key where SOE
//allready ench on ? if u want for skip item set enchant to maxench 
set %startench [1] 5 //helmet
set %startench [2] 0 //
set %startench [3] 0 //
set %startench [4] 0 //
set %startench [5] 0 //boots
set %startench [7] 5 //shirt
set %startench [8] 0 //belt
set %startench [9] 0 //erring 1
set %startench [10] 1 //
set %startench [11] 1 //
set %startench [12] 0 //
set %startench [13] 0 //ring 2
set %startench [15] 0 //shield
set #curritm 1 //start item
set $truench z.bmp
set $additem swrd.bmp
// calculations
set %CSImg[1 1] %cords[1 1] - #SImgX
set %CSImg[1 2] %cords[1 2] + #SImgY
set %CSImg[2 1] %CSImg[1 1] + #EImg 
set %CSImg[2 2] %CSImg[1 2] + #EImg
set %cords[2 1] %cords[1 1] - #cordsxc
set %cords[2 2] %cords[1 2] + #cordsyc
set %cords[3 1] %cords[1 1] - 20
set %cords[3 2] %cords[1 2] - 20
set %cords[4 1] %cords[1 1] + 20
set %cords[4 2] %cords[1 2] + 20
set %cords[5 1] %cords[2 1] + 75
set %cords[5 2] %cords[2 2]
set %javel[1 1] %armor[1 1] + 150 //cords X first Earring
set %javel[1 2] %armor[1 2] 
set %armor[2 2] %armor[1 2]
:Enchant
if %startench [#curritm] < #maxench
   send $NSlotEnch
   wait 200
   if #curritm > 8
     set %javel[2 2] %javel[1 2] + (#curritm - 7) *40  
     kleft_down %javel[1 1], %javel[2 2]
   else
     set %armor[2 2] %armor[1 2] + (#curritm - 1) *40  
     kleft_down %armor[1 1], %armor[2 2]
   end_if
   kleft_up  %cords[1 1], %cords[1 2]
   double_kleft %cords[2 1], %cords[2 2]
   wait 50
   double_kleft %cords[2 1], %cords[2 2]
   wait 150
   set #img findimage (%cords[3 1], %cords[3 2] %cords[4 1], %cords[4 2]($additem) %arr 2 70 1 7)
   if  #img > 0
     kleft %cords[5 1], %cords[5 2]   
     goto Enchant
   else
     wait 2600
     goto check
   end_if    
else 
   if #curritm < 14
     set #curritm #curritm +1
     if (#curritm = 6) or (#curritm = 12)
       set #curritm #curritm +1
     end_if
     goto enchant
    else
      stop_script
    end_if
end_if
:check
set #img findimage (%CSImg[1 1], %CSImg[1 2] %CSImg[2 1], %CSImg[2 2]($truench) %arr 2 73 1 8)
if #img > 0
  set  %startench [#curritm]  %startench [#curritm] +1
else
  set  %startench [#curritm] 3
end_if

goto enchant

изображения в папку с пилотом, если кто может помочь оптимизировать или еще как ускорить работу - только за и еще вроде бы не было за день ложных или не срабатываний, но это у меня... еще вам нужен будет сам патч где надпись совпадает... http://rghost.ru/43257508