User:Asnath/Boards

// This macro is intended for AC Tools
// Macro will ask for Number of Woodplane you want to use, and quantity of wood to use.
// Please compute exact qte of wood, cause I did not round up figures.
// Please close chat tab before starting.
// It should work on any screen resolution / view / zoom, as long as you can see and reach all carpentry shops from where you are.
// Macro does not change blades when broken but will when I'll find time to do it.

constants
  Nbplanche = 0
  Nbplan = 0
  MouseCoordX = 0
  MouseCoordY = 0
  NbofWoodplane = 6
  QtofWood = 60
  Scrwidth=0
  Nbtime = 0
  I=1
  x=0
  y=0
  totalloop=0
end

Form Plan, Settings
  ed1=Editbox:Nombre de plans de bois:2
  ed2=Editbox:Nombre de planches:2
END

Constructs 
  ListeX=List
  ListeY=List
  OEOffset=List
  File1=File
  File2=File
end

FormLoad Plan, Plan.frm

if ShowForm Plan
  Set Nbplan = Plan[ed1]
  Set Nbplanche = Plan[ed2]
  Set totalloop=0
else
  stop
end

FormSave Plan, Plan.frm

SetActiveWindow eGenesis Client
Delay 500

FileOpen File1, c:\coordx.txt
Fileopen File2, C:\coordy.txt

FileRewrite File1
FileRewrite File2

Loop $nbplan
  Delay 3500
  FileAppend File1
	FileAppend File2
	Setconst x={MouseX}
	Setconst y={MouseY}
	FileWrite File1,$x
	FileWrite File2,$y
	Compute totalloop=$totalloop+1
	keys {RETURN}
	If $totalloop<$nbplan
  	  Say Place mouse on next plane
	Else	
	  Say Thanks, do not touch anything anymore
	End
END		
keys {RETURN}

FileClose File1
FileClose File2

Compute Nbtime = $Nbplanche/$Nbplan

ListLoad ListeX, c:\coordX.txt
ListLoad ListeY, c:\coordY.txt

Loop $nbtime
	Call Cutboard
	Setconst I=1
End
//-------------------------------------------------

Procedure Cutboard
	Loop $Nbplan
		Setconst MousecoordX = 	ListeX[$I]
		Setconst MousecoordY = 	ListeY[$I]
		Mousepos $MouseCoordx,$MouseCoordY
		Delay 100
		Keys p
		Delay 1200
		Compute I=$I+1
	End
End
//--------------------------------------------------