netserver/HWProto.hs
changeset 1616 03d099ace39b
parent 1614 cf8704215703
child 1618 2b9cadc232ab
--- a/netserver/HWProto.hs	Thu Jan 08 18:46:10 2009 +0000
+++ b/netserver/HWProto.hs	Thu Jan 08 18:51:31 2009 +0000
@@ -108,7 +108,7 @@
 				else
 				"<p align=center>Private server</p>"
 				
-		updateInfo = if protocol client < 21 then "<p align=left>Hedgewars 0.9.8 is out!!! Please, update. Support for 0.9.7 will be dropped in a month.</p>" else ""
+		updateInfo = if protocol client < 21 then "<font color=yellow><p align=center>Hedgewars 0.9.8 is out!!! Please, update. Support for 0.9.7 will be dropped in a month.</p><p align=center><a href=http://hedgewars.org/download.html>Download page here</a></p><hr></font>" else ""
 		clientsIn = if protocol client < 20 then "<p align=left>" ++ (show $ length nicks) ++ " clients in: " ++ clientslist ++ "</p>" else []
 		clientslist = if not $ null nicks then foldr1 (\a b -> a  ++ ", " ++ b) nicks else ""
 		lastHour serverInfo =