het

  	<script>on mouseUp

global vari71
global vari72
global vari73
global vari74
global vari75
global vari76

put line (1) of card field "HetK10" of card id 5092 into vari71
repeat forever
get random (32)
if it is not vari71 then exit repeat
end repeat

put it into vari71
put vari71 into line (1) of card field "HetK10" of cd id 5092
put line (vari71) of card field "HetK01" of card id 5092 after last char of card field "OtK02" of card id 4360

get random (24)
if it &lt; 21 then


put line (2) of card field "HetK10" of card id 5092 into vari72
repeat forever
get random (13)
if it is not vari72 then exit repeat
end repeat

put it into vari72
put vari72 into line (2) of card field "HetK10" of cd id 5092
put line (vari72) of card field "HetK02" of card id 5092 after last char of card field "OtK02" of card id 4360


put line (3) of card field "HetK10" of card id 5092 into vari73
repeat forever
get random (10)
if it is not vari73 then exit repeat
end repeat

put it into vari73
put vari73 into line (3) of card field "HetK10" of cd id 5092
put line (vari73) of card field "HetK03" of card id 5092 after last char of card field "OtK02" of card id 4360

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
else
put line (4) of card field "HetK10" of card id 5092 into vari74
repeat forever
get random (12)
if it is not vari74 then exit repeat
end repeat

put it into vari74
put vari74 into line (4) of card field "HetK10" of cd id 5092
put line (vari74) of card field "HetK07" of card id 5092 after last char of card field "OtK02" of card id 4360


put line (5) of card field "HetK10" of card id 5092 into vari75
repeat forever
get random (2)
if it is not vari75 then exit repeat
end repeat

put it into vari75
put vari75 into line (5) of card field "HetK10" of cd id 5092
put line (vari75) of card field "HetK08" of card id 5092 after last char of card field "OtK02" of card id 4360

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
end if

put line (6) of card field "HetK10" of card id 5092 into vari77
repeat forever
get random (15)
if it is not vari76 then exit repeat
end repeat

put it into vari76
put vari76 into line (6) of card field "HetK10" of cd id 5092
put line (vari76) of card field "HetK04" of card id 5092 after last char of card field "OtK02" of card id 4360

put line (7) of card field "HetK10" of card id 5092 into vari77
repeat forever
get random (12)
if it is not vari77 then exit repeat
end repeat

put it into vari77
put vari77 into line (7) of card field "HetK10" of cd id 5092
put line (vari77) of card field "HetK05" of card id 5092 after last char of card field "OtK02" of card id 4360

put line (8) of card field "HetK10" of card id 5092 into vari78
repeat forever
get random (10)
if it is not vari78 then exit repeat
end repeat

put it into vari78
put vari78 into line (8) of card field "HetK10" of cd id 5092
put line (vari78) of card field "HetK06" of card id 5092 after last char of card field "OtK02" of card id 4360


end mouseUp</script>