4812_GHatK01

on mouseUp
	global vari0601
	global vari0602
	global vari0603
	global vari0604
	global vari0605
	global vari0606
  -- hianyzik: 07-09. de nem is kene global legyen.

	put line (1) of card field "HatK10" of card id 4812 into vari0601
	repeat forever
		get random (8)
		if it <> vari0601 then exit repeat
	end repeat
	put it into vari0601
	put vari0601 into line (1) of card field "HatK10" of cd id 4812
	put line (vari0601) of card field "HatK01" of card id 4812 after last char of card field "OtK02" of card id 4360
	put line (2) of card field "HatK10" of card id 4812 into vari0602
	repeat forever
		get random (13)
		if it <> vari0602 then exit repeat
	end repeat
	put it into vari0602
	put vari0602 into line (2) of card field "HatK10" of cd id 4812

	if vari0601 < 7 then
		put it into vari0602
		put line (vari0602) of card field "HatK02" of card id 4812 after last char of card field "OtK02" of card id 4360
	else
		get random (5)
		put it into vari0603
		put line (vari0603) of card field "HatK02" of card id 4812 after last char of card field "OtK02" of card id 4360
	end if


	put line (1) of cd field "HatK12" of card id 4812 into specszam
	repeat forever
		get random (4)
		if it <> specszam then exit repeat
	end repeat
	put it into cd field "HatK12" of card id 4812
	put it into specszam
	if specszam = 1 or specszam = 3 then
		if vari0601 < 7 then
			put line (vari0602) of card field "HatK04" of card id 4812 after last char of card field "OtK02" of card id 4360
		end if

		if vari0601 > 6 then
			put line (vari0603) of card field "HatK04" of card id 4812 after last char of card field "OtK02" of card id 4360
		end if

		put line (5) of card field "HatK10" of card id 4812 into vari0605
		repeat forever
			get random (12)
			if it is not vari0605 then exit repeat
		end repeat

		put it into vari0605
		put line (vari0605) of card field "HatK05" of card id 4812 after last char of card field "OtK02" of card id 4360
		put it into line (5) of card field "HatK10" of card id 4812
	end if

	if specszam = 2 or specszam = 4 then
		put line (6) of card field "HatK10" of card id 4812 into vari0606
		repeat forever
			get random (14)
			if it is not vari0606 then exit repeat
		end repeat
		put it into vari0606
		put vari0606 into line (6) of card field "HatK10" of cd id 4812
		put line (vari0606) of card field "HatK03" of card id 4812 after last char of card field "OtK02" of card id 4360
	else
	end if

	put return after last char of card field "OtK02" of card id 4360
	put lineFeed after last char of card field "OtK02" of card id 4360
	delete last char of card field "OtK02" of card id 4360

	put line (7) of card field "HatK10" of card id 4812 into vari0607
	repeat forever
		get random (16)
		if it is not vari0607 then exit repeat
	end repeat
	put it into vari0607
	put vari0607 into line (7) of card field "HatK10" of cd id 4812

	put line (vari0607) of card field "HatK06" of card id 4812 after last char of card field "OtK02" of card id 4360
	put line (8) of card field "HatK10" of card id 4812 into vari0608


	if vari07 > 12 then -- igen, valoban nem volt nevu ilyen valtozo eddig!
		repeat forever
			get random (10)
			if it is not vari0608 then exit repeat
		end repeat
	end if

	if vari07 < 13 then
		repeat forever
			get random (15)
			if it is not vari0608 then exit repeat
		end repeat
	end if

	put it into vari0608
	put vari0608 into line (8) of card field "HatK10" of cd id 4812

	put line (vari0608) of card field "HatK07" of card id 4812 after last char of card field "OtK02" of card id 4360

	put line (9) of card field "HatK10" of card id 4812 into vari0609
	repeat forever
		get random (45)
		if it <> vari0609 then exit repeat
	end repeat
	put it into vari0609
	put vari0609 into line (9) of card field "HatK10" of cd id 4812

	put line (vari0609) of card field "HatK08" of card id 4812 after last char of card field "OtK02" of card id 4360
end mouseUp