list = {{0, 0, 1}, {1, 1, 1}, {2, 4, 1}, {3, 2, -1}, {4, 1, -1}, {5, 4, 1}}; 

1. You can Partition the input list to create separate lines and use the option PlotStyle to color pieces individually:

ListLinePlot[Partition[list[[All, ;; 2]], 2, 1], PlotStyle -> (Rest[list[[All, -1]]] /. {1 -> Green, -1 -> Blue}) ] 

2. You can use the options Mesh and MeshShading as follows:

ListLinePlot[list[[All, {1, 2}]],  Mesh -> {Flatten@Position[Unitize[Differences[list[[All, -1]]]], 1] - 1},    MeshShading -> RotateRight[{Green, Blue}, 1 - UnitStep[list[[1, -1]]]]] 

list = {{0, 0, 1}, {1, 1, 1}, {2, 4, 1}, {3, 2, -1}, {4, 1, -1}, {5, 4, 1}}; 

1. You can Partition the input list to create separate lines and use the option PlotStyle to color pieces individually:

ListLinePlot[Partition[list[[All, ;; 2]], 2, 1], PlotStyle -> (Rest[list[[All, -1]]] /. {1 -> Green, -1 -> Blue}) ] 

2. You can use the options Mesh and MeshShading as follows:

split = SplitBy[list, Last]; mesh = split[[All, -1, 1]]; meshshading =split[[All, 1, -1]] /. {1 -> Green, -1 -> Blue}; ListLinePlot[list[[All, {1, 2}]], Mesh -> {mesh}, MeshShading -> meshshading] 

list = {{0, 0, 1}, {1, 1, 1}, {2, 4, 1}, {3, 2, -1}, {4, 1, -1}, {5, 4, 1}}; 

You can use the options Mesh and MeshShading as follows:

ListLinePlot[list[[All, {1, 2}]], Mesh -> {Flatten@Position[Unitize[Differences[list[[All, -1]]]], 1] - 1}, MeshShading -> RotateRight[{Green, Blue}, 1 - UnitStep[list[[1, -1]]]]] 

list = {{0, 0, 1}, {1, 1, 1}, {2, 4, 1}, {3, 2, -1}, {4, 1, -1}, {5, 4, 1}}; 

1. You can Partition the input list to create separate lines and use the option PlotStyle to color pieces individually:

ListLinePlot[Partition[list[[All, ;; 2]], 2, 1], PlotStyle -> (Rest[list[[All, -1]]] /. {1 -> Green, -1 -> Blue}) ] 

2. You can use the options Mesh and MeshShading as follows:

ListLinePlot[list[[All, {1, 2}]], Mesh -> {Flatten@Position[Unitize[Differences[list[[All, -1]]]], 1] - 1}, MeshShading -> RotateRight[{Green, Blue}, 1 - UnitStep[list[[1, -1]]]]]