# This script produces Goulash hands.
# The amount of freakness can be hand set.
# Copyright Gerben Dirksen

goulnorth = (spades(north)*hearts(north)*diamonds(north)+
            spades(north)*diamonds(north)*clubs(north)+
            spades(north)*hearts(north)*clubs(north)+
            hearts(north)*diamonds(north)*clubs(north)+
            spades(north)*hearts(north)+spades(north)*diamonds(north)+
            spades(north)*clubs(north)+hearts(north)*diamonds(north)+
	    clubs(north)*hearts(north)+clubs(north)*diamonds(north)) -
            (clubs(north)*hearts(north)*diamonds(north)*spades(north))/3

gouleast = (spades(east)*hearts(east)*diamonds(east)+
            spades(east)*diamonds(east)*clubs(east)+
            spades(east)*hearts(east)*clubs(east)+
            hearts(east)*diamonds(east)*clubs(east)+
            spades(east)*hearts(east)+spades(east)*diamonds(east)+
            spades(east)*clubs(east)+hearts(east)*diamonds(east)+
	    clubs(east)*hearts(east)+clubs(east)*diamonds(east)) -
            (clubs(east)*hearts(east)*diamonds(east)*spades(east))/3

goulsouth = (spades(south)*hearts(south)*diamonds(south)+
            spades(south)*diamonds(south)*clubs(south)+
            spades(south)*hearts(south)*clubs(south)+
            hearts(south)*diamonds(south)*clubs(south)+
            spades(south)*hearts(south)+spades(south)*diamonds(south)+
            spades(south)*clubs(south)+hearts(south)*diamonds(south)+
	    clubs(south)*hearts(south)+clubs(south)*diamonds(south)) -
            (clubs(south)*hearts(south)*diamonds(south)*spades(south))/3

goulwest = (spades(west)*hearts(west)*diamonds(west)+
            spades(west)*diamonds(west)*clubs(west)+
            spades(west)*hearts(west)*clubs(west)+
            hearts(west)*diamonds(west)*clubs(west)+
            spades(west)*hearts(west)+spades(west)*diamonds(west)+
            spades(west)*clubs(west)+hearts(west)*diamonds(west))+
	    (clubs(west)*hearts(west)+clubs(west)*diamonds(west))/3

goulash = (goulnorth * gouleast * goulsouth * goulwest)/1000000

# Modify this number to generate deals of different freakness
# As a guideline, some values of the inverse fraction 
# of the number hands thrown out are shown below.
# A value of 1000 means there will be 1000 hands generated
# for each hand produced.
# 
# A recommended value is around 200.
# 
# 500 ->     2.5
# 400 ->     7
# 300 ->    30
# 250 ->    75
# 200 ->   240
# 150 ->   950
# 100 ->  5500
#  50 -> 24000

condition	
        goulash < 200

produce 
	50

action
	printall