Server: * Added support for flags (this still needs further adjustments to restore compatibility with older versions (team datasets)!) Engine: * Added support for flags * Added weapon tooltips * Moved SplitBySpace to uMisc * Set file operations to readonly to avoid conflicts running multiple copies networked and synced on one (fast) machine * Flash active team while green arrow is shown (waiting for input or camera centered on active hog) * Updated English locale Frontend: * Added support for flags * Added flag selection to edit team page * Added checkbox for weapon tooltips in options * "Random team" button may now be translated * Disabled "official server" button till protocol is handled for all versions (see above; nemo's server is updated to new protocol) Graphics: * Added basic set of example flags

     1

{-# LANGUAGE CPP #-}

     2

     3

module Main where

     4

     5

import IO

     6

import System.IO

     7

import Control.Concurrent

     8

import Network

     9

import Control.Exception

    10

import Control.Monad

    11

import System.Random

    12

    13

#if !defined(mingw32_HOST_OS)

    14

import System.Posix

    15

#endif

    16

    17

testing = Control.Exception.handle print $ do

    18

	delay <- randomRIO (100::Int, 300)

    19

	threadDelay delay

    20

	sock <- connectTo "127.0.0.1" (PortNumber 46631)

    21

	hClose sock

    22

    23

forks i = do

    24

	delay <- randomRIO (50::Int, 190)

    25

	if i `mod` 10 == 0 then putStr (show i) else putStr "."

    26

	hFlush stdout

    27

	threadDelay delay

    28

	forkIO testing

    29

	forks (i + 1)

    30

    31

main = withSocketsDo $ do

    32

#if !defined(mingw32_HOST_OS)

    33

	installHandler sigPIPE Ignore Nothing;

    34

#endif

    35

	forks 1