See amount of rats crossing

I wrote a skill function this morning to count the rat crossings & return the count, below is an example of running it from the journal file:

\i (00:00:06) generaledit
\i (00:00:13) skill Count_Rat_Crossings()
(00:00:13) 1164

Below is the skill code:

procedure(Count_Rat_Crossing()
let((OnButtonList EnabledList RatsList StartPt p1 p2 p3 p4 DataList cnt)
(OnButtonList = axlGetFindFilter())
(EnabledList = axlGetFindFilter(t))
(axlClearSelSet)
(axlSetFindFilter ?enabled (list "noall" "ratsnests" "invisible") ?onButtons (list "noall" "ratsnests"))
axlAddSelectAll()
(RatsList = axlGetSelSet());
(axlClearSelSet)
(cnt = 0)
while(RatsList
(StartPt = car(RatsList))
(p1 = car(StartPt->pins)->xy)
(p2 = cadr(StartPt->pins)->xy)
(RatsList = cdr(RatsList))
foreach(EndPt RatsList
(p3 = car(EndPt->pins)->xy)
(p4 = cadr(EndPt->pins)->xy)
(DataList = (axl_ol_ol2 list(p1 p2) list(p3 p4)))
when(zerop(caddr(DataList))
(cnt++)
)
)
)
(axlSetFindFilter ?enabled EnabledList ?onButtons OnButtonList)
cnt
)
)

Wow, this is great! I have to read up on skill code and how to use it but this is very helpfull!

Thanks

Edit: I have tried a bit my self and read some Skill documentation but I have not figured out how to run the code yet. Can you give some info how you ran it from the journal file? (Also I'm not sure what you mean by running in the journal file).

I tried adding this line to be able to run it from command window but did not work:

axlCmdRegister("RatsCross" 'Count_Rat_Crossing)

I figured it out!
For future novices:

Add the code to a text file and save it for example as CountRatCrossing.il (Save in a folder that is added in your scriptpath)
Add this line at end of file in allegro.ilinnit: load("CountRatCrossing.il")

In Allegro write in command line: set telskill
In the new window write: Count_Rat_Crossing()