@name Find All in a Chip 
@inputs 
@outputs 
@persist Obj:array Cmin Cmax C Count
@trigger all
runOnChat(1)
Chat=entity():owner():lastSaid()
K=chatClk()
Break="<"
Range=">"
Dashing="-"
Brk=Chat:find(Break)
Find=Chat:find("find")
Rang=Chat:find(Range)
Dash=Chat:find(Dashing)

if(Find&K){
if(Brk){
    E=Chat:explode(Break):string(2):toNumber()
    print("Model of entity("+E+"): "+entity(E):model())
    print("Type of entity("+E+"): "+entity(E):type())
}#end Brk
if(Range&Dash){
    Process=Chat:explode(Range):string(2)
    Cmin=Process:explode(Dashing):string(1):toNumber()
    Cmax=Process:explode(Dashing):string(2):toNumber()
    timer("scan",1)
    C=Cmin
    Count=1
}
}#end Find&K

if(clk("scan")&(C<=Cmax)){
Obj:setEntity(Count,entity(C))
Count++
C++
timer("scan",1)
}

