… | |
… | |
1139 | |
1139 | |
1140 | return retval; |
1140 | return retval; |
1141 | } |
1141 | } |
1142 | |
1142 | |
1143 | maptile * |
1143 | maptile * |
1144 | find_style (const_utf8_string dirname, const_utf8_string stylename, int difficulty) |
1144 | find_style (const_utf8_string dirname, const_utf8_string stylename, int difficulty, bool recurse) |
1145 | { |
1145 | { |
1146 | CALL_BEGIN (3); |
1146 | CALL_BEGIN (4); |
1147 | CALL_ARG (dirname); |
1147 | CALL_ARG (dirname); |
1148 | CALL_ARG (stylename); |
1148 | CALL_ARG (stylename); |
1149 | CALL_ARG (difficulty); |
1149 | CALL_ARG (difficulty); |
|
|
1150 | CALL_ARG (recurse); |
1150 | CALL_CALL ("ext::map_random::find_style", G_SCALAR); |
1151 | CALL_CALL ("ext::map_random::find_style", G_SCALAR); |
1151 | |
1152 | |
1152 | maptile *retval = 0; |
1153 | maptile *retval = 0; |
1153 | if (count) sv_to (POPs, retval); |
1154 | if (count) sv_to (POPs, retval); |
1154 | |
1155 | |
… | |
… | |
1664 | switch (items) |
1665 | switch (items) |
1665 | { |
1666 | { |
1666 | case 0: RETVAL = gen (); break; |
1667 | case 0: RETVAL = gen (); break; |
1667 | case 1: RETVAL = gen (SvUV (ST (0))); break; |
1668 | case 1: RETVAL = gen (SvUV (ST (0))); break; |
1668 | case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break; |
1669 | case 2: RETVAL = gen (SvIV (ST (0)), SvIV (ST (1))); break; |
1669 | default: croak ("cf::rndm requires none, one or two parameters."); break; |
1670 | default: croak ("cf::rndm requires zero, one or two parameters."); break; |
1670 | } |
1671 | } |
1671 | } |
1672 | } |
1672 | OUTPUT: |
1673 | OUTPUT: |
1673 | RETVAL |
1674 | RETVAL |
1674 | |
1675 | |