Ligretto.icl 1.16 KB
Newer Older
1 2 3 4 5 6 7 8 9
module Ligretto

/**	This example implements a simplified version of the card game Ligretto.
	When creating a project, include the following paths:
	(i)  {Application}\Examples\iTasks\Games\
	(ii) {Application}\Examples\iTasks\Graphics\
*/

import Ligretto.Tasks
10
import iTasks.Extensions.Admin.WorkflowAdmin, Text.HTML
11 12

Start :: *World -> *World
13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
Start world = doTasks
	{WorkflowCollection
	|name = "Ligretto"
	,workflows = [ workflow "Host Ligretto" "Host a Ligretto game" play_Ligretto ]
	,loginMessage = Just loginMessage
	,welcomeMessage = Nothing
	,allowGuests = False
	} world
where
	loginMessage = DivTag []
		[Text "This example implements a simplified version of the card game Ligretto.", BrTag []
		,Text "To play the game do the following:"
		,OlTag []
			[LiTag [] [Text "Log in as a demo user for example 'alice' (password alice), 'bob' (password bob) or 'carol' (password carol)"]
			,LiTag [] [Text "Choose New -> 'Host Ligretto' -> 'Create task'"]
			,LiTag [] [Text "Open the task in the task list and invite other players"]
			,LiTag [] [Text "The others can also log in and will find the game waiting for them in their task list."]
			,LiTag [] [Text "Have fun"]
			]
		]