… | |
… | |
2089 | |
2089 | |
2090 | MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ |
2090 | MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ |
2091 | |
2091 | |
2092 | INCLUDE: $PERL genacc player ../include/player.h | |
2092 | INCLUDE: $PERL genacc player ../include/player.h | |
2093 | |
2093 | |
2094 | char * |
|
|
2095 | client (player *pl) |
|
|
2096 | CODE: |
|
|
2097 | RETVAL = pl->socket->client; |
|
|
2098 | OUTPUT: |
|
|
2099 | RETVAL |
|
|
2100 | |
|
|
2101 | char * |
|
|
2102 | host (player *pl) |
|
|
2103 | CODE: |
|
|
2104 | RETVAL = pl->socket->host; |
|
|
2105 | OUTPUT: |
|
|
2106 | RETVAL |
|
|
2107 | |
|
|
2108 | int invoke (player *pl, int event, ...) |
2094 | int invoke (player *pl, int event, ...) |
2109 | CODE: |
2095 | CODE: |
2110 | if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER"); |
2096 | if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER"); |
2111 | AV *av = (AV *)sv_2mortal ((SV *)newAV ()); |
2097 | AV *av = (AV *)sv_2mortal ((SV *)newAV ()); |
2112 | for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i))); |
2098 | for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i))); |
… | |
… | |
2137 | CODE: |
2123 | CODE: |
2138 | RETVAL = FABS (dx) <= pl->socket->mapx / 2 && FABS (dy) <= pl->socket->mapy / 2 |
2124 | RETVAL = FABS (dx) <= pl->socket->mapx / 2 && FABS (dy) <= pl->socket->mapy / 2 |
2139 | && !pl->blocked_los [dx + pl->socket->mapx / 2][dy + pl->socket->mapy / 2]; |
2125 | && !pl->blocked_los [dx + pl->socket->mapx / 2][dy + pl->socket->mapy / 2]; |
2140 | OUTPUT: |
2126 | OUTPUT: |
2141 | RETVAL |
2127 | RETVAL |
2142 | |
|
|
2143 | void |
|
|
2144 | buggy_mapscroll (player *pl, int value = 1) |
|
|
2145 | CODE: |
|
|
2146 | pl->socket->buggy_mapscroll = value; |
|
|
2147 | |
2128 | |
2148 | void |
2129 | void |
2149 | send (player *pl, SV *packet) |
2130 | send (player *pl, SV *packet) |
2150 | CODE: |
2131 | CODE: |
2151 | { |
2132 | { |