View difference between Paste ID: nb8FfhqV and UQr0Vyza

-(* Fishgame v1.0b, Mathematica CoreLanguage *)
+gamemode = Input["Modo de juego (1-4)"]
 playernum = Input["Jugadores (4-8)"]
-poplimit = actualpop = 20
+poplimit = actualpop = Input["Población Inicial (20)"]
-regen = 0.25 (* 25% population regeneration rate *)
+regen = Input["Tasa de Regeneración (0.25)"]
-playernum = 4
+
-rounds = 10
+rounds = 10;
 wait = Input["Pausa (seg)"]
 doublewait = Input["Pausa doble (seg)"]
-cumulativecatch = {}
+
-playerlist = Table[List[],{playernum}]
+
-globalcatch = {}
+cumulativecatch = {};
-over = False
+playerlist = Table[List[],{playernum}];
 globalcatch = {};
 popsofar = {};
 over = False;
 
 Do[
 	Print["Starts round ", round, "!"];
 	Pause[doublewait];
 	suma = {};
 	Do[
 		Print["Starts Player ", player, " turn!"];
 		Pause[wait];
 		catch = RandomInteger[{1,3}];
 		(* Print[catch];  Debug *)
 		popafterdraw = actualpop - catch;
 		(* Print[popafterdraw]; *)
 
 		If[actualpop >= catch, (* Validate population before draw *)
 			Print["Player ", player, " draws ", catch, " fish!"];
 			Pause[wait];
-				over = True
+
 			Print["Population is now ", popafterdraw];
 			Pause[wait];
 			actualpop = popafterdraw;
 			If[popafterdraw <= 0,
 				Print["Fish depleted after ", round, " rounds!"];
 				AppendTo[suma,Last[playerlist[[player]]]];
 				AppendTo[popsofar,0];
 				Pause[wait];
 				over = True;
 				Break[]]
 
 		(* Begins false part of validator *)
-		AppendTo[suma,Last[playerlist[[player]]]]
+
 		Pause[wait];
 		catch = actualpop;
-		Print["Regenerating ", Floor[actualpop * (1 + regen)], " fish!"];
+
 		Pause[wait];
 		AppendTo[playerlist[[player]],catch];
-		Print["-------"];
+
-		, AppendTo[globalcatch,Sum[i,suma]]];
+		AppendTo[suma,Last[playerlist[[player]]]];
 		AppendTo[popsofar,0];
-	If[Length[cumulativecatch < 1],
+
-		AppendTo[cumulativecatch,Sum[i,suma]],
+
-		AppendTo[cumulativecatch,Last[cumulativecatch]+Sum[i,suma]]];
+
-	Print[globalcatch]
+
-	Print[cumulativecatch]
+		AppendTo[suma,Last[playerlist[[player]]]];
 		,{player,playernum}];
 
-Print[MatrixForm[playerlist]]
+	Print["Suma es", suma]
 	AppendTo[globalcatch, Total[suma]];
-Print["Catch per turn: ", globalcatch]
+	AppendTo[cumulativecatch, Total[globalcatch]];
-Print["Cumulative score: ", cumulativecatch]
+	Print["global catch is ", globalcatch, " so far"]
 	Print["cummulative catch is ",cumulativecatch, " so far"]
 	Print["Over is ", over]
 
 	If[over == False,
 		Print["Regenerating ", Floor[actualpop * (regen)], " fish!"];
 		Pause[wait];
 		actualpop = Floor[actualpop * (1 + regen)];
 		Print["Population is now ", actualpop];
 		Pause[wait];
 		Print["-------"], Break[]];
 
 	(*If[Length[cumulativecatch < 1],
 		Append[cumulativecatch,Total[globalcatch]],
 		Append[cumulativecatch,Last[cumulativecatch]+Total[suma]]]; *)
 
 	suma=.
 	AppendTo[popsofar,actualpop];
 	,{round,rounds}];
 
 playerlist//MatrixForm
 
 Print["Catch per turn: ", globalcatch];
 Print["Cumulative score: ", cumulativecatch];
 Print["Population each turn: ", popsofar]
 ListLinePlot[{globalcatch,popsofar}, PlotRange->Automatic, PlotLegends -> {"Global Catch", "Population"}]
 ListLinePlot[playerlist,Filling->Axis,PlotLegends->Automatic, PlotRange->{Automatic,{0,5}}]