-
-
Save gazs/6151205 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<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 < 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> |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment