ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/plugins.C
(Generate patch)

Comparing deliantra/server/server/plugins.C (file contents):
Revision 1.37 by root, Sat Dec 30 10:16:11 2006 UTC vs.
Revision 1.42 by root, Mon Feb 5 01:47:23 2007 UTC

… …
655 655
656 map = va_arg (args, maptile *); 656 map = va_arg (args, maptile *);
657 x = va_arg (args, int); 657 x = va_arg (args, int);
658 y = va_arg (args, int); 658 y = va_arg (args, int);
659 659
660 map->at (x, y).flags_ |= P_NEED_UPDATE; 660 map->at (x, y).flags_ &= ~P_UPTODATE;
661 661
662 va_end (args); 662 va_end (args);
663 *type = CFAPI_NONE; 663 *type = CFAPI_NONE;
664 return NULL; 664 return NULL;
665} 665}
… …
839} 839}
840 840
841void * 841void *
842cfapi_object_get_property (int *type, ...) 842cfapi_object_get_property (int *type, ...)
843{ 843{
844 va_list args; 844 abort ();
845 int property;
846 object *op;
847 void *rv;
848 static int ri;
849
850 va_start (args, type);
851
852 op = va_arg (args, object *);
853 property = va_arg (args, int);
854
855 rv = NULL;
856 if (op != NULL)
857 {
858 switch (property)
859 {
860 case CFAPI_OBJECT_PROP_OB_ABOVE:
861 rv = op->above;
862 *type = CFAPI_POBJECT;
863 break;
864
865 case CFAPI_OBJECT_PROP_OB_BELOW:
866 rv = op->below;
867 *type = CFAPI_POBJECT;
868 break;
869
870 case CFAPI_OBJECT_PROP_NEXT_ACTIVE_OB:
871 rv = op->active_next;
872 *type = CFAPI_POBJECT;
873 break;
874
875 case CFAPI_OBJECT_PROP_PREV_ACTIVE_OB:
876 rv = op->active_prev;
877 *type = CFAPI_POBJECT;
878 break;
879
880 case CFAPI_OBJECT_PROP_INVENTORY:
881 rv = op->inv;
882 *type = CFAPI_POBJECT;
883 break;
884
885 case CFAPI_OBJECT_PROP_ENVIRONMENT:
886 rv = op->env;
887 *type = CFAPI_POBJECT;
888 break;
889
890 case CFAPI_OBJECT_PROP_HEAD:
891 rv = op->head;
892 *type = CFAPI_POBJECT;
893 break;
894
895 case CFAPI_OBJECT_PROP_CONTAINER:
896 rv = op->container;
897 *type = CFAPI_POBJECT;
898 break;
899
900 case CFAPI_OBJECT_PROP_MAP:
901 rv = op->map;
902 *type = CFAPI_PMAP;
903 break;
904
905 case CFAPI_OBJECT_PROP_COUNT:
906 ri = op->count;
907 rv = &ri;
908 *type = CFAPI_INT;
909 break;
910
911 case CFAPI_OBJECT_PROP_REFCOUNT:
912 abort ();
913 break;
914
915 case CFAPI_OBJECT_PROP_NAME:
916 rv = query_name (op);
917 *type = CFAPI_STRING;
918 break;
919
920 case CFAPI_OBJECT_PROP_NAME_PLURAL:
921 rv = (char *) &op->name_pl;
922 *type = CFAPI_STRING;
923 break;
924
925 case CFAPI_OBJECT_PROP_TITLE:
926 rv = (char *) &op->title;
927 *type = CFAPI_STRING;
928 break;
929
930 case CFAPI_OBJECT_PROP_RACE:
931 rv = (char *) &op->race;
932 *type = CFAPI_STRING;
933 break;
934
935 case CFAPI_OBJECT_PROP_SLAYING:
936 rv = (char *) &op->slaying;
937 *type = CFAPI_STRING;
938 break;
939
940 case CFAPI_OBJECT_PROP_SKILL:
941 rv = (char *) &op->skill;
942 *type = CFAPI_STRING;
943 break;
944
945 case CFAPI_OBJECT_PROP_MESSAGE:
946 rv = (char *) &op->msg;
947 if (rv == NULL)
948 rv = (void *) "";
949 *type = CFAPI_STRING;
950 break;
951
952 case CFAPI_OBJECT_PROP_LORE:
953 rv = (char *) &op->lore;
954 *type = CFAPI_STRING;
955 break;
956
957 case CFAPI_OBJECT_PROP_X:
958 ri = op->x;
959 rv = &ri;
960 *type = CFAPI_INT;
961 break;
962
963 case CFAPI_OBJECT_PROP_Y:
964 ri = op->y;
965 rv = &ri;
966 *type = CFAPI_INT;
967 break;
968
969 case CFAPI_OBJECT_PROP_SPEED:
970 rv = &op->speed;
971 *type = CFAPI_DOUBLE;
972 break;
973
974 case CFAPI_OBJECT_PROP_SPEED_LEFT:
975 rv = &op->speed_left;
976 *type = CFAPI_DOUBLE;
977 break;
978
979 case CFAPI_OBJECT_PROP_NROF:
980 ri = op->nrof;
981 rv = &ri;
982 *type = CFAPI_INT;
983 break;
984
985 case CFAPI_OBJECT_PROP_DIRECTION:
986 ri = op->direction;
987 rv = &ri;
988 *type = CFAPI_INT;
989 break;
990
991 case CFAPI_OBJECT_PROP_FACING:
992 ri = op->facing;
993 rv = &ri;
994 *type = CFAPI_INT;
995 break;
996
997 case CFAPI_OBJECT_PROP_TYPE:
998 ri = op->type;
999 rv = &ri;
1000 *type = CFAPI_INT;
1001 break;
1002
1003 case CFAPI_OBJECT_PROP_SUBTYPE:
1004 ri = op->subtype;
1005 rv = &ri;
1006 *type = CFAPI_INT;
1007 break;
1008
1009 case CFAPI_OBJECT_PROP_CLIENT_TYPE:
1010 ri = op->client_type;
1011 rv = &ri;
1012 *type = CFAPI_INT;
1013 break;
1014
1015 case CFAPI_OBJECT_PROP_RESIST:
1016 {
1017 int idx;
1018 idx = va_arg (args, int);
1019
1020 ri = op->resist[idx];
1021 rv = &ri;
1022 }
1023 *type = CFAPI_INT;
1024 break;
1025
1026 case CFAPI_OBJECT_PROP_ATTACK_TYPE:
1027 ri = op->attacktype;
1028 rv = &ri;
1029 *type = CFAPI_INT;
1030 break;
1031
1032 case CFAPI_OBJECT_PROP_PATH_ATTUNED:
1033 ri = op->path_attuned;
1034 rv = &ri;
1035 *type = CFAPI_INT;
1036 break;
1037
1038 case CFAPI_OBJECT_PROP_PATH_REPELLED:
1039 ri = op->path_repelled;
1040 rv = &ri;
1041 *type = CFAPI_INT;
1042 break;
1043
1044 case CFAPI_OBJECT_PROP_PATH_DENIED:
1045 ri = op->path_denied;
1046 rv = &ri;
1047 *type = CFAPI_INT;
1048 break;
1049
1050 case CFAPI_OBJECT_PROP_MATERIAL:
1051 ri = op->material;
1052 rv = &ri;
1053 *type = CFAPI_INT;
1054 break;
1055
1056 case CFAPI_OBJECT_PROP_MAGIC:
1057 ri = op->magic;
1058 rv = &ri;
1059 *type = CFAPI_INT;
1060 break;
1061
1062 case CFAPI_OBJECT_PROP_VALUE:
1063 ri = op->value;
1064 rv = &ri;
1065 *type = CFAPI_INT;
1066 break;
1067
1068 case CFAPI_OBJECT_PROP_LEVEL:
1069 ri = op->level;
1070 rv = &ri;
1071 *type = CFAPI_INT;
1072 break;
1073
1074 case CFAPI_OBJECT_PROP_LAST_HEAL:
1075 ri = op->last_heal;
1076 rv = &ri;
1077 *type = CFAPI_INT;
1078 break;
1079
1080 case CFAPI_OBJECT_PROP_LAST_SP:
1081 ri = op->last_sp;
1082 rv = &ri;
1083 *type = CFAPI_INT;
1084 break;
1085
1086 case CFAPI_OBJECT_PROP_LAST_GRACE:
1087 ri = op->last_grace;
1088 rv = &ri;
1089 *type = CFAPI_INT;
1090 break;
1091
1092 case CFAPI_OBJECT_PROP_LAST_EAT:
1093 ri = op->last_eat;
1094 rv = &ri;
1095 *type = CFAPI_INT;
1096 break;
1097
1098 case CFAPI_OBJECT_PROP_INVISIBLE_TIME:
1099 ri = op->invisible;
1100 rv = &ri;
1101 *type = CFAPI_INT;
1102 break;
1103
1104 case CFAPI_OBJECT_PROP_PICK_UP:
1105 ri = op->pick_up;
1106 rv = &ri;
1107 *type = CFAPI_INT;
1108 break;
1109
1110 case CFAPI_OBJECT_PROP_ITEM_POWER:
1111 ri = op->item_power;
1112 rv = &ri;
1113 *type = CFAPI_INT;
1114 break;
1115
1116 case CFAPI_OBJECT_PROP_GEN_SP_ARMOUR:
1117 ri = op->gen_sp_armour;
1118 rv = &ri;
1119 *type = CFAPI_INT;
1120 break;
1121
1122 case CFAPI_OBJECT_PROP_WEIGHT:
1123 ri = op->weight;
1124 rv = &ri;
1125 *type = CFAPI_INT;
1126 break;
1127
1128 case CFAPI_OBJECT_PROP_WEIGHT_LIMIT:
1129 ri = op->weight_limit;
1130 rv = &ri;
1131 *type = CFAPI_INT;
1132 break;
1133
1134 case CFAPI_OBJECT_PROP_CARRYING:
1135 ri = op->carrying;
1136 rv = &ri;
1137 *type = CFAPI_INT;
1138 break;
1139
1140 case CFAPI_OBJECT_PROP_GLOW_RADIUS:
1141 ri = op->glow_radius;
1142 rv = &ri;
1143 *type = CFAPI_INT;
1144 break;
1145
1146 case CFAPI_OBJECT_PROP_PERM_EXP:
1147 rv = &op->perm_exp;
1148 *type = CFAPI_LONG;
1149 break;
1150
1151 case CFAPI_OBJECT_PROP_CURRENT_WEAPON:
1152 rv = op->current_weapon;
1153 *type = CFAPI_POBJECT;
1154 break;
1155
1156 case CFAPI_OBJECT_PROP_ENEMY:
1157 rv = op->enemy;
1158 *type = CFAPI_POBJECT;
1159 break;
1160
1161 case CFAPI_OBJECT_PROP_ATTACKED_BY:
1162 rv = op->attacked_by;
1163 *type = CFAPI_POBJECT;
1164 break;
1165
1166 case CFAPI_OBJECT_PROP_RUN_AWAY:
1167 ri = op->run_away;
1168 rv = &ri;
1169 *type = CFAPI_INT;
1170 break;
1171
1172 case CFAPI_OBJECT_PROP_CHOSEN_SKILL:
1173 rv = op->chosen_skill;
1174 *type = CFAPI_POBJECT;
1175 break;
1176
1177 case CFAPI_OBJECT_PROP_HIDDEN:
1178 ri = op->hide;
1179 rv = &ri;
1180 *type = CFAPI_INT;
1181 break;
1182
1183 case CFAPI_OBJECT_PROP_MOVE_STATUS:
1184 ri = op->move_status;
1185 rv = &ri;
1186 *type = CFAPI_INT;
1187 break;
1188
1189 case CFAPI_OBJECT_PROP_MOVE_TYPE:
1190 ri = op->attack_movement;
1191 rv = &ri;
1192 *type = CFAPI_INT;
1193 break;
1194
1195 case CFAPI_OBJECT_PROP_SPELL_ITEM:
1196 rv = op->spellitem;
1197 *type = CFAPI_POBJECT;
1198 break;
1199
1200 case CFAPI_OBJECT_PROP_EXP_MULTIPLIER:
1201 rv = &op->expmul;
1202 *type = CFAPI_DOUBLE;
1203 break;
1204
1205 case CFAPI_OBJECT_PROP_ARCHETYPE:
1206 rv = op->arch;
1207 *type = CFAPI_PARCH;
1208 break;
1209
1210 case CFAPI_OBJECT_PROP_OTHER_ARCH:
1211 rv = op->other_arch;
1212 *type = CFAPI_PARCH;
1213 break;
1214
1215 case CFAPI_OBJECT_PROP_ANIM_SPEED:
1216 ri = op->anim_speed;
1217 rv = &ri;
1218 *type = CFAPI_INT;
1219 break;
1220
1221 case CFAPI_OBJECT_PROP_FRIENDLY:
1222 ri = is_friendly (op);
1223 rv = &ri;
1224 *type = CFAPI_INT;
1225 break;
1226
1227 case CFAPI_OBJECT_PROP_BASE_NAME:
1228 {
1229 int i;
1230 i = va_arg (args, int);
1231
1232 rv = (char *) query_base_name (op, i);
1233 *type = CFAPI_STRING;
1234 }
1235 break;
1236
1237 case CFAPI_OBJECT_PROP_MAGICAL:
1238 ri = is_magical (op);
1239 rv = &ri;
1240 *type = CFAPI_INT;
1241 break;
1242
1243 case CFAPI_OBJECT_PROP_LUCK:
1244 ri = op->stats.luck;
1245 rv = &ri;
1246 *type = CFAPI_INT;
1247 break;
1248
1249 case CFAPI_OBJECT_PROP_EXP:
1250 rv = &op->stats.exp;
1251 *type = CFAPI_LONG;
1252 break;
1253
1254 case CFAPI_OBJECT_PROP_OWNER:
1255 rv = op->owner;
1256 *type = CFAPI_POBJECT;
1257 break;
1258
1259 case CFAPI_OBJECT_PROP_PRESENT:
1260 {
1261 int stype;
1262
1263 rv = 0;
1264 stype = va_arg (args, int);
1265
1266 switch (stype)
1267 {
1268
1269 unsigned char ptype;
1270 char *buf;
1271 archetype *at;
1272
1273 case 0: /* present_in_ob */
1274 ptype = (unsigned char) (va_arg (args, int));
1275
1276 rv = present_in_ob (ptype, op);
1277 break;
1278
1279 case 1: /* present_in_ob_by_name */
1280 ptype = (unsigned char) (va_arg (args, int));
1281 buf = va_arg (args, char *);
1282
1283 rv = present_in_ob_by_name (ptype, buf, op);
1284 break;
1285
1286 case 2: /* present_arch_in_ob */
1287 at = va_arg (args, archetype *);
1288
1289 rv = present_arch_in_ob (at, op);
1290 break;
1291 }
1292 }
1293 *type = CFAPI_POBJECT;
1294 break;
1295
1296 case CFAPI_OBJECT_PROP_CHEATER:
1297 ri = (QUERY_FLAG (op, FLAG_WAS_WIZ));
1298 rv = &ri;
1299 *type = CFAPI_INT;
1300 break;
1301
1302 case CFAPI_OBJECT_PROP_MERGEABLE:
1303 {
1304 object *op2;
1305 op2 = va_arg (args, object *);
1306
1307 ri = object::can_merge_slow (op, op2);
1308 rv = &ri;
1309 }
1310 *type = CFAPI_INT;
1311 break;
1312
1313 case CFAPI_OBJECT_PROP_PICKABLE:
1314 {
1315 object *op2;
1316
1317 rv = 0;
1318 op2 = va_arg (args, object *);
1319
1320 ri = can_pick (op2, op);
1321 rv = &ri;
1322 }
1323 *type = CFAPI_INT;
1324 break;
1325
1326 case CFAPI_OBJECT_PROP_FLAGS:
1327 {
1328 int fl;
1329
1330 ri = 0;
1331 fl = va_arg (args, int);
1332
1333 ri = QUERY_FLAG (op, fl);
1334 rv = &ri;
1335 }
1336 *type = CFAPI_INT;
1337 break;
1338
1339 case CFAPI_OBJECT_PROP_STR:
1340 ri = op->stats.Str;
1341 rv = &ri;
1342 *type = CFAPI_INT;
1343 break;
1344
1345 case CFAPI_OBJECT_PROP_DEX:
1346 ri = op->stats.Dex;
1347 rv = &ri;
1348 *type = CFAPI_INT;
1349 break;
1350
1351 case CFAPI_OBJECT_PROP_CON:
1352 ri = op->stats.Con;
1353 rv = &ri;
1354 *type = CFAPI_INT;
1355 break;
1356
1357 case CFAPI_OBJECT_PROP_WIS:
1358 ri = op->stats.Wis;
1359 rv = &ri;
1360 *type = CFAPI_INT;
1361 break;
1362
1363 case CFAPI_OBJECT_PROP_INT:
1364 ri = op->stats.Int;
1365 rv = &ri;
1366 *type = CFAPI_INT;
1367 break;
1368
1369 case CFAPI_OBJECT_PROP_POW:
1370 ri = op->stats.Pow;
1371 rv = &ri;
1372 *type = CFAPI_INT;
1373 break;
1374
1375 case CFAPI_OBJECT_PROP_CHA:
1376 ri = op->stats.Cha;
1377 rv = &ri;
1378 *type = CFAPI_INT;
1379 break;
1380
1381 case CFAPI_OBJECT_PROP_WC:
1382 ri = op->stats.wc;
1383 rv = &ri;
1384 *type = CFAPI_INT;
1385 break;
1386
1387 case CFAPI_OBJECT_PROP_AC:
1388 ri = op->stats.ac;
1389 rv = &ri;
1390 *type = CFAPI_INT;
1391 break;
1392
1393 case CFAPI_OBJECT_PROP_HP:
1394 ri = op->stats.hp;
1395 rv = &ri;
1396 *type = CFAPI_INT;
1397 break;
1398
1399 case CFAPI_OBJECT_PROP_SP:
1400 ri = op->stats.sp;
1401 rv = &ri;
1402 *type = CFAPI_INT;
1403 break;
1404
1405 case CFAPI_OBJECT_PROP_GP:
1406 ri = op->stats.grace;
1407 rv = &ri;
1408 *type = CFAPI_INT;
1409 break;
1410
1411 case CFAPI_OBJECT_PROP_FP:
1412 ri = op->stats.food;
1413 rv = &ri;
1414 *type = CFAPI_INT;
1415 break;
1416
1417 case CFAPI_OBJECT_PROP_MAXHP:
1418 ri = op->stats.maxhp;
1419 rv = &ri;
1420 *type = CFAPI_INT;
1421 break;
1422
1423 case CFAPI_OBJECT_PROP_MAXSP:
1424 ri = op->stats.maxsp;
1425 rv = &ri;
1426 *type = CFAPI_INT;
1427 break;
1428
1429 case CFAPI_OBJECT_PROP_MAXGP:
1430 ri = op->stats.maxgrace;
1431 rv = &ri;
1432 *type = CFAPI_INT;
1433 break;
1434
1435 case CFAPI_OBJECT_PROP_DAM:
1436 ri = op->stats.dam;
1437 rv = &ri;
1438 *type = CFAPI_INT;
1439 break;
1440
1441 case CFAPI_OBJECT_PROP_GOD:
1442 rv = (char *) determine_god (op);
1443 *type = CFAPI_STRING;
1444 break;
1445
1446 case CFAPI_OBJECT_PROP_ARCH_NAME:
1447 rv = (char *) &op->arch->name;
1448 *type = CFAPI_STRING;
1449 break;
1450
1451 case CFAPI_OBJECT_PROP_INVISIBLE:
1452 ri = op->invisible;
1453 rv = &ri;
1454 *type = CFAPI_INT;
1455 break;
1456
1457 case CFAPI_OBJECT_PROP_FACE:
1458 ri = op->animation_id;
1459 rv = &ri;
1460 *type = CFAPI_INT;
1461 break;
1462
1463 case CFAPI_PLAYER_PROP_IP:
1464 rv = op->contr->ns->host;
1465 *type = CFAPI_STRING;
1466 break;
1467
1468 case CFAPI_PLAYER_PROP_MARKED_ITEM:
1469 rv = find_marked_object (op);
1470 *type = CFAPI_POBJECT;
1471 break;
1472
1473 case CFAPI_PLAYER_PROP_PARTY:
1474 rv = (op->contr ? op->contr->party : NULL);
1475 *type = CFAPI_PPARTY;
1476 break;
1477 default:
1478 *type = CFAPI_NONE;
1479 break;
1480 }
1481 }
1482 va_end (args);
1483 return rv;
1484} 845}
1485 846
1486void * 847void *
1487cfapi_object_set_property (int *type, ...) 848cfapi_object_set_property (int *type, ...)
1488{ 849{
1489 va_list args; 850 abort ();
1490 int iarg;
1491 long larg;
1492 char *sarg;
1493 double darg;
1494 object *oparg;
1495 object *op;
1496 int property;
1497 void *rv;
1498 partylist *partyarg;
1499
1500 va_start (args, type);
1501
1502 op = va_arg (args, object *);
1503 property = va_arg (args, int);
1504
1505 rv = NULL;
1506
1507 if (op != NULL && (!op->arch || (op != &op->arch->clone)))
1508 {
1509 switch (property)
1510 {
1511 case CFAPI_OBJECT_PROP_NAME:
1512 sarg = va_arg (args, char *);
1513
1514#define FREE_AND_COPY(a,b) (a) = (b) // TODO: remove, but plugins.C is considered zombie code
1515 FREE_AND_COPY (op->name, sarg);
1516 send_changed_object (op);
1517 break;
1518
1519 case CFAPI_OBJECT_PROP_NAME_PLURAL:
1520 sarg = va_arg (args, char *);
1521
1522 FREE_AND_COPY (op->name_pl, sarg);
1523 send_changed_object (op);
1524 break;
1525
1526 case CFAPI_OBJECT_PROP_TITLE:
1527 sarg = va_arg (args, char *);
1528
1529 FREE_AND_COPY (op->title, sarg);
1530 break;
1531
1532 case CFAPI_OBJECT_PROP_RACE:
1533 sarg = va_arg (args, char *);
1534
1535 FREE_AND_COPY (op->race, sarg);
1536 break;
1537
1538 case CFAPI_OBJECT_PROP_SLAYING:
1539 sarg = va_arg (args, char *);
1540
1541 FREE_AND_COPY (op->slaying, sarg);
1542 break;
1543
1544 case CFAPI_OBJECT_PROP_SKILL:
1545 sarg = va_arg (args, char *);
1546
1547 FREE_AND_COPY (op->skill, sarg);
1548 break;
1549
1550 case CFAPI_OBJECT_PROP_MESSAGE:
1551 sarg = va_arg (args, char *);
1552
1553 FREE_AND_COPY (op->msg, sarg);
1554 break;
1555
1556 case CFAPI_OBJECT_PROP_LORE:
1557 sarg = va_arg (args, char *);
1558
1559 FREE_AND_COPY (op->lore, sarg);
1560 break;
1561
1562 case CFAPI_OBJECT_PROP_SPEED:
1563 darg = va_arg (args, double);
1564
1565 op->speed = darg;
1566 break;
1567
1568 case CFAPI_OBJECT_PROP_SPEED_LEFT:
1569 darg = va_arg (args, double);
1570
1571 op->speed_left = darg;
1572 break;
1573
1574 case CFAPI_OBJECT_PROP_NROF:
1575 iarg = va_arg (args, int);
1576
1577 if (iarg < 0)
1578 iarg = 0;
1579 if (op->nrof > (uint32) iarg)
1580 decrease_ob_nr (op, op->nrof - iarg);
1581 else if (op->nrof < (uint32) iarg)
1582 {
1583 object *tmp;
1584
1585 op->nrof = iarg;
1586 if (op->env != NULL)
1587 {
1588 tmp = op->in_player ();
1589 if (!tmp)
1590 {
1591 for_all_players (pl)
1592 if (pl->ob->container == op->env)
1593 {
1594 tmp = pl->ob;
1595 break;
1596 }
1597 }
1598 else
1599 {
1600 sum_weight (tmp);
1601 tmp->update_stats ();
1602 }
1603 if (tmp)
1604 esrv_send_item (tmp, op);
1605 }
1606 else
1607 {
1608 object *above = op->above;
1609
1610 for (tmp = above; tmp != NULL; tmp = tmp->above)
1611 if (tmp->type == PLAYER)
1612 esrv_send_item (tmp, op);
1613 }
1614 }
1615 break;
1616
1617 case CFAPI_OBJECT_PROP_DIRECTION:
1618 iarg = va_arg (args, int);
1619
1620 op->direction = iarg;
1621 break;
1622
1623 case CFAPI_OBJECT_PROP_FACING:
1624 iarg = va_arg (args, int);
1625
1626 op->facing = iarg;
1627 break;
1628
1629 case CFAPI_OBJECT_PROP_RESIST:
1630 {
1631 int iargbis = va_arg (args, int);
1632 iarg = va_arg (args, int);
1633
1634 op->resist[iargbis] = iarg;
1635 }
1636 break;
1637
1638 case CFAPI_OBJECT_PROP_ATTACK_TYPE:
1639 iarg = va_arg (args, int);
1640
1641 op->attacktype = iarg;
1642 break;
1643
1644 case CFAPI_OBJECT_PROP_PATH_ATTUNED:
1645 iarg = va_arg (args, int);
1646
1647 op->path_attuned = iarg;
1648 break;
1649
1650 case CFAPI_OBJECT_PROP_PATH_REPELLED:
1651 iarg = va_arg (args, int);
1652
1653 op->path_repelled = iarg;
1654 break;
1655
1656 case CFAPI_OBJECT_PROP_PATH_DENIED:
1657 iarg = va_arg (args, int);
1658
1659 op->path_denied = iarg;
1660 break;
1661
1662 case CFAPI_OBJECT_PROP_MATERIAL:
1663 iarg = va_arg (args, int);
1664
1665 op->material = iarg;
1666 break;
1667
1668 case CFAPI_OBJECT_PROP_MATERIAL_NAME:
1669 break;
1670
1671 case CFAPI_OBJECT_PROP_MAGIC:
1672 iarg = va_arg (args, int);
1673
1674 op->magic = iarg;
1675 break;
1676
1677 case CFAPI_OBJECT_PROP_VALUE:
1678 iarg = va_arg (args, int);
1679
1680 op->value = iarg;
1681 break;
1682
1683 case CFAPI_OBJECT_PROP_LEVEL:
1684 iarg = va_arg (args, int);
1685
1686 op->level = iarg;
1687 break;
1688
1689 case CFAPI_OBJECT_PROP_LAST_HEAL:
1690 iarg = va_arg (args, int);
1691
1692 op->last_heal = iarg;
1693 break;
1694
1695 case CFAPI_OBJECT_PROP_LAST_SP:
1696 iarg = va_arg (args, int);
1697
1698 op->last_sp = iarg;
1699 break;
1700
1701 case CFAPI_OBJECT_PROP_LAST_GRACE:
1702 iarg = va_arg (args, int);
1703
1704 op->last_grace = iarg;
1705 break;
1706
1707 case CFAPI_OBJECT_PROP_LAST_EAT:
1708 iarg = va_arg (args, int);
1709
1710 op->last_eat = iarg;
1711 break;
1712
1713 case CFAPI_OBJECT_PROP_INVISIBLE_TIME:
1714 iarg = va_arg (args, int);
1715
1716 op->invisible = iarg;
1717 break;
1718
1719 case CFAPI_OBJECT_PROP_PICK_UP:
1720 iarg = va_arg (args, int);
1721
1722 op->pick_up = iarg;
1723 break;
1724
1725 case CFAPI_OBJECT_PROP_ITEM_POWER:
1726 iarg = va_arg (args, int);
1727
1728 op->item_power = iarg;
1729 break;
1730
1731 case CFAPI_OBJECT_PROP_GEN_SP_ARMOUR:
1732 iarg = va_arg (args, int);
1733
1734 op->gen_sp_armour = iarg;
1735 break;
1736
1737 case CFAPI_OBJECT_PROP_WEIGHT:
1738 iarg = va_arg (args, int);
1739
1740 if (op->weight != iarg)
1741 {
1742 object *tmp;
1743
1744 op->weight = iarg;
1745 if (op->env != NULL)
1746 {
1747 tmp = op->in_player ();
1748 if (!tmp)
1749 {
1750 for_all_players (pl)
1751 if (pl->ob->container == op->env)
1752 {
1753 tmp = pl->ob;
1754 break;
1755 }
1756 }
1757 else
1758 {
1759 sum_weight (tmp);
1760 tmp->update_stats ();
1761 }
1762 if (tmp)
1763 esrv_send_item (tmp, op);
1764 }
1765 else
1766 {
1767 object *above = op->above;
1768
1769 for (tmp = above; tmp != NULL; tmp = tmp->above)
1770 if (tmp->type == PLAYER)
1771 esrv_send_item (tmp, op);
1772 }
1773 }
1774 break;
1775
1776 case CFAPI_OBJECT_PROP_WEIGHT_LIMIT:
1777 iarg = va_arg (args, int);
1778
1779 op->weight_limit = iarg;
1780 break;
1781
1782 case CFAPI_OBJECT_PROP_GLOW_RADIUS:
1783 iarg = va_arg (args, int);
1784
1785 op->glow_radius = iarg;
1786 break;
1787
1788 case CFAPI_OBJECT_PROP_PERM_EXP:
1789 larg = va_arg (args, long);
1790
1791 op->perm_exp = larg;
1792 break;
1793
1794 case CFAPI_OBJECT_PROP_ENEMY:
1795 oparg = va_arg (args, object *);
1796
1797 op->enemy = oparg;
1798 break;
1799
1800 case CFAPI_OBJECT_PROP_RUN_AWAY:
1801 iarg = va_arg (args, int);
1802
1803 op->run_away = iarg;
1804 break;
1805
1806 case CFAPI_OBJECT_PROP_CHOSEN_SKILL:
1807 oparg = va_arg (args, object *);
1808
1809 op->chosen_skill = oparg;
1810 break;
1811
1812 case CFAPI_OBJECT_PROP_HIDDEN:
1813 iarg = va_arg (args, int);
1814
1815 op->hide = iarg;
1816 break;
1817
1818 case CFAPI_OBJECT_PROP_MOVE_STATUS:
1819 iarg = va_arg (args, int);
1820
1821 op->move_status = iarg;
1822 break;
1823
1824 case CFAPI_OBJECT_PROP_MOVE_TYPE:
1825 iarg = va_arg (args, int);
1826
1827 op->attack_movement = iarg;
1828 break;
1829
1830 case CFAPI_OBJECT_PROP_SPELL_ITEM:
1831 oparg = va_arg (args, object *);
1832
1833 op->spellitem = oparg;
1834 break;
1835
1836 case CFAPI_OBJECT_PROP_EXP_MULTIPLIER:
1837 darg = va_arg (args, double);
1838
1839 op->expmul = darg;
1840 break;
1841
1842 case CFAPI_OBJECT_PROP_CUSTOM_NAME:
1843 sarg = va_arg (args, char *);
1844
1845 FREE_AND_COPY (op->custom_name, sarg);
1846 send_changed_object (op);
1847 break;
1848
1849 case CFAPI_OBJECT_PROP_ANIM_SPEED:
1850 iarg = va_arg (args, int);
1851
1852 op->anim_speed = iarg;
1853 break;
1854
1855 case CFAPI_OBJECT_PROP_FRIENDLY:
1856 iarg = va_arg (args, int);
1857
1858 if (iarg == 1 && is_friendly (op) == 0)
1859 add_friendly_object (op);
1860 else if (iarg == 0 && is_friendly (op) == 1)
1861 remove_friendly_object (op);
1862 break;
1863
1864 case CFAPI_OBJECT_PROP_LUCK:
1865 iarg = va_arg (args, int);
1866
1867 op->stats.luck = iarg;
1868 break;
1869
1870 case CFAPI_OBJECT_PROP_EXP:
1871 {
1872 char *skillname;
1873
1874 larg = va_arg (args, long);
1875 skillname = va_arg (args, char *);
1876 iarg = va_arg (args, int);
1877
1878 change_exp (op, larg, skillname, iarg);
1879 }
1880 break;
1881
1882 case CFAPI_OBJECT_PROP_OWNER:
1883 oparg = va_arg (args, object *);
1884
1885 op->set_owner (oparg);
1886 break;
1887
1888 case CFAPI_OBJECT_PROP_CHEATER:
1889 set_cheat (op);
1890 break;
1891
1892 case CFAPI_OBJECT_PROP_FLAGS:
1893 {
1894 int iargbis;
1895 iarg = va_arg (args, int);
1896 iargbis = va_arg (args, int);
1897
1898 if (iargbis == 1)
1899 SET_FLAG (op, iarg);
1900 else
1901 CLEAR_FLAG (op, iarg);
1902 }
1903 break;
1904
1905 case CFAPI_OBJECT_PROP_STR:
1906 iarg = va_arg (args, int);
1907
1908 op->stats.Str = iarg;
1909 break;
1910
1911 case CFAPI_OBJECT_PROP_DEX:
1912 iarg = va_arg (args, int);
1913
1914 op->stats.Dex = iarg;
1915 break;
1916
1917 case CFAPI_OBJECT_PROP_CON:
1918 iarg = va_arg (args, int);
1919
1920 op->stats.Con = iarg;
1921 break;
1922
1923 case CFAPI_OBJECT_PROP_WIS:
1924 iarg = va_arg (args, int);
1925
1926 op->stats.Wis = iarg;
1927 break;
1928
1929 case CFAPI_OBJECT_PROP_INT:
1930 iarg = va_arg (args, int);
1931
1932 op->stats.Int = iarg;
1933 break;
1934
1935 case CFAPI_OBJECT_PROP_POW:
1936 iarg = va_arg (args, int);
1937
1938 op->stats.Pow = iarg;
1939 break;
1940
1941 case CFAPI_OBJECT_PROP_CHA:
1942 iarg = va_arg (args, int);
1943
1944 op->stats.Cha = iarg;
1945 break;
1946
1947 case CFAPI_OBJECT_PROP_WC:
1948 iarg = va_arg (args, int);
1949
1950 op->stats.wc = iarg;
1951 break;
1952
1953 case CFAPI_OBJECT_PROP_AC:
1954 iarg = va_arg (args, int);
1955
1956 op->stats.ac = iarg;
1957 break;
1958
1959 case CFAPI_OBJECT_PROP_HP:
1960 iarg = va_arg (args, int);
1961
1962 op->stats.hp = iarg;
1963 break;
1964
1965 case CFAPI_OBJECT_PROP_SP:
1966 iarg = va_arg (args, int);
1967
1968 op->stats.sp = iarg;
1969 break;
1970
1971 case CFAPI_OBJECT_PROP_GP:
1972 iarg = va_arg (args, int);
1973
1974 op->stats.grace = iarg;
1975 break;
1976
1977 case CFAPI_OBJECT_PROP_FP:
1978 iarg = va_arg (args, int);
1979
1980 op->stats.food = iarg;
1981 break;
1982
1983 case CFAPI_OBJECT_PROP_MAXHP:
1984 iarg = va_arg (args, int);
1985
1986 op->stats.maxhp = iarg;
1987 break;
1988
1989 case CFAPI_OBJECT_PROP_MAXSP:
1990 iarg = va_arg (args, int);
1991
1992 op->stats.maxsp = iarg;
1993 break;
1994
1995 case CFAPI_OBJECT_PROP_MAXGP:
1996 iarg = va_arg (args, int);
1997
1998 op->stats.maxgrace = iarg;
1999 break;
2000
2001 case CFAPI_OBJECT_PROP_DAM:
2002 iarg = va_arg (args, int);
2003
2004 op->stats.dam = iarg;
2005 break;
2006
2007 case CFAPI_OBJECT_PROP_FACE:
2008 iarg = va_arg (args, int);
2009
2010 op->animation_id = iarg;
2011 update_object (op, UP_OBJ_FACE);
2012 break;
2013
2014 case CFAPI_OBJECT_ANIMATION:
2015 iarg = va_arg (args, int);
2016
2017 if (iarg != -1)
2018 {
2019 SET_ANIMATION (op, iarg);
2020 }
2021 update_object (op, UP_OBJ_FACE);
2022 break;
2023
2024 case CFAPI_PLAYER_PROP_MARKED_ITEM:
2025 if (op->contr)
2026 {
2027 oparg = va_arg (args, object *);
2028
2029 op->contr->mark = oparg;
2030 }
2031 break;
2032
2033 case CFAPI_PLAYER_PROP_PARTY:
2034 if (op->contr)
2035 {
2036 partyarg = va_arg (args, partylist *);
2037
2038 op->contr->party = partyarg;
2039 }
2040 break;
2041
2042 default:
2043 *type = CFAPI_NONE;
2044 break;
2045 }
2046 }
2047 va_end (args);
2048
2049 *type = CFAPI_NONE;
2050 return NULL;
2051} 851}
2052 852
2053void * 853void *
2054cfapi_object_apply_below (int *type, ...) 854cfapi_object_apply_below (int *type, ...)
2055{ 855{
… …
2794 y = map->enter_y; 1594 y = map->enter_y;
2795 } 1595 }
2796 1596
2797/* 1597/*
2798 originator = object::create(); 1598 originator = object::create();
2799 EXIT_PATH(originator) = add_string(map->path); 1599 EXIT_PATH(originator) = map->path;
2800 EXIT_X(originator) = x; 1600 EXIT_X(originator) = x;
2801 EXIT_Y(originator) = y; 1601 EXIT_Y(originator) = y;
2802 printf("B Transfer: X=%d, Y=%d, OP=%s\n", x, y, op->name);*/ 1602 printf("B Transfer: X=%d, Y=%d, OP=%s\n", x, y, op->name);*/
2803 /*enter_exit(op, originator); */ 1603 /*enter_exit(op, originator); */
2804 insert_ob_in_map_at (op, map, NULL, 0, x, y); 1604 insert_ob_in_map_at (op, map, NULL, 0, x, y);
… …
2925 1725
2926/* PLAYER SUBCLASS */ 1726/* PLAYER SUBCLASS */
2927void * 1727void *
2928cfapi_player_find (int *type, ...) 1728cfapi_player_find (int *type, ...)
2929{ 1729{
2930 va_list args; 1730 abort ();
2931 void *rv;
2932 char *sval;
2933
2934 va_start (args, type);
2935
2936 sval = va_arg (args, char *);
2937
2938 va_end (args);
2939
2940 rv = find_player (sval);
2941
2942 *type = CFAPI_PPLAYER;
2943 return rv;
2944} 1731}
2945 1732
2946void * 1733void *
2947cfapi_player_message (int *type, ...) 1734cfapi_player_message (int *type, ...)
2948{ 1735{
… …
3095 1882
3096/* Party-related functions */ 1883/* Party-related functions */
3097void * 1884void *
3098cfapi_party_get_property (int *type, ...) 1885cfapi_party_get_property (int *type, ...)
3099{ 1886{
3100 partylist *party; 1887 abort ();
3101 int prop;
3102 va_list args;
3103 void *rv;
3104 object *obarg;
3105 player *pl;
3106
3107 va_start (args, type);
3108 party = va_arg (args, partylist *);
3109 prop = va_arg (args, int);
3110
3111 switch (prop)
3112 {
3113 case CFAPI_PARTY_PROP_NAME:
3114 *type = CFAPI_STRING;
3115 rv = (void *) party->partyname;
3116 break;
3117
3118 case CFAPI_PARTY_PROP_NEXT:
3119 *type = CFAPI_PPARTY;
3120 rv = (party ? party->next : get_firstparty ());
3121 break;
3122
3123 case CFAPI_PARTY_PROP_PASSWORD:
3124 *type = CFAPI_STRING;
3125 rv = (void *) party->passwd;
3126 break;
3127
3128 case CFAPI_PARTY_PROP_PLAYER:
3129 *type = CFAPI_PPLAYER;
3130 obarg = va_arg (args, object *);
3131
3132 pl = (obarg ? (player *)obarg->contr : first_player);
3133 rv = NULL;
3134 for (; pl != NULL; pl = pl->next)
3135 if (pl->ob->contr->party == party)
3136 {
3137 rv = (void *) pl;
3138 break;
3139 }
3140 break;
3141
3142 default:
3143 *type = CFAPI_NONE;
3144 rv = NULL;
3145 break;
3146 }
3147 va_end (args);
3148 return rv;
3149} 1888}
3150 1889
3151/* Regions-related functions */ 1890/* Regions-related functions */
3152void * 1891void *
3153cfapi_region_get_property (int *type, ...) 1892cfapi_region_get_property (int *type, ...)
3154{ 1893{
3155 region *reg; 1894 abort ();
3156 int prop;
3157 va_list args;
3158 void *rv;
3159
3160 va_start (args, type);
3161 reg = va_arg (args, region *);
3162 prop = va_arg (args, int);
3163
3164 switch (prop)
3165 {
3166 case CFAPI_REGION_PROP_NAME:
3167 *type = CFAPI_STRING;
3168 rv = (void *) reg->name;
3169 break;
3170
3171 case CFAPI_REGION_PROP_NEXT:
3172 *type = CFAPI_PREGION;
3173 rv = (reg ? reg->next : first_region);
3174 break;
3175
3176 case CFAPI_REGION_PROP_PARENT:
3177 *type = CFAPI_PREGION;
3178 rv = (void *) reg->parent;
3179 break;
3180
3181 case CFAPI_REGION_PROP_LONGNAME:
3182 *type = CFAPI_STRING;
3183 rv = (void *) reg->longname;
3184 break;
3185
3186 case CFAPI_REGION_PROP_MESSAGE:
3187 *type = CFAPI_STRING;
3188 rv = (void *) reg->msg;
3189 break;
3190
3191 default:
3192 *type = CFAPI_NONE;
3193 rv = NULL;
3194 break;
3195 }
3196 va_end (args);
3197 return rv;
3198} 1895}
3199 1896
3200/*****************************************************************************/ 1897/*****************************************************************************/
3201 1898
3202/* NEW PLUGIN STUFF ENDS HERE */ 1899/* NEW PLUGIN STUFF ENDS HERE */
… …
3232 return NULL; 1929 return NULL;
3233} 1930}
3234 1931
3235/*****************************************************************************/ 1932/*****************************************************************************/
3236 1933
3237/* Plugins initialization. Browses the plugins directory and call */ 1934/* Plugins initialisation. Browses the plugins directory and call */
3238 1935
3239/* initOnePlugin for each file found. */ 1936/* initOnePlugin for each file found. */
3240 1937
3241/* Returns 0 if at least one plugin was successfully loaded, -1 if not */ 1938/* Returns 0 if at least one plugin was successfully loaded, -1 if not */
3242 1939
… …
3249 size_t l; 1946 size_t l;
3250 char buf[MAX_BUF]; 1947 char buf[MAX_BUF];
3251 char buf2[MAX_BUF]; 1948 char buf2[MAX_BUF];
3252 int result; 1949 int result;
3253 1950
3254 LOG (llevInfo, "Initializing plugins\n"); 1951 LOG (llevInfo, "Initialising plugins\n");
3255 strcpy (buf, LIBDIR); 1952 strcpy (buf, LIBDIR);
3256 strcat (buf, "/plugins/"); 1953 strcat (buf, "/plugins/");
3257 LOG (llevInfo, "Plugins directory is %s\n", buf); 1954 LOG (llevInfo, "Plugins directory is %s\n", buf);
3258 1955
3259 plugins_init_perl (); 1956 plugins_init_perl ();

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines