Last active
December 20, 2015 14:19
-
-
Save gazs/6146127 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
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 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment