Someone

 
       if mb = 1 and mx > 50 and my > 50 and mx < 100 and my < 100 then
        current_tool := "mapleleaf"


   if current_tool = "mapleleaf" then
    drawfillmapleleaf (mx - 25, my - 25, mx + 25, my + 25, col)