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

Comparing deliantra/server/plugins/cfperl/cfperl.xs (file contents):
Revision 1.32 by root, Tue Mar 7 13:59:57 2006 UTC vs.
Revision 1.40 by root, Sun Mar 26 15:52:03 2006 UTC

42#else 42#else
43#define MODULEAPI 43#define MODULEAPI
44#endif 44#endif
45 45
46#include <plugin_common.h> 46#include <plugin_common.h>
47#include <sounds.h>
47 48
48#include <stdarg.h> 49#include <stdarg.h>
49 50
50#include "perlxsi.c" 51#include "perlxsi.c"
51 52
216 case CFAPI_INT: 217 case CFAPI_INT:
217 sv = newSViv (*va_arg (args, int *)); 218 sv = newSViv (*va_arg (args, int *));
218 break; 219 break;
219 220
220 case CFAPI_LONG: 221 case CFAPI_LONG:
221 sv = newSViv (*va_arg (args, long *)); 222 sv = newSVnv ((double)*va_arg (args, sint64 *)); /* oh, the humanity! */
222 break; 223 break;
223 224
224 case CFAPI_DOUBLE: 225 case CFAPI_DOUBLE:
225 sv = newSViv (*va_arg (args, double *)); 226 sv = newSViv (*va_arg (args, double *));
226 break; 227 break;
456 registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener); 457 registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);
457 registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener); 458 registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);
458 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener); 459 registerGlobalEvent (NULL, EVENT_MUZZLE, PLUGIN_NAME, globalEventListener);
459 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener); 460 registerGlobalEvent (NULL, EVENT_KICK, PLUGIN_NAME, globalEventListener);
460 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener); 461 registerGlobalEvent (NULL, EVENT_FREE_OB, PLUGIN_NAME, globalEventListener);
462 registerGlobalEvent (NULL, EVENT_PLAYER_LOAD, PLUGIN_NAME, globalEventListener);
463 registerGlobalEvent (NULL, EVENT_PLAYER_SAVE, PLUGIN_NAME, globalEventListener);
461 464
462 char *argv[] = { 465 char *argv[] = {
463 "", 466 "",
464 "-e" 467 "-e"
465 "BEGIN {" 468 "BEGIN {"
511 { 514 {
512 case EVENT_CRASH: 515 case EVENT_CRASH:
513 printf ("Unimplemented for now\n"); 516 printf ("Unimplemented for now\n");
514 break; 517 break;
515 518
519 case EVENT_PLAYER_LOAD:
520 case EVENT_PLAYER_SAVE:
521 context.who = va_arg (args, object *);
522 buf = va_arg (args, char *);
523 if (buf != 0)
524 strncpy (context.message, buf, sizeof (context.message));
525 break;
526
516 case EVENT_MAPLOAD: 527 case EVENT_MAPLOAD:
517 case EVENT_MAPOUT: 528 case EVENT_MAPOUT:
518 case EVENT_MAPIN: 529 case EVENT_MAPIN:
519 case EVENT_MAPCLEAN: 530 case EVENT_MAPCLEAN:
520 context.map = va_arg (args, mapstruct *); 531 context.map = va_arg (args, mapstruct *);
653 const_iv (llevInfo) 664 const_iv (llevInfo)
654 const_iv (llevDebug) 665 const_iv (llevDebug)
655 const_iv (llevMonster) 666 const_iv (llevMonster)
656 667
657 const_iv (PLAYER) 668 const_iv (PLAYER)
669 const_iv (TRANSPORT)
658 const_iv (ROD) 670 const_iv (ROD)
659 const_iv (TREASURE) 671 const_iv (TREASURE)
660 const_iv (POTION) 672 const_iv (POTION)
661 const_iv (FOOD) 673 const_iv (FOOD)
662 const_iv (POISON) 674 const_iv (POISON)
667 const_iv (BOW) 679 const_iv (BOW)
668 const_iv (WEAPON) 680 const_iv (WEAPON)
669 const_iv (ARMOUR) 681 const_iv (ARMOUR)
670 const_iv (PEDESTAL) 682 const_iv (PEDESTAL)
671 const_iv (ALTAR) 683 const_iv (ALTAR)
672 const_iv (CONFUSION)
673 const_iv (LOCKED_DOOR) 684 const_iv (LOCKED_DOOR)
674 const_iv (SPECIAL_KEY) 685 const_iv (SPECIAL_KEY)
675 const_iv (MAP) 686 const_iv (MAP)
676 const_iv (DOOR) 687 const_iv (DOOR)
677 const_iv (KEY) 688 const_iv (KEY)
778 const_iv (ITEM_TRANSFORMER) 789 const_iv (ITEM_TRANSFORMER)
779 const_iv (QUEST) 790 const_iv (QUEST)
780 791
781 const_iv (ST_BD_BUILD) 792 const_iv (ST_BD_BUILD)
782 const_iv (ST_BD_REMOVE) 793 const_iv (ST_BD_REMOVE)
794
783 const_iv (ST_MAT_FLOOR) 795 const_iv (ST_MAT_FLOOR)
784 const_iv (ST_MAT_WALL) 796 const_iv (ST_MAT_WALL)
785 const_iv (ST_MAT_ITEM) 797 const_iv (ST_MAT_ITEM)
786 798
787 const_iv (AT_PHYSICAL) 799 const_iv (AT_PHYSICAL)
988 const_iv (WILL_APPLY_DOOR) 1000 const_iv (WILL_APPLY_DOOR)
989 const_iv (WILL_APPLY_FOOD) 1001 const_iv (WILL_APPLY_FOOD)
990 1002
991 const_iv (SAVE_MODE) 1003 const_iv (SAVE_MODE)
992 const_iv (SAVE_DIR_MODE) 1004 const_iv (SAVE_DIR_MODE)
1005
1006 const_iv (M_PAPER)
1007 const_iv (M_IRON)
1008 const_iv (M_GLASS)
1009 const_iv (M_LEATHER)
1010 const_iv (M_WOOD)
1011 const_iv (M_ORGANIC)
1012 const_iv (M_STONE)
1013 const_iv (M_CLOTH)
1014 const_iv (M_ADAMANT)
1015 const_iv (M_LIQUID)
1016 const_iv (M_SOFT_METAL)
1017 const_iv (M_BONE)
1018 const_iv (M_ICE)
1019 const_iv (M_SPECIAL)
1020
1021 const_iv (SK_EXP_ADD_SKILL)
1022 const_iv (SK_EXP_TOTAL)
1023 const_iv (SK_EXP_NONE)
1024 const_iv (SK_SUBTRACT_SKILL_EXP)
1025
1026 const_iv (SK_LOCKPICKING)
1027 const_iv (SK_HIDING)
1028 const_iv (SK_SMITHERY)
1029 const_iv (SK_BOWYER)
1030 const_iv (SK_JEWELER)
1031 const_iv (SK_ALCHEMY)
1032 const_iv (SK_STEALING)
1033 const_iv (SK_LITERACY)
1034 const_iv (SK_BARGAINING)
1035 const_iv (SK_JUMPING)
1036 const_iv (SK_DET_MAGIC)
1037 const_iv (SK_ORATORY)
1038 const_iv (SK_SINGING)
1039 const_iv (SK_DET_CURSE)
1040 const_iv (SK_FIND_TRAPS)
1041 const_iv (SK_MEDITATION)
1042 const_iv (SK_PUNCHING)
1043 const_iv (SK_FLAME_TOUCH)
1044 const_iv (SK_KARATE)
1045 const_iv (SK_CLIMBING)
1046 const_iv (SK_WOODSMAN)
1047 const_iv (SK_INSCRIPTION)
1048 const_iv (SK_ONE_HANDED_WEAPON)
1049 const_iv (SK_MISSILE_WEAPON)
1050 const_iv (SK_THROWING)
1051 const_iv (SK_USE_MAGIC_ITEM)
1052 const_iv (SK_DISARM_TRAPS)
1053 const_iv (SK_SET_TRAP)
1054 const_iv (SK_THAUMATURGY)
1055 const_iv (SK_PRAYING)
1056 const_iv (SK_CLAWING)
1057 const_iv (SK_LEVITATION)
1058 const_iv (SK_SUMMONING)
1059 const_iv (SK_PYROMANCY)
1060 const_iv (SK_EVOCATION)
1061 const_iv (SK_SORCERY)
1062 const_iv (SK_TWO_HANDED_WEAPON)
1063
1064 const_iv (SOUND_NEW_PLAYER)
1065 const_iv (SOUND_FIRE_ARROW)
1066 const_iv (SOUND_LEARN_SPELL)
1067 const_iv (SOUND_FUMBLE_SPELL)
1068 const_iv (SOUND_WAND_POOF)
1069 const_iv (SOUND_OPEN_DOOR)
1070 const_iv (SOUND_PUSH_PLAYER)
1071 const_iv (SOUND_PLAYER_HITS1)
1072 const_iv (SOUND_PLAYER_HITS2)
1073 const_iv (SOUND_PLAYER_HITS3)
1074 const_iv (SOUND_PLAYER_HITS4)
1075 const_iv (SOUND_PLAYER_IS_HIT1)
1076 const_iv (SOUND_PLAYER_IS_HIT2)
1077 const_iv (SOUND_PLAYER_IS_HIT3)
1078 const_iv (SOUND_PLAYER_KILLS)
1079 const_iv (SOUND_PET_IS_KILLED)
1080 const_iv (SOUND_PLAYER_DIES)
1081 const_iv (SOUND_OB_EVAPORATE)
1082 const_iv (SOUND_OB_EXPLODE)
1083 const_iv (SOUND_CLOCK)
1084 const_iv (SOUND_TURN_HANDLE)
1085 const_iv (SOUND_FALL_HOLE)
1086 const_iv (SOUND_DRINK_POISON)
1087 const_iv (SOUND_CAST_SPELL_0)
993 }; 1088 };
994 1089
995 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1090 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
996 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv)); 1091 newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
997 1092
1017 1112
1018 const_event (BORN) 1113 const_event (BORN)
1019 const_event (CLOCK) 1114 const_event (CLOCK)
1020 const_event (CRASH) 1115 const_event (CRASH)
1021 const_event (PLAYER_DEATH) 1116 const_event (PLAYER_DEATH)
1117 const_event (PLAYER_LOAD)
1118 const_event (PLAYER_SAVE)
1022 const_event (GKILL) 1119 const_event (GKILL)
1023 const_event (LOGIN) 1120 const_event (LOGIN)
1024 const_event (LOGOUT) 1121 const_event (LOGOUT)
1025 const_event (MAPENTER) 1122 const_event (MAPENTER)
1026 const_event (MAPLEAVE) 1123 const_event (MAPLEAVE)
1139 prop (CFAPI_INT, OBJECT_PROP_ANIM_SPEED) 1236 prop (CFAPI_INT, OBJECT_PROP_ANIM_SPEED)
1140 prop (CFAPI_INT, OBJECT_PROP_FRIENDLY) 1237 prop (CFAPI_INT, OBJECT_PROP_FRIENDLY)
1141 prop (CFAPI_STRING, OBJECT_PROP_SHORT_NAME) 1238 prop (CFAPI_STRING, OBJECT_PROP_SHORT_NAME)
1142 prop (CFAPI_INT, OBJECT_PROP_MAGICAL) 1239 prop (CFAPI_INT, OBJECT_PROP_MAGICAL)
1143 prop (CFAPI_INT, OBJECT_PROP_LUCK) 1240 prop (CFAPI_INT, OBJECT_PROP_LUCK)
1144 prop (CFAPI_LONG, OBJECT_PROP_EXP)
1145 prop (CFAPI_POBJECT, OBJECT_PROP_OWNER) 1241 prop (CFAPI_POBJECT, OBJECT_PROP_OWNER)
1146 prop (CFAPI_POBJECT, OBJECT_PROP_PRESENT) 1242 prop (CFAPI_POBJECT, OBJECT_PROP_PRESENT)
1147 prop (CFAPI_INT, OBJECT_PROP_CHEATER) 1243 prop (CFAPI_INT, OBJECT_PROP_CHEATER)
1148 prop (CFAPI_INT, OBJECT_PROP_MERGEABLE) 1244 prop (CFAPI_INT, OBJECT_PROP_MERGEABLE)
1149 prop (CFAPI_INT, OBJECT_PROP_PICKABLE) 1245 prop (CFAPI_INT, OBJECT_PROP_PICKABLE)
1263 attacktype = 0 1359 attacktype = 0
1264 CODE: 1360 CODE:
1265 RETVAL = obj->attacktype; 1361 RETVAL = obj->attacktype;
1266 OUTPUT: RETVAL 1362 OUTPUT: RETVAL
1267 1363
1364# missing in plug-in api, of course
1268void 1365void
1269set_food (object *obj, int food) 1366set_food (object *obj, int food)
1270 CODE: 1367 CODE:
1271 obj->stats.food = food; 1368 obj->stats.food = food;
1272 1369
1306 1403
1307void cf_object_free (object *op) 1404void cf_object_free (object *op)
1308 1405
1309object *cf_object_present_archname_inside (object *op, char *whatstr) 1406object *cf_object_present_archname_inside (object *op, char *whatstr)
1310 1407
1311int cf_object_transfer (object *op, int x, int y, int r, object *orig) 1408int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0)
1312 1409
1313int cf_object_change_map (object *op, int x, int y, mapstruct *map) 1410int cf_object_change_map (object *op, int x, int y, mapstruct *map)
1314 1411
1315object *cf_object_clone (object *op, int clonetype = 0) 1412object *cf_object_clone (object *op, int clonetype = 0)
1316 1413
1365 ALIAS: key = 0 1462 ALIAS: key = 0
1366 1463
1367void cf_object_set_key (object *op, char *keyname, char *value) 1464void cf_object_set_key (object *op, char *keyname, char *value)
1368 1465
1369object *cf_create_object_by_name (const char *name) 1466object *cf_create_object_by_name (const char *name)
1467
1468void change_exp (object *op, double exp, const char *skill_name = 0, int flag = 0)
1469
1470void player_lvl_adj (object *who, object *skill = 0)
1471
1370 1472
1371MODULE = cf PACKAGE = cf::object PREFIX = cf_ 1473MODULE = cf PACKAGE = cf::object PREFIX = cf_
1372 1474
1373void cf_fix_object (object *pl) 1475void cf_fix_object (object *pl)
1374 ALIAS: fix = 0 1476 ALIAS: fix = 0
1390 CODE: 1492 CODE:
1391{ 1493{
1392 int unused_type; 1494 int unused_type;
1393 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y); 1495 RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
1394} 1496}
1497
1498const char *get_ob_key_value (object *op, const char *key)
1499
1500bool set_ob_key_value (object *op, const char *key, const char *value = 0, int add_key = 1)
1395 1501
1396object *get_nearest_player (object *ob) 1502object *get_nearest_player (object *ob)
1397 ALIAS: nearest_player = 0 1503 ALIAS: nearest_player = 0
1398 PREINIT: 1504 PREINIT:
1399 extern object *get_nearest_player (object *); 1505 extern object *get_nearest_player (object *);
1421base_name (object *ob, int plural) 1527base_name (object *ob, int plural)
1422 CODE: 1528 CODE:
1423 RETVAL = cf_query_base_name (ob, plural); 1529 RETVAL = cf_query_base_name (ob, plural);
1424 OUTPUT: RETVAL 1530 OUTPUT: RETVAL
1425 1531
1532living *
1533stats (object *ob)
1534 CODE:
1535 RETVAL = &ob->stats;
1536 OUTPUT: RETVAL
1537
1426 1538
1427MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_ 1539MODULE = cf PACKAGE = cf::object::player PREFIX = cf_player_
1428 1540
1429player *player (object *op) 1541player *player (object *op)
1430 CODE: 1542 CODE:
1451partylist *cf_player_get_party (object *op) 1563partylist *cf_player_get_party (object *op)
1452 ALIAS: party = 0 1564 ALIAS: party = 0
1453 1565
1454void cf_player_set_party (object *op, partylist *party) 1566void cf_player_set_party (object *op, partylist *party)
1455 1567
1568void change_skill (object *op, double exp, char *skill_name = 0, int flag = 0)
1456 1569
1457MODULE = cf PACKAGE = cf::object::map PREFIX = cf_ 1570MODULE = cf PACKAGE = cf::object::map PREFIX = cf_
1458 1571
1459MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 1572MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1460 1573
1463 1576
1464void cf_player_move (player *pl, int dir) 1577void cf_player_move (player *pl, int dir)
1465 1578
1466void MapNewmapCmd (player *pl) 1579void MapNewmapCmd (player *pl)
1467 1580
1581void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
1582
1468# nonstandard 1583# nonstandard
1469object *ob (player *pl) 1584object *ob (player *pl)
1470 CODE: 1585 CODE:
1471 RETVAL = pl->ob; 1586 RETVAL = pl->ob;
1472 OUTPUT: RETVAL 1587 OUTPUT: RETVAL
1478 1593
1479player *next (player *pl) 1594player *next (player *pl)
1480 CODE: 1595 CODE:
1481 RETVAL = pl->next; 1596 RETVAL = pl->next;
1482 OUTPUT: RETVAL 1597 OUTPUT: RETVAL
1598
1599void get_savebed (player *pl)
1600 ALIAS:
1601 savebed = 0
1602 PPCODE:
1603 EXTEND (SP, 3);
1604 PUSHs (sv_2mortal (newSVpv (pl->savebed_map, 0)));
1605 PUSHs (sv_2mortal (newSViv (pl->bed_x)));
1606 PUSHs (sv_2mortal (newSViv (pl->bed_y)));
1607
1608void set_savebed (player *pl, char *map_path, int x, int y)
1609 CODE:
1610 strcpy (pl->savebed_map, map_path);
1611 pl->bed_x = x;
1612 pl->bed_y = y;
1483 1613
1484void 1614void
1485list () 1615list ()
1486 PPCODE: 1616 PPCODE:
1487{ 1617{
1488 player *pl; 1618 player *pl;
1489 for (pl = first_player; pl; pl = pl->next) 1619 for (pl = first_player; pl; pl = pl->next)
1490 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl)); 1620 XPUSHs (newSVcfapi (CFAPI_PPLAYER, pl));
1491} 1621}
1622
1623living *
1624orig_stats (player *pl)
1625 CODE:
1626 RETVAL = &pl->orig_stats;
1627 OUTPUT: RETVAL
1628
1629living *
1630last_stats (player *pl)
1631 CODE:
1632 RETVAL = &pl->last_stats;
1633 OUTPUT: RETVAL
1492 1634
1493 1635
1494MODULE = cf PACKAGE = cf::map PREFIX = cf_map_ 1636MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
1495 1637
1496SV * 1638SV *
1519 RETVAL = map_get_map (&unused_type, 0, width, height); 1661 RETVAL = map_get_map (&unused_type, 0, width, height);
1520} 1662}
1521 OUTPUT: 1663 OUTPUT:
1522 RETVAL 1664 RETVAL
1523 1665
1666void delete_map (mapstruct *map)
1667
1668void clean_tmp_map (mapstruct *map)
1669
1670void play_sound_map (mapstruct *map, int x, int y, int sound_num)
1671
1524mapstruct *cf_map_get_map (char *name) 1672mapstruct *cf_map_get_map (char *name)
1525 PROTOTYPE: $ 1673 PROTOTYPE: $
1526 ALIAS: map = 0 1674 ALIAS: map = 0
1527 1675
1528mapstruct *cf_map_get_first () 1676mapstruct *cf_map_get_first ()
1529 PROTOTYPE: 1677 PROTOTYPE:
1530 ALIAS: first = 0 1678 ALIAS: first = 0
1679
1680# whoever "designed" the plug-in api should have wasted
1681# his/her time with staying away form the project - would have
1682# saved others a lot of time, without doubt.
1683void set_path (mapstruct *where, char *path)
1684 CODE:
1685 strcpy (where->path, path);
1686
1687bool unique (mapstruct *map)
1688 CODE:
1689 RETVAL = map->unique;
1690 OUTPUT:
1691 RETVAL
1692
1693void set_unique (mapstruct *map, bool unique)
1694 CODE:
1695 map->unique = unique;
1531 1696
1532object *cf_map_insert_object_there (mapstruct *where, object *op, object *originator, int flags) 1697object *cf_map_insert_object_there (mapstruct *where, object *op, object *originator, int flags)
1533 1698
1534object *cf_map_insert_object (mapstruct *where, object* op, int x, int y) 1699object *cf_map_insert_object (mapstruct *where, object* op, int x, int y)
1535 1700
1649 } 1814 }
1650 } 1815 }
1651 } 1816 }
1652} 1817}
1653 1818
1819
1654MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_ 1820MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_
1655 1821
1656archetype *cf_archetype_get_first() 1822archetype *cf_archetype_get_first()
1657 PROTOTYPE: 1823 PROTOTYPE:
1658 ALIAS: first = 0 1824 ALIAS: first = 0
1710 1876
1711const char *cf_region_get_message (region *reg) 1877const char *cf_region_get_message (region *reg)
1712 ALIAS: message = 0 1878 ALIAS: message = 0
1713 1879
1714 1880
1881MODULE = cf PACKAGE = cf::living PREFIX = cf_living_
1882
1883double
1884exp (living *liv, double new_val = 0.)
1885 PROTOTYPE: $;$
1886 ALIAS:
1887 Str = 1
1888 Dex = 2
1889 Con = 3
1890 Wis = 4
1891 Cha = 5
1892 Int = 6
1893 Pow = 7
1894 wc = 8
1895 ac = 9
1896 hp = 10
1897 maxhp = 11
1898 sp = 12
1899 maxsp = 13
1900 grace = 14
1901 maxgrace = 15
1902 food = 16
1903 dam = 17
1904 luck = 18
1905 CODE:
1906# define LIVING_ACC(acc,idx) case idx: RETVAL = liv->acc; if (items > 1) liv->acc = new_val; break
1907 switch (ix)
1908 {
1909 LIVING_ACC (exp , 0);
1910 LIVING_ACC (Str , 1);
1911 LIVING_ACC (Dex , 2);
1912 LIVING_ACC (Con , 3);
1913 LIVING_ACC (Wis , 4);
1914 LIVING_ACC (Cha , 5);
1915 LIVING_ACC (Int , 6);
1916 LIVING_ACC (Pow , 7);
1917 LIVING_ACC (wc , 8);
1918 LIVING_ACC (ac , 9);
1919 LIVING_ACC (hp , 10);
1920 LIVING_ACC (maxhp , 11);
1921 LIVING_ACC (sp , 12);
1922 LIVING_ACC (maxsp , 13);
1923 LIVING_ACC (grace , 14);
1924 LIVING_ACC (maxgrace, 15);
1925 LIVING_ACC (food , 16);
1926 LIVING_ACC (dam , 17);
1927 LIVING_ACC (luck , 18);
1928 }
1929# undef LIVING_ACC
1930 OUTPUT:
1931 RETVAL
1932

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines