diff --git a/.gitignore b/.gitignore index fd1a7c349..d7c102f5a 100644 --- a/.gitignore +++ b/.gitignore @@ -1,45 +1,44 @@ -*.orig -eressea.ini -Debug -Release - -# SlickEdit -*.vtg -*.vpwhistu - -# Microsoft Visual Studio build artefacts -src/Debug/ -src/Release/ -src/*.vcproj.*.user -Debug/ -Release/ -ipch/ -*.ipch -*.ncb -*.opensdf -*.pdb -*.sdf -*.suo -*.user - -*~ -*.bak -bin/ -build*/ -game-e2/data -game-e2/*.log* -game-e2/reports/ -game-e3/data/ -game-e3/*.log* -game-e3/reports/ -*.log -*.log.* -tags -Thumbs.db -.gdb_history -*.cfg -*.cmd -tmp/ -tests/config.lua -tests/reports/ -tests/data/185.dat +tolua/ +.vscode/ +*.orig +eressea.ini +Debug +Release + +# SlickEdit +*.vtg +*.vpwhistu + +# Microsoft Visual Studio build artefacts +src/Debug/ +src/Release/ +src/*.vcproj.*.user +Debug/ +Release/ +ipch/ +*.ipch +*.ncb +*.opensdf +*.pdb +*.sdf +*.suo +*.user + +*~ +*.bak +bin/ +build*/ +*.log +*.log.* +tags +Thumbs.db +.gdb_history +*.cfg +*.cmd +tmp/ +tests/config.lua +tests/reports/ +tests/data/185.dat +/quicklist/ +/cutest/ +/critbit/ diff --git a/.gitmodules b/.gitmodules index 81c45896e..7dff5ab6a 100644 --- a/.gitmodules +++ b/.gitmodules @@ -4,18 +4,9 @@ [submodule "cmake"] path = cmake url = https://github.com/ennorehling/cmake.git -[submodule "quicklist"] - path = quicklist - url = https://github.com/ennorehling/quicklist.git -[submodule "critbit"] - path = critbit - url = https://github.com/ennorehling/critbit.git [submodule "dlmalloc"] path = dlmalloc url = https://github.com/ennorehling/dlmalloc.git -[submodule "cutest"] - path = cutest - url = https://github.com/ennorehling/cutest.git [submodule "iniparser"] path = iniparser url = https://github.com/ennorehling/iniparser.git @@ -26,6 +17,6 @@ path = storage url = https://github.com/ennorehling/storage.git branch = master -[submodule "tolua"] - path = tolua - url = https://github.com/ennorehling/tolua.git +[submodule "clibs"] + path = clibs + url = https://github.com/ennorehling/clibs diff --git a/.travis.yml b/.travis.yml index 003fb67ad..78aaf3648 100644 --- a/.travis.yml +++ b/.travis.yml @@ -7,7 +7,8 @@ script: s/travis-build addons: apt: packages: - - liblua5.2-dev + - liblua5.1-dev + - libtolua-dev - libncurses5-dev - libsqlite3-dev - libxml2-dev diff --git a/CMakeLists.txt b/CMakeLists.txt index 7edf32d4f..405b86a03 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -6,7 +6,6 @@ endif(WIN32) project (eressea-server C) - enable_testing() find_package (LibXml2) find_package (SQLite3) @@ -14,63 +13,14 @@ find_package (Curses) find_package (Lua REQUIRED) find_package (ToLua REQUIRED) -INCLUDE (CheckIncludeFiles) -INCLUDE (CheckSymbolExists) -CHECK_INCLUDE_FILES (stdbool.h HAVE_STDBOOL_H) -CHECK_INCLUDE_FILES (windows.h HAVE_WINDOWS_H) -CHECK_INCLUDE_FILES (io.h HAVE_IO_H) -CHECK_INCLUDE_FILES (strings.h HAVE_STRINGS_H) -CHECK_INCLUDE_FILES (unistd.h HAVE_UNISTD_H) -IF (HAVE_IO_H) -CHECK_SYMBOL_EXISTS (_access "io.h" HAVE__ACCESS) -ENDIF (HAVE_IO_H) -IF (HAVE_WINDOWS_H) -CHECK_SYMBOL_EXISTS (_sleep "windows.h" HAVE__SLEEP) -ENDIF(HAVE_WINDOWS_H) -IF(HAVE_STDBOOL_H) -CHECK_SYMBOL_EXISTS (_Bool "stdbool.h" HAVE__BOOL) -ENDIF(HAVE_STDBOOL_H) -IF(HAVE_UNISTD_H) -CHECK_SYMBOL_EXISTS (sleep "unistd.h" HAVE_SLEEP) -CHECK_SYMBOL_EXISTS (usleep "unistd.h" HAVE_USLEEP) -CHECK_SYMBOL_EXISTS (access "unistd.h" HAVE_ACCESS) -ENDIF(HAVE_UNISTD_H) -CHECK_SYMBOL_EXISTS (strlcpy "string.h" HAVE_STRLCPY) -CHECK_SYMBOL_EXISTS (strlcat "string.h" HAVE_STRLCAT) -CHECK_SYMBOL_EXISTS (slprintf "string.h" HAVE_SLPRINTF) -CHECK_SYMBOL_EXISTS (strcasecmp "string.h" HAVE_STRCASECMP) -CHECK_SYMBOL_EXISTS (strncasecmp "string.h" HAVE_STRNCASECMP) -CHECK_SYMBOL_EXISTS (_strlwr "string.h" HAVE__STRLWR) -CHECK_SYMBOL_EXISTS (_strcmpl "string.h" HAVE__STRCMPL) -CHECK_SYMBOL_EXISTS (_strdup "string.h" HAVE__STRDUP) -CHECK_SYMBOL_EXISTS (_stricmp "string.h" HAVE__STRICMP) -CHECK_SYMBOL_EXISTS (_memicmp "string.h" HAVE__MEMICMP) -CHECK_SYMBOL_EXISTS (strcmpl "string.h" HAVE_STRCMPL) -CHECK_SYMBOL_EXISTS (strdup "string.h" HAVE_STRDUP) -CHECK_SYMBOL_EXISTS (stricmp "string.h" HAVE_STRICMP) -CHECK_SYMBOL_EXISTS (memicmp "string.h" HAVE_MEMICMP) -CHECK_SYMBOL_EXISTS (strlwr "string.h" HAVE_STRLWR) -CHECK_SYMBOL_EXISTS (snprintf "stdio.h" HAVE_SNPRINTF) -CHECK_SYMBOL_EXISTS (_snprintf "stdio.h" HAVE__SNPRINTF) -CHECK_SYMBOL_EXISTS (mkdir "sys/stat.h" HAVE_SYS_STAT_MKDIR) -CHECK_SYMBOL_EXISTS (mkdir "direct.h" HAVE_DIRECT_MKDIR) -CHECK_SYMBOL_EXISTS (_mkdir "direct.h" HAVE_DIRECT__MKDIR) - -CONFIGURE_FILE ( - ${CMAKE_CURRENT_SOURCE_DIR}/autoconf.h.in - ${CMAKE_BINARY_DIR}/include/autoconf.h) -INCLUDE_DIRECTORIES (${CMAKE_BINARY_DIR}/include) -SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -DUSE_AUTOCONF") - -add_subdirectory (cutest) add_subdirectory (cJSON) add_subdirectory (storage) add_subdirectory (iniparser) -add_subdirectory (quicklist) -add_subdirectory (critbit) +add_subdirectory (clibs) add_subdirectory (process) add_subdirectory (src eressea) install(DIRECTORY res conf DESTINATION ${CMAKE_INSTALL_PREFIX} FILES_MATCHING PATTERN "*.xml") install(DIRECTORY res conf DESTINATION ${CMAKE_INSTALL_PREFIX} FILES_MATCHING PATTERN "*.json") install(DIRECTORY scripts DESTINATION ${CMAKE_INSTALL_PREFIX} FILES_MATCHING PATTERN "*.lua") +install(DIRECTORY lunit DESTINATION ${CMAKE_INSTALL_PREFIX} FILES_MATCHING PATTERN "*.lua") install(DIRECTORY share DESTINATION ${CMAKE_INSTALL_PREFIX}) diff --git a/autoconf.h.in b/autoconf.h.in deleted file mode 100644 index 1c151b6f9..000000000 --- a/autoconf.h.in +++ /dev/null @@ -1,159 +0,0 @@ -#pragma once -#ifndef CMAKE_AUTOCONF_H -#define CMAKE_AUTOCONF_H -#cmakedefine HAVE_STDBOOL_H 1 -#cmakedefine HAVE_STRINGS_H 1 -#cmakedefine HAVE_WINDOWS_H 1 -#cmakedefine HAVE_IO_H 1 -#cmakedefine HAVE_UNISTD_H 1 -#cmakedefine HAVE__BOOL 1 -#cmakedefine HAVE_STRCASECMP 1 -#cmakedefine HAVE_STRNCASECMP 1 -#cmakedefine HAVE__STRICMP 1 -#cmakedefine HAVE_SNPRINTF 1 -#cmakedefine HAVE__SNPRINTF 1 -#cmakedefine HAVE_ACCESS 1 -#cmakedefine HAVE__ACCESS 1 -#cmakedefine HAVE_SLEEP 1 -#cmakedefine HAVE_USLEEP 1 -#cmakedefine HAVE__SLEEP 1 -#cmakedefine HAVE_STRDUP 1 -#cmakedefine HAVE__STRDUP 1 -#cmakedefine HAVE_STRICMP 1 -#cmakedefine HAVE__STRCMPL 1 -#cmakedefine HAVE_STRCMPL 1 -#cmakedefine HAVE__MEMICMP 1 -#cmakedefine HAVE_MEMICMP 1 -#cmakedefine HAVE__STRLWR 1 -#cmakedefine HAVE_STRLWR 1 -#cmakedefine HAVE_STRLCPY 1 -#cmakedefine HAVE_STRLCAT 1 -#cmakedefine HAVE_SLPRINTF 1 -#cmakedefine HAVE_SYS_STAT_MKDIR 1 -#cmakedefine HAVE_DIRECT_MKDIR 1 -#cmakedefine HAVE_DIRECT__MKDIR 1 - -#if defined(HAVE_STRINGS_H) -#include -#endif - -#if defined(HAVE_UNISTD_H) -#include -#endif - -#if defined(HAVE_IO_H) -#include -#endif - -#if defined(HAVE_WINDOWS_H) -#include -#endif - -#if defined(HAVE_STDBOOL_H) -# include -#else -# if ! HAVE__BOOL -# ifdef __cplusplus -typedef bool _Bool; -# else -typedef unsigned char _Bool; -# endif -# endif -# define bool _Bool -# define false 0 -# define true 1 -# define __bool_true_false_are_defined 1 -#endif - -#ifndef HAVE__ACCESS -#ifdef HAVE_ACCESS -#define _access(path, mode) access(path, mode) -#endif -#endif - -#ifndef _A_RDONLY -#ifdef R_OK -#define _A_RDONLY R_OK -#endif -#endif - -#if !defined(HAVE__MEMICMP) -#if defined(HAVE_MEMICMP) -#define _memicmp(a, b, n) memicmp(a, b, n) -#elif defined(HAVE_STRNCASECMP) -#define _memicmp(a, b, n) strncasecmp(a, b, n) -#else -#define _memicmp(a, b, n) lcp_memicmp(a, b, n) -#endif -#endif - -#if !defined(HAVE__STRCMPL) -#if defined(HAVE_STRCMPL) -#define _strcmpl(a, b) strcmpl(a, b) -#elif defined(HAVE__STRICMP) -#define _strcmpl(a, b) _stricmp(a, b) -#elif defined(HAVE_STRICMP) -#define _strcmpl(a, b) stricmp(a, b) -#elif defined(HAVE_STRCASECMP) -#define _strcmpl(a, b) strcasecmp(a, b) -#else -#define _strcmpl(a, b) lcp_strcmpl(a, b) -#endif -#endif - -#if defined(HAVE_DIRECT__MKDIR) -#include -#elif defined(HAVE_DIRECT_MKDIR) -#include -#define _mkdir(a) mkdir(a) -#elif defined(HAVE_SYS_STAT_MKDIR) -#include -#define _mkdir(a) mkdir(a, 0777) -#endif - -#if !defined(HAVE__STRLWR) -#if defined(HAVE_STRLWR) -#define _strlwr(a) strlwr(a) -#else -#define _strlwr(a) lcp_strlwr(a) -#endif -#endif - -#if !defined(HAVE__STRDUP) -#if defined(HAVE_STRDUP) -#define _strdup(a) strdup(a) -#else -#define _strdup(a) lcp_strdup(a) -#endif -#endif - -#if !defined(HAVE__SLEEP) -#if defined(HAVE_USLEEP) -#define _sleep(a) usleep(a) -#elif defined(HAVE_SLEEP) -#define _sleep(a) sleep((a)/1000) -#else -#define _sleep(a) lcp_sleep(a) -#endif -#endif - -#if !defined(HAVE__SNPRINTF) -#if defined(HAVE_SNPRINTF) -#define _snprintf snprintf -#else -#define _snprintf lcp_snprintf -#endif -#endif - -#ifndef _min -#define _min(a,b) ((a) < (b) ? (a) : (b)) -#endif -#ifndef _max -#define _max(a,b) ((a) > (b) ? (a) : (b)) -#endif - -#if !defined(DBG_UNREFERENCED_PARAMETER) -#define DBG_UNREFERENCED_PARAMETER(x) x -#endif - -#endif diff --git a/clibs b/clibs new file mode 160000 index 000000000..d286006a2 --- /dev/null +++ b/clibs @@ -0,0 +1 @@ +Subproject commit d286006a28c8aa7cd70ed7fd4cd172b50ade9727 diff --git a/conf/e2/config.json b/conf/e2/config.json index 217cfffe9..f9f9b2df0 100644 --- a/conf/e2/config.json +++ b/conf/e2/config.json @@ -5,12 +5,11 @@ "e2/terrains.json" ], "disabled": [ - "pay", "jsreport" ], "settings": { - "game.id": 2, - "game.name": "Eressea", + "game.name" : "Eressea", + "game.id" : 2, "orders.default": "work", "NewbieImmunity": 8, "modules.wormholes": true, diff --git a/conf/e2/locales.xml b/conf/e2/locales.xml new file mode 100644 index 000000000..7a31bbc17 --- /dev/null +++ b/conf/e2/locales.xml @@ -0,0 +1,13 @@ + + + + + + + + + + + + + diff --git a/conf/e2/config.xml b/conf/e2/rules.xml similarity index 56% rename from conf/e2/config.xml rename to conf/e2/rules.xml index f7f227824..8d0b01b27 100644 --- a/conf/e2/config.xml +++ b/conf/e2/rules.xml @@ -1,11 +1,5 @@ - - - - - - @@ -26,10 +20,9 @@ - - + @@ -42,30 +35,8 @@ - + - - - - - - - - - eressea-server@eressea.de - eressea-server@eressea.de - - - Bitte denke daran, deine Befehle mit dem Betreff - ERESSEA 2 BEFEHLE an eressea-server@eressea.de zu senden. - Remember to send your orders to - eressea-server@eressea.de with the subject ERESSEA 2 ORDERS. - - - ERESSEA 2 BEFEHLE - ERESSEA 2 ORDERS - - diff --git a/conf/e3/config.json b/conf/e3/config.json index c9a86c8da..1cecc89d2 100644 --- a/conf/e3/config.json +++ b/conf/e3/config.json @@ -1,9 +1,9 @@ { - "include": [ - "keywords.json", + "include": [ + "keywords.json", "prefixes.json", "e3/terrains.json" - ], + ], "disabled": [ "herbalism", "alchemy", @@ -25,8 +25,8 @@ "jsreport" ], "settings": { - "game.id": 3, - "game.name": "E3", + "game.name" : "Eressea", + "game.id" : 3, "orders.default": "work", "database.gameid": 7, "NewbieImmunity": 4, @@ -42,6 +42,7 @@ "nmr.timeout": 5, "nmr.removenewbie": 0, "GiveRestriction": 3, + "healing.forest": 2.0, "hunger.long": false, "hunger.damage": "1d9+9", "hunger.demons.skill": true, diff --git a/conf/e3/locales.xml b/conf/e3/locales.xml new file mode 100644 index 000000000..2d94bf202 --- /dev/null +++ b/conf/e3/locales.xml @@ -0,0 +1,13 @@ + + + + + + + + + + + + + diff --git a/conf/e3/config.xml b/conf/e3/rules.xml similarity index 56% rename from conf/e3/config.xml rename to conf/e3/rules.xml index d337ead42..421b54d7a 100644 --- a/conf/e3/config.xml +++ b/conf/e3/rules.xml @@ -1,8 +1,5 @@ - - - @@ -15,8 +12,6 @@ - - @@ -28,14 +23,6 @@ - - - - - - - - @@ -44,20 +31,4 @@ - - - eressea-server@eressea.de - eressea-server@eressea.de - - - Bitte denke daran, deine Befehle mit dem Betreff - ERESSEA 3 BEFEHLE an eressea-server@eressea.de zu senden. - Remember to send your orders to - eressea-server@eressea.de with the subject E3 ORDERS. - - - ERESSEA 3 BEFEHLE - ERESSEA 3 ORDERS - - diff --git a/conf/e3/terrains.json b/conf/e3/terrains.json index 7b5ea980d..ee0eb0e37 100644 --- a/conf/e3/terrains.json +++ b/conf/e3/terrains.json @@ -222,14 +222,6 @@ "div": "100" } } - }, - "default": { - "size": 0, - "herbs": [], - "seed": 0, - "road": 0, - "flags": [ "land", "walk", "sail", "fly" ], - "production": {} } } } diff --git a/conf/e4/catalog.xml b/conf/e4/catalog.xml deleted file mode 100644 index 9987e72c8..000000000 --- a/conf/e4/catalog.xml +++ /dev/null @@ -1,16 +0,0 @@ - - - - - - - - diff --git a/conf/e4/config.json b/conf/e4/config.json deleted file mode 100644 index 7a73de86f..000000000 --- a/conf/e4/config.json +++ /dev/null @@ -1,95 +0,0 @@ -{ - "include": [ - "keywords.json", - "prefixes.json", - "e3/terrains.json" - ], - "disabled": [ - "herbalism", - "alchemy", - "entertainment", - "espionage", - "perception", - "stealth", - "taxation", - "trade", - "besiege", - "steal", - "buy", - "teach", - "sabotage", - "spy", - "tax", - "entertain", - "sell", - "jsreport" - ], - "settings": { - "game.id": 4, - "game.name": "Deveron", - "orders.default": "work", - "database.gameid": 7, - "NewbieImmunity": 4, - "modules.astralspace": false, - "modules.wormholes": false, - "modules.markets": true, - "magic.regeneration": 0.75, - "magic.power": 0.5, - "resource.factor": 0.25, - "skills.cost.tactics": 500, - "entertain.base": 0, - "entertain.perlevel": 20, - "nmr.timeout": 5, - "nmr.removenewbie": 0, - "GiveRestriction": 3, - "hunger.long": false, - "hunger.damage": "1d9+9", - "hunger.demons.skill": true, - "hunger.demons.peasant_tolerance": true, - "init_spells": 0, - "recruit.allow_merge": true, - "study.expensivemigrants": true, - "study.speedup": 2, - "study.produceexp": 12, - "world.era": 3, - "rules.reserve.twophase": true, - "rules.owners.force_leave": false, - "rules.transfermen": false, - "stealth.faction.other": false, - "rules.stealth.anon_battle": false, - "rules.check_overload": false, - "rules.combat.goblinbonus": 3, - "rules.alliances": true, - "rules.combat.herospeed": 3, - "rules.combat.demon_vampire": 5, - "rules.combat.skill_bonus": 0, - "rules.combat.nat_armor": 1, - "rules.items.loot_divisor": 2, - "rules.items.give_divisor": 2, - "rules.move.owner_leave": true, - "rules.region_owners": true, - "rules.cavalry.skill": 2, - "rules.cavalry.mode": 1, - "rules.magic.multipotion": true, - "rules.magic.wol_effect": 5, - "rules.magic.factionlist": true, - "rules.magic.wol_type": 2, - "rules.blessed_harvest.flags": 1, - "rules.magic.elfpower": true, - "rules.magic.playerschools": "gwyrrd illaun draig cerddor", - "rules.build.other_buildings": true, - "rules.economy.taxation": 1, - "rules.food.flags": 2, - "rules.economy.roqf": 5, - "rules.economy.herbrot": 0, - "rules.region_owner_pay_building": "market harbour lighthouse", - "rules.dwarf_castles": true, - "rules.limit.faction": 250, - "rules.grow.formula": 1, - "rules.tactics.formula": 1, - "rules.help.mask": "fight guard money give", - "movement.shipspeed.skillbonus": 6, - "alliance.auto": "fight", - "alliance.restricted": "fight" - } -} diff --git a/conf/e4/config.xml b/conf/e4/config.xml deleted file mode 100644 index 5c99f7d7e..000000000 --- a/conf/e4/config.xml +++ /dev/null @@ -1,64 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - eressea-server@eressea.de - eressea-server@eressea.de - - - Bitte denke daran, deine Befehle mit dem Betreff - ERESSEA 4 BEFEHLE an eressea-server@eressea.de zu senden. - Remember to send your orders to - eressea-server@eressea.de with the subject ERESSEA 4 ORDERS. - - - ERESSEA 4 BEFEHLE - ERESSEA 4 ORDERS - - - diff --git a/conf/eressea.ini b/conf/eressea.ini index e14d0af50..b6db180ca 100644 --- a/conf/eressea.ini +++ b/conf/eressea.ini @@ -1,5 +1,7 @@ - -[eressea] +[game] +email = eressea-server@kn-bremen.de +sender = Eressea Server +name = Eressea base = . report = reports verbose = 0 diff --git a/conf/keywords.json b/conf/keywords.json index 88ee6c2bd..7117217d7 100644 --- a/conf/keywords.json +++ b/conf/keywords.json @@ -1,69 +1,69 @@ { - "keywords": { - "en" : { - "grow": [ "GROW", "BREED", "PLANT" ], - "combat": [ "COMBAT", "FIGHT" ] - }, - "de": { - "//" : "//", - "banner": "BANNER", - "work": [ "ARBEITE", "ARBEITEN" ], - "attack": ["ATTACKIERE", "ATTACKIEREN"], - "steal": [ "BEKLAUE", "BEKLAUEN" ], - "besiege": ["BELAGERE", "BELAGERN" ], - "name": [ "BENENNE", "BENENNEN" ], - "use": [ "BENUTZE", "BENUTZEN" ], - "describe": [ "BESCHREIBE", "BESCHREIBEN" ], - "enter": ["BETRETE", "BETRETEN"], - "guard": ["BEWACHE", "BEWACHEN"], - "message": "BOTSCHAFT", - "end": "ENDE", - "ride": ["FAHRE", "FAHREN"], - "number": "NUMMER", - "follow": ["FOLGE","FOLGEN"], - "research": ["FORSCHE", "FORSCHEN"], - "give": "GIB", - "help": [ "HELFE", "HELFEN" ], - "combat": [ "KÄMPFE", "KÄMPFEN" ], - "ready" : "KAMPFZAUBER", - "buy" : [ "KAUFE", "KAUFEN"], - "contact": [ "KONTAKT", "KONTAKTIEREN"], - "teach": ["LEHRE", "LEHREN"], - "study": ["LERNE", "LERNEN"], - "make": ["MACHE", "MACHEN"], - "maketemp": ["MACHE TEMP", "MACHETEMP"], - "move" : "NACH", - "password" : "PASSWORT", - "loot" : ["PLÜNDERE", "PLÜNDERN"], - "recruit": ["REKRUTIERE", "REKRUTIEREN"], - "reserve": ["RESERVIERE", "RESERVIEREN"], - "route": "ROUTE", - "sabotage": ["SABOTIERE", "SABOTIEREN"], - "option": "OPTION", - "spy": ["SPIONIERE", "SPIONIEREN"], - "quit": "STIRB", - "hide": ["TARNE", "TARNEN"], - "carry": ["TRANSPORTIERE", "TRANSPORTIEREN"], - "tax": ["TREIBE", "TREIBEN", "STEUERN"], - "entertain": ["UNTERHALTE", "UNTERHALTEN"], - "sell": ["VERKAUFE", "VERKAUFEN"], - "leave": ["VERLASSE", "VERLASSEN"], - "forget": ["VERGISS", "VERGESSEN"], - "cast": ["ZAUBERE", "ZAUBERN"], - "show": ["ZEIGE", "ZEIGEN"], - "destroy": ["ZERSTÖRE", "ZERSTÖREN"], - "grow": ["ZÜCHTE", "PFLANZE", "ZÜCHTEN", "PFLANZEN"], - "default": "DEFAULT", - "origin": "URSPRUNG", - "email": "EMAIL", - "piracy": "PIRATERIE", - "group": "GRUPPE", - "sort": ["SORTIERE", "SORTIEREN"], - "prefix": "PRÄFIX", - "alliance": "ALLIANZ", - "claim": ["BEANSPRUCHE", "BEANSPRUCHEN"], - "promote": ["BEFÖRDERE", "BEFÖRDERUNG"], - "pay": ["BEZAHLE", "BEZAHLEN"] - } - } + "keywords": { + "en" : { + "grow": [ "GROW", "BREED", "PLANT" ], + "combat": [ "COMBAT", "FIGHT" ] + }, + "de": { + "//" : "//", + "banner": "BANNER", + "work": [ "ARBEITE", "ARBEITEN" ], + "attack": ["ATTACKIERE", "ATTACKIEREN"], + "steal": [ "BEKLAUE", "BEKLAUEN" ], + "besiege": ["BELAGERE", "BELAGERN" ], + "name": [ "BENENNE", "BENENNEN" ], + "use": [ "BENUTZE", "BENUTZEN" ], + "describe": [ "BESCHREIBE", "BESCHREIBEN" ], + "enter": ["BETRETE", "BETRETEN"], + "guard": ["BEWACHE", "BEWACHEN"], + "message": "BOTSCHAFT", + "end": "ENDE", + "ride": ["FAHRE", "FAHREN"], + "number": "NUMMER", + "follow": ["FOLGE","FOLGEN"], + "research": ["FORSCHE", "FORSCHEN"], + "give": "GIB", + "help": [ "HELFE", "HELFEN" ], + "combat": [ "KÄMPFE", "KÄMPFEN" ], + "ready" : "KAMPFZAUBER", + "buy" : [ "KAUFE", "KAUFEN"], + "contact": [ "KONTAKT", "KONTAKTIEREN"], + "teach": ["LEHRE", "LEHREN"], + "study": ["LERNE", "LERNEN"], + "make": ["MACHE", "MACHEN"], + "maketemp": ["MACHE TEMP", "MACHETEMP"], + "move" : "NACH", + "password" : "PASSWORT", + "loot" : ["PLÜNDERE", "PLÜNDERN"], + "recruit": ["REKRUTIERE", "REKRUTIEREN"], + "reserve": ["RESERVIERE", "RESERVIEREN"], + "route": "ROUTE", + "sabotage": ["SABOTIERE", "SABOTIEREN"], + "option": "OPTION", + "spy": ["SPIONIERE", "SPIONIEREN"], + "quit": "STIRB", + "hide": ["TARNE", "TARNEN"], + "carry": ["TRANSPORTIERE", "TRANSPORTIEREN"], + "tax": ["TREIBE", "TREIBEN", "STEUERN"], + "entertain": ["UNTERHALTE", "UNTERHALTEN"], + "sell": ["VERKAUFE", "VERKAUFEN"], + "leave": ["VERLASSE", "VERLASSEN"], + "forget": ["VERGISS", "VERGESSEN"], + "cast": ["ZAUBERE", "ZAUBERN"], + "show": ["ZEIGE", "ZEIGEN"], + "destroy": ["ZERSTÖRE", "ZERSTÖREN"], + "grow": ["ZÜCHTE", "PFLANZE", "ZÜCHTEN", "PFLANZEN"], + "default": "DEFAULT", + "origin": "URSPRUNG", + "email": "EMAIL", + "piracy": "PIRATERIE", + "group": "GRUPPE", + "sort": ["SORTIERE", "SORTIEREN"], + "prefix": "PRÄFIX", + "alliance": "ALLIANZ", + "claim": ["BEANSPRUCHE", "BEANSPRUCHEN"], + "promote": ["BEFÖRDERE", "BEFÖRDERUNG"], + "pay": ["BEZAHLE", "BEZAHLEN"] + } + } } diff --git a/critbit b/critbit deleted file mode 160000 index 971836241..000000000 --- a/critbit +++ /dev/null @@ -1 +0,0 @@ -Subproject commit 971836241277e37274aa3110344836499816ff21 diff --git a/cutest b/cutest deleted file mode 160000 index 6e268687d..000000000 --- a/cutest +++ /dev/null @@ -1 +0,0 @@ -Subproject commit 6e268687dbf6ae55afb63210c3753530d216a622 diff --git a/doc/gprof-v3.10.0-163-gdfab45d.profile b/doc/gprof-v3.10.0-163-gdfab45d.profile new file mode 100644 index 000000000..aa148a1fd --- /dev/null +++ b/doc/gprof-v3.10.0-163-gdfab45d.profile @@ -0,0 +1,18335 @@ +# eressea -re2 -t961 run-turn.lua +Flat profile: + +Each sample counts as 0.01 seconds. + % cumulative self self total + time seconds seconds calls s/call s/call name + 11.26 3.91 3.91 232 0.02 0.02 prepare_report + 6.94 6.32 2.41 cb_find_top_i + 6.28 8.50 2.18 68430271 0.00 0.00 rc_find_i + 3.43 9.69 1.19 2742237 0.00 0.00 paragraph + 2.76 10.65 0.96 230 0.00 0.02 report_computer + 2.76 11.61 0.96 232 0.00 0.01 get_addresses + 2.68 12.54 0.93 1437425 0.00 0.00 cansee + 2.53 13.42 0.88 232 0.00 0.00 finish_reports + 2.22 14.19 0.77 230 0.00 0.03 report_plaintext + 2.19 14.95 0.76 32337529 0.00 0.00 hashstring + 1.84 15.59 0.64 10375491 0.00 0.00 alliedgroup + 1.81 16.22 0.63 34611296 0.00 0.00 strlcpy + 1.76 16.83 0.61 24887945 0.00 0.00 locale_string + 1.64 17.40 0.57 1766225 0.00 0.00 nr_curses + 1.50 17.92 0.52 55492327 0.00 0.00 getkeyword + 1.35 18.39 0.47 1 0.47 5.47 process + 1.35 18.86 0.47 decode_pointer + 1.30 19.31 0.45 51974272 0.00 0.00 a_find + 1.15 19.71 0.40 1310373 0.00 0.00 cr_output_curses + 0.92 20.03 0.32 129167539 0.00 0.00 u_race + 0.89 20.34 0.31 71815034 0.00 0.00 get_race + 0.82 20.63 0.29 18856320 0.00 0.00 cb_add_seen + 0.81 20.91 0.28 cb_find_prefix_i + 0.81 21.19 0.28 from_external_node + 0.78 21.46 0.27 99 0.00 0.00 report_template + 0.72 21.71 0.25 10030400 0.00 0.00 effskill + 0.69 21.95 0.24 9544331 0.00 0.00 parse_symbol + 0.69 22.19 0.24 1158076 0.00 0.00 getbuf_utf8 + 0.66 22.42 0.23 5985780 0.00 0.00 itoab + 0.63 22.64 0.22 1118718 0.00 0.00 ufindhash + 0.63 22.86 0.22 ql_advance + 0.60 23.07 0.21 12246335 0.00 0.00 ct_find + 0.60 23.28 0.21 2725583 0.00 0.00 parse_string + 0.60 23.49 0.21 11241829 0.00 0.00 i_change + 0.55 23.68 0.19 2480226 0.00 0.00 old_race + 0.55 23.87 0.19 2248440 0.00 0.00 get_borders_i + 0.55 24.06 0.19 bin_r_int_pak + 0.52 24.24 0.18 fs_write + 0.49 24.41 0.17 6010308 0.00 0.00 i_find + 0.49 24.58 0.17 860263 0.00 0.00 use_pooled + 0.43 24.73 0.15 5168717 0.00 0.00 nrt_find + 0.43 24.88 0.15 178254 0.00 0.00 get_food + 0.40 25.02 0.14 4434556 0.00 0.00 translate + 0.40 25.16 0.14 fstream_done + 0.40 25.30 0.14 ql_get + 0.40 25.44 0.14 1375380 0.00 0.00 remove_empty_units_in_region + 0.37 25.57 0.13 10190660 0.00 0.00 get_curse + 0.37 25.70 0.13 5387327 0.00 0.00 parse_token + 0.35 25.82 0.12 11253756 0.00 0.00 genrand_int32 + 0.35 25.94 0.12 923671 0.00 0.00 cr_output_unit + 0.35 26.06 0.12 713016 0.00 0.00 do_enter + 0.35 26.18 0.12 596221 0.00 0.00 write_unit + 0.32 26.29 0.11 9953180 0.00 0.00 alliedunit + 0.32 26.40 0.11 1380398 0.00 0.00 translate + 0.32 26.51 0.11 10103290 0.00 0.00 stream_printf + 0.32 26.62 0.11 fs_writeln + 0.29 26.72 0.10 46391457 0.00 0.00 unicode_utf8_to_ucs4 + 0.29 26.82 0.10 36653945 0.00 0.00 wrptr + 0.29 26.92 0.10 13102790 0.00 0.00 opstack_pop + 0.26 27.01 0.09 50553492 0.00 0.00 stealth_modifier + 0.26 27.10 0.09 3398582 0.00 0.00 travelthru_map + 0.26 27.19 0.09 2624955 0.00 0.00 has_skill + 0.26 27.28 0.09 1390078 0.00 0.00 get_row + 0.26 27.37 0.09 1248014 0.00 0.00 listlen + 0.26 27.46 0.09 297222 0.00 0.00 fwritestr + 0.26 27.55 0.09 qli_more + 0.24 27.63 0.09 56052475 0.00 0.00 get_resourcetype + 0.23 27.71 0.08 20834979 0.00 0.00 autoalliance + 0.23 27.79 0.08 13102790 0.00 0.00 opstack_push + 0.23 27.87 0.08 12353561 0.00 0.00 report_item + 0.23 27.95 0.08 7252744 0.00 0.00 cmp_transfer + 0.23 28.03 0.08 7120688 0.00 0.00 get_money + 0.23 28.11 0.08 2 0.04 0.73 make_summary + 0.20 28.18 0.07 17451017 0.00 0.00 strlcpy_w + 0.20 28.25 0.07 47902 0.00 0.00 getshipweight + 0.20 28.32 0.07 bin_r_str_buf + 0.20 28.39 0.07 68430117 0.00 0.00 rc_find + 0.20 28.46 0.07 760673 0.00 0.00 addlist + 0.20 28.53 0.07 bin_w_int_pak + 0.17 28.59 0.06 26776263 0.00 0.00 get_param + 0.17 28.65 0.06 13259934 0.00 0.00 resourcename + 0.17 28.71 0.06 1826688 0.00 0.00 adjust_coordinates + 0.17 28.77 0.06 560965 0.00 0.00 bt_find_i + 0.17 28.83 0.06 209572 0.00 0.00 cr_borders + 0.17 28.89 0.06 108211 0.00 0.00 report_resources + 0.17 28.95 0.06 2 0.03 0.66 score + 0.17 29.01 0.06 2247 0.00 0.00 count_faction + 0.14 29.06 0.05 12560453 0.00 0.00 rc_changed + 0.14 29.11 0.05 7910500 0.00 0.00 r_isforest + 0.14 29.16 0.05 7179079 0.00 0.00 att_modification + 0.14 29.21 0.05 5329742 0.00 0.00 eatwhitespace_c + 0.14 29.26 0.05 2868601 0.00 0.00 u_irace + 0.14 29.31 0.05 2006524 0.00 0.00 get_command + 0.14 29.36 0.05 1929215 0.00 0.00 create_order_i + 0.14 29.41 0.05 1405457 0.00 0.00 report_items + 0.14 29.46 0.05 209572 0.00 0.00 building_owner_ex + 0.14 29.51 0.05 127676 0.00 0.00 describe + 0.14 29.56 0.05 96482 0.00 0.00 get_followers + 0.14 29.61 0.05 qli_init + 0.12 29.65 0.04 10053919 0.00 0.00 rtrees + 0.12 29.69 0.04 7851812 0.00 0.00 write_spaces + 0.12 29.73 0.04 6241702 0.00 0.00 eatwhite + 0.12 29.77 0.04 4625636 0.00 0.00 ffindhash + 0.12 29.81 0.04 4568249 0.00 0.00 find_variable + 0.12 29.85 0.04 4136059 0.00 0.00 mkname_buf + 0.12 29.89 0.04 3573165 0.00 0.00 cmp_faction + 0.12 29.93 0.04 2858912 0.00 0.00 get_effect + 0.12 29.97 0.04 1953682 0.00 0.00 spskill + 0.12 30.01 0.04 1644867 0.00 0.00 free_orders + 0.12 30.05 0.04 1010116 0.00 0.00 mt_find + 0.12 30.09 0.04 1006923 0.00 0.00 rfindhash + 0.12 30.13 0.04 841675 0.00 0.00 a_write + 0.12 30.17 0.04 178254 0.00 0.00 do_contact + 0.12 30.21 0.04 160206 0.00 0.00 monster_attacks + 0.12 30.25 0.04 3016 0.00 0.00 dfindhash + 0.12 30.29 0.04 1 0.04 0.09 ageing + 0.12 30.33 0.04 1 0.04 0.61 movement + 0.12 30.37 0.04 1 0.04 0.31 randomevents + 0.12 30.41 0.04 cb_find_prefix + 0.12 30.45 0.04 class_index_event + 0.12 30.49 0.04 fs_read + 0.12 30.53 0.04 pack_int + 0.12 30.57 0.04 ql_find + 0.12 30.61 0.04 tolua_unitlist_next + 0.12 30.65 0.04 unicode_ucs4_to_utf8 + 0.10 30.69 0.04 6907106 0.00 0.00 eff_skill + 0.10 30.72 0.04 7179154 0.00 0.00 get_modifier + 0.10 30.76 0.04 cb_get_kv + 0.09 30.79 0.03 21345834 0.00 0.00 skill_enabled + 0.09 30.82 0.03 13399069 0.00 0.00 balloc + 0.09 30.85 0.03 10375461 0.00 0.00 AllianceRestricted + 0.09 30.88 0.03 9232125 0.00 0.00 res_changeitem + 0.09 30.91 0.03 9170795 0.00 0.00 parse + 0.09 30.94 0.03 8302761 0.00 0.00 get_resource + 0.09 30.97 0.03 4851739 0.00 0.00 get_reservation + 0.09 31.00 0.03 4457785 0.00 0.00 transliterate + 0.09 31.03 0.03 2818494 0.00 0.00 rc_name + 0.09 31.06 0.03 2599554 0.00 0.00 change_money + 0.09 31.09 0.03 2277350 0.00 0.00 get_prefix + 0.09 31.12 0.03 1956810 0.00 0.00 add_skill + 0.09 31.15 0.03 1747682 0.00 0.00 cansee_durchgezogen + 0.09 31.18 0.03 1481616 0.00 0.00 get_keyword + 0.09 31.21 0.03 1348743 0.00 0.00 bufunit + 0.09 31.24 0.03 967784 0.00 0.00 msg_message + 0.09 31.27 0.03 779486 0.00 0.00 locale_getstring + 0.09 31.30 0.03 541982 0.00 0.00 get_pooled + 0.09 31.33 0.03 490896 0.00 0.00 default_wage + 0.09 31.36 0.03 417808 0.00 0.00 study_cmd + 0.09 31.39 0.03 372173 0.00 0.00 select_enemy + 0.09 31.42 0.03 301257 0.00 0.00 crt_find + 0.09 31.45 0.03 297010 0.00 0.00 bt_effsize + 0.09 31.48 0.03 195108 0.00 0.00 rps_nowrap + 0.09 31.51 0.03 130250 0.00 0.00 r_getmessages + 0.09 31.54 0.03 79180 0.00 0.00 rp_messages + 0.09 31.57 0.03 35287 0.00 0.00 prices + 0.09 31.60 0.03 13500 0.00 0.00 crew_skill + 0.09 31.63 0.03 10852 0.00 0.00 expandorders + 0.09 31.66 0.03 10846 0.00 0.00 scramble + 0.09 31.69 0.03 1 0.03 0.05 defaultorders + 0.09 31.72 0.03 1 0.03 0.05 demon_skillchanges + 0.09 31.75 0.03 1 0.03 0.06 dissolve_units + 0.09 31.78 0.03 1 0.03 0.03 move_hunters + 0.09 31.81 0.03 1 0.03 0.04 move_pirates + 0.09 31.84 0.03 1 0.03 0.03 reset_game + 0.09 31.87 0.03 a_select + 0.09 31.90 0.03 ql_foreachx + 0.06 31.92 0.02 24935046 0.00 0.00 faction_alive + 0.06 31.94 0.02 20836359 0.00 0.00 f_get_alliance + 0.06 31.96 0.02 20777534 0.00 0.00 config_get + 0.06 31.98 0.02 10375461 0.00 0.00 ally_mode + 0.06 32.00 0.02 9163148 0.00 0.00 golem_factor + 0.06 32.02 0.02 8452306 0.00 0.00 is_guardian_r + 0.06 32.04 0.02 7641081 0.00 0.00 genrand_int31 + 0.06 32.06 0.02 7417541 0.00 0.00 urace + 0.06 32.08 0.02 7179079 0.00 0.00 skill_mod + 0.06 32.10 0.02 4666665 0.00 0.00 rmoney + 0.06 32.12 0.02 4558423 0.00 0.00 get_translations + 0.06 32.14 0.02 3780355 0.00 0.00 nr_section + 0.06 32.16 0.02 3358315 0.00 0.00 ship_owner + 0.06 32.18 0.02 2903884 0.00 0.00 jenkins_hash + 0.06 32.20 0.02 2818494 0.00 0.00 rc_name_s + 0.06 32.22 0.02 2605004 0.00 0.00 rpeasants + 0.06 32.24 0.02 1996097 0.00 0.00 travelthru_cansee + 0.06 32.26 0.02 1929215 0.00 0.00 create_data + 0.06 32.28 0.02 1662377 0.00 0.00 get_unitrow + 0.06 32.30 0.02 1552289 0.00 0.00 rname + 0.06 32.32 0.02 1481407 0.00 0.00 parse_order + 0.06 32.34 0.02 1470505 0.00 0.00 write_order + 0.06 32.36 0.02 1344397 0.00 0.00 nr_unit + 0.06 32.38 0.02 1206547 0.00 0.00 findplane + 0.06 32.40 0.02 1188532 0.00 0.00 eff_stealth + 0.06 32.42 0.02 1177511 0.00 0.00 it_alias + 0.06 32.44 0.02 1121103 0.00 0.00 monster_is_waiting + 0.06 32.46 0.02 1054200 0.00 0.00 count_cb + 0.06 32.48 0.02 967902 0.00 0.00 cb_cr_travelthru_ship + 0.06 32.50 0.02 860166 0.00 0.00 weapon_effskill + 0.06 32.52 0.02 839202 0.00 0.00 a_age + 0.06 32.54 0.02 771861 0.00 0.00 armedmen + 0.06 32.56 0.02 742235 0.00 0.00 room_for_race_in_region + 0.06 32.58 0.02 688711 0.00 0.00 atoi36 + 0.06 32.60 0.02 635885 0.00 0.00 copy_order + 0.06 32.62 0.02 628037 0.00 0.00 read_items + 0.06 32.64 0.02 595898 0.00 0.00 follow_unit + 0.06 32.66 0.02 472366 0.00 0.00 produceexp_days + 0.06 32.68 0.02 418134 0.00 0.00 study_cost + 0.06 32.70 0.02 392959 0.00 0.00 add_message + 0.06 32.72 0.02 313244 0.00 0.00 check_overpopulated + 0.06 32.74 0.02 221802 0.00 0.00 unitorders + 0.06 32.76 0.02 178254 0.00 0.00 economics + 0.06 32.78 0.02 178254 0.00 0.00 hash_uid + 0.06 32.80 0.02 178254 0.00 0.00 reorder_units + 0.06 32.82 0.02 162996 0.00 0.00 inhabitable + 0.06 32.84 0.02 147217 0.00 0.00 normalvariate + 0.06 32.86 0.02 146997 0.00 0.00 term_eval + 0.06 32.88 0.02 62581 0.00 0.00 guards + 0.06 32.90 0.02 33139 0.00 0.00 statistics + 0.06 32.92 0.02 7964 0.00 0.00 nrt_string + 0.06 32.94 0.02 6963 0.00 0.00 move_ship + 0.06 32.96 0.02 3438 0.00 0.00 get_regions_distance + 0.06 32.98 0.02 388 0.00 0.00 internal_path_find + 0.06 33.00 0.02 231 0.00 0.00 faction_getmages + 0.06 33.02 0.02 30 0.00 0.00 config_set + 0.06 33.04 0.02 1 0.02 0.03 destroyfaction + 0.06 33.06 0.02 1 0.02 0.02 godcurse + 0.06 33.08 0.02 1 0.02 0.03 orc_growth + 0.06 33.10 0.02 1 0.02 0.03 restack_units + 0.06 33.12 0.02 1 0.02 0.02 spawn_dragons + 0.06 33.14 0.02 1 0.02 0.02 update_guards + 0.06 33.16 0.02 bin_w_brk + 0.06 33.18 0.02 bin_w_str + 0.06 33.20 0.02 fs_readln + 0.06 33.22 0.02 ql_push + 0.06 33.24 0.02 ql_set_insert_ex + 0.06 33.26 0.02 tolua_unit_get_faction + 0.06 33.28 0.02 wang_hash + 0.04 33.29 0.02 51003 0.00 0.00 give_money + 0.04 33.31 0.02 464 0.00 0.00 firstregion + 0.03 33.32 0.01 18647447 0.00 0.00 getplane + 0.03 33.33 0.01 10383360 0.00 0.00 HelpMask + 0.03 33.34 0.01 9298667 0.00 0.00 resource2item + 0.03 33.35 0.01 8506411 0.00 0.00 besieged + 0.03 33.36 0.01 7298034 0.00 0.00 skillmod + 0.03 33.37 0.01 5461936 0.00 0.00 slprintf + 0.03 33.38 0.01 5395063 0.00 0.00 i_get + 0.03 33.39 0.01 5152236 0.00 0.00 ct_changed + 0.03 33.40 0.01 5065285 0.00 0.00 get_param_int + 0.03 33.41 0.01 4984610 0.00 0.00 config_get_int + 0.03 33.42 0.01 4976082 0.00 0.00 find_function + 0.03 33.43 0.01 4835422 0.00 0.00 usiege + 0.03 33.44 0.01 4625636 0.00 0.00 findfaction + 0.03 33.45 0.01 4488684 0.00 0.00 crtag + 0.03 33.46 0.01 4374788 0.00 0.00 visible_faction + 0.03 33.47 0.01 4301501 0.00 0.00 statusrow + 0.03 33.48 0.01 4201030 0.00 0.00 curse_active + 0.03 33.49 0.01 4198692 0.00 0.00 lifestyle + 0.03 33.50 0.01 4133717 0.00 0.00 mkname + 0.03 33.51 0.01 3383689 0.00 0.00 update_interval + 0.03 33.52 0.01 2985733 0.00 0.00 is_repeated + 0.03 33.53 0.01 2934859 0.00 0.00 skillname + 0.03 33.54 0.01 2765718 0.00 0.00 maintenance_cost + 0.03 33.55 0.01 2494242 0.00 0.00 newline + 0.03 33.56 0.01 2481220 0.00 0.00 copy_arg + 0.03 33.57 0.01 2383101 0.00 0.00 unitname + 0.03 33.58 0.01 2281756 0.00 0.00 gettoken + 0.03 33.59 0.01 2275967 0.00 0.00 get_racename + 0.03 33.60 0.01 2275429 0.00 0.00 raceprefix + 0.03 33.61 0.01 2186159 0.00 0.00 rsetmoney + 0.03 33.62 0.01 2032164 0.00 0.00 rt_find + 0.03 33.63 0.01 1874928 0.00 0.00 terrain_name + 0.03 33.64 0.01 1751202 0.00 0.00 item_invis + 0.03 33.65 0.01 1629412 0.00 0.00 LongHunger + 0.03 33.66 0.01 1381157 0.00 0.00 unit_max_hp + 0.03 33.67 0.01 1351796 0.00 0.00 racename + 0.03 33.68 0.01 1336242 0.00 0.00 genrand_real2 + 0.03 33.69 0.01 1311302 0.00 0.00 init_tokens_str + 0.03 33.70 0.01 1205451 0.00 0.00 alliedfaction + 0.03 33.71 0.01 1106528 0.00 0.00 is_building_type + 0.03 33.72 0.01 1087065 0.00 0.00 get_neighbours + 0.03 33.73 0.01 1009159 0.00 0.00 log_orders + 0.03 33.74 0.01 996009 0.00 0.00 get_skill + 0.03 33.75 0.01 987612 0.00 0.00 getplanebyname + 0.03 33.76 0.01 967902 0.00 0.00 cb_cr_travelthru_unit + 0.03 33.77 0.01 950595 0.00 0.00 f_regionid + 0.03 33.78 0.01 923671 0.00 0.00 cr_output_unit_compat + 0.03 33.79 0.01 799427 0.00 0.00 eval_unit + 0.03 33.80 0.01 745269 0.00 0.00 add_seen_nb + 0.03 33.81 0.01 655564 0.00 0.00 eval_eq + 0.03 33.82 0.01 629123 0.00 0.00 write_items + 0.03 33.83 0.01 618305 0.00 0.00 escape_string + 0.03 33.84 0.01 610341 0.00 0.00 stream_order + 0.03 33.85 0.01 604861 0.00 0.00 write_unit_reference + 0.03 33.86 0.01 595896 0.00 0.00 update_long_order + 0.03 33.87 0.01 595125 0.00 0.00 read_unit + 0.03 33.88 0.01 593636 0.00 0.00 building_owner + 0.03 33.89 0.01 546579 0.00 0.00 weapon_skill + 0.03 33.90 0.01 454395 0.00 0.00 a_free + 0.03 33.91 0.01 451774 0.00 0.00 a_remove + 0.03 33.92 0.01 451774 0.00 0.00 a_unlink + 0.03 33.93 0.01 424669 0.00 0.00 active_building + 0.03 33.94 0.01 363135 0.00 0.00 select_opponent + 0.03 33.95 0.01 325825 0.00 0.00 scared_by_monster + 0.03 33.96 0.01 325282 0.00 0.00 eaten_by_monster + 0.03 33.97 0.01 302482 0.00 0.00 findtoken + 0.03 33.98 0.01 301257 0.00 0.00 cr_render + 0.03 33.99 0.01 300501 0.00 0.00 move_blocked + 0.03 34.00 0.01 283711 0.00 0.00 item2resource + 0.03 34.01 0.01 279395 0.00 0.00 weight + 0.03 34.02 0.01 264251 0.00 0.00 rsetpeasants + 0.03 34.03 0.01 263302 0.00 0.00 koor_reldirection + 0.03 34.04 0.01 251814 0.00 0.00 at_find + 0.03 34.05 0.01 218425 0.00 0.00 buildingtype + 0.03 34.06 0.01 209572 0.00 0.00 cr_output_region + 0.03 34.07 0.01 184870 0.00 0.00 buildingeffsize + 0.03 34.08 0.01 180598 0.00 0.00 nr_ship + 0.03 34.09 0.01 178263 0.00 0.00 drown + 0.03 34.10 0.01 178254 0.00 0.00 do_siege + 0.03 34.11 0.01 178254 0.00 0.00 maintain_buildings + 0.03 34.12 0.01 178254 0.00 0.00 sinkships + 0.03 34.13 0.01 178254 0.00 0.00 start_battle + 0.03 34.14 0.01 162862 0.00 0.00 allowed_dragon + 0.03 34.15 0.01 127676 0.00 0.00 write_travelthru + 0.03 34.16 0.01 116804 0.00 0.00 eval_isnull + 0.03 34.17 0.01 113845 0.00 0.00 choplist + 0.03 34.18 0.01 113592 0.00 0.00 nr_building + 0.03 34.19 0.01 105106 0.00 0.00 monster_move + 0.03 34.20 0.01 94420 0.00 0.00 add_give + 0.03 34.21 0.01 67213 0.00 0.00 eval_building + 0.03 34.22 0.01 65155 0.00 0.00 sm_familiar + 0.03 34.23 0.01 54530 0.00 0.00 a_insert + 0.03 34.24 0.01 47887 0.00 0.00 shipcapacity + 0.03 34.25 0.01 41095 0.00 0.00 cr_order + 0.03 34.26 0.01 40046 0.00 0.00 rule_stealth_other + 0.03 34.27 0.01 34486 0.00 0.00 effskill_study + 0.03 34.28 0.01 32727 0.00 0.00 rsetherbtype + 0.03 34.29 0.01 32670 0.00 0.00 horses + 0.03 34.30 0.01 27694 0.00 0.00 all_money + 0.03 34.31 0.01 25088 0.00 0.00 rmtroop + 0.03 34.32 0.01 20176 0.00 0.00 render_messages + 0.03 34.33 0.01 16132 0.00 0.00 teach_unit + 0.03 34.34 0.01 14326 0.00 0.00 replace_order + 0.03 34.35 0.01 11719 0.00 0.00 locale_name + 0.03 34.36 0.01 7255 0.00 0.00 sail + 0.03 34.37 0.01 5494 0.00 0.00 expandbuying + 0.03 34.38 0.01 3147 0.00 0.00 i_canuse + 0.03 34.39 0.01 2887 0.00 0.00 leave + 0.03 34.40 0.01 2838 0.00 0.00 do_attack + 0.03 34.41 0.01 1302 0.00 0.00 academy_can_teach + 0.03 34.42 0.01 1297 0.00 0.00 AllianceAuto + 0.03 34.43 0.01 1018 0.00 0.00 is_exclusive + 0.03 34.44 0.01 780 0.00 0.00 battle_report + 0.03 34.45 0.01 457 0.00 0.00 countheroes + 0.03 34.46 0.01 163 0.00 0.00 eval_lt + 0.03 34.47 0.01 150 0.00 0.00 set_factionstealth + 0.03 34.48 0.01 18 0.00 0.00 ship_update_owner + 0.03 34.49 0.01 6 0.00 0.02 remove_empty_units + 0.03 34.50 0.01 1 0.01 0.01 chaos_update + 0.03 34.51 0.01 1 0.01 0.01 create_icebergs + 0.03 34.52 0.01 1 0.01 0.01 free_params + 0.03 34.53 0.01 1 0.01 0.03 init_transportation + 0.03 34.54 0.01 1 0.01 0.11 magic + 0.03 34.55 0.01 1 0.01 0.01 move_icebergs + 0.03 34.56 0.01 1 0.01 0.03 regenerate_aura + 0.03 34.57 0.01 1 0.01 0.01 remove_empty_factions + 0.03 34.58 0.01 1 0.01 0.04 rotting_herbs + 0.03 34.59 0.01 1 0.01 0.35 write_game + 0.03 34.60 0.01 cb_insert + 0.03 34.61 0.01 cmp_curse + 0.03 34.62 0.01 create_backup + 0.03 34.63 0.01 ct_remove + 0.03 34.64 0.01 get_homeplane + 0.03 34.65 0.01 i10toi36 + 0.03 34.66 0.01 json_export + 0.03 34.67 0.01 make_external_node + 0.03 34.68 0.01 qli_next + 0.03 34.69 0.01 read_movement + 0.03 34.70 0.01 remove_plane + 0.03 34.71 0.01 set_string + 0.03 34.72 0.01 tolua_buildinglist_next + 0.03 34.73 0.01 tolua_regionlist_next + 0.03 34.74 0.01 tolua_tousertype + 0.01 34.74 0.01 cb_new_kv + 0.00 34.74 0.00 11194781 0.00 0.00 keyword_disabled + 0.00 34.74 0.00 7179079 0.00 0.00 rc_skillmod + 0.00 34.74 0.00 6656973 0.00 0.00 bfree + 0.00 34.74 0.00 6610983 0.00 0.00 is_guard + 0.00 34.74 0.00 5100840 0.00 0.00 itoa36 + 0.00 34.74 0.00 4503145 0.00 0.00 omniscient + 0.00 34.74 0.00 3902879 0.00 0.00 get_or_create_monsters + 0.00 34.74 0.00 3902878 0.00 0.00 get_monsters + 0.00 34.74 0.00 3656767 0.00 0.00 add_variable + 0.00 34.74 0.00 3587241 0.00 0.00 pnormalize + 0.00 34.74 0.00 3351853 0.00 0.00 unit_getname + 0.00 34.74 0.00 3166898 0.00 0.00 rherbs + 0.00 34.74 0.00 2426021 0.00 0.00 get_mage + 0.00 34.74 0.00 2386892 0.00 0.00 config_changed + 0.00 34.74 0.00 2383101 0.00 0.00 write_unitname + 0.00 34.74 0.00 2379316 0.00 0.00 resource2weapon + 0.00 34.74 0.00 2272376 0.00 0.00 u_description + 0.00 34.74 0.00 2225796 0.00 0.00 get_borders + 0.00 34.74 0.00 2155959 0.00 0.00 is_persistent + 0.00 34.74 0.00 2124526 0.00 0.00 locale_index + 0.00 34.74 0.00 2066777 0.00 0.00 parse_token_depr + 0.00 34.74 0.00 2009097 0.00 0.00 keyword + 0.00 34.74 0.00 1936876 0.00 0.00 free_order + 0.00 34.74 0.00 1787006 0.00 0.00 findparam + 0.00 34.74 0.00 1785077 0.00 0.00 faction_getorigin + 0.00 34.74 0.00 1771752 0.00 0.00 help_money + 0.00 34.74 0.00 1766225 0.00 0.00 nr_curses_i + 0.00 34.74 0.00 1753922 0.00 0.00 invisible + 0.00 34.74 0.00 1726748 0.00 0.00 is_riding + 0.00 34.74 0.00 1613387 0.00 0.00 rule_region_owners + 0.00 34.74 0.00 1523708 0.00 0.00 uprivate + 0.00 34.74 0.00 1511812 0.00 0.00 newterrain + 0.00 34.74 0.00 1474687 0.00 0.00 leftship + 0.00 34.74 0.00 1441945 0.00 0.00 is_mage + 0.00 34.74 0.00 1380398 0.00 0.00 brelease + 0.00 34.74 0.00 1380398 0.00 0.00 free_variables + 0.00 34.74 0.00 1380398 0.00 0.00 nr_render + 0.00 34.74 0.00 1380007 0.00 0.00 get_otherfaction + 0.00 34.74 0.00 1342832 0.00 0.00 handle_event + 0.00 34.74 0.00 1342381 0.00 0.00 release_data + 0.00 34.74 0.00 1336242 0.00 0.00 rng_injectable_double + 0.00 34.74 0.00 1295787 0.00 0.00 factionname + 0.00 34.74 0.00 1291427 0.00 0.00 set_order + 0.00 34.74 0.00 1252028 0.00 0.00 mkdata + 0.00 34.74 0.00 1218663 0.00 0.00 select_weapon + 0.00 34.74 0.00 1214628 0.00 0.00 is_allied + 0.00 34.74 0.00 1177511 0.00 0.00 it_find + 0.00 34.74 0.00 1160345 0.00 0.00 rhorses + 0.00 34.74 0.00 1158076 0.00 0.00 getbuf + 0.00 34.74 0.00 1132609 0.00 0.00 is_long + 0.00 34.74 0.00 1067195 0.00 0.00 free_arg + 0.00 34.74 0.00 1065211 0.00 0.00 shipname + 0.00 34.74 0.00 1065211 0.00 0.00 write_shipname + 0.00 34.74 0.00 1048274 0.00 0.00 cb_write_travelthru + 0.00 34.74 0.00 1027665 0.00 0.00 init_order + 0.00 34.74 0.00 1014205 0.00 0.00 add_seen + 0.00 34.74 0.00 1009159 0.00 0.00 msg_create + 0.00 34.74 0.00 1009028 0.00 0.00 msg_release + 0.00 34.74 0.00 987612 0.00 0.00 get_astralplane + 0.00 34.74 0.00 987488 0.00 0.00 is_astral + 0.00 34.74 0.00 987128 0.00 0.00 strlcat + 0.00 34.74 0.00 931076 0.00 0.00 change_resource + 0.00 34.74 0.00 892307 0.00 0.00 learn_skill + 0.00 34.74 0.00 888603 0.00 0.00 findunit + 0.00 34.74 0.00 884940 0.00 0.00 itoa10 + 0.00 34.74 0.00 883617 0.00 0.00 eval_int + 0.00 34.74 0.00 876979 0.00 0.00 count_enemies + 0.00 34.74 0.00 868104 0.00 0.00 select_armor + 0.00 34.74 0.00 843545 0.00 0.00 eval_if + 0.00 34.74 0.00 840577 0.00 0.00 a_read_orig + 0.00 34.74 0.00 840577 0.00 0.00 read_attribs + 0.00 34.74 0.00 839970 0.00 0.00 write_attribs + 0.00 34.74 0.00 832876 0.00 0.00 parse_int + 0.00 34.74 0.00 822780 0.00 0.00 i_new + 0.00 34.74 0.00 797288 0.00 0.00 can_survive + 0.00 34.74 0.00 785221 0.00 0.00 trailinto + 0.00 34.74 0.00 779868 0.00 0.00 a_new + 0.00 34.74 0.00 779419 0.00 0.00 a_add + 0.00 34.74 0.00 778818 0.00 0.00 describe_race + 0.00 34.74 0.00 773191 0.00 0.00 hp_status + 0.00 34.74 0.00 755575 0.00 0.00 cb_add_address + 0.00 34.74 0.00 754589 0.00 0.00 preferred_weapon + 0.00 34.74 0.00 752645 0.00 0.00 chance + 0.00 34.74 0.00 748527 0.00 0.00 unit_can_study + 0.00 34.74 0.00 744202 0.00 0.00 has_horses + 0.00 34.74 0.00 734392 0.00 0.00 plane_height + 0.00 34.74 0.00 734392 0.00 0.00 plane_width + 0.00 34.74 0.00 717287 0.00 0.00 get_param_flt + 0.00 34.74 0.00 717218 0.00 0.00 config_get_flt + 0.00 34.74 0.00 669051 0.00 0.00 production + 0.00 34.74 0.00 651711 0.00 0.00 oldcursename + 0.00 34.74 0.00 647569 0.00 0.00 write_faction_reference + 0.00 34.74 0.00 642406 0.00 0.00 write_building_reference + 0.00 34.74 0.00 633429 0.00 0.00 msg_free + 0.00 34.74 0.00 619425 0.00 0.00 getreload + 0.00 34.74 0.00 617313 0.00 0.00 attack + 0.00 34.74 0.00 615299 0.00 0.00 write_ship_reference + 0.00 34.74 0.00 607926 0.00 0.00 writeorder + 0.00 34.74 0.00 603524 0.00 0.00 set_number + 0.00 34.74 0.00 603246 0.00 0.00 level_days + 0.00 34.74 0.00 600145 0.00 0.00 u_setrace + 0.00 34.74 0.00 599650 0.00 0.00 setstatus + 0.00 34.74 0.00 598234 0.00 0.00 report_status + 0.00 34.74 0.00 598129 0.00 0.00 u_setfaction + 0.00 34.74 0.00 598069 0.00 0.00 uhash + 0.00 34.74 0.00 597806 0.00 0.00 unit_get_spellbook + 0.00 34.74 0.00 595705 0.00 0.00 unit_skill + 0.00 34.74 0.00 595478 0.00 0.00 monster_kills_peasants + 0.00 34.74 0.00 595472 0.00 0.00 age_unit + 0.00 34.74 0.00 578591 0.00 0.00 heal_factor + 0.00 34.74 0.00 560926 0.00 0.00 bt_find + 0.00 34.74 0.00 534930 0.00 0.00 isparam + 0.00 34.74 0.00 534762 0.00 0.00 enter_1 + 0.00 34.74 0.00 515911 0.00 0.00 write_regionname + 0.00 34.74 0.00 515550 0.00 0.00 eval_region + 0.00 34.74 0.00 515192 0.00 0.00 is_mourning + 0.00 34.74 0.00 515192 0.00 0.00 owner_change + 0.00 34.74 0.00 514146 0.00 0.00 koor_distance + 0.00 34.74 0.00 512663 0.00 0.00 koor_distance_orig + 0.00 34.74 0.00 508632 0.00 0.00 rule_blessed_harvest + 0.00 34.74 0.00 494960 0.00 0.00 buforder + 0.00 34.74 0.00 490901 0.00 0.00 largestbuilding + 0.00 34.74 0.00 490896 0.00 0.00 wage + 0.00 34.74 0.00 472418 0.00 0.00 produceexp + 0.00 34.74 0.00 472418 0.00 0.00 produceexp_ex + 0.00 34.74 0.00 470529 0.00 0.00 eval_resource + 0.00 34.74 0.00 459083 0.00 0.00 findregion + 0.00 34.74 0.00 447808 0.00 0.00 create_order + 0.00 34.74 0.00 438629 0.00 0.00 maxworkingpeasants + 0.00 34.74 0.00 435022 0.00 0.00 getskill + 0.00 34.74 0.00 432940 0.00 0.00 curse_geteffect + 0.00 34.74 0.00 417580 0.00 0.00 init_learning + 0.00 34.74 0.00 417577 0.00 0.00 done_learning + 0.00 34.74 0.00 417577 0.00 0.00 study_days + 0.00 34.74 0.00 417577 0.00 0.00 study_speedup + 0.00 34.74 0.00 417554 0.00 0.00 random_move_chance + 0.00 34.74 0.00 396305 0.00 0.00 cmp_wage + 0.00 34.74 0.00 392959 0.00 0.00 msg_addref + 0.00 34.74 0.00 386740 0.00 0.00 cr_output_curses_compat + 0.00 34.74 0.00 377253 0.00 0.00 guard_flags + 0.00 34.74 0.00 374425 0.00 0.00 i_free + 0.00 34.74 0.00 369586 0.00 0.00 r_connect + 0.00 34.74 0.00 363071 0.00 0.00 hits + 0.00 34.74 0.00 355423 0.00 0.00 deathcount + 0.00 34.74 0.00 353788 0.00 0.00 add_seen_faction_i + 0.00 34.74 0.00 353422 0.00 0.00 contest + 0.00 34.74 0.00 353422 0.00 0.00 contest_classic + 0.00 34.74 0.00 353422 0.00 0.00 skilldiff + 0.00 34.74 0.00 348444 0.00 0.00 report_resource + 0.00 34.74 0.00 337987 0.00 0.00 setguard + 0.00 34.74 0.00 330438 0.00 0.00 cr_unit + 0.00 34.74 0.00 329691 0.00 0.00 getguard + 0.00 34.74 0.00 317735 0.00 0.00 monster_learn + 0.00 34.74 0.00 317239 0.00 0.00 count_side + 0.00 34.74 0.00 308950 0.00 0.00 r_demand + 0.00 34.74 0.00 300810 0.00 0.00 count_enemies_i + 0.00 34.74 0.00 298951 0.00 0.00 distance + 0.00 34.74 0.00 297222 0.00 0.00 messagehash + 0.00 34.74 0.00 293362 0.00 0.00 get_direction + 0.00 34.74 0.00 285923 0.00 0.00 ualias + 0.00 34.74 0.00 284005 0.00 0.00 read_unitid + 0.00 34.74 0.00 282847 0.00 0.00 getunit + 0.00 34.74 0.00 279072 0.00 0.00 cr_int + 0.00 34.74 0.00 263302 0.00 0.00 reldirection + 0.00 34.74 0.00 257723 0.00 0.00 i_remove + 0.00 34.74 0.00 257693 0.00 0.00 rsethorses + 0.00 34.74 0.00 252446 0.00 0.00 movewhere + 0.00 34.74 0.00 251874 0.00 0.00 __at_hashkey + 0.00 34.74 0.00 251867 0.00 0.00 attacks_per_round + 0.00 34.74 0.00 251814 0.00 0.00 a_read_i + 0.00 34.74 0.00 229715 0.00 0.00 rsettrees + 0.00 34.74 0.00 228907 0.00 0.00 getid + 0.00 34.74 0.00 221899 0.00 0.00 findunitg + 0.00 34.74 0.00 221723 0.00 0.00 plane_center_x + 0.00 34.74 0.00 221723 0.00 0.00 plane_center_y + 0.00 34.74 0.00 218422 0.00 0.00 report_building + 0.00 34.74 0.00 217696 0.00 0.00 can_give + 0.00 34.74 0.00 217405 0.00 0.00 r_setdemand + 0.00 34.74 0.00 216069 0.00 0.00 check_param + 0.00 34.74 0.00 216069 0.00 0.00 config_token + 0.00 34.74 0.00 209572 0.00 0.00 cr_region_header + 0.00 34.74 0.00 204314 0.00 0.00 bt_changed + 0.00 34.74 0.00 203117 0.00 0.00 atoip + 0.00 34.74 0.00 201744 0.00 0.00 lovar + 0.00 34.74 0.00 196476 0.00 0.00 b_finvisible + 0.00 34.74 0.00 196476 0.00 0.00 b_rvisibleroad + 0.00 34.74 0.00 192815 0.00 0.00 add_regionlist + 0.00 34.74 0.00 192556 0.00 0.00 canride + 0.00 34.74 0.00 191379 0.00 0.00 finditemtype + 0.00 34.74 0.00 190469 0.00 0.00 border_name + 0.00 34.74 0.00 190467 0.00 0.00 b_nameroad + 0.00 34.74 0.00 190467 0.00 0.00 b_transparent + 0.00 34.74 0.00 189341 0.00 0.00 rule_autowork + 0.00 34.74 0.00 180818 0.00 0.00 buildingname + 0.00 34.74 0.00 180818 0.00 0.00 write_buildingname + 0.00 34.74 0.00 179761 0.00 0.00 cr_output_ship + 0.00 34.74 0.00 179235 0.00 0.00 get_chaoscount + 0.00 34.74 0.00 178429 0.00 0.00 a_removeall + 0.00 34.74 0.00 178322 0.00 0.00 terrain_find_i + 0.00 34.74 0.00 178311 0.00 0.00 region_setinfo + 0.00 34.74 0.00 178290 0.00 0.00 rhash + 0.00 34.74 0.00 178270 0.00 0.00 get_terrain + 0.00 34.74 0.00 178257 0.00 0.00 key_get + 0.00 34.74 0.00 178255 0.00 0.00 good_region + 0.00 34.74 0.00 178254 0.00 0.00 age_piracy + 0.00 34.74 0.00 178254 0.00 0.00 age_region + 0.00 34.74 0.00 178254 0.00 0.00 age_traveldir + 0.00 34.74 0.00 178254 0.00 0.00 do_battle + 0.00 34.74 0.00 178254 0.00 0.00 drifting_ships + 0.00 34.74 0.00 178254 0.00 0.00 enter_2 + 0.00 34.74 0.00 178254 0.00 0.00 expandwork + 0.00 34.74 0.00 178254 0.00 0.00 live + 0.00 34.74 0.00 178254 0.00 0.00 new_region + 0.00 34.74 0.00 178254 0.00 0.00 produce + 0.00 34.74 0.00 178254 0.00 0.00 readregion + 0.00 34.74 0.00 178254 0.00 0.00 region_getinfo + 0.00 34.74 0.00 178254 0.00 0.00 split_allocations + 0.00 34.74 0.00 178254 0.00 0.00 writeregion + 0.00 34.74 0.00 174968 0.00 0.00 get_familiar_mage + 0.00 34.74 0.00 174677 0.00 0.00 cr_output_resource + 0.00 34.74 0.00 169733 0.00 0.00 travelthru_add + 0.00 34.74 0.00 163027 0.00 0.00 markets_module + 0.00 34.74 0.00 157830 0.00 0.00 allowed_fly + 0.00 34.74 0.00 154110 0.00 0.00 rule_stealth_anon + 0.00 34.74 0.00 152803 0.00 0.00 free_node + 0.00 34.74 0.00 152803 0.00 0.00 new_node + 0.00 34.74 0.00 152504 0.00 0.00 plain_name + 0.00 34.74 0.00 147171 0.00 0.00 building_finished + 0.00 34.74 0.00 146997 0.00 0.00 dice_rand + 0.00 34.74 0.00 146950 0.00 0.00 f_regionid_s + 0.00 34.74 0.00 143730 0.00 0.00 rroad + 0.00 34.74 0.00 141675 0.00 0.00 mknode + 0.00 34.74 0.00 140305 0.00 0.00 set_resvalue + 0.00 34.74 0.00 137709 0.00 0.00 CavalryBonus + 0.00 34.74 0.00 133873 0.00 0.00 cr_region + 0.00 34.74 0.00 131765 0.00 0.00 give_control_cmd + 0.00 34.74 0.00 131722 0.00 0.00 give_cmd + 0.00 34.74 0.00 130867 0.00 0.00 get_transporters + 0.00 34.74 0.00 128596 0.00 0.00 check_errno + 0.00 34.74 0.00 128135 0.00 0.00 rpline + 0.00 34.74 0.00 127788 0.00 0.00 eval_direction + 0.00 34.74 0.00 127674 0.00 0.00 eval_trailto + 0.00 34.74 0.00 123744 0.00 0.00 arg_set + 0.00 34.74 0.00 123513 0.00 0.00 eval_order + 0.00 34.74 0.00 116914 0.00 0.00 fleechance + 0.00 34.74 0.00 116914 0.00 0.00 horse_fleeing_bonus + 0.00 34.74 0.00 116002 0.00 0.00 get_movement + 0.00 34.74 0.00 115276 0.00 0.00 can_move + 0.00 34.74 0.00 113844 0.00 0.00 translist + 0.00 34.74 0.00 113487 0.00 0.00 next_region + 0.00 34.74 0.00 112140 0.00 0.00 castle_name + 0.00 34.74 0.00 112140 0.00 0.00 castle_name_i + 0.00 34.74 0.00 110533 0.00 0.00 weapon_weight + 0.00 34.74 0.00 110167 0.00 0.00 cr_resource + 0.00 34.74 0.00 109785 0.00 0.00 move_unit + 0.00 34.74 0.00 109377 0.00 0.00 free_regionlist + 0.00 34.74 0.00 108560 0.00 0.00 eval_trail + 0.00 34.74 0.00 108335 0.00 0.00 roadto + 0.00 34.74 0.00 106919 0.00 0.00 mark_travelthru + 0.00 34.74 0.00 106798 0.00 0.00 help_feed + 0.00 34.74 0.00 105958 0.00 0.00 entrance_allowed + 0.00 34.74 0.00 104830 0.00 0.00 cr_output_building + 0.00 34.74 0.00 103784 0.00 0.00 move_cmd + 0.00 34.74 0.00 103187 0.00 0.00 cycle_route + 0.00 34.74 0.00 103079 0.00 0.00 rule_give + 0.00 34.74 0.00 102761 0.00 0.00 check_give + 0.00 34.74 0.00 102705 0.00 0.00 can_give_to + 0.00 34.74 0.00 102149 0.00 0.00 cr_output_travelthru + 0.00 34.74 0.00 101322 0.00 0.00 rsetherbs + 0.00 34.74 0.00 96637 0.00 0.00 personcapacity + 0.00 34.74 0.00 96637 0.00 0.00 walkingcapacity + 0.00 34.74 0.00 96555 0.00 0.00 canwalk + 0.00 34.74 0.00 96555 0.00 0.00 travel_i + 0.00 34.74 0.00 96529 0.00 0.00 travel + 0.00 34.74 0.00 96527 0.00 0.00 make_route + 0.00 34.74 0.00 96482 0.00 0.00 travel_route + 0.00 34.74 0.00 96450 0.00 0.00 cap_route + 0.00 34.74 0.00 96450 0.00 0.00 movement_speed + 0.00 34.74 0.00 96208 0.00 0.00 var_copy_regions + 0.00 34.74 0.00 95593 0.00 0.00 can_leave + 0.00 34.74 0.00 95533 0.00 0.00 give_item + 0.00 34.74 0.00 93452 0.00 0.00 see_border + 0.00 34.74 0.00 93120 0.00 0.00 change_reservation + 0.00 34.74 0.00 93119 0.00 0.00 give_quota + 0.00 34.74 0.00 93119 0.00 0.00 limited_give + 0.00 34.74 0.00 87004 0.00 0.00 i_add + 0.00 34.74 0.00 86400 0.00 0.00 spell_name + 0.00 34.74 0.00 84017 0.00 0.00 random_neighbour + 0.00 34.74 0.00 83859 0.00 0.00 reduce_weight + 0.00 34.74 0.00 83224 0.00 0.00 trollbelts + 0.00 34.74 0.00 80630 0.00 0.00 armor_bonus + 0.00 34.74 0.00 80630 0.00 0.00 calculate_armor + 0.00 34.74 0.00 80630 0.00 0.00 natural_armor + 0.00 34.74 0.00 80630 0.00 0.00 select_magicarmor + 0.00 34.74 0.00 80630 0.00 0.00 terminate + 0.00 34.74 0.00 79772 0.00 0.00 entertainmoney + 0.00 34.74 0.00 75797 0.00 0.00 buildingtype_exists + 0.00 34.74 0.00 72692 0.00 0.00 rc_specialdamage + 0.00 34.74 0.00 71416 0.00 0.00 reserve_i + 0.00 34.74 0.00 70836 0.00 0.00 is_guardian_u + 0.00 34.74 0.00 69432 0.00 0.00 getparam + 0.00 34.74 0.00 66134 0.00 0.00 shipspeed + 0.00 34.74 0.00 66058 0.00 0.00 ShipSpeedBonus + 0.00 34.74 0.00 65345 0.00 0.00 region_get_morale + 0.00 34.74 0.00 62267 0.00 0.00 get_migrants + 0.00 34.74 0.00 61961 0.00 0.00 cr_output_messages + 0.00 34.74 0.00 59694 0.00 0.00 r_insectstalled + 0.00 34.74 0.00 58524 0.00 0.00 a_writeint + 0.00 34.74 0.00 58518 0.00 0.00 a_readint + 0.00 34.74 0.00 57367 0.00 0.00 count_travelthru + 0.00 34.74 0.00 57138 0.00 0.00 getint + 0.00 34.74 0.00 56646 0.00 0.00 write_group + 0.00 34.74 0.00 56643 0.00 0.00 groupid + 0.00 34.74 0.00 56503 0.00 0.00 find_group + 0.00 34.74 0.00 56503 0.00 0.00 read_group + 0.00 34.74 0.00 55547 0.00 0.00 ally_add + 0.00 34.74 0.00 55350 0.00 0.00 can_start_guarding + 0.00 34.74 0.00 54735 0.00 0.00 init_cb + 0.00 34.74 0.00 54351 0.00 0.00 get_familiar + 0.00 34.74 0.00 54318 0.00 0.00 getstrtoken + 0.00 34.74 0.00 54163 0.00 0.00 var_copy_string + 0.00 34.74 0.00 51239 0.00 0.00 read_faction_reference + 0.00 34.74 0.00 51060 0.00 0.00 remove_skill + 0.00 34.74 0.00 50673 0.00 0.00 update_resources + 0.00 34.74 0.00 49331 0.00 0.00 _log_write + 0.00 34.74 0.00 49331 0.00 0.00 log_prefix + 0.00 34.74 0.00 49331 0.00 0.00 log_stdio + 0.00 34.74 0.00 49317 0.00 0.00 log_write + 0.00 34.74 0.00 49235 0.00 0.00 log_debug + 0.00 34.74 0.00 48565 0.00 0.00 u_set_building + 0.00 34.74 0.00 48457 0.00 0.00 bfindhash + 0.00 34.74 0.00 48455 0.00 0.00 findbuilding + 0.00 34.74 0.00 47562 0.00 0.00 rule_random_progress + 0.00 34.74 0.00 47562 0.00 0.00 skill_weeks + 0.00 34.74 0.00 47535 0.00 0.00 sk_set + 0.00 34.74 0.00 47287 0.00 0.00 canswim + 0.00 34.74 0.00 46742 0.00 0.00 findregionbyid + 0.00 34.74 0.00 46224 0.00 0.00 eval_faction + 0.00 34.74 0.00 46196 0.00 0.00 bhash + 0.00 34.74 0.00 46184 0.00 0.00 age_building + 0.00 34.74 0.00 45891 0.00 0.00 get_level + 0.00 34.74 0.00 45860 0.00 0.00 print_items + 0.00 34.74 0.00 45630 0.00 0.00 cr_output_resources + 0.00 34.74 0.00 44216 0.00 0.00 flying_ship + 0.00 34.74 0.00 44190 0.00 0.00 maintain + 0.00 34.74 0.00 41882 0.00 0.00 GiveRestriction + 0.00 34.74 0.00 41255 0.00 0.00 var_copy_order + 0.00 34.74 0.00 41248 0.00 0.00 msg_feedback + 0.00 34.74 0.00 40692 0.00 0.00 get_gamedate + 0.00 34.74 0.00 40099 0.00 0.00 eval_skill + 0.00 34.74 0.00 39955 0.00 0.00 write_of + 0.00 34.74 0.00 39926 0.00 0.00 check_leuchtturm + 0.00 34.74 0.00 39836 0.00 0.00 read_of + 0.00 34.74 0.00 39810 0.00 0.00 check_ship_allowed + 0.00 34.74 0.00 37974 0.00 0.00 deathcounts + 0.00 34.74 0.00 37931 0.00 0.00 centre + 0.00 34.74 0.00 37453 0.00 0.00 shiptrail_age + 0.00 34.74 0.00 37453 0.00 0.00 shiptrail_init + 0.00 34.74 0.00 37202 0.00 0.00 var_free_string + 0.00 34.74 0.00 37024 0.00 0.00 b_blocknone + 0.00 34.74 0.00 35708 0.00 0.00 reserve_cmd + 0.00 34.74 0.00 35708 0.00 0.00 reserve_self + 0.00 34.74 0.00 34565 0.00 0.00 ur_add + 0.00 34.74 0.00 34420 0.00 0.00 a_writeshorts + 0.00 34.74 0.00 34409 0.00 0.00 add_income + 0.00 34.74 0.00 34382 0.00 0.00 a_readshorts + 0.00 34.74 0.00 34221 0.00 0.00 eff_weight + 0.00 34.74 0.00 34220 0.00 0.00 shiptrail_read + 0.00 34.74 0.00 32727 0.00 0.00 region_set_morale + 0.00 34.74 0.00 32679 0.00 0.00 read_owner + 0.00 34.74 0.00 32679 0.00 0.00 rule_auto_taxation + 0.00 34.74 0.00 32670 0.00 0.00 calculate_emigration + 0.00 34.74 0.00 32670 0.00 0.00 growing_herbs + 0.00 34.74 0.00 32670 0.00 0.00 growing_trees + 0.00 34.74 0.00 32670 0.00 0.00 migrate + 0.00 34.74 0.00 32670 0.00 0.00 morale_update + 0.00 34.74 0.00 32670 0.00 0.00 peasants + 0.00 34.74 0.00 32670 0.00 0.00 write_owner + 0.00 34.74 0.00 31688 0.00 0.00 cr_building + 0.00 34.74 0.00 31214 0.00 0.00 message_faction + 0.00 34.74 0.00 30872 0.00 0.00 resolve_faction + 0.00 34.74 0.00 30634 0.00 0.00 guard_off_cmd + 0.00 34.74 0.00 30554 0.00 0.00 guard_on_cmd + 0.00 34.74 0.00 30308 0.00 0.00 peasant_growth_factor + 0.00 34.74 0.00 30250 0.00 0.00 peasant_luck_effect + 0.00 34.74 0.00 30150 0.00 0.00 ship_damage_percent + 0.00 34.74 0.00 28818 0.00 0.00 findship + 0.00 34.74 0.00 28818 0.00 0.00 sfindhash + 0.00 34.74 0.00 27694 0.00 0.00 dice + 0.00 34.74 0.00 27694 0.00 0.00 dragon_affinity_value + 0.00 34.74 0.00 27640 0.00 0.00 u_set_ship + 0.00 34.74 0.00 26995 0.00 0.00 inside_building + 0.00 34.74 0.00 26515 0.00 0.00 b_uinvisible + 0.00 34.74 0.00 26164 0.00 0.00 building_is_active + 0.00 34.74 0.00 26045 0.00 0.00 curse_cansee + 0.00 34.74 0.00 26045 0.00 0.00 msg_curse + 0.00 34.74 0.00 25857 0.00 0.00 eval_int36 + 0.00 34.74 0.00 25441 0.00 0.00 rmt_find + 0.00 34.74 0.00 25088 0.00 0.00 kill_troop + 0.00 34.74 0.00 25088 0.00 0.00 rmfighter + 0.00 34.74 0.00 24449 0.00 0.00 seematrix + 0.00 34.74 0.00 23781 0.00 0.00 guard + 0.00 34.74 0.00 23342 0.00 0.00 shiptrail_finalize + 0.00 34.74 0.00 23233 0.00 0.00 cr_faction + 0.00 34.74 0.00 22843 0.00 0.00 parser_end + 0.00 34.74 0.00 22644 0.00 0.00 new_border + 0.00 34.74 0.00 22643 0.00 0.00 b_validroad + 0.00 34.74 0.00 22643 0.00 0.00 b_writeroad + 0.00 34.74 0.00 22638 0.00 0.00 find_bordertype + 0.00 34.74 0.00 22637 0.00 0.00 b_readroad + 0.00 34.74 0.00 22301 0.00 0.00 army_index + 0.00 34.74 0.00 21517 0.00 0.00 chaosfactor + 0.00 34.74 0.00 21500 0.00 0.00 resource2luxury + 0.00 34.74 0.00 21443 0.00 0.00 ridingcapacity + 0.00 34.74 0.00 20072 0.00 0.00 cr_skill + 0.00 34.74 0.00 19671 0.00 0.00 buildingcapacity + 0.00 34.74 0.00 19545 0.00 0.00 eval_ship + 0.00 34.74 0.00 19089 0.00 0.00 st_find_i + 0.00 34.74 0.00 19085 0.00 0.00 shash + 0.00 34.74 0.00 19082 0.00 0.00 st_find + 0.00 34.74 0.00 18971 0.00 0.00 building_set_owner + 0.00 34.74 0.00 18963 0.00 0.00 ship_set_owner + 0.00 34.74 0.00 18788 0.00 0.00 sideabkz + 0.00 34.74 0.00 18059 0.00 0.00 add_chaoscount + 0.00 34.74 0.00 17289 0.00 0.00 parser_popstate + 0.00 34.74 0.00 17289 0.00 0.00 parser_pushstate + 0.00 34.74 0.00 16751 0.00 0.00 getuint + 0.00 34.74 0.00 16737 0.00 0.00 dir_invert + 0.00 34.74 0.00 16669 0.00 0.00 IsImmune + 0.00 34.74 0.00 16596 0.00 0.00 entertain_cmd + 0.00 34.74 0.00 16493 0.00 0.00 NewbieImmunity + 0.00 34.74 0.00 16191 0.00 0.00 add_donation + 0.00 34.74 0.00 16132 0.00 0.00 magic_lowskill + 0.00 34.74 0.00 15797 0.00 0.00 sell + 0.00 34.74 0.00 15708 0.00 0.00 add_travelthru_addresses + 0.00 34.74 0.00 15361 0.00 0.00 is_guarded + 0.00 34.74 0.00 15359 0.00 0.00 cinfo_building + 0.00 34.74 0.00 15240 0.00 0.00 msg_error + 0.00 34.74 0.00 15102 0.00 0.00 cmistake + 0.00 34.74 0.00 14994 0.00 0.00 cr_string + 0.00 34.74 0.00 14191 0.00 0.00 flee + 0.00 34.74 0.00 14111 0.00 0.00 shiptrail_write + 0.00 34.74 0.00 13500 0.00 0.00 enoughsailors + 0.00 34.74 0.00 12933 0.00 0.00 owner_buildingtyp + 0.00 34.74 0.00 12407 0.00 0.00 cr_regions + 0.00 34.74 0.00 12398 0.00 0.00 fbattlerecord + 0.00 34.74 0.00 12265 0.00 0.00 r_addmessage + 0.00 34.74 0.00 11989 0.00 0.00 resolve_unit + 0.00 34.74 0.00 11880 0.00 0.00 cansee_unit + 0.00 34.74 0.00 11599 0.00 0.00 building_protection + 0.00 34.74 0.00 11540 0.00 0.00 absorbed_by_monster + 0.00 34.74 0.00 11159 0.00 0.00 expandentertainment + 0.00 34.74 0.00 11087 0.00 0.00 do_work + 0.00 34.74 0.00 11052 0.00 0.00 find_spell + 0.00 34.74 0.00 11052 0.00 0.00 sp_alias + 0.00 34.74 0.00 10600 0.00 0.00 make_cmd + 0.00 34.74 0.00 10475 0.00 0.00 i_freeall + 0.00 34.74 0.00 10417 0.00 0.00 free_luxuries + 0.00 34.74 0.00 10344 0.00 0.00 cansail + 0.00 34.74 0.00 10232 0.00 0.00 update_lighthouse + 0.00 34.74 0.00 9763 0.00 0.00 read_reference + 0.00 34.74 0.00 9680 0.00 0.00 bewegung_blockiert_von + 0.00 34.74 0.00 9352 0.00 0.00 write_spell_modifier + 0.00 34.74 0.00 9147 0.00 0.00 merge_messages + 0.00 34.74 0.00 9147 0.00 0.00 split_messages + 0.00 34.74 0.00 8993 0.00 0.00 addtoken + 0.00 34.74 0.00 8962 0.00 0.00 hpflee + 0.00 34.74 0.00 8898 0.00 0.00 ucontact + 0.00 34.74 0.00 8892 0.00 0.00 astralregions + 0.00 34.74 0.00 8892 0.00 0.00 r_astral_to_standard + 0.00 34.74 0.00 8788 0.00 0.00 xml_cleanup_string + 0.00 34.74 0.00 8622 0.00 0.00 read_unit_reference + 0.00 34.74 0.00 8191 0.00 0.00 read_seenspell + 0.00 34.74 0.00 8187 0.00 0.00 write_seenspell + 0.00 34.74 0.00 8034 0.00 0.00 u_geteffstealth + 0.00 34.74 0.00 7964 0.00 0.00 nrt_section + 0.00 34.74 0.00 7957 0.00 0.00 magic_resistance + 0.00 34.74 0.00 7915 0.00 0.00 visible_default + 0.00 34.74 0.00 7889 0.00 0.00 special_resources + 0.00 34.74 0.00 7815 0.00 0.00 already_seen + 0.00 34.74 0.00 7630 0.00 0.00 addstrlist + 0.00 34.74 0.00 7493 0.00 0.00 required + 0.00 34.74 0.00 7336 0.00 0.00 get_alive + 0.00 34.74 0.00 7254 0.00 0.00 ship_ready + 0.00 34.74 0.00 7220 0.00 0.00 a_writestring + 0.00 34.74 0.00 7153 0.00 0.00 cr_ship + 0.00 34.74 0.00 7085 0.00 0.00 a_readprivate + 0.00 34.74 0.00 6962 0.00 0.00 leave_trail + 0.00 34.74 0.00 6962 0.00 0.00 set_coast + 0.00 34.74 0.00 6787 0.00 0.00 unicode_utf8_strcasecmp + 0.00 34.74 0.00 6576 0.00 0.00 xml_bvalue + 0.00 34.74 0.00 6530 0.00 0.00 findparam_ex + 0.00 34.74 0.00 5988 0.00 0.00 herbsearch + 0.00 34.74 0.00 5966 0.00 0.00 ntimespprob + 0.00 34.74 0.00 5925 0.00 0.00 addally + 0.00 34.74 0.00 5916 0.00 0.00 buy + 0.00 34.74 0.00 5907 0.00 0.00 cinfo_simple + 0.00 34.74 0.00 5810 0.00 0.00 report_transfer + 0.00 34.74 0.00 5596 0.00 0.00 drain_exp + 0.00 34.74 0.00 5588 0.00 0.00 get_locale + 0.00 34.74 0.00 5453 0.00 0.00 xml_ivalue + 0.00 34.74 0.00 5384 0.00 0.00 teach_cmd + 0.00 34.74 0.00 5358 0.00 0.00 get_spchange + 0.00 34.74 0.00 5358 0.00 0.00 max_spellpoints + 0.00 34.74 0.00 5354 0.00 0.00 xml_readtext + 0.00 34.74 0.00 5330 0.00 0.00 freestrlist + 0.00 34.74 0.00 5049 0.00 0.00 find_piracy_target + 0.00 34.74 0.00 5049 0.00 0.00 parse_ids + 0.00 34.74 0.00 5049 0.00 0.00 piracy_cmd + 0.00 34.74 0.00 5049 0.00 0.00 validate_pirate + 0.00 34.74 0.00 4915 0.00 0.00 get_spellpoints + 0.00 34.74 0.00 4875 0.00 0.00 get_combatspell + 0.00 34.74 0.00 4782 0.00 0.00 select_recruitment + 0.00 34.74 0.00 4629 0.00 0.00 expandselling + 0.00 34.74 0.00 4475 0.00 0.00 matmod + 0.00 34.74 0.00 4384 0.00 0.00 lparagraph + 0.00 34.74 0.00 4384 0.00 0.00 spunit + 0.00 34.74 0.00 4361 0.00 0.00 can_takeoff + 0.00 34.74 0.00 4261 0.00 0.00 findbuildingtype + 0.00 34.74 0.00 4259 0.00 0.00 findshiptype + 0.00 34.74 0.00 4162 0.00 0.00 spell_info + 0.00 34.74 0.00 4066 0.00 0.00 buildingmaintenance + 0.00 34.74 0.00 4052 0.00 0.00 c_clearflag + 0.00 34.74 0.00 4052 0.00 0.00 chash + 0.00 34.74 0.00 4052 0.00 0.00 curse_age + 0.00 34.74 0.00 4052 0.00 0.00 curse_init + 0.00 34.74 0.00 4024 0.00 0.00 curse_write + 0.00 34.74 0.00 4020 0.00 0.00 curse_read + 0.00 34.74 0.00 3862 0.00 0.00 unit_setname + 0.00 34.74 0.00 3717 0.00 0.00 free_castorders + 0.00 34.74 0.00 3659 0.00 0.00 ExpensiveMigrants + 0.00 34.74 0.00 3659 0.00 0.00 is_migrant + 0.00 34.74 0.00 3639 0.00 0.00 setreload + 0.00 34.74 0.00 3626 0.00 0.00 create_item + 0.00 34.74 0.00 3597 0.00 0.00 chaos + 0.00 34.74 0.00 3496 0.00 0.00 locale_setstring + 0.00 34.74 0.00 3438 0.00 0.00 lighthouse_range + 0.00 34.74 0.00 3438 0.00 0.00 prepare_lighthouse + 0.00 34.74 0.00 3355 0.00 0.00 region_getresource + 0.00 34.74 0.00 3203 0.00 0.00 faction_get_spellbook + 0.00 34.74 0.00 3203 0.00 0.00 join_battle + 0.00 34.74 0.00 3178 0.00 0.00 scale_number + 0.00 34.74 0.00 3171 0.00 0.00 get_spellbook + 0.00 34.74 0.00 3152 0.00 0.00 scareaway + 0.00 34.74 0.00 3123 0.00 0.00 limit_resource + 0.00 34.74 0.00 3117 0.00 0.00 name_cmd + 0.00 34.74 0.00 3114 0.00 0.00 rename_cmd + 0.00 34.74 0.00 3113 0.00 0.00 t_new + 0.00 34.74 0.00 3111 0.00 0.00 sidename + 0.00 34.74 0.00 3110 0.00 0.00 default_order + 0.00 34.74 0.00 3100 0.00 0.00 required + 0.00 34.74 0.00 3096 0.00 0.00 tt_find + 0.00 34.74 0.00 3078 0.00 0.00 allocate_resource + 0.00 34.74 0.00 3003 0.00 0.00 roqf_factor + 0.00 34.74 0.00 3002 0.00 0.00 forbiddenid + 0.00 34.74 0.00 2977 0.00 0.00 change_effect + 0.00 34.74 0.00 2931 0.00 0.00 name_unit + 0.00 34.74 0.00 2913 0.00 0.00 dead_fighters + 0.00 34.74 0.00 2889 0.00 0.00 create_unit + 0.00 34.74 0.00 2889 0.00 0.00 createunitid + 0.00 34.74 0.00 2854 0.00 0.00 is_attacker + 0.00 34.74 0.00 2831 0.00 0.00 countspells + 0.00 34.74 0.00 2818 0.00 0.00 newunitid + 0.00 34.74 0.00 2742 0.00 0.00 get_equipment + 0.00 34.74 0.00 2723 0.00 0.00 get_allocator + 0.00 34.74 0.00 2665 0.00 0.00 findnewunit + 0.00 34.74 0.00 2665 0.00 0.00 read_newunitid + 0.00 34.74 0.00 2650 0.00 0.00 a_initeffect + 0.00 34.74 0.00 2491 0.00 0.00 a_readeffect + 0.00 34.74 0.00 2468 0.00 0.00 find_argtype + 0.00 34.74 0.00 2468 0.00 0.00 tsf_find + 0.00 34.74 0.00 2457 0.00 0.00 set_level + 0.00 34.74 0.00 2421 0.00 0.00 set_racename + 0.00 34.74 0.00 2375 0.00 0.00 equip_unit + 0.00 34.74 0.00 2375 0.00 0.00 equip_unit_mask + 0.00 34.74 0.00 2324 0.00 0.00 read_spellbook + 0.00 34.74 0.00 2321 0.00 0.00 write_spellbook + 0.00 34.74 0.00 2304 0.00 0.00 killunit_write + 0.00 34.74 0.00 2299 0.00 0.00 killunit_read + 0.00 34.74 0.00 2274 0.00 0.00 cinfo_ship + 0.00 34.74 0.00 2148 0.00 0.00 demon_skillchange + 0.00 34.74 0.00 2112 0.00 0.00 spellbook_get + 0.00 34.74 0.00 2096 0.00 0.00 a_writeeffect + 0.00 34.74 0.00 2092 0.00 0.00 init_mage + 0.00 34.74 0.00 2091 0.00 0.00 read_mage + 0.00 34.74 0.00 2089 0.00 0.00 write_mage + 0.00 34.74 0.00 2081 0.00 0.00 a_init_reportspell + 0.00 34.74 0.00 2081 0.00 0.00 cr_reportspell + 0.00 34.74 0.00 2081 0.00 0.00 nr_spell + 0.00 34.74 0.00 2081 0.00 0.00 nr_spell_syntax + 0.00 34.74 0.00 2073 0.00 0.00 set_enemy + 0.00 34.74 0.00 2013 0.00 0.00 display_cmd + 0.00 34.74 0.00 2008 0.00 0.00 default_name + 0.00 34.74 0.00 1936 0.00 0.00 transfermen + 0.00 34.74 0.00 1921 0.00 0.00 show_allies_cr + 0.00 34.74 0.00 1911 0.00 0.00 cinfo_magicresistance + 0.00 34.74 0.00 1909 0.00 0.00 nrt_register + 0.00 34.74 0.00 1909 0.00 0.00 section_find + 0.00 34.74 0.00 1888 0.00 0.00 show_allies + 0.00 34.74 0.00 1873 0.00 0.00 set_spellpoints + 0.00 34.74 0.00 1848 0.00 0.00 uunhash + 0.00 34.74 0.00 1835 0.00 0.00 recruit + 0.00 34.74 0.00 1803 0.00 0.00 gift_items + 0.00 34.74 0.00 1794 0.00 0.00 remove_unit + 0.00 34.74 0.00 1761 0.00 0.00 give_horses + 0.00 34.74 0.00 1725 0.00 0.00 max_magicians + 0.00 34.74 0.00 1716 0.00 0.00 recruit_cost + 0.00 34.74 0.00 1711 0.00 0.00 cr_output_spells + 0.00 34.74 0.00 1700 0.00 0.00 status_cmd + 0.00 34.74 0.00 1697 0.00 0.00 new_group + 0.00 34.74 0.00 1670 0.00 0.00 any_recruiters + 0.00 34.74 0.00 1670 0.00 0.00 horse_recruiters + 0.00 34.74 0.00 1667 0.00 0.00 add_recruits + 0.00 34.74 0.00 1610 0.00 0.00 transfer_curse + 0.00 34.74 0.00 1594 0.00 0.00 do_recruiting + 0.00 34.74 0.00 1594 0.00 0.00 expandrecruit + 0.00 34.74 0.00 1594 0.00 0.00 free_recruitments + 0.00 34.74 0.00 1584 0.00 0.00 produce_resource + 0.00 34.74 0.00 1583 0.00 0.00 allied_skilllimit + 0.00 34.74 0.00 1583 0.00 0.00 reduce_skill + 0.00 34.74 0.00 1583 0.00 0.00 skill_limit + 0.00 34.74 0.00 1582 0.00 0.00 resource2potion + 0.00 34.74 0.00 1582 0.00 0.00 write_triggers + 0.00 34.74 0.00 1573 0.00 0.00 usetprivate + 0.00 34.74 0.00 1572 0.00 0.00 write_score + 0.00 34.74 0.00 1570 0.00 0.00 read_triggers + 0.00 34.74 0.00 1564 0.00 0.00 init_handler + 0.00 34.74 0.00 1564 0.00 0.00 write_handler + 0.00 34.74 0.00 1557 0.00 0.00 read_handler + 0.00 34.74 0.00 1529 0.00 0.00 ship_owner_ex + 0.00 34.74 0.00 1524 0.00 0.00 spellbook_add + 0.00 34.74 0.00 1522 0.00 0.00 a_write_unit + 0.00 34.74 0.00 1522 0.00 0.00 age_unit + 0.00 34.74 0.00 1520 0.00 0.00 eval_race + 0.00 34.74 0.00 1520 0.00 0.00 set_friendly + 0.00 34.74 0.00 1486 0.00 0.00 message_all + 0.00 34.74 0.00 1466 0.00 0.00 resolve_region_id + 0.00 34.74 0.00 1429 0.00 0.00 set_attacker + 0.00 34.74 0.00 1422 0.00 0.00 attrib_allocation + 0.00 34.74 0.00 1363 0.00 0.00 age_skeleton + 0.00 34.74 0.00 1361 0.00 0.00 unit_has_cursed_item + 0.00 34.74 0.00 1339 0.00 0.00 get_combatspelllevel + 0.00 34.74 0.00 1301 0.00 0.00 leveled_allocation + 0.00 34.74 0.00 1301 0.00 0.00 rm_get + 0.00 34.74 0.00 1297 0.00 0.00 add_tactics + 0.00 34.74 0.00 1297 0.00 0.00 battle_punit + 0.00 34.74 0.00 1297 0.00 0.00 free_fighter + 0.00 34.74 0.00 1297 0.00 0.00 hunted_dir + 0.00 34.74 0.00 1297 0.00 0.00 make_fighter + 0.00 34.74 0.00 1295 0.00 0.00 find_side + 0.00 34.74 0.00 1270 0.00 0.00 set_group + 0.00 34.74 0.00 1245 0.00 0.00 use_default + 0.00 34.74 0.00 1239 0.00 0.00 build + 0.00 34.74 0.00 1214 0.00 0.00 rule_faction_limit + 0.00 34.74 0.00 1202 0.00 0.00 resolve_familiar + 0.00 34.74 0.00 1201 0.00 0.00 change_spellpoints + 0.00 34.74 0.00 1199 0.00 0.00 res_changeaura + 0.00 34.74 0.00 1196 0.00 0.00 eval_localize + 0.00 34.74 0.00 1140 0.00 0.00 read_region_reference + 0.00 34.74 0.00 1139 0.00 0.00 region_setresource + 0.00 34.74 0.00 1138 0.00 0.00 read_targetregion + 0.00 34.74 0.00 1125 0.00 0.00 leave_building + 0.00 34.74 0.00 1119 0.00 0.00 write_region_reference + 0.00 34.74 0.00 1117 0.00 0.00 write_targetregion + 0.00 34.74 0.00 1091 0.00 0.00 loot_quota + 0.00 34.74 0.00 1078 0.00 0.00 resolve_mage + 0.00 34.74 0.00 1042 0.00 0.00 in_safe_building + 0.00 34.74 0.00 1041 0.00 0.00 findskill + 0.00 34.74 0.00 967 0.00 0.00 count_all + 0.00 34.74 0.00 960 0.00 0.00 tax_cmd + 0.00 34.74 0.00 957 0.00 0.00 crt_register + 0.00 34.74 0.00 957 0.00 0.00 mt_id + 0.00 34.74 0.00 957 0.00 0.00 mt_new + 0.00 34.74 0.00 957 0.00 0.00 mt_register + 0.00 34.74 0.00 955 0.00 0.00 movement_error + 0.00 34.74 0.00 946 0.00 0.00 sparagraph + 0.00 34.74 0.00 946 0.00 0.00 split_paragraph + 0.00 34.74 0.00 923 0.00 0.00 race_namegen + 0.00 34.74 0.00 894 0.00 0.00 make_follow + 0.00 34.74 0.00 834 0.00 0.00 eval_resources + 0.00 34.74 0.00 820 0.00 0.00 curse_geteffect_int + 0.00 34.74 0.00 799 0.00 0.00 setstealth_cmd + 0.00 34.74 0.00 793 0.00 0.00 is_familiar + 0.00 34.74 0.00 791 0.00 0.00 ally_cmd + 0.00 34.74 0.00 791 0.00 0.00 getfaction + 0.00 34.74 0.00 786 0.00 0.00 average_score_of_age + 0.00 34.74 0.00 785 0.00 0.00 lua_canuse_item + 0.00 34.74 0.00 769 0.00 0.00 shock_write + 0.00 34.74 0.00 768 0.00 0.00 shock_read + 0.00 34.74 0.00 767 0.00 0.00 spellcost + 0.00 34.74 0.00 763 0.00 0.00 init_skillmod + 0.00 34.74 0.00 760 0.00 0.00 read_familiar + 0.00 34.74 0.00 760 0.00 0.00 read_magician + 0.00 34.74 0.00 760 0.00 0.00 set_familiar + 0.00 34.74 0.00 754 0.00 0.00 checkunitnumber + 0.00 34.74 0.00 754 0.00 0.00 rule_alliance_limit + 0.00 34.74 0.00 752 0.00 0.00 monster_attack + 0.00 34.74 0.00 735 0.00 0.00 join_group + 0.00 34.74 0.00 708 0.00 0.00 age_ghoul + 0.00 34.74 0.00 702 0.00 0.00 max_transfers + 0.00 34.74 0.00 688 0.00 0.00 age_zombie + 0.00 34.74 0.00 677 0.00 0.00 slipthru + 0.00 34.74 0.00 666 0.00 0.00 generic_name + 0.00 34.74 0.00 663 0.00 0.00 expandtax + 0.00 34.74 0.00 659 0.00 0.00 can_give_men + 0.00 34.74 0.00 621 0.00 0.00 build_building + 0.00 34.74 0.00 621 0.00 0.00 group_cmd + 0.00 34.74 0.00 608 0.00 0.00 co_get_region + 0.00 34.74 0.00 604 0.00 0.00 eval_spell + 0.00 34.74 0.00 590 0.00 0.00 use_cmd + 0.00 34.74 0.00 590 0.00 0.00 use_item + 0.00 34.74 0.00 588 0.00 0.00 give_men + 0.00 34.74 0.00 574 0.00 0.00 battle_attacks + 0.00 34.74 0.00 574 0.00 0.00 battle_flee + 0.00 34.74 0.00 574 0.00 0.00 battle_update + 0.00 34.74 0.00 573 0.00 0.00 join_path + 0.00 34.74 0.00 569 0.00 0.00 relpath + 0.00 34.74 0.00 569 0.00 0.00 u_seteffstealth + 0.00 34.74 0.00 564 0.00 0.00 reportpath + 0.00 34.74 0.00 560 0.00 0.00 oldterrain + 0.00 34.74 0.00 554 0.00 0.00 a_finalizeeffect + 0.00 34.74 0.00 552 0.00 0.00 free_side + 0.00 34.74 0.00 552 0.00 0.00 make_side + 0.00 34.74 0.00 552 0.00 0.00 print_fighters + 0.00 34.74 0.00 524 0.00 0.00 remove_exclusive + 0.00 34.74 0.00 508 0.00 0.00 MagicRegeneration + 0.00 34.74 0.00 508 0.00 0.00 regeneration + 0.00 34.74 0.00 505 0.00 0.00 mm_smithy + 0.00 34.74 0.00 501 0.00 0.00 xml_fvalue + 0.00 34.74 0.00 499 0.00 0.00 MagicPower + 0.00 34.74 0.00 492 0.00 0.00 u_hasspell + 0.00 34.74 0.00 482 0.00 0.00 knowsspell + 0.00 34.74 0.00 481 0.00 0.00 count_units + 0.00 34.74 0.00 475 0.00 0.00 follow_ship + 0.00 34.74 0.00 465 0.00 0.00 get_function + 0.00 34.74 0.00 464 0.00 0.00 lastregion + 0.00 34.74 0.00 462 0.00 0.00 game_name + 0.00 34.74 0.00 461 0.00 0.00 maxheroes + 0.00 34.74 0.00 457 0.00 0.00 FactionSpells + 0.00 34.74 0.00 453 0.00 0.00 find_groupbyname + 0.00 34.74 0.00 451 0.00 0.00 mtype_get_param + 0.00 34.74 0.00 443 0.00 0.00 change_maxspellpoints + 0.00 34.74 0.00 443 0.00 0.00 res_changepermaura + 0.00 34.74 0.00 433 0.00 0.00 make_otherfaction + 0.00 34.74 0.00 432 0.00 0.00 helping + 0.00 34.74 0.00 428 0.00 0.00 free_nodes + 0.00 34.74 0.00 425 0.00 0.00 reportcasualties + 0.00 34.74 0.00 412 0.00 0.00 do_combatmagic + 0.00 34.74 0.00 406 0.00 0.00 PopulationDamage + 0.00 34.74 0.00 406 0.00 0.00 faction_setorigin + 0.00 34.74 0.00 405 0.00 0.00 enter_building + 0.00 34.74 0.00 404 0.00 0.00 usetpotionuse + 0.00 34.74 0.00 401 0.00 0.00 mayenter + 0.00 34.74 0.00 396 0.00 0.00 show_new_spells + 0.00 34.74 0.00 383 0.00 0.00 rt_get_or_create + 0.00 34.74 0.00 380 0.00 0.00 create_spellbook + 0.00 34.74 0.00 378 0.00 0.00 get_tactics + 0.00 34.74 0.00 377 0.00 0.00 manufacture + 0.00 34.74 0.00 371 0.00 0.00 add_translation + 0.00 34.74 0.00 365 0.00 0.00 unit_getspell + 0.00 34.74 0.00 361 0.00 0.00 regionname + 0.00 34.74 0.00 356 0.00 0.00 cr_race + 0.00 34.74 0.00 349 0.00 0.00 research_cmd + 0.00 34.74 0.00 348 0.00 0.00 begin_potion + 0.00 34.74 0.00 348 0.00 0.00 mail_cmd + 0.00 34.74 0.00 348 0.00 0.00 ugetpotionuse + 0.00 34.74 0.00 348 0.00 0.00 use_potion + 0.00 34.74 0.00 345 0.00 0.00 do_potion + 0.00 34.74 0.00 345 0.00 0.00 end_potion + 0.00 34.74 0.00 343 0.00 0.00 rough_amount + 0.00 34.74 0.00 338 0.00 0.00 findrace + 0.00 34.74 0.00 328 0.00 0.00 display_potion + 0.00 34.74 0.00 324 0.00 0.00 add_itemname_cb + 0.00 34.74 0.00 324 0.00 0.00 add_resourcename_cb + 0.00 34.74 0.00 324 0.00 0.00 caught_target + 0.00 34.74 0.00 319 0.00 0.00 loot_items + 0.00 34.74 0.00 314 0.00 0.00 CavalrySkill + 0.00 34.74 0.00 312 0.00 0.00 continue_ship + 0.00 34.74 0.00 307 0.00 0.00 getship + 0.00 34.74 0.00 303 0.00 0.00 create_castorder + 0.00 34.74 0.00 303 0.00 0.00 free_castorder + 0.00 34.74 0.00 298 0.00 0.00 plan_dragon + 0.00 34.74 0.00 295 0.00 0.00 age_dragon + 0.00 34.74 0.00 287 0.00 0.00 factionorders + 0.00 34.74 0.00 286 0.00 0.00 checkpasswd + 0.00 34.74 0.00 286 0.00 0.00 password_verify + 0.00 34.74 0.00 279 0.00 0.00 cr_spell + 0.00 34.74 0.00 273 0.00 0.00 pay_spell + 0.00 34.74 0.00 267 0.00 0.00 freetokens + 0.00 34.74 0.00 266 0.00 0.00 age_undead + 0.00 34.74 0.00 255 0.00 0.00 select_spellbook + 0.00 34.74 0.00 252 0.00 0.00 path_exists + 0.00 34.74 0.00 251 0.00 0.00 cancast + 0.00 34.74 0.00 251 0.00 0.00 eff_spelllevel + 0.00 34.74 0.00 251 0.00 0.00 out_faction + 0.00 34.74 0.00 250 0.00 0.00 real2tp + 0.00 34.74 0.00 249 0.00 0.00 make_movement_order + 0.00 34.74 0.00 248 0.00 0.00 sm_smithy + 0.00 34.74 0.00 242 0.00 0.00 canfly + 0.00 34.74 0.00 241 0.00 0.00 reshow + 0.00 34.74 0.00 241 0.00 0.00 reshow_cmd + 0.00 34.74 0.00 240 0.00 0.00 register_function + 0.00 34.74 0.00 236 0.00 0.00 leave_cmd + 0.00 34.74 0.00 234 0.00 0.00 make_leftship + 0.00 34.74 0.00 234 0.00 0.00 set_leftship + 0.00 34.74 0.00 233 0.00 0.00 faction_setpassword + 0.00 34.74 0.00 233 0.00 0.00 fhash + 0.00 34.74 0.00 233 0.00 0.00 password_encode + 0.00 34.74 0.00 233 0.00 0.00 read_groups + 0.00 34.74 0.00 233 0.00 0.00 read_password + 0.00 34.74 0.00 233 0.00 0.00 readfaction + 0.00 34.74 0.00 233 0.00 0.00 set_email + 0.00 34.74 0.00 232 0.00 0.00 spc_email_isvalid + 0.00 34.74 0.00 232 0.00 0.00 transfer_seen + 0.00 34.74 0.00 232 0.00 0.00 write_groups + 0.00 34.74 0.00 232 0.00 0.00 write_password + 0.00 34.74 0.00 232 0.00 0.08 write_reports + 0.00 34.74 0.00 232 0.00 0.00 write_script + 0.00 34.74 0.00 232 0.00 0.00 writefaction + 0.00 34.74 0.00 231 0.00 0.00 RemoveNMRNewbie + 0.00 34.74 0.00 231 0.00 0.00 eressea_version + 0.00 34.74 0.00 230 0.00 0.00 allies + 0.00 34.74 0.00 230 0.00 0.00 cr_find_address + 0.00 34.74 0.00 230 0.00 0.00 gamedate_season + 0.00 34.74 0.00 230 0.00 0.00 report_crtypes + 0.00 34.74 0.00 230 0.00 0.00 reset_translations + 0.00 34.74 0.00 230 0.00 0.00 rp_battles + 0.00 34.74 0.00 230 0.00 0.00 show_alliances_cr + 0.00 34.74 0.00 230 0.00 0.00 write_translations + 0.00 34.74 0.00 229 0.00 0.00 add_castorder + 0.00 34.74 0.00 229 0.00 0.00 list_address + 0.00 34.74 0.00 226 0.00 0.00 fumble + 0.00 34.74 0.00 225 0.00 0.00 spellpower + 0.00 34.74 0.00 224 0.00 0.00 leave_ship + 0.00 34.74 0.00 222 0.00 0.00 cast_cmd + 0.00 34.74 0.00 222 0.00 0.00 enter_ship + 0.00 34.74 0.00 220 0.00 0.00 farcasting + 0.00 34.74 0.00 214 0.00 0.00 var_copy_items + 0.00 34.74 0.00 210 0.00 0.00 cr_resources + 0.00 34.74 0.00 209 0.00 0.00 var_free_resources + 0.00 34.74 0.00 207 0.00 0.00 rule_force_leave + 0.00 34.74 0.00 206 0.00 0.00 aftermath + 0.00 34.74 0.00 206 0.00 0.00 battle_effects + 0.00 34.74 0.00 206 0.00 0.00 battle_free + 0.00 34.74 0.00 206 0.00 0.00 free_battle + 0.00 34.74 0.00 206 0.00 0.00 join_allies + 0.00 34.74 0.00 206 0.00 0.00 make_battle + 0.00 34.74 0.00 206 0.00 0.00 make_heroes + 0.00 34.74 0.00 206 0.00 0.00 print_header + 0.00 34.74 0.00 206 0.00 0.00 print_stats + 0.00 34.74 0.00 206 0.00 0.00 reorder_fleeing + 0.00 34.74 0.00 206 0.00 0.00 var_copy_resources + 0.00 34.74 0.00 203 0.00 0.00 msg_set_int + 0.00 34.74 0.00 196 0.00 0.00 make_name + 0.00 34.74 0.00 196 0.00 0.00 verify_targets + 0.00 34.74 0.00 195 0.00 0.00 mayboard + 0.00 34.74 0.00 192 0.00 0.00 can_contact + 0.00 34.74 0.00 191 0.00 0.00 CheckOverload + 0.00 34.74 0.00 191 0.00 0.00 xml_readconstruction + 0.00 34.74 0.00 188 0.00 0.00 is_freezing + 0.00 34.74 0.00 186 0.00 0.00 leftship_age + 0.00 34.74 0.00 185 0.00 0.00 it_get_or_create + 0.00 34.74 0.00 185 0.00 0.00 it_register + 0.00 34.74 0.00 183 0.00 0.00 cinfo_magicrunes + 0.00 34.74 0.00 182 0.00 0.00 age_firedragon + 0.00 34.74 0.00 182 0.00 0.00 msg_materials_required + 0.00 34.74 0.00 178 0.00 0.00 parse_function + 0.00 34.74 0.00 177 0.00 0.00 breed_cmd + 0.00 34.74 0.00 176 0.00 0.00 default_spoil + 0.00 34.74 0.00 174 0.00 0.00 breedhorses + 0.00 34.74 0.00 174 0.00 0.00 findresourcetype + 0.00 34.74 0.00 167 0.00 0.00 academy_teaching_bonus + 0.00 34.74 0.00 166 0.00 0.00 add_spell + 0.00 34.74 0.00 166 0.00 0.00 create_spell + 0.00 34.74 0.00 163 0.00 0.00 cinfo_shipnodrift + 0.00 34.74 0.00 162 0.00 0.00 rt_register + 0.00 34.74 0.00 160 0.00 0.00 damage_ship + 0.00 34.74 0.00 157 0.00 0.00 xml_readitem + 0.00 34.74 0.00 150 0.00 0.00 rc_get_or_create + 0.00 34.74 0.00 149 0.00 0.00 create_potion + 0.00 34.74 0.00 147 0.00 0.00 contact_cmd + 0.00 34.74 0.00 145 0.00 0.00 findunitr + 0.00 34.74 0.00 143 0.00 0.00 ResourceFactor + 0.00 34.74 0.00 143 0.00 0.00 update_resource + 0.00 34.74 0.00 138 0.00 0.00 renumber_cmd + 0.00 34.74 0.00 136 0.00 0.00 a_readstring + 0.00 34.74 0.00 136 0.00 0.00 path_find + 0.00 34.74 0.00 134 0.00 0.00 cinfo_slave + 0.00 34.74 0.00 133 0.00 0.00 income + 0.00 34.74 0.00 133 0.00 0.00 present + 0.00 34.74 0.00 133 0.00 0.00 reroute + 0.00 34.74 0.00 127 0.00 0.00 msg_create_message + 0.00 34.74 0.00 125 0.00 0.00 r_standard_to_astral + 0.00 34.74 0.00 125 0.00 0.00 random_unit + 0.00 34.74 0.00 125 0.00 0.00 tpregion + 0.00 34.74 0.00 124 0.00 0.00 age_stonecircle + 0.00 34.74 0.00 124 0.00 0.00 eval_unit_dative + 0.00 34.74 0.00 122 0.00 0.00 maxbuild + 0.00 34.74 0.00 121 0.00 0.00 co_get_caster + 0.00 34.74 0.00 121 0.00 0.00 lua_callspell + 0.00 34.74 0.00 121 0.00 0.00 msg_send_faction + 0.00 34.74 0.00 121 0.00 0.00 msg_set_unit + 0.00 34.74 0.00 120 0.00 0.00 plagues + 0.00 34.74 0.00 119 0.00 0.00 syntax_error + 0.00 34.74 0.00 118 0.00 0.00 keyword_key + 0.00 34.74 0.00 118 0.00 0.00 rule_transfermen + 0.00 34.74 0.00 115 0.00 0.00 build_ship + 0.00 34.74 0.00 115 0.00 0.00 usetcontact + 0.00 34.74 0.00 114 0.00 0.00 give_unit + 0.00 34.74 0.00 112 0.00 0.00 attack_firesword + 0.00 34.74 0.00 112 0.00 0.00 get_friends + 0.00 34.74 0.00 111 0.00 0.00 check_steal + 0.00 34.74 0.00 111 0.00 0.00 steal_cmd + 0.00 34.74 0.00 107 0.00 0.00 init_keyword + 0.00 34.74 0.00 106 0.00 0.00 a_readkey + 0.00 34.74 0.00 106 0.00 0.00 age_reduceproduction + 0.00 34.74 0.00 106 0.00 0.00 equipment_setskill + 0.00 34.74 0.00 105 0.00 0.00 terraform_region + 0.00 34.74 0.00 105 0.00 0.00 terraform_resources + 0.00 34.74 0.00 104 0.00 0.00 reshow_other + 0.00 34.74 0.00 99 0.00 0.00 spl_costtyp + 0.00 34.74 0.00 97 0.00 0.00 i_merge + 0.00 34.74 0.00 97 0.00 0.00 mk_piracy + 0.00 34.74 0.00 97 0.00 0.00 piracy_done + 0.00 34.74 0.00 97 0.00 0.00 piracy_init + 0.00 34.74 0.00 92 0.00 0.00 building_update_owner + 0.00 34.74 0.00 88 0.00 0.00 hunger + 0.00 34.74 0.00 88 0.00 0.00 hunger_damage + 0.00 34.74 0.00 88 0.00 0.00 parameter_key + 0.00 34.74 0.00 84 0.00 0.00 xml_readrequirements + 0.00 34.74 0.00 83 0.00 0.00 create_castorder_combat + 0.00 34.74 0.00 81 0.00 0.00 can_guard + 0.00 34.74 0.00 80 0.00 0.00 combatspell_cmd + 0.00 34.74 0.00 80 0.00 0.00 msg_set_resource + 0.00 34.74 0.00 78 0.00 0.00 eval_weight + 0.00 34.74 0.00 74 0.00 0.00 cast_combatspell + 0.00 34.74 0.00 74 0.00 0.00 get_force + 0.00 34.74 0.00 74 0.00 0.00 ghoul_name + 0.00 34.74 0.00 74 0.00 0.00 spell_damage + 0.00 34.74 0.00 73 0.00 0.00 create_equipment + 0.00 34.74 0.00 72 0.00 0.00 default_score + 0.00 34.74 0.00 71 0.00 0.00 disband_men + 0.00 34.74 0.00 70 0.00 0.00 skeleton_name + 0.00 34.74 0.00 68 0.00 0.00 a_readchars + 0.00 34.74 0.00 68 0.00 0.00 rc_create + 0.00 34.74 0.00 67 0.00 0.00 parse_ai + 0.00 34.74 0.00 66 0.00 0.00 a_writechars + 0.00 34.74 0.00 65 0.00 0.00 equipment_setitem + 0.00 34.74 0.00 65 0.00 0.00 findkeyword + 0.00 34.74 0.00 65 0.00 0.00 max_skill + 0.00 34.74 0.00 64 0.00 0.00 log_info + 0.00 34.74 0.00 62 0.00 0.00 cinfo_speed + 0.00 34.74 0.00 62 0.00 0.00 potion_luck + 0.00 34.74 0.00 61 0.00 0.00 add_callbacks + 0.00 34.74 0.00 61 0.00 0.00 add_items + 0.00 34.74 0.00 61 0.00 0.00 add_skills + 0.00 34.74 0.00 61 0.00 0.00 add_spells + 0.00 34.74 0.00 61 0.00 0.00 add_subsets + 0.00 34.74 0.00 60 0.00 0.00 equip_items + 0.00 34.74 0.00 60 0.00 0.00 nb_armor + 0.00 34.74 0.00 58 0.00 0.00 add_resource + 0.00 34.74 0.00 58 0.00 0.00 dict_get + 0.00 34.74 0.00 58 0.00 0.00 dict_name + 0.00 34.74 0.00 58 0.00 0.00 peasant_luck_factor + 0.00 34.74 0.00 58 0.00 0.00 rmt_get + 0.00 34.74 0.00 58 0.00 0.00 skill_key + 0.00 34.74 0.00 58 0.00 0.00 terraform_default + 0.00 34.74 0.00 57 0.00 0.00 free_land + 0.00 34.74 0.00 56 0.00 0.00 add_proc + 0.00 34.74 0.00 56 0.00 0.00 dict_init + 0.00 34.74 0.00 56 0.00 0.00 dict_read + 0.00 34.74 0.00 56 0.00 0.00 dict_write + 0.00 34.74 0.00 56 0.00 0.00 use_bloodpotion + 0.00 34.74 0.00 55 0.00 0.00 at_register + 0.00 34.74 0.00 55 0.00 0.00 renumber_unit + 0.00 34.74 0.00 54 0.00 0.00 eval_add + 0.00 34.74 0.00 54 0.00 0.00 it_set_appearance + 0.00 34.74 0.00 53 0.00 0.00 do_extra_spell + 0.00 34.74 0.00 53 0.00 0.00 lua_getresource + 0.00 34.74 0.00 53 0.00 0.00 sp_dragonodem + 0.00 34.74 0.00 52 0.00 0.00 cinfo_skillmod + 0.00 34.74 0.00 52 0.00 0.00 get_or_create_terrain + 0.00 34.74 0.00 52 0.00 0.00 zombie_name + 0.00 34.74 0.00 51 0.00 0.00 potion_water_of_life + 0.00 34.74 0.00 51 0.00 0.00 rcomp + 0.00 34.74 0.00 49 0.00 0.00 get_money_for_dragon + 0.00 34.74 0.00 48 0.00 0.00 addmessage + 0.00 34.74 0.00 48 0.00 0.00 allysfm + 0.00 34.74 0.00 48 0.00 0.00 caddmessage + 0.00 34.74 0.00 48 0.00 0.00 chaosterrain + 0.00 34.74 0.00 48 0.00 0.00 get_maxluxuries + 0.00 34.74 0.00 48 0.00 0.00 makename + 0.00 34.74 0.00 48 0.00 0.00 region_setname + 0.00 34.74 0.00 48 0.00 0.00 unit_addorder + 0.00 34.74 0.00 47 0.00 0.00 display_race + 0.00 34.74 0.00 47 0.00 0.00 give_peasants + 0.00 34.74 0.00 47 0.00 0.00 msg_set_region + 0.00 34.74 0.00 45 0.00 0.00 count_maxmigrants + 0.00 34.74 0.00 45 0.00 0.00 count_migrants + 0.00 34.74 0.00 45 0.00 0.00 create_curse + 0.00 34.74 0.00 44 0.00 0.00 ct_register + 0.00 34.74 0.00 44 0.00 0.00 curse_name + 0.00 34.74 0.00 43 0.00 0.00 unset_combatspell + 0.00 34.74 0.00 42 0.00 0.00 loot_cmd + 0.00 34.74 0.00 42 0.00 0.00 pcomp + 0.00 34.74 0.00 41 0.00 0.00 build_road + 0.00 34.74 0.00 41 0.00 0.00 expandstealing + 0.00 34.74 0.00 40 0.00 0.00 regions_in_range + 0.00 34.74 0.00 40 0.00 0.00 set_new_dragon_target + 0.00 34.74 0.00 39 0.00 0.00 bt_get_or_create + 0.00 34.74 0.00 39 0.00 0.00 deliverMail + 0.00 34.74 0.00 39 0.00 0.00 display_item + 0.00 34.74 0.00 39 0.00 0.00 random_growl + 0.00 34.74 0.00 38 0.00 0.00 count_allies + 0.00 34.74 0.00 38 0.00 0.00 do_combatspell + 0.00 34.74 0.00 38 0.00 0.00 report_action + 0.00 34.74 0.00 38 0.00 0.00 select_ally + 0.00 34.74 0.00 37 0.00 0.00 transport + 0.00 34.74 0.00 36 0.00 0.00 expandloot + 0.00 34.74 0.00 36 0.00 0.00 runhash + 0.00 34.74 0.00 35 0.00 0.00 mailunit + 0.00 34.74 0.00 34 0.00 0.00 dracoid_name + 0.00 34.74 0.00 33 0.00 0.00 pack_keyval + 0.00 34.74 0.00 33 0.00 0.00 set_param + 0.00 34.74 0.00 32 0.00 0.00 add_function + 0.00 34.74 0.00 32 0.00 0.00 make_curse + 0.00 34.74 0.00 30 0.00 0.00 limit_seeds + 0.00 34.74 0.00 30 0.00 0.00 overload_start + 0.00 34.74 0.00 30 0.00 0.00 treeman_neighbour + 0.00 34.74 0.00 29 0.00 0.00 add_proc_order + 0.00 34.74 0.00 29 0.00 0.00 add_raceprefix + 0.00 34.74 0.00 29 0.00 0.00 json_terrain_production + 0.00 34.74 0.00 28 0.00 0.00 cunhash + 0.00 34.74 0.00 28 0.00 0.00 curse_done + 0.00 34.74 0.00 28 0.00 0.00 destroy_curse + 0.00 34.74 0.00 28 0.00 0.00 report_effect + 0.00 34.74 0.00 27 0.00 0.00 NMRTimeout + 0.00 34.74 0.00 27 0.00 0.00 bt_register + 0.00 34.74 0.00 27 0.00 0.00 dragon_name + 0.00 34.74 0.00 27 0.00 0.00 move_iceberg + 0.00 34.74 0.00 27 0.00 0.00 register_item_use + 0.00 34.74 0.00 26 0.00 0.00 add_spellparameter + 0.00 34.74 0.00 26 0.00 0.00 free_spellparameter + 0.00 34.74 0.00 25 0.00 0.00 allysf + 0.00 34.74 0.00 25 0.00 0.00 make_targetregion + 0.00 34.74 0.00 24 0.00 0.00 equipment_addspell + 0.00 34.74 0.00 24 0.00 0.00 is_moving_ship + 0.00 34.74 0.00 23 0.00 0.00 destroy_cmd + 0.00 34.74 0.00 23 0.00 0.00 new_weapontype + 0.00 34.74 0.00 23 0.00 0.00 xml_readweapon + 0.00 34.74 0.00 22 0.00 0.00 addparam_ship + 0.00 34.74 0.00 22 0.00 0.00 rsetroad + 0.00 34.74 0.00 22 0.00 0.00 verify_ship + 0.00 34.74 0.00 21 0.00 0.00 sp_kampfzauber + 0.00 34.74 0.00 20 0.00 0.00 spawn_seaserpent + 0.00 34.74 0.00 19 0.00 0.00 tsf_register + 0.00 34.74 0.00 18 0.00 0.00 check_dupe + 0.00 34.74 0.00 18 0.00 0.00 handle_triggers + 0.00 34.74 0.00 18 0.00 0.00 json_flags + 0.00 34.74 0.00 18 0.00 0.00 json_terrain + 0.00 34.74 0.00 18 0.00 0.00 register_argtype + 0.00 34.74 0.00 18 0.00 0.00 timeout_handle + 0.00 34.74 0.00 18 0.00 0.00 timeout_init + 0.00 34.74 0.00 18 0.00 0.00 timeout_write + 0.00 34.74 0.00 17 0.00 0.00 recruit_dracoids + 0.00 34.74 0.00 16 0.00 0.00 addparam_unit + 0.00 34.74 0.00 16 0.00 0.00 damage_unit + 0.00 34.74 0.00 16 0.00 0.00 spy_cmd + 0.00 34.74 0.00 16 0.00 0.00 verify_unit + 0.00 34.74 0.00 15 0.00 0.00 drift_target + 0.00 34.74 0.00 15 0.00 0.00 new_potiontype + 0.00 34.74 0.00 15 0.00 0.00 overload + 0.00 34.74 0.00 15 0.00 0.00 pt_register + 0.00 34.74 0.00 15 0.00 0.00 res_changepeasants + 0.00 34.74 0.00 15 0.00 0.00 xml_readpotion + 0.00 34.74 0.00 14 0.00 0.00 heal_fighters + 0.00 34.74 0.00 14 0.00 0.00 tt_register + 0.00 34.74 0.00 13 0.00 0.00 add_proc_global + 0.00 34.74 0.00 13 0.00 0.00 getplanebyid + 0.00 34.74 0.00 13 0.00 0.00 log_error + 0.00 34.74 0.00 13 0.00 0.00 make_iceberg + 0.00 34.74 0.00 13 0.00 0.00 newcontainerid + 0.00 34.74 0.00 13 0.00 0.00 set_curseingmagician + 0.00 34.74 0.00 13 0.00 0.00 sp_blessedharvest + 0.00 34.74 0.00 13 0.00 0.00 timeout_read + 0.00 34.74 0.00 13 0.00 0.00 tolua_toid + 0.00 34.74 0.00 12 0.00 0.00 bunhash + 0.00 34.74 0.00 12 0.00 0.00 changefaction_init + 0.00 34.74 0.00 12 0.00 0.00 changefaction_write + 0.00 34.74 0.00 12 0.00 0.00 forget_cmd + 0.00 34.74 0.00 12 0.00 0.00 make_reduceproduction + 0.00 34.74 0.00 12 0.00 0.00 msg_to_ship_inmates + 0.00 34.74 0.00 12 0.00 0.00 volcano_destruction + 0.00 34.74 0.00 12 0.00 0.00 write_race_reference + 0.00 34.74 0.00 11 0.00 0.00 add_trigger + 0.00 34.74 0.00 11 0.00 0.00 koor_distance_wrap_xy + 0.00 34.74 0.00 11 0.00 0.00 new_building + 0.00 34.74 0.00 11 0.00 0.00 produce_seeds + 0.00 34.74 0.00 11 0.00 0.00 xml_register_callback + 0.00 34.74 0.00 11 0.00 0.00 xml_spell + 0.00 34.74 0.00 10 0.00 0.00 changefaction_read + 0.00 34.74 0.00 10 0.00 0.00 nrand + 0.00 34.74 0.00 10 0.00 0.00 rel_to_abs + 0.00 34.74 0.00 10 0.00 0.00 section_add + 0.00 34.74 0.00 10 0.00 0.00 set_combatspell + 0.00 34.74 0.00 10 0.00 0.00 sp_hain + 0.00 34.74 0.00 9 0.00 0.00 basepath + 0.00 34.74 0.00 9 0.00 0.00 init_resourcelimit + 0.00 34.74 0.00 9 0.00 0.00 melt_iceberg + 0.00 34.74 0.00 9 0.00 0.00 register_bordertype + 0.00 34.74 0.00 9 0.00 0.00 sp_stormwinds + 0.00 34.74 0.00 8 0.00 0.00 add_proc_region + 0.00 34.74 0.00 8 0.00 0.00 do_fumble + 0.00 34.74 0.00 8 0.00 0.00 mod_elves_only + 0.00 34.74 0.00 8 0.00 0.00 new_armortype + 0.00 34.74 0.00 8 0.00 0.00 spy_message + 0.00 34.74 0.00 8 0.00 0.00 unit_gethp + 0.00 34.74 0.00 8 0.00 0.00 xml_readarmor + 0.00 34.74 0.00 7 0.00 0.00 fighters + 0.00 34.74 0.00 7 0.00 0.00 has_ao_healing + 0.00 34.74 0.00 7 0.00 0.00 i_findc + 0.00 34.74 0.00 7 0.00 0.00 lt_register + 0.00 34.74 0.00 7 0.00 0.00 new_luxurytype + 0.00 34.74 0.00 7 0.00 0.00 register_race_name_function + 0.00 34.74 0.00 7 0.00 0.00 rmt_create + 0.00 34.74 0.00 7 0.00 0.00 scramble_fighters + 0.00 34.74 0.00 7 0.00 0.00 sp_healing + 0.00 34.74 0.00 7 0.00 0.00 spellbook_clear + 0.00 34.74 0.00 7 0.00 0.00 st_get_or_create + 0.00 34.74 0.00 7 0.00 0.00 sunhash + 0.00 34.74 0.00 7 0.00 0.00 xml_readluxury + 0.00 34.74 0.00 6 0.00 0.00 addparam_building + 0.00 34.74 0.00 6 0.00 0.00 changerace_init + 0.00 34.74 0.00 6 0.00 0.00 changerace_write + 0.00 34.74 0.00 6 0.00 0.00 equipment_setcallback + 0.00 34.74 0.00 6 0.00 0.00 findoption + 0.00 34.74 0.00 6 0.00 0.00 get_or_create_locale + 0.00 34.74 0.00 6 0.00 0.00 init_translations + 0.00 34.74 0.00 6 0.00 0.00 make_undead_unit + 0.00 34.74 0.00 6 0.00 0.00 msg_send_region + 0.00 34.74 0.00 6 0.00 0.00 read_race_reference + 0.00 34.74 0.00 6 0.00 0.00 remove_ship + 0.00 34.74 0.00 6 0.00 0.00 rrandneighbour + 0.00 34.74 0.00 6 0.00 0.00 send_cmd + 0.00 34.74 0.00 6 0.00 0.00 skill_summoned + 0.00 34.74 0.00 6 0.00 0.00 sp_mallornhain + 0.00 34.74 0.00 6 0.00 0.00 sp_summonundead + 0.00 34.74 0.00 6 0.00 0.00 volcano_outbreak + 0.00 34.74 0.00 5 0.00 0.00 at_deprecate + 0.00 34.74 0.00 5 0.00 0.00 datapath + 0.00 34.74 0.00 5 0.00 0.00 free_group + 0.00 34.74 0.00 5 0.00 0.00 get_cmp_region_owner + 0.00 34.74 0.00 5 0.00 0.00 log_warning + 0.00 34.74 0.00 5 0.00 0.00 reset_locales + 0.00 34.74 0.00 5 0.00 0.00 set_money + 0.00 34.74 0.00 5 0.00 0.00 trigger_killunit + 0.00 34.74 0.00 5 0.00 0.00 trigger_timeout + 0.00 34.74 0.00 5 0.00 0.00 ursprung_x + 0.00 34.74 0.00 5 0.00 0.00 ursprung_y + 0.00 34.74 0.00 4 0.00 0.00 count_skill + 0.00 34.74 0.00 4 0.00 0.00 heal + 0.00 34.74 0.00 4 0.00 0.00 intlist_add + 0.00 34.74 0.00 4 0.00 0.00 intlist_init + 0.00 34.74 0.00 4 0.00 0.00 json_config + 0.00 34.74 0.00 4 0.00 0.00 mailfaction + 0.00 34.74 0.00 4 0.00 0.00 nextlocale + 0.00 34.74 0.00 4 0.00 0.00 read_skill + 0.00 34.74 0.00 4 0.00 0.00 seefaction + 0.00 34.74 0.00 4 0.00 0.00 sp_goodwinds + 0.00 34.74 0.00 4 0.00 0.00 terrains + 0.00 34.74 0.00 4 0.00 0.00 try_rename + 0.00 34.74 0.00 4 0.00 0.00 verify_building + 0.00 34.74 0.00 3 0.00 0.00 add_proc_postregion + 0.00 34.74 0.00 3 0.00 0.00 add_proc_unit + 0.00 34.74 0.00 3 0.00 0.00 can_charm + 0.00 34.74 0.00 3 0.00 0.00 changerace_read + 0.00 34.74 0.00 3 0.00 0.00 count_particles + 0.00 34.74 0.00 3 0.00 0.00 gamedate2 + 0.00 34.74 0.00 3 0.00 0.00 getplaneid + 0.00 34.74 0.00 3 0.00 0.00 give_control + 0.00 34.74 0.00 3 0.00 0.00 init_group + 0.00 34.74 0.00 3 0.00 0.00 init_locales + 0.00 34.74 0.00 3 0.00 0.00 parse_param + 0.00 34.74 0.00 3 0.00 0.00 racelist_insert + 0.00 34.74 0.00 3 0.00 0.00 register_item_give + 0.00 34.74 0.00 3 0.00 0.00 register_reporttype + 0.00 34.74 0.00 3 0.00 0.00 report_failed_spell + 0.00 34.74 0.00 3 0.00 0.00 sp_charmingsong + 0.00 34.74 0.00 3 0.00 0.00 sp_eternizewall + 0.00 34.74 0.00 3 0.00 0.00 sp_song_of_peace + 0.00 34.74 0.00 3 0.00 0.00 target_resists_magic + 0.00 34.74 0.00 3 0.00 0.00 trigger_changerace + 0.00 34.74 0.00 3 0.00 0.00 update_nmrs + 0.00 34.74 0.00 3 0.00 0.00 use_healingpotion + 0.00 34.74 0.00 3 0.00 0.00 write_skill + 0.00 34.74 0.00 2 0.00 0.00 b_blockquestportal + 0.00 34.74 0.00 2 0.00 0.00 b_fvisible + 0.00 34.74 0.00 2 0.00 0.00 b_namequestportal + 0.00 34.74 0.00 2 0.00 0.00 b_opaque + 0.00 34.74 0.00 2 0.00 0.00 breedtrees + 0.00 34.74 0.00 2 0.00 0.00 claim_cmd + 0.00 34.74 0.00 2 0.00 0.00 create_directories + 0.00 34.74 0.00 2 0.00 0.00 create_ship + 0.00 34.74 0.00 2 0.00 0.00 disable_feature + 0.00 34.74 0.00 2 0.00 0.00 free_summary + 0.00 34.74 0.00 2 0.00 0.00 game_id + 0.00 34.74 0.00 2 0.00 0.00 giveitem_init + 0.00 34.74 0.00 2 0.00 0.00 giveitem_write + 0.00 34.74 0.00 2 0.00 0.00 init_directions + 0.00 34.74 0.00 2 0.00 0.00 init_keywords + 0.00 34.74 0.00 2 0.00 0.00 init_locale + 0.00 34.74 0.00 2 0.00 0.00 init_options_translation + 0.00 34.74 0.00 2 0.00 0.00 init_parameters + 0.00 34.74 0.00 2 0.00 0.00 init_skills + 0.00 34.74 0.00 2 0.00 0.00 init_terrains_translation + 0.00 34.74 0.00 2 0.00 0.00 json_keyword + 0.00 34.74 0.00 2 0.00 0.00 limit_mallornseeds + 0.00 34.74 0.00 2 0.00 0.00 log_create + 0.00 34.74 0.00 2 0.00 0.00 make_skillmod + 0.00 34.74 0.00 2 0.00 0.00 new_ship + 0.00 34.74 0.00 2 0.00 0.00 register_item_useonother + 0.00 34.74 0.00 2 0.00 0.00 register_special_direction + 0.00 34.74 0.00 2 0.00 0.00 remove_building + 0.00 34.74 0.00 2 0.00 0.00 report_summary + 0.00 34.74 0.00 2 0.00 0.00 res_changehp + 0.00 34.74 0.00 2 0.00 0.00 sp_bloodsacrifice + 0.00 34.74 0.00 2 0.00 0.00 sp_igjarjuk + 0.00 34.74 0.00 2 0.00 0.00 sp_summon_familiar + 0.00 34.74 0.00 2 0.00 0.00 sp_viewreality + 0.00 34.74 0.00 2 0.00 0.00 summon_allies + 0.00 34.74 0.00 2 0.00 0.00 tolua_eressea_open + 0.00 34.74 0.00 2 0.00 0.00 tolua_reg_types_eressea + 0.00 34.74 0.00 2 0.00 0.00 tolua_unit_open + 0.00 34.74 0.00 2 0.00 0.00 trigger_changefaction + 0.00 34.74 0.00 2 0.00 0.00 verbosity_to_flags + 0.00 34.74 0.00 2 0.00 0.00 wormhole_age + 0.00 34.74 0.00 2 0.00 0.00 wormhole_read + 0.00 34.74 0.00 2 0.00 0.00 wormhole_write + 0.00 34.74 0.00 2 0.00 0.00 xml_readstrings + 0.00 34.74 0.00 1 0.00 0.00 a_finalizestring + 0.00 34.74 0.00 1 0.00 0.00 a_upgradekeys + 0.00 34.74 0.00 1 0.00 0.00 a_writekeys + 0.00 34.74 0.00 1 0.00 0.00 add_seen_faction + 0.00 34.74 0.00 1 0.00 0.00 age_borders + 0.00 34.74 0.00 1 0.00 0.00 age_illusion + 0.00 34.74 0.00 1 0.00 0.00 attrib_done + 0.00 34.74 0.00 1 0.00 0.00 b_read + 0.00 34.74 0.00 1 0.00 0.00 b_write + 0.00 34.74 0.00 1 0.00 0.00 bind_monsters + 0.00 34.74 0.00 1 0.00 0.00 caldera_handle + 0.00 34.74 0.00 1 0.00 0.00 caldera_read + 0.00 34.74 0.00 1 0.00 0.00 caldera_write + 0.00 34.74 0.00 1 0.00 0.00 calendar_cleanup + 0.00 34.74 0.00 1 0.00 0.00 chaos_register + 0.00 34.74 0.00 1 0.00 0.00 check_messages_exist + 0.00 34.74 0.00 1 0.00 0.01 clear_npc_orders + 0.00 34.74 0.00 1 0.00 0.00 clonedied_read + 0.00 34.74 0.00 1 0.00 0.00 clonedied_write + 0.00 34.74 0.00 1 0.00 0.02 config_parse + 0.00 34.74 0.00 1 0.00 0.02 config_read + 0.00 34.74 0.00 1 0.00 0.00 create_mage + 0.00 34.74 0.00 1 0.00 0.00 create_newfamiliar + 0.00 34.74 0.00 1 0.00 0.00 crmessage_done + 0.00 34.74 0.00 1 0.00 0.00 ct_checknames + 0.00 34.74 0.00 1 0.00 0.00 curses_done + 0.00 34.74 0.00 1 0.00 0.00 dazzle + 0.00 34.74 0.00 1 0.00 0.54 demographics + 0.00 34.74 0.00 1 0.00 0.00 destroy_road + 0.00 34.74 0.00 1 0.00 0.45 do_battles + 0.00 34.74 0.00 1 0.00 0.00 enable_keyword + 0.00 34.74 0.00 1 0.00 0.00 equipment_done + 0.00 34.74 0.00 1 0.00 0.46 eressea_read_game + 0.00 34.74 0.00 1 0.00 0.00 eressea_run + 0.00 34.74 0.00 1 0.00 0.36 eressea_write_game + 0.00 34.74 0.00 1 0.00 0.00 flyingship_age + 0.00 34.74 0.00 1 0.00 0.01 free_config + 0.00 34.74 0.00 1 0.00 0.00 free_functions + 0.00 34.74 0.00 1 0.00 0.00 free_functions + 0.00 34.74 0.00 1 0.00 0.00 free_locales + 0.00 34.74 0.00 1 0.00 0.00 fumble_default + 0.00 34.74 0.00 1 0.00 0.00 funhash + 0.00 34.74 0.00 1 0.00 0.01 game_done + 0.00 34.74 0.00 1 0.00 0.00 game_init + 0.00 34.74 0.00 1 0.00 0.00 get_arg + 0.00 34.74 0.00 1 0.00 0.00 get_translation + 0.00 34.74 0.00 1 0.00 0.00 giveitem_read + 0.00 34.74 0.00 1 0.00 0.00 has_limited_skills + 0.00 34.74 0.00 1 0.00 0.04 icebergs + 0.00 34.74 0.00 1 0.00 0.04 immigration + 0.00 34.74 0.00 1 0.00 0.00 init_data + 0.00 34.74 0.00 1 0.00 0.00 init_genrand + 0.00 34.74 0.00 1 0.00 0.00 init_itemtypes + 0.00 34.74 0.00 1 0.00 0.00 init_mallornseed + 0.00 34.74 0.00 1 0.00 0.00 init_oldpotions + 0.00 34.74 0.00 1 0.00 0.00 init_processor + 0.00 34.74 0.00 1 0.00 0.02 init_reports + 0.00 34.74 0.00 1 0.00 0.00 init_resources + 0.00 34.74 0.00 1 0.00 0.00 init_rules + 0.00 34.74 0.00 1 0.00 0.00 init_seed + 0.00 34.74 0.00 1 0.00 0.00 init_smithy + 0.00 34.74 0.00 1 0.00 0.00 init_terrains + 0.00 34.74 0.00 1 0.00 0.00 item_done + 0.00 34.74 0.00 1 0.00 0.00 json_disable_features + 0.00 34.74 0.00 1 0.00 0.00 json_include + 0.00 34.74 0.00 1 0.00 0.00 json_keywords + 0.00 34.74 0.00 1 0.00 0.00 json_prefixes + 0.00 34.74 0.00 1 0.00 0.02 json_settings + 0.00 34.74 0.00 1 0.00 0.00 json_terrains + 0.00 34.74 0.00 1 0.00 0.00 kernel_done + 0.00 34.74 0.00 1 0.00 0.00 kernel_init + 0.00 34.74 0.00 1 0.00 0.00 levitate_ship + 0.00 34.74 0.00 1 0.00 0.00 load_inifile + 0.00 34.74 0.00 1 0.00 0.00 locale_init + 0.00 34.74 0.00 1 0.00 0.00 log_close + 0.00 34.74 0.00 1 0.00 0.00 log_open + 0.00 34.74 0.00 1 0.00 0.00 log_rotate + 0.00 34.74 0.00 1 0.00 0.00 log_to_file + 0.00 34.74 0.00 1 0.00 0.00 lua_done + 0.00 34.74 0.00 1 0.00 0.00 lua_init + 0.00 34.74 0.00 1 0.00 0.00 make_familiar + 0.00 34.74 0.00 1 0.00 0.00 make_locales + 0.00 34.74 0.00 1 0.00 0.00 make_matmod + 0.00 34.74 0.00 1 0.00 0.00 make_wormhole + 0.00 34.74 0.00 1 0.00 0.00 make_wormholes + 0.00 34.74 0.00 1 0.00 0.00 make_zombie + 0.00 34.74 0.00 1 0.00 0.00 message_done + 0.00 34.74 0.00 1 0.00 0.07 monthly_healing + 0.00 34.74 0.00 1 0.00 0.00 mt_clear + 0.00 34.74 0.00 1 0.00 0.04 new_units + 0.00 34.74 0.00 1 0.00 0.00 nmr_death + 0.00 34.74 0.00 1 0.00 0.00 nmr_warnings + 0.00 34.74 0.00 1 0.00 0.00 oldfamiliars + 0.00 34.74 0.00 1 0.00 0.00 openlibs + 0.00 34.74 0.00 1 0.00 0.00 parse_args + 0.00 34.74 0.00 1 0.00 0.00 parse_buildings + 0.00 34.74 0.00 1 0.00 0.00 parse_calendar + 0.00 34.74 0.00 1 0.00 0.00 parse_config + 0.00 34.74 0.00 1 0.00 0.00 parse_equipment + 0.00 34.74 0.00 1 0.00 0.00 parse_inifile + 0.00 34.74 0.00 1 0.00 0.00 parse_messages + 0.00 34.74 0.00 1 0.00 0.00 parse_races + 0.00 34.74 0.00 1 0.00 0.00 parse_resources + 0.00 34.74 0.00 1 0.00 0.00 parse_rules + 0.00 34.74 0.00 1 0.00 0.00 parse_ships + 0.00 34.74 0.00 1 0.00 0.00 parse_spellbooks + 0.00 34.74 0.00 1 0.00 0.00 parse_spells + 0.00 34.74 0.00 1 0.00 0.00 parse_strings + 0.00 34.74 0.00 1 0.00 0.00 pathfinder_cleanup + 0.00 34.74 0.00 1 0.00 0.53 plan_monsters + 0.00 34.74 0.00 1 0.00 0.00 plant + 0.00 34.74 0.00 1 0.00 0.00 planttrees + 0.00 34.74 0.00 1 0.00 5.61 processorders + 0.00 34.74 0.00 1 0.00 0.00 produce_mallornseeds + 0.00 34.74 0.00 1 0.00 0.00 promotion_cmd + 0.00 34.74 0.00 1 0.00 0.05 quit + 0.00 34.74 0.00 1 0.00 0.00 read_alliances + 0.00 34.74 0.00 1 0.00 0.00 read_borders + 0.00 34.74 0.00 1 0.00 0.00 read_building_reference + 0.00 34.74 0.00 1 0.00 0.46 read_game + 0.00 34.74 0.00 1 0.00 0.00 read_planes + 0.00 34.74 0.00 1 0.00 0.00 read_xml + 0.00 34.74 0.00 1 0.00 0.46 readgame + 0.00 34.74 0.00 1 0.00 0.65 readorders + 0.00 34.74 0.00 1 0.00 0.00 recruit_init + 0.00 34.74 0.00 1 0.00 0.00 register_arena + 0.00 34.74 0.00 1 0.00 0.00 register_artrewards + 0.00 34.74 0.00 1 0.00 0.00 register_attributes + 0.00 34.74 0.00 1 0.00 0.00 register_borders + 0.00 34.74 0.00 1 0.00 0.00 register_buildingcurse + 0.00 34.74 0.00 1 0.00 0.00 register_buildings + 0.00 34.74 0.00 1 0.00 0.00 register_cr + 0.00 34.74 0.00 1 0.00 0.00 register_demonseye + 0.00 34.74 0.00 1 0.00 0.00 register_flyingship + 0.00 34.74 0.00 1 0.00 0.00 register_gmcmd + 0.00 34.74 0.00 1 0.00 0.00 register_itemfunctions + 0.00 34.74 0.00 1 0.00 0.00 register_itemtypes + 0.00 34.74 0.00 1 0.00 0.00 register_magicresistance + 0.00 34.74 0.00 1 0.00 0.00 register_museum + 0.00 34.74 0.00 1 0.00 0.00 register_names + 0.00 34.74 0.00 1 0.00 0.00 register_nr + 0.00 34.74 0.00 1 0.00 0.00 register_race_description_function + 0.00 34.74 0.00 1 0.00 0.00 register_races + 0.00 34.74 0.00 1 0.00 0.00 register_regioncurse + 0.00 34.74 0.00 1 0.00 0.00 register_reports + 0.00 34.74 0.00 1 0.00 0.00 register_resources + 0.00 34.74 0.00 1 0.00 0.00 register_shipcurse + 0.00 34.74 0.00 1 0.00 0.00 register_spelldata + 0.00 34.74 0.00 1 0.00 0.00 register_spells + 0.00 34.74 0.00 1 0.00 0.00 register_tolua_helpers + 0.00 34.74 0.00 1 0.00 0.00 register_triggers + 0.00 34.74 0.00 1 0.00 0.00 register_unitcurse + 0.00 34.74 0.00 1 0.00 0.00 register_weapons + 0.00 34.74 0.00 1 0.00 0.00 register_xerewards + 0.00 34.74 0.00 1 0.00 0.00 register_xmas + 0.00 34.74 0.00 1 0.00 0.00 register_xmlreader + 0.00 34.74 0.00 1 0.00 0.03 remove_idle_players + 0.00 34.74 0.00 1 0.00 0.00 removelist + 0.00 34.74 0.00 1 0.00 0.00 renumber_factions + 0.00 34.74 0.00 1 0.00 0.00 report_donations + 0.00 34.74 0.00 1 0.00 0.00 report_failure + 0.00 34.74 0.00 1 0.00 0.00 report_spell + 0.00 34.74 0.00 1 0.00 18.69 reports + 0.00 34.74 0.00 1 0.00 0.00 reports_done + 0.00 34.74 0.00 1 0.00 0.00 resolve + 0.00 34.74 0.00 1 0.00 0.00 resolve_building + 0.00 34.74 0.00 1 0.00 0.00 select_familiar + 0.00 34.74 0.00 1 0.00 0.00 select_wormhole_regions + 0.00 34.74 0.00 1 0.00 0.00 setup_signal_handler + 0.00 34.74 0.00 1 0.00 0.00 shipcurse_flyingship + 0.00 34.74 0.00 1 0.00 0.00 sort_wormhole_regions + 0.00 34.74 0.00 1 0.00 0.00 sp_enterastral + 0.00 34.74 0.00 1 0.00 0.00 sp_flying_ship + 0.00 34.74 0.00 1 0.00 0.00 sp_generous + 0.00 34.74 0.00 1 0.00 0.00 sp_holyground + 0.00 34.74 0.00 1 0.00 0.00 sp_seduce + 0.00 34.74 0.00 1 0.00 0.00 sp_summonshadowlords + 0.00 34.74 0.00 1 0.00 0.01 spawn_braineaters + 0.00 34.74 0.00 1 0.00 0.01 spawn_undead + 0.00 34.74 0.00 1 0.00 0.00 t_add + 0.00 34.74 0.00 1 0.00 0.00 tolua_bind_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_bindings_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_building_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_config_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_dict_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_faction_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_game_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_gmtool_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_locale_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_log_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_message_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_order_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_process_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_reg_types_config + 0.00 34.74 0.00 1 0.00 0.00 tolua_reg_types_game + 0.00 34.74 0.00 1 0.00 0.00 tolua_reg_types_locale + 0.00 34.74 0.00 1 0.00 0.00 tolua_reg_types_log + 0.00 34.74 0.00 1 0.00 0.00 tolua_reg_types_process + 0.00 34.74 0.00 1 0.00 0.00 tolua_reg_types_settings + 0.00 34.74 0.00 1 0.00 0.00 tolua_region_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_settings_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_ship_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_sqlite_open + 0.00 34.74 0.00 1 0.00 0.00 tolua_storage_open + 0.00 34.74 0.00 1 0.00 0.00 translation_done + 0.00 34.74 0.00 1 0.00 0.00 translation_init + 0.00 34.74 0.00 1 0.00 0.00 trigger_giveitem + 0.00 34.74 0.00 1 0.00 0.00 trigger_shock + 0.00 34.74 0.00 1 0.00 0.03 update_spells + 0.00 34.74 0.00 1 0.00 0.00 use_skillpotion + 0.00 34.74 0.00 1 0.00 0.00 valid_race + 0.00 34.74 0.00 1 0.00 0.00 version_no + 0.00 34.74 0.00 1 0.00 0.00 volcano_update + 0.00 34.74 0.00 1 0.00 0.00 wormholes_register + 0.00 34.74 0.00 1 0.00 0.00 wormholes_update + 0.00 34.74 0.00 1 0.00 0.00 write_alliances + 0.00 34.74 0.00 1 0.00 0.00 write_borders + 0.00 34.74 0.00 1 0.00 0.00 write_planes + 0.00 34.74 0.00 1 0.00 0.35 writegame + 0.00 34.74 0.00 1 0.00 0.00 writepasswd + 0.00 34.74 0.00 1 0.00 0.00 writeturn + 0.00 34.74 0.00 1 0.00 0.00 xml_done + + % the percentage of the total running time of the +time program used by this function. + +cumulative a running sum of the number of seconds accounted + seconds for by this function and those listed above it. + + self the number of seconds accounted for by this +seconds function alone. This is the major sort for this + listing. + +calls the number of times this function was invoked, if + this function is profiled, else blank. + + self the average number of milliseconds spent in this +ms/call function per call, if this function is profiled, + else blank. + + total the average number of milliseconds spent in this +ms/call function and its descendents per call, if this + function is profiled, else blank. + +name the name of the function. This is the minor sort + for this listing. The index shows the location of + the function in the gprof listing. If the index is + in parenthesis it shows where it would appear in + the gprof listing if it were to be printed. + + Call graph (explanation follows) + + +granularity: each sample hit covers 2 byte(s) for 0.03% of 34.74 seconds + +index % time self children called name + +[1] 53.9 0.00 18.72 tolua_write_reports [1] + 0.00 18.69 1/1 reports [2] + 0.00 0.02 1/1 init_reports [399] +----------------------------------------------- + 0.00 18.69 1/1 tolua_write_reports [1] +[2] 53.8 0.00 18.69 1 reports [2] + 0.00 18.67 232/232 write_reports [3] + 0.00 0.02 1/6 remove_empty_units [146] + 0.00 0.00 1/1 report_donations [725] + 0.00 0.00 232/232 write_script [853] + 0.00 0.00 1/573 join_path [1016] + 0.00 0.00 1/564 reportpath [1063] + 0.00 0.00 1/64 log_info [1339] +----------------------------------------------- + 0.00 18.67 232/232 reports [2] +[3] 53.7 0.00 18.67 232 write_reports [3] + 0.77 6.37 230/230 report_plaintext [4] + 3.91 0.70 232/232 prepare_report [8] + 0.96 3.25 230/230 report_computer [9] + 0.96 0.53 232/232 get_addresses [20] + 0.88 0.00 232/232 finish_reports [33] + 0.27 0.06 99/99 report_template [87] + 0.00 0.00 559/5100840 itoa36 [116] + 0.00 0.00 559/573 join_path [1016] + 0.00 0.00 559/564 reportpath [1063] + 0.00 0.00 232/1295787 factionname [247] + 0.00 0.00 232/49235 log_debug [1245] +----------------------------------------------- + 0.77 6.37 230/230 write_reports [3] +[4] 20.6 0.77 6.37 230 report_plaintext [4] + 0.02 2.96 1344397/1344397 nr_unit [11] + 0.05 0.77 127676/127676 describe [35] + 0.03 0.77 78504/79180 rp_messages [36] + 0.29 0.13 453309/1437425 cansee [22] + 0.02 0.40 33139/33139 statistics [70] + 0.03 0.31 35287/35287 prices [85] + 0.01 0.21 180598/180598 nr_ship [111] + 0.01 0.12 113592/113592 nr_building [141] + 0.02 0.04 62581/62581 guards [229] + 0.04 0.00 21341107/50553492 stealth_modifier [188] + 0.01 0.03 127676/127676 write_travelthru [327] + 0.00 0.02 230/230 allies [419] + 0.02 0.00 78274/130250 r_getmessages [360] + 0.00 0.01 2081/2081 nr_spell [507] + 0.00 0.01 230/230 rp_battles [618] + 0.00 0.01 230/481 count_units [487] + 0.00 0.01 230/967 count_all [357] + 0.00 0.01 230/461 maxheroes [492] + 0.00 0.01 229/229 list_address [635] + 0.00 0.00 226/457 countheroes [572] + 0.00 0.00 293098/2494242 newline [594] + 0.00 0.00 1080/1380398 nr_render [25] + 0.00 0.00 23/45 count_maxmigrants [730] + 0.00 0.00 23/45 count_migrants [731] + 0.00 0.00 54055/2605004 rpeasants [435] + 0.00 0.00 62581/163027 markets_module [748] + 0.00 0.00 5009/24887945 locale_string [27] + 0.00 0.00 1080/967784 msg_message [132] + 0.00 0.00 162/786 average_score_of_age [777] + 0.00 0.00 4967/34611296 strlcpy [45] + 0.00 0.00 230/230 gamedate_season [944] + 0.00 0.00 3437/37931 centre [789] + 0.00 0.00 460/71815034 get_race [12] + 0.00 0.00 5871/36653945 wrptr [178] + 0.00 0.00 230/1295787 factionname [247] + 0.00 0.00 1539/13259934 resourcename [233] + 0.00 0.00 567/4133717 mkname [261] + 0.00 0.00 230/2818494 rc_name_s [260] + 0.00 0.00 460/51974272 a_find [65] + 0.00 0.00 230/462 game_name [1168] + 0.00 0.00 324/1572 write_score [1135] + 0.00 0.00 460/20836359 f_get_alliance [455] + 0.00 0.00 1/3902878 get_monsters [293] + 0.00 0.00 230/1214 rule_faction_limit [1331] + 0.00 0.00 128596/128596 check_errno [1432] + 0.00 0.00 127906/128135 rpline [1433] + 0.00 0.00 9147/9147 merge_messages [1517] + 0.00 0.00 9147/9147 split_messages [1518] + 0.00 0.00 1080/1009028 msg_release [1373] + 0.00 0.00 460/40692 get_gamedate [1466] + 0.00 0.00 337/1582 resource2potion [1569] +----------------------------------------------- + +[5] 16.2 0.00 5.64 tolua_process_orders [5] + 0.00 5.61 1/1 processorders [6] + 0.03 0.00 1/1 reset_game [356] +----------------------------------------------- + 0.00 5.61 1/1 tolua_process_orders [5] +[6] 16.2 0.00 5.61 1 processorders [6] + 0.47 5.00 1/1 process [7] + 0.04 0.05 1/1 ageing [185] + 0.00 0.03 1/1 update_spells [381] + 0.00 0.02 1/6 remove_empty_units [146] + 0.00 0.00 1/1 wormholes_update [906] + 0.00 0.00 1/1 init_processor [1310] + 0.00 0.00 2/4984610 config_get_int [348] + 0.00 0.00 1/64 log_info [1339] +----------------------------------------------- + 0.47 5.00 1/1 processorders [6] +[7] 15.7 0.47 5.00 1 process [7] + 0.00 1.07 178254/178254 produce [29] + 0.04 0.57 1/1 movement [47] + 0.00 0.54 1/1 demographics [50] + 0.00 0.45 1/1 do_battles [63] + 0.02 0.34 178254/178254 economics [78] + 0.04 0.27 1/1 randomevents [91] + 0.29 0.00 31172689/55492327 getkeyword [54] + 0.03 0.21 417808/417808 study_cmd [105] + 0.00 0.12 534762/534762 enter_1 [145] + 0.01 0.10 1/1 magic [157] + 0.00 0.09 799/799 setstealth_cmd [182] + 0.00 0.07 1/1 monthly_healing [215] + 0.00 0.06 595478/595478 monster_kills_peasants [230] + 0.03 0.02 1/1 defaultorders [249] + 0.04 0.01 178254/178254 do_contact [250] + 0.01 0.04 595896/595896 update_long_order [270] + 0.00 0.05 5384/5384 teach_cmd [272] + 0.00 0.05 1/1 quit [276] + 0.00 0.04 1/1 new_units [282] + 0.00 0.04 131765/131765 give_control_cmd [287] + 0.00 0.04 178254/178254 enter_2 [295] + 0.00 0.04 35708/35708 reserve_cmd [324] + 0.00 0.04 35708/35708 reserve_self [325] + 0.02 0.02 595898/595898 follow_unit [331] + 0.01 0.02 178254/178254 maintain_buildings [339] + 0.01 0.02 1/1 regenerate_aura [346] + 0.02 0.01 1/1 restack_units [353] + 0.00 0.03 10600/10600 make_cmd [383] + 0.01 0.01 178254/178254 sinkships [475] + 0.00 0.01 438223/71815034 get_race [12] + 0.01 0.00 178254/178254 do_siege [515] + 0.00 0.00 30554/30554 guard_on_cmd [656] + 0.00 0.00 435900/1629412 LongHunger [536] + 0.00 0.00 30634/30634 guard_off_cmd [711] + 0.00 0.00 236/236 leave_cmd [721] + 0.00 0.00 178254/178254 split_allocations [743] + 0.00 0.00 439954/129167539 u_race [89] + 0.00 0.00 590/590 use_cmd [763] + 0.00 0.00 138/138 renumber_cmd [780] + 0.00 0.00 241/241 reshow_cmd [818] + 0.00 0.00 3117/3117 name_cmd [835] + 0.00 0.00 348/348 mail_cmd [844] + 0.00 0.00 2013/2013 display_cmd [859] + 0.00 0.00 791/791 ally_cmd [877] + 0.00 0.00 1/1 nmr_warnings [878] + 0.00 0.00 80/80 combatspell_cmd [898] + 0.00 0.00 1700/1700 status_cmd [904] + 0.00 0.00 1/1 promotion_cmd [917] + 0.00 0.00 621/621 group_cmd [985] + 0.00 0.00 1/1 renumber_factions [1156] + 0.00 0.00 6/6 send_cmd [1202] + 0.00 0.00 17/12246335 ct_find [114] + 0.00 0.00 2/2 claim_cmd [1242] + 0.00 0.00 17/10190660 get_curse [143] + 0.00 0.00 17/4201030 curse_active [543] + 0.00 0.00 68/49235 log_debug [1245] + 0.00 0.00 5588/59694 r_insectstalled [1446] + 0.00 0.00 17/651711 oldcursename [1381] + 0.00 0.00 5/5 free_group [1750] +----------------------------------------------- + 3.91 0.70 232/232 write_reports [3] +[8] 13.3 3.91 0.70 232 prepare_report [8] + 0.08 0.53 3066474/3398582 travelthru_map [41] + 0.00 0.03 3438/3438 prepare_lighthouse [340] + 0.00 0.02 596221/71815034 get_race [12] + 0.01 0.01 596221/745269 add_seen_nb [386] + 0.02 0.00 464/464 firstregion [485] + 0.00 0.00 596221/129167539 u_race [89] + 0.00 0.00 232/560926 bt_find [237] + 0.00 0.00 1/216069 config_token [794] + 0.00 0.00 3563/26995 inside_building [1486] + 0.00 0.00 464/464 lastregion [1601] + 0.00 0.00 232/2386892 config_changed [1352] +----------------------------------------------- + 0.96 3.25 230/230 write_reports [3] +[9] 12.1 0.96 3.25 230 report_computer [9] + 0.01 3.18 209572/209572 cr_output_region [10] + 0.00 0.02 230/230 report_crtypes [428] + 0.00 0.01 230/230 cr_find_address [602] + 0.00 0.01 230/967 count_all [357] + 0.00 0.01 230/461 maxheroes [492] + 0.00 0.01 723/61961 cr_output_messages [57] + 0.01 0.00 230/457 countheroes [572] + 0.00 0.00 1921/1921 show_allies_cr [661] + 0.00 0.00 230/230 write_translations [689] + 0.00 0.00 2081/2081 cr_reportspell [756] + 0.00 0.00 22/45 count_maxmigrants [730] + 0.00 0.00 22/45 count_migrants [731] + 0.00 0.00 460/11719 locale_name [568] + 0.00 0.00 1896/4434556 translate [75] + 0.00 0.00 162/786 average_score_of_age [777] + 0.00 0.00 2693/24887945 locale_string [27] + 0.00 0.00 1921/2277350 get_prefix [263] + 0.00 0.00 493/1826688 adjust_coordinates [234] + 0.00 0.00 1876/13259934 resourcename [233] + 0.00 0.00 337/32337529 hashstring [37] + 0.00 0.00 464/4133717 mkname [261] + 0.00 0.00 230/2818494 rc_name_s [260] + 0.00 0.00 460/51974272 a_find [65] + 0.00 0.00 230/12560453 rc_changed [256] + 0.00 0.00 230/462 game_name [1168] + 0.00 0.00 324/1572 write_score [1135] + 0.00 0.00 230/45860 print_items [938] + 0.00 0.00 493/18647447 getplane [596] + 0.00 0.00 230/230 show_alliances_cr [1248] + 0.00 0.00 230/20836359 f_get_alliance [455] + 0.00 0.00 1/68430117 rc_find [15] + 0.00 0.00 1/4984610 config_get_int [348] + 0.00 0.00 230/1214 rule_faction_limit [1331] + 0.00 0.00 493/3587241 pnormalize [1350] + 0.00 0.00 337/1582 resource2potion [1569] + 0.00 0.00 230/231 eressea_version [1624] + 0.00 0.00 230/230 reset_translations [1625] +----------------------------------------------- + 0.01 3.18 209572/209572 report_computer [9] +[10] 9.2 0.01 3.18 209572 cr_output_region [10] + 0.01 1.60 923671/923671 cr_output_unit_compat [18] + 0.36 0.16 550775/1437425 cansee [22] + 0.00 0.46 61238/61961 cr_output_messages [57] + 0.06 0.09 209572/209572 cr_borders [135] + 0.00 0.12 179761/179761 cr_output_ship [152] + 0.00 0.06 45630/45630 cr_output_resources [238] + 0.00 0.06 104830/104830 cr_output_building [239] + 0.00 0.04 102149/102149 cr_output_travelthru [298] + 0.01 0.02 427650/4434556 translate [75] + 0.00 0.03 102149/386740 cr_output_curses_compat [144] + 0.00 0.02 249624/4374788 visible_faction [68] + 0.01 0.01 427650/24887945 locale_string [27] + 0.01 0.00 51976/130250 r_getmessages [360] + 0.00 0.01 104830/593636 building_owner [232] + 0.00 0.01 36929/490896 wage [174] + 0.00 0.01 209572/1874928 terrain_name [226] + 0.01 0.00 211668/1826688 adjust_coordinates [234] + 0.00 0.00 77909/1552289 rname [200] + 0.00 0.00 36937/79772 entertainmoney [643] + 0.00 0.00 365/8892 astralregions [329] + 0.00 0.00 36937/669051 production [417] + 0.00 0.00 179761/3358315 ship_owner [438] + 0.00 0.00 218078/13259934 resourcename [233] + 0.00 0.00 119504/2605004 rpeasants [435] + 0.00 0.00 38612/987488 is_astral [479] + 0.00 0.00 37300/12246335 ct_find [114] + 0.00 0.00 37300/10190660 get_curse [143] + 0.00 0.00 36937/163027 markets_module [748] + 0.00 0.00 102149/50553492 stealth_modifier [188] + 0.00 0.00 36937/4666665 rmoney [452] + 0.00 0.00 211668/18647447 getplane [596] + 0.00 0.00 37300/4201030 curse_active [543] + 0.00 0.00 45630/45860 print_items [938] + 0.00 0.00 36937/21345834 skill_enabled [365] + 0.00 0.00 36937/1613387 rule_region_owners [1323] + 0.00 0.00 211668/3587241 pnormalize [1350] + 0.00 0.00 209572/209572 cr_region_header [1414] + 0.00 0.00 45630/1160345 rhorses [1369] + 0.00 0.00 37300/651711 oldcursename [1381] + 0.00 0.00 36929/515192 is_mourning [1392] + 0.00 0.00 311/109377 free_regionlist [1436] +----------------------------------------------- + 0.02 2.96 1344397/1344397 report_plaintext [4] +[11] 8.6 0.02 2.96 1344397 nr_unit [11] + 0.03 1.85 1344359/1348743 bufunit [17] + 0.58 0.02 1344359/2742237 paragraph [26] + 0.43 0.03 1344359/1766225 nr_curses [48] + 0.01 0.00 1344359/51974272 a_find [65] + 0.01 0.00 1344359/2494242 newline [594] + 0.00 0.00 1344397/129167539 u_race [89] + 0.00 0.00 750517/1214628 is_allied [1368] + 0.00 0.00 373997/1380007 get_otherfaction [1362] +----------------------------------------------- + 0.00 0.00 1/71815034 sp_summonshadowlords [1034] + 0.00 0.00 1/71815034 rc_specialdamage [830] + 0.00 0.00 1/71815034 heal_factor [619] + 0.00 0.00 1/71815034 make_zombie [1267] + 0.00 0.00 1/71815034 is_migrant [1047] + 0.00 0.00 1/71815034 magic_lowskill [897] + 0.00 0.00 1/71815034 rc_skillmod [140] + 0.00 0.00 1/71815034 age_illusion [1308] + 0.00 0.00 2/71815034 omniscient [470] + 0.00 0.00 2/71815034 do_fumble [1062] + 0.00 0.00 2/71815034 sp_igjarjuk [923] + 0.00 0.00 2/71815034 skill_mod [264] + 0.00 0.00 3/71815034 guard_flags [690] + 0.00 0.00 3/71815034 cast_cmd [760] + 0.00 0.00 4/71815034 dissolve_units [241] + 0.00 0.00 4/71815034 age_firedragon [1123] + 0.00 0.00 5/71815034 age_dragon [1098] + 0.00 0.00 7/71815034 age_ghoul [1024] + 0.00 0.00 8/71815034 mod_elves_only [1239] + 0.00 0.00 10/71815034 chaos [848] + 0.00 0.00 10/71815034 spawn_dragons [411] + 0.00 0.00 12/71815034 sp_summonundead [896] + 0.00 0.00 15/71815034 steal_cmd [766] + 0.00 0.00 17/71815034 recruit_dracoids [837] + 0.00 0.00 17/71815034 age_zombie [1019] + 0.00 0.00 19/71815034 age_skeleton [1008] + 0.00 0.00 20/71815034 damage_unit [1044] + 0.00 0.00 20/71815034 spawn_seaserpent [831] + 0.00 0.00 31/71815034 random_unit [1174] + 0.00 0.00 38/71815034 sp_viewreality [784] + 0.00 0.00 42/71815034 loot_cmd [873] + 0.00 0.00 44/71815034 plan_dragon [273] + 0.00 0.00 44/71815034 build_road [950] + 0.00 0.00 56/71815034 use_bloodpotion [935] + 0.00 0.00 71/71815034 disband_men [999] + 0.00 0.00 93/71815034 report_summary [614] + 0.00 0.00 138/71815034 LongHunger [536] + 0.00 0.00 188/71815034 is_freezing [1088] + 0.00 0.00 247/71815034 spawn_undead [629] + 0.00 0.00 460/71815034 report_plaintext [4] + 0.00 0.00 489/71815034 make_fighter [424] + 0.00 0.00 639/71815034 spawn_braineaters [505] + 0.00 0.00 659/71815034 can_give_men [940] + 0.00 0.00 960/71815034 tax_cmd [697] + 0.00 0.00 1098/71815034 statistics [70] + 0.00 0.00 1689/71815034 recruit [650] + 0.00 0.00 1725/71815034 max_magicians [915] + 0.00 0.00 3743/71815034 battle_flee [352] + 0.00 0.00 5915/71815034 buy [707] + 0.00 0.00 7279/71815034 remove_empty_units_in_region [134] + 0.00 0.00 7560/71815034 drown [394] + 0.00 0.00 7957/71815034 magic_resistance [727] + 0.00 0.00 12787/71815034 canwalk [633] + 0.00 0.00 15763/71815034 sell [498] + 0.00 0.00 18304/71815034 average_score_of_age [777] + 0.00 0.00 23630/71815034 immigration [294] + 0.00 0.00 23993/71815034 guard_on_cmd [656] + 0.00 0.00 27694/71815034 dragon_affinity_value [516] + 0.00 0.00 84047/71815034 monster_move [129] + 0.00 0.00 96637/71815034 walkingcapacity [403] + 0.00 0.00 102606/71815034 give_cmd [102] + 0.00 0.00 105958/71815034 travel_route [147] + 0.00 0.00 116914/71815034 fleechance [408] + 0.00 0.00 120592/71815034 CavalryBonus [491] + 0.00 0.00 125515/71815034 default_wage [173] + 0.00 0.00 154155/71815034 terminate [242] + 0.00 0.01 221802/71815034 unitorders [46] + 0.00 0.01 236296/71815034 weapon_skill [221] + 0.00 0.01 335497/71815034 plan_monsters [52] + 0.00 0.01 417740/71815034 study_cmd [105] + 0.00 0.01 438223/71815034 process [7] + 0.00 0.01 463903/71815034 skilldiff [166] + 0.00 0.02 595472/71815034 age_unit [336] + 0.00 0.02 595476/71815034 demon_skillchanges [246] + 0.00 0.02 596221/71815034 prepare_report [8] + 0.00 0.02 783946/71815034 produce [29] + 0.00 0.03 1044674/71815034 get_food [88] + 0.01 0.04 1190864/71815034 magic [157] + 0.01 0.07 2383980/71815034 score [23] + 0.27 1.91 61440990/71815034 old_race [14] +[12] 7.3 0.31 2.23 71815034 get_race [12] + 0.07 2.16 67832617/68430117 rc_find [15] +----------------------------------------------- + +[13] 6.9 2.41 0.00 cb_find_top_i [13] +----------------------------------------------- + 0.00 0.00 133/2480226 income [885] + 0.00 0.00 249/2480226 plan_dragon [273] + 0.01 0.08 96316/2480226 movement_speed [155] + 0.09 1.04 1191719/2480226 score [23] + 0.09 1.04 1191809/2480226 make_summary [21] +[14] 6.8 0.19 2.17 2480226 old_race [14] + 0.27 1.91 61440990/71815034 get_race [12] +----------------------------------------------- + 0.00 0.00 1/68430117 report_computer [9] + 0.00 0.00 1/68430117 use_bloodpotion [935] + 0.00 0.00 2/68430117 parse_resources [1086] + 0.00 0.00 3/68430117 xml_readweapon [1266] + 0.00 0.00 6/68430117 tolua_unit_create [916] + 0.00 0.00 233/68430117 readfaction [767] + 0.00 0.02 597254/68430117 read_unit [74] + 0.07 2.16 67832617/68430117 get_race [12] +[15] 6.5 0.07 2.18 68430117 rc_find [15] + 2.18 0.00 68430117/68430271 rc_find_i [16] +----------------------------------------------- + 0.00 0.00 4/68430271 read_race_reference [1278] + 0.00 0.00 150/68430271 rc_get_or_create [1105] + 2.18 0.00 68430117/68430271 rc_find [15] +[16] 6.3 2.18 0.00 68430271 rc_find_i [16] +----------------------------------------------- + 0.00 0.01 4384/1348743 spunit [632] + 0.03 1.85 1344359/1348743 nr_unit [11] +[17] 5.4 0.03 1.85 1348743 bufunit [17] + 0.04 0.49 1953682/1953682 spskill [53] + 0.04 0.20 9318596/17451017 strlcpy_w [67] + 0.01 0.14 1350873/1351796 racename [133] + 0.00 0.13 1348743/4374788 visible_faction [68] + 0.03 0.10 704700/1405457 report_items [103] + 0.01 0.10 1187497/1205451 alliedfaction [162] + 0.00 0.08 494960/494960 buforder [201] + 0.01 0.07 1348743/2383101 unitname [142] + 0.00 0.06 598226/773191 hp_status [206] + 0.00 0.05 1145124/1295787 factionname [247] + 0.02 0.02 834439/24887945 locale_string [27] + 0.00 0.04 598226/598234 report_status [318] + 0.00 0.03 373172/9953180 alliedunit [31] + 0.01 0.02 1783118/12353561 report_item [106] + 0.02 0.00 1348743/2868601 u_irace [257] + 0.00 0.02 595139/597806 unit_get_spellbook [427] + 0.00 0.02 1348743/2272376 u_description [347] + 0.01 0.01 1348743/2275967 get_racename [368] + 0.02 0.00 6078454/36653945 wrptr [178] + 0.00 0.02 1348743/6610983 is_guard [211] + 0.01 0.00 1401002/51974272 a_find [65] + 0.00 0.01 1348743/1523708 uprivate [497] + 0.01 0.00 1045507/55492327 getkeyword [54] + 0.00 0.00 1045507/2985733 is_repeated [552] + 0.00 0.00 761036/4503145 omniscient [470] + 0.00 0.00 1348743/4835422 usiege [593] + 0.00 0.00 56643/56643 groupid [698] + 0.00 0.00 35516/86400 spell_name [646] + 0.00 0.00 597269/129167539 u_race [89] + 0.00 0.00 1187497/18647447 getplane [596] + 0.00 0.00 32943/34611296 strlcpy [45] + 0.00 0.00 1334/5358 max_spellpoints [755] + 0.00 0.00 4786/4875 get_combatspell [874] + 0.00 0.00 1265/1339 get_combatspelllevel [880] + 0.00 0.00 1334/12320804 effskill [100] + 0.00 0.00 1334/4915 get_spellpoints [872] + 0.00 0.00 401604/1380007 get_otherfaction [1362] +----------------------------------------------- + 0.01 1.60 923671/923671 cr_output_region [10] +[18] 4.6 0.01 1.60 923671 cr_output_unit_compat [18] + 0.12 1.48 923671/923671 cr_output_unit [19] +----------------------------------------------- + 0.12 1.48 923671/923671 cr_output_unit_compat [18] +[19] 4.6 0.12 1.48 923671 cr_output_unit [19] + 0.28 0.02 923633/1310373 cr_output_curses [69] + 0.11 0.17 3373083/4434556 translate [75] + 0.07 0.07 2768576/24887945 locale_string [27] + 0.02 0.10 700757/1405457 report_items [103] + 0.01 0.09 610341/610341 stream_order [167] + 0.10 0.00 9429681/10103290 stream_printf [158] + 0.00 0.09 923633/4374788 visible_faction [68] + 0.02 0.03 604957/12320804 effskill [100] + 0.00 0.04 603246/2934859 skillname [122] + 0.00 0.03 371101/9953180 alliedunit [31] + 0.01 0.02 1727391/12353561 report_item [106] + 0.00 0.02 923633/2275429 raceprefix [222] + 0.00 0.02 174965/773191 hp_status [206] + 0.01 0.01 925760/2818494 rc_name_s [260] + 0.02 0.00 923633/2868601 u_irace [257] + 0.00 0.01 923633/2272376 u_description [347] + 0.01 0.01 174965/279395 weight [459] + 0.00 0.01 923633/2275967 get_racename [368] + 0.00 0.01 923633/6610983 is_guard [211] + 0.00 0.01 923633/3351853 unit_getname [332] + 0.00 0.01 2246004/4503145 omniscient [470] + 0.00 0.01 716432/4133717 mkname [261] + 0.01 0.00 973220/51974272 a_find [65] + 0.01 0.00 695201/55492327 getkeyword [54] + 0.00 0.01 174965/1441945 is_mage [262] + 0.00 0.01 174965/2426021 get_mage [198] + 0.00 0.01 1711/1711 cr_output_spells [639] + 0.00 0.00 1100763/129167539 u_race [89] + 0.00 0.00 174965/7120688 get_money [187] + 0.00 0.00 923633/4835422 usiege [593] + 0.00 0.00 174965/174968 get_familiar_mage [722] + 0.00 0.00 174965/285923 ualias [692] + 0.00 0.00 174965/1523708 uprivate [497] + 0.00 0.00 705241/2155959 is_persistent [687] + 0.00 0.00 1711/5358 max_spellpoints [755] + 0.00 0.00 68497/2985733 is_repeated [552] + 0.00 0.00 1261/86400 spell_name [646] + 0.00 0.00 1711/4915 get_spellpoints [872] + 0.00 0.00 1637/8034 u_geteffstealth [919] + 0.00 0.00 2127/21345834 skill_enabled [365] + 0.00 0.00 603246/603246 level_days [1388] + 0.00 0.00 412396/1380007 get_otherfaction [1362] +----------------------------------------------- + 0.96 0.53 232/232 write_reports [3] +[20] 4.3 0.96 0.53 232 get_addresses [20] + 0.27 0.12 418124/1437425 cansee [22] + 0.00 0.08 854692/4374788 visible_faction [68] + 0.05 0.00 29110236/50553492 stealth_modifier [188] + 0.00 0.00 15708/15708 add_travelthru_addresses [673] + 0.00 0.00 464/20836359 f_get_alliance [455] + 0.00 0.00 453546/1214628 is_allied [1368] + 0.00 0.00 350020/353788 add_seen_faction_i [1401] + 0.00 0.00 232/232 transfer_seen [1622] +----------------------------------------------- + 0.04 0.69 1/2 tolua_init_summary [40] + 0.04 0.69 1/2 tolua_write_summary [38] +[21] 4.2 0.08 1.38 2 make_summary [21] + 0.09 1.04 1191809/2480226 old_race [14] + 0.03 0.05 1213526/12320804 effskill [100] + 0.01 0.04 351667/771861 armedmen [151] + 0.05 0.00 713016/1248014 listlen [190] + 0.00 0.02 703334/5395063 i_get [130] + 0.02 0.00 1543013/7120688 get_money [187] + 0.00 0.01 839681/3902878 get_monsters [293] + 0.00 0.00 454160/2605004 rpeasants [435] + 0.00 0.00 1191346/129167539 u_race [89] + 0.00 0.00 97652/4666665 rmoney [452] + 0.00 0.00 2/56052475 get_resourcetype [194] + 0.00 0.00 356508/1160345 rhorses [1369] + 0.00 0.00 201709/1511812 newterrain [1359] +----------------------------------------------- + 0.00 0.00 4/1437425 init_transportation [384] + 0.00 0.00 4/1437425 sp_generous [1040] + 0.00 0.00 4/1437425 seefaction [1117] + 0.00 0.00 8/1437425 caught_target [1003] + 0.00 0.00 12/1437425 sp_enterastral [1045] + 0.00 0.00 14/1437425 verify_unit [1028] + 0.00 0.00 30/1437425 sp_song_of_peace [939] + 0.00 0.00 35/1437425 mailunit [921] + 0.00 0.00 38/1437425 mail_cmd [844] + 0.00 0.00 39/1437425 deliverMail [966] + 0.00 0.00 70/1437425 can_give_to [600] + 0.00 0.00 81/1437425 can_guard [908] + 0.00 0.00 84/1437425 steal_cmd [766] + 0.00 0.00 109/1437425 set_factionstealth [183] + 0.00 0.00 197/1437425 report_action [860] + 0.00 0.00 397/1437425 is_guardian_u [626] + 0.00 0.00 752/1437425 monster_attack [764] + 0.00 0.00 816/1437425 follow_unit [331] + 0.00 0.00 1443/1437425 start_battle [297] + 0.01 0.00 11080/1437425 monster_attacks [248] + 0.27 0.12 418124/1437425 get_addresses [20] + 0.29 0.13 453309/1437425 report_plaintext [4] + 0.36 0.16 550775/1437425 cr_output_region [10] +[22] 3.9 0.93 0.42 1437425 cansee [22] + 0.07 0.10 2363341/12320804 effskill [100] + 0.00 0.12 1513189/1753922 invisible [139] + 0.02 0.07 960413/1188532 eff_stealth [163] + 0.00 0.01 1211531/6610983 is_guard [211] + 0.00 0.01 1335380/1474687 leftship [500] + 0.00 0.01 1335533/4503145 omniscient [470] + 0.00 0.00 2363341/21345834 skill_enabled [365] + 0.00 0.00 1335533/129167539 u_race [89] + 0.00 0.00 1156253/4835422 usiege [593] + 0.00 0.00 48/51974272 a_find [65] +----------------------------------------------- + 0.06 1.25 2/2 tolua_update_scores [24] +[23] 3.8 0.06 1.25 2 score [23] + 0.09 1.04 1191719/2480226 old_race [14] + 0.01 0.07 2383980/71815034 get_race [12] + 0.01 0.00 1191719/7120688 get_money [187] + 0.01 0.00 3903981/129167539 u_race [89] + 0.00 0.01 92368/593636 building_owner [232] + 0.00 0.00 462/786 average_score_of_age [777] + 0.00 0.00 38156/3358315 ship_owner [438] + 0.00 0.00 462/5100840 itoa36 [116] + 0.00 0.00 924/1572 write_score [1135] + 0.00 0.00 2/573 join_path [1016] + 0.00 0.00 356508/1613387 rule_region_owners [1323] + 0.00 0.00 2/9 basepath [1730] +----------------------------------------------- + +[24] 3.8 0.00 1.31 tolua_update_scores [24] + 0.06 1.25 2/2 score [23] +----------------------------------------------- + 0.00 0.00 1/1380398 sp_summon_familiar [1025] + 0.00 0.00 676/1380398 rp_battles [618] + 0.00 0.00 1080/1380398 report_plaintext [4] + 0.00 0.01 12729/1380398 cr_output_curses [69] + 0.00 0.01 15186/1380398 nr_curses_i [401] + 0.00 0.04 41255/1380398 log_orders [251] + 0.00 0.15 163573/1380398 describe [35] + 0.00 0.18 192618/1380398 statistics [70] + 0.00 0.23 247009/1380398 prices [85] + 0.00 0.28 301257/1380398 render_messages [58] + 0.00 0.38 405014/1380398 rp_messages [36] +[25] 3.7 0.00 1.28 1380398 nr_render [25] + 0.11 1.07 1380398/1380398 translate [28] + 0.04 0.03 1380398/5168717 nrt_find [98] + 0.03 0.00 1380398/34611296 strlcpy [45] +----------------------------------------------- + 0.00 0.00 1888/2742237 allies [419] + 0.00 0.00 2081/2742237 nr_spell_syntax [732] + 0.00 0.00 10794/2742237 list_address [635] + 0.01 0.00 15186/2742237 nr_curses_i [401] + 0.01 0.00 19851/2742237 nr_spell [507] + 0.01 0.00 27498/2742237 guards [229] + 0.02 0.00 35287/2742237 prices [85] + 0.02 0.00 55063/2742237 cb_write_travelthru [169] + 0.05 0.00 113592/2742237 nr_building [141] + 0.07 0.00 169255/2742237 describe [35] + 0.08 0.00 180598/2742237 nr_ship [111] + 0.16 0.01 361771/2742237 statistics [70] + 0.18 0.01 405014/2742237 rp_messages [36] + 0.58 0.02 1344359/2742237 nr_unit [11] +[26] 3.5 1.19 0.04 2742237 paragraph [26] + 0.04 0.00 7811581/7851812 write_spaces [303] +----------------------------------------------- + 0.00 0.00 1/24887945 sp_summon_familiar [1025] + 0.00 0.00 2/24887945 register_special_direction [1259] + 0.00 0.00 2/24887945 eval_unit [223] + 0.00 0.00 2/24887945 eval_unit_dative [1076] + 0.00 0.00 2/24887945 b_namequestportal [1279] + 0.00 0.00 2/24887945 create_ship [1014] + 0.00 0.00 2/24887945 new_ship [1229] + 0.00 0.00 8/24887945 display_item [1054] + 0.00 0.00 9/24887945 gamedate2 [1222] + 0.00 0.00 10/24887945 spawn_dragons [411] + 0.00 0.00 11/24887945 new_building [1059] + 0.00 0.00 14/24887945 findshiptype [869] + 0.00 0.00 22/24887945 init_options_translation [1157] + 0.00 0.00 26/24887945 init_directions [1143] + 0.00 0.00 36/24887945 init_terrains_translation [1129] + 0.00 0.00 44/24887945 curse_name [1140] + 0.00 0.00 54/24887945 findbuildingtype [866] + 0.00 0.00 78/24887945 eval_weight [1102] + 0.00 0.00 92/24887945 spawn_undead [629] + 0.00 0.00 93/24887945 report_summary [614] + 0.00 0.00 94/24887945 give_peasants [1060] + 0.00 0.00 99/24887945 piracy_cmd [660] + 0.00 0.00 133/24887945 travel [81] + 0.00 0.00 140/24887945 rp_battles [618] + 0.00 0.00 210/24887945 print_header [838] + 0.00 0.00 229/24887945 list_address [635] + 0.00 0.00 251/24887945 out_faction [615] + 0.00 0.00 264/24887945 init_translations [1033] + 0.00 0.00 282/24887945 init_locale [948] + 0.00 0.00 352/24887945 cr_resources [960] + 0.00 0.00 356/24887945 cr_race [949] + 0.00 0.00 446/24887945 print_items [938] + 0.00 0.00 490/24887945 build_building [696] + 0.00 0.00 495/24887945 display_race [963] + 0.00 0.00 527/24887945 make_movement_order [522] + 0.00 0.00 628/24887945 add_itemname_cb [980] + 0.00 0.00 648/24887945 add_resourcename_cb [977] + 0.00 0.00 666/24887945 generic_name [962] + 0.00 0.00 1150/24887945 gamedate_season [944] + 0.00 0.00 1188/24887945 follow_ship [749] + 0.00 0.00 1196/24887945 eval_localize [922] + 0.00 0.00 1490/24887945 eval_resources [907] + 0.00 0.00 1520/24887945 eval_race [882] + 0.00 0.00 1888/24887945 allies [419] + 0.00 0.00 2008/24887945 default_name [851] + 0.00 0.00 2073/24887945 cr_output_curses [69] + 0.00 0.00 2693/24887945 report_computer [9] + 0.00 0.00 3086/24887945 make_cmd [383] + 0.00 0.00 3203/24887945 cr_reportspell [756] + 0.00 0.00 4162/24887945 spell_info [841] + 0.00 0.00 4257/24887945 eval_trail [634] + 0.00 0.00 4762/24887945 nr_spell_syntax [732] + 0.00 0.00 5009/24887945 report_plaintext [4] + 0.00 0.00 5043/24887945 eval_ship [740] + 0.00 0.00 7336/24887945 battle_report [503] + 0.00 0.00 8758/24887945 print_stats [525] + 0.00 0.00 30518/24887945 nr_spell [507] + 0.00 0.00 31368/24887945 rp_messages [36] + 0.00 0.00 35368/24887945 cb_write_travelthru [169] + 0.00 0.00 54735/24887945 write_travelthru [327] + 0.00 0.00 55807/24887945 report_template [87] + 0.00 0.00 60360/24887945 guards [229] + 0.00 0.00 65837/24887945 show_allies [429] + 0.00 0.00 83723/24887945 monster_move [129] + 0.00 0.00 86400/24887945 spell_name [646] + 0.00 0.00 93450/24887945 b_nameroad [642] + 0.00 0.00 97017/24887945 cr_borders [135] + 0.00 0.00 104830/24887945 cr_output_building [239] + 0.00 0.00 110167/24887945 cr_resource [488] + 0.00 0.00 127788/24887945 eval_direction [608] + 0.00 0.00 133973/24887945 cycle_route [375] + 0.00 0.00 169153/24887945 statistics [70] + 0.00 0.00 174677/24887945 cr_output_resource [378] + 0.00 0.00 179761/24887945 cr_output_ship [152] + 0.01 0.01 227343/24887945 nr_building [141] + 0.01 0.01 247009/24887945 prices [85] + 0.01 0.01 373674/24887945 nr_ship [111] + 0.01 0.01 427650/24887945 cr_output_region [10] + 0.01 0.01 470529/24887945 eval_resource [328] + 0.01 0.01 537193/24887945 unit_getname [332] + 0.01 0.01 592664/24887945 spskill [53] + 0.01 0.01 598292/24887945 report_status [318] + 0.02 0.02 751188/24887945 rname [200] + 0.02 0.02 785221/24887945 trailinto [207] + 0.02 0.02 834439/24887945 bufunit [17] + 0.04 0.03 1460143/24887945 racename [133] + 0.04 0.04 1783118/24887945 report_item [106] + 0.05 0.04 1838265/24887945 describe [35] + 0.05 0.05 2006524/24887945 get_command [108] + 0.07 0.07 2768576/24887945 cr_output_unit [19] + 0.07 0.07 2934859/24887945 skillname [122] + 0.11 0.11 4488684/24887945 crtag [110] +[27] 3.4 0.61 0.58 24887945 locale_string [27] + 0.58 0.00 24887945/32337529 hashstring [37] +----------------------------------------------- + 0.11 1.07 1380398/1380398 nr_render [25] +[28] 3.4 0.11 1.07 1380398 translate [28] + 0.48 0.57 1379793/1380398 parse [333] + 0.01 0.00 1380398/13102790 opstack_pop [176] + 0.01 0.00 3656767/13399069 balloc [363] + 0.00 0.01 3656767/3656767 add_variable [607] + 0.00 0.00 605/1380398 parse_string [86] + 0.00 0.00 1380398/1380398 brelease [1360] + 0.00 0.00 1380398/1380398 free_variables [1361] +----------------------------------------------- + 0.00 1.07 178254/178254 process [7] +[29] 3.1 0.00 1.07 178254 produce [29] + 0.01 0.59 5494/5494 expandbuying [49] + 0.00 0.30 4629/4629 expandselling [93] + 0.00 0.05 178254/178254 expandwork [277] + 0.00 0.05 663/663 expandtax [278] + 0.00 0.02 783946/71815034 get_race [12] + 0.00 0.01 15797/15797 sell [498] + 0.00 0.01 11087/11087 do_work [612] + 0.00 0.01 178254/438629 maxworkingpeasants [473] + 0.00 0.01 11159/11159 expandentertainment [637] + 0.01 0.00 619614/55492327 getkeyword [54] + 0.00 0.00 16596/16596 entertain_cmd [665] + 0.00 0.00 361137/2605004 rpeasants [435] + 0.00 0.00 960/960 tax_cmd [697] + 0.00 0.00 793492/129167539 u_race [89] + 0.00 0.00 5916/5916 buy [707] + 0.00 0.00 356508/4666665 rmoney [452] + 0.00 0.00 189341/189341 rule_autowork [738] + 0.00 0.00 177/177 breed_cmd [741] + 0.00 0.00 111/111 steal_cmd [766] + 0.00 0.00 6133/472418 produceexp [322] + 0.00 0.00 41/41 expandstealing [807] + 0.00 0.00 36/36 expandloot [816] + 0.00 0.00 32679/32679 rule_auto_taxation [855] + 0.00 0.00 42/42 loot_cmd [873] + 0.00 0.00 349/349 research_cmd [886] + 0.00 0.00 6245/51974272 a_find [65] + 0.00 0.00 16/16 spy_cmd [990] + 0.00 0.00 17/12246335 ct_find [114] + 0.00 0.00 17/10190660 get_curse [143] + 0.00 0.00 1/560926 bt_find [237] + 0.00 0.00 17/4201030 curse_active [543] + 0.00 0.00 178254/204314 bt_changed [1415] + 0.00 0.00 4629/1511812 newterrain [1359] + 0.00 0.00 4139/59694 r_insectstalled [1446] + 0.00 0.00 344/75797 buildingtype_exists [1443] + 0.00 0.00 17/651711 oldcursename [1381] +----------------------------------------------- +[30] 3.0 0.48 0.57 1380398+20060311 [30] + 0.24 0.44 9544331 parse_symbol [42] + 0.21 0.12 2725583 parse_string [86] + 0.03 0.01 9170795 parse [333] +----------------------------------------------- + 0.00 0.00 2/9953180 find_piracy_target [967] + 0.00 0.00 79/9953180 can_guard [908] + 0.00 0.00 112/9953180 give_unit [952] + 0.00 0.00 112/9953180 mayboard [1046] + 0.00 0.00 131/9953180 caught_target [1003] + 0.00 0.00 215/9953180 mayenter [936] + 0.00 0.00 315/9953180 piracy_cmd [660] + 0.00 0.00 814/9953180 make_side [876] + 0.00 0.00 1104/9953180 get_friends [895] + 0.00 0.00 1198/9953180 check_ship_allowed [657] + 0.00 0.00 1432/9953180 start_battle [297] + 0.00 0.00 1613/9953180 sail [181] + 0.00 0.00 2033/9953180 join_allies [693] + 0.00 0.00 6140/9953180 bewegung_blockiert_von [631] + 0.00 0.00 6326/9953180 study_cmd [105] + 0.00 0.00 9353/9953180 teach_cmd [272] + 0.00 0.01 63046/9953180 is_guardian_u [626] + 0.00 0.01 102606/9953180 give_cmd [102] + 0.00 0.01 102705/9953180 can_give_to [600] + 0.00 0.01 111338/9953180 get_food [88] + 0.00 0.03 371101/9953180 cr_output_unit [19] + 0.00 0.03 373172/9953180 bufunit [17] + 0.01 0.11 1273750/9953180 get_pooled [104] + 0.03 0.26 3149695/9953180 use_pooled [39] + 0.05 0.36 4374788/9953180 visible_faction [68] +[31] 2.7 0.11 0.83 9953180 alliedunit [31] + 0.56 0.17 9004040/10375491 alliedgroup [34] + 0.05 0.00 5640296/51974272 a_find [65] + 0.03 0.01 9004040/20834979 autoalliance [179] + 0.00 0.00 9004040/18647447 getplane [596] +----------------------------------------------- +[32] 2.5 0.34 0.54 12320804+19159045 [32] + 0.04 0.46 7179154 get_modifier [55] + 0.25 0.01 10030400 effskill [100] + 0.01 0.06 7298034 skillmod [214] + 0.04 0.00 6907106 eff_skill [334] + 0.01 0.00 65155 sm_familiar [520] +----------------------------------------------- + 0.88 0.00 232/232 write_reports [3] +[33] 2.5 0.88 0.00 232 finish_reports [33] +----------------------------------------------- + 0.00 0.00 3/10375491 join_allies [693] + 0.00 0.00 27/10375491 allysfm [1122] + 0.00 0.00 55310/10375491 show_allies_cr [661] + 0.01 0.00 110660/10375491 show_allies [429] + 0.07 0.02 1205451/10375491 alliedfaction [162] + 0.56 0.17 9004040/10375491 alliedunit [31] +[34] 2.4 0.64 0.20 10375491 alliedgroup [34] + 0.03 0.08 10375461/10375461 AllianceRestricted [164] + 0.05 0.01 11830939/20834979 autoalliance [179] + 0.02 0.00 10375461/10375461 ally_mode [456] + 0.02 0.00 20750952/24935046 faction_alive [451] +----------------------------------------------- + 0.05 0.77 127676/127676 report_plaintext [4] +[35] 2.4 0.05 0.77 127676 describe [35] + 0.00 0.15 163573/1380398 nr_render [25] + 0.01 0.08 803645/950595 f_regionid [161] + 0.05 0.04 1838265/24887945 locale_string [27] + 0.07 0.00 169255/2742237 paragraph [26] + 0.00 0.06 765959/2225796 get_borders [120] + 0.00 0.06 638271/785221 trailinto [207] + 0.06 0.00 3045620/34611296 strlcpy [45] + 0.03 0.01 62581/108211 report_resources [210] + 0.04 0.00 127676/1766225 nr_curses [48] + 0.00 0.03 8525/8892 astralregions [329] + 0.01 0.02 163573/967784 msg_message [132] + 0.01 0.00 4194164/36653945 wrptr [178] + 0.00 0.00 127676/1874928 terrain_name [226] + 0.00 0.00 127676/669051 production [417] + 0.00 0.00 93452/190469 border_name [641] + 0.00 0.00 255350/51974272 a_find [65] + 0.00 0.00 179832/2605004 rpeasants [435] + 0.00 0.00 62581/987488 is_astral [479] + 0.00 0.00 255352/10053919 rtrees [302] + 0.00 0.00 222964/4666665 rmoney [452] + 0.00 0.00 164218/2494242 newline [594] + 0.00 0.00 96621/13259934 resourcename [233] + 0.00 0.00 96621/56052475 get_resourcetype [194] + 0.00 0.00 8515/12246335 ct_find [114] + 0.00 0.00 8515/10190660 get_curse [143] + 0.00 0.00 8515/4201030 curse_active [543] + 0.00 0.00 291/369586 r_connect [474] + 0.00 0.00 127676/1613387 rule_region_owners [1323] + 0.00 0.00 225630/1160345 rhorses [1369] + 0.00 0.00 163573/1009028 msg_release [1373] + 0.00 0.00 93452/93452 see_border [1440] + 0.00 0.00 93450/190467 b_transparent [1420] + 0.00 0.00 52156/515192 is_mourning [1392] + 0.00 0.00 8515/651711 oldcursename [1381] + 0.00 0.00 5680/109377 free_regionlist [1436] + 0.00 0.00 2/2 b_opaque [1772] +----------------------------------------------- + 0.00 0.01 676/79180 rp_battles [618] + 0.03 0.77 78504/79180 report_plaintext [4] +[36] 2.3 0.03 0.78 79180 rp_messages [36] + 0.00 0.38 405014/1380398 nr_render [25] + 0.02 0.20 3739100/3780355 nr_section [113] + 0.18 0.01 405014/2742237 paragraph [26] + 0.00 0.00 31368/24887945 locale_string [27] + 0.00 0.00 31368/37931 centre [789] + 0.00 0.00 62736/2494242 newline [594] +----------------------------------------------- + 0.00 0.00 6/32337529 get_or_create_locale [1275] + 0.00 0.00 337/32337529 report_computer [9] + 0.00 0.00 957/32337529 crt_register [1006] + 0.00 0.00 957/32337529 mt_register [1007] + 0.00 0.00 1909/32337529 nrt_register [883] + 0.00 0.00 2081/32337529 cr_reportspell [756] + 0.00 0.00 3496/32337529 locale_setstring [918] + 0.00 0.00 5588/32337529 get_locale [884] + 0.00 0.00 174677/32337529 cr_output_resource [378] + 0.01 0.00 301257/32337529 crt_find [321] + 0.02 0.00 779486/32337529 locale_getstring [266] + 0.02 0.00 1010116/32337529 mt_find [227] + 0.12 0.00 5168717/32337529 nrt_find [98] + 0.58 0.00 24887945/32337529 locale_string [27] +[37] 2.2 0.76 0.00 32337529 hashstring [37] +----------------------------------------------- + +[38] 2.1 0.00 0.74 tolua_write_summary [38] + 0.04 0.69 1/2 make_summary [21] + 0.00 0.01 2/2 report_summary [614] + 0.00 0.00 2/2 free_summary [1773] +----------------------------------------------- + 4060217 use_pooled [39] + 0.00 0.00 1/860263 breedtrees [1148] + 0.00 0.00 1/860263 promotion_cmd [917] + 0.00 0.00 1/860263 use_item [765] + 0.00 0.00 3/860263 use_healingpotion [1119] + 0.00 0.00 5/860263 give_horses [1108] + 0.00 0.00 21/860263 build_road [950] + 0.00 0.00 22/860263 give_money [484] + 0.00 0.00 38/860263 expandstealing [807] + 0.00 0.00 51/860263 potion_water_of_life [945] + 0.00 0.00 56/860263 use_bloodpotion [935] + 0.00 0.00 345/860263 end_potion [814] + 0.00 0.00 470/860263 pay_spell [805] + 0.00 0.00 1484/860263 build [691] + 0.00 0.00 1670/860263 do_recruiting [351] + 0.00 0.00 6386/860263 maintain [478] + 0.00 0.00 7475/860263 study_cmd [105] + 0.01 0.05 71328/860263 reserve_i [213] + 0.02 0.06 93824/860263 give_item [126] + 0.06 0.19 282676/860263 expandselling [93] + 0.08 0.26 394406/860263 expandbuying [49] +[39] 2.1 0.17 0.57 860263+4060217 use_pooled [39] + 0.03 0.26 3149695/9953180 alliedunit [31] + 0.02 0.14 4920480/8302761 get_resource [99] + 0.00 0.05 862087/931076 change_resource [240] + 0.03 0.01 4154050/4851739 get_reservation [281] + 0.01 0.00 4607888/7417541 urace [436] + 0.01 0.00 4920480/129167539 u_race [89] + 0.00 0.00 1/93120 change_reservation [1441] + 4060217 use_pooled [39] +----------------------------------------------- + +[40] 2.1 0.00 0.73 tolua_init_summary [40] + 0.04 0.69 1/2 make_summary [21] +----------------------------------------------- + 0.00 0.00 15708/3398582 add_travelthru_addresses [673] + 0.00 0.01 54735/3398582 write_travelthru [327] + 0.00 0.01 57367/3398582 count_travelthru [518] + 0.01 0.04 204298/3398582 cr_output_travelthru [298] + 0.08 0.53 3066474/3398582 prepare_report [8] +[41] 2.0 0.09 0.59 3398582 travelthru_map [41] + 0.29 0.00 18856320/18856320 cb_add_seen [94] + 0.00 0.10 1048274/1048274 cb_write_travelthru [169] + 0.02 0.06 967902/967902 cb_cr_travelthru_ship [204] + 0.02 0.04 1054200/1054200 count_cb [231] + 0.03 0.00 3398582/51974272 a_find [65] + 0.01 0.01 967902/967902 cb_cr_travelthru_unit [466] + 0.00 0.01 755575/755575 cb_add_address [598] +----------------------------------------------- + 3931390 parse_string [86] + 5612941 parse [333] +[42] 1.9 0.24 0.44 9544331 parse_symbol [42] + 0.01 0.06 799427/799427 eval_unit [223] + 0.00 0.05 515550/515550 eval_region [245] + 0.00 0.05 883617/883617 eval_int [268] + 0.04 0.00 4568249/4568249 find_variable [304] + 0.00 0.04 470529/470529 eval_resource [328] + 0.00 0.03 127674/127674 eval_trailto [369] + 0.03 0.00 4568249/13102790 opstack_push [202] + 0.00 0.02 843545/843545 eval_if [393] + 0.01 0.01 655564/655564 eval_eq [398] + 0.00 0.02 123513/123513 eval_order [472] + 0.01 0.00 67213/67213 eval_building [494] + 0.01 0.00 116804/116804 eval_isnull [517] + 0.01 0.00 163/163 eval_lt [539] + 0.01 0.00 4976082/4976082 find_function [549] + 0.00 0.01 127788/127788 eval_direction [608] + 0.00 0.01 108560/108560 eval_trail [634] + 0.00 0.00 40099/40099 eval_skill [671] + 0.00 0.00 46224/46224 eval_faction [685] + 0.00 0.00 25857/25857 eval_int36 [729] + 0.00 0.00 19545/19545 eval_ship [740] + 0.00 0.00 1520/1520 eval_race [882] + 0.00 0.00 834/834 eval_resources [907] + 0.00 0.00 1196/1196 eval_localize [922] + 0.00 0.00 604/604 eval_spell [961] + 0.00 0.00 124/124 eval_unit_dative [1076] + 0.00 0.00 78/78 eval_weight [1102] + 0.00 0.00 54/54 eval_add [1182] + 7791002 parse [333] +----------------------------------------------- + 0.00 0.65 1/1 tolua_read_orders [44] +[43] 1.9 0.00 0.65 1 readorders [43] + 0.02 0.59 221802/221802 unitorders [46] + 0.00 0.02 61643/1158076 getbuf [71] + 0.00 0.01 283446/2281756 gettoken [195] + 0.00 0.00 279151/1787006 findparam [458] + 0.00 0.00 283446/1311302 init_tokens_str [544] + 0.00 0.00 287/287 factionorders [983] + 0.00 0.00 2/64 log_info [1339] +----------------------------------------------- + +[44] 1.9 0.00 0.65 tolua_read_orders [44] + 0.00 0.65 1/1 readorders [43] +----------------------------------------------- + 0.00 0.00 12/34611296 register_spelldata [1250] + 0.00 0.00 15/34611296 check_dupe [1244] + 0.00 0.00 15/34611296 sp_summon_familiar [1025] + 0.00 0.00 22/34611296 dragon_name [1095] + 0.00 0.00 34/34611296 dracoid_name [1126] + 0.00 0.00 53/34611296 lua_getresource [1191] + 0.00 0.00 76/34611296 make_name [970] + 0.00 0.00 137/34611296 parse_spells [1120] + 0.00 0.00 527/34611296 make_movement_order [522] + 0.00 0.00 569/34611296 relpath [1061] + 0.00 0.00 1146/34611296 join_path [1016] + 0.00 0.00 1584/34611296 produce_resource [994] + 0.00 0.00 1667/34611296 add_recruits [371] + 0.00 0.00 2008/34611296 default_name [851] + 0.00 0.00 2478/34611296 write_spell_modifier [964] + 0.00 0.00 2622/34611296 nr_spell_syntax [732] + 0.00 0.00 2660/34611296 write_regionname [280] + 0.00 0.00 3111/34611296 sidename [867] + 0.00 0.00 3123/34611296 limit_resource [943] + 0.00 0.00 4921/34611296 nrt_register [883] + 0.00 0.00 4967/34611296 report_plaintext [4] + 0.00 0.00 6243/34611296 nr_spell [507] + 0.00 0.00 17417/34611296 teach_cmd [272] + 0.00 0.00 18788/34611296 sideabkz [745] + 0.00 0.00 32943/34611296 bufunit [17] + 0.00 0.00 54735/34611296 write_travelthru [327] + 0.00 0.00 62870/34611296 report_template [87] + 0.00 0.00 97114/34611296 guards [229] + 0.00 0.00 216694/34611296 racename [133] + 0.00 0.00 260073/34611296 nr_building [141] + 0.01 0.00 293954/34611296 show_allies [429] + 0.01 0.00 425391/34611296 create_order [341] + 0.01 0.00 529305/34611296 prices [85] + 0.01 0.00 532232/34611296 nr_ship [111] + 0.01 0.00 598234/34611296 report_status [318] + 0.01 0.00 785221/34611296 trailinto [207] + 0.02 0.00 950595/34611296 f_regionid [161] + 0.03 0.00 1380398/34611296 nr_render [25] + 0.06 0.00 3045620/34611296 describe [35] + 0.07 0.00 3889315/34611296 get_command [108] + 0.07 0.00 3931390/34611296 parse_string [86] + 0.32 0.00 17451017/34611296 strlcpy_w [67] +[45] 1.8 0.63 0.00 34611296 strlcpy [45] +----------------------------------------------- + 0.02 0.59 221802/221802 readorders [43] +[46] 1.8 0.02 0.59 221802 unitorders [46] + 0.00 0.36 1096433/1158076 getbuf [71] + 0.01 0.10 874634/1481407 parse_order [117] + 0.00 0.05 221802/221899 findunitg [279] + 0.02 0.01 984476/5387327 parse_token [125] + 0.00 0.01 221802/228907 getid [483] + 0.00 0.01 984476/1787006 findparam [458] + 0.00 0.01 221802/71815034 get_race [12] + 0.01 0.00 573389/55492327 getkeyword [54] + 0.00 0.00 573389/2985733 is_repeated [552] + 0.00 0.00 56948/1644867 free_orders [306] + 0.00 0.00 221802/129167539 u_race [89] + 0.00 0.00 395426/1936876 free_order [1356] +----------------------------------------------- + 0.04 0.57 1/1 process [7] +[47] 1.8 0.04 0.57 1 movement [47] + 0.00 0.44 103494/103784 move_cmd [66] + 0.03 0.01 1/1 move_pirates [326] + 0.03 0.00 1/1 move_hunters [342] + 0.01 0.02 1/1 init_transportation [384] + 0.02 0.00 1733187/55492327 getkeyword [54] + 0.00 0.01 178254/178254 drifting_ships [490] + 0.00 0.00 113702/115276 can_move [736] + 0.00 0.00 103494/1027665 init_order [613] + 0.00 0.00 17286/3358315 ship_owner [438] + 0.00 0.00 163/15102 cmistake [718] + 0.00 0.00 163/1291427 set_order [1365] +----------------------------------------------- + 0.04 0.00 113592/1766225 nr_building [141] + 0.04 0.00 127676/1766225 describe [35] + 0.06 0.00 180598/1766225 nr_ship [111] + 0.43 0.03 1344359/1766225 nr_unit [11] +[48] 1.7 0.57 0.04 1766225 nr_curses [48] + 0.00 0.02 1766225/1766225 nr_curses_i [401] + 0.00 0.01 113592/593636 building_owner [232] + 0.00 0.00 180598/3358315 ship_owner [438] +----------------------------------------------- + 0.01 0.59 5494/5494 produce [29] +[49] 1.7 0.01 0.59 5494 expandbuying [49] + 0.08 0.26 394406/860263 use_pooled [39] + 0.02 0.16 400300/541982 get_pooled [104] + 0.02 0.03 5484/10852 expandorders [197] + 0.01 0.00 788812/11241829 i_change [115] + 0.00 0.00 493465/51974272 a_find [65] + 0.00 0.00 394406/2186159 rsetmoney [553] + 0.00 0.00 11358/967784 msg_message [132] + 0.00 0.00 394406/4666665 rmoney [452] + 0.00 0.00 11358/392959 add_message [434] + 0.00 0.00 5679/451774 a_remove [366] + 0.00 0.00 5679/779419 a_add [555] + 0.00 0.00 5494/2605004 rpeasants [435] + 0.00 0.00 5494/56052475 get_resourcetype [194] + 0.00 0.00 11358/1009028 msg_release [1373] + 0.00 0.00 5679/779868 a_new [1376] +----------------------------------------------- + 0.00 0.54 1/1 process [7] +[50] 1.6 0.00 0.54 1 demographics [50] + 0.00 0.37 178254/178254 live [73] + 0.00 0.04 1/1 immigration [294] + 0.00 0.04 32670/32670 growing_herbs [300] + 0.01 0.03 32670/32670 horses [330] + 0.00 0.02 1/6 remove_empty_units [146] + 0.00 0.01 32670/32670 calculate_emigration [603] + 0.00 0.01 32670/32670 growing_trees [624] + 0.00 0.01 32670/490896 wage [174] + 0.00 0.00 32670/32670 peasants [658] + 0.00 0.00 65214/438629 maxworkingpeasants [473] + 0.00 0.00 32878/1336242 rng_injectable_double [396] + 0.00 0.00 120/120 plagues [781] + 0.00 0.00 32670/2605004 rpeasants [435] + 0.00 0.00 1/560926 bt_find [237] + 0.00 0.00 1/4984610 config_get_int [348] + 0.00 0.00 50673/50673 update_resources [1457] + 0.00 0.00 32670/32670 migrate [1478] + 0.00 0.00 208/75797 buildingtype_exists [1443] + 0.00 0.00 2/40692 get_gamedate [1466] +----------------------------------------------- + +[51] 1.5 0.00 0.53 tolua_planmonsters [51] + 0.00 0.53 1/1 plan_monsters [52] + 0.00 0.00 1/3902878 get_monsters [293] +----------------------------------------------- + 0.00 0.53 1/1 tolua_planmonsters [51] +[52] 1.5 0.00 0.53 1 plan_monsters [52] + 0.01 0.15 105106/105106 monster_move [129] + 0.02 0.07 313244/313244 check_overpopulated [184] + 0.04 0.01 160196/160206 monster_attacks [248] + 0.00 0.05 317735/317735 monster_learn [269] + 0.00 0.05 298/298 plan_dragon [273] + 0.04 0.00 432765/760673 addlist [217] + 0.00 0.03 419518/472418 produceexp [322] + 0.00 0.01 335497/71815034 get_race [12] + 0.00 0.01 595808/752645 chance [495] + 0.01 0.00 419518/1644867 free_orders [306] + 0.01 0.00 419518/1121103 monster_is_waiting [407] + 0.01 0.00 839036/51974272 a_find [65] + 0.00 0.00 419518/3902878 get_monsters [293] + 0.00 0.00 31277/447808 create_order [341] + 0.00 0.00 595142/129167539 u_race [89] + 0.00 0.00 417554/417554 random_move_chance [754] + 0.00 0.00 419518/21345834 skill_enabled [365] + 0.00 0.00 12762/6610983 is_guard [211] + 0.00 0.00 12984/748527 unit_can_study [709] + 0.00 0.00 44/12320804 effskill [100] + 0.00 0.00 44/2934859 skillname [122] + 0.00 0.00 40/451774 a_remove [366] + 0.00 0.00 1/717218 config_get_flt [714] + 0.00 0.00 315567/1342832 handle_event [1363] + 0.00 0.00 1/1 pathfinder_cleanup [1828] +----------------------------------------------- + 0.04 0.49 1953682/1953682 bufunit [17] +[53] 1.5 0.04 0.49 1953682 spskill [53] + 0.03 0.15 7046371/17451017 strlcpy_w [67] + 0.05 0.09 1953681/12320804 eff_skill [334] + 0.01 0.12 1953681/2934859 skillname [122] + 0.01 0.01 592664/24887945 locale_string [27] + 0.01 0.01 237880/12320804 get_modifier [55] + 0.01 0.00 1958340/36653945 wrptr [178] + 0.00 0.00 9493/2426021 get_mage [198] + 0.00 0.00 1551/8034 u_geteffstealth [919] + 0.00 0.00 1088/4133717 mkname [261] +----------------------------------------------- + 0.00 0.00 24/55492327 is_moving_ship [1231] + 0.00 0.00 148/55492327 transport [1011] + 0.00 0.00 17417/55492327 teach_cmd [272] + 0.00 0.00 30554/55492327 guard_on_cmd [656] + 0.00 0.00 30634/55492327 guard_off_cmd [711] + 0.00 0.00 38489/55492327 move_pirates [326] + 0.00 0.00 85384/55492327 move_hunters [342] + 0.00 0.00 103187/55492327 cycle_route [375] + 0.00 0.00 151532/55492327 report_template [87] + 0.00 0.00 162752/55492327 travel_i [92] + 0.00 0.00 204065/55492327 do_siege [515] + 0.01 0.00 573389/55492327 unitorders [46] + 0.01 0.00 619614/55492327 produce [29] + 0.01 0.00 692835/55492327 write_unit [97] + 0.01 0.00 695201/55492327 cr_output_unit [19] + 0.01 0.00 1045507/55492327 bufunit [17] + 0.01 0.00 1128316/55492327 magic [157] + 0.01 0.00 1129818/55492327 start_battle [297] + 0.01 0.00 1130203/55492327 restack_units [353] + 0.01 0.00 1131212/55492327 defaultorders [249] + 0.01 0.00 1132975/55492327 update_long_order [270] + 0.01 0.00 1133099/55492327 do_contact [250] + 0.01 0.00 1135305/55492327 follow_unit [331] + 0.01 0.00 1136686/55492327 new_units [282] + 0.02 0.00 1693146/55492327 init_transportation [384] + 0.02 0.00 1733187/55492327 movement [47] + 0.03 0.00 2855598/55492327 economics [78] + 0.04 0.00 4529361/55492327 do_enter [128] + 0.29 0.00 31172689/55492327 process [7] +[54] 1.5 0.52 0.00 55492327 getkeyword [54] +----------------------------------------------- + 6907105 eff_skill [334] + 0.00 0.00 34169/12320804 effskill_study [504] + 0.01 0.01 237880/12320804 spskill [53] +[55] 1.4 0.04 0.46 7179154 get_modifier [55] + 0.05 0.26 7179079/7179079 att_modification [90] + 0.00 0.14 7179079/7179079 rc_skillmod [140] + 0.02 0.00 7179079/129167539 u_race [89] + 0.00 0.00 1467202/18647447 getplane [596] + 7179079 skillmod [214] +----------------------------------------------- + +[56] 1.4 0.47 0.00 decode_pointer [56] +----------------------------------------------- + 0.00 0.01 723/61961 report_computer [9] + 0.00 0.46 61238/61961 cr_output_region [10] +[57] 1.3 0.00 0.46 61961 cr_output_messages [57] + 0.01 0.45 20176/20176 render_messages [58] +----------------------------------------------- + 0.01 0.45 20176/20176 cr_output_messages [57] +[58] 1.3 0.01 0.45 20176 render_messages [58] + 0.00 0.28 301257/1380398 nr_render [25] + 0.09 0.00 297222/297222 fwritestr [191] + 0.01 0.07 301257/301257 cr_render [196] + 0.00 0.00 297222/297222 messagehash [1405] +----------------------------------------------- + 0.00 0.46 1/1 tolua_eressea_eressea_read_game00 [61] +[59] 1.3 0.00 0.46 1 eressea_read_game [59] + 0.00 0.46 1/1 readgame [60] +----------------------------------------------- + 0.00 0.46 1/1 eressea_read_game [59] +[60] 1.3 0.00 0.46 1 readgame [60] + 0.00 0.46 1/1 read_game [62] + 0.00 0.00 1/3 init_locales [947] + 0.00 0.00 1/573 join_path [1016] + 0.00 0.00 1/5 datapath [1289] + 0.00 0.00 2/49235 log_debug [1245] +----------------------------------------------- + +[61] 1.3 0.00 0.46 tolua_eressea_eressea_read_game00 [61] + 0.00 0.46 1/1 eressea_read_game [59] +----------------------------------------------- + 0.00 0.46 1/1 readgame [60] +[62] 1.3 0.00 0.46 1 read_game [62] + 0.01 0.36 595125/595125 read_unit [74] + 0.00 0.08 178254/178254 readregion [209] + 0.00 0.01 9729/10232 update_lighthouse [605] + 0.00 0.00 46176/560926 bt_find [237] + 0.00 0.00 65258/840577 read_attribs [388] + 0.00 0.00 1/1 read_borders [706] + 0.00 0.00 595125/3383689 update_interval [551] + 0.00 0.00 1/1 resolve [757] + 0.00 0.00 233/233 readfaction [767] + 0.00 0.00 1/1 read_planes [1164] + 0.00 0.00 12/180818 buildingname [621] + 0.00 0.00 1/2 game_id [1324] + 0.00 0.00 182/49235 log_debug [1245] + 0.00 0.00 12/13 log_error [1340] + 0.00 0.00 46175/46196 bhash [1464] + 0.00 0.00 19082/19085 shash [1502] + 0.00 0.00 19082/19082 st_find [1503] + 0.00 0.00 233/233 fhash [1617] + 0.00 0.00 1/1 init_genrand [1809] + 0.00 0.00 1/1 read_alliances [1830] +----------------------------------------------- + 0.00 0.45 1/1 process [7] +[63] 1.3 0.00 0.45 1 do_battles [63] + 0.00 0.45 178254/178254 do_battle [64] + 0.00 0.00 1/1 init_rules [1272] +----------------------------------------------- + 0.00 0.45 178254/178254 do_battles [63] +[64] 1.3 0.00 0.45 178254 do_battle [64] + 0.00 0.35 574/574 battle_attacks [79] + 0.01 0.03 178254/178254 start_battle [297] + 0.00 0.03 574/574 battle_flee [352] + 0.01 0.00 780/780 battle_report [503] + 0.00 0.01 206/206 print_stats [525] + 0.00 0.00 206/206 join_allies [693] + 0.00 0.00 206/206 aftermath [701] + 0.00 0.00 206/206 print_header [838] + 0.00 0.00 206/412 do_combatmagic [825] + 0.00 0.00 206/361 regionname [987] + 0.00 0.00 206/207 rule_force_leave [1175] + 0.00 0.00 1/967784 msg_message [132] + 0.00 0.00 206/206 make_heroes [1298] + 0.00 0.00 206/49235 log_debug [1245] + 0.00 0.00 574/574 battle_update [1595] + 0.00 0.00 206/206 free_battle [1630] +----------------------------------------------- + 0.00 0.00 1/51974272 reshow_other [823] + 0.00 0.00 1/51974272 create_mage [1315] + 0.00 0.00 1/51974272 a_upgradekeys [1314] + 0.00 0.00 2/51974272 u_seteffstealth [1199] + 0.00 0.00 3/51974272 create_newfamiliar [1288] + 0.00 0.00 7/51974272 parse_resources [1086] + 0.00 0.00 9/51974272 melt_iceberg [1082] + 0.00 0.00 11/51974272 add_trigger [1260] + 0.00 0.00 12/51974272 volcano_destruction [1022] + 0.00 0.00 15/51974272 mail_cmd [844] + 0.00 0.00 26/51974272 set_new_dragon_target [486] + 0.00 0.00 27/51974272 move_iceberg [1094] + 0.00 0.00 48/51974272 cansee [22] + 0.00 0.00 58/51974272 tolua_dict_get [1218] + 0.00 0.00 62/51974272 potion_luck [1176] + 0.00 0.00 85/51974272 volcano_update [981] + 0.00 0.00 89/51974272 add_chaoscount [1198] + 0.00 0.00 104/51974272 set_factionstealth [183] + 0.00 0.00 115/51974272 usetcontact [1147] + 0.00 0.00 232/51974272 renumber_factions [1156] + 0.00 0.00 298/51974272 plan_dragon [273] + 0.00 0.00 324/51974272 caught_target [1003] + 0.00 0.00 328/51974272 display_potion [1090] + 0.00 0.00 348/51974272 ugetpotionuse [1133] + 0.00 0.00 380/51974272 set_group [1048] + 0.00 0.00 404/51974272 usetpotionuse [1078] + 0.00 0.00 460/51974272 report_computer [9] + 0.00 0.00 460/51974272 report_plaintext [4] + 0.00 0.00 631/51974272 follow_unit [331] + 0.00 0.00 664/51974272 ally_cmd [877] + 0.00 0.00 760/51974272 resolve_familiar [846] + 0.00 0.00 760/51974272 resolve_mage [856] + 0.00 0.00 793/51974272 is_familiar [1092] + 0.00 0.00 1297/51974272 hunted_dir [1055] + 0.00 0.00 1422/51974272 attrib_allocation [914] + 0.00 0.00 1429/51974272 start_battle [297] + 0.00 0.00 1573/51974272 usetprivate [1041] + 0.00 0.00 1593/51974272 make_fighter [424] + 0.00 0.00 1610/51974272 transfer_curse [1039] + 0.00 0.00 1725/51974272 max_magicians [915] + 0.00 0.00 1774/51974272 join_battle [425] + 0.00 0.00 2280/51974272 set_familiar [992] + 0.00 0.00 2421/51974272 set_racename [1015] + 0.00 0.00 2598/51974272 create_unit [296] + 0.00 0.00 2723/51974272 get_allocator [1001] + 0.00 0.00 2822/51974272 get_followers [254] + 0.00 0.00 2977/51974272 change_effect [982] + 0.00 0.00 3035/51974272 scale_number [969] + 0.00 0.00 3078/51974272 allocate_resource [752] + 0.00 0.00 3730/51974272 transfermen [899] + 0.00 0.00 4475/51974272 matmod [975] + 0.00 0.00 5049/51974272 find_piracy_target [967] + 0.00 0.00 5903/51974272 buy [707] + 0.00 0.00 5941/51974272 deathcounts [843] + 0.00 0.00 6245/51974272 produce [29] + 0.00 0.00 7815/51974272 already_seen [929] + 0.00 0.00 7957/51974272 magic_resistance [727] + 0.00 0.00 8034/51974272 u_geteffstealth [919] + 0.00 0.00 8144/51974272 ucontact [927] + 0.00 0.00 8246/51974272 horses [330] + 0.00 0.00 12520/51974272 sell [498] + 0.00 0.00 16132/51974272 teach_unit [426] + 0.00 0.00 23509/51974272 setguard [815] + 0.00 0.00 30250/51974272 peasants [658] + 0.00 0.00 31351/51974272 update_guards [415] + 0.00 0.00 32670/51974272 growing_trees [624] + 0.00 0.00 34221/51974272 eff_weight [683] + 0.00 0.00 35539/51974272 check_leuchtturm [786] + 0.00 0.00 39729/51974272 leave_trail [704] + 0.00 0.00 52551/51974272 update_lighthouse [605] + 0.00 0.00 54351/51974272 get_familiar [796] + 0.00 0.00 66058/51974272 shipspeed [669] + 0.00 0.00 71414/51974272 get_mage [198] + 0.00 0.00 116002/51974272 get_movement [750] + 0.00 0.00 116914/51974272 fleechance [408] + 0.00 0.00 169733/51974272 travelthru_add [609] + 0.00 0.00 172276/51974272 largestbuilding [651] + 0.00 0.00 174968/51974272 get_familiar_mage [722] + 0.00 0.00 178254/51974272 age_traveldir [720] + 0.00 0.00 178254/51974272 randomevents [91] + 0.00 0.00 178257/51974272 key_get [719] + 0.00 0.00 179235/51974272 get_chaoscount [717] + 0.00 0.00 255350/51974272 describe [35] + 0.00 0.00 285923/51974272 ualias [692] + 0.00 0.00 307833/51974272 default_wage [173] + 0.00 0.00 325282/51974272 eaten_by_monster [468] + 0.00 0.00 325825/51974272 scared_by_monster [380] + 0.00 0.00 329691/51974272 getguard [652] + 0.00 0.00 355423/51974272 deathcount [674] + 0.00 0.00 370844/51974272 expandselling [93] + 0.00 0.00 417739/51974272 study_cmd [105] + 0.00 0.00 493465/51974272 expandbuying [49] + 0.01 0.00 595441/51974272 destroyfaction [392] + 0.01 0.00 595476/51974272 dissolve_units [241] + 0.01 0.00 839036/51974272 plan_monsters [52] + 0.01 0.00 847828/51974272 raceprefix [222] + 0.01 0.00 973220/51974272 cr_output_unit [19] + 0.01 0.00 1115958/51974272 visible_faction [68] + 0.01 0.00 1344359/51974272 nr_unit [11] + 0.01 0.00 1401002/51974272 bufunit [17] + 0.01 0.00 1474687/51974272 leftship [500] + 0.01 0.00 1523708/51974272 uprivate [497] + 0.01 0.00 1646640/51974272 terrain_name [226] + 0.02 0.00 2275967/51974272 get_racename [368] + 0.02 0.00 2277350/51974272 get_prefix [263] + 0.02 0.00 2858912/51974272 get_effect [225] + 0.03 0.00 3398582/51974272 travelthru_map [41] + 0.05 0.00 5640296/51974272 alliedunit [31] + 0.06 0.00 7298034/51974272 skillmod [214] + 0.09 0.00 10322799/51974272 att_modification [90] +[65] 1.3 0.45 0.00 51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 99/103784 piracy_cmd [660] + 0.00 0.00 191/103784 follow_ship [749] + 0.00 0.44 103494/103784 movement [47] +[66] 1.3 0.00 0.45 103784 move_cmd [66] + 0.00 0.35 96529/96529 travel [81] + 0.01 0.09 7255/7255 sail [181] + 0.00 0.00 7269/3358315 ship_owner [438] + 0.00 0.00 103784/1291427 set_order [1365] + 0.00 0.00 103369/109377 free_regionlist [1436] +----------------------------------------------- + 0.00 0.00 211/17451017 display_race [963] + 0.00 0.00 1612/17451017 follow_ship [749] + 0.00 0.00 1799/17451017 print_header [838] + 0.00 0.00 4287/17451017 eval_trail [634] + 0.00 0.00 25201/17451017 battle_report [503] + 0.00 0.00 63020/17451017 cycle_route [375] + 0.00 0.02 989920/17451017 buforder [201] + 0.03 0.15 7046371/17451017 spskill [53] + 0.04 0.20 9318596/17451017 bufunit [17] +[67] 1.3 0.07 0.37 17451017 strlcpy_w [67] + 0.32 0.00 17451017/34611296 strlcpy [45] + 0.05 0.00 17451017/36653945 wrptr [178] +----------------------------------------------- + 0.00 0.00 8/4374788 spy_message [1038] + 0.00 0.00 315/4374788 piracy_cmd [660] + 0.00 0.01 67332/4374788 guards [229] + 0.00 0.01 74068/4374788 cb_add_address [598] + 0.00 0.02 249624/4374788 cr_output_region [10] + 0.00 0.08 854692/4374788 get_addresses [20] + 0.00 0.08 856373/4374788 set_factionstealth [183] + 0.00 0.09 923633/4374788 cr_output_unit [19] + 0.00 0.13 1348743/4374788 bufunit [17] +[68] 1.2 0.01 0.42 4374788 visible_faction [68] + 0.05 0.36 4374788/9953180 alliedunit [31] + 0.01 0.00 1115958/51974272 a_find [65] + 0.00 0.00 151469/1380007 get_otherfaction [1362] +----------------------------------------------- + 0.12 0.01 386740/1310373 cr_output_curses_compat [144] + 0.28 0.02 923633/1310373 cr_output_unit [19] +[69] 1.2 0.40 0.03 1310373 cr_output_curses [69] + 0.00 0.01 12729/1380398 nr_render [25] + 0.00 0.01 104830/593636 building_owner [232] + 0.00 0.00 12828/26045 msg_curse [664] + 0.00 0.00 179761/3358315 ship_owner [438] + 0.00 0.00 28167/10103290 stream_printf [158] + 0.00 0.00 2073/4434556 translate [75] + 0.00 0.00 2073/24887945 locale_string [27] + 0.00 0.00 2073/13259934 resourcename [233] + 0.00 0.00 12828/26045 curse_cansee [1489] + 0.00 0.00 12729/1009028 msg_release [1373] +----------------------------------------------- + 0.02 0.40 33139/33139 report_plaintext [4] +[70] 1.2 0.02 0.40 33139 statistics [70] + 0.00 0.18 192618/1380398 nr_render [25] + 0.16 0.01 361771/2742237 paragraph [26] + 0.01 0.02 192618/967784 msg_message [132] + 0.00 0.00 169153/24887945 locale_string [27] + 0.00 0.01 32354/490896 wage [174] + 0.01 0.00 347340/11241829 i_change [115] + 0.00 0.00 31155/560926 bt_find [237] + 0.00 0.00 31676/79772 entertainmoney [643] + 0.00 0.00 33139/669051 production [417] + 0.00 0.00 169153/13259934 resourcename [233] + 0.00 0.00 63509/163027 markets_module [748] + 0.00 0.00 144924/129167539 u_race [89] + 0.00 0.00 66278/2494242 newline [594] + 0.00 0.00 33139/2605004 rpeasants [435] + 0.00 0.00 31725/4666665 rmoney [452] + 0.00 0.00 33139/21345834 skill_enabled [365] + 0.00 0.00 1098/71815034 get_race [12] + 0.00 0.00 192618/1009028 msg_release [1373] + 0.00 0.00 169153/257723 i_remove [1407] + 0.00 0.00 169153/374425 i_free [1400] + 0.00 0.00 31155/75797 buildingtype_exists [1443] +----------------------------------------------- + 0.00 0.02 61643/1158076 readorders [43] + 0.00 0.36 1096433/1158076 unitorders [46] +[71] 1.1 0.00 0.38 1158076 getbuf [71] + 0.24 0.14 1158076/1158076 getbuf_utf8 [72] +----------------------------------------------- + 0.24 0.14 1158076/1158076 getbuf [71] +[72] 1.1 0.24 0.14 1158076 getbuf_utf8 [72] + 0.08 0.00 38195175/46391457 unicode_utf8_to_ucs4 [177] + 0.04 0.01 6241702/6241702 eatwhite [243] +----------------------------------------------- + 0.00 0.37 178254/178254 demographics [50] +[73] 1.1 0.00 0.37 178254 live [73] + 0.15 0.17 178254/178254 get_food [88] + 0.00 0.03 595472/595472 age_unit [336] + 0.01 0.01 595472/2858912 get_effect [225] +----------------------------------------------- + 0.01 0.36 595125/595125 read_game [62] +[74] 1.1 0.01 0.36 595125 read_unit [74] + 0.00 0.12 595125/888603 findunit [123] + 0.01 0.07 606357/1481407 parse_order [117] + 0.02 0.02 595125/628037 read_items [320] + 0.03 0.00 1951270/1956810 add_skill [355] + 0.00 0.02 379049/778818 describe_race [267] + 0.00 0.02 597254/68430117 rc_find [15] + 0.00 0.02 595125/840577 read_attribs [388] + 0.01 0.00 595125/1644867 free_orders [306] + 0.00 0.01 595125/4625636 findfaction [259] + 0.00 0.00 595125/598069 uhash [667] + 0.00 0.00 595125/129167539 u_race [89] + 0.00 0.00 606357/2155959 is_persistent [687] + 0.00 0.00 595125/598129 u_setfaction [1111] + 0.00 0.00 2129/21345834 skill_enabled [365] + 0.00 0.00 153878/154110 rule_stealth_anon [1325] + 0.00 0.00 595125/603524 set_number [1387] + 0.00 0.00 595125/600145 u_setrace [1389] + 0.00 0.00 595125/599650 setstatus [1390] + 0.00 0.00 595125/1291427 set_order [1365] + 0.00 0.00 47396/48455 findbuilding [1462] + 0.00 0.00 47396/48565 u_set_building [1460] + 0.00 0.00 27412/28818 findship [1483] + 0.00 0.00 27412/27640 u_set_ship [1485] +----------------------------------------------- + 0.00 0.00 352/4434556 cr_resources [960] + 0.00 0.00 356/4434556 cr_race [949] + 0.00 0.00 446/4434556 print_items [938] + 0.00 0.00 1896/4434556 report_computer [9] + 0.00 0.00 2073/4434556 cr_output_curses [69] + 0.00 0.00 5284/4434556 cr_reportspell [756] + 0.00 0.00 20072/4434556 cr_skill [672] + 0.00 0.00 33909/4434556 cr_output_spells [639] + 0.00 0.01 104830/4434556 cr_output_building [239] + 0.00 0.01 110167/4434556 cr_resource [488] + 0.01 0.01 174677/4434556 cr_output_resource [378] + 0.01 0.01 179761/4434556 cr_output_ship [152] + 0.01 0.02 427650/4434556 cr_output_region [10] + 0.11 0.17 3373083/4434556 cr_output_unit [19] +[75] 1.0 0.14 0.22 4434556 translate [75] + 0.01 0.21 4434556/4488684 crtag [110] +----------------------------------------------- + 0.00 0.36 1/1 tolua_eressea_eressea_write_game00 [77] +[76] 1.0 0.00 0.36 1 eressea_write_game [76] + 0.00 0.35 1/1 writegame [82] + 0.01 0.00 1/1 remove_empty_factions [576] +----------------------------------------------- + +[77] 1.0 0.00 0.36 tolua_eressea_eressea_write_game00 [77] + 0.00 0.36 1/1 eressea_write_game [76] +----------------------------------------------- + 0.02 0.34 178254/178254 process [7] +[78] 1.0 0.02 0.34 178254 economics [78] + 0.00 0.26 131722/131722 give_cmd [102] + 0.00 0.03 1594/1594 expandrecruit [349] + 0.03 0.00 2855598/55492327 getkeyword [54] + 0.02 0.00 178254/1375380 remove_empty_units_in_region [134] + 0.00 0.01 1835/1835 recruit [650] + 0.00 0.00 12/12 forget_cmd [1093] + 0.00 0.00 23/23 destroy_cmd [1113] + 0.00 0.00 1/1 recruit_init [1334] +----------------------------------------------- + 0.00 0.35 574/574 do_battle [64] +[79] 1.0 0.00 0.35 574 battle_attacks [79] + 0.01 0.34 2838/2838 do_attack [80] + 0.00 0.00 378/378 get_tactics [1178] +----------------------------------------------- + 0.01 0.34 2838/2838 battle_attacks [79] +[80] 1.0 0.01 0.34 2838 do_attack [80] + 0.00 0.34 617313/617313 attack [84] + 0.00 0.00 1501863/129167539 u_race [89] + 0.00 0.00 251867/876979 count_enemies [611] + 0.00 0.00 18/1486 message_all [834] + 0.00 0.00 18/967784 msg_message [132] + 0.00 0.00 251867/251867 attacks_per_round [1409] + 0.00 0.00 4005/754589 preferred_weapon [1377] + 0.00 0.00 18/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.35 96529/96529 move_cmd [66] +[81] 1.0 0.00 0.35 96529 travel [81] + 0.00 0.31 96555/96555 travel_i [92] + 0.00 0.04 96527/96527 make_route [289] + 0.00 0.00 94655/1474687 leftship [500] + 0.00 0.00 66/15361 is_guarded [377] + 0.00 0.00 133/133 reroute [1020] + 0.00 0.00 133/324 caught_target [1003] + 0.00 0.00 133/447808 create_order [341] + 0.00 0.00 133/24887945 locale_string [27] + 0.00 0.00 94660/95593 can_leave [1112] + 0.00 0.00 2/41248 msg_feedback [647] + 0.00 0.00 2/392959 add_message [434] + 0.00 0.00 5/129167539 u_race [89] + 0.00 0.00 133/1936876 free_order [1356] + 0.00 0.00 2/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.35 1/1 eressea_write_game [76] +[82] 1.0 0.00 0.35 1 writegame [82] + 0.01 0.34 1/1 write_game [83] + 0.00 0.00 1/2 create_directories [1294] + 0.00 0.00 1/573 join_path [1016] + 0.00 0.00 1/5 datapath [1289] + 0.00 0.00 1/1 version_no [1894] + 0.00 0.00 1/231 eressea_version [1624] +----------------------------------------------- + 0.01 0.34 1/1 writegame [82] +[83] 1.0 0.01 0.34 1 write_game [83] + 0.12 0.15 596221/596221 write_unit [97] + 0.04 0.00 534764/1248014 listlen [190] + 0.00 0.01 178254/178254 writeregion [519] + 0.00 0.01 1/1 clear_npc_orders [531] + 0.00 0.00 65263/839970 write_attribs [301] + 0.00 0.00 232/232 writefaction [762] + 0.00 0.00 1/1 write_planes [1207] + 0.00 0.00 1/2 game_id [1324] + 0.00 0.00 176/49235 log_debug [1245] + 0.00 0.00 46184/642406 write_building_reference [1383] + 0.00 0.00 19078/615299 write_ship_reference [1386] + 0.00 0.00 1/1 write_alliances [1896] + 0.00 0.00 1/1 write_borders [1897] +----------------------------------------------- + 0.00 0.34 617313/617313 do_attack [80] +[84] 1.0 0.00 0.34 617313 attack [84] + 0.00 0.16 363071/363071 hits [131] + 0.01 0.10 363135/363135 select_opponent [160] + 0.00 0.05 72692/80630 terminate [242] + 0.00 0.01 42157/146997 dice_rand [409] + 0.00 0.01 53/53 do_extra_spell [648] + 0.00 0.00 252753/876979 count_enemies [611] + 0.00 0.00 38/38 do_combatspell [702] + 0.00 0.00 47310/7641081 genrand_int31 [171] + 0.00 0.00 112/112 attack_firesword [785] + 0.00 0.00 5596/5596 drain_exp [850] + 0.00 0.00 23194/129167539 u_race [89] + 0.00 0.00 256354/619425 getreload [1385] + 0.00 0.00 234242/754589 preferred_weapon [1377] + 0.00 0.00 44924/1726748 is_riding [1358] + 0.00 0.00 3639/3639 setreload [1542] + 0.00 0.00 7/160 damage_ship [1641] + 0.00 0.00 1/1 dazzle [1800] +----------------------------------------------- + 0.03 0.31 35287/35287 report_plaintext [4] +[85] 1.0 0.03 0.31 35287 prices [85] + 0.00 0.23 247009/1380398 nr_render [25] + 0.01 0.03 247009/967784 msg_message [132] + 0.02 0.00 35287/2742237 paragraph [26] + 0.01 0.01 247009/24887945 locale_string [27] + 0.01 0.00 529305/34611296 strlcpy [45] + 0.00 0.00 776314/36653945 wrptr [178] + 0.00 0.00 247009/1009028 msg_release [1373] +----------------------------------------------- + 2724978 parse [333] + 0.00 0.00 605/1380398 translate [28] +[86] 1.0 0.21 0.12 2725583 parse_string [86] + 0.07 0.00 3931390/34611296 strlcpy [45] + 0.03 0.00 3931390/13102790 opstack_pop [176] + 0.02 0.00 2725583/13102790 opstack_push [202] + 0.01 0.00 2725583/13399069 balloc [363] + 0.00 0.00 6656973/6656973 bfree [1349] + 3931390 parse_symbol [42] +----------------------------------------------- + 0.27 0.06 99/99 write_reports [3] +[87] 1.0 0.27 0.06 99 report_template [87] + 0.03 0.00 195108/195108 rps_nowrap [359] + 0.00 0.01 128725/1470505 write_order [121] + 0.00 0.00 55807/24887945 locale_string [27] + 0.00 0.00 10477/490896 wage [174] + 0.00 0.00 52225/5100840 itoa36 [116] + 0.00 0.00 151532/55492327 getkeyword [54] + 0.00 0.00 12521/593636 building_owner [232] + 0.00 0.00 62870/34611296 strlcpy [45] + 0.00 0.00 216458/2494242 newline [594] + 0.00 0.00 45033/7120688 get_money [187] + 0.00 0.00 10477/1552289 rname [200] + 0.00 0.00 45033/4198692 lifestyle [286] + 0.00 0.00 45033/3351853 unit_getname [332] + 0.00 0.00 10477/1826688 adjust_coordinates [234] + 0.00 0.00 107804/36653945 wrptr [178] + 0.00 0.00 151532/2155959 is_persistent [687] + 0.00 0.00 45071/129167539 u_race [89] + 0.00 0.00 4309/10190660 get_curse [143] + 0.00 0.00 1258/884940 itoa10 [338] + 0.00 0.00 7093/3358315 ship_owner [438] + 0.00 0.00 12208/2985733 is_repeated [552] + 0.00 0.00 4309/4201030 curse_active [543] + 0.00 0.00 10477/18647447 getplane [596] + 0.00 0.00 99/12246335 ct_find [114] + 0.00 0.00 99/56052475 get_resourcetype [194] + 0.00 0.00 10477/3587241 pnormalize [1350] + 0.00 0.00 4066/4066 buildingmaintenance [1535] +----------------------------------------------- + 0.15 0.17 178254/178254 live [73] +[88] 0.9 0.15 0.17 178254 get_food [88] + 0.05 0.01 4046908/7120688 get_money [187] + 0.01 0.03 4046861/4198692 lifestyle [286] + 0.00 0.03 1044674/71815034 get_race [12] + 0.00 0.01 111338/9953180 alliedunit [31] + 0.01 0.00 726086/2599554 change_money [337] + 0.01 0.00 178254/264251 rsetpeasants [545] + 0.00 0.00 1771752/1771752 help_money [663] + 0.00 0.00 106798/106798 help_feed [678] + 0.00 0.00 1044674/129167539 u_race [89] + 0.00 0.00 178254/2605004 rpeasants [435] + 0.00 0.00 178257/4984610 config_get_int [348] + 0.00 0.00 43034/2858912 get_effect [225] + 0.00 0.00 88/88 hunger [808] + 0.00 0.00 178254/18647447 getplane [596] + 0.00 0.00 1461/2977 change_effect [982] + 0.00 0.00 2148/2032164 rt_find [597] +----------------------------------------------- + 0.00 0.00 1/129167539 sp_summonshadowlords [1034] + 0.00 0.00 1/129167539 sp_seduce [1336] + 0.00 0.00 1/129167539 promotion_cmd [917] + 0.00 0.00 1/129167539 oldfamiliars [1240] + 0.00 0.00 2/129167539 make_familiar [1219] + 0.00 0.00 2/129167539 do_fumble [1062] + 0.00 0.00 2/129167539 create_ship [1014] + 0.00 0.00 3/129167539 trigger_changerace [1297] + 0.00 0.00 4/129167539 cast_cmd [760] + 0.00 0.00 5/129167539 travel [81] + 0.00 0.00 5/129167539 leave_cmd [721] + 0.00 0.00 6/129167539 skill_summoned [1032] + 0.00 0.00 8/129167539 mod_elves_only [1239] + 0.00 0.00 9/129167539 chaos [848] + 0.00 0.00 15/129167539 steal_cmd [766] + 0.00 0.00 18/129167539 destroyfaction [392] + 0.00 0.00 20/129167539 spawn_dragons [411] + 0.00 0.00 24/129167539 make_heroes [1298] + 0.00 0.00 28/129167539 get_friends [895] + 0.00 0.00 31/129167539 random_unit [1174] + 0.00 0.00 36/129167539 damage_unit [1044] + 0.00 0.00 43/129167539 get_money_for_dragon [1087] + 0.00 0.00 44/129167539 build_road [950] + 0.00 0.00 45/129167539 dissolve_units [241] + 0.00 0.00 48/129167539 reshow_other [823] + 0.00 0.00 50/129167539 get_combatspell [874] + 0.00 0.00 58/129167539 use_bloodpotion [935] + 0.00 0.00 60/129167539 nb_armor [1273] + 0.00 0.00 71/129167539 disband_men [999] + 0.00 0.00 79/129167539 can_guard [908] + 0.00 0.00 88/129167539 hunger [808] + 0.00 0.00 92/129167539 spawn_undead [629] + 0.00 0.00 97/129167539 age_stonecircle [1021] + 0.00 0.00 111/129167539 check_steal [1234] + 0.00 0.00 112/129167539 give_unit [952] + 0.00 0.00 138/129167539 LongHunger [536] + 0.00 0.00 142/129167539 transfermen [899] + 0.00 0.00 168/129167539 loot_cmd [873] + 0.00 0.00 188/129167539 is_freezing [1088] + 0.00 0.00 222/129167539 enter_ship [733] + 0.00 0.00 242/129167539 canfly [1031] + 0.00 0.00 257/129167539 is_guardian_u [626] + 0.00 0.00 266/129167539 income [885] + 0.00 0.00 409/129167539 enter_building [695] + 0.00 0.00 460/129167539 plan_dragon [273] + 0.00 0.00 508/129167539 regeneration [942] + 0.00 0.00 578/129167539 gift_items [891] + 0.00 0.00 659/129167539 can_give_men [940] + 0.00 0.00 666/129167539 generic_name [962] + 0.00 0.00 681/129167539 absorbed_by_monster [804] + 0.00 0.00 783/129167539 give_men [857] + 0.00 0.00 802/129167539 heal_fighters [1158] + 0.00 0.00 990/129167539 kill_troop [532] + 0.00 0.00 1289/129167539 allocate_resource [752] + 0.00 0.00 1518/129167539 start_battle [297] + 0.00 0.00 1670/129167539 do_recruiting [351] + 0.00 0.00 1722/129167539 aftermath [701] + 0.00 0.00 2097/129167539 create_unit [296] + 0.00 0.00 3241/129167539 is_guardian_r [186] + 0.00 0.00 3340/129167539 select_recruitment [1079] + 0.00 0.00 3551/129167539 recruit [650] + 0.00 0.00 3836/129167539 tax_cmd [697] + 0.00 0.00 4069/129167539 is_migrant [1047] + 0.00 0.00 4632/129167539 add_recruits [371] + 0.00 0.00 4777/129167539 name_unit [803] + 0.00 0.00 5049/129167539 validate_pirate [1051] + 0.00 0.00 5358/129167539 max_spellpoints [755] + 0.00 0.00 5384/129167539 teach_cmd [272] + 0.00 0.00 5915/129167539 buy [707] + 0.00 0.00 7054/129167539 make_fighter [424] + 0.00 0.00 7279/129167539 remove_empty_units_in_region [134] + 0.00 0.00 7560/129167539 drown [394] + 0.00 0.00 7938/129167539 calculate_armor [645] + 0.00 0.00 7957/129167539 magic_resistance [727] + 0.00 0.00 8132/129167539 battle_flee [352] + 0.00 0.00 10979/129167539 expandwork [277] + 0.00 0.00 11880/129167539 cansee_unit [684] + 0.00 0.00 12787/129167539 canwalk [633] + 0.00 0.00 15347/129167539 can_start_guarding [679] + 0.00 0.00 15763/129167539 sell [498] + 0.00 0.00 16132/129167539 magic_lowskill [897] + 0.00 0.00 20370/129167539 get_reservation [281] + 0.00 0.00 21443/129167539 ridingcapacity [694] + 0.00 0.00 22150/129167539 do_work [612] + 0.00 0.00 23194/129167539 attack [84] + 0.00 0.00 25088/129167539 rmfighter [890] + 0.00 0.00 27379/129167539 bewegung_blockiert_von [631] + 0.00 0.00 27694/129167539 dragon_affinity_value [516] + 0.00 0.00 45071/129167539 report_template [87] + 0.00 0.00 45992/129167539 golem_factor [265] + 0.00 0.00 47987/129167539 guard_on_cmd [656] + 0.00 0.00 51382/129167539 immigration [294] + 0.00 0.00 52873/129167539 produceexp_ex [323] + 0.00 0.00 80630/129167539 natural_armor [788] + 0.00 0.00 92804/129167539 canswim [682] + 0.00 0.00 101492/129167539 report_item [106] + 0.00 0.00 115276/129167539 can_move [736] + 0.00 0.00 116914/129167539 fleechance [408] + 0.00 0.00 117616/129167539 rc_specialdamage [830] + 0.00 0.00 120592/129167539 CavalryBonus [491] + 0.00 0.00 132028/129167539 shipspeed [669] + 0.00 0.00 144924/129167539 statistics [70] + 0.00 0.00 168094/129167539 monster_move [129] + 0.00 0.00 176065/129167539 randomevents [91] + 0.00 0.00 192570/129167539 canride [465] + 0.00 0.00 193274/129167539 personcapacity [795] + 0.00 0.00 193321/129167539 walkingcapacity [403] + 0.00 0.00 221802/129167539 unitorders [46] + 0.00 0.00 278421/129167539 movement_speed [155] + 0.00 0.00 279395/129167539 weight [459] + 0.00 0.00 307120/129167539 give_cmd [102] + 0.00 0.00 325282/129167539 eaten_by_monster [468] + 0.00 0.00 325825/129167539 scared_by_monster [380] + 0.00 0.00 346411/129167539 travel_route [147] + 0.00 0.00 363135/129167539 select_opponent [160] + 0.00 0.00 372173/129167539 select_enemy [172] + 0.00 0.00 407896/129167539 guard_flags [690] + 0.00 0.00 417577/129167539 study_days [747] + 0.00 0.00 420172/129167539 tolua_unit_get_race [746] + 0.00 0.00 439954/129167539 process [7] + 0.00 0.00 464187/129167539 skilldiff [166] + 0.00 0.00 475770/129167539 terminate [242] + 0.00 0.00 578592/129167539 heal_factor [619] + 0.00 0.00 595125/129167539 read_unit [74] + 0.00 0.00 595142/129167539 plan_monsters [52] + 0.00 0.00 595144/129167539 monthly_healing [215] + 0.00 0.00 595476/129167539 demon_skillchanges [246] + 0.00 0.00 596221/129167539 prepare_report [8] + 0.00 0.00 597269/129167539 bufunit [17] + 0.00 0.00 742235/129167539 random_neighbour [153] + 0.00 0.00 748527/129167539 unit_can_study [709] + 0.00 0.00 793492/129167539 produce [29] + 0.00 0.00 835519/129167539 study_cmd [105] + 0.00 0.00 868104/129167539 select_armor [700] + 0.00 0.00 949946/129167539 can_survive [640] + 0.00 0.00 1044674/129167539 get_food [88] + 0.00 0.00 1100763/129167539 cr_output_unit [19] + 0.00 0.00 1121103/129167539 monster_is_waiting [407] + 0.00 0.00 1190864/129167539 magic [157] + 0.00 0.00 1191346/129167539 make_summary [21] + 0.00 0.00 1194391/129167539 age_unit [336] + 0.00 0.00 1335533/129167539 cansee [22] + 0.00 0.00 1344397/129167539 nr_unit [11] + 0.00 0.00 1381157/129167539 unit_max_hp [136] + 0.00 0.00 1469625/129167539 monster_kills_peasants [230] + 0.00 0.00 1501863/129167539 do_attack [80] + 0.00 0.00 1555209/129167539 weapon_skill [221] + 0.00 0.00 1747682/129167539 cansee_durchgezogen [170] + 0.00 0.00 1771752/129167539 help_money [663] + 0.00 0.00 1788663/129167539 write_unit [97] + 0.01 0.00 2367342/129167539 get_pooled [104] + 0.01 0.00 2521048/129167539 maintenance_cost [481] + 0.01 0.00 2554959/129167539 u_description [347] + 0.01 0.00 3891194/129167539 count_faction [219] + 0.01 0.00 3903981/129167539 score [23] + 0.01 0.00 4920480/129167539 use_pooled [39] + 0.02 0.00 7179079/129167539 get_modifier [55] + 0.07 0.00 29944440/129167539 check_overpopulated [184] + 0.08 0.00 34058224/129167539 room_for_race_in_region [165] +[89] 0.9 0.32 0.00 129167539 u_race [89] +----------------------------------------------- + 0.05 0.26 7179079/7179079 get_modifier [55] +[90] 0.9 0.05 0.26 7179079 att_modification [90] + 0.12 0.00 7027859/12246335 ct_find [114] + 0.09 0.00 10322799/51974272 a_find [65] + 0.04 0.00 3294942/10190660 get_curse [143] + 0.01 0.00 3294942/5152236 ct_changed [592] + 0.00 0.00 601859/4201030 curse_active [543] + 0.00 0.00 58/432940 curse_geteffect [1395] +----------------------------------------------- + 0.04 0.27 1/1 process [7] +[91] 0.9 0.04 0.27 1 randomevents [91] + 0.03 0.03 1/1 dissolve_units [241] + 0.03 0.02 1/1 demon_skillchanges [246] + 0.01 0.03 1/1 rotting_herbs [284] + 0.00 0.04 1/1 icebergs [285] + 0.02 0.01 1/1 orc_growth [370] + 0.02 0.00 1/1 godcurse [405] + 0.01 0.00 1/1 chaos_update [514] + 0.00 0.00 419410/3902878 get_monsters [293] + 0.00 0.00 178254/51974272 a_find [65] + 0.00 0.00 176065/129167539 u_race [89] + 0.00 0.00 1/1 volcano_update [981] + 0.00 0.00 172/2605004 rpeasants [435] + 0.00 0.00 6/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.31 96555/96555 travel [81] +[92] 0.9 0.00 0.31 96555 travel_i [92] + 0.00 0.12 96482/96482 travel_route [147] + 0.00 0.11 96450/96450 movement_speed [155] + 0.05 0.00 96482/96482 get_followers [254] + 0.00 0.01 96450/96450 cap_route [502] + 0.00 0.01 96555/96555 canwalk [633] + 0.00 0.00 162752/55492327 getkeyword [54] + 0.00 0.00 65/282847 getunit [205] + 0.00 0.00 105/15102 cmistake [718] + 0.00 0.00 32/967784 msg_message [132] + 0.00 0.00 33/392959 add_message [434] + 0.00 0.00 65/1027665 init_order [613] + 0.00 0.00 32/115276 can_move [736] + 0.00 0.00 32/1629412 LongHunger [536] + 0.00 0.00 1/41248 msg_feedback [647] + 0.00 0.00 199/95593 can_leave [1112] + 0.00 0.00 33/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.30 4629/4629 produce [29] +[93] 0.9 0.00 0.30 4629 expandselling [93] + 0.06 0.19 282676/860263 use_pooled [39] + 0.01 0.02 4628/10852 expandorders [197] + 0.01 0.00 282676/11241829 i_change [115] + 0.00 0.00 283759/2599554 change_money [337] + 0.00 0.00 370844/51974272 a_find [65] + 0.00 0.00 12448/967784 msg_message [132] + 0.00 0.00 5821/34409 add_income [625] + 0.00 0.00 4629/12933 owner_buildingtyp [676] + 0.00 0.00 9465/593636 building_owner [232] + 0.00 0.00 12448/392959 add_message [434] + 0.00 0.00 3778/184870 buildingeffsize [367] + 0.00 0.00 4738/451774 a_remove [366] + 0.00 0.00 4738/779419 a_add [555] + 0.00 0.00 4690/2605004 rpeasants [435] + 0.00 0.00 4629/4666665 rmoney [452] + 0.00 0.00 3/560926 bt_find [237] + 0.00 0.00 287458/308950 r_demand [1404] + 0.00 0.00 12448/1009028 msg_release [1373] + 0.00 0.00 4738/779868 a_new [1376] + 0.00 0.00 4629/204314 bt_changed [1415] + 0.00 0.00 4628/1511812 newterrain [1359] + 0.00 0.00 344/75797 buildingtype_exists [1443] + 0.00 0.00 13/217405 r_setdemand [1413] +----------------------------------------------- + 0.29 0.00 18856320/18856320 travelthru_map [41] +[94] 0.8 0.29 0.00 18856320 cb_add_seen [94] + 0.00 0.00 61444/745269 add_seen_nb [386] +----------------------------------------------- + +[95] 0.8 0.28 0.00 cb_find_prefix_i [95] +----------------------------------------------- + +[96] 0.8 0.28 0.00 from_external_node [96] +----------------------------------------------- + 0.12 0.15 596221/596221 write_game [83] +[97] 0.8 0.12 0.15 596221 write_unit [97] + 0.00 0.08 607926/607926 writeorder [208] + 0.00 0.03 596221/839970 write_attribs [301] + 0.01 0.00 596221/629123 write_items [511] + 0.01 0.00 596221/2868601 u_irace [257] + 0.01 0.00 596221/604861 write_unit_reference [557] + 0.01 0.00 692835/55492327 getkeyword [54] + 0.00 0.00 47440/593636 building_owner [232] + 0.00 0.00 1788663/129167539 u_race [89] + 0.00 0.00 692829/2155959 is_persistent [687] + 0.00 0.00 68016/2985733 is_repeated [552] + 0.00 0.00 27416/3358315 ship_owner [438] + 0.00 0.00 40/2383101 unitname [142] + 0.00 0.00 40/64 log_info [1339] + 0.00 0.00 596221/647569 write_faction_reference [1382] + 0.00 0.00 596221/642406 write_building_reference [1383] + 0.00 0.00 596221/615299 write_ship_reference [1386] +----------------------------------------------- + 0.00 0.00 7964/5168717 report_crtypes [428] + 0.04 0.03 1380398/5168717 nr_render [25] + 0.11 0.09 3780355/5168717 nr_section [113] +[98] 0.8 0.15 0.12 5168717 nrt_find [98] + 0.12 0.00 5168717/32337529 hashstring [37] +----------------------------------------------- + 0.00 0.00 4/8302761 reserve_i [213] + 0.00 0.00 83859/8302761 reduce_weight [404] + 0.00 0.03 931076/8302761 change_resource [240] + 0.01 0.07 2367342/8302761 get_pooled [104] + 0.02 0.14 4920480/8302761 use_pooled [39] +[99] 0.8 0.03 0.23 8302761 get_resource [99] + 0.03 0.21 8301368/9232125 res_changeitem [101] + 0.00 0.00 357/443 res_changepermaura [912] + 0.00 0.00 983/1199 res_changeaura [972] + 0.00 0.00 53/53 lua_getresource [1191] +----------------------------------------------- + 54349 sm_familiar [520] + 0.00 0.00 1/12320804 plant [1184] + 0.00 0.00 1/12320804 planttrees [1206] + 0.00 0.00 1/12320804 destroy_road [1230] + 0.00 0.00 2/12320804 sp_bloodsacrifice [1209] + 0.00 0.00 2/12320804 breedtrees [1148] + 0.00 0.00 2/12320804 setstealth_cmd [182] + 0.00 0.00 3/12320804 target_resists_magic [1154] + 0.00 0.00 4/12320804 sail [181] + 0.00 0.00 4/12320804 create_ship [1014] + 0.00 0.00 15/12320804 age_stonecircle [1021] + 0.00 0.00 22/12320804 reshow [822] + 0.00 0.00 41/12320804 build_road [950] + 0.00 0.00 44/12320804 plan_monsters [52] + 0.00 0.00 65/12320804 steal_cmd [766] + 0.00 0.00 90/12320804 sp_charmingsong [993] + 0.00 0.00 96/12320804 spy_cmd [990] + 0.00 0.00 165/12320804 update_spells [381] + 0.00 0.00 170/12320804 breedhorses [742] + 0.00 0.00 200/12320804 max_skill [1037] + 0.00 0.00 226/12320804 fumble [973] + 0.00 0.00 251/12320804 cancast [833] + 0.00 0.00 329/12320804 cast_cmd [760] + 0.00 0.00 349/12320804 research_cmd [886] + 0.00 0.00 377/12320804 manufacture [759] + 0.00 0.00 432/12320804 continue_ship [813] + 0.00 0.00 489/12320804 u_hasspell [951] + 0.00 0.00 508/12320804 regeneration [942] + 0.00 0.00 621/12320804 build_building [696] + 0.00 0.00 1230/12320804 build [691] + 0.00 0.00 1302/12320804 get_combatspelllevel [880] + 0.00 0.00 1334/12320804 bufunit [17] + 0.00 0.00 1423/12320804 leveled_allocation [888] + 0.00 0.00 1717/12320804 faction_getmages [382] + 0.00 0.00 2273/12320804 do_combatmagic [825] + 0.00 0.00 2659/12320804 tax_cmd [697] + 0.00 0.00 2909/12320804 make_fighter [424] + 0.00 0.00 2939/12320804 allocate_resource [752] + 0.00 0.00 3116/12320804 drifting_ships [490] + 0.00 0.00 3403/12320804 lighthouse_range [728] + 0.00 0.00 5358/12320804 max_spellpoints [755] + 0.00 0.00 5903/12320804 buy [707] + 0.00 0.00 5988/12320804 herbsearch [493] + 0.00 0.00 6428/12320804 cansee_unit [684] + 0.00 0.00 6580/12320804 study_cmd [105] + 0.00 0.00 7254/12320804 ship_ready [354] + 0.00 0.00 7957/12320804 magic_resistance [727] + 0.00 0.00 8873/12320804 bewegung_blockiert_von [631] + 0.00 0.00 10679/12320804 move_ship [374] + 0.00 0.00 12787/12320804 canwalk [633] + 0.00 0.00 20459/12320804 crew_skill [344] + 0.00 0.00 28293/12320804 sell [498] + 0.00 0.00 33015/12320804 ridingcapacity [694] + 0.00 0.00 33156/12320804 entertain_cmd [665] + 0.00 0.01 116914/12320804 horse_fleeing_bonus [604] + 0.00 0.01 116914/12320804 fleechance [408] + 0.00 0.01 137709/12320804 CavalryBonus [491] + 0.00 0.01 172836/12320804 cansee_durchgezogen [170] + 0.00 0.01 179414/12320804 walkingcapacity [403] + 0.01 0.01 192556/12320804 canride [465] + 0.01 0.01 207188/12320804 report_resources [210] + 0.02 0.02 551693/12320804 weapon_skill [221] + 0.02 0.03 604957/12320804 cr_output_unit [19] + 0.03 0.05 1188531/12320804 eff_stealth [163] + 0.03 0.05 1213526/12320804 make_summary [21] + 0.04 0.06 1327770/12320804 armedmen [151] + 0.04 0.06 1381157/12320804 unit_max_hp [136] + 0.07 0.10 2363341/12320804 cansee [22] +[100] 0.8 0.25 0.01 10030400 effskill [100] + 0.01 0.00 10030400/21345834 skill_enabled [365] + 4953357 eff_skill [334] +----------------------------------------------- + 0.00 0.02 930757/9232125 change_resource [240] + 0.03 0.21 8301368/9232125 get_resource [99] +[101] 0.8 0.03 0.23 9232125 res_changeitem [101] + 0.17 0.00 9232120/11241829 i_change [115] + 0.02 0.03 9163148/9163148 golem_factor [265] + 0.01 0.00 9232120/9298667 resource2item [546] + 0.00 0.00 1/3178 scale_number [969] +----------------------------------------------- + 0.00 0.26 131722/131722 economics [78] +[102] 0.7 0.00 0.26 131722 give_cmd [102] + 0.00 0.18 95533/95533 give_item [126] + 0.00 0.04 131722/282847 getunit [205] + 0.00 0.01 102699/102705 can_give_to [600] + 0.00 0.01 102606/9953180 alliedunit [31] + 0.00 0.01 231035/2281756 gettoken [195] + 0.00 0.00 102606/71815034 get_race [12] + 0.00 0.00 28910/41248 msg_feedback [647] + 0.00 0.00 29028/392959 add_message [434] + 0.00 0.00 131722/1027665 init_order [613] + 0.00 0.00 307120/129167539 u_race [89] + 0.00 0.00 94233/534930 isparam [668] + 0.00 0.00 93568/191379 finditemtype [735] + 0.00 0.00 18400/6010308 i_find [127] + 0.00 0.00 45456/1787006 findparam [458] + 0.00 0.00 24010/4851739 get_reservation [281] + 0.00 0.00 588/588 give_men [857] + 0.00 0.00 965/15102 cmistake [718] + 0.00 0.00 102739/18647447 getplane [596] + 0.00 0.00 114/114 give_unit [952] + 0.00 0.00 71/71 disband_men [999] + 0.00 0.00 102761/102761 check_give [1138] + 0.00 0.00 50/8898 ucontact [927] + 0.00 0.00 114935/217696 can_give [1335] + 0.00 0.00 131729/203117 atoip [1416] + 0.00 0.00 29028/1009028 msg_release [1373] +----------------------------------------------- + 0.02 0.10 700757/1405457 cr_output_unit [19] + 0.03 0.10 704700/1405457 bufunit [17] +[103] 0.7 0.05 0.20 1405457 report_items [103] + 0.06 0.11 8843052/12353561 report_item [106] + 0.02 0.00 1017568/12246335 ct_find [114] + 0.01 0.00 1017568/10190660 get_curse [143] +----------------------------------------------- + 1825360 get_pooled [104] + 0.00 0.00 1/541982 planttrees [1206] + 0.00 0.00 1/541982 breedtrees [1148] + 0.00 0.00 1/541982 promotion_cmd [917] + 0.00 0.00 2/541982 plant [1184] + 0.00 0.00 23/541982 build_road [950] + 0.00 0.00 59/541982 expandstealing [807] + 0.00 0.00 122/541982 maxbuild [946] + 0.00 0.00 404/541982 academy_can_teach [527] + 0.00 0.00 489/541982 eff_spelllevel [845] + 0.00 0.00 503/541982 cancast [833] + 0.00 0.00 590/541982 use_item [765] + 0.00 0.00 1670/541982 do_recruiting [351] + 0.00 0.00 1816/541982 build [691] + 0.00 0.00 3359/541982 recruit [650] + 0.00 0.00 7821/541982 study_cmd [105] + 0.00 0.01 13492/541982 maintain [478] + 0.00 0.01 15796/541982 sell [498] + 0.01 0.04 95533/541982 give_item [126] + 0.02 0.16 400300/541982 expandbuying [49] +[104] 0.7 0.03 0.21 541982+1825360 get_pooled [104] + 0.01 0.11 1273750/9953180 alliedunit [31] + 0.01 0.07 2367342/8302761 get_resource [99] + 0.00 0.00 671315/4851739 get_reservation [281] + 0.01 0.00 2367342/129167539 u_race [89] + 0.00 0.00 1849529/7417541 urace [436] + 1825360 get_pooled [104] +----------------------------------------------- + 0.03 0.21 417808/417808 process [7] +[105] 0.7 0.03 0.21 417808 study_cmd [105] + 0.00 0.04 420075/560926 bt_find [237] + 0.01 0.02 417577/451774 a_remove [366] + 0.00 0.02 417775/435022 getskill [387] + 0.02 0.00 417730/418134 study_cost [433] + 0.01 0.01 836342/2858912 get_effect [225] + 0.00 0.01 417740/71815034 get_race [12] + 0.01 0.00 417580/424669 active_building [560] + 0.00 0.01 417577/892307 learn_skill [471] + 0.00 0.00 7475/860263 use_pooled [39] + 0.00 0.01 405840/779419 a_add [555] + 0.00 0.00 835616/4984610 config_get_int [348] + 0.00 0.00 417739/51974272 a_find [65] + 0.00 0.00 7821/541982 get_pooled [104] + 0.00 0.00 417775/1027665 init_order [613] + 0.00 0.00 20072/967784 msg_message [132] + 0.00 0.00 169917/12246335 ct_find [114] + 0.00 0.00 169917/10190660 get_curse [143] + 0.00 0.00 835519/129167539 u_race [89] + 0.00 0.00 417808/748527 unit_can_study [709] + 0.00 0.00 417577/417577 study_days [747] + 0.00 0.00 20258/392959 add_message [434] + 0.00 0.00 6326/9953180 alliedunit [31] + 0.00 0.00 6580/12320804 effskill [100] + 0.00 0.00 169917/4201030 curse_active [543] + 0.00 0.00 4/4 count_skill [868] + 0.00 0.00 234/15102 cmistake [718] + 0.00 0.00 15296/56052475 get_resourcetype [194] + 0.00 0.00 186/41248 msg_feedback [647] + 0.00 0.00 3659/3659 ExpensiveMigrants [1004] + 0.00 0.00 589/2624955 has_skill [193] + 0.00 0.00 524/2426021 get_mage [198] + 0.00 0.00 1118/2977 change_effect [982] + 0.00 0.00 3659/3659 is_migrant [1047] + 0.00 0.00 524/793 is_familiar [1092] + 0.00 0.00 91/1441945 is_mage [262] + 0.00 0.00 17/45891 get_level [934] + 0.00 0.00 4/1583 skill_limit [1172] + 0.00 0.00 417577/417577 study_speedup [1398] + 0.00 0.00 405840/779868 a_new [1376] + 0.00 0.00 169917/651711 oldcursename [1381] + 0.00 0.00 20258/1009028 msg_release [1373] + 0.00 0.00 2495/75797 buildingtype_exists [1443] +----------------------------------------------- + 0.01 0.02 1727391/12353561 cr_output_unit [19] + 0.01 0.02 1783118/12353561 bufunit [17] + 0.06 0.11 8843052/12353561 report_items [103] +[106] 0.7 0.08 0.16 12353561 report_item [106] + 0.04 0.04 1783118/24887945 locale_string [27] + 0.05 0.00 11478488/13259934 resourcename [233] + 0.02 0.00 12353561/56052475 get_resourcetype [194] + 0.00 0.00 101492/129167539 u_race [89] +----------------------------------------------- + 0.03 0.00 884940/5985780 itoa10 [338] + 0.20 0.00 5100840/5985780 itoa36 [116] +[107] 0.7 0.23 0.00 5985780 itoab [107] +----------------------------------------------- + 0.00 0.00 41086/2006524 cr_order [489] + 0.01 0.04 494960/2006524 buforder [201] + 0.04 0.13 1470478/2006524 write_order [121] +[108] 0.7 0.05 0.18 2006524 get_command [108] + 0.05 0.05 2006524/24887945 locale_string [27] + 0.07 0.00 3889315/34611296 strlcpy [45] + 0.01 0.00 3889315/36653945 wrptr [178] + 0.00 0.00 2006524/2009097 keyword [1355] +----------------------------------------------- + 0.00 0.00 145/1118718 findunitr [991] + 0.00 0.00 754/1118718 createunitid [317] + 0.00 0.00 1794/1118718 remove_unit [499] + 0.00 0.00 5523/1118718 newunitid [319] + 0.04 0.00 221899/1118718 findunitg [279] + 0.17 0.01 888603/1118718 findunit [123] +[109] 0.7 0.22 0.01 1118718 ufindhash [109] + 0.01 0.00 1118718/2903884 jenkins_hash [439] +----------------------------------------------- + 0.00 0.00 3232/4488684 cr_output_resources [238] + 0.00 0.00 50896/4488684 write_translations [689] + 0.01 0.21 4434556/4488684 translate [75] +[110] 0.6 0.01 0.22 4488684 crtag [110] + 0.11 0.11 4488684/24887945 locale_string [27] + 0.00 0.00 1/5588 get_locale [884] +----------------------------------------------- + 0.01 0.21 180598/180598 report_plaintext [4] +[111] 0.6 0.01 0.21 180598 nr_ship [111] + 0.08 0.00 180598/2742237 paragraph [26] + 0.06 0.00 180598/1766225 nr_curses [48] + 0.03 0.00 18693/47902 getshipweight [212] + 0.01 0.01 373674/24887945 locale_string [27] + 0.01 0.00 532232/34611296 strlcpy [45] + 0.00 0.01 180598/1065211 shipname [290] + 0.00 0.00 18693/47887 shipcapacity [567] + 0.00 0.00 743981/36653945 wrptr [178] + 0.00 0.00 180598/2494242 newline [594] + 0.00 0.00 30150/30150 ship_damage_percent [1482] +----------------------------------------------- + +[112] 0.6 0.22 0.00 ql_advance [112] +----------------------------------------------- + 0.00 0.00 41255/3780355 log_orders [251] + 0.02 0.20 3739100/3780355 rp_messages [36] +[113] 0.6 0.02 0.20 3780355 nr_section [113] + 0.11 0.09 3780355/5168717 nrt_find [98] +----------------------------------------------- + 0.00 0.00 1/12246335 unit_max_hp [136] + 0.00 0.00 1/12246335 sp_holyground [1068] + 0.00 0.00 1/12246335 monthly_healing [215] + 0.00 0.00 1/12246335 spawn_undead [629] + 0.00 0.00 2/12246335 sp_charmingsong [993] + 0.00 0.00 2/12246335 sp_generous [1040] + 0.00 0.00 2/12246335 sp_enterastral [1045] + 0.00 0.00 2/12246335 shipcurse_flyingship [1072] + 0.00 0.00 3/12246335 sp_song_of_peace [939] + 0.00 0.00 3/12246335 sp_eternizewall [988] + 0.00 0.00 3/12246335 init_rules [1272] + 0.00 0.00 3/12246335 skilldiff [166] + 0.00 0.00 4/12246335 sp_goodwinds [974] + 0.00 0.00 6/12246335 forget_cmd [1093] + 0.00 0.00 9/12246335 is_freezing [1088] + 0.00 0.00 13/12246335 sp_blessedharvest [847] + 0.00 0.00 15/12246335 age_stonecircle [1021] + 0.00 0.00 17/12246335 produce [29] + 0.00 0.00 17/12246335 process [7] + 0.00 0.00 17/12246335 magic [157] + 0.00 0.00 22/12246335 drifting_ships [490] + 0.00 0.00 27/12246335 sp_stormwinds [871] + 0.00 0.00 34/12246335 sp_viewreality [784] + 0.00 0.00 99/12246335 report_template [87] + 0.00 0.00 349/12246335 can_give_men [940] + 0.00 0.00 406/12246335 make_fighter [424] + 0.00 0.00 450/12246335 spellpower [1000] + 0.00 0.00 452/12246335 fumble [973] + 0.00 0.00 488/12246335 give_men [857] + 0.00 0.00 508/12246335 regenerate_aura [346] + 0.00 0.00 1689/12246335 recruit [650] + 0.00 0.00 2815/12246335 count_faction [219] + 0.00 0.00 4020/12246335 curse_read [770] + 0.00 0.00 5358/12246335 max_spellpoints [755] + 0.00 0.00 5380/12246335 teach_cmd [272] + 0.00 0.00 5948/12246335 deathcounts [843] + 0.00 0.00 8515/12246335 describe [35] + 0.00 0.00 8573/12246335 magic_resistance [727] + 0.00 0.00 9250/12246335 movement_speed [155] + 0.00 0.00 16560/12246335 entertain_cmd [665] + 0.00 0.00 29173/12246335 horses [330] + 0.00 0.00 32649/12246335 growing_trees [624] + 0.00 0.00 37300/12246335 cr_output_region [10] + 0.00 0.00 39858/12246335 sail [181] + 0.00 0.00 67682/12246335 shipspeed [669] + 0.00 0.00 91155/12246335 godcurse [405] + 0.00 0.00 91483/12246335 orc_growth [370] + 0.00 0.00 94865/12246335 ageing [185] + 0.00 0.00 104368/12246335 roadto [606] + 0.00 0.00 159633/12246335 entertainmoney [643] + 0.00 0.00 169917/12246335 study_cmd [105] + 0.00 0.00 173175/12246335 can_survive [640] + 0.00 0.00 178254/12246335 maintain_buildings [339] + 0.00 0.00 282968/12246335 move_blocked [283] + 0.01 0.00 669051/12246335 production [417] + 0.01 0.00 733941/12246335 default_wage [173] + 0.02 0.00 1017568/12246335 report_items [103] + 0.02 0.00 1174371/12246335 terrain_name [226] + 0.12 0.00 7027859/12246335 att_modification [90] +[114] 0.6 0.21 0.00 12246335 ct_find [114] +----------------------------------------------- + 0.00 0.00 1/11241829 age_stonecircle [1021] + 0.00 0.00 4/11241829 claim_cmd [1242] + 0.00 0.00 26/11241829 gift_items [891] + 0.00 0.00 121/11241829 tolua_unit_add_item [1103] + 0.00 0.00 129/11241829 create_potion [821] + 0.00 0.00 306/11241829 manufacture [759] + 0.00 0.00 340/11241829 aftermath [701] + 0.00 0.00 1091/11241829 loot_items [810] + 0.00 0.00 2825/11241829 split_allocations [743] + 0.00 0.00 3221/11241829 terminate [242] + 0.00 0.00 5896/11241829 herbsearch [493] + 0.00 0.00 12859/11241829 breedhorses [742] + 0.00 0.00 22496/11241829 rotting_herbs [284] + 0.00 0.00 93119/11241829 give_item [126] + 0.01 0.00 282676/11241829 expandselling [93] + 0.01 0.00 347340/11241829 statistics [70] + 0.01 0.00 448447/11241829 read_items [320] + 0.01 0.00 788812/11241829 expandbuying [49] + 0.17 0.00 9232120/11241829 res_changeitem [101] +[115] 0.6 0.21 0.00 11241829 i_change [115] + 0.00 0.00 735776/822780 i_new [1375] + 0.00 0.00 98482/374425 i_free [1400] +----------------------------------------------- + 0.00 0.00 1/5100840 give_men [857] + 0.00 0.00 2/5100840 new_ship [1229] + 0.00 0.00 5/5100840 factionorders [983] + 0.00 0.00 11/5100840 new_building [1059] + 0.00 0.00 52/5100840 update_nmrs [1155] + 0.00 0.00 232/5100840 write_script [853] + 0.00 0.00 232/5100840 writepasswd [1074] + 0.00 0.00 233/5100840 readfaction [767] + 0.00 0.00 462/5100840 score [23] + 0.00 0.00 559/5100840 write_reports [3] + 0.00 0.00 1196/5100840 create_order [341] + 0.00 0.00 2008/5100840 default_name [851] + 0.00 0.00 17417/5100840 teach_cmd [272] + 0.00 0.00 18788/5100840 sideabkz [745] + 0.00 0.00 25857/5100840 eval_int36 [729] + 0.00 0.00 52225/5100840 report_template [87] + 0.00 0.00 56643/5100840 groupid [698] + 0.00 0.01 180818/5100840 write_buildingname [622] + 0.00 0.04 1065211/5100840 write_shipname [291] + 0.00 0.05 1295787/5100840 factionname [247] + 0.00 0.09 2383101/5100840 write_unitname [148] +[116] 0.6 0.00 0.20 5100840 itoa36 [116] + 0.20 0.00 5100840/5985780 itoab [107] +----------------------------------------------- + 0.00 0.00 1/1481407 tolua_unit_add_order [1276] + 0.00 0.00 47/1481407 give_peasants [1060] + 0.00 0.00 136/1481407 make_movement_order [522] + 0.00 0.00 232/1481407 defaultorders [249] + 0.01 0.07 606357/1481407 read_unit [74] + 0.01 0.10 874634/1481407 unitorders [46] +[117] 0.6 0.02 0.17 1481407 parse_order [117] + 0.04 0.04 1481407/1929215 create_order_i [175] + 0.00 0.05 1505792/2066777 parse_token_depr [220] + 0.03 0.02 1481407/1481616 get_keyword [274] + 0.00 0.00 24385/534930 isparam [668] +----------------------------------------------- + 0.00 0.00 22644/2248440 new_border [705] + 0.19 0.00 2225796/2248440 get_borders [120] +[118] 0.5 0.19 0.00 2248440 get_borders_i [118] +----------------------------------------------- + +[119] 0.5 0.19 0.00 bin_r_int_pak [119] +----------------------------------------------- + 0.00 0.00 22/2225796 rsetroad [1152] + 0.00 0.01 106203/2225796 travel_route [147] + 0.00 0.01 113487/2225796 next_region [601] + 0.00 0.01 143730/2225796 rroad [508] + 0.00 0.03 300501/2225796 move_blocked [283] + 0.00 0.06 765959/2225796 describe [35] + 0.00 0.07 795894/2225796 cr_borders [135] +[120] 0.5 0.00 0.19 2225796 get_borders [120] + 0.19 0.00 2225796/2248440 get_borders_i [118] +----------------------------------------------- + 0.00 0.01 123513/1470505 eval_order [472] + 0.00 0.01 128725/1470505 report_template [87] + 0.01 0.07 607926/1470505 writeorder [208] + 0.01 0.07 610341/1470505 stream_order [167] +[121] 0.5 0.02 0.17 1470505 write_order [121] + 0.04 0.13 1470478/2006524 get_command [108] +----------------------------------------------- + 0.00 0.00 8/2934859 sp_summon_familiar [1025] + 0.00 0.00 17/2934859 recruit_dracoids [837] + 0.00 0.00 44/2934859 plan_monsters [52] + 0.00 0.00 48/2934859 spy_message [1038] + 0.00 0.00 58/2934859 create_data [252] + 0.00 0.00 119/2934859 plan_dragon [273] + 0.00 0.00 20072/2934859 cr_skill [672] + 0.00 0.00 40099/2934859 eval_skill [671] + 0.00 0.02 317467/2934859 monster_learn [269] + 0.00 0.04 603246/2934859 cr_output_unit [19] + 0.01 0.12 1953681/2934859 spskill [53] +[122] 0.5 0.01 0.18 2934859 skillname [122] + 0.07 0.07 2934859/24887945 locale_string [27] + 0.01 0.03 2934859/4133717 mkname [261] +----------------------------------------------- + 0.00 0.00 1/888603 tolua_get_unit [1254] + 0.00 0.00 16/888603 verify_unit [1028] + 0.00 0.00 20/888603 restack_units [353] + 0.00 0.00 147/888603 contact_cmd [965] + 0.00 0.00 900/888603 follow_unit [331] + 0.00 0.00 9926/888603 resolve_unit [703] + 0.00 0.06 282468/888603 getunit [205] + 0.00 0.12 595125/888603 read_unit [74] +[123] 0.5 0.00 0.18 888603 findunit [123] + 0.17 0.01 888603/1118718 ufindhash [109] +----------------------------------------------- + +[124] 0.5 0.18 0.00 fs_write [124] +----------------------------------------------- + 0.00 0.00 54318/5387327 getstrtoken [710] + 0.02 0.01 984476/5387327 unitorders [46] + 0.05 0.02 2066777/5387327 parse_token_depr [220] + 0.06 0.02 2281756/5387327 gettoken [195] +[125] 0.5 0.13 0.05 5387327 parse_token [125] + 0.05 0.00 5306964/5329742 eatwhitespace_c [255] + 0.00 0.00 85158/46391457 unicode_utf8_to_ucs4 [177] +----------------------------------------------- + 0.00 0.18 95533/95533 give_cmd [102] +[126] 0.5 0.00 0.18 95533 give_item [126] + 0.02 0.06 93824/860263 use_pooled [39] + 0.01 0.04 95533/541982 get_pooled [104] + 0.01 0.02 94308/94420 add_give [379] + 0.02 0.00 51003/51003 give_money [484] + 0.01 0.00 283665/283711 item2resource [561] + 0.00 0.00 93119/11241829 i_change [115] + 0.00 0.00 41876/41882 GiveRestriction [836] + 0.00 0.00 93119/93119 give_quota [858] + 0.00 0.00 1225/41248 msg_feedback [647] + 0.00 0.00 1225/392959 add_message [434] + 0.00 0.00 2364/4851739 get_reservation [281] + 0.00 0.00 1761/1761 give_horses [1108] + 0.00 0.00 186260/1342832 handle_event [1363] + 0.00 0.00 93119/93120 change_reservation [1441] + 0.00 0.00 1225/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 2/6010308 claim_cmd [1242] + 0.00 0.00 11/6010308 build_road [950] + 0.00 0.00 1356/6010308 build [691] + 0.00 0.00 18400/6010308 give_cmd [102] + 0.02 0.00 595476/6010308 rotting_herbs [284] + 0.15 0.00 5395063/6010308 i_get [130] +[127] 0.5 0.17 0.00 6010308 i_find [127] +----------------------------------------------- + 0.03 0.01 178254/713016 enter_2 [295] + 0.09 0.03 534762/713016 enter_1 [145] +[128] 0.5 0.12 0.05 713016 do_enter [128] + 0.04 0.00 4529361/55492327 getkeyword [54] + 0.00 0.00 405/405 enter_building [695] + 0.00 0.00 222/222 enter_ship [733] + 0.00 0.00 639/228907 getid [483] + 0.00 0.00 639/2281756 gettoken [195] + 0.00 0.00 639/6530 findparam_ex [926] + 0.00 0.00 639/1027665 init_order [613] + 0.00 0.00 514/1936876 free_order [1356] +----------------------------------------------- + 0.01 0.15 105106/105106 plan_monsters [52] +[129] 0.5 0.01 0.15 105106 monster_move [129] + 0.00 0.11 84017/84017 random_neighbour [153] + 0.00 0.02 83723/83859 reduce_weight [404] + 0.00 0.01 83723/447808 create_order [341] + 0.00 0.00 83723/24887945 locale_string [27] + 0.00 0.00 84047/71815034 get_race [12] + 0.00 0.00 105106/1121103 monster_is_waiting [407] + 0.00 0.00 168094/129167539 u_race [89] + 0.00 0.00 30/30 treeman_neighbour [1201] +----------------------------------------------- + 0.00 0.00 4/5395063 damage_unit [1044] + 0.00 0.00 59/5395063 reshow_other [823] + 0.00 0.00 118/5395063 steal_cmd [766] + 0.00 0.00 170/5395063 breedhorses [742] + 0.00 0.00 225/5395063 spellpower [1000] + 0.00 0.00 242/5395063 canfly [1031] + 0.00 0.00 372/5395063 bewegung_blockiert_von [631] + 0.00 0.00 2594/5395063 make_fighter [424] + 0.00 0.00 2938/5395063 allocate_resource [752] + 0.00 0.00 5358/5395063 max_spellpoints [755] + 0.00 0.00 7957/5395063 magic_resistance [727] + 0.00 0.00 10900/5395063 terminate [242] + 0.00 0.00 47287/5395063 canswim [682] + 0.00 0.00 83224/5395063 trollbelts [677] + 0.00 0.00 85655/5395063 movement_speed [155] + 0.00 0.00 96637/5395063 walkingcapacity [403] + 0.00 0.01 279395/5395063 weight [459] + 0.00 0.02 566190/5395063 invisible [139] + 0.00 0.02 703334/5395063 make_summary [21] + 0.01 0.10 3502404/5395063 item_invis [149] +[130] 0.5 0.01 0.15 5395063 i_get [130] + 0.15 0.00 5395063/6010308 i_find [127] +----------------------------------------------- + 0.00 0.16 363071/363071 attack [84] +[131] 0.5 0.00 0.16 363071 hits [131] + 0.00 0.10 353422/353422 skilldiff [166] + 0.01 0.04 726142/1662377 get_unitrow [154] + 0.00 0.00 353422/353422 contest [654] + 0.00 0.00 706844/868104 select_armor [700] + 0.00 0.00 363071/1218663 select_weapon [1367] + 0.00 0.00 363071/619425 getreload [1385] +----------------------------------------------- + 0.00 0.00 1/967784 sp_holyground [1068] + 0.00 0.00 1/967784 sp_summonshadowlords [1034] + 0.00 0.00 1/967784 sp_generous [1040] + 0.00 0.00 1/967784 do_battle [64] + 0.00 0.00 1/967784 breedtrees [1148] + 0.00 0.00 1/967784 promotion_cmd [917] + 0.00 0.00 1/967784 age_stonecircle [1021] + 0.00 0.00 1/967784 verify_building [1255] + 0.00 0.00 1/967784 cast_cmd [760] + 0.00 0.00 1/967784 sp_flying_ship [1064] + 0.00 0.00 1/967784 use_skillpotion [1233] + 0.00 0.00 2/967784 sp_summon_familiar [1025] + 0.00 0.00 2/967784 sp_bloodsacrifice [1209] + 0.00 0.00 2/967784 sp_charmingsong [993] + 0.00 0.00 2/967784 sp_viewreality [784] + 0.00 0.00 2/967784 magic [157] + 0.00 0.00 2/967784 create_icebergs [538] + 0.00 0.00 2/967784 make_wormhole [1150] + 0.00 0.00 2/967784 summon_allies [925] + 0.00 0.00 3/967784 wormhole_age [1130] + 0.00 0.00 3/967784 sp_eternizewall [988] + 0.00 0.00 3/967784 report_failed_spell [1187] + 0.00 0.00 3/967784 begin_potion [1096] + 0.00 0.00 3/967784 give_control_cmd [287] + 0.00 0.00 3/967784 drown [394] + 0.00 0.00 3/967784 melt_iceberg [1082] + 0.00 0.00 3/967784 use_healingpotion [1119] + 0.00 0.00 4/967784 caught_target [1003] + 0.00 0.00 4/967784 movement_error [1193] + 0.00 0.00 4/967784 sp_goodwinds [974] + 0.00 0.00 4/967784 sp_enterastral [1045] + 0.00 0.00 4/967784 terminate [242] + 0.00 0.00 4/967784 give_men [857] + 0.00 0.00 4/967784 quit [276] + 0.00 0.00 4/967784 move_iceberg [1094] + 0.00 0.00 4/967784 factionorders [983] + 0.00 0.00 5/967784 sp_song_of_peace [939] + 0.00 0.00 6/967784 spy_cmd [990] + 0.00 0.00 6/967784 cinfo_skillmod [1192] + 0.00 0.00 7/967784 sp_healing [989] + 0.00 0.00 9/967784 sp_stormwinds [871] + 0.00 0.00 10/967784 spawn_dragons [411] + 0.00 0.00 12/967784 drifting_ships [490] + 0.00 0.00 12/967784 sp_mallornhain [968] + 0.00 0.00 12/967784 sp_summonundead [896] + 0.00 0.00 12/967784 forget_cmd [1093] + 0.00 0.00 13/967784 volcano_destruction [1022] + 0.00 0.00 15/967784 do_fumble [1062] + 0.00 0.00 18/967784 sp_hain [931] + 0.00 0.00 18/967784 do_attack [80] + 0.00 0.00 18/967784 attack_firesword [785] + 0.00 0.00 21/967784 sp_kampfzauber [957] + 0.00 0.00 21/967784 build_road [950] + 0.00 0.00 22/967784 spy_message [1038] + 0.00 0.00 24/967784 nmr_warnings [878] + 0.00 0.00 24/967784 cinfo_slave [1118] + 0.00 0.00 26/967784 sp_blessedharvest [847] + 0.00 0.00 28/967784 cinfo_speed [1110] + 0.00 0.00 30/967784 steal_cmd [766] + 0.00 0.00 32/967784 travel_i [92] + 0.00 0.00 37/967784 volcano_update [981] + 0.00 0.00 38/967784 expandstealing [807] + 0.00 0.00 39/967784 deliverMail [966] + 0.00 0.00 39/967784 display_item [1054] + 0.00 0.00 39/967784 random_growl [1065] + 0.00 0.00 41/967784 dissolve_units [241] + 0.00 0.00 48/967784 caddmessage [1070] + 0.00 0.00 51/967784 potion_water_of_life [945] + 0.00 0.00 51/967784 chaos [848] + 0.00 0.00 53/967784 sp_dragonodem [627] + 0.00 0.00 56/967784 use_bloodpotion [935] + 0.00 0.00 58/967784 add_recruits [371] + 0.00 0.00 71/967784 disband_men [999] + 0.00 0.00 88/967784 hunger [808] + 0.00 0.00 92/967784 spawn_undead [629] + 0.00 0.00 100/967784 age_reduceproduction [1017] + 0.00 0.00 110/967784 peasants [658] + 0.00 0.00 115/967784 build_ship [839] + 0.00 0.00 120/967784 plagues [781] + 0.00 0.00 129/967784 create_potion [821] + 0.00 0.00 163/967784 cinfo_shipnodrift [997] + 0.00 0.00 170/967784 breedhorses [742] + 0.00 0.00 174/967784 cinfo_magicrunes [996] + 0.00 0.00 306/967784 manufacture [759] + 0.00 0.00 325/967784 mail_cmd [844] + 0.00 0.00 345/967784 end_potion [814] + 0.00 0.00 349/967784 research_cmd [886] + 0.00 0.00 395/967784 reportcasualties [881] + 0.00 0.00 490/967784 build_building [696] + 0.00 0.00 508/967784 regenerate_aura [346] + 0.00 0.00 567/967784 eaten_by_monster [468] + 0.00 0.00 614/967784 print_fighters [616] + 0.00 0.00 676/967784 rp_battles [618] + 0.00 0.00 679/967784 print_header [838] + 0.00 0.00 681/967784 absorbed_by_monster [804] + 0.00 0.00 1080/967784 report_plaintext [4] + 0.00 0.00 1911/967784 cinfo_magicresistance [824] + 0.00 0.00 1992/967784 aftermath [701] + 0.00 0.00 2069/967784 nr_curses_i [401] + 0.00 0.00 2274/967784 cinfo_ship [812] + 0.00 0.00 2317/967784 print_stats [525] + 0.00 0.00 2594/967784 battle_report [503] + 0.00 0.00 2699/967784 scared_by_monster [380] + 0.00 0.00 2938/967784 split_allocations [743] + 0.00 0.00 5049/967784 piracy_cmd [660] + 0.00 0.00 5810/967784 report_transfer [724] + 0.00 0.00 5907/967784 cinfo_simple [751] + 0.00 0.00 5966/967784 herbsearch [493] + 0.00 0.00 7042/967784 sail [181] + 0.00 0.00 8710/967784 maintain_buildings [339] + 0.00 0.00 11358/967784 expandbuying [49] + 0.00 0.00 12398/967784 fbattlerecord [688] + 0.00 0.00 12448/967784 expandselling [93] + 0.00 0.00 14939/967784 maintain [478] + 0.00 0.00 15359/967784 cinfo_building [686] + 0.00 0.00 20072/967784 study_cmd [105] + 0.00 0.00 34409/967784 add_income [625] + 0.00 0.01 80478/967784 add_give [379] + 0.00 0.01 96460/967784 travel_route [147] + 0.01 0.02 163573/967784 describe [35] + 0.01 0.02 192618/967784 statistics [70] + 0.01 0.03 247009/967784 prices [85] +[132] 0.4 0.03 0.12 967784 msg_message [132] + 0.04 0.02 967784/1010116 mt_find [227] + 0.00 0.06 967784/1009159 msg_create [228] +----------------------------------------------- + 0.00 0.00 923/1351796 name_unit [803] + 0.01 0.14 1350873/1351796 bufunit [17] +[133] 0.4 0.01 0.14 1351796 racename [133] + 0.04 0.03 1460143/24887945 locale_string [27] + 0.01 0.03 1351796/2275429 raceprefix [222] + 0.01 0.01 1351796/2818494 rc_name_s [260] + 0.00 0.00 216694/34611296 strlcpy [45] + 0.00 0.00 108347/4133717 mkname [261] + 0.00 0.00 216694/36653945 wrptr [178] +----------------------------------------------- + 0.00 0.00 12/1375380 volcano_destruction [1022] + 0.01 0.00 127590/1375380 drown [394] + 0.02 0.00 178254/1375380 economics [78] + 0.11 0.01 1069524/1375380 remove_empty_units [146] +[134] 0.4 0.14 0.01 1375380 remove_empty_units_in_region [134] + 0.00 0.00 493/1794 remove_unit [499] + 0.00 0.00 4181205/24935046 faction_alive [451] + 0.00 0.00 7279/71815034 get_race [12] + 0.00 0.00 7279/129167539 u_race [89] +----------------------------------------------- + 0.06 0.09 209572/209572 cr_output_region [10] +[135] 0.4 0.06 0.09 209572 cr_borders [135] + 0.00 0.07 795894/2225796 get_borders [120] + 0.00 0.01 97014/143730 rroad [508] + 0.00 0.00 97017/24887945 locale_string [27] + 0.00 0.00 97017/190469 border_name [641] + 0.00 0.00 51044/369586 r_connect [474] + 0.00 0.00 97017/4133717 mkname [261] + 0.00 0.00 103026/196476 b_finvisible [1417] + 0.00 0.00 103026/196476 b_rvisibleroad [1418] + 0.00 0.00 97017/190467 b_transparent [1420] + 0.00 0.00 12323/26515 b_uinvisible [1487] +----------------------------------------------- + 0.00 0.00 1/1381157 make_familiar [1219] + 0.00 0.00 1/1381157 make_zombie [1267] + 0.00 0.00 2/1381157 summon_allies [925] + 0.00 0.00 4/1381157 heal [1224] + 0.00 0.00 6/1381157 skill_summoned [1032] + 0.00 0.00 8/1381157 age_firedragon [1123] + 0.00 0.00 10/1381157 age_dragon [1098] + 0.00 0.00 14/1381157 age_ghoul [1024] + 0.00 0.00 30/1381157 equip_unit_mask [776] + 0.00 0.00 34/1381157 age_zombie [1019] + 0.00 0.00 38/1381157 age_skeleton [1008] + 0.00 0.00 52/1381157 terminate [242] + 0.00 0.00 92/1381157 spawn_undead [629] + 0.00 0.00 369/1381157 add_recruits [371] + 0.00 0.00 2889/1381157 create_unit [296] + 0.00 0.00 8962/1381157 battle_flee [352] + 0.00 0.06 595454/1381157 monthly_healing [215] + 0.01 0.07 773191/1381157 hp_status [206] +[136] 0.4 0.01 0.13 1381157 unit_max_hp [136] + 0.04 0.06 1381157/12320804 effskill [100] + 0.02 0.00 1366398/10190660 get_curse [143] + 0.00 0.01 1381157/4984610 config_get_int [348] + 0.00 0.00 1381157/129167539 u_race [89] + 0.00 0.00 1366398/5152236 ct_changed [592] + 0.00 0.00 1/12246335 ct_find [114] +----------------------------------------------- + +[137] 0.4 0.14 0.00 fstream_done [137] +----------------------------------------------- + +[138] 0.4 0.14 0.00 ql_get [138] +----------------------------------------------- + 0.00 0.00 12/1753922 spy_cmd [990] + 0.00 0.00 8873/1753922 bewegung_blockiert_von [631] + 0.00 0.00 13580/1753922 cansee_unit [684] + 0.00 0.02 218268/1753922 cansee_durchgezogen [170] + 0.00 0.12 1513189/1753922 cansee [22] +[139] 0.4 0.00 0.14 1753922 invisible [139] + 0.01 0.11 1751202/1751202 item_invis [149] + 0.00 0.02 566190/5395063 i_get [130] + 0.00 0.00 566190/56052475 get_resourcetype [194] +----------------------------------------------- + 0.00 0.14 7179079/7179079 get_modifier [55] +[140] 0.4 0.00 0.14 7179079 rc_skillmod [140] + 0.05 0.03 7179079/7910500 r_isforest [199] + 0.02 0.03 7179079/7179079 skill_mod [264] + 0.01 0.00 7179079/21345834 skill_enabled [365] + 0.00 0.00 469309/12560453 rc_changed [256] + 0.00 0.00 1/71815034 get_race [12] +----------------------------------------------- + 0.01 0.12 113592/113592 report_plaintext [4] +[141] 0.4 0.01 0.12 113592 nr_building [141] + 0.05 0.00 113592/2742237 paragraph [26] + 0.04 0.00 113592/1766225 nr_curses [48] + 0.00 0.01 113592/218422 report_building [397] + 0.01 0.01 227343/24887945 locale_string [27] + 0.00 0.00 260073/34611296 strlcpy [45] + 0.00 0.00 113592/180818 buildingname [621] + 0.00 0.00 373665/36653945 wrptr [178] + 0.00 0.00 113592/2494242 newline [594] + 0.00 0.00 113592/147171 building_finished [1428] +----------------------------------------------- + 0.00 0.00 1/2383101 tolua_unit_tostring [1300] + 0.00 0.00 2/2383101 sp_igjarjuk [923] + 0.00 0.00 40/2383101 write_unit [97] + 0.00 0.00 122/2383101 eval_unit_dative [1076] + 0.00 0.00 75486/2383101 cb_cr_travelthru_unit [466] + 0.00 0.01 159282/2383101 cb_write_travelthru [169] + 0.00 0.04 799425/2383101 eval_unit [223] + 0.01 0.07 1348743/2383101 bufunit [17] +[142] 0.4 0.01 0.12 2383101 unitname [142] + 0.00 0.12 2383101/2383101 write_unitname [148] +----------------------------------------------- + 0.00 0.00 1/10190660 sp_generous [1040] + 0.00 0.00 2/10190660 sp_enterastral [1045] + 0.00 0.00 2/10190660 shipcurse_flyingship [1072] + 0.00 0.00 3/10190660 skilldiff [166] + 0.00 0.00 6/10190660 forget_cmd [1093] + 0.00 0.00 9/10190660 is_freezing [1088] + 0.00 0.00 10/10190660 sp_stormwinds [871] + 0.00 0.00 13/10190660 set_curseingmagician [1265] + 0.00 0.00 15/10190660 age_stonecircle [1021] + 0.00 0.00 17/10190660 produce [29] + 0.00 0.00 17/10190660 process [7] + 0.00 0.00 17/10190660 magic [157] + 0.00 0.00 22/10190660 drifting_ships [490] + 0.00 0.00 34/10190660 sp_viewreality [784] + 0.00 0.00 45/10190660 create_curse [800] + 0.00 0.00 349/10190660 can_give_men [940] + 0.00 0.00 406/10190660 make_fighter [424] + 0.00 0.00 450/10190660 spellpower [1000] + 0.00 0.00 452/10190660 fumble [973] + 0.00 0.00 488/10190660 give_men [857] + 0.00 0.00 508/10190660 regenerate_aura [346] + 0.00 0.00 1689/10190660 recruit [650] + 0.00 0.00 2815/10190660 count_faction [219] + 0.00 0.00 2974/10190660 start_battle [297] + 0.00 0.00 4309/10190660 report_template [87] + 0.00 0.00 5358/10190660 max_spellpoints [755] + 0.00 0.00 5380/10190660 teach_cmd [272] + 0.00 0.00 5948/10190660 deathcounts [843] + 0.00 0.00 7957/10190660 magic_resistance [727] + 0.00 0.00 8515/10190660 describe [35] + 0.00 0.00 9250/10190660 movement_speed [155] + 0.00 0.00 16560/10190660 entertain_cmd [665] + 0.00 0.00 19730/10190660 can_survive [640] + 0.00 0.00 29173/10190660 horses [330] + 0.00 0.00 32649/10190660 growing_trees [624] + 0.00 0.00 37300/10190660 cr_output_region [10] + 0.00 0.00 39858/10190660 sail [181] + 0.00 0.00 46175/10190660 maintain_buildings [339] + 0.00 0.00 67682/10190660 shipspeed [669] + 0.00 0.00 90436/10190660 spawn_undead [629] + 0.00 0.00 91155/10190660 godcurse [405] + 0.00 0.00 91176/10190660 monthly_healing [215] + 0.00 0.00 91483/10190660 orc_growth [370] + 0.00 0.00 94865/10190660 ageing [185] + 0.00 0.00 159633/10190660 entertainmoney [643] + 0.00 0.00 169917/10190660 study_cmd [105] + 0.00 0.00 208736/10190660 roadto [606] + 0.00 0.00 282968/10190660 move_blocked [283] + 0.01 0.00 669051/10190660 production [417] + 0.01 0.00 1017568/10190660 report_items [103] + 0.01 0.00 1041773/10190660 default_wage [173] + 0.01 0.00 1174371/10190660 terrain_name [226] + 0.02 0.00 1366398/10190660 unit_max_hp [136] + 0.04 0.00 3294942/10190660 att_modification [90] +[143] 0.4 0.13 0.00 10190660 get_curse [143] +----------------------------------------------- + 0.00 0.03 102149/386740 cr_output_region [10] + 0.00 0.03 104830/386740 cr_output_building [239] + 0.00 0.06 179761/386740 cr_output_ship [152] +[144] 0.4 0.00 0.13 386740 cr_output_curses_compat [144] + 0.12 0.01 386740/1310373 cr_output_curses [69] +----------------------------------------------- + 0.00 0.12 534762/534762 process [7] +[145] 0.4 0.00 0.12 534762 enter_1 [145] + 0.09 0.03 534762/713016 do_enter [128] +----------------------------------------------- + 0.00 0.02 1/6 reports [2] + 0.00 0.02 1/6 demographics [50] + 0.00 0.02 1/6 quit [276] + 0.00 0.02 1/6 processorders [6] + 0.00 0.02 1/6 magic [157] + 0.00 0.02 1/6 dissolve_units [241] +[146] 0.4 0.01 0.11 6 remove_empty_units [146] + 0.11 0.01 1069524/1375380 remove_empty_units_in_region [134] +----------------------------------------------- + 0.00 0.12 96482/96482 travel_i [92] +[147] 0.4 0.00 0.12 96482 travel_route [147] + 0.00 0.03 96240/103187 cycle_route [375] + 0.00 0.02 96240/109785 move_unit [421] + 0.00 0.01 105958/300501 move_blocked [283] + 0.00 0.01 96460/967784 msg_message [132] + 0.00 0.01 96240/192556 canride [465] + 0.00 0.01 106203/2225796 get_borders [120] + 0.00 0.01 96240/106919 mark_travelthru [610] + 0.00 0.01 9680/9680 bewegung_blockiert_von [631] + 0.00 0.00 96460/392959 add_message [434] + 0.00 0.00 106203/263302 reldirection [528] + 0.00 0.00 105958/71815034 get_race [12] + 0.00 0.00 346411/129167539 u_race [89] + 0.00 0.00 10581/472418 produceexp [322] + 0.00 0.00 192722/337987 setguard [815] + 0.00 0.00 1953/47287 canswim [682] + 0.00 0.00 234/242 canfly [1031] + 0.00 0.00 234/1874928 terrain_name [226] + 0.00 0.00 9/188 is_freezing [1088] + 0.00 0.00 2/15102 cmistake [718] + 0.00 0.00 105958/105958 entrance_allowed [1437] + 0.00 0.00 96460/1009028 msg_release [1373] + 0.00 0.00 96208/96208 var_copy_regions [1439] + 0.00 0.00 1727/744202 has_horses [1378] + 0.00 0.00 1567/59694 r_insectstalled [1446] +----------------------------------------------- + 0.00 0.12 2383101/2383101 unitname [142] +[148] 0.3 0.00 0.12 2383101 write_unitname [148] + 0.00 0.09 2383101/5100840 itoa36 [116] + 0.00 0.03 2383101/3351853 unit_getname [332] + 0.00 0.00 2383101/5461936 slprintf [548] +----------------------------------------------- + 0.01 0.11 1751202/1751202 invisible [139] +[149] 0.3 0.01 0.11 1751202 item_invis [149] + 0.01 0.10 3502404/5395063 i_get [130] + 0.01 0.00 3502404/56052475 get_resourcetype [194] +----------------------------------------------- + 0.01 0.00 1336242/11253756 genrand_real2 [395] + 0.02 0.00 2276433/11253756 scramble [244] + 0.08 0.00 7641081/11253756 genrand_int31 [171] +[150] 0.3 0.12 0.00 11253756 genrand_int32 [150] +----------------------------------------------- + 0.00 0.00 42/771861 loot_cmd [873] + 0.00 0.00 79/771861 can_guard [908] + 0.00 0.00 960/771861 tax_cmd [697] + 0.00 0.00 15347/771861 can_start_guarding [679] + 0.01 0.04 351667/771861 make_summary [21] + 0.01 0.05 403766/771861 is_guardian_r [186] +[151] 0.3 0.02 0.10 771861 armedmen [151] + 0.04 0.06 1327770/12320804 effskill [100] + 0.00 0.00 771861/7417541 urace [436] + 0.00 0.00 2375762/2379316 resource2weapon [1353] +----------------------------------------------- + 0.00 0.12 179761/179761 cr_output_region [10] +[152] 0.3 0.00 0.12 179761 cr_output_ship [152] + 0.00 0.06 179761/386740 cr_output_curses_compat [144] + 0.03 0.00 18850/47902 getshipweight [212] + 0.01 0.01 179761/4434556 translate [75] + 0.00 0.00 179761/24887945 locale_string [27] + 0.00 0.00 18850/47887 shipcapacity [567] + 0.00 0.00 18850/66134 shipspeed [669] + 0.00 0.00 160572/4503145 omniscient [470] +----------------------------------------------- + 0.00 0.11 84017/84017 monster_move [129] +[153] 0.3 0.00 0.11 84017 random_neighbour [153] + 0.02 0.08 742235/742235 room_for_race_in_region [165] + 0.00 0.01 797286/797288 can_survive [640] + 0.00 0.00 742235/129167539 u_race [89] + 0.00 0.00 84017/1087065 get_neighbours [480] + 0.00 0.00 83698/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.00 33/1662377 select_ally [1132] + 0.00 0.00 308/1662377 fighters [1012] + 0.00 0.00 25256/1662377 count_enemies_i [636] + 0.00 0.00 49445/1662377 count_side [666] + 0.01 0.04 726142/1662377 hits [131] + 0.01 0.05 861193/1662377 select_enemy [172] +[154] 0.3 0.02 0.09 1662377 get_unitrow [154] + 0.09 0.00 1390078/1390078 get_row [189] + 0.00 0.00 1662377/4301501 statusrow [550] +----------------------------------------------- + 0.00 0.11 96450/96450 travel_i [92] +[155] 0.3 0.00 0.11 96450 movement_speed [155] + 0.01 0.08 96316/2480226 old_race [14] + 0.00 0.01 96316/192556 canride [465] + 0.00 0.00 75870/1441945 is_mage [262] + 0.00 0.00 85655/5395063 i_get [130] + 0.00 0.00 85655/2858912 get_effect [225] + 0.00 0.00 85655/1177511 it_find [385] + 0.00 0.00 85643/987488 is_astral [479] + 0.00 0.00 278421/129167539 u_race [89] + 0.00 0.00 9250/12246335 ct_find [114] + 0.00 0.00 9250/10190660 get_curse [143] + 0.00 0.00 9/2977 change_effect [982] + 0.00 0.00 1/2426021 get_mage [198] +----------------------------------------------- + +[156] 0.3 0.02 0.09 ql_set_insert_ex [156] + 0.05 0.00 4746218/7252744 cmp_transfer [203] + 0.04 0.00 3573165/3573165 cmp_faction [305] +----------------------------------------------- + 0.01 0.10 1/1 process [7] +[157] 0.3 0.01 0.10 1 magic [157] + 0.01 0.04 1190864/71815034 get_race [12] + 0.00 0.02 1/6 remove_empty_units [146] + 0.00 0.02 595478/1441945 is_mage [262] + 0.01 0.00 1128316/55492327 getkeyword [54] + 0.00 0.00 1190864/129167539 u_race [89] + 0.00 0.00 222/222 cast_cmd [760] + 0.00 0.00 2/2 sp_viewreality [784] + 0.00 0.00 192/273 pay_spell [805] + 0.00 0.00 220/251 cancast [833] + 0.00 0.00 13/13 sp_blessedharvest [847] + 0.00 0.00 220/251 eff_spelllevel [845] + 0.00 0.00 9/9 sp_stormwinds [871] + 0.00 0.00 6/6 sp_summonundead [896] + 0.00 0.00 2062/2831 countspells [903] + 0.00 0.00 3/3 sp_song_of_peace [939] + 0.00 0.00 9/10 sp_hain [931] + 0.00 0.00 6/6 sp_mallornhain [968] + 0.00 0.00 4/4 sp_goodwinds [974] + 0.00 0.00 195/226 fumble [973] + 0.00 0.00 3/3 sp_eternizewall [988] + 0.00 0.00 3/3 sp_charmingsong [993] + 0.00 0.00 196/225 spellpower [1000] + 0.00 0.00 2/2 sp_summon_familiar [1025] + 0.00 0.00 196/196 verify_targets [1027] + 0.00 0.00 1/1 sp_summonshadowlords [1034] + 0.00 0.00 1/1 sp_generous [1040] + 0.00 0.00 1/1 sp_enterastral [1045] + 0.00 0.00 152/472418 produceexp [322] + 0.00 0.00 8/8 do_fumble [1062] + 0.00 0.00 1/1 sp_flying_ship [1064] + 0.00 0.00 1/1 sp_holyground [1068] + 0.00 0.00 2/2 sp_bloodsacrifice [1209] + 0.00 0.00 196/499 MagicPower [1195] + 0.00 0.00 2/967784 msg_message [132] + 0.00 0.00 17/12246335 ct_find [114] + 0.00 0.00 17/10190660 get_curse [143] + 0.00 0.00 2/392959 add_message [434] + 0.00 0.00 17/4201030 curse_active [543] + 0.00 0.00 1/1 sp_seduce [1336] + 0.00 0.00 8501/59694 r_insectstalled [1446] + 0.00 0.00 220/229 add_castorder [1626] + 0.00 0.00 220/608 co_get_region [1594] + 0.00 0.00 119/121 lua_callspell [1645] + 0.00 0.00 99/99 spl_costtyp [1650] + 0.00 0.00 17/651711 oldcursename [1381] + 0.00 0.00 9/3717 free_castorders [1541] + 0.00 0.00 2/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 28167/10103290 cr_output_curses [69] + 0.00 0.00 35101/10103290 cr_output_spells [639] + 0.01 0.00 610341/10103290 stream_order [167] + 0.10 0.00 9429681/10103290 cr_output_unit [19] +[158] 0.3 0.11 0.00 10103290 stream_printf [158] +----------------------------------------------- + +[159] 0.3 0.11 0.00 fs_writeln [159] +----------------------------------------------- + 0.01 0.10 363135/363135 attack [84] +[160] 0.3 0.01 0.10 363135 select_opponent [160] + 0.03 0.07 363135/372173 select_enemy [172] + 0.00 0.00 363135/129167539 u_race [89] +----------------------------------------------- + 0.00 0.02 146950/950595 f_regionid_s [477] + 0.01 0.08 803645/950595 describe [35] +[161] 0.3 0.01 0.10 950595 f_regionid [161] + 0.01 0.04 950595/1552289 rname [200] + 0.03 0.00 950595/1826688 adjust_coordinates [234] + 0.02 0.00 950595/34611296 strlcpy [45] + 0.00 0.00 950595/18647447 getplane [596] + 0.00 0.00 950595/3587241 pnormalize [1350] +----------------------------------------------- + 0.00 0.00 14/1205451 allysfm [1122] + 0.00 0.00 1449/1205451 nmr_warnings [878] + 0.00 0.00 5926/1205451 writefaction [762] + 0.00 0.00 10565/1205451 list_address [635] + 0.01 0.10 1187497/1205451 bufunit [17] +[162] 0.3 0.01 0.10 1205451 alliedfaction [162] + 0.07 0.02 1205451/10375491 alliedgroup [34] +----------------------------------------------- + 0.00 0.00 9680/1188532 bewegung_blockiert_von [631] + 0.00 0.00 9999/1188532 cansee_unit [684] + 0.00 0.02 208440/1188532 cansee_durchgezogen [170] + 0.02 0.07 960413/1188532 cansee [22] +[163] 0.3 0.02 0.09 1188532 eff_stealth [163] + 0.03 0.05 1188531/12320804 effskill [100] + 0.00 0.00 1188531/21345834 skill_enabled [365] + 0.00 0.00 4846/8034 u_geteffstealth [919] +----------------------------------------------- + 0.03 0.08 10375461/10375461 alliedgroup [34] +[164] 0.3 0.03 0.08 10375461 AllianceRestricted [164] + 0.01 0.03 10375461/10383360 HelpMask [288] + 0.01 0.02 10375461/20777534 config_get [224] +----------------------------------------------- + 0.02 0.08 742235/742235 random_neighbour [153] +[165] 0.3 0.02 0.08 742235 room_for_race_in_region [165] + 0.08 0.00 34058224/129167539 u_race [89] +----------------------------------------------- + 0.00 0.10 353422/353422 hits [131] +[166] 0.3 0.00 0.10 353422 skilldiff [166] + 0.02 0.07 706844/860166 weapon_effskill [168] + 0.00 0.01 463903/71815034 get_race [12] + 0.00 0.00 11599/11599 building_protection [708] + 0.00 0.00 464187/129167539 u_race [89] + 0.00 0.00 3/12246335 ct_find [114] + 0.00 0.00 3/10190660 get_curse [143] + 0.00 0.00 3/4201030 curse_active [543] + 0.00 0.00 706844/1218663 select_weapon [1367] +----------------------------------------------- + 0.01 0.09 610341/610341 cr_output_unit [19] +[167] 0.3 0.01 0.09 610341 stream_order [167] + 0.01 0.07 610341/1470505 write_order [121] + 0.01 0.00 610341/618305 escape_string [556] + 0.01 0.00 610341/10103290 stream_printf [158] +----------------------------------------------- + 0.00 0.01 153322/860166 terminate [242] + 0.02 0.07 706844/860166 skilldiff [166] +[168] 0.3 0.02 0.08 860166 weapon_effskill [168] + 0.01 0.05 489652/546579 weapon_skill [221] + 0.00 0.01 120592/137709 CavalryBonus [491] + 0.00 0.01 116873/12320804 skillmod [214] + 0.00 0.00 116873/7417541 urace [436] + 0.00 0.00 1601194/1726748 is_riding [1358] +----------------------------------------------- + 0.00 0.10 1048274/1048274 travelthru_map [41] +[169] 0.3 0.00 0.10 1048274 cb_write_travelthru [169] + 0.01 0.04 1028195/1996097 travelthru_cansee [180] + 0.02 0.00 55063/2742237 paragraph [26] + 0.00 0.02 435946/1065211 shipname [290] + 0.00 0.01 159282/2383101 unitname [142] + 0.00 0.00 35368/24887945 locale_string [27] +----------------------------------------------- + 0.01 0.03 613860/1747682 count_cb [231] + 0.02 0.05 1133822/1747682 travelthru_cansee [180] +[170] 0.3 0.03 0.07 1747682 cansee_durchgezogen [170] + 0.00 0.02 208440/1188532 eff_stealth [163] + 0.00 0.02 218268/1753922 invisible [139] + 0.00 0.02 1394913/6610983 is_guard [211] + 0.00 0.01 172836/12320804 effskill [100] + 0.00 0.00 1747682/129167539 u_race [89] + 0.00 0.00 1394913/4835422 usiege [593] +----------------------------------------------- + 0.00 0.00 1/7641081 select_familiar [1322] + 0.00 0.00 1/7641081 breedtrees [1148] + 0.00 0.00 1/7641081 use_bloodpotion [935] + 0.00 0.00 2/7641081 sp_charmingsong [993] + 0.00 0.00 3/7641081 select_wormhole_regions [909] + 0.00 0.00 6/7641081 randomevents [91] + 0.00 0.00 6/7641081 rrandneighbour [1221] + 0.00 0.00 10/7641081 do_fumble [1062] + 0.00 0.00 12/7641081 volcano_destruction [1022] + 0.00 0.00 13/7641081 newcontainerid [1263] + 0.00 0.00 15/7641081 drift_target [1053] + 0.00 0.00 15/7641081 random_unit [1174] + 0.00 0.00 21/7641081 do_combatspell [702] + 0.00 0.00 24/7641081 equip_unit_mask [776] + 0.00 0.00 25/7641081 treeman_neighbour [1201] + 0.00 0.00 27/7641081 nrand [1232] + 0.00 0.00 29/7641081 select_ally [1132] + 0.00 0.00 29/7641081 move_icebergs [534] + 0.00 0.00 36/7641081 expandloot [816] + 0.00 0.00 37/7641081 move_iceberg [1094] + 0.00 0.00 48/7641081 chaosterrain [1213] + 0.00 0.00 60/7641081 do_recruiting [351] + 0.00 0.00 83/7641081 fumble [973] + 0.00 0.00 92/7641081 dragon_name [1095] + 0.00 0.00 112/7641081 attack_firesword [785] + 0.00 0.00 116/7641081 terraform_default [1165] + 0.00 0.00 170/7641081 use_default [1149] + 0.00 0.00 176/7641081 default_spoil [1144] + 0.00 0.00 182/7641081 age_firedragon [1123] + 0.00 0.00 208/7641081 dracoid_name [1126] + 0.00 0.00 290/7641081 scramble_fighters [1116] + 0.00 0.00 295/7641081 age_dragon [1098] + 0.00 0.00 298/7641081 terraform_region [932] + 0.00 0.00 360/7641081 plan_dragon [273] + 0.00 0.00 412/7641081 piracy_cmd [660] + 0.00 0.00 503/7641081 expandwork [277] + 0.00 0.00 588/7641081 make_name [970] + 0.00 0.00 598/7641081 makename [1084] + 0.00 0.00 648/7641081 volcano_update [981] + 0.00 0.00 653/7641081 age_ghoul [1024] + 0.00 0.00 665/7641081 age_zombie [1019] + 0.00 0.00 725/7641081 age_skeleton [1008] + 0.00 0.00 1279/7641081 scale_number [969] + 0.00 0.00 1281/7641081 leveled_allocation [888] + 0.00 0.00 1596/7641081 attrib_allocation [914] + 0.00 0.00 1918/7641081 spawn_braineaters [505] + 0.00 0.00 2126/7641081 dissolve_units [241] + 0.00 0.00 2204/7641081 loot_items [810] + 0.00 0.00 2818/7641081 newunitid [319] + 0.00 0.00 3890/7641081 chaos [848] + 0.00 0.00 9552/7641081 spawn_undead [629] + 0.00 0.00 11021/7641081 drain_exp [850] + 0.00 0.00 11540/7641081 absorbed_by_monster [804] + 0.00 0.00 13338/7641081 terminate [242] + 0.00 0.00 17902/7641081 make_fighter [424] + 0.00 0.00 18025/7641081 chaos_update [514] + 0.00 0.00 18444/7641081 demon_skillchange [826] + 0.00 0.00 33436/7641081 scareaway [768] + 0.00 0.00 39919/7641081 sail [181] + 0.00 0.00 41004/7641081 dice [787] + 0.00 0.00 47310/7641081 attack [84] + 0.00 0.00 60896/7641081 breedhorses [742] + 0.00 0.00 83698/7641081 random_neighbour [153] + 0.00 0.00 139786/7641081 spawn_dragons [411] + 0.00 0.00 204245/7641081 term_eval [410] + 0.00 0.00 317467/7641081 monster_learn [269] + 0.00 0.00 325282/7641081 eaten_by_monster [468] + 0.00 0.00 325825/7641081 scared_by_monster [380] + 0.00 0.00 361320/7641081 growing_trees [624] + 0.00 0.00 372078/7641081 select_enemy [172] + 0.00 0.00 373896/7641081 contest_classic [655] + 0.00 0.00 403488/7641081 lovar [644] + 0.00 0.01 479588/7641081 learn_skill [471] + 0.00 0.01 889716/7641081 skill_weeks [509] + 0.01 0.03 3017598/7641081 growing_herbs [300] +[171] 0.3 0.02 0.08 7641081 genrand_int31 [171] + 0.08 0.00 7641081/11253756 genrand_int32 [150] +----------------------------------------------- + 0.00 0.00 45/372173 sp_kampfzauber [957] + 0.00 0.00 580/372173 attack_firesword [785] + 0.00 0.00 1100/372173 loot_items [810] + 0.00 0.00 7313/372173 sp_dragonodem [627] + 0.03 0.07 363135/372173 select_opponent [160] +[172] 0.3 0.03 0.07 372173 select_enemy [172] + 0.01 0.05 861193/1662377 get_unitrow [154] + 0.00 0.00 372078/7641081 genrand_int31 [171] + 0.00 0.00 372173/876979 count_enemies [611] + 0.00 0.00 1405349/4301501 statusrow [550] + 0.00 0.00 372173/129167539 u_race [89] +----------------------------------------------- + 0.03 0.07 490896/490896 wage [174] +[173] 0.3 0.03 0.07 490896 default_wage [173] + 0.01 0.02 169490/184870 buildingeffsize [367] + 0.01 0.00 1041773/10190660 get_curse [143] + 0.01 0.00 733941/12246335 ct_find [114] + 0.00 0.01 490896/490901 largestbuilding [651] + 0.00 0.00 125515/71815034 get_race [12] + 0.00 0.00 396300/1106528 is_building_type [554] + 0.00 0.00 307833/51974272 a_find [65] + 0.00 0.00 615666/4201030 curse_active [543] + 0.00 0.00 490896/5152236 ct_changed [592] + 0.00 0.00 426107/508632 rule_blessed_harvest [1327] + 0.00 0.00 426107/515192 is_mourning [1392] + 0.00 0.00 426107/432940 curse_geteffect [1395] +----------------------------------------------- + 0.00 0.00 10477/490896 report_template [87] + 0.00 0.00 10979/490896 do_work [612] + 0.00 0.01 32354/490896 statistics [70] + 0.00 0.01 32670/490896 demographics [50] + 0.00 0.01 36929/490896 cr_output_region [10] + 0.00 0.04 178254/490896 immigration [294] + 0.00 0.04 189233/490896 expandwork [277] +[174] 0.3 0.00 0.10 490896 wage [174] + 0.03 0.07 490896/490896 default_wage [173] +----------------------------------------------- + 0.01 0.01 447808/1929215 create_order [341] + 0.04 0.04 1481407/1929215 parse_order [117] +[175] 0.3 0.05 0.05 1929215 create_order_i [175] + 0.02 0.03 1929215/1929215 create_data [252] + 0.00 0.00 1929215/2124526 locale_index [1354] + 0.00 0.00 1207012/11194781 keyword_disabled [1348] +----------------------------------------------- + 0.00 0.00 78/13102790 eval_weight [1102] + 0.00 0.00 108/13102790 eval_add [1182] + 0.00 0.00 124/13102790 eval_unit_dative [1076] + 0.00 0.00 326/13102790 eval_lt [539] + 0.00 0.00 604/13102790 eval_spell [961] + 0.00 0.00 834/13102790 eval_resources [907] + 0.00 0.00 1196/13102790 eval_localize [922] + 0.00 0.00 3040/13102790 eval_race [882] + 0.00 0.00 19545/13102790 eval_ship [740] + 0.00 0.00 25857/13102790 eval_int36 [729] + 0.00 0.00 40099/13102790 eval_skill [671] + 0.00 0.00 46224/13102790 eval_faction [685] + 0.00 0.00 67213/13102790 eval_building [494] + 0.00 0.00 108560/13102790 eval_trail [634] + 0.00 0.00 116804/13102790 eval_isnull [517] + 0.00 0.00 123513/13102790 eval_order [472] + 0.00 0.00 127674/13102790 eval_trailto [369] + 0.00 0.00 127788/13102790 eval_direction [608] + 0.00 0.00 515550/13102790 eval_region [245] + 0.01 0.00 799427/13102790 eval_unit [223] + 0.01 0.00 883617/13102790 eval_int [268] + 0.01 0.00 941058/13102790 eval_resource [328] + 0.01 0.00 1311128/13102790 eval_eq [398] + 0.01 0.00 1380398/13102790 translate [28] + 0.02 0.00 2530635/13102790 eval_if [393] + 0.03 0.00 3931390/13102790 parse_string [86] +[176] 0.3 0.10 0.00 13102790 opstack_pop [176] +----------------------------------------------- + 0.00 0.00 130/46391457 transliterate [358] + 0.00 0.00 248/46391457 unicode_utf8_strcasecmp [1216] + 0.00 0.00 5132/46391457 eatwhitespace_c [255] + 0.00 0.00 85158/46391457 parse_token [125] + 0.00 0.00 176717/46391457 addtoken [811] + 0.00 0.00 1232688/46391457 findtoken [501] + 0.01 0.00 6696209/46391457 eatwhite [243] + 0.08 0.00 38195175/46391457 getbuf_utf8 [72] +[177] 0.3 0.10 0.00 46391457 unicode_utf8_to_ucs4 [177] +----------------------------------------------- + 0.00 0.00 15/36653945 sp_summon_familiar [1025] + 0.00 0.00 191/36653945 follow_ship [749] + 0.00 0.00 456/36653945 display_race [963] + 0.00 0.00 527/36653945 make_movement_order [522] + 0.00 0.00 1490/36653945 eval_resources [907] + 0.00 0.00 5871/36653945 report_plaintext [4] + 0.00 0.00 7912/36653945 nr_spell_syntax [732] + 0.00 0.00 12000/36653945 nr_spell [507] + 0.00 0.00 19276/36653945 eval_trail [634] + 0.00 0.00 97114/36653945 guards [229] + 0.00 0.00 107804/36653945 report_template [87] + 0.00 0.00 216694/36653945 racename [133] + 0.00 0.00 293954/36653945 show_allies [429] + 0.00 0.00 373665/36653945 nr_building [141] + 0.00 0.00 425391/36653945 create_order [341] + 0.00 0.00 743981/36653945 nr_ship [111] + 0.00 0.00 776314/36653945 prices [85] + 0.01 0.00 1958340/36653945 spskill [53] + 0.01 0.00 3889315/36653945 get_command [108] + 0.01 0.00 4194164/36653945 describe [35] + 0.02 0.00 6078454/36653945 bufunit [17] + 0.05 0.00 17451017/36653945 strlcpy_w [67] +[178] 0.3 0.10 0.00 36653945 wrptr [178] +----------------------------------------------- + 0.03 0.01 9004040/20834979 alliedunit [31] + 0.05 0.01 11830939/20834979 alliedgroup [34] +[179] 0.3 0.08 0.02 20834979 autoalliance [179] + 0.02 0.00 20834975/20836359 f_get_alliance [455] +----------------------------------------------- + 0.00 0.00 94066/1996097 cb_cr_travelthru_unit [466] + 0.01 0.03 873836/1996097 cb_cr_travelthru_ship [204] + 0.01 0.04 1028195/1996097 cb_write_travelthru [169] +[180] 0.3 0.02 0.08 1996097 travelthru_cansee [180] + 0.02 0.05 1133822/1747682 cansee_durchgezogen [170] + 0.01 0.00 1731771/3358315 ship_owner [438] +----------------------------------------------- + 0.01 0.09 7255/7255 move_cmd [66] +[181] 0.3 0.01 0.09 7255 sail [181] + 0.00 0.03 7254/7254 ship_ready [354] + 0.02 0.01 6947/6963 move_ship [374] + 0.00 0.00 39714/300501 move_blocked [283] + 0.00 0.01 42665/252446 movewhere [350] + 0.00 0.00 39731/39810 check_ship_allowed [657] + 0.00 0.00 47093/66134 shipspeed [669] + 0.00 0.00 6947/103187 cycle_route [375] + 0.00 0.00 6947/12933 owner_buildingtyp [676] + 0.00 0.00 42665/54318 getstrtoken [710] + 0.00 0.00 7042/967784 msg_message [132] + 0.00 0.00 6947/560926 bt_find [237] + 0.00 0.00 39858/12246335 ct_find [114] + 0.00 0.00 39926/39926 check_leuchtturm [786] + 0.00 0.00 39919/7641081 genrand_int31 [171] + 0.00 0.00 39858/10190660 get_curse [143] + 0.00 0.00 7043/392959 add_message [434] + 0.00 0.00 4325/4361 can_takeoff [854] + 0.00 0.00 6947/6962 set_coast [875] + 0.00 0.00 1613/9953180 alliedunit [31] + 0.00 0.00 39858/4201030 curse_active [543] + 0.00 0.00 14510/4984610 config_get_int [348] + 0.00 0.00 7273/717218 config_get_flt [714] + 0.00 0.00 191/324 caught_target [1003] + 0.00 0.00 112/15102 cmistake [718] + 0.00 0.00 951/955 movement_error [1193] + 0.00 0.00 8/369586 r_connect [474] + 0.00 0.00 4/12320804 effskill [100] + 0.00 0.00 39909/44216 flying_ship [1465] + 0.00 0.00 39904/40692 get_gamedate [1466] + 0.00 0.00 39714/192815 add_regionlist [1419] + 0.00 0.00 7043/1009028 msg_release [1373] + 0.00 0.00 6947/1291427 set_order [1365] + 0.00 0.00 149/651711 oldcursename [1381] + 0.00 0.00 29/160 damage_ship [1641] +----------------------------------------------- + 0.00 0.09 799/799 process [7] +[182] 0.3 0.00 0.09 799 setstealth_cmd [182] + 0.01 0.08 150/150 set_factionstealth [183] + 0.00 0.00 209/40046 rule_stealth_other [530] + 0.00 0.00 1238/2281756 gettoken [195] + 0.00 0.00 231/338 findrace [1030] + 0.00 0.00 209/1481616 get_keyword [274] + 0.00 0.00 799/1027665 init_order [613] + 0.00 0.00 209/688711 atoi36 [440] + 0.00 0.00 461/1787006 findparam [458] + 0.00 0.00 150/4625636 findfaction [259] + 0.00 0.00 569/569 u_seteffstealth [1199] + 0.00 0.00 231/21345834 skill_enabled [365] + 0.00 0.00 2/12320804 effskill [100] + 0.00 0.00 59/178429 a_removeall [958] + 0.00 0.00 230/154110 rule_stealth_anon [1325] +----------------------------------------------- + 0.01 0.08 150/150 setstealth_cmd [182] +[183] 0.3 0.01 0.08 150 set_factionstealth [183] + 0.00 0.08 856373/4374788 visible_faction [68] + 0.00 0.00 109/1437425 cansee [22] + 0.00 0.00 104/51974272 a_find [65] + 0.00 0.00 2/779419 a_add [555] + 0.00 0.00 2/433 make_otherfaction [1603] +----------------------------------------------- + 0.02 0.07 313244/313244 plan_monsters [52] +[184] 0.3 0.02 0.07 313244 check_overpopulated [184] + 0.07 0.00 29944440/129167539 u_race [89] +----------------------------------------------- + 0.04 0.05 1/1 processorders [6] +[185] 0.3 0.04 0.05 1 ageing [185] + 0.02 0.01 1190908/2858912 get_effect [225] + 0.01 0.00 614764/839202 a_age [418] + 0.00 0.00 178254/178254 age_region [659] + 0.00 0.00 94865/12246335 ct_find [114] + 0.00 0.00 46184/46184 age_building [712] + 0.00 0.00 94865/10190660 get_curse [143] + 0.00 0.00 94865/4201030 curse_active [543] + 0.00 0.00 178254/1613387 rule_region_owners [1323] + 0.00 0.00 614764/1342832 handle_event [1363] + 0.00 0.00 94865/651711 oldcursename [1381] + 0.00 0.00 1/1 age_borders [1789] +----------------------------------------------- + 0.00 0.02 1841323/8452306 is_guarded [377] + 0.02 0.06 6610983/8452306 is_guard [211] +[186] 0.3 0.02 0.07 8452306 is_guardian_r [186] + 0.01 0.05 403766/771861 armedmen [151] + 0.01 0.00 8451974/8506411 besieged [547] + 0.00 0.00 3241/129167539 u_race [89] + 0.00 0.00 913774/1613387 rule_region_owners [1323] +----------------------------------------------- + 0.00 0.00 9/7120688 destroyfaction [392] + 0.00 0.00 43/7120688 plan_dragon [273] + 0.00 0.00 752/7120688 monster_attacks [248] + 0.00 0.00 11448/7120688 all_money [529] + 0.00 0.00 45033/7120688 report_template [87] + 0.00 0.00 106798/7120688 help_feed [678] + 0.00 0.00 174965/7120688 cr_output_unit [19] + 0.01 0.00 1191719/7120688 score [23] + 0.02 0.00 1543013/7120688 make_summary [21] + 0.05 0.01 4046908/7120688 get_food [88] +[187] 0.3 0.08 0.01 7120688 get_money [187] + 0.01 0.00 7120688/56052475 get_resourcetype [194] +----------------------------------------------- + 0.00 0.00 102149/50553492 cr_output_region [10] + 0.04 0.00 21341107/50553492 report_plaintext [4] + 0.05 0.00 29110236/50553492 get_addresses [20] +[188] 0.3 0.09 0.00 50553492 stealth_modifier [188] +----------------------------------------------- + 0.09 0.00 1390078/1390078 get_unitrow [154] +[189] 0.3 0.09 0.00 1390078 get_row [189] +----------------------------------------------- + 0.00 0.00 1/1248014 report_summary [614] + 0.00 0.00 1/1248014 write_planes [1207] + 0.00 0.00 232/1248014 writefaction [762] + 0.04 0.00 534764/1248014 write_game [83] + 0.05 0.00 713016/1248014 make_summary [21] +[190] 0.3 0.09 0.00 1248014 listlen [190] +----------------------------------------------- + 0.09 0.00 297222/297222 render_messages [58] +[191] 0.3 0.09 0.00 297222 fwritestr [191] +----------------------------------------------- + +[192] 0.3 0.09 0.00 qli_more [192] +----------------------------------------------- + 0.00 0.00 224/2624955 give_unit [952] + 0.00 0.00 589/2624955 study_cmd [105] + 0.00 0.00 659/2624955 can_give_men [940] + 0.00 0.00 1758/2624955 give_men [857] + 0.00 0.00 3340/2624955 recruit [650] + 0.00 0.00 5253/2624955 count_skill [868] + 0.01 0.00 187111/2624955 orc_growth [370] + 0.08 0.00 2426021/2624955 get_mage [198] +[193] 0.3 0.09 0.00 2624955 has_skill [193] +----------------------------------------------- + 0.00 0.00 1/56052475 sp_seduce [1336] + 0.00 0.00 1/56052475 plant [1184] + 0.00 0.00 1/56052475 planttrees [1206] + 0.00 0.00 1/56052475 promotion_cmd [917] + 0.00 0.00 2/56052475 breedtrees [1148] + 0.00 0.00 2/56052475 make_summary [21] + 0.00 0.00 5/56052475 set_money [1326] + 0.00 0.00 41/56052475 expandstealing [807] + 0.00 0.00 55/56052475 build_road [950] + 0.00 0.00 99/56052475 report_template [87] + 0.00 0.00 111/56052475 steal_cmd [766] + 0.00 0.00 112/56052475 give_unit [952] + 0.00 0.00 124/56052475 age_stonecircle [1021] + 0.00 0.00 174/56052475 breedhorses [742] + 0.00 0.00 251/56052475 eff_spelllevel [845] + 0.00 0.00 251/56052475 cancast [833] + 0.00 0.00 273/56052475 pay_spell [805] + 0.00 0.00 404/56052475 academy_can_teach [527] + 0.00 0.00 505/56052475 mm_smithy [1203] + 0.00 0.00 521/56052475 breed_cmd [741] + 0.00 0.00 767/56052475 spellcost [995] + 0.00 0.00 1356/56052475 build [691] + 0.00 0.00 3335/56052475 region_setresource [1097] + 0.00 0.00 3340/56052475 do_recruiting [351] + 0.00 0.00 3359/56052475 recruit [650] + 0.00 0.00 3606/56052475 gift_items [891] + 0.00 0.00 3891/56052475 make_fighter [424] + 0.00 0.00 5494/56052475 expandbuying [49] + 0.00 0.00 5877/56052475 allocate_resource [752] + 0.00 0.00 6714/56052475 region_getresource [1058] + 0.00 0.00 7957/56052475 magic_resistance [727] + 0.00 0.00 9680/56052475 bewegung_blockiert_von [631] + 0.00 0.00 15296/56052475 study_cmd [105] + 0.00 0.00 83871/56052475 reduce_weight [404] + 0.00 0.00 93119/56052475 limited_give [879] + 0.00 0.00 96621/56052475 describe [35] + 0.00 0.00 279395/56052475 weight [459] + 0.00 0.00 325282/56052475 eaten_by_monster [468] + 0.00 0.00 350742/56052475 horse_fleeing_bonus [604] + 0.00 0.00 566190/56052475 invisible [139] + 0.00 0.00 577668/56052475 canride [465] + 0.00 0.00 2599554/56052475 change_money [337] + 0.01 0.00 3502404/56052475 item_invis [149] + 0.01 0.00 7120688/56052475 get_money [187] + 0.01 0.00 9703478/56052475 get_reservation [281] + 0.02 0.00 12353561/56052475 report_item [106] + 0.03 0.00 18326296/56052475 golem_factor [265] +[194] 0.2 0.09 0.00 56052475 get_resourcetype [194] + 0.00 0.00 310783/2032164 rt_find [597] +----------------------------------------------- + 0.00 0.00 1/2281756 destroy_road [1230] + 0.00 0.00 3/2281756 claim_cmd [1242] + 0.00 0.00 6/2281756 send_cmd [1202] + 0.00 0.00 12/2281756 forget_cmd [1093] + 0.00 0.00 20/2281756 restack_units [353] + 0.00 0.00 38/2281756 destroy_cmd [1113] + 0.00 0.00 100/2281756 combatspell_cmd [898] + 0.00 0.00 179/2281756 breed_cmd [741] + 0.00 0.00 241/2281756 reshow_cmd [818] + 0.00 0.00 250/2281756 renumber_cmd [780] + 0.00 0.00 262/2281756 defaultorders [249] + 0.00 0.00 286/2281756 factionorders [983] + 0.00 0.00 348/2281756 mail_cmd [844] + 0.00 0.00 378/2281756 recruit [650] + 0.00 0.00 395/2281756 cast_cmd [760] + 0.00 0.00 639/2281756 do_enter [128] + 0.00 0.00 677/2281756 ally_cmd [877] + 0.00 0.00 754/2281756 new_units [282] + 0.00 0.00 900/2281756 use_cmd [763] + 0.00 0.00 1238/2281756 setstealth_cmd [182] + 0.00 0.00 1700/2281756 status_cmd [904] + 0.00 0.00 2013/2281756 display_cmd [859] + 0.00 0.00 3117/2281756 name_cmd [835] + 0.00 0.00 5762/2281756 buy [707] + 0.00 0.00 15176/2281756 make_cmd [383] + 0.00 0.00 31531/2281756 sell [498] + 0.00 0.00 57138/2281756 getint [699] + 0.00 0.00 69432/2281756 getparam [681] + 0.00 0.00 131765/2281756 give_control_cmd [287] + 0.00 0.00 142423/2281756 cycle_route [375] + 0.00 0.00 142776/2281756 reserve_i [213] + 0.00 0.01 209781/2281756 make_route [289] + 0.00 0.01 228907/2281756 getid [483] + 0.00 0.01 231035/2281756 give_cmd [102] + 0.00 0.01 283446/2281756 readorders [43] + 0.00 0.01 284005/2281756 read_unitid [413] + 0.00 0.01 435022/2281756 getskill [387] +[195] 0.2 0.01 0.08 2281756 gettoken [195] + 0.06 0.02 2281756/5387327 parse_token [125] +----------------------------------------------- + 0.01 0.07 301257/301257 render_messages [58] +[196] 0.2 0.01 0.07 301257 cr_render [196] + 0.03 0.01 301257/301257 crt_find [321] + 0.00 0.01 110167/110167 cr_resource [488] + 0.01 0.00 41095/41095 cr_order [489] + 0.00 0.00 133873/133873 cr_region [662] + 0.00 0.00 20072/20072 cr_skill [672] + 0.00 0.00 12407/12407 cr_regions [840] + 0.00 0.00 356/356 cr_race [949] + 0.00 0.00 210/210 cr_resources [960] + 0.00 0.00 279/279 cr_spell [1026] + 0.00 0.00 330438/330438 cr_unit [1403] + 0.00 0.00 279072/279072 cr_int [1406] + 0.00 0.00 31688/31688 cr_building [1481] + 0.00 0.00 23233/23233 cr_faction [1493] + 0.00 0.00 14994/14994 cr_string [1510] + 0.00 0.00 7153/7153 cr_ship [1530] +----------------------------------------------- + 0.00 0.00 36/10852 expandloot [816] + 0.00 0.00 41/10852 expandstealing [807] + 0.00 0.00 663/10852 expandtax [278] + 0.01 0.02 4628/10852 expandselling [93] + 0.02 0.03 5484/10852 expandbuying [49] +[197] 0.2 0.03 0.05 10852 expandorders [197] + 0.03 0.02 10846/10846 scramble [244] + 0.00 0.00 19315/1936876 free_order [1356] +----------------------------------------------- + 0.00 0.00 1/2426021 movement_speed [155] + 0.00 0.00 1/2426021 spy_message [1038] + 0.00 0.00 10/2426021 set_combatspell [1146] + 0.00 0.00 43/2426021 unset_combatspell [1167] + 0.00 0.00 226/2426021 fumble [973] + 0.00 0.00 412/2426021 teach_cmd [272] + 0.00 0.00 443/2426021 change_maxspellpoints [911] + 0.00 0.00 524/2426021 study_cmd [105] + 0.00 0.00 1201/2426021 change_spellpoints [971] + 0.00 0.00 1339/2426021 get_combatspelllevel [880] + 0.00 0.00 1717/2426021 update_spells [381] + 0.00 0.00 1873/2426021 set_spellpoints [933] + 0.00 0.00 2831/2426021 countspells [903] + 0.00 0.00 4875/2426021 get_combatspell [874] + 0.00 0.00 4915/2426021 get_spellpoints [872] + 0.00 0.00 5358/2426021 get_spchange [862] + 0.00 0.00 9493/2426021 spskill [53] + 0.00 0.01 174965/2426021 cr_output_unit [19] + 0.00 0.01 176043/2426021 faction_getmages [382] + 0.00 0.02 597806/2426021 unit_get_spellbook [427] + 0.00 0.05 1441945/2426021 is_mage [262] +[198] 0.2 0.00 0.08 2426021 get_mage [198] + 0.08 0.00 2426021/2624955 has_skill [193] + 0.00 0.00 71414/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 326/7910500 make_fighter [424] + 0.00 0.00 152504/7910500 plain_name [715] + 0.00 0.00 578591/7910500 heal_factor [619] + 0.05 0.03 7179079/7910500 rc_skillmod [140] +[199] 0.2 0.05 0.03 7910500 r_isforest [199] + 0.03 0.00 8199466/10053919 rtrees [302] +----------------------------------------------- + 0.00 0.00 18/1552289 dragon_name [1095] + 0.00 0.00 39/1552289 random_growl [1065] + 0.00 0.00 10477/1552289 report_template [87] + 0.00 0.00 77909/1552289 cr_output_region [10] + 0.01 0.02 513251/1552289 write_regionname [280] + 0.01 0.04 950595/1552289 f_regionid [161] +[200] 0.2 0.02 0.06 1552289 rname [200] + 0.02 0.02 751188/24887945 locale_string [27] + 0.00 0.02 752225/1874928 terrain_name [226] +----------------------------------------------- + 0.00 0.08 494960/494960 bufunit [17] +[201] 0.2 0.00 0.08 494960 buforder [201] + 0.01 0.04 494960/2006524 get_command [108] + 0.00 0.02 989920/17451017 strlcpy_w [67] +----------------------------------------------- + 0.00 0.00 54/13102790 eval_add [1182] + 0.00 0.00 78/13102790 eval_weight [1102] + 0.00 0.00 124/13102790 eval_unit_dative [1076] + 0.00 0.00 163/13102790 eval_lt [539] + 0.00 0.00 604/13102790 eval_spell [961] + 0.00 0.00 834/13102790 eval_resources [907] + 0.00 0.00 1196/13102790 eval_localize [922] + 0.00 0.00 1520/13102790 eval_race [882] + 0.00 0.00 19545/13102790 eval_ship [740] + 0.00 0.00 25857/13102790 eval_int36 [729] + 0.00 0.00 40099/13102790 eval_skill [671] + 0.00 0.00 46224/13102790 eval_faction [685] + 0.00 0.00 67213/13102790 eval_building [494] + 0.00 0.00 108560/13102790 eval_trail [634] + 0.00 0.00 116804/13102790 eval_isnull [517] + 0.00 0.00 123513/13102790 eval_order [472] + 0.00 0.00 127674/13102790 eval_trailto [369] + 0.00 0.00 127788/13102790 eval_direction [608] + 0.00 0.00 470529/13102790 eval_resource [328] + 0.00 0.00 515550/13102790 eval_region [245] + 0.00 0.00 655564/13102790 eval_eq [398] + 0.00 0.00 799427/13102790 eval_unit [223] + 0.01 0.00 832876/13102790 parse_int [649] + 0.01 0.00 843545/13102790 eval_if [393] + 0.01 0.00 883617/13102790 eval_int [268] + 0.02 0.00 2725583/13102790 parse_string [86] + 0.03 0.00 4568249/13102790 parse_symbol [42] +[202] 0.2 0.08 0.00 13102790 opstack_push [202] +----------------------------------------------- + 0.03 0.00 2506526/7252744 ql_set_find_ex [373] + 0.05 0.00 4746218/7252744 ql_set_insert_ex [156] +[203] 0.2 0.08 0.00 7252744 cmp_transfer [203] +----------------------------------------------- + 0.02 0.06 967902/967902 travelthru_map [41] +[204] 0.2 0.02 0.06 967902 cb_cr_travelthru_ship [204] + 0.01 0.03 873836/1996097 travelthru_cansee [180] + 0.00 0.02 434165/1065211 shipname [290] +----------------------------------------------- + 0.00 0.00 16/282847 spy_cmd [990] + 0.00 0.00 65/282847 travel_i [92] + 0.00 0.00 70/282847 transport [1011] + 0.00 0.00 145/282847 init_transportation [384] + 0.00 0.00 1487/282847 start_battle [297] + 0.00 0.00 17577/282847 teach_cmd [272] + 0.00 0.04 131722/282847 give_cmd [102] + 0.00 0.04 131765/282847 give_control_cmd [287] +[205] 0.2 0.00 0.08 282847 getunit [205] + 0.00 0.06 282468/888603 findunit [123] + 0.00 0.02 282847/284005 read_unitid [413] +----------------------------------------------- + 0.00 0.02 174965/773191 cr_output_unit [19] + 0.00 0.06 598226/773191 bufunit [17] +[206] 0.2 0.00 0.08 773191 hp_status [206] + 0.01 0.07 773191/1381157 unit_max_hp [136] + 0.00 0.00 8974/4133717 mkname [261] +----------------------------------------------- + 0.00 0.00 19276/785221 eval_trail [634] + 0.00 0.01 127674/785221 eval_trailto [369] + 0.00 0.06 638271/785221 describe [35] +[207] 0.2 0.00 0.08 785221 trailinto [207] + 0.02 0.02 785221/24887945 locale_string [27] + 0.00 0.02 785221/1874928 terrain_name [226] + 0.01 0.00 785221/34611296 strlcpy [45] + 0.00 0.00 785221/987128 strlcat [1374] +----------------------------------------------- + 0.00 0.08 607926/607926 write_unit [97] +[208] 0.2 0.00 0.08 607926 writeorder [208] + 0.01 0.07 607926/1470505 write_order [121] +----------------------------------------------- + 0.00 0.08 178254/178254 read_game [62] +[209] 0.2 0.00 0.08 178254 readregion [209] + 0.00 0.05 178254/178254 new_region [275] + 0.01 0.00 32679/32727 rsetherbtype [537] + 0.00 0.01 178254/459083 findregion [420] + 0.00 0.01 178254/840577 read_attribs [388] + 0.00 0.00 178254/1206547 findplane [457] + 0.00 0.00 32679/628037 read_items [320] + 0.00 0.00 32679/264251 rsetpeasants [545] + 0.00 0.00 249361/2032164 rt_find [597] + 0.00 0.00 32679/2186159 rsetmoney [553] + 0.00 0.00 217392/217405 r_setdemand [1413] + 0.00 0.00 178254/178311 region_setinfo [1422] + 0.00 0.00 178254/178270 get_terrain [1423] + 0.00 0.00 98037/229715 rsettrees [1410] + 0.00 0.00 32679/257693 rsethorses [1408] + 0.00 0.00 32679/101322 rsetherbs [1438] + 0.00 0.00 32679/32727 region_set_morale [1476] + 0.00 0.00 32679/32679 read_owner [1477] + 0.00 0.00 25441/25441 rmt_find [1490] +----------------------------------------------- + 0.03 0.01 45630/108211 cr_output_resources [238] + 0.03 0.01 62581/108211 describe [35] +[210] 0.2 0.06 0.02 108211 report_resources [210] + 0.01 0.01 207188/12320804 effskill [100] + 0.00 0.00 182290/10053919 rtrees [302] + 0.00 0.00 91145/2605004 rpeasants [435] + 0.00 0.00 91145/4666665 rmoney [452] + 0.00 0.00 59445/9298667 resource2item [546] + 0.00 0.00 348444/348444 report_resource [1402] + 0.00 0.00 91145/1160345 rhorses [1369] + 0.00 0.00 7915/7915 visible_default [1525] +----------------------------------------------- + 0.00 0.00 3/6610983 destroy_road [1230] + 0.00 0.00 10/6610983 get_money_for_dragon [1087] + 0.00 0.00 6102/6610983 make_side [876] + 0.00 0.00 11880/6610983 cansee_unit [684] + 0.00 0.00 12762/6610983 plan_monsters [52] + 0.00 0.00 36821/6610983 allocate_resource [752] + 0.00 0.00 63046/6610983 is_guardian_u [626] + 0.00 0.00 216875/6610983 bewegung_blockiert_von [631] + 0.00 0.01 923633/6610983 cr_output_unit [19] + 0.00 0.01 1211531/6610983 cansee [22] + 0.00 0.02 1348743/6610983 bufunit [17] + 0.00 0.02 1384664/6610983 guards [229] + 0.00 0.02 1394913/6610983 cansee_durchgezogen [170] +[211] 0.2 0.00 0.08 6610983 is_guard [211] + 0.02 0.06 6610983/8452306 is_guardian_r [186] + 0.00 0.01 329691/329691 getguard [652] +----------------------------------------------- + 0.00 0.00 15/47902 overload [1002] + 0.02 0.00 10344/47902 cansail [469] + 0.03 0.00 18693/47902 nr_ship [111] + 0.03 0.00 18850/47902 cr_output_ship [152] +[212] 0.2 0.07 0.00 47902 getshipweight [212] + 0.00 0.00 70174/279395 weight [459] +----------------------------------------------- + 0.00 0.04 35708/71416 reserve_cmd [324] + 0.00 0.04 35708/71416 reserve_self [325] +[213] 0.2 0.00 0.07 71416 reserve_i [213] + 0.01 0.05 71328/860263 use_pooled [39] + 0.00 0.00 142776/2281756 gettoken [195] + 0.00 0.00 68977/931076 change_resource [240] + 0.00 0.00 31520/57138 getint [699] + 0.00 0.00 71388/1787006 findparam [458] + 0.00 0.00 71388/1027665 init_order [613] + 0.00 0.00 71364/191379 finditemtype [735] + 0.00 0.00 71390/7417541 urace [436] + 0.00 0.00 4/8302761 get_resource [99] + 0.00 0.00 140305/140305 set_resvalue [1430] + 0.00 0.00 71388/203117 atoip [1416] +----------------------------------------------- + 7179079 get_modifier [55] + 0.00 0.00 377/12320804 manufacture [759] + 0.00 0.00 1705/12320804 build [691] + 0.00 0.01 116873/12320804 weapon_effskill [168] +[214] 0.2 0.01 0.06 7298034 skillmod [214] + 0.06 0.00 7298034/51974272 a_find [65] + 0.00 0.00 8/8 mod_elves_only [1239] + 0.00 0.00 248/248 sm_smithy [1613] + 65155 sm_familiar [520] +----------------------------------------------- + 0.00 0.07 1/1 process [7] +[215] 0.2 0.00 0.07 1 monthly_healing [215] + 0.00 0.06 595454/1381157 unit_max_hp [136] + 0.00 0.01 578591/578591 heal_factor [619] + 0.00 0.00 595144/129167539 u_race [89] + 0.00 0.00 91176/10190660 get_curse [143] + 0.00 0.00 5206/560926 bt_find [237] + 0.00 0.00 7542/47287 canswim [682] + 0.00 0.00 5206/424669 active_building [560] + 0.00 0.00 2988/752645 chance [495] + 0.00 0.00 1/12246335 ct_find [114] +----------------------------------------------- + +[216] 0.2 0.07 0.00 bin_r_str_buf [216] +----------------------------------------------- + 0.00 0.00 2/760673 new_ship [1229] + 0.00 0.00 13/760673 read_planes [1164] + 0.00 0.00 17/760673 recruit_dracoids [837] + 0.00 0.00 42/760673 loot_cmd [873] + 0.00 0.00 59/760673 steal_cmd [766] + 0.00 0.00 232/760673 defaultorders [249] + 0.00 0.00 406/760673 faction_setorigin [979] + 0.00 0.00 736/760673 monster_attacks [248] + 0.00 0.00 948/760673 tax_cmd [697] + 0.00 0.00 1670/760673 recruit [650] + 0.00 0.00 2889/760673 move_unit [421] + 0.00 0.00 2889/760673 create_unit [296] + 0.00 0.00 5757/760673 buy [707] + 0.00 0.00 7630/760673 addstrlist [769] + 0.00 0.00 12520/760673 sell [498] + 0.01 0.00 113844/760673 translist [430] + 0.02 0.00 178254/760673 new_region [275] + 0.04 0.00 432765/760673 plan_monsters [52] +[217] 0.2 0.07 0.00 760673 addlist [217] +----------------------------------------------- + +[218] 0.2 0.07 0.00 bin_w_int_pak [218] +----------------------------------------------- + 0.00 0.00 45/2247 count_migrants [731] + 0.01 0.00 481/2247 count_units [487] + 0.02 0.00 754/2247 checkunitnumber [402] + 0.03 0.00 967/2247 count_all [357] +[219] 0.2 0.06 0.01 2247 count_faction [219] + 0.01 0.00 3891194/129167539 u_race [89] + 0.00 0.00 2815/12246335 ct_find [114] + 0.00 0.00 2815/10190660 get_curse [143] + 0.00 0.00 2815/4201030 curse_active [543] + 0.00 0.00 2815/651711 oldcursename [1381] +----------------------------------------------- + 0.00 0.02 560985/2066777 create_data [252] + 0.00 0.05 1505792/2066777 parse_order [117] +[220] 0.2 0.00 0.07 2066777 parse_token_depr [220] + 0.05 0.02 2066777/5387327 parse_token [125] +----------------------------------------------- + 0.00 0.01 56927/546579 make_fighter [424] + 0.01 0.05 489652/546579 weapon_effskill [168] +[221] 0.2 0.01 0.06 546579 weapon_skill [221] + 0.02 0.02 551693/12320804 effskill [100] + 0.00 0.01 236296/71815034 get_race [12] + 0.01 0.00 2284/3147 i_canuse [569] + 0.00 0.00 1555209/129167539 u_race [89] +----------------------------------------------- + 0.00 0.02 923633/2275429 cr_output_unit [19] + 0.01 0.03 1351796/2275429 racename [133] +[222] 0.2 0.01 0.06 2275429 raceprefix [222] + 0.03 0.02 2275429/2277350 get_prefix [263] + 0.01 0.00 847828/51974272 a_find [65] +----------------------------------------------- + 0.01 0.06 799427/799427 parse_symbol [42] +[223] 0.2 0.01 0.06 799427 eval_unit [223] + 0.00 0.04 799425/2383101 unitname [142] + 0.01 0.00 799427/13102790 opstack_pop [176] + 0.00 0.00 799427/13102790 opstack_push [202] + 0.00 0.00 799427/13399069 balloc [363] + 0.00 0.00 2/24887945 locale_string [27] +----------------------------------------------- + 0.00 0.00 1/20777534 parse_inifile [1317] + 0.00 0.00 2/20777534 init_locale [948] + 0.00 0.00 2/20777534 default_order [902] + 0.00 0.00 73/20777534 hunger_damage [1223] + 0.00 0.00 279/20777534 MagicPower [1195] + 0.00 0.00 462/20777534 game_name [1168] + 0.00 0.00 1297/20777534 AllianceAuto [535] + 0.00 0.00 16597/20777534 entertain_cmd [665] + 0.01 0.02 10375461/20777534 AllianceRestricted [164] + 0.01 0.02 10383360/20777534 HelpMask [288] +[224] 0.2 0.02 0.05 20777534 config_get [224] + 0.05 0.00 20777534/26776263 get_param [235] +----------------------------------------------- + 0.00 0.00 4/2858912 damage_unit [1044] + 0.00 0.00 11/2858912 build_road [950] + 0.00 0.00 1230/2858912 build [691] + 0.00 0.00 1297/2858912 make_fighter [424] + 0.00 0.00 2938/2858912 allocate_resource [752] + 0.00 0.00 5384/2858912 teach_cmd [272] + 0.00 0.00 43034/2858912 get_food [88] + 0.00 0.00 85655/2858912 movement_speed [155] + 0.00 0.00 96637/2858912 walkingcapacity [403] + 0.01 0.01 595472/2858912 live [73] + 0.01 0.01 836342/2858912 study_cmd [105] + 0.02 0.01 1190908/2858912 ageing [185] +[225] 0.2 0.04 0.02 2858912 get_effect [225] + 0.02 0.00 2858912/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 234/1874928 travel_route [147] + 0.00 0.00 127676/1874928 describe [35] + 0.00 0.01 209572/1874928 cr_output_region [10] + 0.00 0.02 752225/1874928 rname [200] + 0.00 0.02 785221/1874928 trailinto [207] +[226] 0.2 0.01 0.05 1874928 terrain_name [226] + 0.02 0.00 1174371/12246335 ct_find [114] + 0.01 0.00 1174371/10190660 get_curse [143] + 0.01 0.00 1646640/51974272 a_find [65] + 0.00 0.00 1174371/4201030 curse_active [543] + 0.00 0.00 152504/152504 plain_name [715] +----------------------------------------------- + 0.00 0.00 127/1010116 msg_create_message [1080] + 0.00 0.00 957/1010116 parse_messages [832] + 0.00 0.00 41248/1010116 msg_feedback [647] + 0.04 0.02 967784/1010116 msg_message [132] +[227] 0.2 0.04 0.02 1010116 mt_find [227] + 0.02 0.00 1010116/32337529 hashstring [37] +----------------------------------------------- + 0.00 0.00 6/1009159 msg_send_region [1210] + 0.00 0.00 121/1009159 msg_send_faction [1042] + 0.00 0.00 41248/1009159 msg_feedback [647] + 0.00 0.06 967784/1009159 msg_message [132] +[228] 0.2 0.00 0.06 1009159 msg_create [228] + 0.01 0.04 1009159/1009159 log_orders [251] + 0.01 0.00 2481220/2481220 copy_arg [521] +----------------------------------------------- + 0.02 0.04 62581/62581 report_plaintext [4] +[229] 0.2 0.02 0.04 62581 guards [229] + 0.00 0.02 1384664/6610983 is_guard [211] + 0.01 0.00 27498/2742237 paragraph [26] + 0.00 0.01 67332/4374788 visible_faction [68] + 0.00 0.00 60360/24887945 locale_string [27] + 0.00 0.00 97114/34611296 strlcpy [45] + 0.00 0.00 34482/1295787 factionname [247] + 0.00 0.00 97114/36653945 wrptr [178] + 0.00 0.00 27498/2494242 newline [594] +----------------------------------------------- + 0.00 0.06 595478/595478 process [7] +[230] 0.2 0.00 0.06 595478 monster_kills_peasants [230] + 0.01 0.02 325825/325825 scared_by_monster [380] + 0.01 0.01 325282/325282 eaten_by_monster [468] + 0.01 0.00 595478/1121103 monster_is_waiting [407] + 0.00 0.00 1469625/129167539 u_race [89] + 0.00 0.00 11540/11540 absorbed_by_monster [804] +----------------------------------------------- + 0.02 0.04 1054200/1054200 travelthru_map [41] +[231] 0.2 0.02 0.04 1054200 count_cb [231] + 0.01 0.03 613860/1747682 cansee_durchgezogen [170] + 0.01 0.00 875741/3358315 ship_owner [438] +----------------------------------------------- + 0.00 0.00 1/593636 give_control_cmd [287] + 0.00 0.00 1/593636 display_cmd [859] + 0.00 0.00 3/593636 try_rename [1225] + 0.00 0.00 5/593636 name_cmd [835] + 0.00 0.00 6/593636 bewegung_blockiert_von [631] + 0.00 0.00 6/593636 restack_units [353] + 0.00 0.00 26/593636 renumber_cmd [780] + 0.00 0.00 401/593636 mayenter [936] + 0.00 0.00 8710/593636 maintain_buildings [339] + 0.00 0.00 9465/593636 expandselling [93] + 0.00 0.00 11409/593636 lighthouse_range [728] + 0.00 0.00 12521/593636 report_template [87] + 0.00 0.00 21463/593636 maintain [478] + 0.00 0.00 28665/593636 owner_buildingtyp [676] + 0.00 0.00 37894/593636 reorder_units [400] + 0.00 0.00 47440/593636 write_unit [97] + 0.00 0.01 92368/593636 score [23] + 0.00 0.01 104830/593636 cr_output_curses [69] + 0.00 0.01 104830/593636 cr_output_region [10] + 0.00 0.01 113592/593636 nr_curses [48] +[232] 0.2 0.01 0.05 593636 building_owner [232] + 0.05 0.00 209480/209572 building_owner_ex [253] +----------------------------------------------- + 0.00 0.00 39/13259934 display_item [1054] + 0.00 0.00 352/13259934 cr_resources [960] + 0.00 0.00 446/13259934 print_items [938] + 0.00 0.00 628/13259934 add_itemname_cb [980] + 0.00 0.00 648/13259934 add_resourcename_cb [977] + 0.00 0.00 1490/13259934 eval_resources [907] + 0.00 0.00 1539/13259934 report_plaintext [4] + 0.00 0.00 1543/13259934 make_cmd [383] + 0.00 0.00 1876/13259934 report_computer [9] + 0.00 0.00 2073/13259934 cr_output_curses [69] + 0.00 0.00 2096/13259934 a_writeeffect [1073] + 0.00 0.00 3203/13259934 cr_reportspell [756] + 0.00 0.00 3203/13259934 nr_spell [507] + 0.00 0.00 96621/13259934 describe [35] + 0.00 0.00 110167/13259934 cr_resource [488] + 0.00 0.00 169153/13259934 statistics [70] + 0.00 0.00 218078/13259934 cr_output_region [10] + 0.00 0.00 249352/13259934 writeregion [519] + 0.00 0.00 448410/13259934 write_items [511] + 0.00 0.00 470529/13259934 eval_resource [328] + 0.05 0.00 11478488/13259934 report_item [106] +[233] 0.2 0.06 0.00 13259934 resourcename [233] +----------------------------------------------- + 0.00 0.00 493/1826688 report_computer [9] + 0.00 0.00 7499/1826688 cr_regions [840] + 0.00 0.00 10477/1826688 report_template [87] + 0.00 0.00 132705/1826688 cr_region [662] + 0.01 0.00 211668/1826688 cr_output_region [10] + 0.02 0.00 513251/1826688 write_regionname [280] + 0.03 0.00 950595/1826688 f_regionid [161] +[234] 0.2 0.06 0.00 1826688 adjust_coordinates [234] + 0.00 0.00 1785077/1785077 faction_getorigin [1357] + 0.00 0.00 221718/221723 plane_center_x [1411] + 0.00 0.00 221718/221723 plane_center_y [1412] + 0.00 0.00 221718/734392 plane_width [1380] + 0.00 0.00 221718/734392 plane_height [1379] +----------------------------------------------- + 0.00 0.00 88/26776263 hunger_damage [1223] + 0.00 0.00 216069/26776263 check_param [793] + 0.00 0.00 717287/26776263 get_param_flt [713] + 0.01 0.00 5065285/26776263 get_param_int [422] + 0.05 0.00 20777534/26776263 config_get [224] +[235] 0.2 0.06 0.00 26776263 get_param [235] +----------------------------------------------- + 0.00 0.00 39/560965 bt_get_or_create [1114] + 0.06 0.00 560926/560965 bt_find [237] +[236] 0.2 0.06 0.00 560965 bt_find_i [236] +----------------------------------------------- + 0.00 0.00 1/560926 buy [707] + 0.00 0.00 1/560926 breedhorses [742] + 0.00 0.00 1/560926 produce [29] + 0.00 0.00 1/560926 demographics [50] + 0.00 0.00 1/560926 wormholes_update [906] + 0.00 0.00 2/560926 sell [498] + 0.00 0.00 3/560926 expandselling [93] + 0.00 0.00 5/560926 build_road [950] + 0.00 0.00 6/560926 remove_building [1153] + 0.00 0.00 232/560926 prepare_report [8] + 0.00 0.00 322/560926 can_takeoff [854] + 0.00 0.00 1302/560926 academy_can_teach [527] + 0.00 0.00 5206/560926 monthly_healing [215] + 0.00 0.00 6947/560926 sail [181] + 0.00 0.00 9680/560926 bewegung_blockiert_von [631] + 0.00 0.00 31155/560926 statistics [70] + 0.00 0.00 39810/560926 check_ship_allowed [657] + 0.00 0.00 46176/560926 read_game [62] + 0.00 0.04 420075/560926 study_cmd [105] +[237] 0.2 0.00 0.06 560926 bt_find [237] + 0.06 0.00 560926/560965 bt_find_i [236] +----------------------------------------------- + 0.00 0.06 45630/45630 cr_output_region [10] +[238] 0.2 0.00 0.06 45630 cr_output_resources [238] + 0.03 0.01 45630/108211 report_resources [210] + 0.00 0.03 174677/174677 cr_output_resource [378] + 0.00 0.00 91260/10053919 rtrees [302] + 0.00 0.00 3232/4488684 crtag [110] +----------------------------------------------- + 0.00 0.06 104830/104830 cr_output_region [10] +[239] 0.2 0.00 0.06 104830 cr_output_building [239] + 0.00 0.03 104830/386740 cr_output_curses_compat [144] + 0.00 0.01 104830/218422 report_building [397] + 0.00 0.01 104830/4434556 translate [75] + 0.00 0.00 104830/24887945 locale_string [27] +----------------------------------------------- + 0.00 0.00 12/931076 reduce_weight [404] + 0.00 0.00 68977/931076 reserve_i [213] + 0.00 0.05 862087/931076 use_pooled [39] +[240] 0.2 0.00 0.06 931076 change_resource [240] + 0.00 0.03 931076/8302761 get_resource [99] + 0.00 0.02 930757/9232125 res_changeitem [101] + 0.00 0.00 86/443 res_changepermaura [912] + 0.00 0.00 216/1199 res_changeaura [972] + 0.00 0.00 15/15 res_changepeasants [1200] + 0.00 0.00 2/2 res_changehp [1779] +----------------------------------------------- + 0.03 0.03 1/1 randomevents [91] +[241] 0.2 0.03 0.03 1 dissolve_units [241] + 0.00 0.02 1/6 remove_empty_units [146] + 0.01 0.00 595476/51974272 a_find [65] + 0.00 0.00 2126/7641081 genrand_int31 [171] + 0.00 0.00 41/967784 msg_message [132] + 0.00 0.00 41/392959 add_message [434] + 0.00 0.00 19/264251 rsetpeasants [545] + 0.00 0.00 41/3178 scale_number [969] + 0.00 0.00 19/2605004 rpeasants [435] + 0.00 0.00 4/71815034 get_race [12] + 0.00 0.00 45/129167539 u_race [89] + 0.00 0.00 20/10053919 rtrees [302] + 0.00 0.00 41/1009028 msg_release [1373] + 0.00 0.00 20/229715 rsettrees [1410] +----------------------------------------------- + 0.00 0.00 45/80630 sp_kampfzauber [957] + 0.00 0.00 580/80630 attack_firesword [785] + 0.00 0.00 7313/80630 sp_dragonodem [627] + 0.00 0.05 72692/80630 attack [84] +[242] 0.2 0.00 0.05 80630 terminate [242] + 0.00 0.01 153322/860166 weapon_effskill [168] + 0.00 0.02 100532/146997 dice_rand [409] + 0.00 0.00 154155/71815034 get_race [12] + 0.00 0.01 80630/80630 calculate_armor [645] + 0.00 0.00 10897/25088 kill_troop [532] + 0.00 0.00 17117/137709 CavalryBonus [491] + 0.00 0.00 92981/752645 chance [495] + 0.00 0.00 475770/129167539 u_race [89] + 0.00 0.00 39357/1474687 leftship [500] + 0.00 0.00 10900/5395063 i_get [130] + 0.00 0.00 72692/72692 rc_specialdamage [830] + 0.00 0.00 13338/7641081 genrand_int31 [171] + 0.00 0.00 3221/11241829 i_change [115] + 0.00 0.00 52/1381157 unit_max_hp [136] + 0.00 0.00 4/967784 msg_message [132] + 0.00 0.00 4/31214 message_faction [716] + 0.00 0.00 148748/1218663 select_weapon [1367] + 0.00 0.00 80630/1726748 is_riding [1358] + 0.00 0.00 4/1009028 msg_release [1373] +----------------------------------------------- + 0.04 0.01 6241702/6241702 getbuf_utf8 [72] +[243] 0.2 0.04 0.01 6241702 eatwhite [243] + 0.01 0.00 6696209/46391457 unicode_utf8_to_ucs4 [177] +----------------------------------------------- + 0.03 0.02 10846/10846 expandorders [197] +[244] 0.2 0.03 0.02 10846 scramble [244] + 0.02 0.00 2276433/11253756 genrand_int32 [150] +----------------------------------------------- + 0.00 0.05 515550/515550 parse_symbol [42] +[245] 0.2 0.00 0.05 515550 eval_region [245] + 0.00 0.05 515550/515911 write_regionname [280] + 0.00 0.00 515550/13102790 opstack_pop [176] + 0.00 0.00 515550/13102790 opstack_push [202] + 0.00 0.00 515550/13399069 balloc [363] +----------------------------------------------- + 0.03 0.02 1/1 randomevents [91] +[246] 0.2 0.03 0.02 1 demon_skillchanges [246] + 0.00 0.02 595476/71815034 get_race [12] + 0.00 0.00 595476/129167539 u_race [89] + 0.00 0.00 2148/2148 demon_skillchange [826] +----------------------------------------------- + 0.00 0.00 4/1295787 checkpasswd [1268] + 0.00 0.00 5/1295787 tolua_faction_tostring [1257] + 0.00 0.00 230/1295787 report_plaintext [4] + 0.00 0.00 232/1295787 write_reports [3] + 0.00 0.00 251/1295787 out_faction [615] + 0.00 0.00 3111/1295787 sidename [867] + 0.00 0.00 10794/1295787 list_address [635] + 0.00 0.00 34482/1295787 guards [229] + 0.00 0.00 46224/1295787 eval_faction [685] + 0.00 0.00 55330/1295787 show_allies [429] + 0.00 0.05 1145124/1295787 bufunit [17] +[247] 0.2 0.00 0.05 1295787 factionname [247] + 0.00 0.05 1295787/5100840 itoa36 [116] + 0.00 0.00 1295787/5461936 slprintf [548] +----------------------------------------------- + 0.00 0.00 10/160206 get_money_for_dragon [1087] + 0.04 0.01 160196/160206 plan_monsters [52] +[248] 0.1 0.04 0.01 160206 monster_attacks [248] + 0.01 0.00 11080/1437425 cansee [22] + 0.00 0.00 752/752 monster_attack [764] + 0.00 0.00 736/760673 addlist [217] + 0.00 0.00 752/7120688 get_money [187] + 0.00 0.00 1042/1042 in_safe_building [1585] +----------------------------------------------- + 0.03 0.02 1/1 process [7] +[249] 0.1 0.03 0.02 1 defaultorders [249] + 0.01 0.00 1131212/55492327 getkeyword [54] + 0.00 0.01 524/524 remove_exclusive [571] + 0.00 0.00 232/1481407 parse_order [117] + 0.00 0.00 232/760673 addlist [217] + 0.00 0.00 262/2281756 gettoken [195] + 0.00 0.00 262/1027665 init_order [613] + 0.00 0.00 262/1936876 free_order [1356] + 0.00 0.00 1/11194781 keyword_disabled [1348] +----------------------------------------------- + 0.04 0.01 178254/178254 process [7] +[250] 0.1 0.04 0.01 178254 do_contact [250] + 0.01 0.00 1133099/55492327 getkeyword [54] + 0.00 0.00 147/147 contact_cmd [965] +----------------------------------------------- + 0.01 0.04 1009159/1009159 msg_create [228] +[251] 0.1 0.01 0.04 1009159 log_orders [251] + 0.00 0.04 41255/1380398 nr_render [25] + 0.00 0.00 41255/3780355 nr_section [113] + 0.00 0.00 41255/49235 log_debug [1245] +----------------------------------------------- + 0.02 0.03 1929215/1929215 create_order_i [175] +[252] 0.1 0.02 0.03 1929215 create_data [252] + 0.00 0.02 560985/2066777 parse_token_depr [220] + 0.01 0.01 560985/996009 get_skill [423] + 0.00 0.00 58/2934859 skillname [122] + 0.00 0.00 1252028/1252028 mkdata [1366] +----------------------------------------------- + 0.00 0.00 92/209572 building_update_owner [1010] + 0.05 0.00 209480/209572 building_owner [232] +[253] 0.1 0.05 0.00 209572 building_owner_ex [253] + 0.00 0.00 209544/216069 config_token [794] +----------------------------------------------- + 0.05 0.00 96482/96482 travel_i [92] +[254] 0.1 0.05 0.00 96482 get_followers [254] + 0.00 0.00 2822/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 22778/5329742 parser_end [849] + 0.05 0.00 5306964/5329742 parse_token [125] +[255] 0.1 0.05 0.00 5329742 eatwhitespace_c [255] + 0.00 0.00 5132/46391457 unicode_utf8_to_ucs4 [177] +----------------------------------------------- + 0.00 0.00 150/12560453 is_migrant [1047] + 0.00 0.00 230/12560453 report_computer [9] + 0.00 0.00 298/12560453 plan_dragon [273] + 0.00 0.00 410/12560453 rc_specialdamage [830] + 0.00 0.00 14447/12560453 heal_factor [619] + 0.00 0.00 16132/12560453 magic_lowskill [897] + 0.00 0.00 377253/12560453 guard_flags [690] + 0.00 0.00 469309/12560453 rc_skillmod [140] + 0.02 0.00 4503145/12560453 omniscient [470] + 0.03 0.00 7179079/12560453 skill_mod [264] +[256] 0.1 0.05 0.00 12560453 rc_changed [256] +----------------------------------------------- + 0.00 0.00 1/2868601 use_bloodpotion [935] + 0.00 0.00 3/2868601 trigger_changerace [1297] + 0.01 0.00 596221/2868601 write_unit [97] + 0.02 0.00 923633/2868601 cr_output_unit [19] + 0.02 0.00 1348743/2868601 bufunit [17] +[257] 0.1 0.05 0.00 2868601 u_irace [257] +----------------------------------------------- + +[258] 0.1 0.05 0.00 qli_init [258] +----------------------------------------------- + 0.00 0.00 4/4625636 mailfaction [1106] + 0.00 0.00 12/4625636 tolua_faction_get [1246] + 0.00 0.00 150/4625636 setstealth_cmd [182] + 0.00 0.00 233/4625636 readfaction [767] + 0.00 0.00 287/4625636 factionorders [983] + 0.00 0.00 791/4625636 getfaction [937] + 0.00 0.00 5925/4625636 addally [913] + 0.00 0.00 30872/4625636 resolve_faction [820] + 0.00 0.00 39836/4625636 read_of [524] + 0.00 0.00 49522/4625636 read_groups [782] + 0.00 0.01 595125/4625636 read_unit [74] + 0.01 0.03 3902879/4625636 get_or_create_monsters [292] +[259] 0.1 0.01 0.04 4625636 findfaction [259] + 0.04 0.00 4625636/4625636 ffindhash [315] +----------------------------------------------- + 0.00 0.00 10/2818494 spawn_dragons [411] + 0.00 0.00 47/2818494 display_race [963] + 0.00 0.00 71/2818494 report_summary [614] + 0.00 0.00 92/2818494 spawn_undead [629] + 0.00 0.00 230/2818494 report_computer [9] + 0.00 0.00 230/2818494 report_plaintext [4] + 0.00 0.00 251/2818494 out_faction [615] + 0.00 0.00 272/2818494 init_locale [948] + 0.00 0.00 356/2818494 cr_race [949] + 0.00 0.00 666/2818494 generic_name [962] + 0.00 0.00 1520/2818494 eval_race [882] + 0.00 0.01 537193/2818494 unit_getname [332] + 0.01 0.01 925760/2818494 cr_output_unit [19] + 0.01 0.01 1351796/2818494 racename [133] +[260] 0.1 0.02 0.03 2818494 rc_name_s [260] + 0.03 0.00 2818494/2818494 rc_name [364] +----------------------------------------------- + 0.00 0.00 2/4133717 b_namequestportal [1279] + 0.00 0.00 10/4133717 init_locale [948] + 0.00 0.00 18/4133717 parse_calendar [1252] + 0.00 0.00 44/4133717 curse_name [1140] + 0.00 0.00 47/4133717 display_item [1054] + 0.00 0.00 58/4133717 skill_key [1205] + 0.00 0.00 61/4133717 json_keyword [1127] + 0.00 0.00 86/4133717 display_race [963] + 0.00 0.00 140/4133717 nr_spell_syntax [732] + 0.00 0.00 464/4133717 report_computer [9] + 0.00 0.00 567/4133717 report_plaintext [4] + 0.00 0.00 1088/4133717 spskill [53] + 0.00 0.00 1911/4133717 cinfo_magicresistance [824] + 0.00 0.00 2081/4133717 cr_reportspell [756] + 0.00 0.00 2252/4133717 cinfo_ship [812] + 0.00 0.00 4162/4133717 spell_info [841] + 0.00 0.00 5907/4133717 cinfo_simple [751] + 0.00 0.00 8974/4133717 hp_status [206] + 0.00 0.00 15359/4133717 cinfo_building [686] + 0.00 0.00 20072/4133717 cr_skill [672] + 0.00 0.00 33909/4133717 cr_output_spells [639] + 0.00 0.00 86400/4133717 spell_name [646] + 0.00 0.00 93450/4133717 b_nameroad [642] + 0.00 0.00 97017/4133717 cr_borders [135] + 0.00 0.00 108347/4133717 racename [133] + 0.00 0.01 716432/4133717 cr_output_unit [19] + 0.01 0.03 2934859/4133717 skillname [122] +[261] 0.1 0.01 0.04 4133717 mkname [261] + 0.04 0.00 4133717/4136059 mkname_buf [316] +----------------------------------------------- + 0.00 0.00 87/1441945 age_stonecircle [1021] + 0.00 0.00 91/1441945 study_cmd [105] + 0.00 0.00 75870/1441945 movement_speed [155] + 0.00 0.01 174965/1441945 cr_output_unit [19] + 0.00 0.02 595454/1441945 regenerate_aura [346] + 0.00 0.02 595478/1441945 magic [157] +[262] 0.1 0.00 0.05 1441945 is_mage [262] + 0.00 0.05 1441945/2426021 get_mage [198] +----------------------------------------------- + 0.00 0.00 1921/2277350 report_computer [9] + 0.03 0.02 2275429/2277350 raceprefix [222] +[263] 0.1 0.03 0.02 2277350 get_prefix [263] + 0.02 0.00 2277350/51974272 a_find [65] +----------------------------------------------- + 0.02 0.03 7179079/7179079 rc_skillmod [140] +[264] 0.1 0.02 0.03 7179079 skill_mod [264] + 0.03 0.00 7179079/12560453 rc_changed [256] + 0.00 0.00 2/71815034 get_race [12] + 0.00 0.00 722366/1511812 newterrain [1359] +----------------------------------------------- + 0.02 0.03 9163148/9163148 res_changeitem [101] +[265] 0.1 0.02 0.03 9163148 golem_factor [265] + 0.03 0.00 18326296/56052475 get_resourcetype [194] + 0.00 0.00 45992/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 39/779486 display_item [1054] + 0.00 0.00 47/779486 display_race [963] + 0.00 0.00 58/779486 dragon_name [1095] + 0.00 0.00 117/779486 count_particles [1089] + 0.00 0.00 407/779486 make_name [970] + 0.03 0.02 778818/779486 describe_race [267] +[266] 0.1 0.03 0.02 779486 locale_getstring [266] + 0.02 0.00 779486/32337529 hashstring [37] +----------------------------------------------- + 0.00 0.02 379049/778818 read_unit [74] + 0.00 0.02 399769/778818 u_description [347] +[267] 0.1 0.00 0.05 778818 describe_race [267] + 0.03 0.02 778818/779486 locale_getstring [266] +----------------------------------------------- + 0.00 0.05 883617/883617 parse_symbol [42] +[268] 0.1 0.00 0.05 883617 eval_int [268] + 0.00 0.03 883617/884940 itoa10 [338] + 0.01 0.00 883617/13102790 opstack_pop [176] + 0.01 0.00 883617/13102790 opstack_push [202] + 0.00 0.00 883617/13399069 balloc [363] +----------------------------------------------- + 0.00 0.05 317735/317735 plan_monsters [52] +[269] 0.1 0.00 0.05 317735 monster_learn [269] + 0.00 0.02 317467/447808 create_order [341] + 0.00 0.02 317467/2934859 skillname [122] + 0.00 0.00 317467/7641081 genrand_int31 [171] + 0.00 0.00 317735/748527 unit_can_study [709] +----------------------------------------------- + 0.01 0.04 595896/595896 process [7] +[270] 0.1 0.01 0.04 595896 update_long_order [270] + 0.02 0.00 575221/635885 copy_order [441] + 0.01 0.00 1132975/55492327 getkeyword [54] + 0.00 0.00 152977/1644867 free_orders [306] + 0.00 0.00 595896/1629412 LongHunger [536] + 0.00 0.00 451283/2985733 is_repeated [552] + 0.00 0.00 1178/15102 cmistake [718] + 0.00 0.00 56/3110 default_order [902] + 0.00 0.00 1132609/1132609 is_long [1370] + 0.00 0.00 581697/1291427 set_order [1365] +----------------------------------------------- + 0.01 0.00 178254/1006923 new_region [275] + 0.01 0.00 369586/1006923 r_connect [474] + 0.02 0.00 459083/1006923 findregion [420] +[271] 0.1 0.04 0.01 1006923 rfindhash [271] + 0.01 0.00 1006923/2903884 jenkins_hash [439] +----------------------------------------------- + 0.00 0.05 5384/5384 process [7] +[272] 0.1 0.00 0.05 5384 teach_cmd [272] + 0.01 0.01 16132/16132 teach_unit [426] + 0.01 0.00 34486/34486 effskill_study [504] + 0.00 0.00 17577/282847 getunit [205] + 0.00 0.00 5384/14326 replace_order [526] + 0.00 0.00 17247/435022 getskill [387] + 0.00 0.00 9353/9953180 alliedunit [31] + 0.00 0.00 17417/5100840 itoa36 [116] + 0.00 0.00 5384/447808 create_order [341] + 0.00 0.00 17417/34611296 strlcpy [45] + 0.00 0.00 28057/1027665 init_order [613] + 0.00 0.00 22843/22843 parser_end [849] + 0.00 0.00 5384/69432 getparam [681] + 0.00 0.00 1323/41248 msg_feedback [647] + 0.00 0.00 17417/55492327 getkeyword [54] + 0.00 0.00 5384/2858912 get_effect [225] + 0.00 0.00 5380/12246335 ct_find [114] + 0.00 0.00 5380/10190660 get_curse [143] + 0.00 0.00 1323/392959 add_message [434] + 0.00 0.00 412/2426021 get_mage [198] + 0.00 0.00 5384/129167539 u_race [89] + 0.00 0.00 167/167 academy_teaching_bonus [1128] + 0.00 0.00 5384/18647447 getplane [596] + 0.00 0.00 42/54318 getstrtoken [710] + 0.00 0.00 42/534930 isparam [668] + 0.00 0.00 17289/17289 parser_pushstate [1507] + 0.00 0.00 17289/17289 parser_popstate [1506] + 0.00 0.00 5384/1936876 free_order [1356] + 0.00 0.00 1323/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.05 298/298 plan_monsters [52] +[273] 0.1 0.00 0.05 298 plan_dragon [273] + 0.00 0.02 249/252 path_exists [431] + 0.00 0.01 40/40 set_new_dragon_target [486] + 0.00 0.01 249/249 make_movement_order [522] + 0.00 0.00 17/17 recruit_dracoids [837] + 0.00 0.00 249/2480226 old_race [14] + 0.00 0.00 49/133 income [885] + 0.00 0.00 136/83859 reduce_weight [404] + 0.00 0.00 39/39 random_growl [1065] + 0.00 0.00 119/447808 create_order [341] + 0.00 0.00 119/2934859 skillname [122] + 0.00 0.00 49/49 get_money_for_dragon [1087] + 0.00 0.00 306/752645 chance [495] + 0.00 0.00 360/7641081 genrand_int31 [171] + 0.00 0.00 298/51974272 a_find [65] + 0.00 0.00 44/71815034 get_race [12] + 0.00 0.00 298/12560453 rc_changed [256] + 0.00 0.00 460/129167539 u_race [89] + 0.00 0.00 74/2605004 rpeasants [435] + 0.00 0.00 43/7120688 get_money [187] + 0.00 0.00 74/4666665 rmoney [452] + 0.00 0.00 119/21345834 skill_enabled [365] +----------------------------------------------- + 0.00 0.00 209/1481616 setstealth_cmd [182] + 0.03 0.02 1481407/1481616 parse_order [117] +[274] 0.1 0.03 0.02 1481616 get_keyword [274] + 0.01 0.00 1481616/4457785 transliterate [358] + 0.01 0.00 1481616/4558423 get_translations [437] + 0.00 0.00 1481322/11194781 keyword_disabled [1348] +----------------------------------------------- + 0.00 0.05 178254/178254 readregion [209] +[275] 0.1 0.00 0.05 178254 new_region [275] + 0.02 0.00 178254/178254 hash_uid [442] + 0.02 0.00 178254/760673 addlist [217] + 0.01 0.00 178254/1006923 rfindhash [271] + 0.00 0.00 178254/178290 rhash [737] + 0.00 0.00 178254/3587241 pnormalize [1350] +----------------------------------------------- + 0.00 0.05 1/1 process [7] +[276] 0.1 0.00 0.05 1 quit [276] + 0.00 0.03 1/1 remove_idle_players [391] + 0.00 0.02 1/6 remove_empty_units [146] + 0.00 0.00 237/16493 NewbieImmunity [900] + 0.00 0.00 4/967784 msg_message [132] + 0.00 0.00 4/392959 add_message [434] + 0.00 0.00 4/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.05 178254/178254 produce [29] +[277] 0.1 0.00 0.05 178254 expandwork [277] + 0.00 0.04 189233/490896 wage [174] + 0.00 0.00 342640/2605004 rpeasants [435] + 0.00 0.00 10979/34409 add_income [625] + 0.00 0.00 178254/2186159 rsetmoney [553] + 0.00 0.00 178254/4666665 rmoney [452] + 0.00 0.00 10979/2599554 change_money [337] + 0.00 0.00 10979/129167539 u_race [89] + 0.00 0.00 503/7641081 genrand_int31 [171] + 0.00 0.00 82525/508632 rule_blessed_harvest [1327] +----------------------------------------------- + 0.00 0.05 663/663 produce [29] +[278] 0.1 0.00 0.05 663 expandtax [278] + 0.02 0.00 1524933/2599554 change_money [337] + 0.01 0.00 3049883/4666665 rmoney [452] + 0.01 0.00 1524933/2186159 rsetmoney [553] + 0.00 0.00 663/10852 expandorders [197] + 0.00 0.00 948/34409 add_income [625] +----------------------------------------------- + 0.00 0.00 38/221899 renumber_cmd [780] + 0.00 0.00 59/221899 expandstealing [807] + 0.00 0.05 221802/221899 unitorders [46] +[279] 0.1 0.00 0.05 221899 findunitg [279] + 0.04 0.00 221899/1118718 ufindhash [109] +----------------------------------------------- + 0.00 0.00 361/515911 regionname [987] + 0.00 0.05 515550/515911 eval_region [245] +[280] 0.1 0.00 0.05 515911 write_regionname [280] + 0.01 0.02 513251/1552289 rname [200] + 0.02 0.00 513251/1826688 adjust_coordinates [234] + 0.00 0.00 513251/5461936 slprintf [548] + 0.00 0.00 513251/18647447 getplane [596] + 0.00 0.00 2660/34611296 strlcpy [45] + 0.00 0.00 513251/3587241 pnormalize [1350] +----------------------------------------------- + 0.00 0.00 2364/4851739 give_item [126] + 0.00 0.00 24010/4851739 give_cmd [102] + 0.00 0.00 671315/4851739 get_pooled [104] + 0.03 0.01 4154050/4851739 use_pooled [39] +[281] 0.1 0.03 0.02 4851739 get_reservation [281] + 0.01 0.00 9703478/56052475 get_resourcetype [194] + 0.00 0.00 20370/129167539 u_race [89] +----------------------------------------------- + 0.00 0.04 1/1 process [7] +[282] 0.1 0.00 0.04 1 new_units [282] + 0.00 0.02 754/754 checkunitnumber [402] + 0.00 0.01 754/2889 create_unit [296] + 0.01 0.00 1136686/55492327 getkeyword [54] + 0.00 0.00 754/228907 getid [483] + 0.00 0.00 754/2281756 gettoken [195] + 0.00 0.00 754/779419 a_add [555] + 0.00 0.00 754/1474687 leftship [500] + 0.00 0.00 754/1027665 init_order [613] + 0.00 0.00 754/779868 a_new [1376] + 0.00 0.00 754/599650 setstatus [1390] +----------------------------------------------- + 0.00 0.00 39714/300501 sail [181] + 0.00 0.01 105958/300501 travel_route [147] + 0.01 0.02 154829/300501 movewhere [350] +[283] 0.1 0.01 0.03 300501 move_blocked [283] + 0.00 0.03 300501/2225796 get_borders [120] + 0.00 0.00 282968/12246335 ct_find [114] + 0.00 0.00 282968/10190660 get_curse [143] + 0.00 0.00 282968/4201030 curse_active [543] + 0.00 0.00 37024/37024 b_blocknone [1471] + 0.00 0.00 2/2 b_blockquestportal [1770] +----------------------------------------------- + 0.01 0.03 1/1 randomevents [91] +[284] 0.1 0.01 0.03 1 rotting_herbs [284] + 0.02 0.00 595476/6010308 i_find [127] + 0.00 0.01 595476/1177511 it_find [385] + 0.00 0.00 22496/147217 normalvariate [376] + 0.00 0.00 22496/11241829 i_change [115] + 0.00 0.00 1/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.04 1/1 randomevents [91] +[285] 0.1 0.00 0.04 1 icebergs [285] + 0.01 0.01 178254/178263 drown [394] + 0.01 0.00 1/1 move_icebergs [534] + 0.01 0.00 1/1 create_icebergs [538] +----------------------------------------------- + 0.00 0.00 45033/4198692 report_template [87] + 0.00 0.00 106798/4198692 help_feed [678] + 0.01 0.03 4046861/4198692 get_food [88] +[286] 0.1 0.01 0.03 4198692 lifestyle [286] + 0.00 0.02 1677644/3902878 get_monsters [293] + 0.01 0.01 2521048/2765718 maintenance_cost [481] + 0.00 0.00 2521048/18647447 getplane [596] +----------------------------------------------- + 0.00 0.04 131765/131765 process [7] +[287] 0.1 0.00 0.04 131765 give_control_cmd [287] + 0.00 0.04 131765/282847 getunit [205] + 0.00 0.00 131765/2281756 gettoken [195] + 0.00 0.00 131765/1027665 init_order [613] + 0.00 0.00 131764/534930 isparam [668] + 0.00 0.00 6/102705 can_give_to [600] + 0.00 0.00 3/967784 msg_message [132] + 0.00 0.00 3/15102 cmistake [718] + 0.00 0.00 3/392959 add_message [434] + 0.00 0.00 1/593636 building_owner [232] + 0.00 0.00 5/3358315 ship_owner [438] + 0.00 0.00 3/3 give_control [1763] + 0.00 0.00 3/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 677/10383360 ally_cmd [877] + 0.00 0.00 1297/10383360 AllianceAuto [535] + 0.00 0.00 5925/10383360 addally [913] + 0.01 0.03 10375461/10383360 AllianceRestricted [164] +[288] 0.1 0.01 0.03 10383360 HelpMask [288] + 0.01 0.02 10383360/20777534 config_get [224] +----------------------------------------------- + 0.00 0.04 96527/96527 travel [81] +[289] 0.1 0.00 0.04 96527 make_route [289] + 0.00 0.03 209781/252446 movewhere [350] + 0.00 0.01 113254/113487 next_region [601] + 0.00 0.01 209781/2281756 gettoken [195] + 0.00 0.00 4/392959 add_message [434] + 0.00 0.00 4/955 movement_error [1193] + 0.00 0.00 113254/192815 add_regionlist [1419] + 0.00 0.00 4/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 14502/1065211 eval_ship [740] + 0.00 0.01 180598/1065211 nr_ship [111] + 0.00 0.02 434165/1065211 cb_cr_travelthru_ship [204] + 0.00 0.02 435946/1065211 cb_write_travelthru [169] +[290] 0.1 0.00 0.04 1065211 shipname [290] + 0.00 0.04 1065211/1065211 write_shipname [291] +----------------------------------------------- + 0.00 0.04 1065211/1065211 shipname [290] +[291] 0.1 0.00 0.04 1065211 write_shipname [291] + 0.00 0.04 1065211/5100840 itoa36 [116] + 0.00 0.00 1065211/5461936 slprintf [548] +----------------------------------------------- + 0.00 0.00 1/3902879 spawn_dragons [411] + 0.00 0.04 3902878/3902879 get_monsters [293] +[292] 0.1 0.00 0.04 3902879 get_or_create_monsters [292] + 0.01 0.03 3902879/4625636 findfaction [259] +----------------------------------------------- + 0.00 0.00 1/3902878 tolua_planmonsters [51] + 0.00 0.00 1/3902878 spawn_braineaters [505] + 0.00 0.00 1/3902878 report_plaintext [4] + 0.00 0.00 1/3902878 remove_idle_players [391] + 0.00 0.00 1/3902878 update_spells [381] + 0.00 0.00 1/3902878 make_zombie [1267] + 0.00 0.00 1/3902878 spawn_undead [629] + 0.00 0.00 5/3902878 chaos [848] + 0.00 0.00 82/3902878 age_undead [1196] + 0.00 0.00 84/3902878 loot_cmd [873] + 0.00 0.00 176/3902878 list_address [635] + 0.00 0.00 653/3902878 age_ghoul [1024] + 0.00 0.00 665/3902878 age_zombie [1019] + 0.00 0.00 725/3902878 age_skeleton [1008] + 0.00 0.00 983/3902878 loot_items [810] + 0.00 0.00 39959/3902878 can_start_guarding [679] + 0.00 0.00 83768/3902878 canwalk [633] + 0.00 0.00 419410/3902878 randomevents [91] + 0.00 0.00 419518/3902878 produceexp_ex [323] + 0.00 0.00 419518/3902878 plan_monsters [52] + 0.00 0.01 839681/3902878 make_summary [21] + 0.00 0.02 1677644/3902878 lifestyle [286] +[293] 0.1 0.00 0.04 3902878 get_monsters [293] + 0.00 0.04 3902878/3902879 get_or_create_monsters [292] +----------------------------------------------- + 0.00 0.04 1/1 demographics [50] +[294] 0.1 0.00 0.04 1 immigration [294] + 0.00 0.04 178254/490896 wage [174] + 0.00 0.00 185509/2605004 rpeasants [435] + 0.00 0.00 178254/2765718 maintenance_cost [481] + 0.00 0.00 23630/71815034 get_race [12] + 0.00 0.00 17728/438629 maxworkingpeasants [473] + 0.00 0.00 14329/264251 rsetpeasants [545] + 0.00 0.00 7074/1336242 rng_injectable_double [396] + 0.00 0.00 51382/129167539 u_race [89] + 0.00 0.00 1/4984610 config_get_int [348] + 0.00 0.00 1/64 log_info [1339] +----------------------------------------------- + 0.00 0.04 178254/178254 process [7] +[295] 0.1 0.00 0.04 178254 enter_2 [295] + 0.03 0.01 178254/713016 do_enter [128] +----------------------------------------------- + 0.00 0.00 1/2889 sp_summon_familiar [1025] + 0.00 0.00 1/2889 sp_summonshadowlords [1034] + 0.00 0.00 2/2889 summon_allies [925] + 0.00 0.00 5/2889 chaos [848] + 0.00 0.00 6/2889 tolua_unit_create [916] + 0.00 0.00 6/2889 sp_summonundead [896] + 0.00 0.00 10/2889 spawn_dragons [411] + 0.00 0.00 17/2889 recruit_dracoids [837] + 0.00 0.00 20/2889 spawn_seaserpent [831] + 0.00 0.00 38/2889 sp_viewreality [784] + 0.00 0.00 92/2889 spawn_undead [629] + 0.00 0.01 639/2889 spawn_braineaters [505] + 0.00 0.01 754/2889 new_units [282] + 0.00 0.02 1298/2889 add_recruits [371] +[296] 0.1 0.00 0.04 2889 create_unit [296] + 0.00 0.04 2889/2889 createunitid [317] + 0.00 0.00 2889/109785 move_unit [421] + 0.00 0.00 2806/2931 name_unit [803] + 0.00 0.00 2889/1381157 unit_max_hp [136] + 0.00 0.00 2889/760673 addlist [217] + 0.00 0.00 2889/3110 default_order [902] + 0.00 0.00 2494/779419 a_add [555] + 0.00 0.00 2062/2275967 get_racename [368] + 0.00 0.00 2598/51974272 a_find [65] + 0.00 0.00 2062/2421 set_racename [1015] + 0.00 0.00 535/1270 set_group [1048] + 0.00 0.00 2097/129167539 u_race [89] + 0.00 0.00 2889/24935046 faction_alive [451] + 0.00 0.00 2889/598129 u_setfaction [1111] + 0.00 0.00 2889/1291427 set_order [1365] + 0.00 0.00 2889/600145 u_setrace [1389] + 0.00 0.00 2889/603524 set_number [1387] + 0.00 0.00 2063/779868 a_new [1376] + 0.00 0.00 2062/599650 setstatus [1390] + 0.00 0.00 837/48565 u_set_building [1460] + 0.00 0.00 431/433 make_otherfaction [1603] + 0.00 0.00 431/1380007 get_otherfaction [1362] + 0.00 0.00 35/27640 u_set_ship [1485] +----------------------------------------------- + 0.01 0.03 178254/178254 do_battle [64] +[297] 0.1 0.01 0.03 178254 start_battle [297] + 0.00 0.02 2858/3203 join_battle [425] + 0.01 0.00 1129818/55492327 getkeyword [54] + 0.00 0.00 1443/1437425 cansee [22] + 0.00 0.00 1487/282847 getunit [205] + 0.00 0.00 1432/9953180 alliedunit [31] + 0.00 0.00 2974/10190660 get_curse [143] + 0.00 0.00 1486/1474687 leftship [500] + 0.00 0.00 1429/51974272 a_find [65] + 0.00 0.00 7/15361 is_guarded [377] + 0.00 0.00 1487/1027665 init_order [613] + 0.00 0.00 1518/1629412 LongHunger [536] + 0.00 0.00 1431/16669 IsImmune [901] + 0.00 0.00 57/41248 msg_feedback [647] + 0.00 0.00 2974/4201030 curse_active [543] + 0.00 0.00 1518/129167539 u_race [89] + 0.00 0.00 32/15102 cmistake [718] + 0.00 0.00 57/392959 add_message [434] + 0.00 0.00 1518/18647447 getplane [596] + 0.00 0.00 206/206 make_battle [1282] + 0.00 0.00 2/16493 NewbieImmunity [900] + 0.00 0.00 1429/2073 set_enemy [1562] + 0.00 0.00 55/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.04 102149/102149 cr_output_region [10] +[298] 0.1 0.00 0.04 102149 cr_output_travelthru [298] + 0.01 0.04 204298/3398582 travelthru_map [41] +----------------------------------------------- + 0.00 0.00 13/841675 write_planes [1207] + 0.00 0.00 1692/841675 write_groups [920] + 0.04 0.00 839970/841675 write_attribs [301] +[299] 0.1 0.04 0.00 841675 a_write [299] + 0.00 0.00 4024/4024 curse_write [930] + 0.00 0.00 1564/1564 write_handler [955] + 0.00 0.00 1522/1522 a_write_unit [998] + 0.00 0.00 2096/2096 a_writeeffect [1073] + 0.00 0.00 58524/58524 a_writeint [1447] + 0.00 0.00 56646/56646 write_group [1449] + 0.00 0.00 39955/39955 write_of [1467] + 0.00 0.00 34420/34420 a_writeshorts [1473] + 0.00 0.00 14111/14111 shiptrail_write [1511] + 0.00 0.00 8187/8187 write_seenspell [1523] + 0.00 0.00 7220/7220 a_writestring [1529] + 0.00 0.00 2089/2089 write_mage [1560] + 0.00 0.00 1117/1117 write_targetregion [1584] + 0.00 0.00 66/66 a_writechars [1663] + 0.00 0.00 56/56 dict_write [1677] + 0.00 0.00 2/2 wormhole_write [1785] + 0.00 0.00 1/1 a_writekeys [1787] +----------------------------------------------- + 0.00 0.04 32670/32670 demographics [50] +[300] 0.1 0.00 0.04 32670 growing_herbs [300] + 0.01 0.03 3017598/7641081 genrand_int31 [171] + 0.00 0.00 3112897/3166898 rherbs [1351] + 0.00 0.00 62629/101322 rsetherbs [1438] +----------------------------------------------- + 0.00 0.00 232/839970 writefaction [762] + 0.00 0.00 65263/839970 write_game [83] + 0.00 0.01 178254/839970 writeregion [519] + 0.00 0.03 596221/839970 write_unit [97] +[301] 0.1 0.00 0.04 839970 write_attribs [301] + 0.04 0.00 839970/841675 a_write [299] +----------------------------------------------- + 0.00 0.00 1/10053919 breedtrees [1148] + 0.00 0.00 6/10053919 sp_mallornhain [968] + 0.00 0.00 9/10053919 sp_hain [931] + 0.00 0.00 20/10053919 dissolve_units [241] + 0.00 0.00 51/10053919 potion_water_of_life [945] + 0.00 0.00 58/10053919 terraform_region [932] + 0.00 0.00 2772/10053919 tolua_region_get_resource [976] + 0.00 0.00 91260/10053919 cr_output_resources [238] + 0.00 0.00 182290/10053919 report_resources [210] + 0.00 0.00 196020/10053919 writeregion [519] + 0.00 0.00 249356/10053919 growing_trees [624] + 0.00 0.00 255352/10053919 describe [35] + 0.00 0.00 877258/10053919 maxworkingpeasants [473] + 0.03 0.00 8199466/10053919 r_isforest [199] +[302] 0.1 0.04 0.00 10053919 rtrees [302] +----------------------------------------------- + 0.00 0.00 40231/7851812 centre [789] + 0.04 0.00 7811581/7851812 paragraph [26] +[303] 0.1 0.04 0.00 7851812 write_spaces [303] +----------------------------------------------- + 0.04 0.00 4568249/4568249 parse_symbol [42] +[304] 0.1 0.04 0.00 4568249 find_variable [304] +----------------------------------------------- + 0.04 0.00 3573165/3573165 ql_set_insert_ex [156] +[305] 0.1 0.04 0.00 3573165 cmp_faction [305] +----------------------------------------------- + 0.00 0.00 1/1644867 tolua_unit_clear_orders [1313] + 0.00 0.00 6/1644867 make_undead_unit [1188] + 0.00 0.00 114/1644867 u_setfaction [1111] + 0.00 0.00 56948/1644867 unitorders [46] + 0.00 0.00 152977/1644867 update_long_order [270] + 0.01 0.00 419518/1644867 plan_monsters [52] + 0.01 0.00 420178/1644867 clear_npc_orders [531] + 0.01 0.00 595125/1644867 read_unit [74] +[306] 0.1 0.04 0.00 1644867 free_orders [306] + 0.00 0.00 810550/1936876 free_order [1356] +----------------------------------------------- + 0.00 0.00 46/3016 steal_cmd [766] + 0.00 0.00 146/3016 createunitid [317] + 0.04 0.00 2824/3016 newunitid [319] +[307] 0.1 0.04 0.00 3016 dfindhash [307] +----------------------------------------------- + +[308] 0.1 0.04 0.00 cb_find_prefix [308] +----------------------------------------------- + +[309] 0.1 0.04 0.00 class_index_event [309] +----------------------------------------------- + +[310] 0.1 0.04 0.00 fs_read [310] +----------------------------------------------- + +[311] 0.1 0.04 0.00 pack_int [311] +----------------------------------------------- + +[312] 0.1 0.04 0.00 ql_find [312] +----------------------------------------------- + +[313] 0.1 0.04 0.00 tolua_unitlist_next [313] +----------------------------------------------- + +[314] 0.1 0.04 0.00 unicode_ucs4_to_utf8 [314] +----------------------------------------------- + 0.04 0.00 4625636/4625636 findfaction [259] +[315] 0.1 0.04 0.00 4625636 ffindhash [315] +----------------------------------------------- + 0.00 0.00 2342/4136059 xml_readstrings [863] + 0.04 0.00 4133717/4136059 mkname [261] +[316] 0.1 0.04 0.00 4136059 mkname_buf [316] +----------------------------------------------- + 0.00 0.04 2889/2889 create_unit [296] +[317] 0.1 0.00 0.04 2889 createunitid [317] + 0.00 0.04 2743/2818 newunitid [319] + 0.00 0.00 146/3016 dfindhash [307] + 0.00 0.00 754/1118718 ufindhash [109] + 0.00 0.00 2889/598069 uhash [667] + 0.00 0.00 146/3002 forbiddenid [1280] +----------------------------------------------- + 0.00 0.00 8/598234 spy_message [1038] + 0.00 0.04 598226/598234 bufunit [17] +[318] 0.1 0.00 0.04 598234 report_status [318] + 0.01 0.01 598292/24887945 locale_string [27] + 0.01 0.00 598234/34611296 strlcpy [45] + 0.00 0.00 116/987128 strlcat [1374] +----------------------------------------------- + 0.00 0.00 32/2818 make_curse [802] + 0.00 0.00 43/2818 renumber_cmd [780] + 0.00 0.04 2743/2818 createunitid [317] +[319] 0.1 0.00 0.04 2818 newunitid [319] + 0.04 0.00 2824/3016 dfindhash [307] + 0.00 0.00 5523/1118718 ufindhash [109] + 0.00 0.00 2818/7641081 genrand_int31 [171] + 0.00 0.00 2818/3002 forbiddenid [1280] +----------------------------------------------- + 0.00 0.00 233/628037 readfaction [767] + 0.00 0.00 32679/628037 readregion [209] + 0.02 0.02 595125/628037 read_unit [74] +[320] 0.1 0.02 0.02 628037 read_items [320] + 0.00 0.01 448447/1177511 it_find [385] + 0.01 0.00 448447/11241829 i_change [115] +----------------------------------------------- + 0.03 0.01 301257/301257 cr_render [196] +[321] 0.1 0.03 0.01 301257 crt_find [321] + 0.01 0.00 301257/32337529 hashstring [37] +----------------------------------------------- + 0.00 0.00 1/472418 breedtrees [1148] + 0.00 0.00 8/472418 spy_cmd [990] + 0.00 0.00 21/472418 build_road [950] + 0.00 0.00 59/472418 steal_cmd [766] + 0.00 0.00 152/472418 magic [157] + 0.00 0.00 170/472418 breedhorses [742] + 0.00 0.00 349/472418 research_cmd [886] + 0.00 0.00 1040/472418 build [691] + 0.00 0.00 2825/472418 split_allocations [743] + 0.00 0.00 5896/472418 herbsearch [493] + 0.00 0.00 6133/472418 produce [29] + 0.00 0.00 9105/472418 move_ship [374] + 0.00 0.00 10581/472418 travel_route [147] + 0.00 0.00 16560/472418 expandentertainment [637] + 0.00 0.03 419518/472418 plan_monsters [52] +[322] 0.1 0.00 0.04 472418 produceexp [322] + 0.00 0.04 472418/472418 produceexp_ex [323] +----------------------------------------------- + 0.00 0.04 472418/472418 produceexp [322] +[323] 0.1 0.00 0.04 472418 produceexp_ex [323] + 0.02 0.00 472366/472366 produceexp_days [406] + 0.00 0.01 472366/892307 learn_skill [471] + 0.00 0.00 419518/3902878 get_monsters [293] + 0.00 0.00 52873/129167539 u_race [89] +----------------------------------------------- + 0.00 0.04 35708/35708 process [7] +[324] 0.1 0.00 0.04 35708 reserve_cmd [324] + 0.00 0.04 35708/71416 reserve_i [213] +----------------------------------------------- + 0.00 0.04 35708/35708 process [7] +[325] 0.1 0.00 0.04 35708 reserve_self [325] + 0.00 0.04 35708/71416 reserve_i [213] +----------------------------------------------- + 0.03 0.01 1/1 movement [47] +[326] 0.1 0.03 0.01 1 move_pirates [326] + 0.00 0.00 5049/5049 piracy_cmd [660] + 0.00 0.00 178254/178254 age_traveldir [720] + 0.00 0.00 38489/55492327 getkeyword [54] + 0.00 0.00 178254/178254 age_piracy [959] +----------------------------------------------- + 0.01 0.03 127676/127676 report_plaintext [4] +[327] 0.1 0.01 0.03 127676 write_travelthru [327] + 0.00 0.01 57367/57367 count_travelthru [518] + 0.00 0.01 54735/3398582 travelthru_map [41] + 0.00 0.00 54735/24887945 locale_string [27] + 0.00 0.00 54735/34611296 strlcpy [45] + 0.00 0.00 54735/54735 init_cb [1453] +----------------------------------------------- + 0.00 0.04 470529/470529 parse_symbol [42] +[328] 0.1 0.00 0.04 470529 eval_resource [328] + 0.01 0.01 470529/24887945 locale_string [27] + 0.01 0.00 941058/13102790 opstack_pop [176] + 0.00 0.00 470529/13102790 opstack_push [202] + 0.00 0.00 470529/13259934 resourcename [233] + 0.00 0.00 470529/13399069 balloc [363] +----------------------------------------------- + 0.00 0.00 2/8892 sp_viewreality [784] + 0.00 0.00 365/8892 cr_output_region [10] + 0.00 0.03 8525/8892 describe [35] +[329] 0.1 0.00 0.04 8892 astralregions [329] + 0.02 0.00 162996/162996 inhabitable [454] + 0.00 0.01 163381/459083 findregion [420] + 0.00 0.01 214975/514146 koor_distance [476] + 0.00 0.00 8892/8892 r_astral_to_standard [783] + 0.00 0.00 17784/987488 is_astral [479] + 0.00 0.00 163381/18647447 getplane [596] + 0.00 0.00 163381/3587241 pnormalize [1350] + 0.00 0.00 39832/192815 add_regionlist [1419] +----------------------------------------------- + 0.01 0.03 32670/32670 demographics [50] +[330] 0.1 0.01 0.03 32670 horses [330] + 0.02 0.01 124547/147217 normalvariate [376] + 0.00 0.00 32670/438629 maxworkingpeasants [473] + 0.00 0.00 29173/12246335 ct_find [114] + 0.00 0.00 29173/10190660 get_curse [143] + 0.00 0.00 5134/369586 r_connect [474] + 0.00 0.00 8246/51974272 a_find [65] + 0.00 0.00 29173/4201030 curse_active [543] + 0.00 0.00 376714/1160345 rhorses [1369] + 0.00 0.00 195073/257693 rsethorses [1408] + 0.00 0.00 62267/62267 get_migrants [1445] + 0.00 0.00 29173/651711 oldcursename [1381] +----------------------------------------------- + 0.02 0.02 595898/595898 process [7] +[331] 0.1 0.02 0.02 595898 follow_unit [331] + 0.01 0.00 1135305/55492327 getkeyword [54] + 0.00 0.00 595258/1629412 LongHunger [536] + 0.00 0.00 816/1437425 cansee [22] + 0.00 0.00 900/888603 findunit [123] + 0.00 0.00 900/284005 read_unitid [413] + 0.00 0.00 1425/69432 getparam [681] + 0.00 0.00 525/228907 getid [483] + 0.00 0.00 894/779419 a_add [555] + 0.00 0.00 1425/1027665 init_order [613] + 0.00 0.00 1039/3358315 ship_owner [438] + 0.00 0.00 519/115276 can_move [736] + 0.00 0.00 631/51974272 a_find [65] + 0.00 0.00 5/15102 cmistake [718] + 0.00 0.00 13/1297 hunted_dir [1055] + 0.00 0.00 894/894 make_follow [1589] + 0.00 0.00 703/1291427 set_order [1365] + 0.00 0.00 525/28818 findship [1483] +----------------------------------------------- + 0.00 0.00 86/3351853 tolua_unit_get_name [1194] + 0.00 0.00 45033/3351853 report_template [87] + 0.00 0.01 923633/3351853 cr_output_unit [19] + 0.00 0.03 2383101/3351853 write_unitname [148] +[332] 0.1 0.00 0.04 3351853 unit_getname [332] + 0.01 0.01 537193/24887945 locale_string [27] + 0.00 0.01 537193/2818494 rc_name_s [260] +----------------------------------------------- + 7791002 parse_symbol [42] + 0.48 0.57 1379793/1380398 translate [28] +[333] 0.1 0.03 0.01 9170795 parse [333] + 0.00 0.01 832876/832876 parse_int [649] + 5612941 parse_symbol [42] + 2724978 parse_string [86] +----------------------------------------------- + 4953357 effskill [100] + 0.00 0.00 20/12320804 target_resists_magic [1154] + 0.00 0.00 48/12320804 spy_message [1038] + 0.05 0.09 1953681/12320804 spskill [53] +[334] 0.1 0.04 0.00 6907106 eff_skill [334] + 6907105 get_modifier [55] +----------------------------------------------- + +[335] 0.1 0.04 0.00 cb_get_kv [335] +----------------------------------------------- + 0.00 0.03 595472/595472 live [73] +[336] 0.1 0.00 0.03 595472 age_unit [336] + 0.00 0.02 595472/71815034 get_race [12] + 0.00 0.01 595472/987488 is_astral [479] + 0.00 0.00 1194391/129167539 u_race [89] + 0.00 0.00 1363/1363 age_skeleton [1008] + 0.00 0.00 688/688 age_zombie [1019] + 0.00 0.00 708/708 age_ghoul [1024] + 0.00 0.00 295/295 age_dragon [1098] + 0.00 0.00 182/182 age_firedragon [1123] + 0.00 0.00 266/266 age_undead [1196] + 0.00 0.00 1/1 age_illusion [1308] +----------------------------------------------- + 0.00 0.00 17/2599554 recruit_dracoids [837] + 0.00 0.00 38/2599554 expandstealing [807] + 0.00 0.00 4800/2599554 expandloot [816] + 0.00 0.00 10979/2599554 expandwork [277] + 0.00 0.00 16560/2599554 expandentertainment [637] + 0.00 0.00 32382/2599554 help_feed [678] + 0.00 0.00 283759/2599554 expandselling [93] + 0.01 0.00 726086/2599554 get_food [88] + 0.02 0.00 1524933/2599554 expandtax [278] +[337] 0.1 0.03 0.00 2599554 change_money [337] + 0.00 0.00 2599554/56052475 get_resourcetype [194] + 0.00 0.00 87928/257723 i_remove [1407] + 0.00 0.00 87928/374425 i_free [1400] + 0.00 0.00 86907/822780 i_new [1375] + 0.00 0.00 86907/87004 i_add [1442] +----------------------------------------------- + 0.00 0.00 17/884940 create_order [341] + 0.00 0.00 48/884940 spy_message [1038] + 0.00 0.00 1258/884940 report_template [87] + 0.00 0.03 883617/884940 eval_int [268] +[338] 0.1 0.00 0.03 884940 itoa10 [338] + 0.03 0.00 884940/5985780 itoab [107] +----------------------------------------------- + 0.01 0.02 178254/178254 process [7] +[339] 0.1 0.01 0.02 178254 maintain_buildings [339] + 0.00 0.02 44190/44190 maintain [478] + 0.00 0.00 178254/12246335 ct_find [114] + 0.00 0.00 8710/967784 msg_message [132] + 0.00 0.00 8710/593636 building_owner [232] + 0.00 0.00 46175/10190660 get_curse [143] + 0.00 0.00 8710/392959 add_message [434] + 0.00 0.00 46175/4201030 curse_active [543] + 0.00 0.00 295/12265 r_addmessage [779] + 0.00 0.00 8710/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.03 3438/3438 prepare_report [8] +[340] 0.1 0.00 0.03 3438 prepare_lighthouse [340] + 0.02 0.01 3438/3438 get_regions_distance [372] + 0.00 0.00 87604/745269 add_seen_nb [386] + 0.00 0.00 3438/3438 lighthouse_range [728] +----------------------------------------------- + 0.00 0.00 2/447808 create_ship [1014] + 0.00 0.00 2/447808 default_order [902] + 0.00 0.00 8/447808 do_combatmagic [825] + 0.00 0.00 17/447808 recruit_dracoids [837] + 0.00 0.00 23/447808 do_combatspell [702] + 0.00 0.00 43/447808 get_money_for_dragon [1087] + 0.00 0.00 99/447808 piracy_cmd [660] + 0.00 0.00 119/447808 plan_dragon [273] + 0.00 0.00 133/447808 travel [81] + 0.00 0.00 325/447808 build_building [696] + 0.00 0.00 736/447808 monster_attack [764] + 0.00 0.00 5384/447808 teach_cmd [272] + 0.00 0.00 8450/447808 cycle_route [375] + 0.00 0.00 31277/447808 plan_monsters [52] + 0.00 0.01 83723/447808 monster_move [129] + 0.00 0.02 317467/447808 monster_learn [269] +[341] 0.1 0.00 0.03 447808 create_order [341] + 0.01 0.01 447808/1929215 create_order_i [175] + 0.01 0.00 425391/34611296 strlcpy [45] + 0.00 0.00 425391/36653945 wrptr [178] + 0.00 0.00 1196/5100840 itoa36 [116] + 0.00 0.00 17/884940 itoa10 [338] +----------------------------------------------- + 0.03 0.00 1/1 movement [47] +[342] 0.1 0.03 0.00 1 move_hunters [342] + 0.00 0.00 475/475 follow_ship [749] + 0.00 0.00 85384/55492327 getkeyword [54] + 0.00 0.00 597/69432 getparam [681] + 0.00 0.00 475/115276 can_move [736] + 0.00 0.00 597/1027665 init_order [613] + 0.00 0.00 475/1629412 LongHunger [536] +----------------------------------------------- + 0.01 0.00 112140/297010 castle_name_i [513] + 0.02 0.00 184870/297010 buildingeffsize [367] +[343] 0.1 0.03 0.00 297010 bt_effsize [343] + 0.00 0.00 297010/4984610 config_get_int [348] +----------------------------------------------- + 0.01 0.00 3115/13500 drifting_ships [490] + 0.01 0.00 3135/13500 sinkships [475] + 0.02 0.00 7250/13500 ship_ready [354] +[344] 0.1 0.03 0.00 13500 crew_skill [344] + 0.00 0.00 20459/12320804 effskill [100] +----------------------------------------------- + 0.01 0.00 136/388 path_find [523] + 0.01 0.01 252/388 path_exists [431] +[345] 0.1 0.02 0.01 388 internal_path_find [345] + 0.01 0.00 132629/162862 allowed_dragon [564] + 0.00 0.00 67291/369586 r_connect [474] + 0.00 0.00 125069/152803 new_node [1427] + 0.00 0.00 388/428 free_nodes [1604] + 0.00 0.00 48/157830 allowed_fly [1425] +----------------------------------------------- + 0.01 0.02 1/1 process [7] +[346] 0.1 0.01 0.02 1 regenerate_aura [346] + 0.00 0.02 595454/1441945 is_mage [262] + 0.00 0.00 1870/5358 max_spellpoints [755] + 0.00 0.00 508/967784 msg_message [132] + 0.00 0.00 1870/1873 set_spellpoints [933] + 0.00 0.00 1870/4915 get_spellpoints [872] + 0.00 0.00 508/508 regeneration [942] + 0.00 0.00 508/392959 add_message [434] + 0.00 0.00 508/752645 chance [495] + 0.00 0.00 508/12246335 ct_find [114] + 0.00 0.00 508/10190660 get_curse [143] + 0.00 0.00 1/4984610 config_get_int [348] + 0.00 0.00 508/26995 inside_building [1486] + 0.00 0.00 508/26164 building_is_active [1488] + 0.00 0.00 508/651711 oldcursename [1381] + 0.00 0.00 508/432940 curse_geteffect [1395] + 0.00 0.00 508/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.01 923633/2272376 cr_output_unit [19] + 0.00 0.02 1348743/2272376 bufunit [17] +[347] 0.1 0.00 0.03 2272376 u_description [347] + 0.00 0.02 399769/778818 describe_race [267] + 0.01 0.00 2554959/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 1/4984610 report_computer [9] + 0.00 0.00 1/4984610 recruit_init [1334] + 0.00 0.00 1/4984610 tax_cmd [697] + 0.00 0.00 1/4984610 immigration [294] + 0.00 0.00 1/4984610 demographics [50] + 0.00 0.00 1/4984610 nmr_death [1333] + 0.00 0.00 1/4984610 regenerate_aura [346] + 0.00 0.00 1/4984610 rotting_herbs [284] + 0.00 0.00 1/4984610 roqf_factor [1329] + 0.00 0.00 1/4984610 rule_blessed_harvest [1327] + 0.00 0.00 1/4984610 rule_alliance_limit [1332] + 0.00 0.00 1/4984610 rule_faction_limit [1331] + 0.00 0.00 1/4984610 rule_give [1328] + 0.00 0.00 1/4984610 allied_skilllimit [1330] + 0.00 0.00 2/4984610 rule_stealth_anon [1325] + 0.00 0.00 2/4984610 potion_water_of_life [945] + 0.00 0.00 2/4984610 processorders [6] + 0.00 0.00 2/4984610 rule_region_owners [1323] + 0.00 0.00 2/4984610 game_id [1324] + 0.00 0.00 4/4984610 init_processor [1310] + 0.00 0.00 12/4984610 demon_skillchange [826] + 0.00 0.00 16/4984610 init_rules [1272] + 0.00 0.00 27/4984610 NMRTimeout [1264] + 0.00 0.00 29/4984610 study_cost [433] + 0.00 0.00 42/4984610 loot_cmd [873] + 0.00 0.00 47/4984610 walkingcapacity [403] + 0.00 0.00 105/4984610 terraform_resources [986] + 0.00 0.00 111/4984610 LongHunger [536] + 0.00 0.00 118/4984610 rule_transfermen [1204] + 0.00 0.00 191/4984610 CheckOverload [1180] + 0.00 0.00 207/4984610 rule_force_leave [1175] + 0.00 0.00 225/4984610 spellpower [1000] + 0.00 0.00 226/4984610 fumble [973] + 0.00 0.00 226/4984610 skill_limit [1172] + 0.00 0.00 231/4984610 RemoveNMRNewbie [1171] + 0.00 0.00 348/4984610 begin_potion [1096] + 0.00 0.00 457/4984610 FactionSpells [1136] + 0.00 0.00 587/4984610 build_building [696] + 0.00 0.00 688/4984610 can_leave [1112] + 0.00 0.00 702/4984610 max_transfers [1109] + 0.00 0.00 1085/4984610 get_friends [895] + 0.00 0.00 1398/4984610 nmr_warnings [878] + 0.00 0.00 1725/4984610 max_magicians [915] + 0.00 0.00 3659/4984610 ExpensiveMigrants [1004] + 0.00 0.00 14510/4984610 sail [181] + 0.00 0.00 16493/4984610 NewbieImmunity [900] + 0.00 0.00 30250/4984610 peasants [658] + 0.00 0.00 32679/4984610 rule_auto_taxation [855] + 0.00 0.00 40046/4984610 rule_stealth_other [530] + 0.00 0.00 41882/4984610 GiveRestriction [836] + 0.00 0.00 47562/4984610 rule_random_progress [829] + 0.00 0.00 66058/4984610 ShipSpeedBonus [806] + 0.00 0.00 163027/4984610 markets_module [748] + 0.00 0.00 178254/4984610 drifting_ships [490] + 0.00 0.00 178257/4984610 get_food [88] + 0.00 0.00 189341/4984610 rule_autowork [738] + 0.00 0.00 297010/4984610 bt_effsize [343] + 0.00 0.00 472366/4984610 produceexp_days [406] + 0.00 0.00 835616/4984610 study_cmd [105] + 0.00 0.00 987612/4984610 get_astralplane [482] + 0.00 0.01 1381157/4984610 unit_max_hp [136] +[348] 0.1 0.01 0.02 4984610 config_get_int [348] + 0.01 0.01 4984610/5065285 get_param_int [422] +----------------------------------------------- + 0.00 0.03 1594/1594 economics [78] +[349] 0.1 0.00 0.03 1594 expandrecruit [349] + 0.00 0.03 1594/1594 do_recruiting [351] + 0.00 0.00 1594/264251 rsetpeasants [545] + 0.00 0.00 1594/2605004 rpeasants [435] + 0.00 0.00 4782/4782 select_recruitment [1079] + 0.00 0.00 1594/1594 free_recruitments [1568] +----------------------------------------------- + 0.00 0.01 42665/252446 sail [181] + 0.00 0.03 209781/252446 make_route [289] +[350] 0.1 0.00 0.03 252446 movewhere [350] + 0.01 0.02 154829/300501 move_blocked [283] + 0.00 0.01 159343/293362 get_direction [496] + 0.00 0.00 10913/369586 r_connect [474] + 0.00 0.00 1/1 get_translation [1304] +----------------------------------------------- + 0.00 0.03 1594/1594 expandrecruit [349] +[351] 0.1 0.00 0.03 1594 do_recruiting [351] + 0.00 0.03 1667/1667 add_recruits [371] + 0.00 0.00 1670/860263 use_pooled [39] + 0.00 0.00 1670/541982 get_pooled [104] + 0.00 0.00 3340/56052475 get_resourcetype [194] + 0.00 0.00 1670/129167539 u_race [89] + 0.00 0.00 60/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.03 574/574 do_battle [64] +[352] 0.1 0.00 0.03 574 battle_flee [352] + 0.00 0.02 116914/116914 fleechance [408] + 0.00 0.01 14191/14191 flee [638] + 0.00 0.00 58461/752645 chance [495] + 0.00 0.00 8962/1381157 unit_max_hp [136] + 0.00 0.00 3743/71815034 get_race [12] + 0.00 0.00 8132/129167539 u_race [89] + 0.00 0.00 8962/8962 hpflee [1519] +----------------------------------------------- + 0.02 0.01 1/1 process [7] +[353] 0.1 0.02 0.01 1 restack_units [353] + 0.01 0.00 1130203/55492327 getkeyword [54] + 0.00 0.00 20/888603 findunit [123] + 0.00 0.00 20/228907 getid [483] + 0.00 0.00 20/2281756 gettoken [195] + 0.00 0.00 6/593636 building_owner [232] + 0.00 0.00 20/1787006 findparam [458] + 0.00 0.00 20/1027665 init_order [613] + 0.00 0.00 2/3358315 ship_owner [438] +----------------------------------------------- + 0.00 0.03 7254/7254 sail [181] +[354] 0.1 0.00 0.03 7254 ship_ready [354] + 0.02 0.00 7250/13500 crew_skill [344] + 0.00 0.01 7230/10344 cansail [469] + 0.00 0.00 7254/12320804 effskill [100] + 0.00 0.00 7254/3358315 ship_owner [438] + 0.00 0.00 61/15102 cmistake [718] + 0.00 0.00 4/41248 msg_feedback [647] + 0.00 0.00 4/392959 add_message [434] + 0.00 0.00 7250/13500 enoughsailors [1512] + 0.00 0.00 4/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 698/1956810 transfermen [899] + 0.00 0.00 2419/1956810 set_level [774] + 0.00 0.00 2423/1956810 learn_skill [471] + 0.03 0.00 1951270/1956810 read_unit [74] +[355] 0.1 0.03 0.00 1956810 add_skill [355] + 0.00 0.00 1725/1725 max_magicians [915] +----------------------------------------------- + 0.03 0.00 1/1 tolua_process_orders [5] +[356] 0.1 0.03 0.00 1 reset_game [356] + 0.00 0.00 1/3 init_locales [947] +----------------------------------------------- + 0.00 0.00 1/967 promotion_cmd [917] + 0.00 0.00 45/967 count_maxmigrants [730] + 0.00 0.01 230/967 report_computer [9] + 0.00 0.01 230/967 report_plaintext [4] + 0.00 0.01 461/967 maxheroes [492] +[357] 0.1 0.00 0.03 967 count_all [357] + 0.03 0.00 967/2247 count_faction [219] +----------------------------------------------- + 0.00 0.00 174/4457785 findresourcetype [1181] + 0.00 0.00 371/4457785 add_translation [1145] + 0.00 0.00 628/4457785 add_itemname_cb [980] + 0.00 0.00 648/4457785 add_resourcename_cb [977] + 0.00 0.00 191379/4457785 finditemtype [735] + 0.01 0.00 995991/4457785 get_skill [423] + 0.01 0.00 1481616/4457785 get_keyword [274] + 0.01 0.00 1786978/4457785 findparam [458] +[358] 0.1 0.03 0.00 4457785 transliterate [358] + 0.00 0.00 130/46391457 unicode_utf8_to_ucs4 [177] +----------------------------------------------- + 0.03 0.00 195108/195108 report_template [87] +[359] 0.1 0.03 0.00 195108 rps_nowrap [359] +----------------------------------------------- + 0.01 0.00 51976/130250 cr_output_region [10] + 0.02 0.00 78274/130250 report_plaintext [4] +[360] 0.1 0.03 0.00 130250 r_getmessages [360] +----------------------------------------------- + +[361] 0.1 0.03 0.00 a_select [361] +----------------------------------------------- + +[362] 0.1 0.03 0.00 ql_foreachx [362] +----------------------------------------------- + 0.00 0.00 78/13399069 eval_weight [1102] + 0.00 0.00 124/13399069 eval_unit_dative [1076] + 0.00 0.00 604/13399069 eval_spell [961] + 0.00 0.00 834/13399069 eval_resources [907] + 0.00 0.00 1196/13399069 eval_localize [922] + 0.00 0.00 1520/13399069 eval_race [882] + 0.00 0.00 19545/13399069 eval_ship [740] + 0.00 0.00 25857/13399069 eval_int36 [729] + 0.00 0.00 40099/13399069 eval_skill [671] + 0.00 0.00 46224/13399069 eval_faction [685] + 0.00 0.00 67213/13399069 eval_building [494] + 0.00 0.00 108560/13399069 eval_trail [634] + 0.00 0.00 123513/13399069 eval_order [472] + 0.00 0.00 127674/13399069 eval_trailto [369] + 0.00 0.00 127788/13399069 eval_direction [608] + 0.00 0.00 470529/13399069 eval_resource [328] + 0.00 0.00 515550/13399069 eval_region [245] + 0.00 0.00 799427/13399069 eval_unit [223] + 0.00 0.00 883617/13399069 eval_int [268] + 0.01 0.00 2725583/13399069 parse_string [86] + 0.01 0.00 3656767/13399069 add_variable [607] + 0.01 0.00 3656767/13399069 translate [28] +[363] 0.1 0.03 0.00 13399069 balloc [363] +----------------------------------------------- + 0.03 0.00 2818494/2818494 rc_name_s [260] +[364] 0.1 0.03 0.00 2818494 rc_name [364] +----------------------------------------------- + 0.00 0.00 58/21345834 sp_summon_familiar [1025] + 0.00 0.00 119/21345834 plan_dragon [273] + 0.00 0.00 222/21345834 steal_cmd [766] + 0.00 0.00 231/21345834 setstealth_cmd [182] + 0.00 0.00 569/21345834 u_seteffstealth [1199] + 0.00 0.00 2127/21345834 cr_output_unit [19] + 0.00 0.00 2129/21345834 read_unit [74] + 0.00 0.00 2457/21345834 set_level [774] + 0.00 0.00 3387/21345834 lighthouse_range [728] + 0.00 0.00 6428/21345834 cansee_unit [684] + 0.00 0.00 8034/21345834 u_geteffstealth [919] + 0.00 0.00 23237/21345834 check_leuchtturm [786] + 0.00 0.00 33139/21345834 statistics [70] + 0.00 0.00 36937/21345834 cr_output_region [10] + 0.00 0.00 45891/21345834 get_level [934] + 0.00 0.00 419518/21345834 plan_monsters [52] + 0.00 0.00 1188531/21345834 eff_stealth [163] + 0.00 0.00 2363341/21345834 cansee [22] + 0.01 0.00 7179079/21345834 rc_skillmod [140] + 0.01 0.00 10030400/21345834 effskill [100] +[365] 0.1 0.03 0.00 21345834 skill_enabled [365] +----------------------------------------------- + 0.00 0.00 1/451774 reshow_other [823] + 0.00 0.00 1/451774 usetprivate [1041] + 0.00 0.00 8/451774 melt_iceberg [1082] + 0.00 0.00 23/451774 set_group [1048] + 0.00 0.00 40/451774 plan_monsters [52] + 0.00 0.00 40/451774 deathcounts [843] + 0.00 0.00 105/451774 change_effect [982] + 0.00 0.00 4738/451774 expandselling [93] + 0.00 0.00 5679/451774 expandbuying [49] + 0.00 0.00 23562/451774 a_age [418] + 0.01 0.02 417577/451774 study_cmd [105] +[366] 0.1 0.01 0.02 451774 a_remove [366] + 0.01 0.00 451774/451774 a_unlink [559] + 0.01 0.00 451774/454395 a_free [558] +----------------------------------------------- + 0.00 0.00 3/184870 bewegung_blockiert_von [631] + 0.00 0.00 3778/184870 expandselling [93] + 0.00 0.00 11599/184870 building_protection [708] + 0.01 0.02 169490/184870 default_wage [173] +[367] 0.1 0.01 0.02 184870 buildingeffsize [367] + 0.02 0.00 184870/297010 bt_effsize [343] +----------------------------------------------- + 0.00 0.00 1529/2275967 give_men [857] + 0.00 0.00 2062/2275967 create_unit [296] + 0.00 0.01 923633/2275967 cr_output_unit [19] + 0.01 0.01 1348743/2275967 bufunit [17] +[368] 0.1 0.01 0.02 2275967 get_racename [368] + 0.02 0.00 2275967/51974272 a_find [65] +----------------------------------------------- + 0.00 0.03 127674/127674 parse_symbol [42] +[369] 0.1 0.00 0.03 127674 eval_trailto [369] + 0.00 0.01 127674/146950 f_regionid_s [477] + 0.00 0.01 127674/785221 trailinto [207] + 0.00 0.00 127674/13102790 opstack_pop [176] + 0.00 0.00 127674/13102790 opstack_push [202] + 0.00 0.00 127674/13399069 balloc [363] +----------------------------------------------- + 0.02 0.01 1/1 randomevents [91] +[370] 0.1 0.02 0.01 1 orc_growth [370] + 0.01 0.00 187111/2624955 has_skill [193] + 0.00 0.00 91483/12246335 ct_find [114] + 0.00 0.00 91483/10190660 get_curse [143] +----------------------------------------------- + 0.00 0.03 1667/1667 do_recruiting [351] +[371] 0.1 0.00 0.03 1667 add_recruits [371] + 0.00 0.02 1298/2889 create_unit [296] + 0.00 0.01 1298/1794 remove_unit [499] + 0.00 0.00 1667/2375 equip_unit [775] + 0.00 0.00 1298/1936 transfermen [899] + 0.00 0.00 369/1381157 unit_max_hp [136] + 0.00 0.00 1667/34611296 strlcpy [45] + 0.00 0.00 4632/129167539 u_race [89] + 0.00 0.00 58/967784 msg_message [132] + 0.00 0.00 58/392959 add_message [434] + 0.00 0.00 3334/987128 strlcat [1374] + 0.00 0.00 1667/2742 get_equipment [1551] + 0.00 0.00 369/603524 set_number [1387] + 0.00 0.00 58/1009028 msg_release [1373] +----------------------------------------------- + 0.02 0.01 3438/3438 prepare_lighthouse [340] +[372] 0.1 0.02 0.01 3438 get_regions_distance [372] + 0.00 0.01 200928/298951 distance [599] + 0.00 0.00 88016/1087065 get_neighbours [480] +----------------------------------------------- + +[373] 0.1 0.00 0.03 ql_set_find_ex [373] + 0.03 0.00 2506526/7252744 cmp_transfer [203] +----------------------------------------------- + 0.00 0.00 1/6963 move_iceberg [1094] + 0.00 0.00 15/6963 drifting_ships [490] + 0.02 0.01 6947/6963 sail [181] +[374] 0.1 0.02 0.01 6963 move_ship [374] + 0.00 0.00 10653/109785 move_unit [421] + 0.00 0.00 6962/6962 leave_trail [704] + 0.00 0.00 6952/113844 translist [430] + 0.00 0.00 10679/106919 mark_travelthru [610] + 0.00 0.00 10679/12320804 effskill [100] + 0.00 0.00 9105/472418 produceexp [322] +----------------------------------------------- + 0.00 0.00 6947/103187 sail [181] + 0.00 0.03 96240/103187 travel_route [147] +[375] 0.1 0.00 0.03 103187 cycle_route [375] + 0.00 0.00 133973/24887945 locale_string [27] + 0.00 0.01 133973/293362 get_direction [496] + 0.01 0.00 8450/14326 replace_order [526] + 0.00 0.00 142423/2281756 gettoken [195] + 0.00 0.00 63020/17451017 strlcpy_w [67] + 0.00 0.00 103187/55492327 getkeyword [54] + 0.00 0.00 8450/447808 create_order [341] + 0.00 0.00 8450/1027665 init_order [613] + 0.00 0.00 188092/987128 strlcat [1374] + 0.00 0.00 8450/1936876 free_order [1356] +----------------------------------------------- + 0.00 0.00 174/147217 peasant_luck_effect [984] + 0.00 0.00 22496/147217 rotting_herbs [284] + 0.02 0.01 124547/147217 horses [330] +[376] 0.1 0.02 0.01 147217 normalvariate [376] + 0.00 0.01 403284/1336242 rng_injectable_double [396] +----------------------------------------------- + 0.00 0.00 7/15361 start_battle [297] + 0.00 0.00 30/15361 buy [707] + 0.00 0.00 39/15361 sell [498] + 0.00 0.00 42/15361 loot_cmd [873] + 0.00 0.00 66/15361 travel [81] + 0.00 0.00 278/15361 entertain_cmd [665] + 0.00 0.00 956/15361 tax_cmd [697] + 0.00 0.00 1716/15361 recruit [650] + 0.00 0.01 3100/15361 create_item [617] + 0.00 0.01 3141/15361 do_work [612] + 0.00 0.01 5986/15361 herbsearch [493] +[377] 0.1 0.00 0.03 15361 is_guarded [377] + 0.00 0.02 1841323/8452306 is_guardian_r [186] + 0.00 0.01 70836/70836 is_guardian_u [626] +----------------------------------------------- + 0.00 0.03 174677/174677 cr_output_resources [238] +[378] 0.1 0.00 0.03 174677 cr_output_resource [378] + 0.01 0.01 174677/4434556 translate [75] + 0.00 0.00 174677/24887945 locale_string [27] + 0.00 0.00 174677/32337529 hashstring [37] +----------------------------------------------- + 0.00 0.00 112/94420 give_unit [952] + 0.01 0.02 94308/94420 give_item [126] +[379] 0.1 0.01 0.02 94420 add_give [379] + 0.00 0.01 80478/967784 msg_message [132] + 0.00 0.00 80478/392959 add_message [434] + 0.00 0.00 1141/15102 cmistake [718] + 0.00 0.00 80478/1009028 msg_release [1373] +----------------------------------------------- + 0.01 0.02 325825/325825 monster_kills_peasants [230] +[380] 0.1 0.01 0.02 325825 scared_by_monster [380] + 0.00 0.01 197727/201744 lovar [644] + 0.00 0.00 325825/7641081 genrand_int31 [171] + 0.00 0.00 325825/51974272 a_find [65] + 0.00 0.00 255939/2605004 rpeasants [435] + 0.00 0.00 325825/129167539 u_race [89] + 0.00 0.00 3152/3152 scareaway [768] + 0.00 0.00 2699/967784 msg_message [132] + 0.00 0.00 2699/392959 add_message [434] + 0.00 0.00 2699/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.03 1/1 processorders [6] +[381] 0.1 0.00 0.03 1 update_spells [381] + 0.02 0.01 231/231 faction_getmages [382] + 0.00 0.00 396/396 show_new_spells [889] + 0.00 0.00 1717/2426021 get_mage [198] + 0.00 0.00 165/12320804 effskill [100] + 0.00 0.00 224/457 FactionSpells [1136] + 0.00 0.00 1/3902878 get_monsters [293] + 0.00 0.00 231/3203 faction_get_spellbook [1543] +----------------------------------------------- + 0.02 0.01 231/231 update_spells [381] +[382] 0.1 0.02 0.01 231 faction_getmages [382] + 0.00 0.01 176043/2426021 get_mage [198] + 0.00 0.00 1717/12320804 effskill [100] +----------------------------------------------- + 0.00 0.03 10600/10600 process [7] +[383] 0.1 0.00 0.03 10600 make_cmd [383] + 0.00 0.01 5988/5988 herbsearch [493] + 0.00 0.01 3626/3626 create_item [617] + 0.00 0.00 621/621 build_building [696] + 0.00 0.00 15176/2281756 gettoken [195] + 0.00 0.00 312/312 continue_ship [813] + 0.00 0.00 4259/4261 findbuildingtype [866] + 0.00 0.00 4259/4259 findshiptype [869] + 0.00 0.00 3086/24887945 locale_string [27] + 0.00 0.00 10600/1787006 findparam [458] + 0.00 0.00 10600/1027665 init_order [613] + 0.00 0.00 41/41 build_road [950] + 0.00 0.00 621/228907 getid [483] + 0.00 0.00 4259/191379 finditemtype [735] + 0.00 0.00 2/2 create_ship [1014] + 0.00 0.00 1543/13259934 resourcename [233] + 0.00 0.00 41/293362 get_direction [496] + 0.00 0.00 10/41248 msg_feedback [647] + 0.00 0.00 976/18647447 getplane [596] + 0.00 0.00 10/392959 add_message [434] + 0.00 0.00 10/1009028 msg_release [1373] +----------------------------------------------- + 0.01 0.02 1/1 movement [47] +[384] 0.1 0.01 0.02 1 init_transportation [384] + 0.02 0.00 1693146/55492327 getkeyword [54] + 0.00 0.00 145/282847 getunit [205] + 0.00 0.00 37/37 transport [1011] + 0.00 0.00 4/1437425 cansee [22] + 0.00 0.00 33/279395 weight [459] + 0.00 0.00 111/1027665 init_order [613] + 0.00 0.00 74/115276 can_move [736] + 0.00 0.00 4/41248 msg_feedback [647] + 0.00 0.00 74/1629412 LongHunger [536] + 0.00 0.00 4/15102 cmistake [718] + 0.00 0.00 20/779419 a_add [555] + 0.00 0.00 4/392959 add_message [434] + 0.00 0.00 20/779868 a_new [1376] + 0.00 0.00 4/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1/1177511 giveitem_read [1262] + 0.00 0.00 7/1177511 has_ao_healing [1269] + 0.00 0.00 9/1177511 default_spoil [1144] + 0.00 0.00 15/1177511 init_oldpotions [1235] + 0.00 0.00 66/1177511 add_items [1169] + 0.00 0.00 121/1177511 tolua_unit_add_item [1103] + 0.00 0.00 185/1177511 it_get_or_create [1115] + 0.00 0.00 242/1177511 canfly [1031] + 0.00 0.00 47287/1177511 canswim [682] + 0.00 0.00 85655/1177511 movement_speed [155] + 0.00 0.01 448447/1177511 read_items [320] + 0.00 0.01 595476/1177511 rotting_herbs [284] +[385] 0.1 0.00 0.03 1177511 it_find [385] + 0.02 0.00 1177511/1177511 it_alias [453] + 0.01 0.00 1177511/2032164 rt_find [597] +----------------------------------------------- + 0.00 0.00 61444/745269 cb_add_seen [94] + 0.00 0.00 87604/745269 prepare_lighthouse [340] + 0.01 0.01 596221/745269 prepare_report [8] +[386] 0.1 0.01 0.02 745269 add_seen_nb [386] + 0.01 0.00 745269/1087065 get_neighbours [480] + 0.00 0.00 1490538/3383689 update_interval [551] + 0.00 0.00 1014205/1014205 add_seen [1372] +----------------------------------------------- + 0.00 0.00 17247/435022 teach_cmd [272] + 0.00 0.02 417775/435022 study_cmd [105] +[387] 0.1 0.00 0.03 435022 getskill [387] + 0.00 0.01 435022/2281756 gettoken [195] + 0.00 0.00 435012/996009 get_skill [423] +----------------------------------------------- + 0.00 0.00 13/840577 read_planes [1164] + 0.00 0.00 233/840577 readfaction [767] + 0.00 0.00 1694/840577 read_groups [782] + 0.00 0.00 65258/840577 read_game [62] + 0.00 0.01 178254/840577 readregion [209] + 0.00 0.02 595125/840577 read_unit [74] +[388] 0.1 0.00 0.03 840577 read_attribs [388] + 0.00 0.03 840577/840577 a_read_orig [389] + 0.00 0.00 1/1 a_upgradekeys [1314] +----------------------------------------------- + 0.00 0.03 840577/840577 read_attribs [388] +[389] 0.1 0.00 0.03 840577 a_read_orig [389] + 0.00 0.03 251814/251814 a_read_i [390] + 0.00 0.00 251814/251874 __at_hashkey [3279] +----------------------------------------------- + 0.00 0.03 251814/251814 a_read_orig [389] +[390] 0.1 0.00 0.03 251814 a_read_i [390] + 0.00 0.01 39836/39836 read_of [524] + 0.01 0.00 251814/251814 at_find [563] + 0.00 0.00 251365/779419 a_add [555] + 0.00 0.00 4020/4020 curse_read [770] + 0.00 0.00 1557/1557 read_handler [799] + 0.00 0.00 1138/1138 read_targetregion [870] + 0.00 0.00 760/760 read_familiar [893] + 0.00 0.00 760/760 read_magician [894] + 0.00 0.00 2491/2491 a_readeffect [1052] + 0.00 0.00 449/454395 a_free [558] + 0.00 0.00 2/2 wormhole_read [1238] + 0.00 0.00 251814/779868 a_new [1376] + 0.00 0.00 58412/58518 a_readint [1448] + 0.00 0.00 56503/56503 read_group [1451] + 0.00 0.00 34382/34382 a_readshorts [1474] + 0.00 0.00 34220/34220 shiptrail_read [1475] + 0.00 0.00 8191/8191 read_seenspell [1522] + 0.00 0.00 7085/7085 a_readprivate [1531] + 0.00 0.00 2091/2091 read_mage [1559] + 0.00 0.00 136/136 a_readstring [1642] + 0.00 0.00 106/106 a_readkey [1648] + 0.00 0.00 68/68 a_readchars [1660] + 0.00 0.00 56/56 dict_read [1676] +----------------------------------------------- + 0.00 0.03 1/1 quit [276] +[391] 0.1 0.00 0.03 1 remove_idle_players [391] + 0.02 0.01 1/1 destroyfaction [392] + 0.00 0.00 231/231 RemoveNMRNewbie [1171] + 0.00 0.00 1/3902878 get_monsters [293] + 0.00 0.00 1/27 NMRTimeout [1264] + 0.00 0.00 1/1 nmr_death [1333] + 0.00 0.00 2/64 log_info [1339] +----------------------------------------------- + 0.02 0.01 1/1 remove_idle_players [391] +[392] 0.1 0.02 0.01 1 destroyfaction [392] + 0.01 0.00 595441/51974272 a_find [65] + 0.00 0.00 9/1803 gift_items [891] + 0.00 0.00 9/264251 rsetpeasants [545] + 0.00 0.00 1/40046 rule_stealth_other [530] + 0.00 0.00 9/7120688 get_money [187] + 0.00 0.00 9/2605004 rpeasants [435] + 0.00 0.00 18/129167539 u_race [89] + 0.00 0.00 9/2186159 rsetmoney [553] + 0.00 0.00 9/4666665 rmoney [452] + 0.00 0.00 39954/1380007 get_otherfaction [1362] + 0.00 0.00 9/1160345 rhorses [1369] + 0.00 0.00 9/257693 rsethorses [1408] + 0.00 0.00 9/603524 set_number [1387] + 0.00 0.00 1/1342832 handle_event [1363] + 0.00 0.00 1/1 funhash [1806] +----------------------------------------------- + 0.00 0.02 843545/843545 parse_symbol [42] +[393] 0.1 0.00 0.02 843545 eval_if [393] + 0.02 0.00 2530635/13102790 opstack_pop [176] + 0.01 0.00 843545/13102790 opstack_push [202] +----------------------------------------------- + 0.00 0.00 9/178263 melt_iceberg [1082] + 0.01 0.01 178254/178263 icebergs [285] +[394] 0.1 0.01 0.01 178263 drown [394] + 0.01 0.00 127590/1375380 remove_empty_units_in_region [134] + 0.00 0.00 7544/47287 canswim [682] + 0.00 0.00 7560/71815034 get_race [12] + 0.00 0.00 7560/129167539 u_race [89] + 0.00 0.00 3/967784 msg_message [132] + 0.00 0.00 3/242 canfly [1031] + 0.00 0.00 3/392959 add_message [434] + 0.00 0.00 3/3178 scale_number [969] + 0.00 0.00 3/1009028 msg_release [1373] +----------------------------------------------- + 0.01 0.01 1336242/1336242 rng_injectable_double [396] +[395] 0.1 0.01 0.01 1336242 genrand_real2 [395] + 0.01 0.00 1336242/11253756 genrand_int32 [150] +----------------------------------------------- + 0.00 0.00 58/1336242 peasant_luck_effect [984] + 0.00 0.00 1016/1336242 regeneration [942] + 0.00 0.00 7074/1336242 immigration [294] + 0.00 0.00 25985/1336242 plagues [781] + 0.00 0.00 30250/1336242 peasants [658] + 0.00 0.00 32878/1336242 demographics [50] + 0.00 0.00 83094/1336242 ntimespprob [723] + 0.00 0.01 403284/1336242 normalvariate [376] + 0.00 0.01 752603/1336242 chance [495] +[396] 0.1 0.00 0.02 1336242 rng_injectable_double [396] + 0.01 0.01 1336242/1336242 genrand_real2 [395] +----------------------------------------------- + 0.00 0.01 104830/218422 cr_output_building [239] + 0.00 0.01 113592/218422 nr_building [141] +[397] 0.1 0.00 0.02 218422 report_building [397] + 0.01 0.01 218422/218425 buildingtype [414] + 0.00 0.00 218422/1106528 is_building_type [554] +----------------------------------------------- + 0.01 0.01 655564/655564 parse_symbol [42] +[398] 0.1 0.01 0.01 655564 eval_eq [398] + 0.01 0.00 1311128/13102790 opstack_pop [176] + 0.00 0.00 655564/13102790 opstack_push [202] +----------------------------------------------- + 0.00 0.02 1/1 tolua_write_reports [1] +[399] 0.1 0.00 0.02 1 init_reports [399] + 0.02 0.00 178254/178254 reorder_units [400] + 0.00 0.00 1/1 check_messages_exist [1141] + 0.00 0.00 1/2 create_directories [1294] +----------------------------------------------- + 0.02 0.00 178254/178254 init_reports [399] +[400] 0.1 0.02 0.00 178254 reorder_units [400] + 0.00 0.00 37894/593636 building_owner [232] + 0.00 0.00 18974/3358315 ship_owner [438] +----------------------------------------------- + 0.00 0.02 1766225/1766225 nr_curses [48] +[401] 0.1 0.00 0.02 1766225 nr_curses_i [401] + 0.00 0.01 15186/1380398 nr_render [25] + 0.01 0.00 15186/2742237 paragraph [26] + 0.00 0.00 13217/26045 msg_curse [664] + 0.00 0.00 2069/967784 msg_message [132] + 0.00 0.00 15186/2494242 newline [594] + 0.00 0.00 15186/1009028 msg_release [1373] + 0.00 0.00 13217/26045 curse_cansee [1489] +----------------------------------------------- + 0.00 0.02 754/754 new_units [282] +[402] 0.1 0.00 0.02 754 checkunitnumber [402] + 0.02 0.00 754/2247 count_faction [219] + 0.00 0.00 754/754 rule_alliance_limit [1332] + 0.00 0.00 754/1214 rule_faction_limit [1331] +----------------------------------------------- + 0.00 0.00 12778/96637 canwalk [633] + 0.00 0.02 83859/96637 reduce_weight [404] +[403] 0.1 0.00 0.02 96637 walkingcapacity [403] + 0.00 0.01 179414/12320804 effskill [100] + 0.00 0.00 96637/71815034 get_race [12] + 0.00 0.00 96637/5395063 i_get [130] + 0.00 0.00 96637/2858912 get_effect [225] + 0.00 0.00 193274/2032164 rt_find [597] + 0.00 0.00 193321/129167539 u_race [89] + 0.00 0.00 96637/96637 personcapacity [795] + 0.00 0.00 47/4984610 config_get_int [348] + 0.00 0.00 96637/130867 get_transporters [1431] +----------------------------------------------- + 0.00 0.00 136/83859 plan_dragon [273] + 0.00 0.02 83723/83859 monster_move [129] +[404] 0.1 0.00 0.02 83859 reduce_weight [404] + 0.00 0.02 83859/96637 walkingcapacity [403] + 0.00 0.00 83859/8302761 get_resource [99] + 0.00 0.00 83871/56052475 get_resourcetype [194] + 0.00 0.00 47/47 give_peasants [1060] + 0.00 0.00 12/931076 change_resource [240] +----------------------------------------------- + 0.02 0.00 1/1 randomevents [91] +[405] 0.1 0.02 0.00 1 godcurse [405] + 0.00 0.00 91155/12246335 ct_find [114] + 0.00 0.00 91155/10190660 get_curse [143] + 0.00 0.00 91155/4201030 curse_active [543] + 0.00 0.00 91155/651711 oldcursename [1381] +----------------------------------------------- + 0.02 0.00 472366/472366 produceexp_ex [323] +[406] 0.1 0.02 0.00 472366 produceexp_days [406] + 0.00 0.00 472366/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 249/1121103 make_movement_order [522] + 0.00 0.00 752/1121103 monster_attack [764] + 0.00 0.00 105106/1121103 monster_move [129] + 0.01 0.00 419518/1121103 plan_monsters [52] + 0.01 0.00 595478/1121103 monster_kills_peasants [230] +[407] 0.1 0.02 0.00 1121103 monster_is_waiting [407] + 0.00 0.00 1121103/129167539 u_race [89] +----------------------------------------------- + 0.00 0.02 116914/116914 battle_flee [352] +[408] 0.1 0.00 0.02 116914 fleechance [408] + 0.00 0.01 116914/116914 horse_fleeing_bonus [604] + 0.00 0.01 116914/12320804 effskill [100] + 0.00 0.00 116914/71815034 get_race [12] + 0.00 0.00 116914/51974272 a_find [65] + 0.00 0.00 116914/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 23/146997 equip_items [1121] + 0.00 0.00 60/146997 damage_unit [1044] + 0.00 0.00 174/146997 terraform_resources [986] + 0.00 0.00 1560/146997 equip_unit_mask [776] + 0.00 0.00 2491/146997 hunger [808] + 0.00 0.01 42157/146997 attack [84] + 0.00 0.02 100532/146997 terminate [242] +[409] 0.1 0.00 0.02 146997 dice_rand [409] + 0.02 0.00 146997/146997 term_eval [410] +----------------------------------------------- + 0.02 0.00 146997/146997 dice_rand [409] +[410] 0.1 0.02 0.00 146997 term_eval [410] + 0.00 0.00 204245/7641081 genrand_int31 [171] +----------------------------------------------- + 0.02 0.00 1/1 tolua_spawn_dragons [412] +[411] 0.1 0.02 0.00 1 spawn_dragons [411] + 0.00 0.00 139786/7641081 genrand_int31 [171] + 0.00 0.00 20/20 spawn_seaserpent [831] + 0.00 0.00 10/2889 create_unit [296] + 0.00 0.00 12205/21517 chaosfactor [1077] + 0.00 0.00 10/2375 equip_unit [775] + 0.00 0.00 10/967784 msg_message [132] + 0.00 0.00 10/2931 name_unit [803] + 0.00 0.00 10/361 regionname [987] + 0.00 0.00 10/392959 add_message [434] + 0.00 0.00 10/24887945 locale_string [27] + 0.00 0.00 10/10 nrand [1232] + 0.00 0.00 10/71815034 get_race [12] + 0.00 0.00 10/752645 chance [495] + 0.00 0.00 10/2818494 rc_name_s [260] + 0.00 0.00 20/129167539 u_race [89] + 0.00 0.00 1/3902879 get_or_create_monsters [292] + 0.00 0.00 10/49235 log_debug [1245] + 0.00 0.00 139323/1511812 newterrain [1359] + 0.00 0.00 10/2742 get_equipment [1551] + 0.00 0.00 10/1009028 msg_release [1373] +----------------------------------------------- + +[412] 0.1 0.00 0.02 tolua_spawn_dragons [412] + 0.02 0.00 1/1 spawn_dragons [411] +----------------------------------------------- + 0.00 0.00 111/284005 steal_cmd [766] + 0.00 0.00 147/284005 contact_cmd [965] + 0.00 0.00 900/284005 follow_unit [331] + 0.00 0.02 282847/284005 getunit [205] +[413] 0.1 0.00 0.02 284005 read_unitid [413] + 0.00 0.01 284005/2281756 gettoken [195] + 0.01 0.00 281303/688711 atoi36 [440] + 0.00 0.00 283968/534930 isparam [668] + 0.00 0.00 2665/2665 read_newunitid [739] +----------------------------------------------- + 0.00 0.00 3/218425 new_building [1059] + 0.01 0.01 218422/218425 report_building [397] +[414] 0.1 0.01 0.01 218425 buildingtype [414] + 0.00 0.01 112140/112140 castle_name [512] + 0.00 0.00 15060/1106528 is_building_type [554] +----------------------------------------------- + 0.02 0.00 1/1 tolua_update_guards [416] +[415] 0.1 0.02 0.00 1 update_guards [415] + 0.00 0.00 31357/55350 can_start_guarding [679] + 0.00 0.00 31351/51974272 a_find [65] + 0.00 0.00 6/337987 setguard [815] +----------------------------------------------- + +[416] 0.1 0.00 0.02 tolua_update_guards [416] + 0.02 0.00 1/1 update_guards [415] +----------------------------------------------- + 0.00 0.00 32670/669051 peasants [658] + 0.00 0.00 33139/669051 statistics [70] + 0.00 0.00 36937/669051 cr_output_region [10] + 0.00 0.00 127676/669051 describe [35] + 0.00 0.01 438629/669051 maxworkingpeasants [473] +[417] 0.1 0.00 0.02 669051 production [417] + 0.01 0.00 669051/12246335 ct_find [114] + 0.01 0.00 669051/10190660 get_curse [143] + 0.00 0.00 669051/4201030 curse_active [543] +----------------------------------------------- + 0.00 0.00 46184/839202 age_building [712] + 0.00 0.00 178254/839202 age_region [659] + 0.01 0.00 614764/839202 ageing [185] +[418] 0.1 0.02 0.00 839202 a_age [418] + 0.00 0.00 23562/451774 a_remove [366] + 0.00 0.00 106/106 age_reduceproduction [1017] + 0.00 0.00 2/2 wormhole_age [1130] + 0.00 0.00 37453/37453 shiptrail_age [1468] + 0.00 0.00 4052/4052 curse_age [1538] + 0.00 0.00 1522/1522 age_unit [1573] + 0.00 0.00 186/186 leftship_age [1635] +----------------------------------------------- + 0.00 0.02 230/230 report_plaintext [4] +[419] 0.1 0.00 0.02 230 allies [419] + 0.00 0.02 1888/1888 show_allies [429] + 0.00 0.00 1888/2742237 paragraph [26] + 0.00 0.00 1888/24887945 locale_string [27] + 0.00 0.00 1888/2494242 newline [594] +----------------------------------------------- + 0.00 0.00 1/459083 tolua_get_region [1296] + 0.00 0.00 5/459083 cast_cmd [760] + 0.00 0.00 125/459083 tpregion [1085] + 0.00 0.00 8892/459083 r_astral_to_standard [783] + 0.00 0.01 108425/459083 update_lighthouse [605] + 0.00 0.01 163381/459083 astralregions [329] + 0.00 0.01 178254/459083 readregion [209] +[420] 0.1 0.00 0.02 459083 findregion [420] + 0.02 0.00 459083/1006923 rfindhash [271] +----------------------------------------------- + 0.00 0.00 1/109785 wormhole_age [1130] + 0.00 0.00 2/109785 sp_enterastral [1045] + 0.00 0.00 2889/109785 create_unit [296] + 0.00 0.00 10653/109785 move_ship [374] + 0.00 0.02 96240/109785 travel_route [147] +[421] 0.1 0.00 0.02 109785 move_unit [421] + 0.00 0.02 106892/113844 translist [430] + 0.00 0.00 209/2887 leave [432] + 0.00 0.00 109781/3383689 update_interval [551] + 0.00 0.00 2889/760673 addlist [217] + 0.00 0.00 106892/337987 setguard [815] +----------------------------------------------- + 0.00 0.00 45/5065285 count_maxmigrants [730] + 0.00 0.00 80630/5065285 armor_bonus [819] + 0.01 0.01 4984610/5065285 config_get_int [348] +[422] 0.1 0.01 0.01 5065285 get_param_int [422] + 0.01 0.00 5065285/26776263 get_param [235] +----------------------------------------------- + 0.00 0.00 12/996009 forget_cmd [1093] + 0.00 0.00 435012/996009 getskill [387] + 0.01 0.01 560985/996009 create_data [252] +[423] 0.1 0.01 0.01 996009 get_skill [423] + 0.01 0.00 995991/4457785 transliterate [358] + 0.00 0.00 995991/4558423 get_translations [437] +----------------------------------------------- + 0.00 0.00 2/1297 summon_allies [925] + 0.00 0.02 1295/1297 join_battle [425] +[424] 0.1 0.00 0.02 1297 make_fighter [424] + 0.01 0.00 1297/1297 AllianceAuto [535] + 0.00 0.01 56927/546579 weapon_skill [221] + 0.00 0.00 863/3147 i_canuse [569] + 0.00 0.00 17902/7641081 genrand_int31 [171] + 0.00 0.00 2909/12320804 effskill [100] + 0.00 0.00 552/552 make_side [876] + 0.00 0.00 2594/83224 trollbelts [677] + 0.00 0.00 2594/5395063 i_get [130] + 0.00 0.00 1297/2858912 get_effect [225] + 0.00 0.00 7054/129167539 u_race [89] + 0.00 0.00 489/71815034 get_race [12] + 0.00 0.00 1593/51974272 a_find [65] + 0.00 0.00 406/12246335 ct_find [114] + 0.00 0.00 3891/56052475 get_resourcetype [194] + 0.00 0.00 406/10190660 get_curse [143] + 0.00 0.00 1729/4301501 statusrow [550] + 0.00 0.00 326/7910500 r_isforest [199] + 0.00 0.00 110533/110533 weapon_weight [1435] + 0.00 0.00 3531/2379316 resource2weapon [1353] + 0.00 0.00 1297/1297 add_tactics [1579] + 0.00 0.00 1295/1295 find_side [1581] + 0.00 0.00 768/1429 set_attacker [1576] + 0.00 0.00 314/314 CavalrySkill [1608] + 0.00 0.00 156/1380007 get_otherfaction [1362] +----------------------------------------------- + 0.00 0.00 345/3203 join_allies [693] + 0.00 0.02 2858/3203 start_battle [297] +[425] 0.1 0.00 0.02 3203 join_battle [425] + 0.00 0.02 1295/1297 make_fighter [424] + 0.00 0.00 1774/51974272 a_find [65] + 0.00 0.00 661/1429 set_attacker [1576] +----------------------------------------------- + 0.01 0.01 16132/16132 teach_cmd [272] +[426] 0.1 0.01 0.01 16132 teach_unit [426] + 0.01 0.00 1302/1302 academy_can_teach [527] + 0.00 0.00 11749/779419 a_add [555] + 0.00 0.00 16132/51974272 a_find [65] + 0.00 0.00 16132/16132 magic_lowskill [897] + 0.00 0.00 11749/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 99/597806 eff_spelllevel [845] + 0.00 0.00 365/597806 unit_getspell [758] + 0.00 0.00 492/597806 u_hasspell [951] + 0.00 0.00 1711/597806 cr_output_spells [639] + 0.00 0.02 595139/597806 bufunit [17] +[427] 0.1 0.00 0.02 597806 unit_get_spellbook [427] + 0.00 0.02 597806/2426021 get_mage [198] + 0.00 0.00 2972/3203 faction_get_spellbook [1543] +----------------------------------------------- + 0.00 0.02 230/230 report_computer [9] +[428] 0.1 0.00 0.02 230 report_crtypes [428] + 0.02 0.00 7964/7964 nrt_string [443] + 0.00 0.00 7964/5168717 nrt_find [98] + 0.00 0.00 7964/618305 escape_string [556] + 0.00 0.00 7964/7964 nrt_section [1524] +----------------------------------------------- + 0.00 0.02 1888/1888 allies [419] +[429] 0.1 0.00 0.02 1888 show_allies [429] + 0.01 0.00 110660/10375491 alliedgroup [34] + 0.01 0.00 293954/34611296 strlcpy [45] + 0.00 0.00 65837/24887945 locale_string [27] + 0.00 0.00 55330/1295787 factionname [247] + 0.00 0.00 293954/36653945 wrptr [178] +----------------------------------------------- + 0.00 0.00 6952/113844 move_ship [374] + 0.00 0.02 106892/113844 move_unit [421] +[430] 0.1 0.00 0.02 113844 translist [430] + 0.01 0.00 113844/760673 addlist [217] + 0.01 0.00 113844/113845 choplist [565] +----------------------------------------------- + 0.00 0.00 3/252 farcasting [842] + 0.00 0.02 249/252 plan_dragon [273] +[431] 0.1 0.00 0.02 252 path_exists [431] + 0.01 0.01 252/388 internal_path_find [345] +----------------------------------------------- + 0.00 0.00 2/2887 summon_allies [925] + 0.00 0.00 2/2887 create_ship [1014] + 0.00 0.00 9/2887 build_building [696] + 0.00 0.00 136/2887 aftermath [701] + 0.00 0.00 191/2887 enter_ship [733] + 0.00 0.00 209/2887 move_unit [421] + 0.00 0.00 222/2887 leave_cmd [721] + 0.00 0.00 323/2887 enter_building [695] + 0.01 0.01 1793/2887 remove_unit [499] +[432] 0.1 0.01 0.01 2887 leave [432] + 0.00 0.01 224/224 leave_ship [540] + 0.00 0.00 1125/1125 leave_building [1009] + 0.00 0.00 734/95593 can_leave [1112] +----------------------------------------------- + 0.00 0.00 404/418134 academy_can_teach [527] + 0.02 0.00 417730/418134 study_cmd [105] +[433] 0.1 0.02 0.00 418134 study_cost [433] + 0.00 0.00 724/45891 get_level [934] + 0.00 0.00 29/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 1/392959 report_action [860] + 0.00 0.00 1/392959 sp_summon_familiar [1025] + 0.00 0.00 1/392959 sp_summonshadowlords [1034] + 0.00 0.00 1/392959 allocate_resource [752] + 0.00 0.00 1/392959 plant [1184] + 0.00 0.00 1/392959 planttrees [1206] + 0.00 0.00 1/392959 breedtrees [1148] + 0.00 0.00 1/392959 promotion_cmd [917] + 0.00 0.00 1/392959 age_stonecircle [1021] + 0.00 0.00 1/392959 verify_building [1255] + 0.00 0.00 1/392959 cast_cmd [760] + 0.00 0.00 1/392959 use_skillpotion [1233] + 0.00 0.00 2/392959 msg_to_ship_inmates [1286] + 0.00 0.00 2/392959 travel [81] + 0.00 0.00 2/392959 sp_bloodsacrifice [1209] + 0.00 0.00 2/392959 sp_charmingsong [993] + 0.00 0.00 2/392959 magic [157] + 0.00 0.00 2/392959 create_icebergs [538] + 0.00 0.00 2/392959 make_wormhole [1150] + 0.00 0.00 3/392959 begin_potion [1096] + 0.00 0.00 3/392959 give_control_cmd [287] + 0.00 0.00 3/392959 drown [394] + 0.00 0.00 3/392959 melt_iceberg [1082] + 0.00 0.00 3/392959 use_healingpotion [1119] + 0.00 0.00 4/392959 wormhole_age [1130] + 0.00 0.00 4/392959 caught_target [1003] + 0.00 0.00 4/392959 init_transportation [384] + 0.00 0.00 4/392959 make_route [289] + 0.00 0.00 4/392959 ship_ready [354] + 0.00 0.00 4/392959 give_men [857] + 0.00 0.00 4/392959 quit [276] + 0.00 0.00 4/392959 move_iceberg [1094] + 0.00 0.00 4/392959 factionorders [983] + 0.00 0.00 5/392959 buy [707] + 0.00 0.00 5/392959 sp_flying_ship [1064] + 0.00 0.00 6/392959 msg_send_region [1210] + 0.00 0.00 10/392959 make_cmd [383] + 0.00 0.00 10/392959 tax_cmd [697] + 0.00 0.00 10/392959 spy_cmd [990] + 0.00 0.00 10/392959 spawn_dragons [411] + 0.00 0.00 12/392959 sp_summonundead [896] + 0.00 0.00 12/392959 forget_cmd [1093] + 0.00 0.00 13/392959 volcano_destruction [1022] + 0.00 0.00 15/392959 do_fumble [1062] + 0.00 0.00 19/392959 enter_building [695] + 0.00 0.00 22/392959 spy_message [1038] + 0.00 0.00 24/392959 cancast [833] + 0.00 0.00 33/392959 travel_i [92] + 0.00 0.00 37/392959 volcano_update [981] + 0.00 0.00 37/392959 build_road [950] + 0.00 0.00 38/392959 expandstealing [807] + 0.00 0.00 39/392959 deliverMail [966] + 0.00 0.00 39/392959 display_item [1054] + 0.00 0.00 39/392959 random_growl [1065] + 0.00 0.00 41/392959 dissolve_units [241] + 0.00 0.00 47/392959 caddmessage [1070] + 0.00 0.00 51/392959 potion_water_of_life [945] + 0.00 0.00 51/392959 chaos [848] + 0.00 0.00 55/392959 nmr_warnings [878] + 0.00 0.00 56/392959 use_bloodpotion [935] + 0.00 0.00 57/392959 start_battle [297] + 0.00 0.00 58/392959 add_recruits [371] + 0.00 0.00 76/392959 steal_cmd [766] + 0.00 0.00 84/392959 do_work [612] + 0.00 0.00 88/392959 hunger [808] + 0.00 0.00 100/392959 age_reduceproduction [1017] + 0.00 0.00 110/392959 peasants [658] + 0.00 0.00 115/392959 build_ship [839] + 0.00 0.00 119/392959 syntax_error [1036] + 0.00 0.00 120/392959 plagues [781] + 0.00 0.00 121/392959 msg_send_faction [1042] + 0.00 0.00 149/392959 create_potion [821] + 0.00 0.00 170/392959 breedhorses [742] + 0.00 0.00 170/392959 guard_on_cmd [656] + 0.00 0.00 266/392959 spawn_undead [629] + 0.00 0.00 328/392959 mail_cmd [844] + 0.00 0.00 345/392959 end_potion [814] + 0.00 0.00 349/392959 research_cmd [886] + 0.00 0.00 377/392959 manufacture [759] + 0.00 0.00 508/392959 regenerate_aura [346] + 0.00 0.00 567/392959 eaten_by_monster [468] + 0.00 0.00 581/392959 build_building [696] + 0.00 0.00 681/392959 absorbed_by_monster [804] + 0.00 0.00 1225/392959 give_item [126] + 0.00 0.00 1323/392959 teach_cmd [272] + 0.00 0.00 2699/392959 scared_by_monster [380] + 0.00 0.00 2938/392959 split_allocations [743] + 0.00 0.00 5049/392959 piracy_cmd [660] + 0.00 0.00 5966/392959 herbsearch [493] + 0.00 0.00 7043/392959 sail [181] + 0.00 0.00 8710/392959 maintain_buildings [339] + 0.00 0.00 8797/392959 cmistake [718] + 0.00 0.00 11358/392959 expandbuying [49] + 0.00 0.00 12265/392959 r_addmessage [779] + 0.00 0.00 12448/392959 expandselling [93] + 0.00 0.00 14939/392959 maintain [478] + 0.00 0.00 20258/392959 study_cmd [105] + 0.00 0.00 29028/392959 give_cmd [102] + 0.00 0.00 31214/392959 message_faction [716] + 0.00 0.00 34409/392959 add_income [625] + 0.00 0.00 80478/392959 add_give [379] + 0.00 0.00 96460/392959 travel_route [147] +[434] 0.1 0.02 0.00 392959 add_message [434] + 0.00 0.00 392959/392959 msg_addref [1399] +----------------------------------------------- + 0.00 0.00 9/2605004 destroyfaction [392] + 0.00 0.00 19/2605004 dissolve_units [241] + 0.00 0.00 30/2605004 res_changepeasants [1200] + 0.00 0.00 45/2605004 region_getresource [1058] + 0.00 0.00 71/2605004 transfermen [899] + 0.00 0.00 74/2605004 plan_dragon [273] + 0.00 0.00 120/2605004 plagues [781] + 0.00 0.00 172/2605004 randomevents [91] + 0.00 0.00 246/2605004 battle_effects [1125] + 0.00 0.00 1594/2605004 expandrecruit [349] + 0.00 0.00 2692/2605004 eaten_by_monster [468] + 0.00 0.00 3455/2605004 absorbed_by_monster [804] + 0.00 0.00 4690/2605004 expandselling [93] + 0.00 0.00 5494/2605004 expandbuying [49] + 0.00 0.00 6569/2605004 scareaway [768] + 0.00 0.00 14863/2605004 sell [498] + 0.00 0.00 31670/2605004 spawn_undead [629] + 0.00 0.00 32670/2605004 demographics [50] + 0.00 0.00 32670/2605004 writeregion [519] + 0.00 0.00 33139/2605004 statistics [70] + 0.00 0.00 54055/2605004 report_plaintext [4] + 0.00 0.00 67774/2605004 peasants [658] + 0.00 0.00 91145/2605004 report_resources [210] + 0.00 0.00 119504/2605004 cr_output_region [10] + 0.00 0.00 144763/2605004 calculate_emigration [603] + 0.00 0.00 178254/2605004 get_food [88] + 0.00 0.00 179832/2605004 describe [35] + 0.00 0.00 185509/2605004 immigration [294] + 0.00 0.00 255939/2605004 scared_by_monster [380] + 0.00 0.00 342640/2605004 expandwork [277] + 0.00 0.00 361137/2605004 produce [29] + 0.00 0.00 454160/2605004 make_summary [21] +[435] 0.1 0.02 0.00 2605004 rpeasants [435] +----------------------------------------------- + 0.00 0.00 71390/7417541 reserve_i [213] + 0.00 0.00 116873/7417541 weapon_effskill [168] + 0.00 0.00 771861/7417541 armedmen [151] + 0.00 0.00 1849529/7417541 get_pooled [104] + 0.01 0.00 4607888/7417541 use_pooled [39] +[436] 0.1 0.02 0.00 7417541 urace [436] +----------------------------------------------- + 0.00 0.00 1/4558423 get_translation [1304] + 0.00 0.00 2/4558423 register_special_direction [1259] + 0.00 0.00 2/4558423 init_directions [1143] + 0.00 0.00 2/4558423 init_terrains_translation [1129] + 0.00 0.00 2/4558423 init_options_translation [1157] + 0.00 0.00 4/4558423 init_locale [948] + 0.00 0.00 6/4558423 findoption [1241] + 0.00 0.00 6/4558423 init_translations [1033] + 0.00 0.00 6/4558423 free_locales [1311] + 0.00 0.00 107/4558423 init_keyword [1179] + 0.00 0.00 338/4558423 findrace [1030] + 0.00 0.00 293362/4558423 get_direction [496] + 0.00 0.00 995991/4558423 get_skill [423] + 0.01 0.00 1481616/4558423 get_keyword [274] + 0.01 0.00 1786978/4558423 findparam [458] +[437] 0.1 0.02 0.00 4558423 get_translations [437] +----------------------------------------------- + 0.00 0.00 1/3358315 move_iceberg [1094] + 0.00 0.00 2/3358315 restack_units [353] + 0.00 0.00 5/3358315 give_control_cmd [287] + 0.00 0.00 6/3358315 validate_pirate [1051] + 0.00 0.00 10/3358315 name_cmd [835] + 0.00 0.00 17/3358315 display_cmd [859] + 0.00 0.00 18/3358315 leave_ship [540] + 0.00 0.00 24/3358315 is_moving_ship [1231] + 0.00 0.00 31/3358315 renumber_cmd [780] + 0.00 0.00 195/3358315 mayboard [1046] + 0.00 0.00 322/3358315 piracy_cmd [660] + 0.00 0.00 475/3358315 follow_ship [749] + 0.00 0.00 1039/3358315 follow_unit [331] + 0.00 0.00 3128/3358315 drifting_ships [490] + 0.00 0.00 7093/3358315 report_template [87] + 0.00 0.00 7254/3358315 ship_ready [354] + 0.00 0.00 7269/3358315 move_cmd [66] + 0.00 0.00 15828/3358315 sinkships [475] + 0.00 0.00 17286/3358315 movement [47] + 0.00 0.00 18974/3358315 reorder_units [400] + 0.00 0.00 27416/3358315 write_unit [97] + 0.00 0.00 38156/3358315 score [23] + 0.00 0.00 66134/3358315 shipspeed [669] + 0.00 0.00 179761/3358315 cr_output_curses [69] + 0.00 0.00 179761/3358315 cr_output_region [10] + 0.00 0.00 180598/3358315 nr_curses [48] + 0.01 0.00 875741/3358315 count_cb [231] + 0.01 0.00 1731771/3358315 travelthru_cansee [180] +[438] 0.1 0.02 0.00 3358315 ship_owner [438] + 0.00 0.00 1511/1529 ship_owner_ex [1571] +----------------------------------------------- + 0.00 0.00 36/2903884 runhash [1247] + 0.00 0.00 1848/2903884 uunhash [1049] + 0.00 0.00 178290/2903884 rhash [737] + 0.00 0.00 598069/2903884 uhash [667] + 0.01 0.00 1006923/2903884 rfindhash [271] + 0.01 0.00 1118718/2903884 ufindhash [109] +[439] 0.1 0.02 0.00 2903884 jenkins_hash [439] +----------------------------------------------- + 0.00 0.00 2/688711 tolua_atoi36 [1299] + 0.00 0.00 3/688711 tolua_getkey [1281] + 0.00 0.00 4/688711 parse_ids [852] + 0.00 0.00 4/688711 forbiddenid [1280] + 0.00 0.00 5/688711 tolua_toid [1274] + 0.00 0.00 6/688711 addparam_building [1261] + 0.00 0.00 16/688711 addparam_unit [1214] + 0.00 0.00 22/688711 addparam_ship [1212] + 0.00 0.00 69/688711 renumber_cmd [780] + 0.00 0.00 209/688711 setstealth_cmd [182] + 0.01 0.00 178254/688711 tolua_region_getkey [628] + 0.01 0.00 228814/688711 getid [483] + 0.01 0.00 281303/688711 read_unitid [413] +[440] 0.1 0.02 0.00 688711 atoi36 [440] +----------------------------------------------- + 0.00 0.00 303/635885 create_castorder [1066] + 0.00 0.00 1670/635885 recruit [650] + 0.00 0.00 3110/635885 default_order [902] + 0.00 0.00 14326/635885 replace_order [526] + 0.00 0.00 41255/635885 var_copy_order [734] + 0.02 0.00 575221/635885 update_long_order [270] +[441] 0.1 0.02 0.00 635885 copy_order [441] +----------------------------------------------- + 0.02 0.00 178254/178254 new_region [275] +[442] 0.1 0.02 0.00 178254 hash_uid [442] +----------------------------------------------- + 0.02 0.00 7964/7964 report_crtypes [428] +[443] 0.1 0.02 0.00 7964 nrt_string [443] +----------------------------------------------- + 0.00 0.00 1/30 tolua_settings_eressea_settings_set00 [773] + 0.00 0.00 1/30 disable_feature [771] + 0.02 0.00 28/30 json_settings [467] +[444] 0.1 0.02 0.00 30 config_set [444] + 0.00 0.00 30/33 set_param [1689] +----------------------------------------------- + +[445] 0.1 0.02 0.00 bin_w_brk [445] +----------------------------------------------- + +[446] 0.1 0.02 0.00 bin_w_str [446] +----------------------------------------------- + +[447] 0.1 0.02 0.00 fs_readln [447] +----------------------------------------------- + +[448] 0.1 0.02 0.00 ql_push [448] +----------------------------------------------- + +[449] 0.1 0.02 0.00 tolua_unit_get_faction [449] +----------------------------------------------- + +[450] 0.1 0.02 0.00 wang_hash [450] +----------------------------------------------- + 0.00 0.00 2889/24935046 create_unit [296] + 0.00 0.00 4181205/24935046 remove_empty_units_in_region [134] + 0.02 0.00 20750952/24935046 alliedgroup [34] +[451] 0.1 0.02 0.00 24935046 faction_alive [451] +----------------------------------------------- + 0.00 0.00 9/4666665 destroyfaction [392] + 0.00 0.00 17/4666665 give_money [484] + 0.00 0.00 36/4666665 expandloot [816] + 0.00 0.00 38/4666665 gift_items [891] + 0.00 0.00 41/4666665 region_getresource [1058] + 0.00 0.00 59/4666665 get_money_for_dragon [1087] + 0.00 0.00 74/4666665 plan_dragon [273] + 0.00 0.00 4629/4666665 expandselling [93] + 0.00 0.00 12922/4666665 plagues [781] + 0.00 0.00 16560/4666665 expandentertainment [637] + 0.00 0.00 27694/4666665 all_money [529] + 0.00 0.00 31725/4666665 statistics [70] + 0.00 0.00 32670/4666665 peasants [658] + 0.00 0.00 32670/4666665 writeregion [519] + 0.00 0.00 36937/4666665 cr_output_region [10] + 0.00 0.00 79772/4666665 entertainmoney [643] + 0.00 0.00 91145/4666665 report_resources [210] + 0.00 0.00 97652/4666665 make_summary [21] + 0.00 0.00 178254/4666665 expandwork [277] + 0.00 0.00 222964/4666665 describe [35] + 0.00 0.00 356508/4666665 produce [29] + 0.00 0.00 394406/4666665 expandbuying [49] + 0.01 0.00 3049883/4666665 expandtax [278] +[452] 0.1 0.02 0.00 4666665 rmoney [452] +----------------------------------------------- + 0.02 0.00 1177511/1177511 it_find [385] +[453] 0.1 0.02 0.00 1177511 it_alias [453] +----------------------------------------------- + 0.02 0.00 162996/162996 astralregions [329] +[454] 0.1 0.02 0.00 162996 inhabitable [454] +----------------------------------------------- + 0.00 0.00 230/20836359 show_alliances_cr [1248] + 0.00 0.00 230/20836359 report_computer [9] + 0.00 0.00 460/20836359 report_plaintext [4] + 0.00 0.00 464/20836359 get_addresses [20] + 0.02 0.00 20834975/20836359 autoalliance [179] +[455] 0.1 0.02 0.00 20836359 f_get_alliance [455] +----------------------------------------------- + 0.02 0.00 10375461/10375461 alliedgroup [34] +[456] 0.1 0.02 0.00 10375461 ally_mode [456] +----------------------------------------------- + 0.00 0.00 1/1206547 tolua_get_region [1296] + 0.00 0.00 178254/1206547 readregion [209] + 0.02 0.00 1028292/1206547 koor_distance [476] +[457] 0.1 0.02 0.00 1206547 findplane [457] +----------------------------------------------- + 0.00 0.00 20/1787006 restack_units [353] + 0.00 0.00 115/1787006 combatspell_cmd [898] + 0.00 0.00 176/1787006 breed_cmd [741] + 0.00 0.00 322/1787006 cast_cmd [760] + 0.00 0.00 461/1787006 setstealth_cmd [182] + 0.00 0.00 677/1787006 ally_cmd [877] + 0.00 0.00 1700/1787006 status_cmd [904] + 0.00 0.00 6530/1787006 findparam_ex [926] + 0.00 0.00 7650/1787006 getparam [681] + 0.00 0.00 10600/1787006 make_cmd [383] + 0.00 0.00 15797/1787006 sell [498] + 0.00 0.00 45456/1787006 give_cmd [102] + 0.00 0.00 71388/1787006 reserve_i [213] + 0.00 0.00 279151/1787006 readorders [43] + 0.00 0.00 362487/1787006 isparam [668] + 0.00 0.01 984476/1787006 unitorders [46] +[458] 0.1 0.00 0.02 1787006 findparam [458] + 0.01 0.00 1786978/4457785 transliterate [358] + 0.01 0.00 1786978/4558423 get_translations [437] +----------------------------------------------- + 0.00 0.00 2/279395 sp_enterastral [1045] + 0.00 0.00 33/279395 init_transportation [384] + 0.00 0.00 34221/279395 eff_weight [683] + 0.00 0.00 70174/279395 getshipweight [212] + 0.01 0.01 174965/279395 cr_output_unit [19] +[459] 0.1 0.01 0.01 279395 weight [459] + 0.00 0.01 279395/5395063 i_get [130] + 0.00 0.00 279395/129167539 u_race [89] + 0.00 0.00 279395/56052475 get_resourcetype [194] +----------------------------------------------- + 0.00 0.02 1/1 tolua_config_eressea_config_read00 [461] +[460] 0.1 0.00 0.02 1 config_read [460] + 0.00 0.02 1/1 config_parse [462] + 0.00 0.00 1/573 join_path [1016] +----------------------------------------------- + +[461] 0.1 0.00 0.02 tolua_config_eressea_config_read00 [461] + 0.00 0.02 1/1 config_read [460] +----------------------------------------------- + 0.00 0.02 1/1 config_read [460] +[462] 0.1 0.00 0.02 1 config_parse [462] + 0.00 0.02 1/1 json_config [464] + 0.00 0.00 1/3 init_locales [947] +----------------------------------------------- +[463] 0.1 0.00 0.02 1+4 [463] + 0.00 0.02 4 json_config [464] + 0.00 0.00 1 json_include [1283] +----------------------------------------------- + 3 json_include [1283] + 0.00 0.02 1/1 config_parse [462] +[464] 0.1 0.00 0.02 4 json_config [464] + 0.00 0.02 1/1 json_settings [467] + 0.00 0.00 1/1 json_disable_features [772] + 0.00 0.00 1/1 json_keywords [1124] + 0.00 0.00 1/1 json_terrains [1190] + 0.00 0.00 4/5 reset_locales [1751] + 0.00 0.00 1/1 json_prefixes [1812] + 0.00 0.00 1/1 init_terrains [1810] + 1 json_include [1283] +----------------------------------------------- + 0.00 0.01 96240/192556 travel_route [147] + 0.00 0.01 96316/192556 movement_speed [155] +[465] 0.1 0.00 0.02 192556 canride [465] + 0.01 0.01 192556/12320804 effskill [100] + 0.00 0.00 21443/21443 ridingcapacity [694] + 0.00 0.00 21443/34221 eff_weight [683] + 0.00 0.00 577668/56052475 get_resourcetype [194] + 0.00 0.00 192570/129167539 u_race [89] +----------------------------------------------- + 0.01 0.01 967902/967902 travelthru_map [41] +[466] 0.1 0.01 0.01 967902 cb_cr_travelthru_unit [466] + 0.00 0.00 94066/1996097 travelthru_cansee [180] + 0.00 0.00 75486/2383101 unitname [142] +----------------------------------------------- + 0.00 0.02 1/1 json_config [464] +[467] 0.1 0.00 0.02 1 json_settings [467] + 0.02 0.00 28/30 config_set [444] +----------------------------------------------- + 0.01 0.01 325282/325282 monster_kills_peasants [230] +[468] 0.1 0.01 0.01 325282 eaten_by_monster [468] + 0.00 0.00 325282/7641081 genrand_int31 [171] + 0.00 0.00 325282/51974272 a_find [65] + 0.00 0.00 325282/129167539 u_race [89] + 0.00 0.00 325282/56052475 get_resourcetype [194] + 0.00 0.00 567/967784 msg_message [132] + 0.00 0.00 1714/201744 lovar [644] + 0.00 0.00 567/392959 add_message [434] + 0.00 0.00 567/264251 rsetpeasants [545] + 0.00 0.00 2692/2605004 rpeasants [435] + 0.00 0.00 567/37974 deathcounts [843] + 0.00 0.00 567/1009028 msg_release [1373] + 0.00 0.00 1/1511812 newterrain [1359] +----------------------------------------------- + 0.00 0.01 3114/10344 drifting_ships [490] + 0.00 0.01 7230/10344 ship_ready [354] +[469] 0.1 0.00 0.02 10344 cansail [469] + 0.02 0.00 10344/47902 getshipweight [212] + 0.00 0.00 10344/47887 shipcapacity [567] +----------------------------------------------- + 0.00 0.00 160572/4503145 cr_output_ship [152] + 0.00 0.00 761036/4503145 bufunit [17] + 0.00 0.01 1335533/4503145 cansee [22] + 0.00 0.01 2246004/4503145 cr_output_unit [19] +[470] 0.1 0.00 0.02 4503145 omniscient [470] + 0.02 0.00 4503145/12560453 rc_changed [256] + 0.00 0.00 2/71815034 get_race [12] +----------------------------------------------- + 0.00 0.00 7/892307 use_skillpotion [1233] + 0.00 0.00 167/892307 academy_teaching_bonus [1128] + 0.00 0.00 2190/892307 demon_skillchange [826] + 0.00 0.01 417577/892307 study_cmd [105] + 0.00 0.01 472366/892307 produceexp_ex [323] +[471] 0.1 0.00 0.02 892307 learn_skill [471] + 0.00 0.01 45090/47535 sk_set [510] + 0.00 0.01 479588/7641081 genrand_int31 [171] + 0.00 0.00 2423/1956810 add_skill [355] + 0.00 0.00 447624/595705 unit_skill [1391] +----------------------------------------------- + 0.00 0.02 123513/123513 parse_symbol [42] +[472] 0.1 0.00 0.02 123513 eval_order [472] + 0.00 0.01 123513/1470505 write_order [121] + 0.00 0.00 123513/13102790 opstack_pop [176] + 0.00 0.00 123513/13102790 opstack_push [202] + 0.00 0.00 123513/13399069 balloc [363] +----------------------------------------------- + 0.00 0.00 17728/438629 immigration [294] + 0.00 0.00 32670/438629 horses [330] + 0.00 0.00 65214/438629 demographics [50] + 0.00 0.01 144763/438629 calculate_emigration [603] + 0.00 0.01 178254/438629 produce [29] +[473] 0.1 0.00 0.02 438629 maxworkingpeasants [473] + 0.00 0.01 438629/669051 production [417] + 0.00 0.00 877258/10053919 rtrees [302] +----------------------------------------------- + 0.00 0.00 1/369586 tolua_region_get_next [1302] + 0.00 0.00 1/369586 move_iceberg [1094] + 0.00 0.00 1/369586 rroad [508] + 0.00 0.00 8/369586 sail [181] + 0.00 0.00 8/369586 rrandneighbour [1221] + 0.00 0.00 10/369586 terraform_region [932] + 0.00 0.00 15/369586 chaos [848] + 0.00 0.00 36/369586 build_road [950] + 0.00 0.00 58/369586 drift_target [1053] + 0.00 0.00 291/369586 describe [35] + 0.00 0.00 2656/369586 scareaway [768] + 0.00 0.00 5134/369586 horses [330] + 0.00 0.00 10913/369586 movewhere [350] + 0.00 0.00 21148/369586 piracy_cmd [660] + 0.00 0.00 25793/369586 regions_in_range [675] + 0.00 0.00 46456/369586 calculate_emigration [603] + 0.00 0.00 51044/369586 cr_borders [135] + 0.00 0.00 67291/369586 internal_path_find [345] + 0.00 0.01 138722/369586 get_neighbours [480] +[474] 0.1 0.00 0.02 369586 r_connect [474] + 0.01 0.00 369586/1006923 rfindhash [271] + 0.00 0.00 369586/18647447 getplane [596] + 0.00 0.00 369586/3587241 pnormalize [1350] +----------------------------------------------- + 0.01 0.01 178254/178254 process [7] +[475] 0.1 0.01 0.01 178254 sinkships [475] + 0.01 0.00 3135/13500 crew_skill [344] + 0.00 0.00 15828/3358315 ship_owner [438] + 0.00 0.00 96/717218 config_get_flt [714] + 0.00 0.00 3135/13500 enoughsailors [1512] + 0.00 0.00 96/160 damage_ship [1641] + 0.00 0.00 5/6 remove_ship [1748] +----------------------------------------------- + 0.00 0.00 220/514146 farcasting [842] + 0.00 0.01 214975/514146 astralregions [329] + 0.00 0.01 298951/514146 distance [599] +[476] 0.0 0.00 0.02 514146 koor_distance [476] + 0.02 0.00 1028292/1206547 findplane [457] + 0.00 0.00 512674/734392 plane_width [1380] + 0.00 0.00 512674/734392 plane_height [1379] + 0.00 0.00 512663/512663 koor_distance_orig [1394] + 0.00 0.00 11/11 koor_distance_wrap_xy [1724] +----------------------------------------------- + 0.00 0.00 19276/146950 eval_trail [634] + 0.00 0.01 127674/146950 eval_trailto [369] +[477] 0.0 0.00 0.02 146950 f_regionid_s [477] + 0.00 0.02 146950/950595 f_regionid [161] +----------------------------------------------- + 0.00 0.02 44190/44190 maintain_buildings [339] +[478] 0.0 0.00 0.02 44190 maintain [478] + 0.00 0.01 13492/541982 get_pooled [104] + 0.00 0.00 6386/860263 use_pooled [39] + 0.00 0.00 14939/967784 msg_message [132] + 0.00 0.00 21463/593636 building_owner [232] + 0.00 0.00 14939/392959 add_message [434] + 0.00 0.00 6524/216069 config_token [794] + 0.00 0.00 14939/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 125/987488 tpregion [1085] + 0.00 0.00 125/987488 r_standard_to_astral [1067] + 0.00 0.00 8892/987488 r_astral_to_standard [783] + 0.00 0.00 17784/987488 astralregions [329] + 0.00 0.00 38612/987488 cr_output_region [10] + 0.00 0.00 62581/987488 describe [35] + 0.00 0.00 85643/987488 movement_speed [155] + 0.00 0.00 178254/987488 spawn_braineaters [505] + 0.00 0.01 595472/987488 age_unit [336] +[479] 0.0 0.00 0.02 987488 is_astral [479] + 0.00 0.02 987488/987612 get_astralplane [482] + 0.00 0.00 987488/18647447 getplane [596] +----------------------------------------------- + 0.00 0.00 30/1087065 treeman_neighbour [1201] + 0.00 0.00 84017/1087065 random_neighbour [153] + 0.00 0.00 88016/1087065 get_regions_distance [372] + 0.00 0.00 169733/1087065 travelthru_add [609] + 0.01 0.00 745269/1087065 add_seen_nb [386] +[480] 0.0 0.01 0.01 1087065 get_neighbours [480] + 0.00 0.01 138722/369586 r_connect [474] +----------------------------------------------- + 0.00 0.00 66416/2765718 peasants [658] + 0.00 0.00 178254/2765718 immigration [294] + 0.01 0.01 2521048/2765718 lifestyle [286] +[481] 0.0 0.01 0.01 2765718 maintenance_cost [481] + 0.01 0.00 2521048/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 124/987612 age_stonecircle [1021] + 0.00 0.02 987488/987612 is_astral [479] +[482] 0.0 0.00 0.02 987612 get_astralplane [482] + 0.01 0.00 987612/987612 getplanebyname [595] + 0.00 0.00 987612/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 20/228907 restack_units [353] + 0.00 0.00 22/228907 mail_cmd [844] + 0.00 0.00 287/228907 factionorders [983] + 0.00 0.00 307/228907 getship [1018] + 0.00 0.00 474/228907 follow_ship [749] + 0.00 0.00 525/228907 follow_unit [331] + 0.00 0.00 621/228907 make_cmd [383] + 0.00 0.00 639/228907 do_enter [128] + 0.00 0.00 754/228907 new_units [282] + 0.00 0.00 791/228907 getfaction [937] + 0.00 0.00 2665/228907 read_newunitid [739] + 0.00 0.01 221802/228907 unitorders [46] +[483] 0.0 0.00 0.02 228907 getid [483] + 0.00 0.01 228907/2281756 gettoken [195] + 0.01 0.00 228814/688711 atoi36 [440] +----------------------------------------------- + 0.02 0.00 51003/51003 give_item [126] +[484] 0.0 0.02 0.00 51003 give_money [484] + 0.00 0.00 22/860263 use_pooled [39] + 0.00 0.00 22/283711 item2resource [561] + 0.00 0.00 17/2186159 rsetmoney [553] + 0.00 0.00 17/4666665 rmoney [452] +----------------------------------------------- + 0.02 0.00 464/464 prepare_report [8] +[485] 0.0 0.02 0.00 464 firstregion [485] +----------------------------------------------- + 0.00 0.01 40/40 plan_dragon [273] +[486] 0.0 0.00 0.01 40 set_new_dragon_target [486] + 0.00 0.01 27694/27694 dragon_affinity_value [516] + 0.00 0.00 40/40 regions_in_range [675] + 0.00 0.00 25/779419 a_add [555] + 0.00 0.00 26/51974272 a_find [65] + 0.00 0.00 25/25 make_targetregion [1701] +----------------------------------------------- + 0.00 0.01 230/481 report_plaintext [4] + 0.00 0.01 251/481 out_faction [615] +[487] 0.0 0.00 0.01 481 count_units [487] + 0.01 0.00 481/2247 count_faction [219] +----------------------------------------------- + 0.00 0.01 110167/110167 cr_render [196] +[488] 0.0 0.00 0.01 110167 cr_resource [488] + 0.00 0.01 110167/4434556 translate [75] + 0.00 0.00 110167/24887945 locale_string [27] + 0.00 0.00 110167/13259934 resourcename [233] +----------------------------------------------- + 0.01 0.00 41095/41095 cr_render [196] +[489] 0.0 0.01 0.00 41095 cr_order [489] + 0.00 0.00 41086/2006524 get_command [108] +----------------------------------------------- + 0.00 0.01 178254/178254 movement [47] +[490] 0.0 0.00 0.01 178254 drifting_ships [490] + 0.01 0.00 3115/13500 crew_skill [344] + 0.00 0.01 3114/10344 cansail [469] + 0.00 0.00 178254/4984610 config_get_int [348] + 0.00 0.00 178254/717218 config_get_flt [714] + 0.00 0.00 3116/12320804 effskill [100] + 0.00 0.00 15/6963 move_ship [374] + 0.00 0.00 15/15 overload [1002] + 0.00 0.00 3128/3358315 ship_owner [438] + 0.00 0.00 15/15 drift_target [1053] + 0.00 0.00 12/967784 msg_message [132] + 0.00 0.00 22/12246335 ct_find [114] + 0.00 0.00 15/6962 set_coast [875] + 0.00 0.00 22/10190660 get_curse [143] + 0.00 0.00 12/12 msg_to_ship_inmates [1286] + 0.00 0.00 30/30 overload_start [1295] + 0.00 0.00 22/4201030 curse_active [543] + 0.00 0.00 3115/13500 enoughsailors [1512] + 0.00 0.00 22/651711 oldcursename [1381] + 0.00 0.00 15/192815 add_regionlist [1419] + 0.00 0.00 15/109377 free_regionlist [1436] + 0.00 0.00 15/160 damage_ship [1641] + 0.00 0.00 1/6 remove_ship [1748] +----------------------------------------------- + 0.00 0.00 17117/137709 terminate [242] + 0.00 0.01 120592/137709 weapon_effskill [168] +[491] 0.0 0.00 0.01 137709 CavalryBonus [491] + 0.00 0.01 137709/12320804 effskill [100] + 0.00 0.00 120592/71815034 get_race [12] + 0.00 0.00 120592/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 1/461 promotion_cmd [917] + 0.00 0.01 230/461 report_computer [9] + 0.00 0.01 230/461 report_plaintext [4] +[492] 0.0 0.00 0.01 461 maxheroes [492] + 0.00 0.01 461/967 count_all [357] +----------------------------------------------- + 0.00 0.01 5988/5988 make_cmd [383] +[493] 0.0 0.00 0.01 5988 herbsearch [493] + 0.00 0.01 5986/15361 is_guarded [377] + 0.00 0.00 5966/5966 ntimespprob [723] + 0.00 0.00 5966/967784 msg_message [132] + 0.00 0.00 5896/472418 produceexp [322] + 0.00 0.00 5988/12320804 effskill [100] + 0.00 0.00 5966/392959 add_message [434] + 0.00 0.00 5896/11241829 i_change [115] + 0.00 0.00 22/15102 cmistake [718] + 0.00 0.00 20639/3166898 rherbs [1351] + 0.00 0.00 5966/101322 rsetherbs [1438] + 0.00 0.00 5966/1009028 msg_release [1373] +----------------------------------------------- + 0.01 0.00 67213/67213 parse_symbol [42] +[494] 0.0 0.01 0.00 67213 eval_building [494] + 0.00 0.00 67213/180818 buildingname [621] + 0.00 0.00 67213/13102790 opstack_pop [176] + 0.00 0.00 67213/13102790 opstack_push [202] + 0.00 0.00 67213/13399069 balloc [363] +----------------------------------------------- + 0.00 0.00 2/752645 do_fumble [1062] + 0.00 0.00 3/752645 target_resists_magic [1154] + 0.00 0.00 10/752645 spawn_dragons [411] + 0.00 0.00 20/752645 bewegung_blockiert_von [631] + 0.00 0.00 24/752645 spy_cmd [990] + 0.00 0.00 29/752645 terraform_region [932] + 0.00 0.00 38/752645 equip_unit_mask [776] + 0.00 0.00 43/752645 get_money_for_dragon [1087] + 0.00 0.00 98/752645 age_stonecircle [1021] + 0.00 0.00 126/752645 create_icebergs [538] + 0.00 0.00 138/752645 terraform_resources [986] + 0.00 0.00 306/752645 plan_dragon [273] + 0.00 0.00 508/752645 regenerate_aura [346] + 0.00 0.00 1062/752645 loot_quota [1013] + 0.00 0.00 2988/752645 monthly_healing [215] + 0.00 0.00 58461/752645 battle_flee [352] + 0.00 0.00 92981/752645 terminate [242] + 0.00 0.01 595808/752645 plan_monsters [52] +[495] 0.0 0.00 0.01 752645 chance [495] + 0.00 0.01 752603/1336242 rng_injectable_double [396] +----------------------------------------------- + 0.00 0.00 1/293362 destroy_road [1230] + 0.00 0.00 4/293362 movement_error [1193] + 0.00 0.00 41/293362 make_cmd [383] + 0.00 0.01 133973/293362 cycle_route [375] + 0.00 0.01 159343/293362 movewhere [350] +[496] 0.0 0.00 0.01 293362 get_direction [496] + 0.01 0.00 293362/302482 findtoken [501] + 0.00 0.00 293362/4558423 get_translations [437] +----------------------------------------------- + 0.00 0.00 174965/1523708 cr_output_unit [19] + 0.00 0.01 1348743/1523708 bufunit [17] +[497] 0.0 0.00 0.01 1523708 uprivate [497] + 0.01 0.00 1523708/51974272 a_find [65] +----------------------------------------------- + 0.00 0.01 15797/15797 produce [29] +[498] 0.0 0.00 0.01 15797 sell [498] + 0.00 0.01 15796/541982 get_pooled [104] + 0.00 0.00 28293/12320804 effskill [100] + 0.00 0.00 31531/2281756 gettoken [195] + 0.00 0.00 12520/760673 addlist [217] + 0.00 0.00 15763/71815034 get_race [12] + 0.00 0.00 3277/15102 cmistake [718] + 0.00 0.00 15797/1787006 findparam [458] + 0.00 0.00 15797/1027665 init_order [613] + 0.00 0.00 14863/2605004 rpeasants [435] + 0.00 0.00 12520/51974272 a_find [65] + 0.00 0.00 15731/191379 finditemtype [735] + 0.00 0.00 39/15361 is_guarded [377] + 0.00 0.00 15763/129167539 u_race [89] + 0.00 0.00 2503/779419 a_add [555] + 0.00 0.00 15763/8506411 besieged [547] + 0.00 0.00 2/560926 bt_find [237] + 0.00 0.00 16651/1511812 newterrain [1359] + 0.00 0.00 15797/204314 bt_changed [1415] + 0.00 0.00 15731/21500 resource2luxury [1499] + 0.00 0.00 15730/308950 r_demand [1404] + 0.00 0.00 2503/779868 a_new [1376] + 0.00 0.00 1112/75797 buildingtype_exists [1443] +----------------------------------------------- + 0.00 0.00 3/1794 chaos [848] + 0.00 0.00 493/1794 remove_empty_units_in_region [134] + 0.00 0.01 1298/1794 add_recruits [371] +[499] 0.0 0.00 0.01 1794 remove_unit [499] + 0.01 0.01 1793/2887 leave [432] + 0.00 0.00 1794/1118718 ufindhash [109] + 0.00 0.00 1794/1803 gift_items [891] + 0.00 0.00 1793/1848 uunhash [1049] + 0.00 0.00 1/1 make_zombie [1267] + 0.00 0.00 1794/1342832 handle_event [1363] + 0.00 0.00 3/603524 set_number [1387] +----------------------------------------------- + 0.00 0.00 567/1474687 give_men [857] + 0.00 0.00 623/1474687 aftermath [701] + 0.00 0.00 754/1474687 new_units [282] + 0.00 0.00 1486/1474687 start_battle [297] + 0.00 0.00 1865/1474687 transfermen [899] + 0.00 0.00 39357/1474687 terminate [242] + 0.00 0.00 94655/1474687 travel [81] + 0.00 0.01 1335380/1474687 cansee [22] +[500] 0.0 0.00 0.01 1474687 leftship [500] + 0.01 0.00 1474687/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 1/302482 get_translation [1304] + 0.00 0.00 6/302482 findoption [1241] + 0.00 0.00 255/302482 unit_getspell [758] + 0.00 0.00 338/302482 findrace [1030] + 0.00 0.00 4259/302482 findshiptype [869] + 0.00 0.00 4261/302482 findbuildingtype [866] + 0.01 0.00 293362/302482 get_direction [496] +[501] 0.0 0.01 0.00 302482 findtoken [501] + 0.00 0.00 1232688/46391457 unicode_utf8_to_ucs4 [177] + 0.00 0.00 6664/49235 log_debug [1245] +----------------------------------------------- + 0.00 0.01 96450/96450 travel_i [92] +[502] 0.0 0.00 0.01 96450 cap_route [502] + 0.00 0.01 108335/108335 roadto [606] + 0.00 0.00 108335/263302 reldirection [528] +----------------------------------------------- + 0.01 0.00 780/780 do_battle [64] +[503] 0.0 0.01 0.00 780 battle_report [503] + 0.00 0.00 25201/17451017 strlcpy_w [67] + 0.00 0.00 2594/12398 fbattlerecord [688] + 0.00 0.00 2594/967784 msg_message [132] + 0.00 0.00 7058/18788 sideabkz [745] + 0.00 0.00 7336/24887945 locale_string [27] + 0.00 0.00 5188/31214 message_faction [716] + 0.00 0.00 7336/5461936 slprintf [548] + 0.00 0.00 7336/7336 get_alive [1528] + 0.00 0.00 7336/24449 seematrix [1491] + 0.00 0.00 7336/22301 army_index [1498] + 0.00 0.00 2594/1009028 msg_release [1373] +----------------------------------------------- + 0.01 0.00 34486/34486 teach_cmd [272] +[504] 0.0 0.01 0.00 34486 effskill_study [504] + 0.00 0.00 34169/12320804 get_modifier [55] + 0.00 0.00 34486/595705 unit_skill [1391] +----------------------------------------------- + 0.00 0.01 1/1 tolua_spawn_braineaters [506] +[505] 0.0 0.00 0.01 1 spawn_braineaters [505] + 0.00 0.01 639/2889 create_unit [296] + 0.00 0.00 178254/987488 is_astral [479] + 0.00 0.00 639/2375 equip_unit [775] + 0.00 0.00 1918/7641081 genrand_int31 [171] + 0.00 0.00 639/71815034 get_race [12] + 0.00 0.00 1/3902878 get_monsters [293] + 0.00 0.00 639/2742 get_equipment [1551] +----------------------------------------------- + +[506] 0.0 0.00 0.01 tolua_spawn_braineaters [506] + 0.00 0.01 1/1 spawn_braineaters [505] +----------------------------------------------- + 0.00 0.01 2081/2081 report_plaintext [4] +[507] 0.0 0.00 0.01 2081 nr_spell [507] + 0.01 0.00 19851/2742237 paragraph [26] + 0.00 0.00 30518/24887945 locale_string [27] + 0.00 0.00 2081/2081 nr_spell_syntax [732] + 0.00 0.00 2081/86400 spell_name [646] + 0.00 0.00 2081/4162 spell_info [841] + 0.00 0.00 6243/34611296 strlcpy [45] + 0.00 0.00 9352/9352 write_spell_modifier [964] + 0.00 0.00 12000/36653945 wrptr [178] + 0.00 0.00 2081/37931 centre [789] + 0.00 0.00 6243/2494242 newline [594] + 0.00 0.00 3203/13259934 resourcename [233] +----------------------------------------------- + 0.00 0.00 1/143730 destroy_road [1230] + 0.00 0.00 60/143730 build_road [950] + 0.00 0.00 46655/143730 roadto [606] + 0.00 0.01 97014/143730 cr_borders [135] +[508] 0.0 0.00 0.01 143730 rroad [508] + 0.00 0.01 143730/2225796 get_borders [120] + 0.00 0.00 1/369586 r_connect [474] +----------------------------------------------- + 0.00 0.00 27/47562 reduce_skill [1091] + 0.00 0.01 47535/47562 sk_set [510] +[509] 0.0 0.00 0.01 47562 skill_weeks [509] + 0.00 0.01 889716/7641081 genrand_int31 [171] + 0.00 0.00 47562/47562 rule_random_progress [829] +----------------------------------------------- + 0.00 0.00 2445/47535 set_level [774] + 0.00 0.01 45090/47535 learn_skill [471] +[510] 0.0 0.00 0.01 47535 sk_set [510] + 0.00 0.01 47535/47562 skill_weeks [509] +----------------------------------------------- + 0.00 0.00 232/629123 writefaction [762] + 0.00 0.00 32670/629123 writeregion [519] + 0.01 0.00 596221/629123 write_unit [97] +[511] 0.0 0.01 0.00 629123 write_items [511] + 0.00 0.00 448410/13259934 resourcename [233] +----------------------------------------------- + 0.00 0.01 112140/112140 buildingtype [414] +[512] 0.0 0.00 0.01 112140 castle_name [512] + 0.00 0.01 112140/112140 castle_name_i [513] +----------------------------------------------- + 0.00 0.01 112140/112140 castle_name [512] +[513] 0.0 0.00 0.01 112140 castle_name_i [513] + 0.01 0.00 112140/297010 bt_effsize [343] +----------------------------------------------- + 0.01 0.00 1/1 randomevents [91] +[514] 0.0 0.01 0.00 1 chaos_update [514] + 0.00 0.00 178254/179235 get_chaoscount [717] + 0.00 0.00 18025/7641081 genrand_int31 [171] + 0.00 0.00 3597/3597 chaos [848] + 0.00 0.00 18025/18059 add_chaoscount [1198] +----------------------------------------------- + 0.01 0.00 178254/178254 process [7] +[515] 0.0 0.01 0.00 178254 do_siege [515] + 0.00 0.00 204065/55492327 getkeyword [54] +----------------------------------------------- + 0.00 0.01 27694/27694 set_new_dragon_target [486] +[516] 0.0 0.00 0.01 27694 dragon_affinity_value [516] + 0.01 0.00 27694/27694 all_money [529] + 0.00 0.00 27694/71815034 get_race [12] + 0.00 0.00 27694/27694 dice [787] + 0.00 0.00 27694/129167539 u_race [89] +----------------------------------------------- + 0.01 0.00 116804/116804 parse_symbol [42] +[517] 0.0 0.01 0.00 116804 eval_isnull [517] + 0.00 0.00 116804/13102790 opstack_pop [176] + 0.00 0.00 116804/13102790 opstack_push [202] +----------------------------------------------- + 0.00 0.01 57367/57367 write_travelthru [327] +[518] 0.0 0.00 0.01 57367 count_travelthru [518] + 0.00 0.01 57367/3398582 travelthru_map [41] +----------------------------------------------- + 0.00 0.01 178254/178254 write_game [83] +[519] 0.0 0.00 0.01 178254 writeregion [519] + 0.00 0.01 178254/839970 write_attribs [301] + 0.00 0.00 249352/13259934 resourcename [233] + 0.00 0.00 196020/10053919 rtrees [302] + 0.00 0.00 32670/629123 write_items [511] + 0.00 0.00 32670/2605004 rpeasants [435] + 0.00 0.00 32670/4666665 rmoney [452] + 0.00 0.00 178254/178254 region_getinfo [1424] + 0.00 0.00 32670/1160345 rhorses [1369] + 0.00 0.00 32670/3166898 rherbs [1351] + 0.00 0.00 32670/65345 region_get_morale [1444] + 0.00 0.00 32670/32670 write_owner [1480] +----------------------------------------------- + 65155 skillmod [214] +[520] 0.0 0.01 0.00 65155 sm_familiar [520] + 0.00 0.00 26823/298951 distance [599] + 0.00 0.00 54349/54351 get_familiar [796] + 54349 effskill [100] +----------------------------------------------- + 0.01 0.00 2481220/2481220 msg_create [228] +[521] 0.0 0.01 0.00 2481220 copy_arg [521] + 0.00 0.00 41255/41255 var_copy_order [734] + 0.00 0.00 54163/54163 var_copy_string [1454] + 0.00 0.00 214/214 var_copy_items [1627] + 0.00 0.00 206/206 var_copy_resources [1632] +----------------------------------------------- + 0.00 0.01 249/249 plan_dragon [273] +[522] 0.0 0.00 0.01 249 make_movement_order [522] + 0.00 0.01 136/136 path_find [523] + 0.00 0.00 527/24887945 locale_string [27] + 0.00 0.00 136/1481407 parse_order [117] + 0.00 0.00 391/263302 reldirection [528] + 0.00 0.00 527/34611296 strlcpy [45] + 0.00 0.00 249/1121103 monster_is_waiting [407] + 0.00 0.00 527/36653945 wrptr [178] + 0.00 0.00 136/2009097 keyword [1355] +----------------------------------------------- + 0.00 0.01 136/136 make_movement_order [522] +[523] 0.0 0.00 0.01 136 path_find [523] + 0.01 0.00 136/388 internal_path_find [345] +----------------------------------------------- + 0.00 0.01 39836/39836 a_read_i [390] +[524] 0.0 0.00 0.01 39836 read_of [524] + 0.01 0.00 39836/40046 rule_stealth_other [530] + 0.00 0.00 39836/4625636 findfaction [259] +----------------------------------------------- + 0.00 0.01 206/206 do_battle [64] +[525] 0.0 0.00 0.01 206 print_stats [525] + 0.00 0.01 552/552 print_fighters [616] + 0.00 0.00 5420/12398 fbattlerecord [688] + 0.00 0.00 11178/18788 sideabkz [745] + 0.00 0.00 8758/24887945 locale_string [27] + 0.00 0.00 2317/967784 msg_message [132] + 0.00 0.00 4336/31214 message_faction [716] + 0.00 0.00 2082/3111 sidename [867] + 0.00 0.00 355/1486 message_all [834] + 0.00 0.00 11693/5461936 slprintf [548] + 0.00 0.00 13861/24449 seematrix [1491] + 0.00 0.00 13861/22301 army_index [1498] + 0.00 0.00 2317/1009028 msg_release [1373] + 0.00 0.00 149/2854 is_attacker [1550] +----------------------------------------------- + 0.00 0.00 2/14326 create_ship [1014] + 0.00 0.00 490/14326 build_building [696] + 0.00 0.00 5384/14326 teach_cmd [272] + 0.01 0.00 8450/14326 cycle_route [375] +[526] 0.0 0.01 0.00 14326 replace_order [526] + 0.00 0.00 14326/635885 copy_order [441] + 0.00 0.00 14326/1936876 free_order [1356] +----------------------------------------------- + 0.01 0.00 1302/1302 teach_unit [426] +[527] 0.0 0.01 0.00 1302 academy_can_teach [527] + 0.00 0.00 404/541982 get_pooled [104] + 0.00 0.00 1302/560926 bt_find [237] + 0.00 0.00 1709/424669 active_building [560] + 0.00 0.00 404/418134 study_cost [433] + 0.00 0.00 404/56052475 get_resourcetype [194] +----------------------------------------------- + 0.00 0.00 391/263302 make_movement_order [522] + 0.00 0.00 4307/263302 set_coast [875] + 0.00 0.00 4337/263302 can_takeoff [854] + 0.00 0.00 39729/263302 leave_trail [704] + 0.00 0.00 106203/263302 travel_route [147] + 0.00 0.00 108335/263302 cap_route [502] +[528] 0.0 0.00 0.01 263302 reldirection [528] + 0.01 0.00 263302/263302 koor_reldirection [562] + 0.00 0.00 526604/18647447 getplane [596] +----------------------------------------------- + 0.01 0.00 27694/27694 dragon_affinity_value [516] +[529] 0.0 0.01 0.00 27694 all_money [529] + 0.00 0.00 11448/7120688 get_money [187] + 0.00 0.00 27694/4666665 rmoney [452] +----------------------------------------------- + 0.00 0.00 1/40046 destroyfaction [392] + 0.00 0.00 209/40046 setstealth_cmd [182] + 0.01 0.00 39836/40046 read_of [524] +[530] 0.0 0.01 0.00 40046 rule_stealth_other [530] + 0.00 0.00 40046/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.01 1/1 write_game [83] +[531] 0.0 0.00 0.01 1 clear_npc_orders [531] + 0.01 0.00 420178/1644867 free_orders [306] +----------------------------------------------- + 0.00 0.00 10897/25088 terminate [242] + 0.00 0.01 14191/25088 flee [638] +[532] 0.0 0.00 0.01 25088 kill_troop [532] + 0.01 0.00 25088/25088 rmtroop [533] + 0.00 0.00 176/176 default_spoil [1144] + 0.00 0.00 990/129167539 u_race [89] + 0.00 0.00 12/60 equip_items [1121] + 0.00 0.00 319/2742 get_equipment [1551] + 0.00 0.00 9/97 i_merge [1651] +----------------------------------------------- + 0.01 0.00 25088/25088 kill_troop [532] +[533] 0.0 0.01 0.00 25088 rmtroop [533] + 0.00 0.00 25088/25088 rmfighter [890] +----------------------------------------------- + 0.01 0.00 1/1 icebergs [285] +[534] 0.0 0.01 0.00 1 move_icebergs [534] + 0.00 0.00 9/9 melt_iceberg [1082] + 0.00 0.00 20/27 move_iceberg [1094] + 0.00 0.00 29/7641081 genrand_int31 [171] + 0.00 0.00 178254/1511812 newterrain [1359] +----------------------------------------------- + 0.01 0.00 1297/1297 make_fighter [424] +[535] 0.0 0.01 0.00 1297 AllianceAuto [535] + 0.00 0.00 1297/10383360 HelpMask [288] + 0.00 0.00 1297/20777534 config_get [224] +----------------------------------------------- + 0.00 0.00 32/1629412 travel_i [92] + 0.00 0.00 37/1629412 transport [1011] + 0.00 0.00 74/1629412 init_transportation [384] + 0.00 0.00 222/1629412 cast_cmd [760] + 0.00 0.00 475/1629412 move_hunters [342] + 0.00 0.00 1518/1629412 start_battle [297] + 0.00 0.00 435900/1629412 process [7] + 0.00 0.00 595258/1629412 follow_unit [331] + 0.00 0.00 595896/1629412 update_long_order [270] +[536] 0.0 0.01 0.00 1629412 LongHunger [536] + 0.00 0.00 138/71815034 get_race [12] + 0.00 0.00 111/4984610 config_get_int [348] + 0.00 0.00 138/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 48/32727 terraform_region [932] + 0.01 0.00 32679/32727 readregion [209] +[537] 0.0 0.01 0.00 32727 rsetherbtype [537] + 0.00 0.00 50/361 regionname [987] + 0.00 0.00 50/49235 log_debug [1245] +----------------------------------------------- + 0.01 0.00 1/1 icebergs [285] +[538] 0.0 0.01 0.00 1 create_icebergs [538] + 0.00 0.00 126/752645 chance [495] + 0.00 0.00 7/27 move_iceberg [1094] + 0.00 0.00 2/967784 msg_message [132] + 0.00 0.00 2/392959 add_message [434] + 0.00 0.00 178261/1511812 newterrain [1359] + 0.00 0.00 2/1009028 msg_release [1373] +----------------------------------------------- + 0.01 0.00 163/163 parse_symbol [42] +[539] 0.0 0.01 0.00 163 eval_lt [539] + 0.00 0.00 326/13102790 opstack_pop [176] + 0.00 0.00 163/13102790 opstack_push [202] +----------------------------------------------- + 0.00 0.01 224/224 leave [432] +[540] 0.0 0.00 0.01 224 leave_ship [540] + 0.01 0.00 18/18 ship_update_owner [573] + 0.00 0.00 224/234 set_leftship [1134] + 0.00 0.00 18/3358315 ship_owner [438] +----------------------------------------------- + +[541] 0.0 0.00 0.01 main [541] + 0.00 0.01 1/1 game_done [542] + 0.00 0.00 1/1 game_init [1249] + 0.00 0.00 1/1 parse_config [1292] + 0.00 0.00 1/1 lua_init [1316] + 0.00 0.00 1/1 eressea_run [1346] + 0.00 0.00 1/1 setup_signal_handler [1863] + 0.00 0.00 1/1 locale_init [1815] + 0.00 0.00 1/1 parse_args [1825] + 0.00 0.00 1/1 bind_monsters [1793] + 0.00 0.00 1/1 log_close [1816] + 0.00 0.00 1/1 lua_done [1820] +----------------------------------------------- + 0.00 0.01 1/1 main [541] +[542] 0.0 0.00 0.01 1 game_done [542] + 0.00 0.01 1/1 free_config [574] + 0.00 0.00 1/1 free_locales [1311] + 0.00 0.00 1/1 free_functions [1804] + 0.00 0.00 1/1 calendar_cleanup [1796] + 0.00 0.00 1/1 kernel_done [1813] +----------------------------------------------- + 0.00 0.00 1/4201030 sp_generous [1040] + 0.00 0.00 2/4201030 sp_enterastral [1045] + 0.00 0.00 2/4201030 shipcurse_flyingship [1072] + 0.00 0.00 3/4201030 skilldiff [166] + 0.00 0.00 6/4201030 forget_cmd [1093] + 0.00 0.00 9/4201030 is_freezing [1088] + 0.00 0.00 10/4201030 sp_stormwinds [871] + 0.00 0.00 17/4201030 produce [29] + 0.00 0.00 17/4201030 process [7] + 0.00 0.00 17/4201030 magic [157] + 0.00 0.00 22/4201030 drifting_ships [490] + 0.00 0.00 34/4201030 sp_viewreality [784] + 0.00 0.00 349/4201030 can_give_men [940] + 0.00 0.00 450/4201030 spellpower [1000] + 0.00 0.00 452/4201030 fumble [973] + 0.00 0.00 488/4201030 give_men [857] + 0.00 0.00 1624/4201030 shipspeed [669] + 0.00 0.00 1689/4201030 recruit [650] + 0.00 0.00 2815/4201030 count_faction [219] + 0.00 0.00 2974/4201030 start_battle [297] + 0.00 0.00 4309/4201030 report_template [87] + 0.00 0.00 5948/4201030 deathcounts [843] + 0.00 0.00 8515/4201030 describe [35] + 0.00 0.00 16560/4201030 entertain_cmd [665] + 0.00 0.00 19730/4201030 can_survive [640] + 0.00 0.00 29173/4201030 horses [330] + 0.00 0.00 32649/4201030 growing_trees [624] + 0.00 0.00 37300/4201030 cr_output_region [10] + 0.00 0.00 39858/4201030 sail [181] + 0.00 0.00 46175/4201030 maintain_buildings [339] + 0.00 0.00 90436/4201030 spawn_undead [629] + 0.00 0.00 91155/4201030 godcurse [405] + 0.00 0.00 94865/4201030 ageing [185] + 0.00 0.00 159544/4201030 entertainmoney [643] + 0.00 0.00 169917/4201030 study_cmd [105] + 0.00 0.00 282968/4201030 move_blocked [283] + 0.00 0.00 601859/4201030 att_modification [90] + 0.00 0.00 615666/4201030 default_wage [173] + 0.00 0.00 669051/4201030 production [417] + 0.00 0.00 1174371/4201030 terrain_name [226] +[543] 0.0 0.01 0.00 4201030 curse_active [543] +----------------------------------------------- + 0.00 0.00 191/1311302 follow_ship [749] + 0.00 0.00 283446/1311302 readorders [43] + 0.01 0.00 1027665/1311302 init_order [613] +[544] 0.0 0.01 0.00 1311302 init_tokens_str [544] +----------------------------------------------- + 0.00 0.00 9/264251 destroyfaction [392] + 0.00 0.00 15/264251 res_changepeasants [1200] + 0.00 0.00 19/264251 dissolve_units [241] + 0.00 0.00 34/264251 battle_effects [1125] + 0.00 0.00 57/264251 terraform_region [932] + 0.00 0.00 71/264251 transfermen [899] + 0.00 0.00 120/264251 plagues [781] + 0.00 0.00 567/264251 eaten_by_monster [468] + 0.00 0.00 681/264251 absorbed_by_monster [804] + 0.00 0.00 1594/264251 expandrecruit [349] + 0.00 0.00 3152/264251 scareaway [768] + 0.00 0.00 14329/264251 immigration [294] + 0.00 0.00 32670/264251 peasants [658] + 0.00 0.00 32679/264251 readregion [209] + 0.01 0.00 178254/264251 get_food [88] +[545] 0.0 0.01 0.00 264251 rsetpeasants [545] +----------------------------------------------- + 0.00 0.00 1301/9298667 leveled_allocation [888] + 0.00 0.00 2723/9298667 split_allocations [743] + 0.00 0.00 3078/9298667 allocate_resource [752] + 0.00 0.00 59445/9298667 report_resources [210] + 0.01 0.00 9232120/9298667 res_changeitem [101] +[546] 0.0 0.01 0.00 9298667 resource2item [546] +----------------------------------------------- + 0.00 0.00 2/8506411 create_ship [1014] + 0.00 0.00 41/8506411 build_road [950] + 0.00 0.00 42/8506411 loot_cmd [873] + 0.00 0.00 79/8506411 can_guard [908] + 0.00 0.00 498/8506411 join_allies [693] + 0.00 0.00 598/8506411 build_building [696] + 0.00 0.00 960/8506411 tax_cmd [697] + 0.00 0.00 2943/8506411 allocate_resource [752] + 0.00 0.00 5915/8506411 buy [707] + 0.00 0.00 11003/8506411 do_work [612] + 0.00 0.00 15763/8506411 sell [498] + 0.00 0.00 16593/8506411 entertain_cmd [665] + 0.01 0.00 8451974/8506411 is_guardian_r [186] +[547] 0.0 0.01 0.00 8506411 besieged [547] + 0.00 0.00 8506411/11194781 keyword_disabled [1348] +----------------------------------------------- + 0.00 0.00 2/5461936 new_ship [1229] + 0.00 0.00 11/5461936 new_building [1059] + 0.00 0.00 47/5461936 give_peasants [1060] + 0.00 0.00 191/5461936 follow_ship [749] + 0.00 0.00 211/5461936 display_race [963] + 0.00 0.00 1572/5461936 write_score [1135] + 0.00 0.00 2705/5461936 b_nameroad [642] + 0.00 0.00 7336/5461936 battle_report [503] + 0.00 0.00 11693/5461936 print_stats [525] + 0.00 0.00 180818/5461936 write_buildingname [622] + 0.00 0.00 513251/5461936 write_regionname [280] + 0.00 0.00 1065211/5461936 write_shipname [291] + 0.00 0.00 1295787/5461936 factionname [247] + 0.00 0.00 2383101/5461936 write_unitname [148] +[548] 0.0 0.01 0.00 5461936 slprintf [548] +----------------------------------------------- + 0.01 0.00 4976082/4976082 parse_symbol [42] +[549] 0.0 0.01 0.00 4976082 find_function [549] +----------------------------------------------- + 0.00 0.00 60/4301501 aftermath [701] + 0.00 0.00 1729/4301501 make_fighter [424] + 0.00 0.00 5188/4301501 print_fighters [616] + 0.00 0.00 25088/4301501 rmfighter [890] + 0.00 0.00 324731/4301501 count_side [666] + 0.00 0.00 876979/4301501 count_enemies [611] + 0.00 0.00 1405349/4301501 select_enemy [172] + 0.00 0.00 1662377/4301501 get_unitrow [154] +[550] 0.0 0.01 0.00 4301501 statusrow [550] +----------------------------------------------- + 0.00 0.00 114/3383689 u_setfaction [1111] + 0.00 0.00 109781/3383689 move_unit [421] + 0.00 0.00 595125/3383689 read_game [62] + 0.00 0.00 1188131/3383689 travelthru_add [609] + 0.00 0.00 1490538/3383689 add_seen_nb [386] +[551] 0.0 0.01 0.00 3383689 update_interval [551] +----------------------------------------------- + 0.00 0.00 12208/2985733 report_template [87] + 0.00 0.00 68016/2985733 write_unit [97] + 0.00 0.00 68497/2985733 cr_output_unit [19] + 0.00 0.00 451283/2985733 update_long_order [270] + 0.00 0.00 573389/2985733 unitorders [46] + 0.00 0.00 766833/2985733 is_persistent [687] + 0.00 0.00 1045507/2985733 bufunit [17] +[552] 0.0 0.01 0.00 2985733 is_repeated [552] +----------------------------------------------- + 0.00 0.00 9/2186159 destroyfaction [392] + 0.00 0.00 17/2186159 give_money [484] + 0.00 0.00 36/2186159 expandloot [816] + 0.00 0.00 38/2186159 gift_items [891] + 0.00 0.00 41/2186159 region_setresource [1097] + 0.00 0.00 57/2186159 terraform_region [932] + 0.00 0.00 6459/2186159 plagues [781] + 0.00 0.00 16560/2186159 expandentertainment [637] + 0.00 0.00 32670/2186159 peasants [658] + 0.00 0.00 32679/2186159 readregion [209] + 0.00 0.00 178254/2186159 expandwork [277] + 0.00 0.00 394406/2186159 expandbuying [49] + 0.01 0.00 1524933/2186159 expandtax [278] +[553] 0.0 0.01 0.00 2186159 rsetmoney [553] +----------------------------------------------- + 0.00 0.00 10232/1106528 update_lighthouse [605] + 0.00 0.00 15060/1106528 buildingtype [414] + 0.00 0.00 24025/1106528 check_leuchtturm [786] + 0.00 0.00 46184/1106528 age_building [712] + 0.00 0.00 218422/1106528 report_building [397] + 0.00 0.00 396300/1106528 default_wage [173] + 0.00 0.00 396305/1106528 cmp_wage [670] +[554] 0.0 0.01 0.00 1106528 is_building_type [554] +----------------------------------------------- + 0.00 0.00 1/779419 create_mage [1315] + 0.00 0.00 1/779419 init_seed [1320] + 0.00 0.00 1/779419 init_mallornseed [1319] + 0.00 0.00 1/779419 a_upgradekeys [1314] + 0.00 0.00 1/779419 xml_readconstruction [1183] + 0.00 0.00 2/779419 set_factionstealth [183] + 0.00 0.00 2/779419 make_wormhole [1150] + 0.00 0.00 2/779419 summon_allies [925] + 0.00 0.00 2/779419 init_smithy [1312] + 0.00 0.00 3/779419 create_newfamiliar [1288] + 0.00 0.00 3/779419 usetprivate [1041] + 0.00 0.00 6/779419 add_chaoscount [1198] + 0.00 0.00 7/779419 parse_resources [1086] + 0.00 0.00 7/779419 add_trigger [1260] + 0.00 0.00 12/779419 volcano_destruction [1022] + 0.00 0.00 13/779419 move_iceberg [1094] + 0.00 0.00 20/779419 init_transportation [384] + 0.00 0.00 25/779419 set_new_dragon_target [486] + 0.00 0.00 32/779419 growing_trees [624] + 0.00 0.00 32/779419 make_curse [802] + 0.00 0.00 35/779419 deathcounts [843] + 0.00 0.00 55/779419 renumber_unit [1159] + 0.00 0.00 58/779419 potion_luck [1176] + 0.00 0.00 97/779419 piracy_cmd [660] + 0.00 0.00 114/779419 usetcontact [1147] + 0.00 0.00 159/779419 change_effect [982] + 0.00 0.00 234/779419 set_leftship [1134] + 0.00 0.00 328/779419 display_potion [1090] + 0.00 0.00 389/779419 usetpotionuse [1078] + 0.00 0.00 631/779419 set_group [1048] + 0.00 0.00 754/779419 new_units [282] + 0.00 0.00 760/779419 set_familiar [992] + 0.00 0.00 894/779419 follow_unit [331] + 0.00 0.00 2494/779419 create_unit [296] + 0.00 0.00 2503/779419 sell [498] + 0.00 0.00 3233/779419 leave_trail [704] + 0.00 0.00 3642/779419 buy [707] + 0.00 0.00 4162/779419 show_new_spells [889] + 0.00 0.00 4738/779419 expandselling [93] + 0.00 0.00 5679/779419 expandbuying [49] + 0.00 0.00 11749/779419 teach_unit [426] + 0.00 0.00 27216/779419 travelthru_add [609] + 0.00 0.00 52117/779419 update_lighthouse [605] + 0.00 0.00 251365/779419 a_read_i [390] + 0.00 0.01 405840/779419 study_cmd [105] +[555] 0.0 0.00 0.01 779419 a_add [555] + 0.01 0.00 54530/54530 a_insert [566] +----------------------------------------------- + 0.00 0.00 7964/618305 report_crtypes [428] + 0.01 0.00 610341/618305 stream_order [167] +[556] 0.0 0.01 0.00 618305 escape_string [556] +----------------------------------------------- + 0.00 0.00 1/604861 clonedied_write [1321] + 0.00 0.00 2/604861 giveitem_write [1309] + 0.00 0.00 6/604861 changerace_write [1287] + 0.00 0.00 12/604861 changefaction_write [1258] + 0.00 0.00 769/604861 shock_write [1050] + 0.00 0.00 1522/604861 a_write_unit [998] + 0.00 0.00 2304/604861 killunit_write [978] + 0.00 0.00 4024/604861 curse_write [930] + 0.01 0.00 596221/604861 write_unit [97] +[557] 0.0 0.01 0.00 604861 write_unit_reference [557] +----------------------------------------------- + 0.00 0.00 449/454395 a_read_i [390] + 0.00 0.00 2172/454395 a_removeall [958] + 0.01 0.00 451774/454395 a_remove [366] +[558] 0.0 0.01 0.00 454395 a_free [558] + 0.00 0.00 417577/417577 done_learning [1397] + 0.00 0.00 23342/23342 shiptrail_finalize [1492] + 0.00 0.00 10417/10417 free_luxuries [1516] + 0.00 0.00 554/554 a_finalizeeffect [1597] + 0.00 0.00 97/97 piracy_done [1653] + 0.00 0.00 28/28 curse_done [1696] + 0.00 0.00 1/1 a_finalizestring [1786] +----------------------------------------------- + 0.01 0.00 451774/451774 a_remove [366] +[559] 0.0 0.01 0.00 451774 a_unlink [559] +----------------------------------------------- + 0.00 0.00 174/424669 breedhorses [742] + 0.00 0.00 1709/424669 academy_can_teach [527] + 0.00 0.00 5206/424669 monthly_healing [215] + 0.01 0.00 417580/424669 study_cmd [105] +[560] 0.0 0.01 0.00 424669 active_building [560] + 0.00 0.00 6798/26164 building_is_active [1488] + 0.00 0.00 6405/26995 inside_building [1486] +----------------------------------------------- + 0.00 0.00 5/283711 give_horses [1108] + 0.00 0.00 19/283711 reshow_other [823] + 0.00 0.00 22/283711 give_money [484] + 0.01 0.00 283665/283711 give_item [126] +[561] 0.0 0.01 0.00 283711 item2resource [561] +----------------------------------------------- + 0.01 0.00 263302/263302 reldirection [528] +[562] 0.0 0.01 0.00 263302 koor_reldirection [562] + 0.00 0.00 932009/3587241 pnormalize [1350] +----------------------------------------------- + 0.01 0.00 251814/251814 a_read_i [390] +[563] 0.0 0.01 0.00 251814 at_find [563] +----------------------------------------------- + 0.00 0.00 30233/162862 regions_in_range [675] + 0.01 0.00 132629/162862 internal_path_find [345] +[564] 0.0 0.01 0.00 162862 allowed_dragon [564] + 0.00 0.00 157782/157830 allowed_fly [1425] +----------------------------------------------- + 0.00 0.00 1/113845 removelist [1290] + 0.01 0.00 113844/113845 translist [430] +[565] 0.0 0.01 0.00 113845 choplist [565] +----------------------------------------------- + 0.01 0.00 54530/54530 a_add [555] +[566] 0.0 0.01 0.00 54530 a_insert [566] +----------------------------------------------- + 0.00 0.00 10344/47887 cansail [469] + 0.00 0.00 18693/47887 nr_ship [111] + 0.00 0.00 18850/47887 cr_output_ship [152] +[567] 0.0 0.01 0.00 47887 shipcapacity [567] +----------------------------------------------- + 0.00 0.00 1/11719 tolua_faction_get_locale [1197] + 0.00 0.00 2/11719 config_get_locales [1161] + 0.00 0.00 2/11719 report_summary [614] + 0.00 0.00 232/11719 write_script [853] + 0.00 0.00 232/11719 writefaction [762] + 0.00 0.00 460/11719 report_computer [9] + 0.01 0.00 10790/11719 cr_find_address [602] +[568] 0.0 0.01 0.00 11719 locale_name [568] +----------------------------------------------- + 0.00 0.00 863/3147 make_fighter [424] + 0.01 0.00 2284/3147 weapon_skill [221] +[569] 0.0 0.01 0.00 3147 i_canuse [569] + 0.00 0.00 785/785 lua_canuse_item [1591] +----------------------------------------------- + 0.01 0.00 1018/1018 remove_exclusive [571] +[570] 0.0 0.01 0.00 1018 is_exclusive [570] +----------------------------------------------- + 0.00 0.01 524/524 defaultorders [249] +[571] 0.0 0.00 0.01 524 remove_exclusive [571] + 0.01 0.00 1018/1018 is_exclusive [570] + 0.00 0.00 310/1936876 free_order [1356] +----------------------------------------------- + 0.00 0.00 1/457 promotion_cmd [917] + 0.00 0.00 226/457 report_plaintext [4] + 0.01 0.00 230/457 report_computer [9] +[572] 0.0 0.01 0.00 457 countheroes [572] +----------------------------------------------- + 0.01 0.00 18/18 leave_ship [540] +[573] 0.0 0.01 0.00 18 ship_update_owner [573] + 0.00 0.00 18/1529 ship_owner_ex [1571] +----------------------------------------------- + 0.00 0.01 1/1 game_done [542] +[574] 0.0 0.00 0.01 1 free_config [574] + 0.01 0.00 1/1 free_params [575] +----------------------------------------------- + 0.01 0.00 1/1 free_config [574] +[575] 0.0 0.01 0.00 1 free_params [575] +----------------------------------------------- + 0.01 0.00 1/1 eressea_write_game [76] +[576] 0.0 0.01 0.00 1 remove_empty_factions [576] +----------------------------------------------- + +[577] 0.0 0.01 0.00 cb_insert [577] +----------------------------------------------- + +[578] 0.0 0.01 0.00 cmp_curse [578] +----------------------------------------------- + +[579] 0.0 0.01 0.00 create_backup [579] +----------------------------------------------- + +[580] 0.0 0.01 0.00 ct_remove [580] +----------------------------------------------- + +[581] 0.0 0.01 0.00 get_homeplane [581] +----------------------------------------------- + +[582] 0.0 0.01 0.00 i10toi36 [582] +----------------------------------------------- + +[583] 0.0 0.01 0.00 json_export [583] +----------------------------------------------- + +[584] 0.0 0.01 0.00 make_external_node [584] +----------------------------------------------- + +[585] 0.0 0.01 0.00 qli_next [585] +----------------------------------------------- + +[586] 0.0 0.01 0.00 read_movement [586] +----------------------------------------------- + +[587] 0.0 0.01 0.00 remove_plane [587] +----------------------------------------------- + +[588] 0.0 0.01 0.00 set_string [588] +----------------------------------------------- + +[589] 0.0 0.01 0.00 tolua_buildinglist_next [589] +----------------------------------------------- + +[590] 0.0 0.01 0.00 tolua_regionlist_next [590] +----------------------------------------------- + +[591] 0.0 0.01 0.00 tolua_tousertype [591] +----------------------------------------------- + 0.00 0.00 490896/5152236 default_wage [173] + 0.00 0.00 1366398/5152236 unit_max_hp [136] + 0.01 0.00 3294942/5152236 att_modification [90] +[592] 0.0 0.01 0.00 5152236 ct_changed [592] +----------------------------------------------- + 0.00 0.00 11880/4835422 cansee_unit [684] + 0.00 0.00 923633/4835422 cr_output_unit [19] + 0.00 0.00 1156253/4835422 cansee [22] + 0.00 0.00 1348743/4835422 bufunit [17] + 0.00 0.00 1394913/4835422 cansee_durchgezogen [170] +[593] 0.0 0.01 0.00 4835422 usiege [593] +----------------------------------------------- + 0.00 0.00 458/2494242 list_address [635] + 0.00 0.00 1632/2494242 rp_battles [618] + 0.00 0.00 1888/2494242 allies [419] + 0.00 0.00 6243/2494242 nr_spell [507] + 0.00 0.00 15186/2494242 nr_curses_i [401] + 0.00 0.00 27498/2494242 guards [229] + 0.00 0.00 62736/2494242 rp_messages [36] + 0.00 0.00 66278/2494242 statistics [70] + 0.00 0.00 113592/2494242 nr_building [141] + 0.00 0.00 164218/2494242 describe [35] + 0.00 0.00 180598/2494242 nr_ship [111] + 0.00 0.00 216458/2494242 report_template [87] + 0.00 0.00 293098/2494242 report_plaintext [4] + 0.01 0.00 1344359/2494242 nr_unit [11] +[594] 0.0 0.01 0.00 2494242 newline [594] +----------------------------------------------- + 0.01 0.00 987612/987612 get_astralplane [482] +[595] 0.0 0.01 0.00 987612 getplanebyname [595] +----------------------------------------------- + 0.00 0.00 3/18647447 getplaneid [1337] + 0.00 0.00 40/18647447 expandstealing [807] + 0.00 0.00 111/18647447 check_steal [1234] + 0.00 0.00 206/18647447 make_battle [1282] + 0.00 0.00 227/18647447 cast_cmd [760] + 0.00 0.00 493/18647447 report_computer [9] + 0.00 0.00 719/18647447 join_allies [693] + 0.00 0.00 976/18647447 make_cmd [383] + 0.00 0.00 1518/18647447 start_battle [297] + 0.00 0.00 1689/18647447 recruit [650] + 0.00 0.00 5384/18647447 teach_cmd [272] + 0.00 0.00 7957/18647447 magic_resistance [727] + 0.00 0.00 8865/18647447 r_astral_to_standard [783] + 0.00 0.00 9641/18647447 cr_regions [840] + 0.00 0.00 10477/18647447 report_template [87] + 0.00 0.00 102739/18647447 give_cmd [102] + 0.00 0.00 108425/18647447 update_lighthouse [605] + 0.00 0.00 132705/18647447 cr_region [662] + 0.00 0.00 163381/18647447 astralregions [329] + 0.00 0.00 174658/18647447 good_region [910] + 0.00 0.00 178254/18647447 get_food [88] + 0.00 0.00 211668/18647447 cr_output_region [10] + 0.00 0.00 369586/18647447 r_connect [474] + 0.00 0.00 513251/18647447 write_regionname [280] + 0.00 0.00 526604/18647447 reldirection [528] + 0.00 0.00 950595/18647447 f_regionid [161] + 0.00 0.00 987488/18647447 is_astral [479] + 0.00 0.00 1187497/18647447 bufunit [17] + 0.00 0.00 1467202/18647447 get_modifier [55] + 0.00 0.00 2521048/18647447 lifestyle [286] + 0.00 0.00 9004040/18647447 alliedunit [31] +[596] 0.0 0.01 0.00 18647447 getplane [596] +----------------------------------------------- + 0.00 0.00 1/2032164 do_fumble [1062] + 0.00 0.00 1/2032164 init_seed [1320] + 0.00 0.00 1/2032164 init_mallornseed [1319] + 0.00 0.00 17/2032164 parse_buildings [1131] + 0.00 0.00 51/2032164 potion_water_of_life [945] + 0.00 0.00 80/2032164 msg_set_resource [1226] + 0.00 0.00 225/2032164 spellpower [1000] + 0.00 0.00 233/2032164 parse_spells [1120] + 0.00 0.00 545/2032164 rt_get_or_create [1139] + 0.00 0.00 1139/2032164 tolua_region_set_resource [1057] + 0.00 0.00 2148/2032164 get_food [88] + 0.00 0.00 2366/2032164 allocate_resource [752] + 0.00 0.00 2491/2032164 a_readeffect [1052] + 0.00 0.00 3355/2032164 tolua_region_get_resource [976] + 0.00 0.00 5358/2032164 max_spellpoints [755] + 0.00 0.00 83224/2032164 trollbelts [677] + 0.00 0.00 193274/2032164 walkingcapacity [403] + 0.00 0.00 249361/2032164 readregion [209] + 0.00 0.00 310783/2032164 get_resourcetype [194] + 0.01 0.00 1177511/2032164 it_find [385] +[597] 0.0 0.01 0.00 2032164 rt_find [597] +----------------------------------------------- + 0.00 0.01 755575/755575 travelthru_map [41] +[598] 0.0 0.00 0.01 755575 cb_add_address [598] + 0.00 0.01 74068/4374788 visible_faction [68] + 0.00 0.00 11880/11880 cansee_unit [684] + 0.00 0.00 3767/353788 add_seen_faction_i [1401] +----------------------------------------------- + 0.00 0.00 3/298951 cast_cmd [760] + 0.00 0.00 26823/298951 sm_familiar [520] + 0.00 0.00 71197/298951 update_lighthouse [605] + 0.00 0.01 200928/298951 get_regions_distance [372] +[599] 0.0 0.00 0.01 298951 distance [599] + 0.00 0.01 298951/514146 koor_distance [476] +----------------------------------------------- + 0.00 0.00 6/102705 give_control_cmd [287] + 0.00 0.01 102699/102705 give_cmd [102] +[600] 0.0 0.00 0.01 102705 can_give_to [600] + 0.00 0.01 102705/9953180 alliedunit [31] + 0.00 0.00 70/1437425 cansee [22] + 0.00 0.00 20/8898 ucontact [927] +----------------------------------------------- + 0.00 0.00 233/113487 reroute [1020] + 0.00 0.01 113254/113487 make_route [289] +[601] 0.0 0.00 0.01 113487 next_region [601] + 0.00 0.01 113487/2225796 get_borders [120] +----------------------------------------------- + 0.00 0.01 230/230 report_computer [9] +[602] 0.0 0.00 0.01 230 cr_find_address [602] + 0.01 0.00 10790/11719 locale_name [568] +----------------------------------------------- + 0.00 0.01 32670/32670 demographics [50] +[603] 0.0 0.00 0.01 32670 calculate_emigration [603] + 0.00 0.01 144763/438629 maxworkingpeasants [473] + 0.00 0.00 46456/369586 r_connect [474] + 0.00 0.00 144763/2605004 rpeasants [435] + 0.00 0.00 64838/1511812 newterrain [1359] +----------------------------------------------- + 0.00 0.01 116914/116914 fleechance [408] +[604] 0.0 0.00 0.01 116914 horse_fleeing_bonus [604] + 0.00 0.01 116914/12320804 effskill [100] + 0.00 0.00 350742/56052475 get_resourcetype [194] +----------------------------------------------- + 0.00 0.00 2/10232 remove_building [1153] + 0.00 0.00 11/10232 new_building [1059] + 0.00 0.00 490/10232 build_building [696] + 0.00 0.01 9729/10232 read_game [62] +[605] 0.0 0.00 0.01 10232 update_lighthouse [605] + 0.00 0.01 108425/459083 findregion [420] + 0.00 0.00 71197/298951 distance [599] + 0.00 0.00 52117/779419 a_add [555] + 0.00 0.00 52551/51974272 a_find [65] + 0.00 0.00 10232/1106528 is_building_type [554] + 0.00 0.00 108425/18647447 getplane [596] + 0.00 0.00 108425/3587241 pnormalize [1350] + 0.00 0.00 52117/779868 a_new [1376] +----------------------------------------------- + 0.00 0.01 108335/108335 cap_route [502] +[606] 0.0 0.00 0.01 108335 roadto [606] + 0.00 0.00 46655/143730 rroad [508] + 0.00 0.00 208736/10190660 get_curse [143] + 0.00 0.00 104368/12246335 ct_find [114] + 0.00 0.00 16737/16737 dir_invert [1508] +----------------------------------------------- + 0.00 0.01 3656767/3656767 translate [28] +[607] 0.0 0.00 0.01 3656767 add_variable [607] + 0.01 0.00 3656767/13399069 balloc [363] +----------------------------------------------- + 0.00 0.01 127788/127788 parse_symbol [42] +[608] 0.0 0.00 0.01 127788 eval_direction [608] + 0.00 0.00 127788/24887945 locale_string [27] + 0.00 0.00 127788/13102790 opstack_pop [176] + 0.00 0.00 127788/13102790 opstack_push [202] + 0.00 0.00 127788/13399069 balloc [363] +----------------------------------------------- + 0.00 0.01 169733/169733 mark_travelthru [610] +[609] 0.0 0.00 0.01 169733 travelthru_add [609] + 0.00 0.00 1188131/3383689 update_interval [551] + 0.00 0.00 169733/1087065 get_neighbours [480] + 0.00 0.00 169733/51974272 a_find [65] + 0.00 0.00 27216/779419 a_add [555] + 0.00 0.00 27216/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 10679/106919 move_ship [374] + 0.00 0.01 96240/106919 travel_route [147] +[610] 0.0 0.00 0.01 106919 mark_travelthru [610] + 0.00 0.01 169733/169733 travelthru_add [609] +----------------------------------------------- + 0.00 0.00 21/876979 sp_kampfzauber [957] + 0.00 0.00 53/876979 sp_dragonodem [627] + 0.00 0.00 112/876979 attack_firesword [785] + 0.00 0.00 251867/876979 do_attack [80] + 0.00 0.00 252753/876979 attack [84] + 0.00 0.00 372173/876979 select_enemy [172] +[611] 0.0 0.00 0.01 876979 count_enemies [611] + 0.00 0.01 300810/300810 count_enemies_i [636] + 0.00 0.00 876979/4301501 statusrow [550] +----------------------------------------------- + 0.00 0.01 11087/11087 produce [29] +[612] 0.0 0.00 0.01 11087 do_work [612] + 0.00 0.01 3141/15361 is_guarded [377] + 0.00 0.00 10979/490896 wage [174] + 0.00 0.00 22150/129167539 u_race [89] + 0.00 0.00 11003/8506411 besieged [547] + 0.00 0.00 84/41248 msg_feedback [647] + 0.00 0.00 84/392959 add_message [434] + 0.00 0.00 24/15102 cmistake [718] + 0.00 0.00 84/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 2/1027665 claim_cmd [1242] + 0.00 0.00 6/1027665 send_cmd [1202] + 0.00 0.00 12/1027665 forget_cmd [1093] + 0.00 0.00 16/1027665 spy_cmd [990] + 0.00 0.00 20/1027665 restack_units [353] + 0.00 0.00 22/1027665 destroy_cmd [1113] + 0.00 0.00 42/1027665 loot_cmd [873] + 0.00 0.00 65/1027665 travel_i [92] + 0.00 0.00 70/1027665 transport [1011] + 0.00 0.00 80/1027665 combatspell_cmd [898] + 0.00 0.00 99/1027665 piracy_cmd [660] + 0.00 0.00 111/1027665 init_transportation [384] + 0.00 0.00 111/1027665 steal_cmd [766] + 0.00 0.00 138/1027665 renumber_cmd [780] + 0.00 0.00 147/1027665 contact_cmd [965] + 0.00 0.00 177/1027665 breed_cmd [741] + 0.00 0.00 222/1027665 cast_cmd [760] + 0.00 0.00 241/1027665 reshow_cmd [818] + 0.00 0.00 262/1027665 defaultorders [249] + 0.00 0.00 348/1027665 mail_cmd [844] + 0.00 0.00 349/1027665 research_cmd [886] + 0.00 0.00 590/1027665 use_cmd [763] + 0.00 0.00 597/1027665 move_hunters [342] + 0.00 0.00 621/1027665 group_cmd [985] + 0.00 0.00 639/1027665 do_enter [128] + 0.00 0.00 754/1027665 new_units [282] + 0.00 0.00 791/1027665 ally_cmd [877] + 0.00 0.00 799/1027665 setstealth_cmd [182] + 0.00 0.00 960/1027665 tax_cmd [697] + 0.00 0.00 1425/1027665 follow_unit [331] + 0.00 0.00 1487/1027665 start_battle [297] + 0.00 0.00 1700/1027665 status_cmd [904] + 0.00 0.00 1835/1027665 recruit [650] + 0.00 0.00 2013/1027665 display_cmd [859] + 0.00 0.00 3117/1027665 name_cmd [835] + 0.00 0.00 5049/1027665 parse_ids [852] + 0.00 0.00 5916/1027665 buy [707] + 0.00 0.00 8450/1027665 cycle_route [375] + 0.00 0.00 10600/1027665 make_cmd [383] + 0.00 0.00 15797/1027665 sell [498] + 0.00 0.00 16596/1027665 entertain_cmd [665] + 0.00 0.00 28057/1027665 teach_cmd [272] + 0.00 0.00 30554/1027665 guard_on_cmd [656] + 0.00 0.00 30634/1027665 guard_off_cmd [711] + 0.00 0.00 71388/1027665 reserve_i [213] + 0.00 0.00 103494/1027665 movement [47] + 0.00 0.00 131722/1027665 give_cmd [102] + 0.00 0.00 131765/1027665 give_control_cmd [287] + 0.00 0.00 417775/1027665 study_cmd [105] +[613] 0.0 0.00 0.01 1027665 init_order [613] + 0.01 0.00 1027665/1311302 init_tokens_str [544] +----------------------------------------------- + 0.00 0.01 2/2 tolua_write_summary [38] +[614] 0.0 0.00 0.01 2 report_summary [614] + 0.00 0.01 251/251 out_faction [615] + 0.00 0.00 93/24887945 locale_string [27] + 0.00 0.00 93/71815034 get_race [12] + 0.00 0.00 2/11719 locale_name [568] + 0.00 0.00 2/3 update_nmrs [1155] + 0.00 0.00 71/2818494 rc_name_s [260] + 0.00 0.00 2/3 gamedate2 [1222] + 0.00 0.00 1/1 writeturn [1253] + 0.00 0.00 2/573 join_path [1016] + 0.00 0.00 1/1248014 listlen [190] + 0.00 0.00 2/27 NMRTimeout [1264] + 0.00 0.00 2/462 game_name [1168] + 0.00 0.00 3/64 log_info [1339] + 0.00 0.00 51/51 rcomp [1681] + 0.00 0.00 42/42 pcomp [1687] + 0.00 0.00 2/9 basepath [1730] +----------------------------------------------- + 0.00 0.01 251/251 report_summary [614] +[615] 0.0 0.00 0.01 251 out_faction [615] + 0.00 0.01 251/481 count_units [487] + 0.00 0.00 251/24887945 locale_string [27] + 0.00 0.00 251/1295787 factionname [247] + 0.00 0.00 251/2818494 rc_name_s [260] +----------------------------------------------- + 0.00 0.01 552/552 print_stats [525] +[616] 0.0 0.00 0.01 552 print_fighters [616] + 0.00 0.01 1297/1297 battle_punit [620] + 0.00 0.00 614/1486 message_all [834] + 0.00 0.00 614/967784 msg_message [132] + 0.00 0.00 5188/4301501 statusrow [550] + 0.00 0.00 614/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.01 3626/3626 make_cmd [383] +[617] 0.0 0.00 0.01 3626 create_item [617] + 0.00 0.01 3100/15361 is_guarded [377] + 0.00 0.00 3078/3078 allocate_resource [752] + 0.00 0.00 377/377 manufacture [759] + 0.00 0.00 149/149 create_potion [821] + 0.00 0.00 22/15102 cmistake [718] + 0.00 0.00 526/1582 resource2potion [1569] +----------------------------------------------- + 0.00 0.01 230/230 report_plaintext [4] +[618] 0.0 0.00 0.01 230 rp_battles [618] + 0.00 0.01 676/79180 rp_messages [36] + 0.00 0.00 676/1380398 nr_render [25] + 0.00 0.00 676/967784 msg_message [132] + 0.00 0.00 816/37931 centre [789] + 0.00 0.00 140/24887945 locale_string [27] + 0.00 0.00 1632/2494242 newline [594] + 0.00 0.00 676/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.01 578591/578591 monthly_healing [215] +[619] 0.0 0.00 0.01 578591 heal_factor [619] + 0.00 0.00 578591/7910500 r_isforest [199] + 0.00 0.00 578592/129167539 u_race [89] + 0.00 0.00 14447/12560453 rc_changed [256] + 0.00 0.00 1/71815034 get_race [12] + 0.00 0.00 1/717287 get_param_flt [713] + 0.00 0.00 2430/2386892 config_changed [1352] +----------------------------------------------- + 0.00 0.01 1297/1297 print_fighters [616] +[620] 0.0 0.00 0.01 1297 battle_punit [620] + 0.00 0.01 4384/4384 spunit [632] + 0.00 0.00 4384/12398 fbattlerecord [688] + 0.00 0.00 4384/5330 freestrlist [1534] +----------------------------------------------- + 0.00 0.00 1/180818 tolua_building_tostring [1306] + 0.00 0.00 12/180818 read_game [62] + 0.00 0.00 67213/180818 eval_building [494] + 0.00 0.00 113592/180818 nr_building [141] +[621] 0.0 0.00 0.01 180818 buildingname [621] + 0.00 0.01 180818/180818 write_buildingname [622] +----------------------------------------------- + 0.00 0.01 180818/180818 buildingname [621] +[622] 0.0 0.00 0.01 180818 write_buildingname [622] + 0.00 0.01 180818/5100840 itoa36 [116] + 0.00 0.00 180818/5461936 slprintf [548] +----------------------------------------------- + 0.00 0.00 21/74 do_combatspell [702] + 0.00 0.01 53/74 do_extra_spell [648] +[623] 0.0 0.00 0.01 74 cast_combatspell [623] + 0.00 0.01 53/53 sp_dragonodem [627] + 0.00 0.00 74/273 pay_spell [805] + 0.00 0.00 21/21 sp_kampfzauber [957] + 0.00 0.00 74/83 create_castorder_combat [1137] + 0.00 0.00 74/303 free_castorder [1609] +----------------------------------------------- + 0.00 0.01 32670/32670 demographics [50] +[624] 0.0 0.00 0.01 32670 growing_trees [624] + 0.00 0.00 361320/7641081 genrand_int31 [171] + 0.00 0.00 249356/10053919 rtrees [302] + 0.00 0.00 32649/12246335 ct_find [114] + 0.00 0.00 32649/10190660 get_curse [143] + 0.00 0.00 32670/51974272 a_find [65] + 0.00 0.00 32649/4201030 curse_active [543] + 0.00 0.00 32/779419 a_add [555] + 0.00 0.00 130680/229715 rsettrees [1410] + 0.00 0.00 32649/651711 oldcursename [1381] + 0.00 0.00 32/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 42/34409 expandloot [816] + 0.00 0.00 59/34409 expandstealing [807] + 0.00 0.00 948/34409 expandtax [278] + 0.00 0.00 5821/34409 expandselling [93] + 0.00 0.00 10979/34409 expandwork [277] + 0.00 0.00 16560/34409 expandentertainment [637] +[625] 0.0 0.00 0.01 34409 add_income [625] + 0.00 0.00 34409/967784 msg_message [132] + 0.00 0.00 34409/392959 add_message [434] + 0.00 0.00 34409/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.01 70836/70836 is_guarded [377] +[626] 0.0 0.00 0.01 70836 is_guardian_u [626] + 0.00 0.01 63046/9953180 alliedunit [31] + 0.00 0.00 63046/6610983 is_guard [211] + 0.00 0.00 397/1437425 cansee [22] + 0.00 0.00 397/8898 ucontact [927] + 0.00 0.00 257/129167539 u_race [89] +----------------------------------------------- + 0.00 0.01 53/53 cast_combatspell [623] +[627] 0.0 0.00 0.01 53 sp_dragonodem [627] + 0.00 0.00 7313/80630 terminate [242] + 0.00 0.00 7313/372173 select_enemy [172] + 0.00 0.00 53/1486 message_all [834] + 0.00 0.00 53/967784 msg_message [132] + 0.00 0.00 53/201744 lovar [644] + 0.00 0.00 53/876979 count_enemies [611] + 0.00 0.00 53/74 spell_damage [1657] + 0.00 0.00 53/74 get_force [1656] + 0.00 0.00 53/1009028 msg_release [1373] +----------------------------------------------- + +[628] 0.0 0.00 0.01 tolua_region_getkey [628] + 0.01 0.00 178254/688711 atoi36 [440] + 0.00 0.00 178254/178257 key_get [719] +----------------------------------------------- + 0.00 0.01 1/1 tolua_spawn_undead [630] +[629] 0.0 0.00 0.01 1 spawn_undead [629] + 0.00 0.00 355408/355423 deathcount [674] + 0.00 0.00 92/2889 create_unit [296] + 0.00 0.00 90436/10190660 get_curse [143] + 0.00 0.00 31670/2605004 rpeasants [435] + 0.00 0.00 37226/37974 deathcounts [843] + 0.00 0.00 828/2457 set_level [774] + 0.00 0.00 90436/4201030 curse_active [543] + 0.00 0.00 9552/7641081 genrand_int31 [171] + 0.00 0.00 92/967784 msg_message [132] + 0.00 0.00 266/392959 add_message [434] + 0.00 0.00 92/2931 name_unit [803] + 0.00 0.00 92/1381157 unit_max_hp [136] + 0.00 0.00 247/71815034 get_race [12] + 0.00 0.00 92/361 regionname [987] + 0.00 0.00 21/2375 equip_unit [775] + 0.00 0.00 92/24887945 locale_string [27] + 0.00 0.00 9312/21517 chaosfactor [1077] + 0.00 0.00 92/2818494 rc_name_s [260] + 0.00 0.00 92/129167539 u_race [89] + 0.00 0.00 1/12246335 ct_find [114] + 0.00 0.00 1/3902878 get_monsters [293] + 0.00 0.00 92/49235 log_debug [1245] + 0.00 0.00 92/1009028 msg_release [1373] + 0.00 0.00 21/2742 get_equipment [1551] +----------------------------------------------- + +[630] 0.0 0.00 0.01 tolua_spawn_undead [630] + 0.00 0.01 1/1 spawn_undead [629] +----------------------------------------------- + 0.00 0.01 9680/9680 travel_route [147] +[631] 0.0 0.00 0.01 9680 bewegung_blockiert_von [631] + 0.00 0.00 216875/6610983 is_guard [211] + 0.00 0.00 9680/560926 bt_find [237] + 0.00 0.00 9680/1188532 eff_stealth [163] + 0.00 0.00 8873/1753922 invisible [139] + 0.00 0.00 8873/12320804 effskill [100] + 0.00 0.00 6140/9953180 alliedunit [31] + 0.00 0.00 58080/717218 config_get_flt [714] + 0.00 0.00 27379/129167539 u_race [89] + 0.00 0.00 6140/8898 ucontact [927] + 0.00 0.00 9680/56052475 get_resourcetype [194] + 0.00 0.00 372/5395063 i_get [130] + 0.00 0.00 6/593636 building_owner [232] + 0.00 0.00 3/184870 buildingeffsize [367] + 0.00 0.00 20/752645 chance [495] + 0.00 0.00 105/1511812 newterrain [1359] +----------------------------------------------- + 0.00 0.01 4384/4384 battle_punit [620] +[632] 0.0 0.00 0.01 4384 spunit [632] + 0.00 0.01 4384/1348743 bufunit [17] + 0.00 0.00 4384/4384 lparagraph [809] +----------------------------------------------- + 0.00 0.01 96555/96555 travel_i [92] +[633] 0.0 0.00 0.01 96555 canwalk [633] + 0.00 0.00 12778/96637 walkingcapacity [403] + 0.00 0.00 12778/34221 eff_weight [683] + 0.00 0.00 12787/12320804 effskill [100] + 0.00 0.00 83768/3902878 get_monsters [293] + 0.00 0.00 12787/71815034 get_race [12] + 0.00 0.00 12787/129167539 u_race [89] + 0.00 0.00 12787/130867 get_transporters [1431] +----------------------------------------------- + 0.00 0.01 108560/108560 parse_symbol [42] +[634] 0.0 0.00 0.01 108560 eval_trail [634] + 0.00 0.00 19276/146950 f_regionid_s [477] + 0.00 0.00 19276/785221 trailinto [207] + 0.00 0.00 108560/13102790 opstack_pop [176] + 0.00 0.00 108560/13102790 opstack_push [202] + 0.00 0.00 108560/13399069 balloc [363] + 0.00 0.00 4257/24887945 locale_string [27] + 0.00 0.00 4287/17451017 strlcpy_w [67] + 0.00 0.00 19276/36653945 wrptr [178] +----------------------------------------------- + 0.00 0.01 229/229 report_plaintext [4] +[635] 0.0 0.00 0.01 229 list_address [635] + 0.00 0.00 10794/2742237 paragraph [26] + 0.00 0.00 10565/1205451 alliedfaction [162] + 0.00 0.00 10794/1295787 factionname [247] + 0.00 0.00 229/24887945 locale_string [27] + 0.00 0.00 229/37931 centre [789] + 0.00 0.00 176/3902878 get_monsters [293] + 0.00 0.00 458/2494242 newline [594] + 0.00 0.00 10565/1214628 is_allied [1368] + 0.00 0.00 229/128135 rpline [1433] +----------------------------------------------- + 0.00 0.01 300810/300810 count_enemies [611] +[636] 0.0 0.00 0.01 300810 count_enemies_i [636] + 0.00 0.00 317201/317239 count_side [666] + 0.00 0.00 25256/1662377 get_unitrow [154] +----------------------------------------------- + 0.00 0.01 11159/11159 produce [29] +[637] 0.0 0.00 0.01 11159 expandentertainment [637] + 0.00 0.00 16560/34409 add_income [625] + 0.00 0.00 16560/472418 produceexp [322] + 0.00 0.00 11159/79772 entertainmoney [643] + 0.00 0.00 16560/2599554 change_money [337] + 0.00 0.00 16560/2186159 rsetmoney [553] + 0.00 0.00 16560/4666665 rmoney [452] +----------------------------------------------- + 0.00 0.01 14191/14191 battle_flee [352] +[638] 0.0 0.00 0.01 14191 flee [638] + 0.00 0.01 14191/25088 kill_troop [532] + 0.00 0.00 14191/337987 setguard [815] +----------------------------------------------- + 0.00 0.01 1711/1711 cr_output_unit [19] +[639] 0.0 0.00 0.01 1711 cr_output_spells [639] + 0.00 0.00 33909/4434556 translate [75] + 0.00 0.00 33909/86400 spell_name [646] + 0.00 0.00 33909/4133717 mkname [261] + 0.00 0.00 35101/10103290 stream_printf [158] + 0.00 0.00 1711/597806 unit_get_spellbook [427] +----------------------------------------------- + 0.00 0.00 2/797288 sp_enterastral [1045] + 0.00 0.01 797286/797288 random_neighbour [153] +[640] 0.0 0.00 0.01 797288 can_survive [640] + 0.00 0.00 173175/12246335 ct_find [114] + 0.00 0.00 949946/129167539 u_race [89] + 0.00 0.00 19730/10190660 get_curse [143] + 0.00 0.00 19730/4201030 curse_active [543] + 0.00 0.00 742475/744202 has_horses [1378] +----------------------------------------------- + 0.00 0.00 93452/190469 describe [35] + 0.00 0.00 97017/190469 cr_borders [135] +[641] 0.0 0.00 0.01 190469 border_name [641] + 0.00 0.01 190467/190467 b_nameroad [642] + 0.00 0.00 2/2 b_namequestportal [1279] +----------------------------------------------- + 0.00 0.01 190467/190467 border_name [641] +[642] 0.0 0.00 0.01 190467 b_nameroad [642] + 0.00 0.00 93450/24887945 locale_string [27] + 0.00 0.00 93450/4133717 mkname [261] + 0.00 0.00 2705/5461936 slprintf [548] +----------------------------------------------- + 0.00 0.00 11159/79772 expandentertainment [637] + 0.00 0.00 31676/79772 statistics [70] + 0.00 0.00 36937/79772 cr_output_region [10] +[643] 0.0 0.00 0.01 79772 entertainmoney [643] + 0.00 0.00 159633/12246335 ct_find [114] + 0.00 0.00 159633/10190660 get_curse [143] + 0.00 0.00 159544/4201030 curse_active [543] + 0.00 0.00 79772/4666665 rmoney [452] + 0.00 0.00 159633/651711 oldcursename [1381] + 0.00 0.00 89/432940 curse_geteffect [1395] +----------------------------------------------- + 0.00 0.00 2/201744 sp_bloodsacrifice [1209] + 0.00 0.00 3/201744 sp_song_of_peace [939] + 0.00 0.00 6/201744 sp_mallornhain [968] + 0.00 0.00 9/201744 sp_hain [931] + 0.00 0.00 9/201744 sp_summonundead [896] + 0.00 0.00 21/201744 sp_kampfzauber [957] + 0.00 0.00 53/201744 sp_dragonodem [627] + 0.00 0.00 1714/201744 eaten_by_monster [468] + 0.00 0.00 2200/201744 absorbed_by_monster [804] + 0.00 0.01 197727/201744 scared_by_monster [380] +[644] 0.0 0.00 0.01 201744 lovar [644] + 0.00 0.00 403488/7641081 genrand_int31 [171] + 0.00 0.00 1/1 register_reports [1851] +----------------------------------------------- + 0.00 0.01 80630/80630 terminate [242] +[645] 0.0 0.00 0.01 80630 calculate_armor [645] + 0.00 0.00 80630/80630 select_magicarmor [680] + 0.00 0.00 7938/7957 magic_resistance [727] + 0.00 0.00 80630/80630 natural_armor [788] + 0.00 0.00 161260/868104 select_armor [700] + 0.00 0.00 7938/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 8/86400 do_combatmagic [825] + 0.00 0.00 23/86400 do_combatspell [702] + 0.00 0.00 279/86400 cr_spell [1026] + 0.00 0.00 604/86400 eval_spell [961] + 0.00 0.00 1261/86400 cr_output_unit [19] + 0.00 0.00 2081/86400 cr_reportspell [756] + 0.00 0.00 2081/86400 nr_spell_syntax [732] + 0.00 0.00 2081/86400 nr_spell [507] + 0.00 0.00 8557/86400 select_spellbook [761] + 0.00 0.00 33909/86400 cr_output_spells [639] + 0.00 0.00 35516/86400 bufunit [17] +[646] 0.0 0.00 0.01 86400 spell_name [646] + 0.00 0.00 86400/24887945 locale_string [27] + 0.00 0.00 86400/4133717 mkname [261] +----------------------------------------------- + 0.00 0.00 1/41248 movement_error [1193] + 0.00 0.00 1/41248 travel_i [92] + 0.00 0.00 1/41248 allocate_resource [752] + 0.00 0.00 1/41248 plant [1184] + 0.00 0.00 1/41248 planttrees [1206] + 0.00 0.00 2/41248 travel [81] + 0.00 0.00 2/41248 give_men [857] + 0.00 0.00 3/41248 mail_cmd [844] + 0.00 0.00 4/41248 init_transportation [384] + 0.00 0.00 4/41248 ship_ready [354] + 0.00 0.00 4/41248 spy_cmd [990] + 0.00 0.00 5/41248 buy [707] + 0.00 0.00 10/41248 make_cmd [383] + 0.00 0.00 10/41248 tax_cmd [697] + 0.00 0.00 16/41248 build_road [950] + 0.00 0.00 19/41248 enter_building [695] + 0.00 0.00 22/41248 check_give [1138] + 0.00 0.00 24/41248 cancast [833] + 0.00 0.00 46/41248 steal_cmd [766] + 0.00 0.00 57/41248 start_battle [297] + 0.00 0.00 84/41248 do_work [612] + 0.00 0.00 170/41248 guard_on_cmd [656] + 0.00 0.00 182/41248 msg_materials_required [1005] + 0.00 0.00 186/41248 study_cmd [105] + 0.00 0.00 1225/41248 give_item [126] + 0.00 0.00 1323/41248 teach_cmd [272] + 0.00 0.00 8935/41248 msg_error [744] + 0.00 0.00 28910/41248 give_cmd [102] +[647] 0.0 0.00 0.01 41248 msg_feedback [647] + 0.00 0.00 41248/1010116 mt_find [227] + 0.00 0.00 41248/1009159 msg_create [228] + 0.00 0.00 123744/123744 arg_set [1434] +----------------------------------------------- + 0.00 0.01 53/53 attack [84] +[648] 0.0 0.00 0.01 53 do_extra_spell [648] + 0.00 0.01 53/74 cast_combatspell [623] +----------------------------------------------- + 0.00 0.01 832876/832876 parse [333] +[649] 0.0 0.00 0.01 832876 parse_int [649] + 0.01 0.00 832876/13102790 opstack_push [202] +----------------------------------------------- + 0.00 0.01 1835/1835 economics [78] +[650] 0.0 0.00 0.01 1835 recruit [650] + 0.00 0.00 1716/15361 is_guarded [377] + 0.00 0.00 3359/541982 get_pooled [104] + 0.00 0.00 1670/760673 addlist [217] + 0.00 0.00 3340/2624955 has_skill [193] + 0.00 0.00 1835/57138 getint [699] + 0.00 0.00 1689/71815034 get_race [12] + 0.00 0.00 1670/635885 copy_order [441] + 0.00 0.00 1689/12246335 ct_find [114] + 0.00 0.00 1689/10190660 get_curse [143] + 0.00 0.00 119/119 syntax_error [1036] + 0.00 0.00 378/2281756 gettoken [195] + 0.00 0.00 1835/1027665 init_order [613] + 0.00 0.00 3551/129167539 u_race [89] + 0.00 0.00 3359/56052475 get_resourcetype [194] + 0.00 0.00 46/15102 cmistake [718] + 0.00 0.00 1689/4201030 curse_active [543] + 0.00 0.00 1689/18647447 getplane [596] + 0.00 0.00 4/338 findrace [1030] + 0.00 0.00 1716/1716 recruit_cost [1564] + 0.00 0.00 1716/600145 u_setrace [1389] + 0.00 0.00 1689/651711 oldcursename [1381] + 0.00 0.00 89/40692 get_gamedate [1466] + 0.00 0.00 89/59694 r_insectstalled [1446] +----------------------------------------------- + 0.00 0.00 5/490901 name_cmd [835] + 0.00 0.01 490896/490901 default_wage [173] +[651] 0.0 0.00 0.01 490901 largestbuilding [651] + 0.00 0.00 396305/396305 cmp_wage [670] + 0.00 0.00 172276/51974272 a_find [65] +----------------------------------------------- + 0.00 0.01 329691/329691 is_guard [211] +[652] 0.0 0.00 0.01 329691 getguard [652] + 0.00 0.00 329691/51974272 a_find [65] + 0.00 0.00 329691/377253 guard_flags [690] +----------------------------------------------- + +[653] 0.0 0.01 0.00 cb_new_kv [653] +----------------------------------------------- + 0.00 0.00 353422/353422 hits [131] +[654] 0.0 0.00 0.00 353422 contest [654] + 0.00 0.00 353422/353422 contest_classic [655] +----------------------------------------------- + 0.00 0.00 353422/353422 contest [654] +[655] 0.0 0.00 0.00 353422 contest_classic [655] + 0.00 0.00 373896/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.00 30554/30554 process [7] +[656] 0.0 0.00 0.00 30554 guard_on_cmd [656] + 0.00 0.00 23993/55350 can_start_guarding [679] + 0.00 0.00 30554/69432 getparam [681] + 0.00 0.00 23993/71815034 get_race [12] + 0.00 0.00 6527/15102 cmistake [718] + 0.00 0.00 30554/55492327 getkeyword [54] + 0.00 0.00 30554/1027665 init_order [613] + 0.00 0.00 23781/23781 guard [865] + 0.00 0.00 47987/129167539 u_race [89] + 0.00 0.00 170/41248 msg_feedback [647] + 0.00 0.00 170/392959 add_message [434] + 0.00 0.00 170/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 79/39810 drift_target [1053] + 0.00 0.00 39731/39810 sail [181] +[657] 0.0 0.00 0.00 39810 check_ship_allowed [657] + 0.00 0.00 39810/560926 bt_find [237] + 0.00 0.00 1357/12933 owner_buildingtyp [676] + 0.00 0.00 1198/9953180 alliedunit [31] + 0.00 0.00 1198/8898 ucontact [927] + 0.00 0.00 179/188 is_freezing [1088] + 0.00 0.00 39810/59694 r_insectstalled [1446] + 0.00 0.00 39810/75797 buildingtype_exists [1443] +----------------------------------------------- + 0.00 0.00 32670/32670 demographics [50] +[658] 0.0 0.00 0.00 32670 peasants [658] + 0.00 0.00 32670/264251 rsetpeasants [545] + 0.00 0.00 32670/669051 production [417] + 0.00 0.00 30250/1336242 rng_injectable_double [396] + 0.00 0.00 67774/2605004 rpeasants [435] + 0.00 0.00 66416/2765718 maintenance_cost [481] + 0.00 0.00 30250/51974272 a_find [65] + 0.00 0.00 30250/4984610 config_get_int [348] + 0.00 0.00 32670/2186159 rsetmoney [553] + 0.00 0.00 32670/4666665 rmoney [452] + 0.00 0.00 30250/30308 peasant_growth_factor [928] + 0.00 0.00 30250/30250 peasant_luck_effect [984] + 0.00 0.00 110/967784 msg_message [132] + 0.00 0.00 110/392959 add_message [434] + 0.00 0.00 110/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 178254/178254 ageing [185] +[659] 0.0 0.00 0.00 178254 age_region [659] + 0.00 0.00 178254/839202 a_age [418] + 0.00 0.00 178254/1342832 handle_event [1363] + 0.00 0.00 32670/32670 morale_update [1479] +----------------------------------------------- + 0.00 0.00 5049/5049 move_pirates [326] +[660] 0.0 0.00 0.00 5049 piracy_cmd [660] + 0.00 0.00 30248/47287 canswim [682] + 0.00 0.00 21148/369586 r_connect [474] + 0.00 0.00 5049/967784 msg_message [132] + 0.00 0.00 99/103784 move_cmd [66] + 0.00 0.00 5049/392959 add_message [434] + 0.00 0.00 5049/5049 parse_ids [852] + 0.00 0.00 5049/5049 find_piracy_target [967] + 0.00 0.00 315/4374788 visible_faction [68] + 0.00 0.00 315/9953180 alliedunit [31] + 0.00 0.00 5049/5049 validate_pirate [1051] + 0.00 0.00 99/447808 create_order [341] + 0.00 0.00 412/7641081 genrand_int31 [171] + 0.00 0.00 99/24887945 locale_string [27] + 0.00 0.00 322/3358315 ship_owner [438] + 0.00 0.00 36/4361 can_takeoff [854] + 0.00 0.00 97/779419 a_add [555] + 0.00 0.00 99/1027665 init_order [613] + 0.00 0.00 5049/1009028 msg_release [1373] + 0.00 0.00 99/1936876 free_order [1356] + 0.00 0.00 97/97 mk_piracy [1652] +----------------------------------------------- + 0.00 0.00 1921/1921 report_computer [9] +[661] 0.0 0.00 0.00 1921 show_allies_cr [661] + 0.00 0.00 55310/10375491 alliedgroup [34] +----------------------------------------------- + 0.00 0.00 133873/133873 cr_render [196] +[662] 0.0 0.00 0.00 133873 cr_region [662] + 0.00 0.00 132705/1826688 adjust_coordinates [234] + 0.00 0.00 132705/18647447 getplane [596] + 0.00 0.00 132705/3587241 pnormalize [1350] +----------------------------------------------- + 0.00 0.00 1771752/1771752 get_food [88] +[663] 0.0 0.00 0.00 1771752 help_money [663] + 0.00 0.00 1771752/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 12828/26045 cr_output_curses [69] + 0.00 0.00 13217/26045 nr_curses_i [401] +[664] 0.0 0.00 0.00 26045 msg_curse [664] + 0.00 0.00 15359/15359 cinfo_building [686] + 0.00 0.00 5907/5907 cinfo_simple [751] + 0.00 0.00 2274/2274 cinfo_ship [812] + 0.00 0.00 1911/1911 cinfo_magicresistance [824] + 0.00 0.00 183/183 cinfo_magicrunes [996] + 0.00 0.00 163/163 cinfo_shipnodrift [997] + 0.00 0.00 62/62 cinfo_speed [1110] + 0.00 0.00 134/134 cinfo_slave [1118] + 0.00 0.00 52/52 cinfo_skillmod [1192] +----------------------------------------------- + 0.00 0.00 16596/16596 produce [29] +[665] 0.0 0.00 0.00 16596 entertain_cmd [665] + 0.00 0.00 33156/12320804 effskill [100] + 0.00 0.00 16560/16751 getuint [778] + 0.00 0.00 278/15361 is_guarded [377] + 0.00 0.00 16560/12246335 ct_find [114] + 0.00 0.00 16560/10190660 get_curse [143] + 0.00 0.00 16596/1027665 init_order [613] + 0.00 0.00 16597/20777534 config_get [224] + 0.00 0.00 16560/4201030 curse_active [543] + 0.00 0.00 16593/8506411 besieged [547] + 0.00 0.00 36/15102 cmistake [718] + 0.00 0.00 16560/651711 oldcursename [1381] +----------------------------------------------- + 0.00 0.00 38/317239 count_allies [1220] + 0.00 0.00 317201/317239 count_enemies_i [636] +[666] 0.0 0.00 0.00 317239 count_side [666] + 0.00 0.00 49445/1662377 get_unitrow [154] + 0.00 0.00 324731/4301501 statusrow [550] +----------------------------------------------- + 0.00 0.00 55/598069 renumber_unit [1159] + 0.00 0.00 2889/598069 createunitid [317] + 0.00 0.00 595125/598069 read_unit [74] +[667] 0.0 0.00 0.00 598069 uhash [667] + 0.00 0.00 598069/2903884 jenkins_hash [439] +----------------------------------------------- + 0.00 0.00 1/534930 destroy_cmd [1113] + 0.00 0.00 16/534930 addparam_unit [1214] + 0.00 0.00 42/534930 teach_cmd [272] + 0.00 0.00 241/534930 reshow_cmd [818] + 0.00 0.00 280/534930 use_cmd [763] + 0.00 0.00 24385/534930 parse_order [117] + 0.00 0.00 94233/534930 give_cmd [102] + 0.00 0.00 131764/534930 give_control_cmd [287] + 0.00 0.00 283968/534930 read_unitid [413] +[668] 0.0 0.00 0.00 534930 isparam [668] + 0.00 0.00 362487/1787006 findparam [458] +----------------------------------------------- + 0.00 0.00 191/66134 follow_ship [749] + 0.00 0.00 18850/66134 cr_output_ship [152] + 0.00 0.00 47093/66134 sail [181] +[669] 0.0 0.00 0.00 66134 shipspeed [669] + 0.00 0.00 67682/12246335 ct_find [114] + 0.00 0.00 67682/10190660 get_curse [143] + 0.00 0.00 66058/51974272 a_find [65] + 0.00 0.00 66058/66058 ShipSpeedBonus [806] + 0.00 0.00 66134/3358315 ship_owner [438] + 0.00 0.00 132028/129167539 u_race [89] + 0.00 0.00 1624/4201030 curse_active [543] + 0.00 0.00 820/820 curse_geteffect_int [1590] +----------------------------------------------- + 0.00 0.00 396305/396305 largestbuilding [651] +[670] 0.0 0.00 0.00 396305 cmp_wage [670] + 0.00 0.00 396305/1106528 is_building_type [554] +----------------------------------------------- + 0.00 0.00 40099/40099 parse_symbol [42] +[671] 0.0 0.00 0.00 40099 eval_skill [671] + 0.00 0.00 40099/2934859 skillname [122] + 0.00 0.00 40099/13102790 opstack_pop [176] + 0.00 0.00 40099/13102790 opstack_push [202] + 0.00 0.00 40099/13399069 balloc [363] +----------------------------------------------- + 0.00 0.00 20072/20072 cr_render [196] +[672] 0.0 0.00 0.00 20072 cr_skill [672] + 0.00 0.00 20072/4434556 translate [75] + 0.00 0.00 20072/2934859 skillname [122] + 0.00 0.00 20072/4133717 mkname [261] +----------------------------------------------- + 0.00 0.00 15708/15708 get_addresses [20] +[673] 0.0 0.00 0.00 15708 add_travelthru_addresses [673] + 0.00 0.00 15708/3398582 travelthru_map [41] +----------------------------------------------- + 0.00 0.00 15/355423 sp_summonundead [896] + 0.00 0.00 355408/355423 spawn_undead [629] +[674] 0.0 0.00 0.00 355423 deathcount [674] + 0.00 0.00 355423/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 40/40 set_new_dragon_target [486] +[675] 0.0 0.00 0.00 40 regions_in_range [675] + 0.00 0.00 30233/162862 allowed_dragon [564] + 0.00 0.00 25793/369586 r_connect [474] + 0.00 0.00 27734/152803 new_node [1427] + 0.00 0.00 40/428 free_nodes [1604] +----------------------------------------------- + 0.00 0.00 1357/12933 check_ship_allowed [657] + 0.00 0.00 4629/12933 expandselling [93] + 0.00 0.00 6947/12933 sail [181] +[676] 0.0 0.00 0.00 12933 owner_buildingtyp [676] + 0.00 0.00 28665/593636 building_owner [232] + 0.00 0.00 2920/147171 building_finished [1428] +----------------------------------------------- + 0.00 0.00 2594/83224 make_fighter [424] + 0.00 0.00 80630/83224 select_magicarmor [680] +[677] 0.0 0.00 0.00 83224 trollbelts [677] + 0.00 0.00 83224/5395063 i_get [130] + 0.00 0.00 83224/2032164 rt_find [597] +----------------------------------------------- + 0.00 0.00 106798/106798 get_food [88] +[678] 0.0 0.00 0.00 106798 help_feed [678] + 0.00 0.00 106798/7120688 get_money [187] + 0.00 0.00 106798/4198692 lifestyle [286] + 0.00 0.00 32382/2599554 change_money [337] + 0.00 0.00 16191/16191 add_donation [1509] +----------------------------------------------- + 0.00 0.00 23993/55350 guard_on_cmd [656] + 0.00 0.00 31357/55350 update_guards [415] +[679] 0.0 0.00 0.00 55350 can_start_guarding [679] + 0.00 0.00 15347/771861 armedmen [151] + 0.00 0.00 39959/3902878 get_monsters [293] + 0.00 0.00 15173/16669 IsImmune [901] + 0.00 0.00 15347/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 80630/80630 calculate_armor [645] +[680] 0.0 0.00 0.00 80630 select_magicarmor [680] + 0.00 0.00 80630/83224 trollbelts [677] +----------------------------------------------- + 0.00 0.00 6/69432 send_cmd [1202] + 0.00 0.00 17/69432 status_cmd [904] + 0.00 0.00 138/69432 reshow_cmd [818] + 0.00 0.00 597/69432 move_hunters [342] + 0.00 0.00 677/69432 ally_cmd [877] + 0.00 0.00 1425/69432 follow_unit [331] + 0.00 0.00 5384/69432 teach_cmd [272] + 0.00 0.00 30554/69432 guard_on_cmd [656] + 0.00 0.00 30634/69432 guard_off_cmd [711] +[681] 0.0 0.00 0.00 69432 getparam [681] + 0.00 0.00 69432/2281756 gettoken [195] + 0.00 0.00 7650/1787006 findparam [458] +----------------------------------------------- + 0.00 0.00 1953/47287 travel_route [147] + 0.00 0.00 7542/47287 monthly_healing [215] + 0.00 0.00 7544/47287 drown [394] + 0.00 0.00 30248/47287 piracy_cmd [660] +[682] 0.0 0.00 0.00 47287 canswim [682] + 0.00 0.00 47287/5395063 i_get [130] + 0.00 0.00 47287/1177511 it_find [385] + 0.00 0.00 92804/129167539 u_race [89] + 0.00 0.00 486/116002 get_movement [750] +----------------------------------------------- + 0.00 0.00 12778/34221 canwalk [633] + 0.00 0.00 21443/34221 canride [465] +[683] 0.0 0.00 0.00 34221 eff_weight [683] + 0.00 0.00 34221/279395 weight [459] + 0.00 0.00 34221/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 11880/11880 cb_add_address [598] +[684] 0.0 0.00 0.00 11880 cansee_unit [684] + 0.00 0.00 13580/1753922 invisible [139] + 0.00 0.00 9999/1188532 eff_stealth [163] + 0.00 0.00 6428/12320804 effskill [100] + 0.00 0.00 11880/6610983 is_guard [211] + 0.00 0.00 11880/129167539 u_race [89] + 0.00 0.00 11880/4835422 usiege [593] + 0.00 0.00 6428/21345834 skill_enabled [365] +----------------------------------------------- + 0.00 0.00 46224/46224 parse_symbol [42] +[685] 0.0 0.00 0.00 46224 eval_faction [685] + 0.00 0.00 46224/1295787 factionname [247] + 0.00 0.00 46224/13102790 opstack_pop [176] + 0.00 0.00 46224/13102790 opstack_push [202] + 0.00 0.00 46224/13399069 balloc [363] +----------------------------------------------- + 0.00 0.00 15359/15359 msg_curse [664] +[686] 0.0 0.00 0.00 15359 cinfo_building [686] + 0.00 0.00 15359/967784 msg_message [132] + 0.00 0.00 15359/4133717 mkname [261] +----------------------------------------------- + 0.00 0.00 151532/2155959 report_template [87] + 0.00 0.00 606357/2155959 read_unit [74] + 0.00 0.00 692829/2155959 write_unit [97] + 0.00 0.00 705241/2155959 cr_output_unit [19] +[687] 0.0 0.00 0.00 2155959 is_persistent [687] + 0.00 0.00 766833/2985733 is_repeated [552] +----------------------------------------------- + 0.00 0.00 2594/12398 battle_report [503] + 0.00 0.00 4384/12398 battle_punit [620] + 0.00 0.00 5420/12398 print_stats [525] +[688] 0.0 0.00 0.00 12398 fbattlerecord [688] + 0.00 0.00 12398/967784 msg_message [132] + 0.00 0.00 12398/31214 message_faction [716] + 0.00 0.00 12398/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 230/230 report_computer [9] +[689] 0.0 0.00 0.00 230 write_translations [689] + 0.00 0.00 50896/4488684 crtag [110] +----------------------------------------------- + 0.00 0.00 23781/377253 setguard [815] + 0.00 0.00 23781/377253 guard [865] + 0.00 0.00 329691/377253 getguard [652] +[690] 0.0 0.00 0.00 377253 guard_flags [690] + 0.00 0.00 377253/12560453 rc_changed [256] + 0.00 0.00 407896/129167539 u_race [89] + 0.00 0.00 3/71815034 get_race [12] +----------------------------------------------- + 0.00 0.00 115/1239 build_ship [839] + 0.00 0.00 149/1239 create_potion [821] + 0.00 0.00 377/1239 manufacture [759] + 0.00 0.00 598/1239 build_building [696] +[691] 0.0 0.00 0.00 1239 build [691] + 0.00 0.00 1484/860263 use_pooled [39] + 0.00 0.00 1816/541982 get_pooled [104] + 0.00 0.00 1705/12320804 skillmod [214] + 0.00 0.00 1230/12320804 effskill [100] + 0.00 0.00 1040/472418 produceexp [322] + 0.00 0.00 4475/4475 matmod [975] + 0.00 0.00 1356/6010308 i_find [127] + 0.00 0.00 1230/2858912 get_effect [225] + 0.00 0.00 1356/56052475 get_resourcetype [194] + 0.00 0.00 1578/1583 skill_limit [1172] + 0.00 0.00 95/2977 change_effect [982] + 0.00 0.00 61/3003 roqf_factor [1329] + 0.00 0.00 4530/26164 building_is_active [1488] + 0.00 0.00 2978/3100 required [1547] + 0.00 0.00 1733/26995 inside_building [1486] +----------------------------------------------- + 0.00 0.00 55/285923 renumber_unit [1159] + 0.00 0.00 110903/285923 findnewunit [753] + 0.00 0.00 174965/285923 cr_output_unit [19] +[692] 0.0 0.00 0.00 285923 ualias [692] + 0.00 0.00 285923/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 206/206 do_battle [64] +[693] 0.0 0.00 0.00 206 join_allies [693] + 0.00 0.00 345/3203 join_battle [425] + 0.00 0.00 2033/9953180 alliedunit [31] + 0.00 0.00 23/48 allysfm [1122] + 0.00 0.00 498/8506411 besieged [547] + 0.00 0.00 719/18647447 getplane [596] + 0.00 0.00 3/10375491 alliedgroup [34] + 0.00 0.00 1520/1520 set_friendly [1574] + 0.00 0.00 644/2073 set_enemy [1562] +----------------------------------------------- + 0.00 0.00 21443/21443 canride [465] +[694] 0.0 0.00 0.00 21443 ridingcapacity [694] + 0.00 0.00 33015/12320804 effskill [100] + 0.00 0.00 21443/129167539 u_race [89] + 0.00 0.00 21443/130867 get_transporters [1431] +----------------------------------------------- + 0.00 0.00 405/405 do_enter [128] +[695] 0.0 0.00 0.00 405 enter_building [695] + 0.00 0.00 323/2887 leave [432] + 0.00 0.00 401/401 mayenter [936] + 0.00 0.00 19/41248 msg_feedback [647] + 0.00 0.00 409/129167539 u_race [89] + 0.00 0.00 19/392959 add_message [434] + 0.00 0.00 1/15102 cmistake [718] + 0.00 0.00 401/48455 findbuilding [1462] + 0.00 0.00 323/677 slipthru [1593] + 0.00 0.00 323/48565 u_set_building [1460] + 0.00 0.00 19/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 621/621 make_cmd [383] +[696] 0.0 0.00 0.00 621 build_building [696] + 0.00 0.00 598/1239 build [691] + 0.00 0.00 490/10232 update_lighthouse [605] + 0.00 0.00 490/14326 replace_order [526] + 0.00 0.00 490/967784 msg_message [132] + 0.00 0.00 9/2887 leave [432] + 0.00 0.00 621/12320804 effskill [100] + 0.00 0.00 581/392959 add_message [434] + 0.00 0.00 490/24887945 locale_string [27] + 0.00 0.00 325/447808 create_order [341] + 0.00 0.00 91/182 msg_materials_required [1005] + 0.00 0.00 9/11 new_building [1059] + 0.00 0.00 165/3110 default_order [902] + 0.00 0.00 587/4984610 config_get_int [348] + 0.00 0.00 31/15102 cmistake [718] + 0.00 0.00 598/8506411 besieged [547] + 0.00 0.00 610/48455 findbuilding [1462] + 0.00 0.00 581/1009028 msg_release [1373] + 0.00 0.00 490/1936876 free_order [1356] + 0.00 0.00 9/48565 u_set_building [1460] + 0.00 0.00 2/75797 buildingtype_exists [1443] +----------------------------------------------- + 0.00 0.00 960/960 produce [29] +[697] 0.0 0.00 0.00 960 tax_cmd [697] + 0.00 0.00 956/15361 is_guarded [377] + 0.00 0.00 2659/12320804 effskill [100] + 0.00 0.00 960/771861 armedmen [151] + 0.00 0.00 948/760673 addlist [217] + 0.00 0.00 956/57138 getint [699] + 0.00 0.00 960/71815034 get_race [12] + 0.00 0.00 3836/129167539 u_race [89] + 0.00 0.00 960/1027665 init_order [613] + 0.00 0.00 10/41248 msg_feedback [647] + 0.00 0.00 960/8506411 besieged [547] + 0.00 0.00 10/392959 add_message [434] + 0.00 0.00 2/15102 cmistake [718] + 0.00 0.00 1/4984610 config_get_int [348] + 0.00 0.00 10/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 56643/56643 bufunit [17] +[698] 0.0 0.00 0.00 56643 groupid [698] + 0.00 0.00 56643/5100840 itoa36 [116] +----------------------------------------------- + 0.00 0.00 10/57138 combatspell_cmd [898] + 0.00 0.00 42/57138 loot_cmd [873] + 0.00 0.00 108/57138 cast_cmd [760] + 0.00 0.00 956/57138 tax_cmd [697] + 0.00 0.00 1835/57138 recruit [650] + 0.00 0.00 5916/57138 buy [707] + 0.00 0.00 16751/57138 getuint [778] + 0.00 0.00 31520/57138 reserve_i [213] +[699] 0.0 0.00 0.00 57138 getint [699] + 0.00 0.00 57138/2281756 gettoken [195] +----------------------------------------------- + 0.00 0.00 161260/868104 calculate_armor [645] + 0.00 0.00 706844/868104 hits [131] +[700] 0.0 0.00 0.00 868104 select_armor [700] + 0.00 0.00 868104/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 206/206 do_battle [64] +[701] 0.0 0.00 0.00 206 aftermath [701] + 0.00 0.00 136/2887 leave [432] + 0.00 0.00 319/319 loot_items [810] + 0.00 0.00 1992/967784 msg_message [132] + 0.00 0.00 3056/31214 message_faction [716] + 0.00 0.00 206/412 do_combatmagic [825] + 0.00 0.00 425/425 reportcasualties [881] + 0.00 0.00 552/18788 sideabkz [745] + 0.00 0.00 340/11241829 i_change [115] + 0.00 0.00 425/3178 scale_number [969] + 0.00 0.00 623/1474687 leftship [500] + 0.00 0.00 1722/129167539 u_race [89] + 0.00 0.00 206/206 battle_effects [1125] + 0.00 0.00 319/337987 setguard [815] + 0.00 0.00 60/4301501 statusrow [550] + 0.00 0.00 12/717218 config_get_flt [714] + 0.00 0.00 2594/2913 dead_fighters [1549] + 0.00 0.00 2168/24449 seematrix [1491] + 0.00 0.00 1992/1009028 msg_release [1373] + 0.00 0.00 1104/22301 army_index [1498] + 0.00 0.00 206/206 reorder_fleeing [1631] + 0.00 0.00 12/160 damage_ship [1641] +----------------------------------------------- + 0.00 0.00 38/38 attack [84] +[702] 0.0 0.00 0.00 38 do_combatspell [702] + 0.00 0.00 21/74 cast_combatspell [623] + 0.00 0.00 23/251 cancast [833] + 0.00 0.00 23/251 eff_spelllevel [845] + 0.00 0.00 23/226 fumble [973] + 0.00 0.00 2/273 pay_spell [805] + 0.00 0.00 23/1339 get_combatspelllevel [880] + 0.00 0.00 21/225 spellpower [1000] + 0.00 0.00 23/447808 create_order [341] + 0.00 0.00 23/86400 spell_name [646] + 0.00 0.00 38/4875 get_combatspell [874] + 0.00 0.00 2/3 report_failed_spell [1187] + 0.00 0.00 21/7641081 genrand_int31 [171] + 0.00 0.00 21/1936876 free_order [1356] +----------------------------------------------- + 0.00 0.00 1078/11989 resolve_mage [856] + 0.00 0.00 1202/11989 resolve_familiar [846] + 0.00 0.00 2607/11989 resolve [757] + 0.00 0.00 7102/11989 read_reference [726] +[703] 0.0 0.00 0.00 11989 resolve_unit [703] + 0.00 0.00 9926/888603 findunit [123] +----------------------------------------------- + 0.00 0.00 6962/6962 move_ship [374] +[704] 0.0 0.00 0.00 6962 leave_trail [704] + 0.00 0.00 39729/263302 reldirection [528] + 0.00 0.00 39729/51974272 a_find [65] + 0.00 0.00 3233/779419 a_add [555] + 0.00 0.00 3233/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 6/22644 rsetroad [1152] + 0.00 0.00 22638/22644 read_borders [706] +[705] 0.0 0.00 0.00 22644 new_border [705] + 0.00 0.00 22644/2248440 get_borders_i [118] +----------------------------------------------- + 0.00 0.00 1/1 read_game [62] +[706] 0.0 0.00 0.00 1 read_borders [706] + 0.00 0.00 22638/22644 new_border [705] + 0.00 0.00 45276/46742 findregionbyid [1463] + 0.00 0.00 22638/22638 find_bordertype [1496] + 0.00 0.00 22637/22637 b_readroad [1497] + 0.00 0.00 1/1 b_read [1791] +----------------------------------------------- + 0.00 0.00 5916/5916 produce [29] +[707] 0.0 0.00 0.00 5916 buy [707] + 0.00 0.00 5757/760673 addlist [217] + 0.00 0.00 5903/12320804 effskill [100] + 0.00 0.00 5916/57138 getint [699] + 0.00 0.00 5762/2281756 gettoken [195] + 0.00 0.00 5915/71815034 get_race [12] + 0.00 0.00 30/15361 is_guarded [377] + 0.00 0.00 5903/51974272 a_find [65] + 0.00 0.00 3642/779419 a_add [555] + 0.00 0.00 5916/1027665 init_order [613] + 0.00 0.00 5762/191379 finditemtype [735] + 0.00 0.00 154/15102 cmistake [718] + 0.00 0.00 5915/129167539 u_race [89] + 0.00 0.00 5915/8506411 besieged [547] + 0.00 0.00 5/41248 msg_feedback [647] + 0.00 0.00 5/392959 add_message [434] + 0.00 0.00 1/560926 bt_find [237] + 0.00 0.00 5762/21500 resource2luxury [1499] + 0.00 0.00 5762/308950 r_demand [1404] + 0.00 0.00 5460/204314 bt_changed [1415] + 0.00 0.00 3642/779868 a_new [1376] + 0.00 0.00 847/1511812 newterrain [1359] + 0.00 0.00 5/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 11599/11599 skilldiff [166] +[708] 0.0 0.00 0.00 11599 building_protection [708] + 0.00 0.00 11599/184870 buildingeffsize [367] +----------------------------------------------- + 0.00 0.00 12984/748527 plan_monsters [52] + 0.00 0.00 317735/748527 monster_learn [269] + 0.00 0.00 417808/748527 study_cmd [105] +[709] 0.0 0.00 0.00 748527 unit_can_study [709] + 0.00 0.00 748527/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 42/54318 teach_cmd [272] + 0.00 0.00 191/54318 follow_ship [749] + 0.00 0.00 620/54318 mail_cmd [844] + 0.00 0.00 621/54318 group_cmd [985] + 0.00 0.00 2012/54318 display_cmd [859] + 0.00 0.00 3114/54318 name_cmd [835] + 0.00 0.00 5053/54318 parse_ids [852] + 0.00 0.00 42665/54318 sail [181] +[710] 0.0 0.00 0.00 54318 getstrtoken [710] + 0.00 0.00 54318/5387327 parse_token [125] +----------------------------------------------- + 0.00 0.00 30634/30634 process [7] +[711] 0.0 0.00 0.00 30634 guard_off_cmd [711] + 0.00 0.00 30634/69432 getparam [681] + 0.00 0.00 30634/55492327 getkeyword [54] + 0.00 0.00 30634/1027665 init_order [613] + 0.00 0.00 76/337987 setguard [815] +----------------------------------------------- + 0.00 0.00 46184/46184 ageing [185] +[712] 0.0 0.00 0.00 46184 age_building [712] + 0.00 0.00 46184/839202 a_age [418] + 0.00 0.00 46184/1106528 is_building_type [554] + 0.00 0.00 124/124 age_stonecircle [1021] + 0.00 0.00 46184/1342832 handle_event [1363] +----------------------------------------------- + 0.00 0.00 1/717287 heal_factor [619] + 0.00 0.00 68/717287 parse_races [1104] + 0.00 0.00 717218/717287 config_get_flt [714] +[713] 0.0 0.00 0.00 717287 get_param_flt [713] + 0.00 0.00 717287/26776263 get_param [235] +----------------------------------------------- + 0.00 0.00 1/717218 move_iceberg [1094] + 0.00 0.00 1/717218 plan_monsters [52] + 0.00 0.00 12/717218 aftermath [701] + 0.00 0.00 30/717218 overload_start [1295] + 0.00 0.00 58/717218 peasant_luck_factor [1277] + 0.00 0.00 96/717218 sinkships [475] + 0.00 0.00 143/717218 ResourceFactor [1236] + 0.00 0.00 508/717218 MagicRegeneration [1185] + 0.00 0.00 1062/717218 loot_quota [1013] + 0.00 0.00 7273/717218 sail [181] + 0.00 0.00 23838/717218 give_quota [858] + 0.00 0.00 30308/717218 peasant_growth_factor [928] + 0.00 0.00 58080/717218 bewegung_blockiert_von [631] + 0.00 0.00 178254/717218 drifting_ships [490] + 0.00 0.00 417554/717218 random_move_chance [754] +[714] 0.0 0.00 0.00 717218 config_get_flt [714] + 0.00 0.00 717218/717287 get_param_flt [713] +----------------------------------------------- + 0.00 0.00 152504/152504 terrain_name [226] +[715] 0.0 0.00 0.00 152504 plain_name [715] + 0.00 0.00 152504/7910500 r_isforest [199] +----------------------------------------------- + 0.00 0.00 4/31214 terminate [242] + 0.00 0.00 679/31214 print_header [838] + 0.00 0.00 3056/31214 aftermath [701] + 0.00 0.00 4336/31214 print_stats [525] + 0.00 0.00 5188/31214 battle_report [503] + 0.00 0.00 5553/31214 message_all [834] + 0.00 0.00 12398/31214 fbattlerecord [688] +[716] 0.0 0.00 0.00 31214 message_faction [716] + 0.00 0.00 31214/392959 add_message [434] +----------------------------------------------- + 0.00 0.00 981/179235 chaosfactor [1077] + 0.00 0.00 178254/179235 chaos_update [514] +[717] 0.0 0.00 0.00 179235 get_chaoscount [717] + 0.00 0.00 179235/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 1/15102 report_failure [1285] + 0.00 0.00 1/15102 sp_summon_familiar [1025] + 0.00 0.00 1/15102 sp_hain [931] + 0.00 0.00 1/15102 sp_charmingsong [993] + 0.00 0.00 1/15102 enter_building [695] + 0.00 0.00 1/15102 display_cmd [859] + 0.00 0.00 1/15102 try_rename [1225] + 0.00 0.00 1/15102 fumble_default [1284] + 0.00 0.00 1/15102 cast_cmd [760] + 0.00 0.00 2/15102 travel_route [147] + 0.00 0.00 2/15102 tax_cmd [697] + 0.00 0.00 2/15102 give_unit [952] + 0.00 0.00 2/15102 name_cmd [835] + 0.00 0.00 3/15102 give_control_cmd [287] + 0.00 0.00 4/15102 init_transportation [384] + 0.00 0.00 4/15102 breedhorses [742] + 0.00 0.00 4/15102 build_road [950] + 0.00 0.00 5/15102 follow_unit [331] + 0.00 0.00 5/15102 leave_cmd [721] + 0.00 0.00 6/15102 enter_ship [733] + 0.00 0.00 16/15102 reshow_other [823] + 0.00 0.00 22/15102 herbsearch [493] + 0.00 0.00 22/15102 create_item [617] + 0.00 0.00 22/15102 destroy_cmd [1113] + 0.00 0.00 24/15102 do_work [612] + 0.00 0.00 27/15102 combatspell_cmd [898] + 0.00 0.00 31/15102 build_building [696] + 0.00 0.00 32/15102 start_battle [297] + 0.00 0.00 36/15102 entertain_cmd [665] + 0.00 0.00 46/15102 recruit [650] + 0.00 0.00 61/15102 ship_ready [354] + 0.00 0.00 72/15102 renumber_cmd [780] + 0.00 0.00 105/15102 travel_i [92] + 0.00 0.00 107/15102 ally_cmd [877] + 0.00 0.00 112/15102 sail [181] + 0.00 0.00 139/15102 allocate_resource [752] + 0.00 0.00 154/15102 buy [707] + 0.00 0.00 160/15102 follow_ship [749] + 0.00 0.00 163/15102 movement [47] + 0.00 0.00 182/15102 use_cmd [763] + 0.00 0.00 199/15102 continue_ship [813] + 0.00 0.00 234/15102 study_cmd [105] + 0.00 0.00 965/15102 give_cmd [102] + 0.00 0.00 1141/15102 add_give [379] + 0.00 0.00 1178/15102 update_long_order [270] + 0.00 0.00 3277/15102 sell [498] + 0.00 0.00 6527/15102 guard_on_cmd [656] +[718] 0.0 0.00 0.00 15102 cmistake [718] + 0.00 0.00 15102/15240 msg_error [744] + 0.00 0.00 8797/392959 add_message [434] + 0.00 0.00 8797/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 3/178257 tolua_getkey [1281] + 0.00 0.00 178254/178257 tolua_region_getkey [628] +[719] 0.0 0.00 0.00 178257 key_get [719] + 0.00 0.00 178257/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 178254/178254 move_pirates [326] +[720] 0.0 0.00 0.00 178254 age_traveldir [720] + 0.00 0.00 178254/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 236/236 process [7] +[721] 0.0 0.00 0.00 236 leave_cmd [721] + 0.00 0.00 222/2887 leave [432] + 0.00 0.00 5/15102 cmistake [718] + 0.00 0.00 5/129167539 u_race [89] + 0.00 0.00 222/677 slipthru [1593] +----------------------------------------------- + 0.00 0.00 3/174968 cast_cmd [760] + 0.00 0.00 174965/174968 cr_output_unit [19] +[722] 0.0 0.00 0.00 174968 get_familiar_mage [722] + 0.00 0.00 174968/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 5966/5966 herbsearch [493] +[723] 0.0 0.00 0.00 5966 ntimespprob [723] + 0.00 0.00 83094/1336242 rng_injectable_double [396] +----------------------------------------------- + 0.00 0.00 5810/5810 report_donations [725] +[724] 0.0 0.00 0.00 5810 report_transfer [724] + 0.00 0.00 5810/967784 msg_message [132] + 0.00 0.00 11620/12265 r_addmessage [779] + 0.00 0.00 5810/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1/1 reports [2] +[725] 0.0 0.00 0.00 1 report_donations [725] + 0.00 0.00 5810/5810 report_transfer [724] +----------------------------------------------- + 0.00 0.00 1/9763 caldera_read [1270] + 0.00 0.00 1/9763 clonedied_read [1271] + 0.00 0.00 1/9763 giveitem_read [1262] + 0.00 0.00 2/9763 wormhole_read [1238] + 0.00 0.00 3/9763 changerace_read [1215] + 0.00 0.00 10/9763 changefaction_read [1166] + 0.00 0.00 760/9763 read_familiar [893] + 0.00 0.00 760/9763 read_magician [894] + 0.00 0.00 768/9763 shock_read [892] + 0.00 0.00 1138/9763 read_targetregion [870] + 0.00 0.00 2299/9763 killunit_read [817] + 0.00 0.00 4020/9763 curse_read [770] +[726] 0.0 0.00 0.00 9763 read_reference [726] + 0.00 0.00 7102/11989 resolve_unit [703] + 0.00 0.00 760/1202 resolve_familiar [846] + 0.00 0.00 760/1078 resolve_mage [856] + 0.00 0.00 8622/8622 read_unit_reference [1521] + 0.00 0.00 3693/34565 ur_add [1472] + 0.00 0.00 1140/1140 read_region_reference [1582] + 0.00 0.00 1140/1466 resolve_region_id [1575] + 0.00 0.00 1/1 read_building_reference [1831] + 0.00 0.00 1/1 resolve_building [1862] +----------------------------------------------- + 0.00 0.00 3/7957 target_resists_magic [1154] + 0.00 0.00 16/7957 damage_unit [1044] + 0.00 0.00 7938/7957 calculate_armor [645] +[727] 0.0 0.00 0.00 7957 magic_resistance [727] + 0.00 0.00 7957/12320804 effskill [100] + 0.00 0.00 7957/71815034 get_race [12] + 0.00 0.00 7957/5395063 i_get [130] + 0.00 0.00 8573/12246335 ct_find [114] + 0.00 0.00 7957/10190660 get_curse [143] + 0.00 0.00 7957/51974272 a_find [65] + 0.00 0.00 7957/129167539 u_race [89] + 0.00 0.00 7957/56052475 get_resourcetype [194] + 0.00 0.00 7957/18647447 getplane [596] + 0.00 0.00 7957/26995 inside_building [1486] + 0.00 0.00 7957/26164 building_is_active [1488] +----------------------------------------------- + 0.00 0.00 3438/3438 prepare_lighthouse [340] +[728] 0.0 0.00 0.00 3438 lighthouse_range [728] + 0.00 0.00 11409/593636 building_owner [232] + 0.00 0.00 3403/12320804 effskill [100] + 0.00 0.00 3387/21345834 skill_enabled [365] + 0.00 0.00 3387/19671 buildingcapacity [1500] +----------------------------------------------- + 0.00 0.00 25857/25857 parse_symbol [42] +[729] 0.0 0.00 0.00 25857 eval_int36 [729] + 0.00 0.00 25857/5100840 itoa36 [116] + 0.00 0.00 25857/13102790 opstack_pop [176] + 0.00 0.00 25857/13102790 opstack_push [202] + 0.00 0.00 25857/13399069 balloc [363] +----------------------------------------------- + 0.00 0.00 22/45 report_computer [9] + 0.00 0.00 23/45 report_plaintext [4] +[730] 0.0 0.00 0.00 45 count_maxmigrants [730] + 0.00 0.00 45/967 count_all [357] + 0.00 0.00 45/5065285 get_param_int [422] +----------------------------------------------- + 0.00 0.00 22/45 report_computer [9] + 0.00 0.00 23/45 report_plaintext [4] +[731] 0.0 0.00 0.00 45 count_migrants [731] + 0.00 0.00 45/2247 count_faction [219] +----------------------------------------------- + 0.00 0.00 2081/2081 nr_spell [507] +[732] 0.0 0.00 0.00 2081 nr_spell_syntax [732] + 0.00 0.00 2081/2742237 paragraph [26] + 0.00 0.00 4762/24887945 locale_string [27] + 0.00 0.00 2081/86400 spell_name [646] + 0.00 0.00 2622/34611296 strlcpy [45] + 0.00 0.00 7912/36653945 wrptr [178] + 0.00 0.00 140/4133717 mkname [261] + 0.00 0.00 2081/2009097 keyword [1355] +----------------------------------------------- + 0.00 0.00 222/222 do_enter [128] +[733] 0.0 0.00 0.00 222 enter_ship [733] + 0.00 0.00 191/2887 leave [432] + 0.00 0.00 195/195 mayboard [1046] + 0.00 0.00 191/191 CheckOverload [1180] + 0.00 0.00 6/15102 cmistake [718] + 0.00 0.00 222/129167539 u_race [89] + 0.00 0.00 222/28818 findship [1483] + 0.00 0.00 191/27640 u_set_ship [1485] +----------------------------------------------- + 0.00 0.00 41255/41255 copy_arg [521] +[734] 0.0 0.00 0.00 41255 var_copy_order [734] + 0.00 0.00 41255/635885 copy_order [441] +----------------------------------------------- + 0.00 0.00 2/191379 claim_cmd [1242] + 0.00 0.00 103/191379 reshow_other [823] + 0.00 0.00 590/191379 use_cmd [763] + 0.00 0.00 4259/191379 make_cmd [383] + 0.00 0.00 5762/191379 buy [707] + 0.00 0.00 15731/191379 sell [498] + 0.00 0.00 71364/191379 reserve_i [213] + 0.00 0.00 93568/191379 give_cmd [102] +[735] 0.0 0.00 0.00 191379 finditemtype [735] + 0.00 0.00 191379/4457785 transliterate [358] + 0.00 0.00 191379/2124526 locale_index [1354] +----------------------------------------------- + 0.00 0.00 32/115276 travel_i [92] + 0.00 0.00 74/115276 init_transportation [384] + 0.00 0.00 474/115276 follow_ship [749] + 0.00 0.00 475/115276 move_hunters [342] + 0.00 0.00 519/115276 follow_unit [331] + 0.00 0.00 113702/115276 movement [47] +[736] 0.0 0.00 0.00 115276 can_move [736] + 0.00 0.00 115276/116002 get_movement [750] + 0.00 0.00 115276/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 36/178290 move_iceberg [1094] + 0.00 0.00 178254/178290 new_region [275] +[737] 0.0 0.00 0.00 178290 rhash [737] + 0.00 0.00 178290/2903884 jenkins_hash [439] +----------------------------------------------- + 0.00 0.00 189341/189341 produce [29] +[738] 0.0 0.00 0.00 189341 rule_autowork [738] + 0.00 0.00 189341/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 2665/2665 read_unitid [413] +[739] 0.0 0.00 0.00 2665 read_newunitid [739] + 0.00 0.00 2665/2665 findnewunit [753] + 0.00 0.00 2665/228907 getid [483] +----------------------------------------------- + 0.00 0.00 19545/19545 parse_symbol [42] +[740] 0.0 0.00 0.00 19545 eval_ship [740] + 0.00 0.00 14502/1065211 shipname [290] + 0.00 0.00 5043/24887945 locale_string [27] + 0.00 0.00 19545/13102790 opstack_pop [176] + 0.00 0.00 19545/13102790 opstack_push [202] + 0.00 0.00 19545/13399069 balloc [363] +----------------------------------------------- + 0.00 0.00 177/177 produce [29] +[741] 0.0 0.00 0.00 177 breed_cmd [741] + 0.00 0.00 174/174 breedhorses [742] + 0.00 0.00 179/2281756 gettoken [195] + 0.00 0.00 2/2 breedtrees [1148] + 0.00 0.00 176/1787006 findparam [458] + 0.00 0.00 177/1027665 init_order [613] + 0.00 0.00 174/174 findresourcetype [1181] + 0.00 0.00 1/1 plant [1184] + 0.00 0.00 521/56052475 get_resourcetype [194] +----------------------------------------------- + 0.00 0.00 174/174 breed_cmd [741] +[742] 0.0 0.00 0.00 174 breedhorses [742] + 0.00 0.00 60896/7641081 genrand_int31 [171] + 0.00 0.00 12859/11241829 i_change [115] + 0.00 0.00 170/967784 msg_message [132] + 0.00 0.00 170/472418 produceexp [322] + 0.00 0.00 170/12320804 effskill [100] + 0.00 0.00 170/392959 add_message [434] + 0.00 0.00 170/5395063 i_get [130] + 0.00 0.00 174/424669 active_building [560] + 0.00 0.00 4/15102 cmistake [718] + 0.00 0.00 174/56052475 get_resourcetype [194] + 0.00 0.00 1/560926 bt_find [237] + 0.00 0.00 174/204314 bt_changed [1415] + 0.00 0.00 170/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 178254/178254 process [7] +[743] 0.0 0.00 0.00 178254 split_allocations [743] + 0.00 0.00 2938/967784 msg_message [132] + 0.00 0.00 2825/472418 produceexp [322] + 0.00 0.00 2938/392959 add_message [434] + 0.00 0.00 1301/1301 leveled_allocation [888] + 0.00 0.00 1422/1422 attrib_allocation [914] + 0.00 0.00 2825/11241829 i_change [115] + 0.00 0.00 2723/2723 get_allocator [1001] + 0.00 0.00 2723/9298667 resource2item [546] + 0.00 0.00 2938/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 19/15240 give_men [857] + 0.00 0.00 119/15240 syntax_error [1036] + 0.00 0.00 15102/15240 cmistake [718] +[744] 0.0 0.00 0.00 15240 msg_error [744] + 0.00 0.00 8935/41248 msg_feedback [647] +----------------------------------------------- + 0.00 0.00 552/18788 aftermath [701] + 0.00 0.00 7058/18788 battle_report [503] + 0.00 0.00 11178/18788 print_stats [525] +[745] 0.0 0.00 0.00 18788 sideabkz [745] + 0.00 0.00 18788/5100840 itoa36 [116] + 0.00 0.00 18788/34611296 strlcpy [45] +----------------------------------------------- + +[746] 0.0 0.00 0.00 tolua_unit_get_race [746] + 0.00 0.00 420172/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 417577/417577 study_cmd [105] +[747] 0.0 0.00 0.00 417577 study_days [747] + 0.00 0.00 417577/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 36937/163027 cr_output_region [10] + 0.00 0.00 62581/163027 report_plaintext [4] + 0.00 0.00 63509/163027 statistics [70] +[748] 0.0 0.00 0.00 163027 markets_module [748] + 0.00 0.00 163027/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 475/475 move_hunters [342] +[749] 0.0 0.00 0.00 475 follow_ship [749] + 0.00 0.00 191/103784 move_cmd [66] + 0.00 0.00 1188/24887945 locale_string [27] + 0.00 0.00 1612/17451017 strlcpy_w [67] + 0.00 0.00 474/228907 getid [483] + 0.00 0.00 160/15102 cmistake [718] + 0.00 0.00 1284/1297 hunted_dir [1055] + 0.00 0.00 191/66134 shipspeed [669] + 0.00 0.00 191/16751 getuint [778] + 0.00 0.00 191/54318 getstrtoken [710] + 0.00 0.00 474/115276 can_move [736] + 0.00 0.00 475/3358315 ship_owner [438] + 0.00 0.00 191/1311302 init_tokens_str [544] + 0.00 0.00 191/36653945 wrptr [178] + 0.00 0.00 191/5461936 slprintf [548] + 0.00 0.00 283/28818 findship [1483] + 0.00 0.00 191/2009097 keyword [1355] +----------------------------------------------- + 0.00 0.00 240/116002 canfly [1031] + 0.00 0.00 486/116002 canswim [682] + 0.00 0.00 115276/116002 can_move [736] +[750] 0.0 0.00 0.00 116002 get_movement [750] + 0.00 0.00 116002/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 5907/5907 msg_curse [664] +[751] 0.0 0.00 0.00 5907 cinfo_simple [751] + 0.00 0.00 5907/967784 msg_message [132] + 0.00 0.00 5907/4133717 mkname [261] +----------------------------------------------- + 0.00 0.00 3078/3078 create_item [617] +[752] 0.0 0.00 0.00 3078 allocate_resource [752] + 0.00 0.00 36821/6610983 is_guard [211] + 0.00 0.00 2939/12320804 effskill [100] + 0.00 0.00 81/81 can_guard [908] + 0.00 0.00 2938/5395063 i_get [130] + 0.00 0.00 2938/2858912 get_effect [225] + 0.00 0.00 1709/3123 limit_resource [943] + 0.00 0.00 3078/51974272 a_find [65] + 0.00 0.00 139/15102 cmistake [718] + 0.00 0.00 2366/2032164 rt_find [597] + 0.00 0.00 5877/56052475 get_resourcetype [194] + 0.00 0.00 2943/8506411 besieged [547] + 0.00 0.00 3078/9298667 resource2item [546] + 0.00 0.00 1289/129167539 u_race [89] + 0.00 0.00 1/41248 msg_feedback [647] + 0.00 0.00 7/2977 change_effect [982] + 0.00 0.00 1/392959 add_message [434] + 0.00 0.00 2938/3003 roqf_factor [1329] + 0.00 0.00 5920/26995 inside_building [1486] + 0.00 0.00 5920/26164 building_is_active [1488] + 0.00 0.00 23/30 limit_seeds [1691] + 0.00 0.00 1/2 limit_mallornseeds [1775] +----------------------------------------------- + 0.00 0.00 2665/2665 read_newunitid [739] +[753] 0.0 0.00 0.00 2665 findnewunit [753] + 0.00 0.00 110903/285923 ualias [692] +----------------------------------------------- + 0.00 0.00 417554/417554 plan_monsters [52] +[754] 0.0 0.00 0.00 417554 random_move_chance [754] + 0.00 0.00 417554/717218 config_get_flt [714] +----------------------------------------------- + 0.00 0.00 443/5358 change_maxspellpoints [911] + 0.00 0.00 1334/5358 bufunit [17] + 0.00 0.00 1711/5358 cr_output_unit [19] + 0.00 0.00 1870/5358 regenerate_aura [346] +[755] 0.0 0.00 0.00 5358 max_spellpoints [755] + 0.00 0.00 5358/12320804 effskill [100] + 0.00 0.00 5358/5358 get_spchange [862] + 0.00 0.00 5358/5395063 i_get [130] + 0.00 0.00 5358/12246335 ct_find [114] + 0.00 0.00 5358/10190660 get_curse [143] + 0.00 0.00 5358/2032164 rt_find [597] + 0.00 0.00 5358/129167539 u_race [89] + 0.00 0.00 5358/651711 oldcursename [1381] + 0.00 0.00 5358/432940 curse_geteffect [1395] +----------------------------------------------- + 0.00 0.00 2081/2081 report_computer [9] +[756] 0.0 0.00 0.00 2081 cr_reportspell [756] + 0.00 0.00 5284/4434556 translate [75] + 0.00 0.00 3203/24887945 locale_string [27] + 0.00 0.00 2081/86400 spell_name [646] + 0.00 0.00 2081/4162 spell_info [841] + 0.00 0.00 2081/32337529 hashstring [37] + 0.00 0.00 2081/4133717 mkname [261] + 0.00 0.00 3203/13259934 resourcename [233] +----------------------------------------------- + 0.00 0.00 1/1 read_game [62] +[757] 0.0 0.00 0.00 1 resolve [757] + 0.00 0.00 2607/11989 resolve_unit [703] + 0.00 0.00 30872/30872 resolve_faction [820] + 0.00 0.00 442/1202 resolve_familiar [846] + 0.00 0.00 318/1078 resolve_mage [856] + 0.00 0.00 326/1466 resolve_region_id [1575] +----------------------------------------------- + 0.00 0.00 37/365 combatspell_cmd [898] + 0.00 0.00 103/365 reshow_other [823] + 0.00 0.00 225/365 cast_cmd [760] +[758] 0.0 0.00 0.00 365 unit_getspell [758] + 0.00 0.00 255/255 select_spellbook [761] + 0.00 0.00 365/597806 unit_get_spellbook [427] + 0.00 0.00 255/302482 findtoken [501] + 0.00 0.00 255/267 freetokens [1611] +----------------------------------------------- + 0.00 0.00 377/377 create_item [617] +[759] 0.0 0.00 0.00 377 manufacture [759] + 0.00 0.00 377/1239 build [691] + 0.00 0.00 306/967784 msg_message [132] + 0.00 0.00 377/12320804 effskill [100] + 0.00 0.00 377/12320804 skillmod [214] + 0.00 0.00 377/392959 add_message [434] + 0.00 0.00 71/182 msg_materials_required [1005] + 0.00 0.00 306/11241829 i_change [115] + 0.00 0.00 377/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 222/222 magic [157] +[760] 0.0 0.00 0.00 222 cast_cmd [760] + 0.00 0.00 225/365 unit_getspell [758] + 0.00 0.00 220/220 farcasting [842] + 0.00 0.00 329/12320804 effskill [100] + 0.00 0.00 221/482 knowsspell [956] + 0.00 0.00 395/2281756 gettoken [195] + 0.00 0.00 220/303 create_castorder [1066] + 0.00 0.00 108/57138 getint [699] + 0.00 0.00 322/1787006 findparam [458] + 0.00 0.00 222/1027665 init_order [613] + 0.00 0.00 26/26 add_spellparameter [1173] + 0.00 0.00 222/1629412 LongHunger [536] + 0.00 0.00 24/24 is_moving_ship [1231] + 0.00 0.00 5/459083 findregion [420] + 0.00 0.00 1/967784 msg_message [132] + 0.00 0.00 227/18647447 getplane [596] + 0.00 0.00 3/71815034 get_race [12] + 0.00 0.00 1/15102 cmistake [718] + 0.00 0.00 3/298951 distance [599] + 0.00 0.00 1/392959 add_message [434] + 0.00 0.00 4/793 is_familiar [1092] + 0.00 0.00 3/174968 get_familiar_mage [722] + 0.00 0.00 4/129167539 u_race [89] + 0.00 0.00 10/10 rel_to_abs [1728] + 0.00 0.00 5/3587241 pnormalize [1350] + 0.00 0.00 3/1291427 set_order [1365] + 0.00 0.00 1/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 255/255 unit_getspell [758] +[761] 0.0 0.00 0.00 255 select_spellbook [761] + 0.00 0.00 8557/86400 spell_name [646] + 0.00 0.00 8557/8993 addtoken [811] +----------------------------------------------- + 0.00 0.00 232/232 write_game [83] +[762] 0.0 0.00 0.00 232 writefaction [762] + 0.00 0.00 5926/1205451 alliedfaction [162] + 0.00 0.00 232/11719 locale_name [568] + 0.00 0.00 232/232 write_groups [920] + 0.00 0.00 232/1248014 listlen [190] + 0.00 0.00 232/839970 write_attribs [301] + 0.00 0.00 232/629123 write_items [511] + 0.00 0.00 232/647569 write_faction_reference [1382] + 0.00 0.00 232/232 write_password [1623] + 0.00 0.00 232/2321 write_spellbook [1556] +----------------------------------------------- + 0.00 0.00 590/590 process [7] +[763] 0.0 0.00 0.00 590 use_cmd [763] + 0.00 0.00 590/590 use_item [765] + 0.00 0.00 900/2281756 gettoken [195] + 0.00 0.00 182/15102 cmistake [718] + 0.00 0.00 590/1027665 init_order [613] + 0.00 0.00 590/191379 finditemtype [735] + 0.00 0.00 280/534930 isparam [668] +----------------------------------------------- + 0.00 0.00 752/752 monster_attacks [248] +[764] 0.0 0.00 0.00 752 monster_attack [764] + 0.00 0.00 752/1437425 cansee [22] + 0.00 0.00 736/447808 create_order [341] + 0.00 0.00 752/1121103 monster_is_waiting [407] +----------------------------------------------- + 0.00 0.00 590/590 use_cmd [763] +[765] 0.0 0.00 0.00 590 use_item [765] + 0.00 0.00 348/348 use_potion [801] + 0.00 0.00 590/541982 get_pooled [104] + 0.00 0.00 56/56 use_bloodpotion [935] + 0.00 0.00 3/3 use_healingpotion [1119] + 0.00 0.00 1/860263 use_pooled [39] + 0.00 0.00 1/1 use_skillpotion [1233] +----------------------------------------------- + 0.00 0.00 111/111 produce [29] +[766] 0.0 0.00 0.00 111 steal_cmd [766] + 0.00 0.00 46/3016 dfindhash [307] + 0.00 0.00 84/1437425 cansee [22] + 0.00 0.00 110/145 findunitr [991] + 0.00 0.00 65/65 max_skill [1037] + 0.00 0.00 111/284005 read_unitid [413] + 0.00 0.00 46/41248 msg_feedback [647] + 0.00 0.00 59/760673 addlist [217] + 0.00 0.00 30/967784 msg_message [132] + 0.00 0.00 65/12320804 effskill [100] + 0.00 0.00 59/472418 produceexp [322] + 0.00 0.00 76/392959 add_message [434] + 0.00 0.00 118/5395063 i_get [130] + 0.00 0.00 111/1027665 init_order [613] + 0.00 0.00 15/71815034 get_race [12] + 0.00 0.00 65/16669 IsImmune [901] + 0.00 0.00 111/111 check_steal [1234] + 0.00 0.00 222/21345834 skill_enabled [365] + 0.00 0.00 111/56052475 get_resourcetype [194] + 0.00 0.00 15/129167539 u_race [89] + 0.00 0.00 4/3003 roqf_factor [1329] + 0.00 0.00 76/1009028 msg_release [1373] + 0.00 0.00 65/192 can_contact [1634] +----------------------------------------------- + 0.00 0.00 233/233 read_game [62] +[767] 0.0 0.00 0.00 233 readfaction [767] + 0.00 0.00 233/233 read_groups [782] + 0.00 0.00 5925/5925 addally [913] + 0.00 0.00 406/406 faction_setorigin [979] + 0.00 0.00 233/628037 read_items [320] + 0.00 0.00 233/5100840 itoa36 [116] + 0.00 0.00 233/68430117 rc_find [15] + 0.00 0.00 233/840577 read_attribs [388] + 0.00 0.00 233/5588 get_locale [884] + 0.00 0.00 233/4625636 findfaction [259] + 0.00 0.00 233/457 FactionSpells [1136] + 0.00 0.00 233/49235 log_debug [1245] + 0.00 0.00 233/1613387 rule_region_owners [1323] + 0.00 0.00 233/233 set_email [1620] + 0.00 0.00 233/233 read_password [1619] + 0.00 0.00 233/2324 read_spellbook [1555] +----------------------------------------------- + 0.00 0.00 3152/3152 scared_by_monster [380] +[768] 0.0 0.00 0.00 3152 scareaway [768] + 0.00 0.00 33436/7641081 genrand_int31 [171] + 0.00 0.00 2656/369586 r_connect [474] + 0.00 0.00 3152/264251 rsetpeasants [545] + 0.00 0.00 6569/2605004 rpeasants [435] +----------------------------------------------- + 0.00 0.00 3246/7630 split_paragraph [828] + 0.00 0.00 4384/7630 lparagraph [809] +[769] 0.0 0.00 0.00 7630 addstrlist [769] + 0.00 0.00 7630/760673 addlist [217] +----------------------------------------------- + 0.00 0.00 4020/4020 a_read_i [390] +[770] 0.0 0.00 0.00 4020 curse_read [770] + 0.00 0.00 4020/9763 read_reference [726] + 0.00 0.00 4020/12246335 ct_find [114] + 0.00 0.00 4020/4052 chash [1537] + 0.00 0.00 4/4 read_skill [1759] +----------------------------------------------- + 0.00 0.00 2/2 json_disable_features [772] +[771] 0.0 0.00 0.00 2 disable_feature [771] + 0.00 0.00 1/30 config_set [444] + 0.00 0.00 1/64 log_info [1339] + 0.00 0.00 1/49235 log_debug [1245] + 0.00 0.00 2/1041 findskill [1586] + 0.00 0.00 2/65 findkeyword [1665] + 0.00 0.00 1/1 enable_keyword [1801] +----------------------------------------------- + 0.00 0.00 1/1 json_config [464] +[772] 0.0 0.00 0.00 1 json_disable_features [772] + 0.00 0.00 2/2 disable_feature [771] +----------------------------------------------- + +[773] 0.0 0.00 0.00 tolua_settings_eressea_settings_set00 [773] + 0.00 0.00 1/30 config_set [444] +----------------------------------------------- + 0.00 0.00 2/2457 sp_summonshadowlords [1034] + 0.00 0.00 6/2457 tolua_unit_setskill [1163] + 0.00 0.00 12/2457 forget_cmd [1093] + 0.00 0.00 26/2457 demon_skillchange [826] + 0.00 0.00 38/2457 sp_viewreality [784] + 0.00 0.00 54/2457 skill_summoned [1032] + 0.00 0.00 828/2457 spawn_undead [629] + 0.00 0.00 1491/2457 equip_unit_mask [776] +[774] 0.0 0.00 0.00 2457 set_level [774] + 0.00 0.00 2445/47535 sk_set [510] + 0.00 0.00 2419/1956810 add_skill [355] + 0.00 0.00 2457/21345834 skill_enabled [365] + 0.00 0.00 12/51060 remove_skill [1456] +----------------------------------------------- + 0.00 0.00 1/2375 oldfamiliars [1240] + 0.00 0.00 10/2375 spawn_dragons [411] + 0.00 0.00 17/2375 recruit_dracoids [837] + 0.00 0.00 20/2375 spawn_seaserpent [831] + 0.00 0.00 21/2375 spawn_undead [629] + 0.00 0.00 639/2375 spawn_braineaters [505] + 0.00 0.00 1667/2375 add_recruits [371] +[775] 0.0 0.00 0.00 2375 equip_unit [775] + 0.00 0.00 2375/2375 equip_unit_mask [776] +----------------------------------------------- + 24 equip_unit_mask [776] + 0.00 0.00 2375/2375 equip_unit [775] +[776] 0.0 0.00 0.00 2375+24 equip_unit_mask [776] + 0.00 0.00 1491/2457 set_level [774] + 0.00 0.00 1560/146997 dice_rand [409] + 0.00 0.00 30/1381157 unit_max_hp [136] + 0.00 0.00 38/752645 chance [495] + 0.00 0.00 24/7641081 genrand_int31 [171] + 0.00 0.00 60/822780 i_new [1375] + 0.00 0.00 60/87004 i_add [1442] + 24 equip_unit_mask [776] +----------------------------------------------- + 0.00 0.00 162/786 report_computer [9] + 0.00 0.00 162/786 report_plaintext [4] + 0.00 0.00 462/786 score [23] +[777] 0.0 0.00 0.00 786 average_score_of_age [777] + 0.00 0.00 18304/71815034 get_race [12] +----------------------------------------------- + 0.00 0.00 191/16751 follow_ship [749] + 0.00 0.00 16560/16751 entertain_cmd [665] +[778] 0.0 0.00 0.00 16751 getuint [778] + 0.00 0.00 16751/57138 getint [699] +----------------------------------------------- + 0.00 0.00 1/12265 report_spell [1301] + 0.00 0.00 1/12265 caddmessage [1070] + 0.00 0.00 2/12265 sp_viewreality [784] + 0.00 0.00 4/12265 sp_generous [1040] + 0.00 0.00 5/12265 sp_eternizewall [988] + 0.00 0.00 12/12265 sp_enterastral [1045] + 0.00 0.00 13/12265 sp_goodwinds [974] + 0.00 0.00 30/12265 sp_song_of_peace [939] + 0.00 0.00 76/12265 sp_stormwinds [871] + 0.00 0.00 206/12265 report_action [860] + 0.00 0.00 295/12265 maintain_buildings [339] + 0.00 0.00 11620/12265 report_transfer [724] +[779] 0.0 0.00 0.00 12265 r_addmessage [779] + 0.00 0.00 12265/392959 add_message [434] +----------------------------------------------- + 0.00 0.00 138/138 process [7] +[780] 0.0 0.00 0.00 138 renumber_cmd [780] + 0.00 0.00 43/2818 newunitid [319] + 0.00 0.00 250/2281756 gettoken [195] + 0.00 0.00 38/221899 findunitg [279] + 0.00 0.00 72/15102 cmistake [718] + 0.00 0.00 26/593636 building_owner [232] + 0.00 0.00 69/688711 atoi36 [440] + 0.00 0.00 55/55 renumber_unit [1159] + 0.00 0.00 138/6530 findparam_ex [926] + 0.00 0.00 138/1027665 init_order [613] + 0.00 0.00 31/3358315 ship_owner [438] + 0.00 0.00 38/3002 forbiddenid [1280] + 0.00 0.00 31/28818 findship [1483] + 0.00 0.00 27/48455 findbuilding [1462] + 0.00 0.00 10/12 bunhash [1720] + 0.00 0.00 10/46196 bhash [1464] + 0.00 0.00 1/7 sunhash [1744] + 0.00 0.00 1/19085 shash [1502] +----------------------------------------------- + 0.00 0.00 120/120 demographics [50] +[781] 0.0 0.00 0.00 120 plagues [781] + 0.00 0.00 25985/1336242 rng_injectable_double [396] + 0.00 0.00 12922/4666665 rmoney [452] + 0.00 0.00 6459/2186159 rsetmoney [553] + 0.00 0.00 120/967784 msg_message [132] + 0.00 0.00 120/392959 add_message [434] + 0.00 0.00 120/264251 rsetpeasants [545] + 0.00 0.00 120/2605004 rpeasants [435] + 0.00 0.00 120/37974 deathcounts [843] + 0.00 0.00 120/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 233/233 readfaction [767] +[782] 0.0 0.00 0.00 233 read_groups [782] + 0.00 0.00 49522/4625636 findfaction [259] + 0.00 0.00 1694/840577 read_attribs [388] + 0.00 0.00 51216/51239 read_faction_reference [1455] + 0.00 0.00 49522/55547 ally_add [1452] + 0.00 0.00 27921/34565 ur_add [1472] + 0.00 0.00 1694/1697 new_group [1565] +----------------------------------------------- + 0.00 0.00 8892/8892 astralregions [329] +[783] 0.0 0.00 0.00 8892 r_astral_to_standard [783] + 0.00 0.00 8892/459083 findregion [420] + 0.00 0.00 8892/987488 is_astral [479] + 0.00 0.00 8865/18647447 getplane [596] + 0.00 0.00 8892/3587241 pnormalize [1350] +----------------------------------------------- + 0.00 0.00 2/2 magic [157] +[784] 0.0 0.00 0.00 2 sp_viewreality [784] + 0.00 0.00 38/2889 create_unit [296] + 0.00 0.00 38/2457 set_level [774] + 0.00 0.00 2/8892 astralregions [329] + 0.00 0.00 38/71815034 get_race [12] + 0.00 0.00 34/12246335 ct_find [114] + 0.00 0.00 34/10190660 get_curse [143] + 0.00 0.00 2/967784 msg_message [132] + 0.00 0.00 2/12265 r_addmessage [779] + 0.00 0.00 34/4201030 curse_active [543] + 0.00 0.00 2/3 getplaneid [1337] + 0.00 0.00 34/651711 oldcursename [1381] + 0.00 0.00 2/608 co_get_region [1594] + 0.00 0.00 2/109377 free_regionlist [1436] + 0.00 0.00 2/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 112/112 attack [84] +[785] 0.0 0.00 0.00 112 attack_firesword [785] + 0.00 0.00 580/80630 terminate [242] + 0.00 0.00 580/372173 select_enemy [172] + 0.00 0.00 18/1486 message_all [834] + 0.00 0.00 18/967784 msg_message [132] + 0.00 0.00 112/7641081 genrand_int31 [171] + 0.00 0.00 112/876979 count_enemies [611] + 0.00 0.00 18/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 39926/39926 sail [181] +[786] 0.0 0.00 0.00 39926 check_leuchtturm [786] + 0.00 0.00 35539/51974272 a_find [65] + 0.00 0.00 24025/1106528 is_building_type [554] + 0.00 0.00 23237/21345834 skill_enabled [365] +----------------------------------------------- + 0.00 0.00 27694/27694 dragon_affinity_value [516] +[787] 0.0 0.00 0.00 27694 dice [787] + 0.00 0.00 41004/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.00 80630/80630 calculate_armor [645] +[788] 0.0 0.00 0.00 80630 natural_armor [788] + 0.00 0.00 80630/80630 armor_bonus [819] + 0.00 0.00 80630/129167539 u_race [89] +----------------------------------------------- + 3246 centre [789] + 0.00 0.00 229/37931 list_address [635] + 0.00 0.00 816/37931 rp_battles [618] + 0.00 0.00 2081/37931 nr_spell [507] + 0.00 0.00 3437/37931 report_plaintext [4] + 0.00 0.00 31368/37931 rp_messages [36] +[789] 0.0 0.00 0.00 37931+3246 centre [789] + 0.00 0.00 946/946 sparagraph [827] + 0.00 0.00 40231/7851812 write_spaces [303] + 0.00 0.00 946/5330 freestrlist [1534] + 3246 centre [789] +----------------------------------------------- + 0.00 0.00 1/1 tolua_read_xml [792] +[790] 0.0 0.00 0.00 1 init_data [790] + 0.00 0.00 1/1 read_xml [791] + 0.00 0.00 1/5 reset_locales [1751] +----------------------------------------------- + 0.00 0.00 1/1 init_data [790] +[791] 0.0 0.00 0.00 1 read_xml [791] + 0.00 0.00 1/1 parse_messages [832] + 0.00 0.00 1/1 parse_strings [864] + 0.00 0.00 1/1 parse_resources [1086] + 0.00 0.00 1/1 parse_races [1104] + 0.00 0.00 1/1 parse_spells [1120] + 0.00 0.00 1/1 parse_buildings [1131] + 0.00 0.00 1/1 parse_equipment [1170] + 0.00 0.00 1/1 parse_calendar [1252] + 0.00 0.00 1/1 parse_ships [1305] + 0.00 0.00 1/1 parse_spellbooks [1827] + 0.00 0.00 1/1 parse_rules [1826] +----------------------------------------------- + +[792] 0.0 0.00 0.00 tolua_read_xml [792] + 0.00 0.00 1/1 init_data [790] +----------------------------------------------- + 0.00 0.00 216069/216069 config_token [794] +[793] 0.0 0.00 0.00 216069 check_param [793] + 0.00 0.00 216069/26776263 get_param [235] +----------------------------------------------- + 0.00 0.00 1/216069 prepare_report [8] + 0.00 0.00 6524/216069 maintain [478] + 0.00 0.00 209544/216069 building_owner_ex [253] +[794] 0.0 0.00 0.00 216069 config_token [794] + 0.00 0.00 216069/216069 check_param [793] +----------------------------------------------- + 0.00 0.00 96637/96637 walkingcapacity [403] +[795] 0.0 0.00 0.00 96637 personcapacity [795] + 0.00 0.00 193274/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 2/54351 sp_summon_familiar [1025] + 0.00 0.00 54349/54351 sm_familiar [520] +[796] 0.0 0.00 0.00 54351 get_familiar [796] + 0.00 0.00 54351/51974272 a_find [65] +----------------------------------------------- +[797] 0.0 0.00 0.00 1557+26 [797] + 0.00 0.00 1570 read_triggers [798] + 0.00 0.00 13 timeout_read [1719] +----------------------------------------------- + 13 timeout_read [1719] + 0.00 0.00 1557/1557 read_handler [799] +[798] 0.0 0.00 0.00 1570 read_triggers [798] + 0.00 0.00 2299/2299 killunit_read [817] + 0.00 0.00 768/768 shock_read [892] + 0.00 0.00 10/10 changefaction_read [1166] + 0.00 0.00 3/3 changerace_read [1215] + 0.00 0.00 1/1 giveitem_read [1262] + 0.00 0.00 1/1 caldera_read [1270] + 0.00 0.00 1/1 clonedied_read [1271] + 0.00 0.00 3096/3096 tt_find [1548] + 0.00 0.00 3096/3113 t_new [1546] + 13 timeout_read [1719] +----------------------------------------------- + 0.00 0.00 1557/1557 a_read_i [390] +[799] 0.0 0.00 0.00 1557 read_handler [799] + 0.00 0.00 1557/1557 read_triggers [798] +----------------------------------------------- + 0.00 0.00 1/45 sp_holyground [1068] + 0.00 0.00 1/45 sp_generous [1040] + 0.00 0.00 1/45 shipcurse_flyingship [1072] + 0.00 0.00 2/45 sp_charmingsong [993] + 0.00 0.00 3/45 sp_song_of_peace [939] + 0.00 0.00 3/45 sp_eternizewall [988] + 0.00 0.00 4/45 sp_goodwinds [974] + 0.00 0.00 13/45 sp_blessedharvest [847] + 0.00 0.00 17/45 sp_stormwinds [871] +[800] 0.0 0.00 0.00 45 create_curse [800] + 0.00 0.00 32/32 make_curse [802] + 0.00 0.00 45/10190660 get_curse [143] + 0.00 0.00 13/13 set_curseingmagician [1265] +----------------------------------------------- + 0.00 0.00 348/348 use_item [765] +[801] 0.0 0.00 0.00 348 use_potion [801] + 0.00 0.00 345/345 end_potion [814] + 0.00 0.00 345/345 do_potion [941] + 0.00 0.00 348/348 begin_potion [1096] + 0.00 0.00 348/1582 resource2potion [1569] +----------------------------------------------- + 0.00 0.00 32/32 create_curse [800] +[802] 0.0 0.00 0.00 32 make_curse [802] + 0.00 0.00 32/2818 newunitid [319] + 0.00 0.00 32/779419 a_add [555] + 0.00 0.00 32/779868 a_new [1376] + 0.00 0.00 32/4052 chash [1537] +----------------------------------------------- + 0.00 0.00 6/2931 make_undead_unit [1188] + 0.00 0.00 10/2931 spawn_dragons [411] + 0.00 0.00 17/2931 recruit_dracoids [837] + 0.00 0.00 92/2931 spawn_undead [629] + 0.00 0.00 2806/2931 create_unit [296] +[803] 0.0 0.00 0.00 2931 name_unit [803] + 0.00 0.00 2008/2008 default_name [851] + 0.00 0.00 923/1351796 racename [133] + 0.00 0.00 923/923 race_namegen [905] + 0.00 0.00 4777/129167539 u_race [89] + 0.00 0.00 2931/3862 unit_setname [1540] +----------------------------------------------- + 0.00 0.00 11540/11540 monster_kills_peasants [230] +[804] 0.0 0.00 0.00 11540 absorbed_by_monster [804] + 0.00 0.00 11540/7641081 genrand_int31 [171] + 0.00 0.00 681/967784 msg_message [132] + 0.00 0.00 2200/201744 lovar [644] + 0.00 0.00 681/392959 add_message [434] + 0.00 0.00 3455/2605004 rpeasants [435] + 0.00 0.00 681/264251 rsetpeasants [545] + 0.00 0.00 681/3178 scale_number [969] + 0.00 0.00 681/129167539 u_race [89] + 0.00 0.00 681/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 2/273 do_combatspell [702] + 0.00 0.00 5/273 do_combatmagic [825] + 0.00 0.00 74/273 cast_combatspell [623] + 0.00 0.00 192/273 magic [157] +[805] 0.0 0.00 0.00 273 pay_spell [805] + 0.00 0.00 470/860263 use_pooled [39] + 0.00 0.00 269/767 spellcost [995] + 0.00 0.00 273/56052475 get_resourcetype [194] +----------------------------------------------- + 0.00 0.00 66058/66058 shipspeed [669] +[806] 0.0 0.00 0.00 66058 ShipSpeedBonus [806] + 0.00 0.00 66058/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 41/41 produce [29] +[807] 0.0 0.00 0.00 41 expandstealing [807] + 0.00 0.00 41/10852 expandorders [197] + 0.00 0.00 38/860263 use_pooled [39] + 0.00 0.00 59/541982 get_pooled [104] + 0.00 0.00 59/34409 add_income [625] + 0.00 0.00 59/221899 findunitg [279] + 0.00 0.00 38/967784 msg_message [132] + 0.00 0.00 38/392959 add_message [434] + 0.00 0.00 38/2599554 change_money [337] + 0.00 0.00 41/56052475 get_resourcetype [194] + 0.00 0.00 40/18647447 getplane [596] + 0.00 0.00 38/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 88/88 get_food [88] +[808] 0.0 0.00 0.00 88 hunger [808] + 0.00 0.00 2491/146997 dice_rand [409] + 0.00 0.00 88/967784 msg_message [132] + 0.00 0.00 88/392959 add_message [434] + 0.00 0.00 88/88 hunger_damage [1223] + 0.00 0.00 27/3178 scale_number [969] + 0.00 0.00 88/129167539 u_race [89] + 0.00 0.00 27/37974 deathcounts [843] + 0.00 0.00 88/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 4384/4384 spunit [632] +[809] 0.0 0.00 0.00 4384 lparagraph [809] + 0.00 0.00 4384/7630 addstrlist [769] +----------------------------------------------- + 0.00 0.00 319/319 aftermath [701] +[810] 0.0 0.00 0.00 319 loot_items [810] + 0.00 0.00 1100/372173 select_enemy [172] + 0.00 0.00 2204/7641081 genrand_int31 [171] + 0.00 0.00 1091/1091 loot_quota [1013] + 0.00 0.00 1091/11241829 i_change [115] + 0.00 0.00 983/3902878 get_monsters [293] + 0.00 0.00 38/38 select_ally [1132] + 0.00 0.00 319/2913 dead_fighters [1549] +----------------------------------------------- + 178365 addtoken [811] + 0.00 0.00 2/8993 register_special_direction [1259] + 0.00 0.00 14/8993 findshiptype [869] + 0.00 0.00 22/8993 init_options_translation [1157] + 0.00 0.00 26/8993 init_directions [1143] + 0.00 0.00 36/8993 init_terrains_translation [1129] + 0.00 0.00 54/8993 findbuildingtype [866] + 0.00 0.00 282/8993 init_locale [948] + 0.00 0.00 8557/8993 select_spellbook [761] +[811] 0.0 0.00 0.00 8993+178365 addtoken [811] + 0.00 0.00 176717/46391457 unicode_utf8_to_ucs4 [177] + 0.00 0.00 141675/141675 mknode [1429] + 178365 addtoken [811] +----------------------------------------------- + 0.00 0.00 2274/2274 msg_curse [664] +[812] 0.0 0.00 0.00 2274 cinfo_ship [812] + 0.00 0.00 2274/967784 msg_message [132] + 0.00 0.00 2252/4133717 mkname [261] +----------------------------------------------- + 0.00 0.00 312/312 make_cmd [383] +[813] 0.0 0.00 0.00 312 continue_ship [813] + 0.00 0.00 113/115 build_ship [839] + 0.00 0.00 120/122 maxbuild [946] + 0.00 0.00 432/12320804 effskill [100] + 0.00 0.00 306/307 getship [1018] + 0.00 0.00 199/15102 cmistake [718] +----------------------------------------------- + 0.00 0.00 345/345 use_potion [801] +[814] 0.0 0.00 0.00 345 end_potion [814] + 0.00 0.00 345/860263 use_pooled [39] + 0.00 0.00 345/967784 msg_message [132] + 0.00 0.00 345/392959 add_message [434] + 0.00 0.00 345/404 usetpotionuse [1078] + 0.00 0.00 345/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 6/337987 update_guards [415] + 0.00 0.00 76/337987 guard_off_cmd [711] + 0.00 0.00 319/337987 aftermath [701] + 0.00 0.00 14191/337987 flee [638] + 0.00 0.00 23781/337987 guard [865] + 0.00 0.00 106892/337987 move_unit [421] + 0.00 0.00 192722/337987 travel_route [147] +[815] 0.0 0.00 0.00 337987 setguard [815] + 0.00 0.00 23509/51974272 a_find [65] + 0.00 0.00 23781/377253 guard_flags [690] +----------------------------------------------- + 0.00 0.00 36/36 produce [29] +[816] 0.0 0.00 0.00 36 expandloot [816] + 0.00 0.00 36/10852 expandorders [197] + 0.00 0.00 4800/2599554 change_money [337] + 0.00 0.00 42/34409 add_income [625] + 0.00 0.00 36/7641081 genrand_int31 [171] + 0.00 0.00 36/2186159 rsetmoney [553] + 0.00 0.00 36/4666665 rmoney [452] + 0.00 0.00 5/65345 region_get_morale [1444] +----------------------------------------------- + 0.00 0.00 2299/2299 read_triggers [798] +[817] 0.0 0.00 0.00 2299 killunit_read [817] + 0.00 0.00 2299/9763 read_reference [726] +----------------------------------------------- + 0.00 0.00 241/241 process [7] +[818] 0.0 0.00 0.00 241 reshow_cmd [818] + 0.00 0.00 241/241 reshow [822] + 0.00 0.00 241/2281756 gettoken [195] + 0.00 0.00 138/69432 getparam [681] + 0.00 0.00 241/1027665 init_order [613] + 0.00 0.00 241/534930 isparam [668] +----------------------------------------------- + 0.00 0.00 80630/80630 natural_armor [788] +[819] 0.0 0.00 0.00 80630 armor_bonus [819] + 0.00 0.00 80630/5065285 get_param_int [422] +----------------------------------------------- + 0.00 0.00 30872/30872 resolve [757] +[820] 0.0 0.00 0.00 30872 resolve_faction [820] + 0.00 0.00 30872/4625636 findfaction [259] +----------------------------------------------- + 0.00 0.00 149/149 create_item [617] +[821] 0.0 0.00 0.00 149 create_potion [821] + 0.00 0.00 149/1239 build [691] + 0.00 0.00 129/967784 msg_message [132] + 0.00 0.00 149/392959 add_message [434] + 0.00 0.00 20/182 msg_materials_required [1005] + 0.00 0.00 129/11241829 i_change [115] + 0.00 0.00 149/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 241/241 reshow_cmd [818] +[822] 0.0 0.00 0.00 241 reshow [822] + 0.00 0.00 104/104 reshow_other [823] + 0.00 0.00 327/328 display_potion [1090] + 0.00 0.00 22/12320804 effskill [100] + 0.00 0.00 115/178429 a_removeall [958] +----------------------------------------------- + 0.00 0.00 104/104 reshow [822] +[823] 0.0 0.00 0.00 104 reshow_other [823] + 0.00 0.00 103/365 unit_getspell [758] + 0.00 0.00 47/47 display_race [963] + 0.00 0.00 39/39 display_item [1054] + 0.00 0.00 103/338 findrace [1030] + 0.00 0.00 59/5395063 i_get [130] + 0.00 0.00 16/15102 cmistake [718] + 0.00 0.00 103/191379 finditemtype [735] + 0.00 0.00 19/283711 item2resource [561] + 0.00 0.00 48/129167539 u_race [89] + 0.00 0.00 1/451774 a_remove [366] + 0.00 0.00 1/328 display_potion [1090] + 0.00 0.00 1/51974272 a_find [65] + 0.00 0.00 19/1582 resource2potion [1569] +----------------------------------------------- + 0.00 0.00 1911/1911 msg_curse [664] +[824] 0.0 0.00 0.00 1911 cinfo_magicresistance [824] + 0.00 0.00 1911/967784 msg_message [132] + 0.00 0.00 1911/4133717 mkname [261] +----------------------------------------------- + 0.00 0.00 206/412 aftermath [701] + 0.00 0.00 206/412 do_battle [64] +[825] 0.0 0.00 0.00 412 do_combatmagic [825] + 0.00 0.00 2273/12320804 effskill [100] + 0.00 0.00 2/2 sp_igjarjuk [923] + 0.00 0.00 7/7 sp_healing [989] + 0.00 0.00 8/251 cancast [833] + 0.00 0.00 5/273 pay_spell [805] + 0.00 0.00 8/251 eff_spelllevel [845] + 0.00 0.00 51/1339 get_combatspelllevel [880] + 0.00 0.00 51/4875 get_combatspell [874] + 0.00 0.00 8/226 fumble [973] + 0.00 0.00 8/225 spellpower [1000] + 0.00 0.00 8/447808 create_order [341] + 0.00 0.00 8/86400 spell_name [646] + 0.00 0.00 1/3 report_failed_spell [1187] + 0.00 0.00 9/83 create_castorder_combat [1137] + 0.00 0.00 3708/3717 free_castorders [1541] + 0.00 0.00 16/11052 find_spell [1513] + 0.00 0.00 9/229 add_castorder [1626] + 0.00 0.00 8/1936876 free_order [1356] +----------------------------------------------- + 0.00 0.00 2148/2148 demon_skillchanges [246] +[826] 0.0 0.00 0.00 2148 demon_skillchange [826] + 0.00 0.00 18444/7641081 genrand_int31 [171] + 0.00 0.00 2190/892307 learn_skill [471] + 0.00 0.00 26/2457 set_level [774] + 0.00 0.00 1508/1583 reduce_skill [1091] + 0.00 0.00 12/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 946/946 centre [789] +[827] 0.0 0.00 0.00 946 sparagraph [827] + 0.00 0.00 946/946 split_paragraph [828] +----------------------------------------------- + 0.00 0.00 946/946 sparagraph [827] +[828] 0.0 0.00 0.00 946 split_paragraph [828] + 0.00 0.00 3246/7630 addstrlist [769] +----------------------------------------------- + 0.00 0.00 47562/47562 skill_weeks [509] +[829] 0.0 0.00 0.00 47562 rule_random_progress [829] + 0.00 0.00 47562/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 72692/72692 terminate [242] +[830] 0.0 0.00 0.00 72692 rc_specialdamage [830] + 0.00 0.00 117616/129167539 u_race [89] + 0.00 0.00 410/12560453 rc_changed [256] + 0.00 0.00 1/71815034 get_race [12] +----------------------------------------------- + 0.00 0.00 20/20 spawn_dragons [411] +[831] 0.0 0.00 0.00 20 spawn_seaserpent [831] + 0.00 0.00 20/2889 create_unit [296] + 0.00 0.00 20/2375 equip_unit [775] + 0.00 0.00 20/71815034 get_race [12] + 0.00 0.00 20/2742 get_equipment [1551] +----------------------------------------------- + 0.00 0.00 1/1 read_xml [791] +[832] 0.0 0.00 0.00 1 parse_messages [832] + 0.00 0.00 1909/1909 nrt_register [883] + 0.00 0.00 957/1010116 mt_find [227] + 0.00 0.00 1910/5354 xml_readtext [887] + 0.00 0.00 957/957 mt_register [1007] + 0.00 0.00 957/957 crt_register [1006] + 0.00 0.00 1909/8788 xml_cleanup_string [1520] + 0.00 0.00 957/957 mt_new [1588] +----------------------------------------------- + 0.00 0.00 8/251 do_combatmagic [825] + 0.00 0.00 23/251 do_combatspell [702] + 0.00 0.00 220/251 magic [157] +[833] 0.0 0.00 0.00 251 cancast [833] + 0.00 0.00 503/541982 get_pooled [104] + 0.00 0.00 251/482 knowsspell [956] + 0.00 0.00 251/12320804 effskill [100] + 0.00 0.00 249/767 spellcost [995] + 0.00 0.00 24/41248 msg_feedback [647] + 0.00 0.00 24/392959 add_message [434] + 0.00 0.00 251/56052475 get_resourcetype [194] + 0.00 0.00 24/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 2/1486 summon_allies [925] + 0.00 0.00 3/1486 report_failed_spell [1187] + 0.00 0.00 7/1486 sp_healing [989] + 0.00 0.00 18/1486 do_attack [80] + 0.00 0.00 18/1486 attack_firesword [785] + 0.00 0.00 21/1486 sp_kampfzauber [957] + 0.00 0.00 53/1486 sp_dragonodem [627] + 0.00 0.00 355/1486 print_stats [525] + 0.00 0.00 395/1486 reportcasualties [881] + 0.00 0.00 614/1486 print_fighters [616] +[834] 0.0 0.00 0.00 1486 message_all [834] + 0.00 0.00 5553/31214 message_faction [716] +----------------------------------------------- + 0.00 0.00 3117/3117 process [7] +[835] 0.0 0.00 0.00 3117 name_cmd [835] + 0.00 0.00 3117/2281756 gettoken [195] + 0.00 0.00 3114/54318 getstrtoken [710] + 0.00 0.00 3117/6530 findparam_ex [926] + 0.00 0.00 3117/1027665 init_order [613] + 0.00 0.00 5/593636 building_owner [232] + 0.00 0.00 4/4 try_rename [1225] + 0.00 0.00 2/15102 cmistake [718] + 0.00 0.00 10/3358315 ship_owner [438] + 0.00 0.00 5/490901 largestbuilding [651] + 0.00 0.00 5/5 get_cmp_region_owner [1347] + 0.00 0.00 3114/3114 rename_cmd [1545] +----------------------------------------------- + 0.00 0.00 6/41882 give_men [857] + 0.00 0.00 41876/41882 give_item [126] +[836] 0.0 0.00 0.00 41882 GiveRestriction [836] + 0.00 0.00 41882/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 17/17 plan_dragon [273] +[837] 0.0 0.00 0.00 17 recruit_dracoids [837] + 0.00 0.00 17/2889 create_unit [296] + 0.00 0.00 17/2375 equip_unit [775] + 0.00 0.00 17/2931 name_unit [803] + 0.00 0.00 17/760673 addlist [217] + 0.00 0.00 17/447808 create_order [341] + 0.00 0.00 17/2934859 skillname [122] + 0.00 0.00 17/71815034 get_race [12] + 0.00 0.00 17/2599554 change_money [337] + 0.00 0.00 23/599650 setstatus [1390] + 0.00 0.00 17/2742 get_equipment [1551] +----------------------------------------------- + 0.00 0.00 206/206 do_battle [64] +[838] 0.0 0.00 0.00 206 print_header [838] + 0.00 0.00 679/967784 msg_message [132] + 0.00 0.00 1029/3111 sidename [867] + 0.00 0.00 1799/17451017 strlcpy_w [67] + 0.00 0.00 679/31214 message_faction [716] + 0.00 0.00 210/24887945 locale_string [27] + 0.00 0.00 2703/2854 is_attacker [1550] + 0.00 0.00 1084/24449 seematrix [1491] + 0.00 0.00 679/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 2/115 create_ship [1014] + 0.00 0.00 113/115 continue_ship [813] +[839] 0.0 0.00 0.00 115 build_ship [839] + 0.00 0.00 115/1239 build [691] + 0.00 0.00 115/967784 msg_message [132] + 0.00 0.00 115/392959 add_message [434] + 0.00 0.00 115/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 12407/12407 cr_render [196] +[840] 0.0 0.00 0.00 12407 cr_regions [840] + 0.00 0.00 7499/1826688 adjust_coordinates [234] + 0.00 0.00 9641/18647447 getplane [596] + 0.00 0.00 7499/3587241 pnormalize [1350] +----------------------------------------------- + 0.00 0.00 2081/4162 cr_reportspell [756] + 0.00 0.00 2081/4162 nr_spell [507] +[841] 0.0 0.00 0.00 4162 spell_info [841] + 0.00 0.00 4162/24887945 locale_string [27] + 0.00 0.00 4162/4133717 mkname [261] +----------------------------------------------- + 0.00 0.00 220/220 cast_cmd [760] +[842] 0.0 0.00 0.00 220 farcasting [842] + 0.00 0.00 3/252 path_exists [431] + 0.00 0.00 220/514146 koor_distance [476] +----------------------------------------------- + 0.00 0.00 27/37974 hunger [808] + 0.00 0.00 34/37974 battle_effects [1125] + 0.00 0.00 120/37974 plagues [781] + 0.00 0.00 567/37974 eaten_by_monster [468] + 0.00 0.00 37226/37974 spawn_undead [629] +[843] 0.0 0.00 0.00 37974 deathcounts [843] + 0.00 0.00 5948/12246335 ct_find [114] + 0.00 0.00 5948/10190660 get_curse [143] + 0.00 0.00 5941/51974272 a_find [65] + 0.00 0.00 5948/4201030 curse_active [543] + 0.00 0.00 40/451774 a_remove [366] + 0.00 0.00 35/779419 a_add [555] + 0.00 0.00 35/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 348/348 process [7] +[844] 0.0 0.00 0.00 348 mail_cmd [844] + 0.00 0.00 35/35 mailunit [921] + 0.00 0.00 325/967784 msg_message [132] + 0.00 0.00 38/1437425 cansee [22] + 0.00 0.00 620/54318 getstrtoken [710] + 0.00 0.00 328/392959 add_message [434] + 0.00 0.00 348/2281756 gettoken [195] + 0.00 0.00 623/6530 findparam_ex [926] + 0.00 0.00 4/4 mailfaction [1106] + 0.00 0.00 4/4 seefaction [1117] + 0.00 0.00 348/1027665 init_order [613] + 0.00 0.00 22/228907 getid [483] + 0.00 0.00 3/41248 msg_feedback [647] + 0.00 0.00 15/51974272 a_find [65] + 0.00 0.00 1/307 getship [1018] + 0.00 0.00 328/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 8/251 do_combatmagic [825] + 0.00 0.00 23/251 do_combatspell [702] + 0.00 0.00 220/251 magic [157] +[845] 0.0 0.00 0.00 251 eff_spelllevel [845] + 0.00 0.00 489/541982 get_pooled [104] + 0.00 0.00 249/767 spellcost [995] + 0.00 0.00 99/597806 unit_get_spellbook [427] + 0.00 0.00 251/56052475 get_resourcetype [194] + 0.00 0.00 99/2112 spellbook_get [1557] +----------------------------------------------- + 0.00 0.00 442/1202 resolve [757] + 0.00 0.00 760/1202 read_reference [726] +[846] 0.0 0.00 0.00 1202 resolve_familiar [846] + 0.00 0.00 1202/11989 resolve_unit [703] + 0.00 0.00 442/760 set_familiar [992] + 0.00 0.00 760/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 13/13 magic [157] +[847] 0.0 0.00 0.00 13 sp_blessedharvest [847] + 0.00 0.00 13/45 create_curse [800] + 0.00 0.00 13/28 report_effect [861] + 0.00 0.00 26/967784 msg_message [132] + 0.00 0.00 13/12246335 ct_find [114] + 0.00 0.00 26/1009028 msg_release [1373] + 0.00 0.00 13/608 co_get_region [1594] +----------------------------------------------- + 0.00 0.00 3597/3597 chaos_update [514] +[848] 0.0 0.00 0.00 3597 chaos [848] + 0.00 0.00 5/2889 create_unit [296] + 0.00 0.00 96/105 terraform_region [932] + 0.00 0.00 3890/7641081 genrand_int31 [171] + 0.00 0.00 3/1794 remove_unit [499] + 0.00 0.00 51/967784 msg_message [132] + 0.00 0.00 51/392959 add_message [434] + 0.00 0.00 125/125 random_unit [1174] + 0.00 0.00 15/369586 r_connect [474] + 0.00 0.00 48/48 chaosterrain [1213] + 0.00 0.00 10/71815034 get_race [12] + 0.00 0.00 5/242 canfly [1031] + 0.00 0.00 5/3902878 get_monsters [293] + 0.00 0.00 9/129167539 u_race [89] + 0.00 0.00 5/5 set_money [1326] + 0.00 0.00 51/1009028 msg_release [1373] + 0.00 0.00 48/1511812 newterrain [1359] +----------------------------------------------- + 0.00 0.00 22843/22843 teach_cmd [272] +[849] 0.0 0.00 0.00 22843 parser_end [849] + 0.00 0.00 22778/5329742 eatwhitespace_c [255] +----------------------------------------------- + 0.00 0.00 5596/5596 attack [84] +[850] 0.0 0.00 0.00 5596 drain_exp [850] + 0.00 0.00 11021/7641081 genrand_int31 [171] + 0.00 0.00 45149/45891 get_level [934] + 0.00 0.00 75/1583 reduce_skill [1091] + 0.00 0.00 5425/595705 unit_skill [1391] +----------------------------------------------- + 0.00 0.00 2008/2008 name_unit [803] +[851] 0.0 0.00 0.00 2008 default_name [851] + 0.00 0.00 2008/24887945 locale_string [27] + 0.00 0.00 2008/5100840 itoa36 [116] + 0.00 0.00 2008/34611296 strlcpy [45] + 0.00 0.00 4016/987128 strlcat [1374] +----------------------------------------------- + 0.00 0.00 5049/5049 piracy_cmd [660] +[852] 0.0 0.00 0.00 5049 parse_ids [852] + 0.00 0.00 5053/54318 getstrtoken [710] + 0.00 0.00 5049/1027665 init_order [613] + 0.00 0.00 4/688711 atoi36 [440] + 0.00 0.00 4/4 intlist_init [1757] + 0.00 0.00 4/4 intlist_add [1756] +----------------------------------------------- + 0.00 0.00 232/232 reports [2] +[853] 0.0 0.00 0.00 232 write_script [853] + 0.00 0.00 232/11719 locale_name [568] + 0.00 0.00 232/5100840 itoa36 [116] + 0.00 0.00 886/987128 strlcat [1374] +----------------------------------------------- + 0.00 0.00 36/4361 piracy_cmd [660] + 0.00 0.00 4325/4361 sail [181] +[854] 0.0 0.00 0.00 4361 can_takeoff [854] + 0.00 0.00 4337/263302 reldirection [528] + 0.00 0.00 322/560926 bt_find [237] + 0.00 0.00 322/75797 buildingtype_exists [1443] +----------------------------------------------- + 0.00 0.00 32679/32679 produce [29] +[855] 0.0 0.00 0.00 32679 rule_auto_taxation [855] + 0.00 0.00 32679/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 318/1078 resolve [757] + 0.00 0.00 760/1078 read_reference [726] +[856] 0.0 0.00 0.00 1078 resolve_mage [856] + 0.00 0.00 1078/11989 resolve_unit [703] + 0.00 0.00 318/760 set_familiar [992] + 0.00 0.00 760/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 588/588 give_cmd [102] +[857] 0.0 0.00 0.00 588 give_men [857] + 0.00 0.00 1758/2624955 has_skill [193] + 0.00 0.00 588/659 can_give_men [940] + 0.00 0.00 567/1936 transfermen [899] + 0.00 0.00 1529/2275967 get_racename [368] + 0.00 0.00 488/12246335 ct_find [114] + 0.00 0.00 488/10190660 get_curse [143] + 0.00 0.00 567/1474687 leftship [500] + 0.00 0.00 588/8898 ucontact [927] + 0.00 0.00 588/702 max_transfers [1109] + 0.00 0.00 359/2421 set_racename [1015] + 0.00 0.00 783/129167539 u_race [89] + 0.00 0.00 19/15240 msg_error [744] + 0.00 0.00 488/4201030 curse_active [543] + 0.00 0.00 4/967784 msg_message [132] + 0.00 0.00 2/41248 msg_feedback [647] + 0.00 0.00 4/392959 add_message [434] + 0.00 0.00 5/234 set_leftship [1134] + 0.00 0.00 1/5100840 itoa36 [116] + 0.00 0.00 6/41882 GiveRestriction [836] + 0.00 0.00 4/118 rule_transfermen [1204] + 0.00 0.00 1/49235 log_debug [1245] + 0.00 0.00 588/1361 unit_has_cursed_item [1577] + 0.00 0.00 488/651711 oldcursename [1381] + 0.00 0.00 359/600145 u_setrace [1389] +----------------------------------------------- + 0.00 0.00 93119/93119 give_item [126] +[858] 0.0 0.00 0.00 93119 give_quota [858] + 0.00 0.00 93119/93119 limited_give [879] + 0.00 0.00 23838/717218 config_get_flt [714] +----------------------------------------------- + 0.00 0.00 2013/2013 process [7] +[859] 0.0 0.00 0.00 2013 display_cmd [859] + 0.00 0.00 2013/2281756 gettoken [195] + 0.00 0.00 2012/54318 getstrtoken [710] + 0.00 0.00 2013/6530 findparam_ex [926] + 0.00 0.00 2013/1027665 init_order [613] + 0.00 0.00 1573/1573 usetprivate [1041] + 0.00 0.00 1/15102 cmistake [718] + 0.00 0.00 1/593636 building_owner [232] + 0.00 0.00 17/3358315 ship_owner [438] +----------------------------------------------- + 0.00 0.00 38/38 report_effect [861] +[860] 0.0 0.00 0.00 38 report_action [860] + 0.00 0.00 197/1437425 cansee [22] + 0.00 0.00 206/12265 r_addmessage [779] + 0.00 0.00 1/392959 add_message [434] +----------------------------------------------- + 0.00 0.00 6/28 sp_mallornhain [968] + 0.00 0.00 9/28 sp_hain [931] + 0.00 0.00 13/28 sp_blessedharvest [847] +[861] 0.0 0.00 0.00 28 report_effect [861] + 0.00 0.00 38/38 report_action [860] +----------------------------------------------- + 0.00 0.00 5358/5358 max_spellpoints [755] +[862] 0.0 0.00 0.00 5358 get_spchange [862] + 0.00 0.00 5358/2426021 get_mage [198] +----------------------------------------------- + 0.00 0.00 2/2 parse_strings [864] +[863] 0.0 0.00 0.00 2 xml_readstrings [863] + 0.00 0.00 3444/5354 xml_readtext [887] + 0.00 0.00 3435/3496 locale_setstring [918] + 0.00 0.00 2342/4136059 mkname_buf [316] + 0.00 0.00 6879/8788 xml_cleanup_string [1520] +----------------------------------------------- + 0.00 0.00 1/1 read_xml [791] +[864] 0.0 0.00 0.00 1 parse_strings [864] + 0.00 0.00 2/2 xml_readstrings [863] +----------------------------------------------- + 0.00 0.00 23781/23781 guard_on_cmd [656] +[865] 0.0 0.00 0.00 23781 guard [865] + 0.00 0.00 23781/377253 guard_flags [690] + 0.00 0.00 23781/337987 setguard [815] +----------------------------------------------- + 0.00 0.00 2/4261 findparam_ex [926] + 0.00 0.00 4259/4261 make_cmd [383] +[866] 0.0 0.00 0.00 4261 findbuildingtype [866] + 0.00 0.00 4261/302482 findtoken [501] + 0.00 0.00 54/24887945 locale_string [27] + 0.00 0.00 54/8993 addtoken [811] +----------------------------------------------- + 0.00 0.00 1029/3111 print_header [838] + 0.00 0.00 2082/3111 print_stats [525] +[867] 0.0 0.00 0.00 3111 sidename [867] + 0.00 0.00 3111/1295787 factionname [247] + 0.00 0.00 3111/34611296 strlcpy [45] +----------------------------------------------- + 0.00 0.00 4/4 study_cmd [105] +[868] 0.0 0.00 0.00 4 count_skill [868] + 0.00 0.00 5253/2624955 has_skill [193] + 0.00 0.00 5/793 is_familiar [1092] +----------------------------------------------- + 0.00 0.00 4259/4259 make_cmd [383] +[869] 0.0 0.00 0.00 4259 findshiptype [869] + 0.00 0.00 4259/302482 findtoken [501] + 0.00 0.00 14/24887945 locale_string [27] + 0.00 0.00 14/8993 addtoken [811] +----------------------------------------------- + 0.00 0.00 1138/1138 a_read_i [390] +[870] 0.0 0.00 0.00 1138 read_targetregion [870] + 0.00 0.00 1138/9763 read_reference [726] +----------------------------------------------- + 0.00 0.00 9/9 magic [157] +[871] 0.0 0.00 0.00 9 sp_stormwinds [871] + 0.00 0.00 17/45 create_curse [800] + 0.00 0.00 76/12265 r_addmessage [779] + 0.00 0.00 9/967784 msg_message [132] + 0.00 0.00 27/12246335 ct_find [114] + 0.00 0.00 10/10190660 get_curse [143] + 0.00 0.00 10/4201030 curse_active [543] + 0.00 0.00 10/651711 oldcursename [1381] + 0.00 0.00 9/608 co_get_region [1594] + 0.00 0.00 9/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1334/4915 bufunit [17] + 0.00 0.00 1711/4915 cr_output_unit [19] + 0.00 0.00 1870/4915 regenerate_aura [346] +[872] 0.0 0.00 0.00 4915 get_spellpoints [872] + 0.00 0.00 4915/2426021 get_mage [198] +----------------------------------------------- + 0.00 0.00 42/42 produce [29] +[873] 0.0 0.00 0.00 42 loot_cmd [873] + 0.00 0.00 84/133 income [885] + 0.00 0.00 42/15361 is_guarded [377] + 0.00 0.00 42/771861 armedmen [151] + 0.00 0.00 42/760673 addlist [217] + 0.00 0.00 42/57138 getint [699] + 0.00 0.00 42/71815034 get_race [12] + 0.00 0.00 84/3902878 get_monsters [293] + 0.00 0.00 168/129167539 u_race [89] + 0.00 0.00 42/1027665 init_order [613] + 0.00 0.00 42/4984610 config_get_int [348] + 0.00 0.00 42/8506411 besieged [547] +----------------------------------------------- + 0.00 0.00 38/4875 do_combatspell [702] + 0.00 0.00 51/4875 do_combatmagic [825] + 0.00 0.00 4786/4875 bufunit [17] +[874] 0.0 0.00 0.00 4875 get_combatspell [874] + 0.00 0.00 4875/2426021 get_mage [198] + 0.00 0.00 50/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 15/6962 drifting_ships [490] + 0.00 0.00 6947/6962 sail [181] +[875] 0.0 0.00 0.00 6962 set_coast [875] + 0.00 0.00 4307/263302 reldirection [528] + 0.00 0.00 4307/44216 flying_ship [1465] +----------------------------------------------- + 0.00 0.00 552/552 make_fighter [424] +[876] 0.0 0.00 0.00 552 make_side [876] + 0.00 0.00 814/9953180 alliedunit [31] + 0.00 0.00 6102/6610983 is_guard [211] +----------------------------------------------- + 0.00 0.00 791/791 process [7] +[877] 0.0 0.00 0.00 791 ally_cmd [877] + 0.00 0.00 791/791 getfaction [937] + 0.00 0.00 677/69432 getparam [681] + 0.00 0.00 677/2281756 gettoken [195] + 0.00 0.00 107/15102 cmistake [718] + 0.00 0.00 677/1787006 findparam [458] + 0.00 0.00 791/1027665 init_order [613] + 0.00 0.00 664/51974272 a_find [65] + 0.00 0.00 677/10383360 HelpMask [288] + 0.00 0.00 1/1 removelist [1290] + 0.00 0.00 2/55547 ally_add [1452] +----------------------------------------------- + 0.00 0.00 1/1 process [7] +[878] 0.0 0.00 0.00 1 nmr_warnings [878] + 0.00 0.00 1449/1205451 alliedfaction [162] + 0.00 0.00 1398/4984610 config_get_int [348] + 0.00 0.00 24/967784 msg_message [132] + 0.00 0.00 55/392959 add_message [434] + 0.00 0.00 20/27 NMRTimeout [1264] + 0.00 0.00 24/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 93119/93119 give_quota [858] +[879] 0.0 0.00 0.00 93119 limited_give [879] + 0.00 0.00 93119/56052475 get_resourcetype [194] +----------------------------------------------- + 0.00 0.00 23/1339 do_combatspell [702] + 0.00 0.00 51/1339 do_combatmagic [825] + 0.00 0.00 1265/1339 bufunit [17] +[880] 0.0 0.00 0.00 1339 get_combatspelllevel [880] + 0.00 0.00 1302/12320804 effskill [100] + 0.00 0.00 1339/2426021 get_mage [198] +----------------------------------------------- + 0.00 0.00 425/425 aftermath [701] +[881] 0.0 0.00 0.00 425 reportcasualties [881] + 0.00 0.00 395/1486 message_all [834] + 0.00 0.00 395/967784 msg_message [132] + 0.00 0.00 395/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1520/1520 parse_symbol [42] +[882] 0.0 0.00 0.00 1520 eval_race [882] + 0.00 0.00 1520/24887945 locale_string [27] + 0.00 0.00 1520/2818494 rc_name_s [260] + 0.00 0.00 3040/13102790 opstack_pop [176] + 0.00 0.00 1520/13102790 opstack_push [202] + 0.00 0.00 1520/13399069 balloc [363] +----------------------------------------------- + 0.00 0.00 1909/1909 parse_messages [832] +[883] 0.0 0.00 0.00 1909 nrt_register [883] + 0.00 0.00 4921/34611296 strlcpy [45] + 0.00 0.00 1909/32337529 hashstring [37] + 0.00 0.00 1909/1909 section_find [1563] + 0.00 0.00 10/10 section_add [1729] +----------------------------------------------- + 0.00 0.00 1/5588 crtag [110] + 0.00 0.00 233/5588 readfaction [767] + 0.00 0.00 5354/5588 xml_readtext [887] +[884] 0.0 0.00 0.00 5588 get_locale [884] + 0.00 0.00 5588/32337529 hashstring [37] +----------------------------------------------- + 0.00 0.00 49/133 plan_dragon [273] + 0.00 0.00 84/133 loot_cmd [873] +[885] 0.0 0.00 0.00 133 income [885] + 0.00 0.00 133/2480226 old_race [14] + 0.00 0.00 266/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 349/349 produce [29] +[886] 0.0 0.00 0.00 349 research_cmd [886] + 0.00 0.00 349/967784 msg_message [132] + 0.00 0.00 349/472418 produceexp [322] + 0.00 0.00 349/12320804 effskill [100] + 0.00 0.00 349/392959 add_message [434] + 0.00 0.00 349/1027665 init_order [613] + 0.00 0.00 692/3166898 rherbs [1351] + 0.00 0.00 349/1009028 msg_release [1373] + 0.00 0.00 343/343 rough_amount [1607] +----------------------------------------------- + 0.00 0.00 1910/5354 parse_messages [832] + 0.00 0.00 3444/5354 xml_readstrings [863] +[887] 0.0 0.00 0.00 5354 xml_readtext [887] + 0.00 0.00 5354/5588 get_locale [884] +----------------------------------------------- + 0.00 0.00 1301/1301 split_allocations [743] +[888] 0.0 0.00 0.00 1301 leveled_allocation [888] + 0.00 0.00 1423/12320804 effskill [100] + 0.00 0.00 1281/7641081 genrand_int31 [171] + 0.00 0.00 1245/1245 use_default [1149] + 0.00 0.00 1301/9298667 resource2item [546] + 0.00 0.00 2704/7493 required [1527] + 0.00 0.00 1301/1301 rm_get [1578] +----------------------------------------------- + 0.00 0.00 396/396 update_spells [381] +[889] 0.0 0.00 0.00 396 show_new_spells [889] + 0.00 0.00 7815/7815 already_seen [929] + 0.00 0.00 4162/779419 a_add [555] + 0.00 0.00 4162/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 25088/25088 rmtroop [533] +[890] 0.0 0.00 0.00 25088 rmfighter [890] + 0.00 0.00 25088/129167539 u_race [89] + 0.00 0.00 25088/4301501 statusrow [550] +----------------------------------------------- + 0.00 0.00 9/1803 destroyfaction [392] + 0.00 0.00 1794/1803 remove_unit [499] +[891] 0.0 0.00 0.00 1803 gift_items [891] + 0.00 0.00 112/112 get_friends [895] + 0.00 0.00 3606/56052475 get_resourcetype [194] + 0.00 0.00 578/129167539 u_race [89] + 0.00 0.00 26/11241829 i_change [115] + 0.00 0.00 38/2186159 rsetmoney [553] + 0.00 0.00 38/4666665 rmoney [452] + 0.00 0.00 1803/103079 rule_give [1328] + 0.00 0.00 216/257723 i_remove [1407] + 0.00 0.00 216/374425 i_free [1400] + 0.00 0.00 88/97 i_merge [1651] + 0.00 0.00 5/1160345 rhorses [1369] + 0.00 0.00 5/257693 rsethorses [1408] +----------------------------------------------- + 0.00 0.00 768/768 read_triggers [798] +[892] 0.0 0.00 0.00 768 shock_read [892] + 0.00 0.00 768/9763 read_reference [726] +----------------------------------------------- + 0.00 0.00 760/760 a_read_i [390] +[893] 0.0 0.00 0.00 760 read_familiar [893] + 0.00 0.00 760/9763 read_reference [726] +----------------------------------------------- + 0.00 0.00 760/760 a_read_i [390] +[894] 0.0 0.00 0.00 760 read_magician [894] + 0.00 0.00 760/9763 read_reference [726] +----------------------------------------------- + 0.00 0.00 112/112 gift_items [891] +[895] 0.0 0.00 0.00 112 get_friends [895] + 0.00 0.00 1104/9953180 alliedunit [31] + 0.00 0.00 1085/4984610 config_get_int [348] + 0.00 0.00 28/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 6/6 magic [157] +[896] 0.0 0.00 0.00 6 sp_summonundead [896] + 0.00 0.00 6/2889 create_unit [296] + 0.00 0.00 6/6 skill_summoned [1032] + 0.00 0.00 12/967784 msg_message [132] + 0.00 0.00 6/6 make_undead_unit [1188] + 0.00 0.00 12/392959 add_message [434] + 0.00 0.00 12/71815034 get_race [12] + 0.00 0.00 9/201744 lovar [644] + 0.00 0.00 15/355423 deathcount [674] + 0.00 0.00 12/1009028 msg_release [1373] + 0.00 0.00 6/608 co_get_region [1594] +----------------------------------------------- + 0.00 0.00 16132/16132 teach_unit [426] +[897] 0.0 0.00 0.00 16132 magic_lowskill [897] + 0.00 0.00 16132/12560453 rc_changed [256] + 0.00 0.00 16132/129167539 u_race [89] + 0.00 0.00 1/71815034 get_race [12] +----------------------------------------------- + 0.00 0.00 80/80 process [7] +[898] 0.0 0.00 0.00 80 combatspell_cmd [898] + 0.00 0.00 37/365 unit_getspell [758] + 0.00 0.00 100/2281756 gettoken [195] + 0.00 0.00 27/15102 cmistake [718] + 0.00 0.00 10/10 set_combatspell [1146] + 0.00 0.00 43/43 unset_combatspell [1167] + 0.00 0.00 115/1787006 findparam [458] + 0.00 0.00 80/1027665 init_order [613] + 0.00 0.00 10/57138 getint [699] +----------------------------------------------- + 0.00 0.00 71/1936 disband_men [999] + 0.00 0.00 567/1936 give_men [857] + 0.00 0.00 1298/1936 add_recruits [371] +[899] 0.0 0.00 0.00 1936 transfermen [899] + 0.00 0.00 3730/51974272 a_find [65] + 0.00 0.00 1936/3178 scale_number [969] + 0.00 0.00 1865/1474687 leftship [500] + 0.00 0.00 1610/1610 transfer_curse [1039] + 0.00 0.00 698/1956810 add_skill [355] + 0.00 0.00 71/264251 rsetpeasants [545] + 0.00 0.00 71/2605004 rpeasants [435] + 0.00 0.00 142/129167539 u_race [89] + 0.00 0.00 5/234 set_leftship [1134] + 0.00 0.00 108170/595705 unit_skill [1391] + 0.00 0.00 1865/603524 set_number [1387] + 0.00 0.00 95/51060 remove_skill [1456] +----------------------------------------------- + 0.00 0.00 2/16493 start_battle [297] + 0.00 0.00 237/16493 quit [276] + 0.00 0.00 16254/16493 IsImmune [901] +[900] 0.0 0.00 0.00 16493 NewbieImmunity [900] + 0.00 0.00 16493/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 65/16669 steal_cmd [766] + 0.00 0.00 1431/16669 start_battle [297] + 0.00 0.00 15173/16669 can_start_guarding [679] +[901] 0.0 0.00 0.00 16669 IsImmune [901] + 0.00 0.00 16254/16493 NewbieImmunity [900] +----------------------------------------------- + 0.00 0.00 56/3110 update_long_order [270] + 0.00 0.00 165/3110 build_building [696] + 0.00 0.00 2889/3110 create_unit [296] +[902] 0.0 0.00 0.00 3110 default_order [902] + 0.00 0.00 3110/635885 copy_order [441] + 0.00 0.00 2/447808 create_order [341] + 0.00 0.00 2/20777534 config_get [224] + 0.00 0.00 3110/2124526 locale_index [1354] + 0.00 0.00 2/65 findkeyword [1665] +----------------------------------------------- + 0.00 0.00 2/2831 do_fumble [1062] + 0.00 0.00 767/2831 spellcost [995] + 0.00 0.00 2062/2831 magic [157] +[903] 0.0 0.00 0.00 2831 countspells [903] + 0.00 0.00 2831/2426021 get_mage [198] +----------------------------------------------- + 0.00 0.00 1700/1700 process [7] +[904] 0.0 0.00 0.00 1700 status_cmd [904] + 0.00 0.00 1700/2281756 gettoken [195] + 0.00 0.00 1700/1787006 findparam [458] + 0.00 0.00 1700/1027665 init_order [613] + 0.00 0.00 17/69432 getparam [681] + 0.00 0.00 1683/599650 setstatus [1390] +----------------------------------------------- + 0.00 0.00 923/923 name_unit [803] +[905] 0.0 0.00 0.00 923 race_namegen [905] + 0.00 0.00 666/666 generic_name [962] + 0.00 0.00 74/74 ghoul_name [1029] + 0.00 0.00 70/70 skeleton_name [1035] + 0.00 0.00 52/52 zombie_name [1056] + 0.00 0.00 27/27 dragon_name [1095] + 0.00 0.00 34/34 dracoid_name [1126] +----------------------------------------------- + 0.00 0.00 1/1 processorders [6] +[906] 0.0 0.00 0.00 1 wormholes_update [906] + 0.00 0.00 1/1 select_wormhole_regions [909] + 0.00 0.00 1/1 make_wormholes [1151] + 0.00 0.00 1/560926 bt_find [237] + 0.00 0.00 1/1 sort_wormhole_regions [1864] +----------------------------------------------- + 0.00 0.00 834/834 parse_symbol [42] +[907] 0.0 0.00 0.00 834 eval_resources [907] + 0.00 0.00 1490/24887945 locale_string [27] + 0.00 0.00 1490/13259934 resourcename [233] + 0.00 0.00 834/13102790 opstack_pop [176] + 0.00 0.00 834/13102790 opstack_push [202] + 0.00 0.00 1490/36653945 wrptr [178] + 0.00 0.00 834/13399069 balloc [363] +----------------------------------------------- + 0.00 0.00 81/81 allocate_resource [752] +[908] 0.0 0.00 0.00 81 can_guard [908] + 0.00 0.00 81/1437425 cansee [22] + 0.00 0.00 79/771861 armedmen [151] + 0.00 0.00 79/9953180 alliedunit [31] + 0.00 0.00 79/129167539 u_race [89] + 0.00 0.00 79/8506411 besieged [547] +----------------------------------------------- + 0.00 0.00 1/1 wormholes_update [906] +[909] 0.0 0.00 0.00 1 select_wormhole_regions [909] + 0.00 0.00 178255/178255 good_region [910] + 0.00 0.00 3/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.00 178255/178255 select_wormhole_regions [909] +[910] 0.0 0.00 0.00 178255 good_region [910] + 0.00 0.00 174658/18647447 getplane [596] +----------------------------------------------- + 0.00 0.00 443/443 res_changepermaura [912] +[911] 0.0 0.00 0.00 443 change_maxspellpoints [911] + 0.00 0.00 443/5358 max_spellpoints [755] + 0.00 0.00 443/2426021 get_mage [198] +----------------------------------------------- + 0.00 0.00 86/443 change_resource [240] + 0.00 0.00 357/443 get_resource [99] +[912] 0.0 0.00 0.00 443 res_changepermaura [912] + 0.00 0.00 443/443 change_maxspellpoints [911] +----------------------------------------------- + 0.00 0.00 5925/5925 readfaction [767] +[913] 0.0 0.00 0.00 5925 addally [913] + 0.00 0.00 5925/4625636 findfaction [259] + 0.00 0.00 5925/10383360 HelpMask [288] + 0.00 0.00 5925/55547 ally_add [1452] + 0.00 0.00 2941/34565 ur_add [1472] +----------------------------------------------- + 0.00 0.00 1422/1422 split_allocations [743] +[914] 0.0 0.00 0.00 1422 attrib_allocation [914] + 0.00 0.00 1584/1584 produce_resource [994] + 0.00 0.00 1414/3123 limit_resource [943] + 0.00 0.00 1596/7641081 genrand_int31 [171] + 0.00 0.00 1422/51974272 a_find [65] + 0.00 0.00 4789/7493 required [1527] + 0.00 0.00 11/11 produce_seeds [1725] + 0.00 0.00 7/30 limit_seeds [1691] + 0.00 0.00 1/2 limit_mallornseeds [1775] + 0.00 0.00 1/1 produce_mallornseeds [1829] +----------------------------------------------- + 0.00 0.00 1725/1725 add_skill [355] +[915] 0.0 0.00 0.00 1725 max_magicians [915] + 0.00 0.00 1725/71815034 get_race [12] + 0.00 0.00 1725/51974272 a_find [65] + 0.00 0.00 1725/4984610 config_get_int [348] +----------------------------------------------- + +[916] 0.0 0.00 0.00 tolua_unit_create [916] + 0.00 0.00 6/2889 create_unit [296] + 0.00 0.00 6/68430117 rc_find [15] +----------------------------------------------- + 0.00 0.00 1/1 process [7] +[917] 0.0 0.00 0.00 1 promotion_cmd [917] + 0.00 0.00 1/461 maxheroes [492] + 0.00 0.00 1/967 count_all [357] + 0.00 0.00 1/457 countheroes [572] + 0.00 0.00 1/860263 use_pooled [39] + 0.00 0.00 1/541982 get_pooled [104] + 0.00 0.00 1/967784 msg_message [132] + 0.00 0.00 1/392959 add_message [434] + 0.00 0.00 1/129167539 u_race [89] + 0.00 0.00 1/56052475 get_resourcetype [194] + 0.00 0.00 1/1 valid_race [1893] + 0.00 0.00 1/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 61/3496 json_keyword [1127] + 0.00 0.00 3435/3496 xml_readstrings [863] +[918] 0.0 0.00 0.00 3496 locale_setstring [918] + 0.00 0.00 3496/32337529 hashstring [37] +----------------------------------------------- + 0.00 0.00 1551/8034 spskill [53] + 0.00 0.00 1637/8034 cr_output_unit [19] + 0.00 0.00 4846/8034 eff_stealth [163] +[919] 0.0 0.00 0.00 8034 u_geteffstealth [919] + 0.00 0.00 8034/51974272 a_find [65] + 0.00 0.00 8034/21345834 skill_enabled [365] +----------------------------------------------- + 0.00 0.00 232/232 writefaction [762] +[920] 0.0 0.00 0.00 232 write_groups [920] + 0.00 0.00 1692/841675 a_write [299] + 0.00 0.00 51104/647569 write_faction_reference [1382] +----------------------------------------------- + 0.00 0.00 35/35 mail_cmd [844] +[921] 0.0 0.00 0.00 35 mailunit [921] + 0.00 0.00 35/39 deliverMail [966] + 0.00 0.00 35/1437425 cansee [22] + 0.00 0.00 35/145 findunitr [991] +----------------------------------------------- + 0.00 0.00 1196/1196 parse_symbol [42] +[922] 0.0 0.00 0.00 1196 eval_localize [922] + 0.00 0.00 1196/24887945 locale_string [27] + 0.00 0.00 1196/13102790 opstack_pop [176] + 0.00 0.00 1196/13102790 opstack_push [202] + 0.00 0.00 1196/13399069 balloc [363] +----------------------------------------------- + 0.00 0.00 2/2 do_combatmagic [825] +[923] 0.0 0.00 0.00 2 sp_igjarjuk [923] + 0.00 0.00 2/2 summon_allies [925] + 0.00 0.00 2/361 regionname [987] + 0.00 0.00 2/2383101 unitname [142] + 0.00 0.00 2/71815034 get_race [12] + 0.00 0.00 2/64 log_info [1339] + 0.00 0.00 2/3862 unit_setname [1540] +----------------------------------------------- + +[924] 0.0 0.00 0.00 cb_foreach_i [924] + 0.00 0.00 324/324 add_resourcename_cb [977] + 0.00 0.00 324/324 add_itemname_cb [980] +----------------------------------------------- + 0.00 0.00 2/2 sp_igjarjuk [923] +[925] 0.0 0.00 0.00 2 summon_allies [925] + 0.00 0.00 2/1297 make_fighter [424] + 0.00 0.00 2/2889 create_unit [296] + 0.00 0.00 2/2887 leave [432] + 0.00 0.00 2/1486 message_all [834] + 0.00 0.00 2/967784 msg_message [132] + 0.00 0.00 2/1381157 unit_max_hp [136] + 0.00 0.00 2/779419 a_add [555] + 0.00 0.00 2/599650 setstatus [1390] + 0.00 0.00 2/779868 a_new [1376] + 0.00 0.00 2/1009028 msg_release [1373] + 0.00 0.00 2/2854 is_attacker [1550] +----------------------------------------------- + 0.00 0.00 138/6530 renumber_cmd [780] + 0.00 0.00 623/6530 mail_cmd [844] + 0.00 0.00 639/6530 do_enter [128] + 0.00 0.00 2013/6530 display_cmd [859] + 0.00 0.00 3117/6530 name_cmd [835] +[926] 0.0 0.00 0.00 6530 findparam_ex [926] + 0.00 0.00 6530/1787006 findparam [458] + 0.00 0.00 2/4261 findbuildingtype [866] +----------------------------------------------- + 0.00 0.00 2/8898 sp_enterastral [1045] + 0.00 0.00 20/8898 can_give_to [600] + 0.00 0.00 50/8898 give_cmd [102] + 0.00 0.00 186/8898 mayboard [1046] + 0.00 0.00 317/8898 mayenter [936] + 0.00 0.00 397/8898 is_guardian_u [626] + 0.00 0.00 588/8898 give_men [857] + 0.00 0.00 1198/8898 check_ship_allowed [657] + 0.00 0.00 6140/8898 bewegung_blockiert_von [631] +[927] 0.0 0.00 0.00 8898 ucontact [927] + 0.00 0.00 8144/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 58/30308 peasant_luck_effect [984] + 0.00 0.00 30250/30308 peasants [658] +[928] 0.0 0.00 0.00 30308 peasant_growth_factor [928] + 0.00 0.00 30308/717218 config_get_flt [714] +----------------------------------------------- + 0.00 0.00 7815/7815 show_new_spells [889] +[929] 0.0 0.00 0.00 7815 already_seen [929] + 0.00 0.00 7815/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 4024/4024 a_write [299] +[930] 0.0 0.00 0.00 4024 curse_write [930] + 0.00 0.00 4024/604861 write_unit_reference [557] + 0.00 0.00 3/3 write_skill [1769] +----------------------------------------------- + 0.00 0.00 1/10 do_fumble [1062] + 0.00 0.00 9/10 magic [157] +[931] 0.0 0.00 0.00 10 sp_hain [931] + 0.00 0.00 9/28 report_effect [861] + 0.00 0.00 18/967784 msg_message [132] + 0.00 0.00 9/201744 lovar [644] + 0.00 0.00 1/15102 cmistake [718] + 0.00 0.00 9/10053919 rtrees [302] + 0.00 0.00 18/1009028 msg_release [1373] + 0.00 0.00 10/608 co_get_region [1594] + 0.00 0.00 9/229715 rsettrees [1410] +----------------------------------------------- + 0.00 0.00 9/105 melt_iceberg [1082] + 0.00 0.00 96/105 chaos [848] +[932] 0.0 0.00 0.00 105 terraform_region [932] + 0.00 0.00 105/105 terraform_resources [986] + 0.00 0.00 48/32727 rsetherbtype [537] + 0.00 0.00 48/48 makename [1084] + 0.00 0.00 298/7641081 genrand_int31 [171] + 0.00 0.00 48/60 equip_items [1121] + 0.00 0.00 57/264251 rsetpeasants [545] + 0.00 0.00 29/752645 chance [495] + 0.00 0.00 10/369586 r_connect [474] + 0.00 0.00 57/2186159 rsetmoney [553] + 0.00 0.00 58/10053919 rtrees [302] + 0.00 0.00 252/229715 rsettrees [1410] + 0.00 0.00 64/257693 rsethorses [1408] + 0.00 0.00 57/178311 region_setinfo [1422] + 0.00 0.00 57/10475 i_freeall [1515] + 0.00 0.00 57/57 free_land [1673] + 0.00 0.00 48/32727 region_set_morale [1476] + 0.00 0.00 48/48 region_setname [1683] + 0.00 0.00 48/48 get_maxluxuries [1682] + 0.00 0.00 48/2742 get_equipment [1551] + 0.00 0.00 48/101322 rsetherbs [1438] + 0.00 0.00 29/1511812 newterrain [1359] +----------------------------------------------- + 0.00 0.00 3/1873 do_fumble [1062] + 0.00 0.00 1870/1873 regenerate_aura [346] +[933] 0.0 0.00 0.00 1873 set_spellpoints [933] + 0.00 0.00 1873/2426021 get_mage [198] +----------------------------------------------- + 0.00 0.00 1/45891 sp_summonshadowlords [1034] + 0.00 0.00 17/45891 study_cmd [105] + 0.00 0.00 724/45891 study_cost [433] + 0.00 0.00 45149/45891 drain_exp [850] +[934] 0.0 0.00 0.00 45891 get_level [934] + 0.00 0.00 45891/21345834 skill_enabled [365] +----------------------------------------------- + 0.00 0.00 56/56 use_item [765] +[935] 0.0 0.00 0.00 56 use_bloodpotion [935] + 0.00 0.00 56/860263 use_pooled [39] + 0.00 0.00 56/967784 msg_message [132] + 0.00 0.00 56/392959 add_message [434] + 0.00 0.00 56/71815034 get_race [12] + 0.00 0.00 56/404 usetpotionuse [1078] + 0.00 0.00 55/2977 change_effect [982] + 0.00 0.00 58/129167539 u_race [89] + 0.00 0.00 1/68430117 rc_find [15] + 0.00 0.00 1/3 trigger_changerace [1297] + 0.00 0.00 1/2868601 u_irace [257] + 0.00 0.00 1/11 add_trigger [1260] + 0.00 0.00 1/7641081 genrand_int31 [171] + 0.00 0.00 56/1009028 msg_release [1373] + 0.00 0.00 1/5 trigger_timeout [1753] + 0.00 0.00 1/600145 u_setrace [1389] +----------------------------------------------- + 0.00 0.00 401/401 enter_building [695] +[936] 0.0 0.00 0.00 401 mayenter [936] + 0.00 0.00 401/593636 building_owner [232] + 0.00 0.00 215/9953180 alliedunit [31] + 0.00 0.00 317/8898 ucontact [927] +----------------------------------------------- + 0.00 0.00 791/791 ally_cmd [877] +[937] 0.0 0.00 0.00 791 getfaction [937] + 0.00 0.00 791/228907 getid [483] + 0.00 0.00 791/4625636 findfaction [259] +----------------------------------------------- + 0.00 0.00 230/45860 report_computer [9] + 0.00 0.00 45630/45860 cr_output_region [10] +[938] 0.0 0.00 0.00 45860 print_items [938] + 0.00 0.00 446/4434556 translate [75] + 0.00 0.00 446/24887945 locale_string [27] + 0.00 0.00 446/13259934 resourcename [233] +----------------------------------------------- + 0.00 0.00 3/3 magic [157] +[939] 0.0 0.00 0.00 3 sp_song_of_peace [939] + 0.00 0.00 3/45 create_curse [800] + 0.00 0.00 30/1437425 cansee [22] + 0.00 0.00 30/12265 r_addmessage [779] + 0.00 0.00 5/967784 msg_message [132] + 0.00 0.00 3/201744 lovar [644] + 0.00 0.00 3/12246335 ct_find [114] + 0.00 0.00 5/1009028 msg_release [1373] + 0.00 0.00 3/608 co_get_region [1594] +----------------------------------------------- + 0.00 0.00 71/659 disband_men [999] + 0.00 0.00 588/659 give_men [857] +[940] 0.0 0.00 0.00 659 can_give_men [940] + 0.00 0.00 659/71815034 get_race [12] + 0.00 0.00 659/2624955 has_skill [193] + 0.00 0.00 349/12246335 ct_find [114] + 0.00 0.00 349/10190660 get_curse [143] + 0.00 0.00 659/129167539 u_race [89] + 0.00 0.00 349/4201030 curse_active [543] + 0.00 0.00 659/1361 unit_has_cursed_item [1577] + 0.00 0.00 349/651711 oldcursename [1381] +----------------------------------------------- + 0.00 0.00 345/345 use_potion [801] +[941] 0.0 0.00 0.00 345 do_potion [941] + 0.00 0.00 51/51 potion_water_of_life [945] + 0.00 0.00 232/2977 change_effect [982] + 0.00 0.00 62/62 potion_luck [1176] +----------------------------------------------- + 0.00 0.00 508/508 regenerate_aura [346] +[942] 0.0 0.00 0.00 508 regeneration [942] + 0.00 0.00 508/12320804 effskill [100] + 0.00 0.00 1016/1336242 rng_injectable_double [396] + 0.00 0.00 508/129167539 u_race [89] + 0.00 0.00 508/508 MagicRegeneration [1185] +----------------------------------------------- + 0.00 0.00 1414/3123 attrib_allocation [914] + 0.00 0.00 1709/3123 allocate_resource [752] +[943] 0.0 0.00 0.00 3123 limit_resource [943] + 0.00 0.00 3123/34611296 strlcpy [45] + 0.00 0.00 3123/987128 strlcat [1374] +----------------------------------------------- + 0.00 0.00 230/230 report_plaintext [4] +[944] 0.0 0.00 0.00 230 gamedate_season [944] + 0.00 0.00 1150/24887945 locale_string [27] + 0.00 0.00 230/40692 get_gamedate [1466] +----------------------------------------------- + 0.00 0.00 51/51 do_potion [941] +[945] 0.0 0.00 0.00 51 potion_water_of_life [945] + 0.00 0.00 51/860263 use_pooled [39] + 0.00 0.00 51/967784 msg_message [132] + 0.00 0.00 51/392959 add_message [434] + 0.00 0.00 51/2032164 rt_find [597] + 0.00 0.00 51/10053919 rtrees [302] + 0.00 0.00 2/4984610 config_get_int [348] + 0.00 0.00 51/2386892 config_changed [1352] + 0.00 0.00 51/229715 rsettrees [1410] + 0.00 0.00 51/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 2/122 create_ship [1014] + 0.00 0.00 120/122 continue_ship [813] +[946] 0.0 0.00 0.00 122 maxbuild [946] + 0.00 0.00 122/541982 get_pooled [104] + 0.00 0.00 122/3100 required [1547] +----------------------------------------------- + 0.00 0.00 1/3 config_parse [462] + 0.00 0.00 1/3 reset_game [356] + 0.00 0.00 1/3 readgame [60] +[947] 0.0 0.00 0.00 3 init_locales [947] + 0.00 0.00 2/2 init_locale [948] + 0.00 0.00 2/6 get_or_create_locale [1275] +----------------------------------------------- + 0.00 0.00 2/2 init_locales [947] +[948] 0.0 0.00 0.00 2 init_locale [948] + 0.00 0.00 282/24887945 locale_string [27] + 0.00 0.00 282/8993 addtoken [811] + 0.00 0.00 2/2 init_keywords [1099] + 0.00 0.00 2/2 init_skills [1101] + 0.00 0.00 2/2 init_parameters [1100] + 0.00 0.00 272/2818494 rc_name_s [260] + 0.00 0.00 2/2 init_terrains_translation [1129] + 0.00 0.00 2/2 init_directions [1143] + 0.00 0.00 2/2 init_options_translation [1157] + 0.00 0.00 10/4133717 mkname [261] + 0.00 0.00 4/4558423 get_translations [437] + 0.00 0.00 2/20777534 config_get [224] +----------------------------------------------- + 0.00 0.00 356/356 cr_render [196] +[949] 0.0 0.00 0.00 356 cr_race [949] + 0.00 0.00 356/4434556 translate [75] + 0.00 0.00 356/24887945 locale_string [27] + 0.00 0.00 356/2818494 rc_name_s [260] +----------------------------------------------- + 0.00 0.00 41/41 make_cmd [383] +[950] 0.0 0.00 0.00 41 build_road [950] + 0.00 0.00 21/860263 use_pooled [39] + 0.00 0.00 23/541982 get_pooled [104] + 0.00 0.00 60/143730 rroad [508] + 0.00 0.00 21/967784 msg_message [132] + 0.00 0.00 41/12320804 effskill [100] + 0.00 0.00 21/22 rsetroad [1152] + 0.00 0.00 16/41248 msg_feedback [647] + 0.00 0.00 37/392959 add_message [434] + 0.00 0.00 36/369586 r_connect [474] + 0.00 0.00 21/472418 produceexp [322] + 0.00 0.00 44/71815034 get_race [12] + 0.00 0.00 5/560926 bt_find [237] + 0.00 0.00 4/15102 cmistake [718] + 0.00 0.00 11/6010308 i_find [127] + 0.00 0.00 11/2858912 get_effect [225] + 0.00 0.00 44/129167539 u_race [89] + 0.00 0.00 55/56052475 get_resourcetype [194] + 0.00 0.00 41/8506411 besieged [547] + 0.00 0.00 114/1511812 newterrain [1359] + 0.00 0.00 37/1009028 msg_release [1373] + 0.00 0.00 5/75797 buildingtype_exists [1443] +----------------------------------------------- + 0.00 0.00 10/492 set_combatspell [1146] + 0.00 0.00 482/492 knowsspell [956] +[951] 0.0 0.00 0.00 492 u_hasspell [951] + 0.00 0.00 489/12320804 effskill [100] + 0.00 0.00 492/597806 unit_get_spellbook [427] + 0.00 0.00 489/2112 spellbook_get [1557] +----------------------------------------------- + 0.00 0.00 114/114 give_cmd [102] +[952] 0.0 0.00 0.00 114 give_unit [952] + 0.00 0.00 112/94420 add_give [379] + 0.00 0.00 112/9953180 alliedunit [31] + 0.00 0.00 224/2624955 has_skill [193] + 0.00 0.00 114/118 rule_transfermen [1204] + 0.00 0.00 114/702 max_transfers [1109] + 0.00 0.00 112/129167539 u_race [89] + 0.00 0.00 2/15102 cmistake [718] + 0.00 0.00 112/56052475 get_resourcetype [194] + 0.00 0.00 112/598129 u_setfaction [1111] + 0.00 0.00 114/1361 unit_has_cursed_item [1577] +----------------------------------------------- +[953] 0.0 0.00 0.00 1564+36 [953] + 0.00 0.00 1582 write_triggers [954] + 0.00 0.00 18 timeout_write [1711] +----------------------------------------------- + 18 timeout_write [1711] + 0.00 0.00 1564/1564 write_handler [955] +[954] 0.0 0.00 0.00 1582 write_triggers [954] + 0.00 0.00 2304/2304 killunit_write [978] + 0.00 0.00 769/769 shock_write [1050] + 0.00 0.00 12/12 changefaction_write [1258] + 0.00 0.00 6/6 changerace_write [1287] + 0.00 0.00 2/2 giveitem_write [1309] + 0.00 0.00 1/1 clonedied_write [1321] + 0.00 0.00 1/1 caldera_write [1795] + 18 timeout_write [1711] +----------------------------------------------- + 0.00 0.00 1564/1564 a_write [299] +[955] 0.0 0.00 0.00 1564 write_handler [955] + 0.00 0.00 1564/1564 write_triggers [954] +----------------------------------------------- + 0.00 0.00 10/482 set_combatspell [1146] + 0.00 0.00 221/482 cast_cmd [760] + 0.00 0.00 251/482 cancast [833] +[956] 0.0 0.00 0.00 482 knowsspell [956] + 0.00 0.00 482/492 u_hasspell [951] +----------------------------------------------- + 0.00 0.00 21/21 cast_combatspell [623] +[957] 0.0 0.00 0.00 21 sp_kampfzauber [957] + 0.00 0.00 45/80630 terminate [242] + 0.00 0.00 45/372173 select_enemy [172] + 0.00 0.00 21/1486 message_all [834] + 0.00 0.00 21/967784 msg_message [132] + 0.00 0.00 21/201744 lovar [644] + 0.00 0.00 21/876979 count_enemies [611] + 0.00 0.00 21/74 spell_damage [1657] + 0.00 0.00 21/74 get_force [1656] + 0.00 0.00 21/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1/178429 sp_holyground [1068] + 0.00 0.00 59/178429 setstealth_cmd [182] + 0.00 0.00 115/178429 reshow [822] + 0.00 0.00 178254/178429 age_piracy [959] +[958] 0.0 0.00 0.00 178429 a_removeall [958] + 0.00 0.00 2172/454395 a_free [558] +----------------------------------------------- + 0.00 0.00 178254/178254 move_pirates [326] +[959] 0.0 0.00 0.00 178254 age_piracy [959] + 0.00 0.00 178254/178429 a_removeall [958] +----------------------------------------------- + 0.00 0.00 210/210 cr_render [196] +[960] 0.0 0.00 0.00 210 cr_resources [960] + 0.00 0.00 352/4434556 translate [75] + 0.00 0.00 352/24887945 locale_string [27] + 0.00 0.00 352/13259934 resourcename [233] +----------------------------------------------- + 0.00 0.00 604/604 parse_symbol [42] +[961] 0.0 0.00 0.00 604 eval_spell [961] + 0.00 0.00 604/86400 spell_name [646] + 0.00 0.00 604/13102790 opstack_pop [176] + 0.00 0.00 604/13102790 opstack_push [202] + 0.00 0.00 604/13399069 balloc [363] +----------------------------------------------- + 0.00 0.00 666/666 race_namegen [905] +[962] 0.0 0.00 0.00 666 generic_name [962] + 0.00 0.00 666/24887945 locale_string [27] + 0.00 0.00 666/2818494 rc_name_s [260] + 0.00 0.00 666/129167539 u_race [89] + 0.00 0.00 666/3862 unit_setname [1540] +----------------------------------------------- + 0.00 0.00 47/47 reshow_other [823] +[963] 0.0 0.00 0.00 47 display_race [963] + 0.00 0.00 495/24887945 locale_string [27] + 0.00 0.00 47/48 addmessage [1069] + 0.00 0.00 211/17451017 strlcpy_w [67] + 0.00 0.00 47/779486 locale_getstring [266] + 0.00 0.00 456/36653945 wrptr [178] + 0.00 0.00 86/4133717 mkname [261] + 0.00 0.00 47/2818494 rc_name_s [260] + 0.00 0.00 211/5461936 slprintf [548] +----------------------------------------------- + 0.00 0.00 9352/9352 nr_spell [507] +[964] 0.0 0.00 0.00 9352 write_spell_modifier [964] + 0.00 0.00 2478/34611296 strlcpy [45] +----------------------------------------------- + 0.00 0.00 147/147 do_contact [250] +[965] 0.0 0.00 0.00 147 contact_cmd [965] + 0.00 0.00 147/888603 findunit [123] + 0.00 0.00 147/284005 read_unitid [413] + 0.00 0.00 115/115 usetcontact [1147] + 0.00 0.00 147/1027665 init_order [613] + 0.00 0.00 115/192 can_contact [1634] +----------------------------------------------- + 0.00 0.00 4/39 mailfaction [1106] + 0.00 0.00 35/39 mailunit [921] +[966] 0.0 0.00 0.00 39 deliverMail [966] + 0.00 0.00 39/1437425 cansee [22] + 0.00 0.00 39/967784 msg_message [132] + 0.00 0.00 39/392959 add_message [434] + 0.00 0.00 39/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 5049/5049 piracy_cmd [660] +[967] 0.0 0.00 0.00 5049 find_piracy_target [967] + 0.00 0.00 5049/51974272 a_find [65] + 0.00 0.00 2/9953180 alliedunit [31] +----------------------------------------------- + 0.00 0.00 6/6 magic [157] +[968] 0.0 0.00 0.00 6 sp_mallornhain [968] + 0.00 0.00 6/28 report_effect [861] + 0.00 0.00 12/967784 msg_message [132] + 0.00 0.00 6/201744 lovar [644] + 0.00 0.00 6/10053919 rtrees [302] + 0.00 0.00 12/1009028 msg_release [1373] + 0.00 0.00 6/608 co_get_region [1594] + 0.00 0.00 6/229715 rsettrees [1410] +----------------------------------------------- + 0.00 0.00 1/3178 res_changeitem [101] + 0.00 0.00 1/3178 make_zombie [1267] + 0.00 0.00 3/3178 drown [394] + 0.00 0.00 4/3178 age_firedragon [1123] + 0.00 0.00 7/3178 age_ghoul [1024] + 0.00 0.00 16/3178 damage_unit [1044] + 0.00 0.00 17/3178 age_zombie [1019] + 0.00 0.00 19/3178 age_skeleton [1008] + 0.00 0.00 27/3178 hunger [808] + 0.00 0.00 41/3178 dissolve_units [241] + 0.00 0.00 425/3178 aftermath [701] + 0.00 0.00 681/3178 absorbed_by_monster [804] + 0.00 0.00 1936/3178 transfermen [899] +[969] 0.0 0.00 0.00 3178 scale_number [969] + 0.00 0.00 3035/51974272 a_find [65] + 0.00 0.00 1279/7641081 genrand_int31 [171] + 0.00 0.00 50953/51060 remove_skill [1456] + 0.00 0.00 3036/603524 set_number [1387] +----------------------------------------------- + 0.00 0.00 52/196 zombie_name [1056] + 0.00 0.00 70/196 skeleton_name [1035] + 0.00 0.00 74/196 ghoul_name [1029] +[970] 0.0 0.00 0.00 196 make_name [970] + 0.00 0.00 407/779486 locale_getstring [266] + 0.00 0.00 588/7641081 genrand_int31 [171] + 0.00 0.00 3/3 count_particles [1089] + 0.00 0.00 76/34611296 strlcpy [45] + 0.00 0.00 542/987128 strlcat [1374] + 0.00 0.00 196/3862 unit_setname [1540] +----------------------------------------------- + 0.00 0.00 2/1201 sp_bloodsacrifice [1209] + 0.00 0.00 1199/1201 res_changeaura [972] +[971] 0.0 0.00 0.00 1201 change_spellpoints [971] + 0.00 0.00 1201/2426021 get_mage [198] +----------------------------------------------- + 0.00 0.00 216/1199 change_resource [240] + 0.00 0.00 983/1199 get_resource [99] +[972] 0.0 0.00 0.00 1199 res_changeaura [972] + 0.00 0.00 1199/1201 change_spellpoints [971] +----------------------------------------------- + 0.00 0.00 8/226 do_combatmagic [825] + 0.00 0.00 23/226 do_combatspell [702] + 0.00 0.00 195/226 magic [157] +[973] 0.0 0.00 0.00 226 fumble [973] + 0.00 0.00 226/12320804 effskill [100] + 0.00 0.00 226/2426021 get_mage [198] + 0.00 0.00 452/12246335 ct_find [114] + 0.00 0.00 452/10190660 get_curse [143] + 0.00 0.00 226/4984610 config_get_int [348] + 0.00 0.00 83/7641081 genrand_int31 [171] + 0.00 0.00 452/4201030 curse_active [543] + 0.00 0.00 452/651711 oldcursename [1381] + 0.00 0.00 226/26995 inside_building [1486] + 0.00 0.00 226/26164 building_is_active [1488] +----------------------------------------------- + 0.00 0.00 4/4 magic [157] +[974] 0.0 0.00 0.00 4 sp_goodwinds [974] + 0.00 0.00 4/45 create_curse [800] + 0.00 0.00 13/12265 r_addmessage [779] + 0.00 0.00 4/967784 msg_message [132] + 0.00 0.00 4/12246335 ct_find [114] + 0.00 0.00 4/608 co_get_region [1594] + 0.00 0.00 4/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 4475/4475 build [691] +[975] 0.0 0.00 0.00 4475 matmod [975] + 0.00 0.00 4475/51974272 a_find [65] + 0.00 0.00 505/505 mm_smithy [1203] +----------------------------------------------- + +[976] 0.0 0.00 0.00 tolua_region_get_resource [976] + 0.00 0.00 3355/2032164 rt_find [597] + 0.00 0.00 2772/10053919 rtrees [302] + 0.00 0.00 3355/3355 region_getresource [1058] + 0.00 0.00 6127/7889 special_resources [1526] +----------------------------------------------- + 0.00 0.00 324/324 cb_foreach_i [924] +[977] 0.0 0.00 0.00 324 add_resourcename_cb [977] + 0.00 0.00 648/24887945 locale_string [27] + 0.00 0.00 648/4457785 transliterate [358] + 0.00 0.00 648/13259934 resourcename [233] + 0.00 0.00 324/2124526 locale_index [1354] +----------------------------------------------- + 0.00 0.00 2304/2304 write_triggers [954] +[978] 0.0 0.00 0.00 2304 killunit_write [978] + 0.00 0.00 2304/604861 write_unit_reference [557] +----------------------------------------------- + 0.00 0.00 406/406 readfaction [767] +[979] 0.0 0.00 0.00 406 faction_setorigin [979] + 0.00 0.00 406/760673 addlist [217] +----------------------------------------------- + 0.00 0.00 324/324 cb_foreach_i [924] +[980] 0.0 0.00 0.00 324 add_itemname_cb [980] + 0.00 0.00 628/24887945 locale_string [27] + 0.00 0.00 628/4457785 transliterate [358] + 0.00 0.00 628/13259934 resourcename [233] + 0.00 0.00 324/2124526 locale_index [1354] +----------------------------------------------- + 0.00 0.00 1/1 randomevents [91] +[981] 0.0 0.00 0.00 1 volcano_update [981] + 0.00 0.00 6/6 volcano_outbreak [1023] + 0.00 0.00 648/7641081 genrand_int31 [171] + 0.00 0.00 37/967784 msg_message [132] + 0.00 0.00 37/392959 add_message [434] + 0.00 0.00 85/51974272 a_find [65] + 0.00 0.00 6/6 rrandneighbour [1221] + 0.00 0.00 37/1009028 msg_release [1373] + 0.00 0.00 2/178270 get_terrain [1423] +----------------------------------------------- + 0.00 0.00 7/2977 allocate_resource [752] + 0.00 0.00 9/2977 movement_speed [155] + 0.00 0.00 55/2977 use_bloodpotion [935] + 0.00 0.00 95/2977 build [691] + 0.00 0.00 232/2977 do_potion [941] + 0.00 0.00 1118/2977 study_cmd [105] + 0.00 0.00 1461/2977 get_food [88] +[982] 0.0 0.00 0.00 2977 change_effect [982] + 0.00 0.00 2977/51974272 a_find [65] + 0.00 0.00 105/451774 a_remove [366] + 0.00 0.00 159/779419 a_add [555] + 0.00 0.00 159/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 287/287 readorders [43] +[983] 0.0 0.00 0.00 287 factionorders [983] + 0.00 0.00 287/228907 getid [483] + 0.00 0.00 286/2281756 gettoken [195] + 0.00 0.00 287/4625636 findfaction [259] + 0.00 0.00 4/967784 msg_message [132] + 0.00 0.00 4/392959 add_message [434] + 0.00 0.00 5/5100840 itoa36 [116] + 0.00 0.00 286/286 checkpasswd [1268] + 0.00 0.00 5/49235 log_debug [1245] + 0.00 0.00 4/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 30250/30250 peasants [658] +[984] 0.0 0.00 0.00 30250 peasant_luck_effect [984] + 0.00 0.00 174/147217 normalvariate [376] + 0.00 0.00 58/1336242 rng_injectable_double [396] + 0.00 0.00 58/30308 peasant_growth_factor [928] + 0.00 0.00 58/58 peasant_luck_factor [1277] +----------------------------------------------- + 0.00 0.00 621/621 process [7] +[985] 0.0 0.00 0.00 621 group_cmd [985] + 0.00 0.00 621/54318 getstrtoken [710] + 0.00 0.00 621/735 join_group [1083] + 0.00 0.00 621/1027665 init_order [613] +----------------------------------------------- + 0.00 0.00 105/105 terraform_region [932] +[986] 0.0 0.00 0.00 105 terraform_resources [986] + 0.00 0.00 174/146997 dice_rand [409] + 0.00 0.00 138/752645 chance [495] + 0.00 0.00 58/58 add_resource [1162] + 0.00 0.00 105/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 1/361 tolua_region_tostring [1291] + 0.00 0.00 2/361 sp_igjarjuk [923] + 0.00 0.00 10/361 spawn_dragons [411] + 0.00 0.00 50/361 rsetherbtype [537] + 0.00 0.00 92/361 spawn_undead [629] + 0.00 0.00 206/361 do_battle [64] +[987] 0.0 0.00 0.00 361 regionname [987] + 0.00 0.00 361/515911 write_regionname [280] +----------------------------------------------- + 0.00 0.00 3/3 magic [157] +[988] 0.0 0.00 0.00 3 sp_eternizewall [988] + 0.00 0.00 3/45 create_curse [800] + 0.00 0.00 3/967784 msg_message [132] + 0.00 0.00 5/12265 r_addmessage [779] + 0.00 0.00 3/12246335 ct_find [114] + 0.00 0.00 3/608 co_get_region [1594] + 0.00 0.00 3/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 7/7 do_combatmagic [825] +[989] 0.0 0.00 0.00 7 sp_healing [989] + 0.00 0.00 7/7 fighters [1012] + 0.00 0.00 7/7 scramble_fighters [1116] + 0.00 0.00 14/14 heal_fighters [1158] + 0.00 0.00 7/1486 message_all [834] + 0.00 0.00 7/967784 msg_message [132] + 0.00 0.00 7/7 has_ao_healing [1269] + 0.00 0.00 7/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 16/16 produce [29] +[990] 0.0 0.00 0.00 16 spy_cmd [990] + 0.00 0.00 8/8 spy_message [1038] + 0.00 0.00 96/12320804 effskill [100] + 0.00 0.00 16/282847 getunit [205] + 0.00 0.00 12/1753922 invisible [139] + 0.00 0.00 6/967784 msg_message [132] + 0.00 0.00 8/472418 produceexp [322] + 0.00 0.00 10/392959 add_message [434] + 0.00 0.00 4/41248 msg_feedback [647] + 0.00 0.00 24/752645 chance [495] + 0.00 0.00 16/1027665 init_order [613] + 0.00 0.00 12/192 can_contact [1634] + 0.00 0.00 10/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 35/145 mailunit [921] + 0.00 0.00 110/145 steal_cmd [766] +[991] 0.0 0.00 0.00 145 findunitr [991] + 0.00 0.00 145/1118718 ufindhash [109] +----------------------------------------------- + 0.00 0.00 318/760 resolve_mage [856] + 0.00 0.00 442/760 resolve_familiar [846] +[992] 0.0 0.00 0.00 760 set_familiar [992] + 0.00 0.00 2280/51974272 a_find [65] + 0.00 0.00 760/779419 a_add [555] + 0.00 0.00 760/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 3/3 magic [157] +[993] 0.0 0.00 0.00 3 sp_charmingsong [993] + 0.00 0.00 2/45 create_curse [800] + 0.00 0.00 90/12320804 effskill [100] + 0.00 0.00 3/3 target_resists_magic [1154] + 0.00 0.00 2/967784 msg_message [132] + 0.00 0.00 1/15102 cmistake [718] + 0.00 0.00 1/1 report_failure [1285] + 0.00 0.00 2/392959 add_message [434] + 0.00 0.00 6/11 add_trigger [1260] + 0.00 0.00 2/12246335 ct_find [114] + 0.00 0.00 2/7641081 genrand_int31 [171] + 0.00 0.00 3/3 can_charm [1338] + 0.00 0.00 2/598129 u_setfaction [1111] + 0.00 0.00 2/154110 rule_stealth_anon [1325] + 0.00 0.00 4/5 trigger_killunit [1752] + 0.00 0.00 2/2 trigger_changefaction [1783] + 0.00 0.00 2/5 trigger_timeout [1753] + 0.00 0.00 2/1291427 set_order [1365] + 0.00 0.00 2/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1584/1584 attrib_allocation [914] +[994] 0.0 0.00 0.00 1584 produce_resource [994] + 0.00 0.00 1584/34611296 strlcpy [45] + 0.00 0.00 1584/987128 strlcat [1374] +----------------------------------------------- + 0.00 0.00 249/767 eff_spelllevel [845] + 0.00 0.00 249/767 cancast [833] + 0.00 0.00 269/767 pay_spell [805] +[995] 0.0 0.00 0.00 767 spellcost [995] + 0.00 0.00 767/2831 countspells [903] + 0.00 0.00 767/56052475 get_resourcetype [194] +----------------------------------------------- + 0.00 0.00 183/183 msg_curse [664] +[996] 0.0 0.00 0.00 183 cinfo_magicrunes [996] + 0.00 0.00 174/967784 msg_message [132] +----------------------------------------------- + 0.00 0.00 163/163 msg_curse [664] +[997] 0.0 0.00 0.00 163 cinfo_shipnodrift [997] + 0.00 0.00 163/967784 msg_message [132] +----------------------------------------------- + 0.00 0.00 1522/1522 a_write [299] +[998] 0.0 0.00 0.00 1522 a_write_unit [998] + 0.00 0.00 1522/604861 write_unit_reference [557] +----------------------------------------------- + 0.00 0.00 71/71 give_cmd [102] +[999] 0.0 0.00 0.00 71 disband_men [999] + 0.00 0.00 71/967784 msg_message [132] + 0.00 0.00 71/659 can_give_men [940] + 0.00 0.00 71/1936 transfermen [899] + 0.00 0.00 71/71815034 get_race [12] + 0.00 0.00 71/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 8/225 do_combatmagic [825] + 0.00 0.00 21/225 do_combatspell [702] + 0.00 0.00 196/225 magic [157] +[1000] 0.0 0.00 0.00 225 spellpower [1000] + 0.00 0.00 450/12246335 ct_find [114] + 0.00 0.00 225/5395063 i_get [130] + 0.00 0.00 450/10190660 get_curse [143] + 0.00 0.00 225/4984610 config_get_int [348] + 0.00 0.00 225/2032164 rt_find [597] + 0.00 0.00 450/4201030 curse_active [543] + 0.00 0.00 225/26995 inside_building [1486] + 0.00 0.00 225/26164 building_is_active [1488] +----------------------------------------------- + 0.00 0.00 2723/2723 split_allocations [743] +[1001] 0.0 0.00 0.00 2723 get_allocator [1001] + 0.00 0.00 2723/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 15/15 drifting_ships [490] +[1002] 0.0 0.00 0.00 15 overload [1002] + 0.00 0.00 15/47902 getshipweight [212] +----------------------------------------------- + 0.00 0.00 133/324 travel [81] + 0.00 0.00 191/324 sail [181] +[1003] 0.0 0.00 0.00 324 caught_target [1003] + 0.00 0.00 131/9953180 alliedunit [31] + 0.00 0.00 8/1437425 cansee [22] + 0.00 0.00 324/51974272 a_find [65] + 0.00 0.00 4/967784 msg_message [132] + 0.00 0.00 4/392959 add_message [434] + 0.00 0.00 133/133 present [1643] + 0.00 0.00 4/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 3659/3659 study_cmd [105] +[1004] 0.0 0.00 0.00 3659 ExpensiveMigrants [1004] + 0.00 0.00 3659/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 20/182 create_potion [821] + 0.00 0.00 71/182 manufacture [759] + 0.00 0.00 91/182 build_building [696] +[1005] 0.0 0.00 0.00 182 msg_materials_required [1005] + 0.00 0.00 182/41248 msg_feedback [647] +----------------------------------------------- + 0.00 0.00 957/957 parse_messages [832] +[1006] 0.0 0.00 0.00 957 crt_register [1006] + 0.00 0.00 957/32337529 hashstring [37] + 0.00 0.00 2468/2468 tsf_find [1554] +----------------------------------------------- + 0.00 0.00 957/957 parse_messages [832] +[1007] 0.0 0.00 0.00 957 mt_register [1007] + 0.00 0.00 957/32337529 hashstring [37] + 0.00 0.00 957/957 mt_id [1587] +----------------------------------------------- + 0.00 0.00 1363/1363 age_unit [336] +[1008] 0.0 0.00 0.00 1363 age_skeleton [1008] + 0.00 0.00 725/7641081 genrand_int31 [171] + 0.00 0.00 725/3902878 get_monsters [293] + 0.00 0.00 38/1381157 unit_max_hp [136] + 0.00 0.00 19/71815034 get_race [12] + 0.00 0.00 19/3178 scale_number [969] + 0.00 0.00 19/600145 u_setrace [1389] +----------------------------------------------- + 0.00 0.00 1125/1125 leave [432] +[1009] 0.0 0.00 0.00 1125 leave_building [1009] + 0.00 0.00 92/92 building_update_owner [1010] +----------------------------------------------- + 0.00 0.00 92/92 leave_building [1009] +[1010] 0.0 0.00 0.00 92 building_update_owner [1010] + 0.00 0.00 92/209572 building_owner_ex [253] +----------------------------------------------- + 0.00 0.00 37/37 init_transportation [384] +[1011] 0.0 0.00 0.00 37 transport [1011] + 0.00 0.00 70/282847 getunit [205] + 0.00 0.00 148/55492327 getkeyword [54] + 0.00 0.00 70/1027665 init_order [613] + 0.00 0.00 37/1629412 LongHunger [536] +----------------------------------------------- + 0.00 0.00 7/7 sp_healing [989] +[1012] 0.0 0.00 0.00 7 fighters [1012] + 0.00 0.00 308/1662377 get_unitrow [154] + 0.00 0.00 8/25 allysf [1160] +----------------------------------------------- + 0.00 0.00 1091/1091 loot_items [810] +[1013] 0.0 0.00 0.00 1091 loot_quota [1013] + 0.00 0.00 1062/752645 chance [495] + 0.00 0.00 1062/717218 config_get_flt [714] +----------------------------------------------- + 0.00 0.00 2/2 make_cmd [383] +[1014] 0.0 0.00 0.00 2 create_ship [1014] + 0.00 0.00 2/2887 leave [432] + 0.00 0.00 2/115 build_ship [839] + 0.00 0.00 2/14326 replace_order [526] + 0.00 0.00 2/122 maxbuild [946] + 0.00 0.00 2/2 new_ship [1229] + 0.00 0.00 4/12320804 effskill [100] + 0.00 0.00 2/447808 create_order [341] + 0.00 0.00 2/24887945 locale_string [27] + 0.00 0.00 2/129167539 u_race [89] + 0.00 0.00 2/8506411 besieged [547] + 0.00 0.00 2/27640 u_set_ship [1485] + 0.00 0.00 2/1936876 free_order [1356] +----------------------------------------------- + 0.00 0.00 359/2421 give_men [857] + 0.00 0.00 2062/2421 create_unit [296] +[1015] 0.0 0.00 0.00 2421 set_racename [1015] + 0.00 0.00 2421/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 1/573 config_read [460] + 0.00 0.00 1/573 reports [2] + 0.00 0.00 1/573 writepasswd [1074] + 0.00 0.00 1/573 readgame [60] + 0.00 0.00 1/573 writegame [82] + 0.00 0.00 2/573 writeturn [1253] + 0.00 0.00 2/573 report_summary [614] + 0.00 0.00 2/573 score [23] + 0.00 0.00 3/573 json_include [1283] + 0.00 0.00 559/573 write_reports [3] +[1016] 0.0 0.00 0.00 573 join_path [1016] + 0.00 0.00 1146/34611296 strlcpy [45] +----------------------------------------------- + 0.00 0.00 106/106 a_age [418] +[1017] 0.0 0.00 0.00 106 age_reduceproduction [1017] + 0.00 0.00 100/967784 msg_message [132] + 0.00 0.00 100/392959 add_message [434] + 0.00 0.00 100/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1/307 mail_cmd [844] + 0.00 0.00 306/307 continue_ship [813] +[1018] 0.0 0.00 0.00 307 getship [1018] + 0.00 0.00 307/228907 getid [483] + 0.00 0.00 307/28818 findship [1483] +----------------------------------------------- + 0.00 0.00 688/688 age_unit [336] +[1019] 0.0 0.00 0.00 688 age_zombie [1019] + 0.00 0.00 665/7641081 genrand_int31 [171] + 0.00 0.00 665/3902878 get_monsters [293] + 0.00 0.00 34/1381157 unit_max_hp [136] + 0.00 0.00 17/71815034 get_race [12] + 0.00 0.00 17/3178 scale_number [969] + 0.00 0.00 17/600145 u_setrace [1389] +----------------------------------------------- + 0.00 0.00 133/133 travel [81] +[1020] 0.0 0.00 0.00 133 reroute [1020] + 0.00 0.00 233/113487 next_region [601] +----------------------------------------------- + 0.00 0.00 124/124 age_building [712] +[1021] 0.0 0.00 0.00 124 age_stonecircle [1021] + 0.00 0.00 124/125 r_standard_to_astral [1067] + 0.00 0.00 87/1441945 is_mage [262] + 0.00 0.00 124/987612 get_astralplane [482] + 0.00 0.00 98/752645 chance [495] + 0.00 0.00 15/12320804 effskill [100] + 0.00 0.00 15/12246335 ct_find [114] + 0.00 0.00 97/129167539 u_race [89] + 0.00 0.00 124/56052475 get_resourcetype [194] + 0.00 0.00 15/10190660 get_curse [143] + 0.00 0.00 1/967784 msg_message [132] + 0.00 0.00 1/392959 add_message [434] + 0.00 0.00 1/11241829 i_change [115] + 0.00 0.00 140/26995 inside_building [1486] + 0.00 0.00 1/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 12/12 volcano_outbreak [1023] +[1022] 0.0 0.00 0.00 12 volcano_destruction [1022] + 0.00 0.00 16/16 damage_unit [1044] + 0.00 0.00 13/967784 msg_message [132] + 0.00 0.00 12/1375380 remove_empty_units_in_region [134] + 0.00 0.00 13/392959 add_message [434] + 0.00 0.00 12/7641081 genrand_int31 [171] + 0.00 0.00 12/779419 a_add [555] + 0.00 0.00 12/51974272 a_find [65] + 0.00 0.00 36/229715 rsettrees [1410] + 0.00 0.00 13/1009028 msg_release [1373] + 0.00 0.00 12/12 make_reduceproduction [1722] +----------------------------------------------- + 0.00 0.00 6/6 volcano_update [981] +[1023] 0.0 0.00 0.00 6 volcano_outbreak [1023] + 0.00 0.00 12/12 volcano_destruction [1022] +----------------------------------------------- + 0.00 0.00 708/708 age_unit [336] +[1024] 0.0 0.00 0.00 708 age_ghoul [1024] + 0.00 0.00 653/7641081 genrand_int31 [171] + 0.00 0.00 653/3902878 get_monsters [293] + 0.00 0.00 14/1381157 unit_max_hp [136] + 0.00 0.00 7/71815034 get_race [12] + 0.00 0.00 7/3178 scale_number [969] + 0.00 0.00 7/600145 u_setrace [1389] +----------------------------------------------- + 0.00 0.00 2/2 magic [157] +[1025] 0.0 0.00 0.00 2 sp_summon_familiar [1025] + 0.00 0.00 1/2889 create_unit [296] + 0.00 0.00 1/1380398 nr_render [25] + 0.00 0.00 8/2934859 skillname [122] + 0.00 0.00 1/1 make_familiar [1219] + 0.00 0.00 2/967784 msg_message [132] + 0.00 0.00 15/34611296 strlcpy [45] + 0.00 0.00 1/15102 cmistake [718] + 0.00 0.00 58/21345834 skill_enabled [365] + 0.00 0.00 1/392959 add_message [434] + 0.00 0.00 1/24887945 locale_string [27] + 0.00 0.00 15/36653945 wrptr [178] + 0.00 0.00 2/54351 get_familiar [796] + 0.00 0.00 1/1 select_familiar [1322] + 0.00 0.00 2/608 co_get_region [1594] + 0.00 0.00 2/1009028 msg_release [1373] + 0.00 0.00 1/599650 setstatus [1390] +----------------------------------------------- + 0.00 0.00 279/279 cr_render [196] +[1026] 0.0 0.00 0.00 279 cr_spell [1026] + 0.00 0.00 279/86400 spell_name [646] +----------------------------------------------- + 0.00 0.00 196/196 magic [157] +[1027] 0.0 0.00 0.00 196 verify_targets [1027] + 0.00 0.00 16/16 verify_unit [1028] + 0.00 0.00 4/4 verify_building [1255] + 0.00 0.00 196/608 co_get_region [1594] + 0.00 0.00 22/22 verify_ship [1704] +----------------------------------------------- + 0.00 0.00 16/16 verify_targets [1027] +[1028] 0.0 0.00 0.00 16 verify_unit [1028] + 0.00 0.00 14/1437425 cansee [22] + 0.00 0.00 16/888603 findunit [123] +----------------------------------------------- + 0.00 0.00 74/74 race_namegen [905] +[1029] 0.0 0.00 0.00 74 ghoul_name [1029] + 0.00 0.00 74/196 make_name [970] +----------------------------------------------- + 0.00 0.00 4/338 recruit [650] + 0.00 0.00 103/338 reshow_other [823] + 0.00 0.00 231/338 setstealth_cmd [182] +[1030] 0.0 0.00 0.00 338 findrace [1030] + 0.00 0.00 338/302482 findtoken [501] + 0.00 0.00 338/4558423 get_translations [437] +----------------------------------------------- + 0.00 0.00 3/242 drown [394] + 0.00 0.00 5/242 chaos [848] + 0.00 0.00 234/242 travel_route [147] +[1031] 0.0 0.00 0.00 242 canfly [1031] + 0.00 0.00 242/5395063 i_get [130] + 0.00 0.00 242/1177511 it_find [385] + 0.00 0.00 240/116002 get_movement [750] + 0.00 0.00 242/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 6/6 sp_summonundead [896] +[1032] 0.0 0.00 0.00 6 skill_summoned [1032] + 0.00 0.00 54/2457 set_level [774] + 0.00 0.00 6/1381157 unit_max_hp [136] + 0.00 0.00 6/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 2/6 init_keywords [1099] + 0.00 0.00 2/6 init_skills [1101] + 0.00 0.00 2/6 init_parameters [1100] +[1033] 0.0 0.00 0.00 6 init_translations [1033] + 0.00 0.00 264/24887945 locale_string [27] + 0.00 0.00 264/371 add_translation [1145] + 0.00 0.00 58/58 skill_key [1205] + 0.00 0.00 6/4558423 get_translations [437] + 0.00 0.00 118/118 keyword_key [1647] + 0.00 0.00 88/88 parameter_key [1655] +----------------------------------------------- + 0.00 0.00 1/1 magic [157] +[1034] 0.0 0.00 0.00 1 sp_summonshadowlords [1034] + 0.00 0.00 1/2889 create_unit [296] + 0.00 0.00 2/2457 set_level [774] + 0.00 0.00 1/967784 msg_message [132] + 0.00 0.00 1/392959 add_message [434] + 0.00 0.00 1/71815034 get_race [12] + 0.00 0.00 1/129167539 u_race [89] + 0.00 0.00 1/45891 get_level [934] + 0.00 0.00 1/608 co_get_region [1594] + 0.00 0.00 1/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 70/70 race_namegen [905] +[1035] 0.0 0.00 0.00 70 skeleton_name [1035] + 0.00 0.00 70/196 make_name [970] +----------------------------------------------- + 0.00 0.00 119/119 recruit [650] +[1036] 0.0 0.00 0.00 119 syntax_error [1036] + 0.00 0.00 119/15240 msg_error [744] + 0.00 0.00 119/392959 add_message [434] + 0.00 0.00 119/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 65/65 steal_cmd [766] +[1037] 0.0 0.00 0.00 65 max_skill [1037] + 0.00 0.00 200/12320804 effskill [100] +----------------------------------------------- + 0.00 0.00 8/8 spy_cmd [990] +[1038] 0.0 0.00 0.00 8 spy_message [1038] + 0.00 0.00 48/12320804 eff_skill [334] + 0.00 0.00 22/967784 msg_message [132] + 0.00 0.00 48/2934859 skillname [122] + 0.00 0.00 48/884940 itoa10 [338] + 0.00 0.00 22/392959 add_message [434] + 0.00 0.00 8/4374788 visible_faction [68] + 0.00 0.00 8/598234 report_status [318] + 0.00 0.00 1/2426021 get_mage [198] + 0.00 0.00 22/1009028 msg_release [1373] + 0.00 0.00 1/1 add_seen_faction [1788] +----------------------------------------------- + 0.00 0.00 1610/1610 transfermen [899] +[1039] 0.0 0.00 0.00 1610 transfer_curse [1039] + 0.00 0.00 1610/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 1/1 magic [157] +[1040] 0.0 0.00 0.00 1 sp_generous [1040] + 0.00 0.00 1/45 create_curse [800] + 0.00 0.00 4/1437425 cansee [22] + 0.00 0.00 4/12265 r_addmessage [779] + 0.00 0.00 1/967784 msg_message [132] + 0.00 0.00 2/12246335 ct_find [114] + 0.00 0.00 1/10190660 get_curse [143] + 0.00 0.00 1/4201030 curse_active [543] + 0.00 0.00 1/608 co_get_region [1594] + 0.00 0.00 1/651711 oldcursename [1381] + 0.00 0.00 1/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1573/1573 display_cmd [859] +[1041] 0.0 0.00 0.00 1573 usetprivate [1041] + 0.00 0.00 1573/51974272 a_find [65] + 0.00 0.00 1/451774 a_remove [366] + 0.00 0.00 3/779419 a_add [555] + 0.00 0.00 3/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 121/121 tolua_msg_send_faction [1043] +[1042] 0.0 0.00 0.00 121 msg_send_faction [1042] + 0.00 0.00 121/1009159 msg_create [228] + 0.00 0.00 121/392959 add_message [434] +----------------------------------------------- + +[1043] 0.0 0.00 0.00 tolua_msg_send_faction [1043] + 0.00 0.00 121/121 msg_send_faction [1042] +----------------------------------------------- + 0.00 0.00 16/16 volcano_destruction [1022] +[1044] 0.0 0.00 0.00 16 damage_unit [1044] + 0.00 0.00 60/146997 dice_rand [409] + 0.00 0.00 16/7957 magic_resistance [727] + 0.00 0.00 20/71815034 get_race [12] + 0.00 0.00 16/3178 scale_number [969] + 0.00 0.00 60/60 nb_armor [1273] + 0.00 0.00 4/5395063 i_get [130] + 0.00 0.00 4/2858912 get_effect [225] + 0.00 0.00 36/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 1/1 magic [157] +[1045] 0.0 0.00 0.00 1 sp_enterastral [1045] + 0.00 0.00 12/1437425 cansee [22] + 0.00 0.00 4/967784 msg_message [132] + 0.00 0.00 12/12265 r_addmessage [779] + 0.00 0.00 2/109785 move_unit [421] + 0.00 0.00 2/279395 weight [459] + 0.00 0.00 1/125 r_standard_to_astral [1067] + 0.00 0.00 2/12246335 ct_find [114] + 0.00 0.00 2/10190660 get_curse [143] + 0.00 0.00 2/8898 ucontact [927] + 0.00 0.00 2/797288 can_survive [640] + 0.00 0.00 2/4201030 curse_active [543] + 0.00 0.00 1/3 getplaneid [1337] + 0.00 0.00 4/1009028 msg_release [1373] + 0.00 0.00 2/651711 oldcursename [1381] + 0.00 0.00 1/608 co_get_region [1594] +----------------------------------------------- + 0.00 0.00 195/195 enter_ship [733] +[1046] 0.0 0.00 0.00 195 mayboard [1046] + 0.00 0.00 112/9953180 alliedunit [31] + 0.00 0.00 186/8898 ucontact [927] + 0.00 0.00 195/3358315 ship_owner [438] +----------------------------------------------- + 0.00 0.00 3659/3659 study_cmd [105] +[1047] 0.0 0.00 0.00 3659 is_migrant [1047] + 0.00 0.00 4069/129167539 u_race [89] + 0.00 0.00 260/793 is_familiar [1092] + 0.00 0.00 150/12560453 rc_changed [256] + 0.00 0.00 1/71815034 get_race [12] +----------------------------------------------- + 0.00 0.00 535/1270 create_unit [296] + 0.00 0.00 735/1270 join_group [1083] +[1048] 0.0 0.00 0.00 1270 set_group [1048] + 0.00 0.00 631/779419 a_add [555] + 0.00 0.00 380/51974272 a_find [65] + 0.00 0.00 23/451774 a_remove [366] + 0.00 0.00 631/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 55/1848 renumber_unit [1159] + 0.00 0.00 1793/1848 remove_unit [499] +[1049] 0.0 0.00 0.00 1848 uunhash [1049] + 0.00 0.00 1848/2903884 jenkins_hash [439] +----------------------------------------------- + 0.00 0.00 769/769 write_triggers [954] +[1050] 0.0 0.00 0.00 769 shock_write [1050] + 0.00 0.00 769/604861 write_unit_reference [557] +----------------------------------------------- + 0.00 0.00 5049/5049 piracy_cmd [660] +[1051] 0.0 0.00 0.00 5049 validate_pirate [1051] + 0.00 0.00 5049/129167539 u_race [89] + 0.00 0.00 6/3358315 ship_owner [438] +----------------------------------------------- + 0.00 0.00 2491/2491 a_read_i [390] +[1052] 0.0 0.00 0.00 2491 a_readeffect [1052] + 0.00 0.00 2491/2032164 rt_find [597] +----------------------------------------------- + 0.00 0.00 15/15 drifting_ships [490] +[1053] 0.0 0.00 0.00 15 drift_target [1053] + 0.00 0.00 79/39810 check_ship_allowed [657] + 0.00 0.00 58/369586 r_connect [474] + 0.00 0.00 15/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.00 39/39 reshow_other [823] +[1054] 0.0 0.00 0.00 39 display_item [1054] + 0.00 0.00 39/967784 msg_message [132] + 0.00 0.00 39/779486 locale_getstring [266] + 0.00 0.00 39/392959 add_message [434] + 0.00 0.00 47/4133717 mkname [261] + 0.00 0.00 8/24887945 locale_string [27] + 0.00 0.00 39/13259934 resourcename [233] + 0.00 0.00 39/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 13/1297 follow_unit [331] + 0.00 0.00 1284/1297 follow_ship [749] +[1055] 0.0 0.00 0.00 1297 hunted_dir [1055] + 0.00 0.00 1297/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 52/52 race_namegen [905] +[1056] 0.0 0.00 0.00 52 zombie_name [1056] + 0.00 0.00 52/196 make_name [970] +----------------------------------------------- + +[1057] 0.0 0.00 0.00 tolua_region_set_resource [1057] + 0.00 0.00 1139/2032164 rt_find [597] + 0.00 0.00 1139/1139 region_setresource [1097] + 0.00 0.00 1762/7889 special_resources [1526] + 0.00 0.00 623/229715 rsettrees [1410] +----------------------------------------------- + 0.00 0.00 3355/3355 tolua_region_get_resource [976] +[1058] 0.0 0.00 0.00 3355 region_getresource [1058] + 0.00 0.00 6714/56052475 get_resourcetype [194] + 0.00 0.00 45/2605004 rpeasants [435] + 0.00 0.00 41/4666665 rmoney [452] + 0.00 0.00 3269/1160345 rhorses [1369] +----------------------------------------------- + 0.00 0.00 2/11 make_wormhole [1150] + 0.00 0.00 9/11 build_building [696] +[1059] 0.0 0.00 0.00 11 new_building [1059] + 0.00 0.00 11/10232 update_lighthouse [605] + 0.00 0.00 11/24887945 locale_string [27] + 0.00 0.00 11/5100840 itoa36 [116] + 0.00 0.00 3/218425 buildingtype [414] + 0.00 0.00 11/13 newcontainerid [1263] + 0.00 0.00 11/5461936 slprintf [548] + 0.00 0.00 11/46196 bhash [1464] +----------------------------------------------- + 0.00 0.00 47/47 reduce_weight [404] +[1060] 0.0 0.00 0.00 47 give_peasants [1060] + 0.00 0.00 47/1481407 parse_order [117] + 0.00 0.00 94/24887945 locale_string [27] + 0.00 0.00 47/5461936 slprintf [548] + 0.00 0.00 47/2009097 keyword [1355] + 0.00 0.00 47/48 unit_addorder [1684] +----------------------------------------------- + 0.00 0.00 5/569 datapath [1289] + 0.00 0.00 564/569 reportpath [1063] +[1061] 0.0 0.00 0.00 569 relpath [1061] + 0.00 0.00 569/34611296 strlcpy [45] +----------------------------------------------- + 0.00 0.00 8/8 magic [157] +[1062] 0.0 0.00 0.00 8 do_fumble [1062] + 0.00 0.00 1/10 sp_hain [931] + 0.00 0.00 15/967784 msg_message [132] + 0.00 0.00 15/392959 add_message [434] + 0.00 0.00 10/7641081 genrand_int31 [171] + 0.00 0.00 3/1873 set_spellpoints [933] + 0.00 0.00 1/1 fumble_default [1284] + 0.00 0.00 2/71815034 get_race [12] + 0.00 0.00 2/2831 countspells [903] + 0.00 0.00 2/3 trigger_changerace [1297] + 0.00 0.00 2/752645 chance [495] + 0.00 0.00 2/11 add_trigger [1260] + 0.00 0.00 2/129167539 u_race [89] + 0.00 0.00 1/2032164 rt_find [597] + 0.00 0.00 15/1009028 msg_release [1373] + 0.00 0.00 8/608 co_get_region [1594] + 0.00 0.00 2/5 trigger_timeout [1753] + 0.00 0.00 2/600145 u_setrace [1389] + 0.00 0.00 2/121 lua_callspell [1645] + 0.00 0.00 1/1 trigger_giveitem [1891] + 0.00 0.00 1/1 t_add [1865] +----------------------------------------------- + 0.00 0.00 1/564 load_inifile [1293] + 0.00 0.00 1/564 parse_inifile [1317] + 0.00 0.00 1/564 reports [2] + 0.00 0.00 2/564 create_directories [1294] + 0.00 0.00 559/564 write_reports [3] +[1063] 0.0 0.00 0.00 564 reportpath [1063] + 0.00 0.00 564/569 relpath [1061] +----------------------------------------------- + 0.00 0.00 1/1 magic [157] +[1064] 0.0 0.00 0.00 1 sp_flying_ship [1064] + 0.00 0.00 1/1 levitate_ship [1071] + 0.00 0.00 5/392959 add_message [434] + 0.00 0.00 1/967784 msg_message [132] + 0.00 0.00 1/608 co_get_region [1594] + 0.00 0.00 1/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 39/39 plan_dragon [273] +[1065] 0.0 0.00 0.00 39 random_growl [1065] + 0.00 0.00 39/967784 msg_message [132] + 0.00 0.00 39/1552289 rname [200] + 0.00 0.00 39/392959 add_message [434] + 0.00 0.00 39/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 83/303 create_castorder_combat [1137] + 0.00 0.00 220/303 cast_cmd [760] +[1066] 0.0 0.00 0.00 303 create_castorder [1066] + 0.00 0.00 303/635885 copy_order [441] + 0.00 0.00 303/499 MagicPower [1195] +----------------------------------------------- + 0.00 0.00 1/125 sp_enterastral [1045] + 0.00 0.00 124/125 age_stonecircle [1021] +[1067] 0.0 0.00 0.00 125 r_standard_to_astral [1067] + 0.00 0.00 125/125 tpregion [1085] + 0.00 0.00 125/987488 is_astral [479] +----------------------------------------------- + 0.00 0.00 1/1 magic [157] +[1068] 0.0 0.00 0.00 1 sp_holyground [1068] + 0.00 0.00 1/45 create_curse [800] + 0.00 0.00 1/967784 msg_message [132] + 0.00 0.00 1/1 report_spell [1301] + 0.00 0.00 1/12246335 ct_find [114] + 0.00 0.00 1/178429 a_removeall [958] + 0.00 0.00 1/608 co_get_region [1594] + 0.00 0.00 1/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1/48 tolua_unit_addnotice [1256] + 0.00 0.00 47/48 display_race [963] +[1069] 0.0 0.00 0.00 48 addmessage [1069] + 0.00 0.00 48/48 caddmessage [1070] +----------------------------------------------- + 0.00 0.00 48/48 addmessage [1069] +[1070] 0.0 0.00 0.00 48 caddmessage [1070] + 0.00 0.00 48/967784 msg_message [132] + 0.00 0.00 47/392959 add_message [434] + 0.00 0.00 1/12265 r_addmessage [779] + 0.00 0.00 48/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1/1 sp_flying_ship [1064] +[1071] 0.0 0.00 0.00 1 levitate_ship [1071] + 0.00 0.00 1/1 shipcurse_flyingship [1072] +----------------------------------------------- + 0.00 0.00 1/1 levitate_ship [1071] +[1072] 0.0 0.00 0.00 1 shipcurse_flyingship [1072] + 0.00 0.00 1/45 create_curse [800] + 0.00 0.00 2/12246335 ct_find [114] + 0.00 0.00 2/10190660 get_curse [143] + 0.00 0.00 2/4201030 curse_active [543] + 0.00 0.00 1/651711 oldcursename [1381] +----------------------------------------------- + 0.00 0.00 2096/2096 a_write [299] +[1073] 0.0 0.00 0.00 2096 a_writeeffect [1073] + 0.00 0.00 2096/13259934 resourcename [233] +----------------------------------------------- + 0.00 0.00 1/1 tolua_write_passwords [1075] +[1074] 0.0 0.00 0.00 1 writepasswd [1074] + 0.00 0.00 232/5100840 itoa36 [116] + 0.00 0.00 1/573 join_path [1016] + 0.00 0.00 1/64 log_info [1339] + 0.00 0.00 1/9 basepath [1730] +----------------------------------------------- + +[1075] 0.0 0.00 0.00 tolua_write_passwords [1075] + 0.00 0.00 1/1 writepasswd [1074] +----------------------------------------------- + 0.00 0.00 124/124 parse_symbol [42] +[1076] 0.0 0.00 0.00 124 eval_unit_dative [1076] + 0.00 0.00 122/2383101 unitname [142] + 0.00 0.00 124/13102790 opstack_pop [176] + 0.00 0.00 124/13102790 opstack_push [202] + 0.00 0.00 124/13399069 balloc [363] + 0.00 0.00 2/24887945 locale_string [27] +----------------------------------------------- + 0.00 0.00 9312/21517 spawn_undead [629] + 0.00 0.00 12205/21517 spawn_dragons [411] +[1077] 0.0 0.00 0.00 21517 chaosfactor [1077] + 0.00 0.00 981/179235 get_chaoscount [717] +----------------------------------------------- + 0.00 0.00 3/404 use_healingpotion [1119] + 0.00 0.00 56/404 use_bloodpotion [935] + 0.00 0.00 345/404 end_potion [814] +[1078] 0.0 0.00 0.00 404 usetpotionuse [1078] + 0.00 0.00 389/779419 a_add [555] + 0.00 0.00 404/51974272 a_find [65] + 0.00 0.00 389/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 4782/4782 expandrecruit [349] +[1079] 0.0 0.00 0.00 4782 select_recruitment [1079] + 0.00 0.00 3340/129167539 u_race [89] + 0.00 0.00 1670/1670 any_recruiters [1566] + 0.00 0.00 1670/1670 horse_recruiters [1567] +----------------------------------------------- + 0.00 0.00 127/127 tolua_msg_create [1081] +[1080] 0.0 0.00 0.00 127 msg_create_message [1080] + 0.00 0.00 127/1010116 mt_find [227] +----------------------------------------------- + +[1081] 0.0 0.00 0.00 tolua_msg_create [1081] + 0.00 0.00 127/127 msg_create_message [1080] +----------------------------------------------- + 0.00 0.00 9/9 move_icebergs [534] +[1082] 0.0 0.00 0.00 9 melt_iceberg [1082] + 0.00 0.00 9/105 terraform_region [932] + 0.00 0.00 9/178263 drown [394] + 0.00 0.00 8/451774 a_remove [366] + 0.00 0.00 3/967784 msg_message [132] + 0.00 0.00 3/392959 add_message [434] + 0.00 0.00 9/51974272 a_find [65] + 0.00 0.00 9/1511812 newterrain [1359] + 0.00 0.00 3/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 114/735 u_setfaction [1111] + 0.00 0.00 621/735 group_cmd [985] +[1083] 0.0 0.00 0.00 735 join_group [1083] + 0.00 0.00 735/1270 set_group [1048] + 0.00 0.00 453/453 find_groupbyname [1217] + 0.00 0.00 3/1697 new_group [1565] + 0.00 0.00 3/3 init_group [1764] +----------------------------------------------- + 0.00 0.00 48/48 terraform_region [932] +[1084] 0.0 0.00 0.00 48 makename [1084] + 0.00 0.00 598/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.00 125/125 r_standard_to_astral [1067] +[1085] 0.0 0.00 0.00 125 tpregion [1085] + 0.00 0.00 125/459083 findregion [420] + 0.00 0.00 125/987488 is_astral [479] + 0.00 0.00 250/250 real2tp [1612] +----------------------------------------------- + 0.00 0.00 1/1 read_xml [791] +[1086] 0.0 0.00 0.00 1 parse_resources [1086] + 0.00 0.00 157/157 xml_readitem [1107] + 0.00 0.00 12/39 bt_get_or_create [1114] + 0.00 0.00 159/383 rt_get_or_create [1139] + 0.00 0.00 1/1 init_resources [1228] + 0.00 0.00 7/779419 a_add [555] + 0.00 0.00 2/68430117 rc_find [15] + 0.00 0.00 2/150 rc_get_or_create [1105] + 0.00 0.00 7/51974272 a_find [65] + 0.00 0.00 1/1 init_itemtypes [1307] + 0.00 0.00 318/6576 xml_bvalue [1532] + 0.00 0.00 54/54 it_set_appearance [1679] + 0.00 0.00 19/178 parse_function [1637] + 0.00 0.00 7/7 rmt_create [1741] + 0.00 0.00 7/779868 a_new [1376] + 0.00 0.00 6/501 xml_fvalue [1599] + 0.00 0.00 6/465 get_function [1600] + 0.00 0.00 4/5453 xml_ivalue [1533] +----------------------------------------------- + 0.00 0.00 49/49 plan_dragon [273] +[1087] 0.0 0.00 0.00 49 get_money_for_dragon [1087] + 0.00 0.00 10/160206 monster_attacks [248] + 0.00 0.00 43/447808 create_order [341] + 0.00 0.00 43/752645 chance [495] + 0.00 0.00 59/4666665 rmoney [452] + 0.00 0.00 10/6610983 is_guard [211] + 0.00 0.00 43/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 9/188 travel_route [147] + 0.00 0.00 179/188 check_ship_allowed [657] +[1088] 0.0 0.00 0.00 188 is_freezing [1088] + 0.00 0.00 188/71815034 get_race [12] + 0.00 0.00 188/129167539 u_race [89] + 0.00 0.00 9/12246335 ct_find [114] + 0.00 0.00 9/10190660 get_curse [143] + 0.00 0.00 9/4201030 curse_active [543] + 0.00 0.00 9/651711 oldcursename [1381] +----------------------------------------------- + 0.00 0.00 3/3 make_name [970] +[1089] 0.0 0.00 0.00 3 count_particles [1089] + 0.00 0.00 117/779486 locale_getstring [266] +----------------------------------------------- + 0.00 0.00 1/328 reshow_other [823] + 0.00 0.00 327/328 reshow [822] +[1090] 0.0 0.00 0.00 328 display_potion [1090] + 0.00 0.00 328/779419 a_add [555] + 0.00 0.00 328/51974272 a_find [65] + 0.00 0.00 328/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 75/1583 drain_exp [850] + 0.00 0.00 1508/1583 demon_skillchange [826] +[1091] 0.0 0.00 0.00 1583 reduce_skill [1091] + 0.00 0.00 27/47562 skill_weeks [509] +----------------------------------------------- + 0.00 0.00 4/793 cast_cmd [760] + 0.00 0.00 5/793 count_skill [868] + 0.00 0.00 260/793 is_migrant [1047] + 0.00 0.00 524/793 study_cmd [105] +[1092] 0.0 0.00 0.00 793 is_familiar [1092] + 0.00 0.00 793/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 12/12 economics [78] +[1093] 0.0 0.00 0.00 12 forget_cmd [1093] + 0.00 0.00 12/2457 set_level [774] + 0.00 0.00 12/967784 msg_message [132] + 0.00 0.00 12/392959 add_message [434] + 0.00 0.00 12/2281756 gettoken [195] + 0.00 0.00 12/996009 get_skill [423] + 0.00 0.00 6/12246335 ct_find [114] + 0.00 0.00 12/1027665 init_order [613] + 0.00 0.00 6/10190660 get_curse [143] + 0.00 0.00 6/4201030 curse_active [543] + 0.00 0.00 12/1009028 msg_release [1373] + 0.00 0.00 6/651711 oldcursename [1381] +----------------------------------------------- + 0.00 0.00 7/27 create_icebergs [538] + 0.00 0.00 20/27 move_icebergs [534] +[1094] 0.0 0.00 0.00 27 move_iceberg [1094] + 0.00 0.00 1/6963 move_ship [374] + 0.00 0.00 4/967784 msg_message [132] + 0.00 0.00 37/7641081 genrand_int31 [171] + 0.00 0.00 36/36 runhash [1247] + 0.00 0.00 36/178290 rhash [737] + 0.00 0.00 27/51974272 a_find [65] + 0.00 0.00 4/392959 add_message [434] + 0.00 0.00 13/779419 a_add [555] + 0.00 0.00 1/369586 r_connect [474] + 0.00 0.00 1/3358315 ship_owner [438] + 0.00 0.00 1/717218 config_get_flt [714] + 0.00 0.00 13/13 make_iceberg [1718] + 0.00 0.00 4/1009028 msg_release [1373] + 0.00 0.00 1/160 damage_ship [1641] +----------------------------------------------- + 0.00 0.00 27/27 race_namegen [905] +[1095] 0.0 0.00 0.00 27 dragon_name [1095] + 0.00 0.00 58/779486 locale_getstring [266] + 0.00 0.00 92/7641081 genrand_int31 [171] + 0.00 0.00 18/1552289 rname [200] + 0.00 0.00 22/34611296 strlcpy [45] + 0.00 0.00 52/987128 strlcat [1374] + 0.00 0.00 27/560 oldterrain [1596] + 0.00 0.00 27/3862 unit_setname [1540] +----------------------------------------------- + 0.00 0.00 348/348 use_potion [801] +[1096] 0.0 0.00 0.00 348 begin_potion [1096] + 0.00 0.00 348/348 ugetpotionuse [1133] + 0.00 0.00 348/4984610 config_get_int [348] + 0.00 0.00 3/967784 msg_message [132] + 0.00 0.00 3/392959 add_message [434] + 0.00 0.00 3/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1139/1139 tolua_region_set_resource [1057] +[1097] 0.0 0.00 0.00 1139 region_setresource [1097] + 0.00 0.00 3335/56052475 get_resourcetype [194] + 0.00 0.00 41/2186159 rsetmoney [553] + 0.00 0.00 1098/257693 rsethorses [1408] +----------------------------------------------- + 0.00 0.00 295/295 age_unit [336] +[1098] 0.0 0.00 0.00 295 age_dragon [1098] + 0.00 0.00 295/7641081 genrand_int31 [171] + 0.00 0.00 10/1381157 unit_max_hp [136] + 0.00 0.00 5/71815034 get_race [12] + 0.00 0.00 5/600145 u_setrace [1389] +----------------------------------------------- + 0.00 0.00 2/2 init_locale [948] +[1099] 0.0 0.00 0.00 2 init_keywords [1099] + 0.00 0.00 2/6 init_translations [1033] +----------------------------------------------- + 0.00 0.00 2/2 init_locale [948] +[1100] 0.0 0.00 0.00 2 init_parameters [1100] + 0.00 0.00 2/6 init_translations [1033] +----------------------------------------------- + 0.00 0.00 2/2 init_locale [948] +[1101] 0.0 0.00 0.00 2 init_skills [1101] + 0.00 0.00 2/6 init_translations [1033] +----------------------------------------------- + 0.00 0.00 78/78 parse_symbol [42] +[1102] 0.0 0.00 0.00 78 eval_weight [1102] + 0.00 0.00 78/24887945 locale_string [27] + 0.00 0.00 78/13102790 opstack_pop [176] + 0.00 0.00 78/13102790 opstack_push [202] + 0.00 0.00 78/13399069 balloc [363] +----------------------------------------------- + +[1103] 0.0 0.00 0.00 tolua_unit_add_item [1103] + 0.00 0.00 121/1177511 it_find [385] + 0.00 0.00 121/11241829 i_change [115] +----------------------------------------------- + 0.00 0.00 1/1 read_xml [791] +[1104] 0.0 0.00 0.00 1 parse_races [1104] + 0.00 0.00 146/150 rc_get_or_create [1105] + 0.00 0.00 68/717287 get_param_flt [713] + 0.00 0.00 2798/6576 xml_bvalue [1532] + 0.00 0.00 2706/5453 xml_ivalue [1533] + 0.00 0.00 820/1041 findskill [1586] + 0.00 0.00 340/501 xml_fvalue [1599] + 0.00 0.00 69/178 parse_function [1637] + 0.00 0.00 67/67 parse_ai [1662] + 0.00 0.00 11/11 xml_spell [1727] + 0.00 0.00 3/3 parse_param [1765] +----------------------------------------------- + 0.00 0.00 2/150 xml_readweapon [1266] + 0.00 0.00 2/150 parse_resources [1086] + 0.00 0.00 146/150 parse_races [1104] +[1105] 0.0 0.00 0.00 150 rc_get_or_create [1105] + 0.00 0.00 150/68430271 rc_find_i [16] + 0.00 0.00 68/68 rc_create [1661] +----------------------------------------------- + 0.00 0.00 4/4 mail_cmd [844] +[1106] 0.0 0.00 0.00 4 mailfaction [1106] + 0.00 0.00 4/39 deliverMail [966] + 0.00 0.00 4/4625636 findfaction [259] +----------------------------------------------- + 0.00 0.00 157/157 parse_resources [1086] +[1107] 0.0 0.00 0.00 157 xml_readitem [1107] + 0.00 0.00 157/185 it_get_or_create [1115] + 0.00 0.00 157/191 xml_readconstruction [1183] + 0.00 0.00 23/23 xml_readweapon [1266] + 0.00 0.00 942/6576 xml_bvalue [1532] + 0.00 0.00 471/5453 xml_ivalue [1533] + 0.00 0.00 72/72 default_score [1659] + 0.00 0.00 55/178 parse_function [1637] + 0.00 0.00 15/15 xml_readpotion [1714] + 0.00 0.00 8/8 xml_readarmor [1736] + 0.00 0.00 7/7 xml_readluxury [1745] +----------------------------------------------- + 0.00 0.00 1761/1761 give_item [126] +[1108] 0.0 0.00 0.00 1761 give_horses [1108] + 0.00 0.00 5/860263 use_pooled [39] + 0.00 0.00 5/283711 item2resource [561] + 0.00 0.00 5/1160345 rhorses [1369] + 0.00 0.00 5/257693 rsethorses [1408] +----------------------------------------------- + 0.00 0.00 114/702 give_unit [952] + 0.00 0.00 588/702 give_men [857] +[1109] 0.0 0.00 0.00 702 max_transfers [1109] + 0.00 0.00 702/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 62/62 msg_curse [664] +[1110] 0.0 0.00 0.00 62 cinfo_speed [1110] + 0.00 0.00 28/967784 msg_message [132] +----------------------------------------------- + 0.00 0.00 1/598129 make_zombie [1267] + 0.00 0.00 2/598129 sp_charmingsong [993] + 0.00 0.00 112/598129 give_unit [952] + 0.00 0.00 2889/598129 create_unit [296] + 0.00 0.00 595125/598129 read_unit [74] +[1111] 0.0 0.00 0.00 598129 u_setfaction [1111] + 0.00 0.00 114/1644867 free_orders [306] + 0.00 0.00 114/735 join_group [1083] + 0.00 0.00 114/3383689 update_interval [551] + 0.00 0.00 228/603524 set_number [1387] + 0.00 0.00 114/1291427 set_order [1365] +----------------------------------------------- + 0.00 0.00 199/95593 travel_i [92] + 0.00 0.00 734/95593 leave [432] + 0.00 0.00 94660/95593 travel [81] +[1112] 0.0 0.00 0.00 95593 can_leave [1112] + 0.00 0.00 688/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 23/23 economics [78] +[1113] 0.0 0.00 0.00 23 destroy_cmd [1113] + 0.00 0.00 22/15102 cmistake [718] + 0.00 0.00 38/2281756 gettoken [195] + 0.00 0.00 1/1 destroy_road [1230] + 0.00 0.00 22/1027665 init_order [613] + 0.00 0.00 1/534930 isparam [668] +----------------------------------------------- + 0.00 0.00 12/39 parse_resources [1086] + 0.00 0.00 27/39 parse_buildings [1131] +[1114] 0.0 0.00 0.00 39 bt_get_or_create [1114] + 0.00 0.00 39/560965 bt_find_i [236] + 0.00 0.00 27/27 bt_register [1698] +----------------------------------------------- + 0.00 0.00 1/185 init_resources [1228] + 0.00 0.00 27/185 json_terrain [1189] + 0.00 0.00 157/185 xml_readitem [1107] +[1115] 0.0 0.00 0.00 185 it_get_or_create [1115] + 0.00 0.00 185/1177511 it_find [385] + 0.00 0.00 185/185 it_register [1636] +----------------------------------------------- + 0.00 0.00 7/7 sp_healing [989] +[1116] 0.0 0.00 0.00 7 scramble_fighters [1116] + 0.00 0.00 290/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.00 4/4 mail_cmd [844] +[1117] 0.0 0.00 0.00 4 seefaction [1117] + 0.00 0.00 4/1437425 cansee [22] +----------------------------------------------- + 0.00 0.00 134/134 msg_curse [664] +[1118] 0.0 0.00 0.00 134 cinfo_slave [1118] + 0.00 0.00 24/967784 msg_message [132] +----------------------------------------------- + 0.00 0.00 3/3 use_item [765] +[1119] 0.0 0.00 0.00 3 use_healingpotion [1119] + 0.00 0.00 3/860263 use_pooled [39] + 0.00 0.00 3/967784 msg_message [132] + 0.00 0.00 4/4 heal [1224] + 0.00 0.00 3/392959 add_message [434] + 0.00 0.00 3/404 usetpotionuse [1078] + 0.00 0.00 3/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1/1 read_xml [791] +[1120] 0.0 0.00 0.00 1 parse_spells [1120] + 0.00 0.00 137/34611296 strlcpy [45] + 0.00 0.00 233/2032164 rt_find [597] + 0.00 0.00 1660/6576 xml_bvalue [1532] + 0.00 0.00 731/5453 xml_ivalue [1533] + 0.00 0.00 274/465 get_function [1600] + 0.00 0.00 166/166 create_spell [1639] + 0.00 0.00 29/178 parse_function [1637] +----------------------------------------------- + 0.00 0.00 12/60 kill_troop [532] + 0.00 0.00 48/60 terraform_region [932] +[1121] 0.0 0.00 0.00 60 equip_items [1121] + 0.00 0.00 23/146997 dice_rand [409] + 0.00 0.00 23/822780 i_new [1375] + 0.00 0.00 23/87004 i_add [1442] +----------------------------------------------- + 0.00 0.00 23/48 join_allies [693] + 0.00 0.00 25/48 allysf [1160] +[1122] 0.0 0.00 0.00 48 allysfm [1122] + 0.00 0.00 27/10375491 alliedgroup [34] + 0.00 0.00 14/1205451 alliedfaction [162] +----------------------------------------------- + 0.00 0.00 182/182 age_unit [336] +[1123] 0.0 0.00 0.00 182 age_firedragon [1123] + 0.00 0.00 182/7641081 genrand_int31 [171] + 0.00 0.00 8/1381157 unit_max_hp [136] + 0.00 0.00 4/71815034 get_race [12] + 0.00 0.00 4/3178 scale_number [969] + 0.00 0.00 4/600145 u_setrace [1389] +----------------------------------------------- + 0.00 0.00 1/1 json_config [464] +[1124] 0.0 0.00 0.00 1 json_keywords [1124] + 0.00 0.00 2/2 json_keyword [1127] + 0.00 0.00 2/6 get_or_create_locale [1275] +----------------------------------------------- + 0.00 0.00 206/206 aftermath [701] +[1125] 0.0 0.00 0.00 206 battle_effects [1125] + 0.00 0.00 246/2605004 rpeasants [435] + 0.00 0.00 34/264251 rsetpeasants [545] + 0.00 0.00 34/37974 deathcounts [843] + 0.00 0.00 34/18059 add_chaoscount [1198] + 0.00 0.00 406/406 PopulationDamage [1605] +----------------------------------------------- + 0.00 0.00 34/34 race_namegen [905] +[1126] 0.0 0.00 0.00 34 dracoid_name [1126] + 0.00 0.00 208/7641081 genrand_int31 [171] + 0.00 0.00 34/34611296 strlcpy [45] + 0.00 0.00 109/987128 strlcat [1374] + 0.00 0.00 34/3862 unit_setname [1540] +----------------------------------------------- + 0.00 0.00 2/2 json_keywords [1124] +[1127] 0.0 0.00 0.00 2 json_keyword [1127] + 0.00 0.00 61/3496 locale_setstring [918] + 0.00 0.00 107/107 init_keyword [1179] + 0.00 0.00 61/4133717 mkname [261] + 0.00 0.00 61/65 findkeyword [1665] +----------------------------------------------- + 0.00 0.00 167/167 teach_cmd [272] +[1128] 0.0 0.00 0.00 167 academy_teaching_bonus [1128] + 0.00 0.00 167/892307 learn_skill [471] +----------------------------------------------- + 0.00 0.00 2/2 init_locale [948] +[1129] 0.0 0.00 0.00 2 init_terrains_translation [1129] + 0.00 0.00 36/24887945 locale_string [27] + 0.00 0.00 36/8993 addtoken [811] + 0.00 0.00 2/4558423 get_translations [437] + 0.00 0.00 2/4 terrains [1760] +----------------------------------------------- + 0.00 0.00 2/2 a_age [418] +[1130] 0.0 0.00 0.00 2 wormhole_age [1130] + 0.00 0.00 2/2 remove_building [1153] + 0.00 0.00 3/967784 msg_message [132] + 0.00 0.00 4/392959 add_message [434] + 0.00 0.00 1/109785 move_unit [421] + 0.00 0.00 3/1009028 msg_release [1373] + 0.00 0.00 1/1 has_limited_skills [1808] +----------------------------------------------- + 0.00 0.00 1/1 read_xml [791] +[1131] 0.0 0.00 0.00 1 parse_buildings [1131] + 0.00 0.00 27/39 bt_get_or_create [1114] + 0.00 0.00 27/191 xml_readconstruction [1183] + 0.00 0.00 17/2032164 rt_find [597] + 0.00 0.00 1/1 init_smithy [1312] + 0.00 0.00 250/6576 xml_bvalue [1532] + 0.00 0.00 179/5453 xml_ivalue [1533] + 0.00 0.00 27/501 xml_fvalue [1599] + 0.00 0.00 3/178 parse_function [1637] +----------------------------------------------- + 0.00 0.00 38/38 loot_items [810] +[1132] 0.0 0.00 0.00 38 select_ally [1132] + 0.00 0.00 33/1662377 get_unitrow [154] + 0.00 0.00 38/38 count_allies [1220] + 0.00 0.00 29/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.00 348/348 begin_potion [1096] +[1133] 0.0 0.00 0.00 348 ugetpotionuse [1133] + 0.00 0.00 348/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 5/234 give_men [857] + 0.00 0.00 5/234 transfermen [899] + 0.00 0.00 224/234 leave_ship [540] +[1134] 0.0 0.00 0.00 234 set_leftship [1134] + 0.00 0.00 234/779419 a_add [555] + 0.00 0.00 234/234 make_leftship [1615] +----------------------------------------------- + 0.00 0.00 324/1572 report_computer [9] + 0.00 0.00 324/1572 report_plaintext [4] + 0.00 0.00 924/1572 score [23] +[1135] 0.0 0.00 0.00 1572 write_score [1135] + 0.00 0.00 1572/5461936 slprintf [548] +----------------------------------------------- + 0.00 0.00 224/457 update_spells [381] + 0.00 0.00 233/457 readfaction [767] +[1136] 0.0 0.00 0.00 457 FactionSpells [1136] + 0.00 0.00 457/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 9/83 do_combatmagic [825] + 0.00 0.00 74/83 cast_combatspell [623] +[1137] 0.0 0.00 0.00 83 create_castorder_combat [1137] + 0.00 0.00 83/303 create_castorder [1066] +----------------------------------------------- + 0.00 0.00 102761/102761 give_cmd [102] +[1138] 0.0 0.00 0.00 102761 check_give [1138] + 0.00 0.00 22/41248 msg_feedback [647] + 0.00 0.00 102761/217696 can_give [1335] +----------------------------------------------- + 0.00 0.00 6/383 init_resources [1228] + 0.00 0.00 56/383 json_terrain [1189] + 0.00 0.00 159/383 parse_resources [1086] + 0.00 0.00 162/383 xml_readrequirements [1186] +[1139] 0.0 0.00 0.00 383 rt_get_or_create [1139] + 0.00 0.00 545/2032164 rt_find [597] + 0.00 0.00 162/162 rt_register [1640] +----------------------------------------------- + 0.00 0.00 44/44 ct_checknames [1142] +[1140] 0.0 0.00 0.00 44 curse_name [1140] + 0.00 0.00 44/24887945 locale_string [27] + 0.00 0.00 44/4133717 mkname [261] +----------------------------------------------- + 0.00 0.00 1/1 init_reports [399] +[1141] 0.0 0.00 0.00 1 check_messages_exist [1141] + 0.00 0.00 1/1 ct_checknames [1142] +----------------------------------------------- + 0.00 0.00 1/1 check_messages_exist [1141] +[1142] 0.0 0.00 0.00 1 ct_checknames [1142] + 0.00 0.00 44/44 curse_name [1140] +----------------------------------------------- + 0.00 0.00 2/2 init_locale [948] +[1143] 0.0 0.00 0.00 2 init_directions [1143] + 0.00 0.00 26/24887945 locale_string [27] + 0.00 0.00 26/8993 addtoken [811] + 0.00 0.00 2/2 register_special_direction [1259] + 0.00 0.00 2/4558423 get_translations [437] +----------------------------------------------- + 0.00 0.00 176/176 kill_troop [532] +[1144] 0.0 0.00 0.00 176 default_spoil [1144] + 0.00 0.00 176/7641081 genrand_int31 [171] + 0.00 0.00 9/1177511 it_find [385] + 0.00 0.00 9/822780 i_new [1375] + 0.00 0.00 9/87004 i_add [1442] +----------------------------------------------- + 0.00 0.00 107/371 init_keyword [1179] + 0.00 0.00 264/371 init_translations [1033] +[1145] 0.0 0.00 0.00 371 add_translation [1145] + 0.00 0.00 371/4457785 transliterate [358] +----------------------------------------------- + 0.00 0.00 10/10 combatspell_cmd [898] +[1146] 0.0 0.00 0.00 10 set_combatspell [1146] + 0.00 0.00 10/492 u_hasspell [951] + 0.00 0.00 10/482 knowsspell [956] + 0.00 0.00 10/2426021 get_mage [198] +----------------------------------------------- + 0.00 0.00 115/115 contact_cmd [965] +[1147] 0.0 0.00 0.00 115 usetcontact [1147] + 0.00 0.00 114/779419 a_add [555] + 0.00 0.00 115/51974272 a_find [65] + 0.00 0.00 114/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 2/2 breed_cmd [741] +[1148] 0.0 0.00 0.00 2 breedtrees [1148] + 0.00 0.00 1/860263 use_pooled [39] + 0.00 0.00 1/1 planttrees [1206] + 0.00 0.00 1/541982 get_pooled [104] + 0.00 0.00 1/967784 msg_message [132] + 0.00 0.00 2/12320804 effskill [100] + 0.00 0.00 1/472418 produceexp [322] + 0.00 0.00 1/392959 add_message [434] + 0.00 0.00 1/7641081 genrand_int31 [171] + 0.00 0.00 1/10053919 rtrees [302] + 0.00 0.00 2/56052475 get_resourcetype [194] + 0.00 0.00 2/40692 get_gamedate [1466] + 0.00 0.00 1/229715 rsettrees [1410] + 0.00 0.00 1/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1245/1245 leveled_allocation [888] +[1149] 0.0 0.00 0.00 1245 use_default [1149] + 0.00 0.00 170/7641081 genrand_int31 [171] + 0.00 0.00 85/143 update_resource [1237] +----------------------------------------------- + 0.00 0.00 1/1 make_wormholes [1151] +[1150] 0.0 0.00 0.00 1 make_wormhole [1150] + 0.00 0.00 2/11 new_building [1059] + 0.00 0.00 2/967784 msg_message [132] + 0.00 0.00 2/392959 add_message [434] + 0.00 0.00 2/779419 a_add [555] + 0.00 0.00 2/779868 a_new [1376] + 0.00 0.00 2/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1/1 wormholes_update [906] +[1151] 0.0 0.00 0.00 1 make_wormholes [1151] + 0.00 0.00 1/1 make_wormhole [1150] +----------------------------------------------- + 0.00 0.00 1/22 destroy_road [1230] + 0.00 0.00 21/22 build_road [950] +[1152] 0.0 0.00 0.00 22 rsetroad [1152] + 0.00 0.00 22/2225796 get_borders [120] + 0.00 0.00 6/22644 new_border [705] +----------------------------------------------- + 0.00 0.00 2/2 wormhole_age [1130] +[1153] 0.0 0.00 0.00 2 remove_building [1153] + 0.00 0.00 2/10232 update_lighthouse [605] + 0.00 0.00 6/560926 bt_find [237] + 0.00 0.00 2/48457 bfindhash [1461] + 0.00 0.00 2/1342832 handle_event [1363] + 0.00 0.00 2/12 bunhash [1720] +----------------------------------------------- + 0.00 0.00 3/3 sp_charmingsong [993] +[1154] 0.0 0.00 0.00 3 target_resists_magic [1154] + 0.00 0.00 20/12320804 eff_skill [334] + 0.00 0.00 3/7957 magic_resistance [727] + 0.00 0.00 3/12320804 effskill [100] + 0.00 0.00 3/752645 chance [495] +----------------------------------------------- + 0.00 0.00 1/3 tolua_get_nmrs [1208] + 0.00 0.00 2/3 report_summary [614] +[1155] 0.0 0.00 0.00 3 update_nmrs [1155] + 0.00 0.00 52/5100840 itoa36 [116] + 0.00 0.00 3/27 NMRTimeout [1264] + 0.00 0.00 52/49235 log_debug [1245] +----------------------------------------------- + 0.00 0.00 1/1 process [7] +[1156] 0.0 0.00 0.00 1 renumber_factions [1156] + 0.00 0.00 232/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 2/2 init_locale [948] +[1157] 0.0 0.00 0.00 2 init_options_translation [1157] + 0.00 0.00 22/24887945 locale_string [27] + 0.00 0.00 22/8993 addtoken [811] + 0.00 0.00 2/4558423 get_translations [437] +----------------------------------------------- + 0.00 0.00 14/14 sp_healing [989] +[1158] 0.0 0.00 0.00 14 heal_fighters [1158] + 0.00 0.00 802/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 55/55 renumber_cmd [780] +[1159] 0.0 0.00 0.00 55 renumber_unit [1159] + 0.00 0.00 55/779419 a_add [555] + 0.00 0.00 55/285923 ualias [692] + 0.00 0.00 55/598069 uhash [667] + 0.00 0.00 55/1848 uunhash [1049] + 0.00 0.00 55/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 8/25 fighters [1012] + 0.00 0.00 17/25 helping [1177] +[1160] 0.0 0.00 0.00 25 allysf [1160] + 0.00 0.00 25/48 allysfm [1122] +----------------------------------------------- + +[1161] 0.0 0.00 0.00 config_get_locales [1161] + 0.00 0.00 2/11719 locale_name [568] + 0.00 0.00 4/4 nextlocale [1758] +----------------------------------------------- + 0.00 0.00 58/58 terraform_resources [986] +[1162] 0.0 0.00 0.00 58 add_resource [1162] + 0.00 0.00 58/58 terraform_default [1165] + 0.00 0.00 58/143 update_resource [1237] + 0.00 0.00 58/58 rmt_get [1672] +----------------------------------------------- + +[1163] 0.0 0.00 0.00 tolua_unit_setskill [1163] + 0.00 0.00 6/2457 set_level [774] + 0.00 0.00 6/1041 findskill [1586] +----------------------------------------------- + 0.00 0.00 1/1 read_game [62] +[1164] 0.0 0.00 0.00 1 read_planes [1164] + 0.00 0.00 13/760673 addlist [217] + 0.00 0.00 13/840577 read_attribs [388] + 0.00 0.00 13/13 getplanebyid [1717] + 0.00 0.00 13/51239 read_faction_reference [1455] +----------------------------------------------- + 0.00 0.00 58/58 add_resource [1162] +[1165] 0.0 0.00 0.00 58 terraform_default [1165] + 0.00 0.00 116/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.00 10/10 read_triggers [798] +[1166] 0.0 0.00 0.00 10 changefaction_read [1166] + 0.00 0.00 10/9763 read_reference [726] + 0.00 0.00 10/51239 read_faction_reference [1455] + 0.00 0.00 10/34565 ur_add [1472] +----------------------------------------------- + 0.00 0.00 43/43 combatspell_cmd [898] +[1167] 0.0 0.00 0.00 43 unset_combatspell [1167] + 0.00 0.00 43/2426021 get_mage [198] +----------------------------------------------- + 0.00 0.00 2/462 report_summary [614] + 0.00 0.00 230/462 report_computer [9] + 0.00 0.00 230/462 report_plaintext [4] +[1168] 0.0 0.00 0.00 462 game_name [1168] + 0.00 0.00 462/20777534 config_get [224] +----------------------------------------------- + 0.00 0.00 61/61 parse_equipment [1170] +[1169] 0.0 0.00 0.00 61 add_items [1169] + 0.00 0.00 66/1177511 it_find [385] + 0.00 0.00 65/65 equipment_setitem [1664] +----------------------------------------------- + 0.00 0.00 1/1 read_xml [791] +[1170] 0.0 0.00 0.00 1 parse_equipment [1170] + 0.00 0.00 61/61 add_items [1169] + 0.00 0.00 61/73 create_equipment [1658] + 0.00 0.00 61/61 add_callbacks [1666] + 0.00 0.00 61/61 add_spells [1668] + 0.00 0.00 61/61 add_skills [1667] + 0.00 0.00 61/61 add_subsets [1669] +----------------------------------------------- + 0.00 0.00 231/231 remove_idle_players [391] +[1171] 0.0 0.00 0.00 231 RemoveNMRNewbie [1171] + 0.00 0.00 231/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 1/1583 can_charm [1338] + 0.00 0.00 4/1583 study_cmd [105] + 0.00 0.00 1578/1583 build [691] +[1172] 0.0 0.00 0.00 1583 skill_limit [1172] + 0.00 0.00 226/4984610 config_get_int [348] + 0.00 0.00 1583/1583 allied_skilllimit [1330] +----------------------------------------------- + 0.00 0.00 26/26 cast_cmd [760] +[1173] 0.0 0.00 0.00 26 add_spellparameter [1173] + 0.00 0.00 22/22 addparam_ship [1212] + 0.00 0.00 16/16 addparam_unit [1214] + 0.00 0.00 6/6 addparam_building [1261] +----------------------------------------------- + 0.00 0.00 125/125 chaos [848] +[1174] 0.0 0.00 0.00 125 random_unit [1174] + 0.00 0.00 31/71815034 get_race [12] + 0.00 0.00 15/7641081 genrand_int31 [171] + 0.00 0.00 31/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 1/207 init_processor [1310] + 0.00 0.00 206/207 do_battle [64] +[1175] 0.0 0.00 0.00 207 rule_force_leave [1175] + 0.00 0.00 207/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 62/62 do_potion [941] +[1176] 0.0 0.00 0.00 62 potion_luck [1176] + 0.00 0.00 58/779419 a_add [555] + 0.00 0.00 62/51974272 a_find [65] + 0.00 0.00 58/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 432/432 get_tactics [1178] +[1177] 0.0 0.00 0.00 432 helping [1177] + 0.00 0.00 17/25 allysf [1160] +----------------------------------------------- + 0.00 0.00 378/378 battle_attacks [79] +[1178] 0.0 0.00 0.00 378 get_tactics [1178] + 0.00 0.00 432/432 helping [1177] +----------------------------------------------- + 0.00 0.00 107/107 json_keyword [1127] +[1179] 0.0 0.00 0.00 107 init_keyword [1179] + 0.00 0.00 107/371 add_translation [1145] + 0.00 0.00 107/4558423 get_translations [437] +----------------------------------------------- + 0.00 0.00 191/191 enter_ship [733] +[1180] 0.0 0.00 0.00 191 CheckOverload [1180] + 0.00 0.00 191/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 174/174 breed_cmd [741] +[1181] 0.0 0.00 0.00 174 findresourcetype [1181] + 0.00 0.00 174/4457785 transliterate [358] + 0.00 0.00 174/2124526 locale_index [1354] +----------------------------------------------- + 0.00 0.00 54/54 parse_symbol [42] +[1182] 0.0 0.00 0.00 54 eval_add [1182] + 0.00 0.00 108/13102790 opstack_pop [176] + 0.00 0.00 54/13102790 opstack_push [202] +----------------------------------------------- + 0.00 0.00 7/191 parse_ships [1305] + 0.00 0.00 27/191 parse_buildings [1131] + 0.00 0.00 157/191 xml_readitem [1107] +[1183] 0.0 0.00 0.00 191 xml_readconstruction [1183] + 0.00 0.00 84/84 xml_readrequirements [1186] + 0.00 0.00 1/779419 a_add [555] + 0.00 0.00 504/5453 xml_ivalue [1533] + 0.00 0.00 84/1041 findskill [1586] + 0.00 0.00 1/465 get_function [1600] + 0.00 0.00 1/2 make_skillmod [1777] +----------------------------------------------- + 0.00 0.00 1/1 breed_cmd [741] +[1184] 0.0 0.00 0.00 1 plant [1184] + 0.00 0.00 2/541982 get_pooled [104] + 0.00 0.00 1/41248 msg_feedback [647] + 0.00 0.00 1/12320804 effskill [100] + 0.00 0.00 1/392959 add_message [434] + 0.00 0.00 1/56052475 get_resourcetype [194] + 0.00 0.00 1/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 508/508 regeneration [942] +[1185] 0.0 0.00 0.00 508 MagicRegeneration [1185] + 0.00 0.00 508/717218 config_get_flt [714] +----------------------------------------------- + 0.00 0.00 84/84 xml_readconstruction [1183] +[1186] 0.0 0.00 0.00 84 xml_readrequirements [1186] + 0.00 0.00 162/383 rt_get_or_create [1139] + 0.00 0.00 162/5453 xml_ivalue [1533] +----------------------------------------------- + 0.00 0.00 1/3 do_combatmagic [825] + 0.00 0.00 2/3 do_combatspell [702] +[1187] 0.0 0.00 0.00 3 report_failed_spell [1187] + 0.00 0.00 3/1486 message_all [834] + 0.00 0.00 3/967784 msg_message [132] + 0.00 0.00 3/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 6/6 sp_summonundead [896] +[1188] 0.0 0.00 0.00 6 make_undead_unit [1188] + 0.00 0.00 6/2931 name_unit [803] + 0.00 0.00 6/1644867 free_orders [306] +----------------------------------------------- + 0.00 0.00 18/18 json_terrains [1190] +[1189] 0.0 0.00 0.00 18 json_terrain [1189] + 0.00 0.00 27/185 it_get_or_create [1115] + 0.00 0.00 56/383 rt_get_or_create [1139] + 0.00 0.00 29/29 json_terrain_production [1694] + 0.00 0.00 18/18 json_flags [1707] +----------------------------------------------- + 0.00 0.00 1/1 json_config [464] +[1190] 0.0 0.00 0.00 1 json_terrains [1190] + 0.00 0.00 18/18 json_terrain [1189] + 0.00 0.00 18/52 get_or_create_terrain [1680] +----------------------------------------------- + 0.00 0.00 53/53 get_resource [99] +[1191] 0.0 0.00 0.00 53 lua_getresource [1191] + 0.00 0.00 53/34611296 strlcpy [45] + 0.00 0.00 53/987128 strlcat [1374] +----------------------------------------------- + 0.00 0.00 52/52 msg_curse [664] +[1192] 0.0 0.00 0.00 52 cinfo_skillmod [1192] + 0.00 0.00 6/967784 msg_message [132] +----------------------------------------------- + 0.00 0.00 4/955 make_route [289] + 0.00 0.00 951/955 sail [181] +[1193] 0.0 0.00 0.00 955 movement_error [1193] + 0.00 0.00 4/967784 msg_message [132] + 0.00 0.00 4/293362 get_direction [496] + 0.00 0.00 1/41248 msg_feedback [647] +----------------------------------------------- + +[1194] 0.0 0.00 0.00 tolua_unit_get_name [1194] + 0.00 0.00 86/3351853 unit_getname [332] +----------------------------------------------- + 0.00 0.00 196/499 magic [157] + 0.00 0.00 303/499 create_castorder [1066] +[1195] 0.0 0.00 0.00 499 MagicPower [1195] + 0.00 0.00 279/20777534 config_get [224] +----------------------------------------------- + 0.00 0.00 266/266 age_unit [336] +[1196] 0.0 0.00 0.00 266 age_undead [1196] + 0.00 0.00 82/3902878 get_monsters [293] +----------------------------------------------- + +[1197] 0.0 0.00 0.00 tolua_faction_get_locale [1197] + 0.00 0.00 1/11719 locale_name [568] +----------------------------------------------- + 0.00 0.00 34/18059 battle_effects [1125] + 0.00 0.00 18025/18059 chaos_update [514] +[1198] 0.0 0.00 0.00 18059 add_chaoscount [1198] + 0.00 0.00 89/51974272 a_find [65] + 0.00 0.00 6/779419 a_add [555] + 0.00 0.00 6/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 569/569 setstealth_cmd [182] +[1199] 0.0 0.00 0.00 569 u_seteffstealth [1199] + 0.00 0.00 569/21345834 skill_enabled [365] + 0.00 0.00 2/51974272 a_find [65] +----------------------------------------------- + 0.00 0.00 15/15 change_resource [240] +[1200] 0.0 0.00 0.00 15 res_changepeasants [1200] + 0.00 0.00 15/264251 rsetpeasants [545] + 0.00 0.00 30/2605004 rpeasants [435] +----------------------------------------------- + 0.00 0.00 30/30 monster_move [129] +[1201] 0.0 0.00 0.00 30 treeman_neighbour [1201] + 0.00 0.00 30/1087065 get_neighbours [480] + 0.00 0.00 25/7641081 genrand_int31 [171] + 0.00 0.00 533/560 oldterrain [1596] +----------------------------------------------- + 0.00 0.00 6/6 process [7] +[1202] 0.0 0.00 0.00 6 send_cmd [1202] + 0.00 0.00 6/6 findoption [1241] + 0.00 0.00 6/69432 getparam [681] + 0.00 0.00 6/2281756 gettoken [195] + 0.00 0.00 6/1027665 init_order [613] +----------------------------------------------- + 0.00 0.00 505/505 matmod [975] +[1203] 0.0 0.00 0.00 505 mm_smithy [1203] + 0.00 0.00 505/56052475 get_resourcetype [194] +----------------------------------------------- + 0.00 0.00 4/118 give_men [857] + 0.00 0.00 114/118 give_unit [952] +[1204] 0.0 0.00 0.00 118 rule_transfermen [1204] + 0.00 0.00 118/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 58/58 init_translations [1033] +[1205] 0.0 0.00 0.00 58 skill_key [1205] + 0.00 0.00 58/4133717 mkname [261] +----------------------------------------------- + 0.00 0.00 1/1 breedtrees [1148] +[1206] 0.0 0.00 0.00 1 planttrees [1206] + 0.00 0.00 1/541982 get_pooled [104] + 0.00 0.00 1/41248 msg_feedback [647] + 0.00 0.00 1/12320804 effskill [100] + 0.00 0.00 1/392959 add_message [434] + 0.00 0.00 1/56052475 get_resourcetype [194] + 0.00 0.00 1/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 1/1 write_game [83] +[1207] 0.0 0.00 0.00 1 write_planes [1207] + 0.00 0.00 13/841675 a_write [299] + 0.00 0.00 1/1248014 listlen [190] +----------------------------------------------- + +[1208] 0.0 0.00 0.00 tolua_get_nmrs [1208] + 0.00 0.00 1/3 update_nmrs [1155] + 0.00 0.00 1/27 NMRTimeout [1264] +----------------------------------------------- + 0.00 0.00 2/2 magic [157] +[1209] 0.0 0.00 0.00 2 sp_bloodsacrifice [1209] + 0.00 0.00 2/967784 msg_message [132] + 0.00 0.00 2/12320804 effskill [100] + 0.00 0.00 2/392959 add_message [434] + 0.00 0.00 2/1201 change_spellpoints [971] + 0.00 0.00 2/201744 lovar [644] + 0.00 0.00 2/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 6/6 tolua_msg_send_region [1211] +[1210] 0.0 0.00 0.00 6 msg_send_region [1210] + 0.00 0.00 6/1009159 msg_create [228] + 0.00 0.00 6/392959 add_message [434] +----------------------------------------------- + +[1211] 0.0 0.00 0.00 tolua_msg_send_region [1211] + 0.00 0.00 6/6 msg_send_region [1210] +----------------------------------------------- + 0.00 0.00 22/22 add_spellparameter [1173] +[1212] 0.0 0.00 0.00 22 addparam_ship [1212] + 0.00 0.00 22/688711 atoi36 [440] +----------------------------------------------- + 0.00 0.00 48/48 chaos [848] +[1213] 0.0 0.00 0.00 48 chaosterrain [1213] + 0.00 0.00 48/7641081 genrand_int31 [171] + 0.00 0.00 2/4 terrains [1760] +----------------------------------------------- + 0.00 0.00 16/16 add_spellparameter [1173] +[1214] 0.0 0.00 0.00 16 addparam_unit [1214] + 0.00 0.00 16/688711 atoi36 [440] + 0.00 0.00 16/534930 isparam [668] +----------------------------------------------- + 0.00 0.00 3/3 read_triggers [798] +[1215] 0.0 0.00 0.00 3 changerace_read [1215] + 0.00 0.00 3/9763 read_reference [726] + 0.00 0.00 6/6 read_race_reference [1278] +----------------------------------------------- + 0.00 0.00 6787/6787 find_groupbyname [1217] +[1216] 0.0 0.00 0.00 6787 unicode_utf8_strcasecmp [1216] + 0.00 0.00 248/46391457 unicode_utf8_to_ucs4 [177] +----------------------------------------------- + 0.00 0.00 453/453 join_group [1083] +[1217] 0.0 0.00 0.00 453 find_groupbyname [1217] + 0.00 0.00 6787/6787 unicode_utf8_strcasecmp [1216] +----------------------------------------------- + +[1218] 0.0 0.00 0.00 tolua_dict_get [1218] + 0.00 0.00 58/51974272 a_find [65] + 0.00 0.00 58/58 dict_name [1671] + 0.00 0.00 58/58 dict_get [1670] +----------------------------------------------- + 0.00 0.00 1/1 sp_summon_familiar [1025] +[1219] 0.0 0.00 0.00 1 make_familiar [1219] + 0.00 0.00 1/1 oldfamiliars [1240] + 0.00 0.00 1/1381157 unit_max_hp [136] + 0.00 0.00 1/1 create_newfamiliar [1288] + 0.00 0.00 2/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 38/38 select_ally [1132] +[1220] 0.0 0.00 0.00 38 count_allies [1220] + 0.00 0.00 38/317239 count_side [666] +----------------------------------------------- + 0.00 0.00 6/6 volcano_update [981] +[1221] 0.0 0.00 0.00 6 rrandneighbour [1221] + 0.00 0.00 8/369586 r_connect [474] + 0.00 0.00 6/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.00 1/3 writeturn [1253] + 0.00 0.00 2/3 report_summary [614] +[1222] 0.0 0.00 0.00 3 gamedate2 [1222] + 0.00 0.00 9/24887945 locale_string [27] + 0.00 0.00 3/40692 get_gamedate [1466] +----------------------------------------------- + 0.00 0.00 88/88 hunger [808] +[1223] 0.0 0.00 0.00 88 hunger_damage [1223] + 0.00 0.00 73/20777534 config_get [224] + 0.00 0.00 88/26776263 get_param [235] +----------------------------------------------- + 0.00 0.00 4/4 use_healingpotion [1119] +[1224] 0.0 0.00 0.00 4 heal [1224] + 0.00 0.00 4/1381157 unit_max_hp [136] +----------------------------------------------- + 0.00 0.00 4/4 name_cmd [835] +[1225] 0.0 0.00 0.00 4 try_rename [1225] + 0.00 0.00 3/593636 building_owner [232] + 0.00 0.00 1/15102 cmistake [718] +----------------------------------------------- + 0.00 0.00 80/80 tolua_msg_set_resource [1227] +[1226] 0.0 0.00 0.00 80 msg_set_resource [1226] + 0.00 0.00 80/2032164 rt_find [597] + 0.00 0.00 80/451 mtype_get_param [1602] +----------------------------------------------- + +[1227] 0.0 0.00 0.00 tolua_msg_set_resource [1227] + 0.00 0.00 80/80 msg_set_resource [1226] +----------------------------------------------- + 0.00 0.00 1/1 parse_resources [1086] +[1228] 0.0 0.00 0.00 1 init_resources [1228] + 0.00 0.00 1/1 init_oldpotions [1235] + 0.00 0.00 6/383 rt_get_or_create [1139] + 0.00 0.00 1/185 it_get_or_create [1115] +----------------------------------------------- + 0.00 0.00 2/2 create_ship [1014] +[1229] 0.0 0.00 0.00 2 new_ship [1229] + 0.00 0.00 2/760673 addlist [217] + 0.00 0.00 2/24887945 locale_string [27] + 0.00 0.00 2/5100840 itoa36 [116] + 0.00 0.00 2/13 newcontainerid [1263] + 0.00 0.00 2/5461936 slprintf [548] + 0.00 0.00 2/19085 shash [1502] +----------------------------------------------- + 0.00 0.00 1/1 destroy_cmd [1113] +[1230] 0.0 0.00 0.00 1 destroy_road [1230] + 0.00 0.00 1/22 rsetroad [1152] + 0.00 0.00 1/143730 rroad [508] + 0.00 0.00 1/12320804 effskill [100] + 0.00 0.00 1/293362 get_direction [496] + 0.00 0.00 1/2281756 gettoken [195] + 0.00 0.00 3/6610983 is_guard [211] +----------------------------------------------- + 0.00 0.00 24/24 cast_cmd [760] +[1231] 0.0 0.00 0.00 24 is_moving_ship [1231] + 0.00 0.00 24/55492327 getkeyword [54] + 0.00 0.00 24/3358315 ship_owner [438] +----------------------------------------------- + 0.00 0.00 10/10 spawn_dragons [411] +[1232] 0.0 0.00 0.00 10 nrand [1232] + 0.00 0.00 27/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.00 1/1 use_item [765] +[1233] 0.0 0.00 0.00 1 use_skillpotion [1233] + 0.00 0.00 1/967784 msg_message [132] + 0.00 0.00 7/892307 learn_skill [471] + 0.00 0.00 1/392959 add_message [434] + 0.00 0.00 1/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 111/111 steal_cmd [766] +[1234] 0.0 0.00 0.00 111 check_steal [1234] + 0.00 0.00 111/129167539 u_race [89] + 0.00 0.00 111/18647447 getplane [596] +----------------------------------------------- + 0.00 0.00 1/1 init_resources [1228] +[1235] 0.0 0.00 0.00 1 init_oldpotions [1235] + 0.00 0.00 15/1177511 it_find [385] +----------------------------------------------- + 0.00 0.00 143/143 update_resource [1237] +[1236] 0.0 0.00 0.00 143 ResourceFactor [1236] + 0.00 0.00 143/717218 config_get_flt [714] +----------------------------------------------- + 0.00 0.00 58/143 add_resource [1162] + 0.00 0.00 85/143 use_default [1149] +[1237] 0.0 0.00 0.00 143 update_resource [1237] + 0.00 0.00 143/143 ResourceFactor [1236] +----------------------------------------------- + 0.00 0.00 2/2 a_read_i [390] +[1238] 0.0 0.00 0.00 2 wormhole_read [1238] + 0.00 0.00 2/9763 read_reference [726] +----------------------------------------------- + 0.00 0.00 8/8 skillmod [214] +[1239] 0.0 0.00 0.00 8 mod_elves_only [1239] + 0.00 0.00 8/71815034 get_race [12] + 0.00 0.00 8/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 1/1 make_familiar [1219] +[1240] 0.0 0.00 0.00 1 oldfamiliars [1240] + 0.00 0.00 1/2375 equip_unit [775] + 0.00 0.00 1/1 create_mage [1315] + 0.00 0.00 1/129167539 u_race [89] + 0.00 0.00 1/2742 get_equipment [1551] +----------------------------------------------- + 0.00 0.00 6/6 send_cmd [1202] +[1241] 0.0 0.00 0.00 6 findoption [1241] + 0.00 0.00 6/302482 findtoken [501] + 0.00 0.00 6/4558423 get_translations [437] +----------------------------------------------- + 0.00 0.00 2/2 process [7] +[1242] 0.0 0.00 0.00 2 claim_cmd [1242] + 0.00 0.00 3/2281756 gettoken [195] + 0.00 0.00 4/11241829 i_change [115] + 0.00 0.00 2/6010308 i_find [127] + 0.00 0.00 2/1027665 init_order [613] + 0.00 0.00 2/191379 finditemtype [735] +----------------------------------------------- + 0.00 0.00 5/49317 log_warning [1342] + 0.00 0.00 13/49317 log_error [1340] + 0.00 0.00 64/49317 log_info [1339] + 0.00 0.00 49235/49317 log_debug [1245] +[1243] 0.0 0.00 0.00 49317 log_write [1243] + 0.00 0.00 18/18 check_dupe [1244] + 0.00 0.00 49331/49331 log_stdio [1459] +----------------------------------------------- + 0.00 0.00 18/18 log_write [1243] +[1244] 0.0 0.00 0.00 18 check_dupe [1244] + 0.00 0.00 15/34611296 strlcpy [45] +----------------------------------------------- + 0.00 0.00 1/49235 parse_config [1292] + 0.00 0.00 1/49235 eressea_run [1346] + 0.00 0.00 1/49235 give_men [857] + 0.00 0.00 1/49235 disable_feature [771] + 0.00 0.00 2/49235 readgame [60] + 0.00 0.00 4/49235 tolua_log_eressea_log_debug00 [1343] + 0.00 0.00 5/49235 factionorders [983] + 0.00 0.00 10/49235 spawn_dragons [411] + 0.00 0.00 50/49235 rsetherbtype [537] + 0.00 0.00 52/49235 update_nmrs [1155] + 0.00 0.00 68/49235 process [7] + 0.00 0.00 92/49235 spawn_undead [629] + 0.00 0.00 176/49235 write_game [83] + 0.00 0.00 182/49235 read_game [62] + 0.00 0.00 206/49235 do_battle [64] + 0.00 0.00 232/49235 write_reports [3] + 0.00 0.00 233/49235 readfaction [767] + 0.00 0.00 6664/49235 findtoken [501] + 0.00 0.00 41255/49235 log_orders [251] +[1245] 0.0 0.00 0.00 49235 log_debug [1245] + 0.00 0.00 49235/49317 log_write [1243] +----------------------------------------------- + +[1246] 0.0 0.00 0.00 tolua_faction_get [1246] + 0.00 0.00 12/13 tolua_toid [1274] + 0.00 0.00 12/4625636 findfaction [259] +----------------------------------------------- + 0.00 0.00 36/36 move_iceberg [1094] +[1247] 0.0 0.00 0.00 36 runhash [1247] + 0.00 0.00 36/2903884 jenkins_hash [439] +----------------------------------------------- + 0.00 0.00 230/230 report_computer [9] +[1248] 0.0 0.00 0.00 230 show_alliances_cr [1248] + 0.00 0.00 230/20836359 f_get_alliance [455] +----------------------------------------------- + 0.00 0.00 1/1 main [541] +[1249] 0.0 0.00 0.00 1 game_init [1249] + 0.00 0.00 1/1 register_spells [1251] + 0.00 0.00 1/1 register_triggers [1855] + 0.00 0.00 1/1 kernel_init [1814] + 0.00 0.00 1/1 register_races [1849] + 0.00 0.00 1/1 register_cr [1838] + 0.00 0.00 1/1 register_nr [1847] + 0.00 0.00 1/1 register_xmas [1859] + 0.00 0.00 1/1 register_resources [1852] + 0.00 0.00 1/1 register_names [1846] + 0.00 0.00 1/1 register_museum [1845] + 0.00 0.00 1/1 register_itemfunctions [1842] + 0.00 0.00 1/1 register_buildings [1837] + 0.00 0.00 1/1 register_itemtypes [1843] + 0.00 0.00 1/1 wormholes_register [1895] + 0.00 0.00 1/1 register_arena [1832] + 0.00 0.00 1/1 register_gmcmd [1841] + 0.00 0.00 1/1 register_attributes [1834] + 0.00 0.00 1/1 register_xmlreader [1860] + 0.00 0.00 1/1 chaos_register [1797] +----------------------------------------------- + 0.00 0.00 1/1 register_spells [1251] +[1250] 0.0 0.00 0.00 1 register_spelldata [1250] + 0.00 0.00 12/34611296 strlcpy [45] + 0.00 0.00 151/240 register_function [1614] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1251] 0.0 0.00 0.00 1 register_spells [1251] + 0.00 0.00 1/1 register_spelldata [1250] + 0.00 0.00 5/240 register_function [1614] + 0.00 0.00 2/55 at_register [1678] + 0.00 0.00 2/44 ct_register [1686] + 0.00 0.00 1/1 register_borders [1835] + 0.00 0.00 1/1 register_shipcurse [1853] + 0.00 0.00 1/1 register_regioncurse [1850] + 0.00 0.00 1/1 register_unitcurse [1856] + 0.00 0.00 1/1 register_flyingship [1840] + 0.00 0.00 1/1 register_magicresistance [1844] + 0.00 0.00 1/1 register_buildingcurse [1836] +----------------------------------------------- + 0.00 0.00 1/1 read_xml [791] +[1252] 0.0 0.00 0.00 1 parse_calendar [1252] + 0.00 0.00 18/4133717 mkname [261] + 0.00 0.00 11/5453 xml_ivalue [1533] +----------------------------------------------- + 0.00 0.00 1/1 report_summary [614] +[1253] 0.0 0.00 0.00 1 writeturn [1253] + 0.00 0.00 1/3 gamedate2 [1222] + 0.00 0.00 2/573 join_path [1016] + 0.00 0.00 2/9 basepath [1730] +----------------------------------------------- + +[1254] 0.0 0.00 0.00 tolua_get_unit [1254] + 0.00 0.00 1/888603 findunit [123] + 0.00 0.00 1/13 tolua_toid [1274] +----------------------------------------------- + 0.00 0.00 4/4 verify_targets [1027] +[1255] 0.0 0.00 0.00 4 verify_building [1255] + 0.00 0.00 1/967784 msg_message [132] + 0.00 0.00 1/392959 add_message [434] + 0.00 0.00 4/48455 findbuilding [1462] + 0.00 0.00 1/1009028 msg_release [1373] +----------------------------------------------- + +[1256] 0.0 0.00 0.00 tolua_unit_addnotice [1256] + 0.00 0.00 1/48 addmessage [1069] +----------------------------------------------- + +[1257] 0.0 0.00 0.00 tolua_faction_tostring [1257] + 0.00 0.00 5/1295787 factionname [247] +----------------------------------------------- + 0.00 0.00 12/12 write_triggers [954] +[1258] 0.0 0.00 0.00 12 changefaction_write [1258] + 0.00 0.00 12/604861 write_unit_reference [557] + 0.00 0.00 12/647569 write_faction_reference [1382] +----------------------------------------------- + 0.00 0.00 2/2 init_directions [1143] +[1259] 0.0 0.00 0.00 2 register_special_direction [1259] + 0.00 0.00 2/24887945 locale_string [27] + 0.00 0.00 2/8993 addtoken [811] + 0.00 0.00 2/4558423 get_translations [437] +----------------------------------------------- + 0.00 0.00 1/11 use_bloodpotion [935] + 0.00 0.00 2/11 do_fumble [1062] + 0.00 0.00 2/11 create_newfamiliar [1288] + 0.00 0.00 6/11 sp_charmingsong [993] +[1260] 0.0 0.00 0.00 11 add_trigger [1260] + 0.00 0.00 11/51974272 a_find [65] + 0.00 0.00 7/779419 a_add [555] + 0.00 0.00 7/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 6/6 add_spellparameter [1173] +[1261] 0.0 0.00 0.00 6 addparam_building [1261] + 0.00 0.00 6/688711 atoi36 [440] +----------------------------------------------- + 0.00 0.00 1/1 read_triggers [798] +[1262] 0.0 0.00 0.00 1 giveitem_read [1262] + 0.00 0.00 1/9763 read_reference [726] + 0.00 0.00 1/1177511 it_find [385] +----------------------------------------------- + 0.00 0.00 2/13 new_ship [1229] + 0.00 0.00 11/13 new_building [1059] +[1263] 0.0 0.00 0.00 13 newcontainerid [1263] + 0.00 0.00 13/7641081 genrand_int31 [171] + 0.00 0.00 16/28818 findship [1483] + 0.00 0.00 16/48455 findbuilding [1462] +----------------------------------------------- + 0.00 0.00 1/27 tolua_get_nmrs [1208] + 0.00 0.00 1/27 remove_idle_players [391] + 0.00 0.00 2/27 report_summary [614] + 0.00 0.00 3/27 update_nmrs [1155] + 0.00 0.00 20/27 nmr_warnings [878] +[1264] 0.0 0.00 0.00 27 NMRTimeout [1264] + 0.00 0.00 27/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 13/13 create_curse [800] +[1265] 0.0 0.00 0.00 13 set_curseingmagician [1265] + 0.00 0.00 13/10190660 get_curse [143] +----------------------------------------------- + 0.00 0.00 23/23 xml_readitem [1107] +[1266] 0.0 0.00 0.00 23 xml_readweapon [1266] + 0.00 0.00 3/68430117 rc_find [15] + 0.00 0.00 2/150 rc_get_or_create [1105] + 0.00 0.00 303/6576 xml_bvalue [1532] + 0.00 0.00 108/5453 xml_ivalue [1533] + 0.00 0.00 23/501 xml_fvalue [1599] + 0.00 0.00 23/1041 findskill [1586] + 0.00 0.00 23/23 new_weapontype [1703] + 0.00 0.00 3/3 racelist_insert [1766] + 0.00 0.00 3/178 parse_function [1637] +----------------------------------------------- + 0.00 0.00 1/1 remove_unit [499] +[1267] 0.0 0.00 0.00 1 make_zombie [1267] + 0.00 0.00 1/1381157 unit_max_hp [136] + 0.00 0.00 1/71815034 get_race [12] + 0.00 0.00 1/3178 scale_number [969] + 0.00 0.00 1/3902878 get_monsters [293] + 0.00 0.00 1/598129 u_setfaction [1111] + 0.00 0.00 1/600145 u_setrace [1389] +----------------------------------------------- + 0.00 0.00 286/286 factionorders [983] +[1268] 0.0 0.00 0.00 286 checkpasswd [1268] + 0.00 0.00 4/1295787 factionname [247] + 0.00 0.00 4/5 log_warning [1342] + 0.00 0.00 286/286 password_verify [1610] +----------------------------------------------- + 0.00 0.00 7/7 sp_healing [989] +[1269] 0.0 0.00 0.00 7 has_ao_healing [1269] + 0.00 0.00 7/1177511 it_find [385] + 0.00 0.00 7/7 i_findc [1737] +----------------------------------------------- + 0.00 0.00 1/1 read_triggers [798] +[1270] 0.0 0.00 0.00 1 caldera_read [1270] + 0.00 0.00 1/9763 read_reference [726] +----------------------------------------------- + 0.00 0.00 1/1 read_triggers [798] +[1271] 0.0 0.00 0.00 1 clonedied_read [1271] + 0.00 0.00 1/9763 read_reference [726] +----------------------------------------------- + 0.00 0.00 1/1 do_battles [63] +[1272] 0.0 0.00 0.00 1 init_rules [1272] + 0.00 0.00 16/4984610 config_get_int [348] + 0.00 0.00 3/12246335 ct_find [114] +----------------------------------------------- + 0.00 0.00 60/60 damage_unit [1044] +[1273] 0.0 0.00 0.00 60 nb_armor [1273] + 0.00 0.00 60/129167539 u_race [89] +----------------------------------------------- + 0.00 0.00 1/13 tolua_get_unit [1254] + 0.00 0.00 12/13 tolua_faction_get [1246] +[1274] 0.0 0.00 0.00 13 tolua_toid [1274] + 0.00 0.00 5/688711 atoi36 [440] +----------------------------------------------- + 0.00 0.00 2/6 json_keywords [1124] + 0.00 0.00 2/6 make_locales [1303] + 0.00 0.00 2/6 init_locales [947] +[1275] 0.0 0.00 0.00 6 get_or_create_locale [1275] + 0.00 0.00 6/32337529 hashstring [37] +----------------------------------------------- + +[1276] 0.0 0.00 0.00 tolua_unit_add_order [1276] + 0.00 0.00 1/1481407 parse_order [117] + 0.00 0.00 1/48 unit_addorder [1684] +----------------------------------------------- + 0.00 0.00 58/58 peasant_luck_effect [984] +[1277] 0.0 0.00 0.00 58 peasant_luck_factor [1277] + 0.00 0.00 58/717218 config_get_flt [714] +----------------------------------------------- + 0.00 0.00 6/6 changerace_read [1215] +[1278] 0.0 0.00 0.00 6 read_race_reference [1278] + 0.00 0.00 4/68430271 rc_find_i [16] +----------------------------------------------- + 0.00 0.00 2/2 border_name [641] +[1279] 0.0 0.00 0.00 2 b_namequestportal [1279] + 0.00 0.00 2/24887945 locale_string [27] + 0.00 0.00 2/4133717 mkname [261] +----------------------------------------------- + 0.00 0.00 38/3002 renumber_cmd [780] + 0.00 0.00 146/3002 createunitid [317] + 0.00 0.00 2818/3002 newunitid [319] +[1280] 0.0 0.00 0.00 3002 forbiddenid [1280] + 0.00 0.00 4/688711 atoi36 [440] +----------------------------------------------- + +[1281] 0.0 0.00 0.00 tolua_getkey [1281] + 0.00 0.00 3/688711 atoi36 [440] + 0.00 0.00 3/178257 key_get [719] +----------------------------------------------- + 0.00 0.00 206/206 start_battle [297] +[1282] 0.0 0.00 0.00 206 make_battle [1282] + 0.00 0.00 206/18647447 getplane [596] +----------------------------------------------- + 1 json_config [464] +[1283] 0.0 0.00 0.00 1 json_include [1283] + 0.00 0.00 3/573 join_path [1016] + 3 json_config [464] +----------------------------------------------- + 0.00 0.00 1/1 do_fumble [1062] +[1284] 0.0 0.00 0.00 1 fumble_default [1284] + 0.00 0.00 1/15102 cmistake [718] +----------------------------------------------- + 0.00 0.00 1/1 sp_charmingsong [993] +[1285] 0.0 0.00 0.00 1 report_failure [1285] + 0.00 0.00 1/15102 cmistake [718] +----------------------------------------------- + 0.00 0.00 12/12 drifting_ships [490] +[1286] 0.0 0.00 0.00 12 msg_to_ship_inmates [1286] + 0.00 0.00 2/392959 add_message [434] + 0.00 0.00 12/1009028 msg_release [1373] +----------------------------------------------- + 0.00 0.00 6/6 write_triggers [954] +[1287] 0.0 0.00 0.00 6 changerace_write [1287] + 0.00 0.00 6/604861 write_unit_reference [557] + 0.00 0.00 12/12 write_race_reference [1723] +----------------------------------------------- + 0.00 0.00 1/1 make_familiar [1219] +[1288] 0.0 0.00 0.00 1 create_newfamiliar [1288] + 0.00 0.00 3/779419 a_add [555] + 0.00 0.00 2/11 add_trigger [1260] + 0.00 0.00 3/51974272 a_find [65] + 0.00 0.00 3/779868 a_new [1376] + 0.00 0.00 1/5 trigger_killunit [1752] + 0.00 0.00 1/1 trigger_shock [1892] +----------------------------------------------- + 0.00 0.00 1/5 load_inifile [1293] + 0.00 0.00 1/5 readgame [60] + 0.00 0.00 1/5 writegame [82] + 0.00 0.00 2/5 create_directories [1294] +[1289] 0.0 0.00 0.00 5 datapath [1289] + 0.00 0.00 5/569 relpath [1061] +----------------------------------------------- + 0.00 0.00 1/1 ally_cmd [877] +[1290] 0.0 0.00 0.00 1 removelist [1290] + 0.00 0.00 1/113845 choplist [565] +----------------------------------------------- + +[1291] 0.0 0.00 0.00 tolua_region_tostring [1291] + 0.00 0.00 1/361 regionname [987] +----------------------------------------------- + 0.00 0.00 1/1 main [541] +[1292] 0.0 0.00 0.00 1 parse_config [1292] + 0.00 0.00 1/1 load_inifile [1293] + 0.00 0.00 1/49235 log_debug [1245] +----------------------------------------------- + 0.00 0.00 1/1 parse_config [1292] +[1293] 0.0 0.00 0.00 1 load_inifile [1293] + 0.00 0.00 1/1 make_locales [1303] + 0.00 0.00 1/5 datapath [1289] + 0.00 0.00 1/564 reportpath [1063] + 0.00 0.00 1/9 basepath [1730] +----------------------------------------------- + 0.00 0.00 1/2 init_reports [399] + 0.00 0.00 1/2 writegame [82] +[1294] 0.0 0.00 0.00 2 create_directories [1294] + 0.00 0.00 2/5 datapath [1289] + 0.00 0.00 2/564 reportpath [1063] +----------------------------------------------- + 0.00 0.00 30/30 drifting_ships [490] +[1295] 0.0 0.00 0.00 30 overload_start [1295] + 0.00 0.00 30/717218 config_get_flt [714] +----------------------------------------------- + +[1296] 0.0 0.00 0.00 tolua_get_region [1296] + 0.00 0.00 1/459083 findregion [420] + 0.00 0.00 1/1206547 findplane [457] + 0.00 0.00 1/3587241 pnormalize [1350] +----------------------------------------------- + 0.00 0.00 1/3 use_bloodpotion [935] + 0.00 0.00 2/3 do_fumble [1062] +[1297] 0.0 0.00 0.00 3 trigger_changerace [1297] + 0.00 0.00 3/2868601 u_irace [257] + 0.00 0.00 3/129167539 u_race [89] + 0.00 0.00 3/3113 t_new [1546] +----------------------------------------------- + 0.00 0.00 206/206 do_battle [64] +[1298] 0.0 0.00 0.00 206 make_heroes [1298] + 0.00 0.00 24/129167539 u_race [89] +----------------------------------------------- + +[1299] 0.0 0.00 0.00 tolua_atoi36 [1299] + 0.00 0.00 2/688711 atoi36 [440] +----------------------------------------------- + +[1300] 0.0 0.00 0.00 tolua_unit_tostring [1300] + 0.00 0.00 1/2383101 unitname [142] +----------------------------------------------- + 0.00 0.00 1/1 sp_holyground [1068] +[1301] 0.0 0.00 0.00 1 report_spell [1301] + 0.00 0.00 1/12265 r_addmessage [779] +----------------------------------------------- + +[1302] 0.0 0.00 0.00 tolua_region_get_next [1302] + 0.00 0.00 1/369586 r_connect [474] +----------------------------------------------- + 0.00 0.00 1/1 load_inifile [1293] +[1303] 0.0 0.00 0.00 1 make_locales [1303] + 0.00 0.00 2/6 get_or_create_locale [1275] +----------------------------------------------- + 0.00 0.00 1/1 movewhere [350] +[1304] 0.0 0.00 0.00 1 get_translation [1304] + 0.00 0.00 1/302482 findtoken [501] + 0.00 0.00 1/4558423 get_translations [437] +----------------------------------------------- + 0.00 0.00 1/1 read_xml [791] +[1305] 0.0 0.00 0.00 1 parse_ships [1305] + 0.00 0.00 7/191 xml_readconstruction [1183] + 0.00 0.00 63/5453 xml_ivalue [1533] + 0.00 0.00 34/52 get_or_create_terrain [1680] + 0.00 0.00 21/6576 xml_bvalue [1532] + 0.00 0.00 14/501 xml_fvalue [1599] + 0.00 0.00 7/7 st_get_or_create [1743] +----------------------------------------------- + +[1306] 0.0 0.00 0.00 tolua_building_tostring [1306] + 0.00 0.00 1/180818 buildingname [621] +----------------------------------------------- + 0.00 0.00 1/1 parse_resources [1086] +[1307] 0.0 0.00 0.00 1 init_itemtypes [1307] + 0.00 0.00 1/1 init_seed [1320] + 0.00 0.00 1/1 init_mallornseed [1319] +----------------------------------------------- + 0.00 0.00 1/1 age_unit [336] +[1308] 0.0 0.00 0.00 1 age_illusion [1308] + 0.00 0.00 1/71815034 get_race [12] +----------------------------------------------- + 0.00 0.00 2/2 write_triggers [954] +[1309] 0.0 0.00 0.00 2 giveitem_write [1309] + 0.00 0.00 2/604861 write_unit_reference [557] +----------------------------------------------- + 0.00 0.00 1/1 processorders [6] +[1310] 0.0 0.00 0.00 1 init_processor [1310] + 0.00 0.00 4/4984610 config_get_int [348] + 0.00 0.00 1/207 rule_force_leave [1175] + 0.00 0.00 29/29 add_proc_order [1692] + 0.00 0.00 13/13 add_proc_global [1716] + 0.00 0.00 8/8 add_proc_region [1733] + 0.00 0.00 6/11194781 keyword_disabled [1348] + 0.00 0.00 3/3 add_proc_unit [1762] + 0.00 0.00 3/3 add_proc_postregion [1761] +----------------------------------------------- + 0.00 0.00 1/1 game_done [542] +[1311] 0.0 0.00 0.00 1 free_locales [1311] + 0.00 0.00 6/4558423 get_translations [437] + 0.00 0.00 12/267 freetokens [1611] +----------------------------------------------- + 0.00 0.00 1/1 parse_buildings [1131] +[1312] 0.0 0.00 0.00 1 init_smithy [1312] + 0.00 0.00 2/779419 a_add [555] + 0.00 0.00 1/2 make_skillmod [1777] + 0.00 0.00 1/1 make_matmod [1821] +----------------------------------------------- + +[1313] 0.0 0.00 0.00 tolua_unit_clear_orders [1313] + 0.00 0.00 1/1644867 free_orders [306] +----------------------------------------------- + 0.00 0.00 1/1 read_attribs [388] +[1314] 0.0 0.00 0.00 1 a_upgradekeys [1314] + 0.00 0.00 1/779419 a_add [555] + 0.00 0.00 1/51974272 a_find [65] + 0.00 0.00 1/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 1/1 oldfamiliars [1240] +[1315] 0.0 0.00 0.00 1 create_mage [1315] + 0.00 0.00 1/779419 a_add [555] + 0.00 0.00 1/51974272 a_find [65] + 0.00 0.00 1/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 1/1 main [541] +[1316] 0.0 0.00 0.00 1 lua_init [1316] + 0.00 0.00 1/1 tolua_bindings_open [1318] + 0.00 0.00 2/2 tolua_unit_open [1782] + 0.00 0.00 1/1 openlibs [1824] + 0.00 0.00 1/1 register_tolua_helpers [1854] + 0.00 0.00 1/2 tolua_eressea_open [1780] + 0.00 0.00 1/1 tolua_sqlite_open [1887] + 0.00 0.00 1/1 tolua_building_open [1867] + 0.00 0.00 1/1 tolua_ship_open [1886] + 0.00 0.00 1/1 tolua_region_open [1884] + 0.00 0.00 1/1 tolua_faction_open [1870] + 0.00 0.00 1/1 tolua_message_open [1875] + 0.00 0.00 1/1 tolua_order_open [1876] + 0.00 0.00 1/1 tolua_gmtool_open [1872] + 0.00 0.00 1/1 tolua_dict_open [1869] + 0.00 0.00 1/1 tolua_storage_open [1888] +----------------------------------------------- + 0.00 0.00 1/1 tolua_bindings_open [1318] +[1317] 0.0 0.00 0.00 1 parse_inifile [1317] + 0.00 0.00 1/564 reportpath [1063] + 0.00 0.00 1/20777534 config_get [224] + 0.00 0.00 1/9 basepath [1730] +----------------------------------------------- + 0.00 0.00 1/1 lua_init [1316] +[1318] 0.0 0.00 0.00 1 tolua_bindings_open [1318] + 0.00 0.00 1/1 parse_inifile [1317] + 0.00 0.00 1/1 tolua_bind_open [1866] +----------------------------------------------- + 0.00 0.00 1/1 init_itemtypes [1307] +[1319] 0.0 0.00 0.00 1 init_mallornseed [1319] + 0.00 0.00 1/779419 a_add [555] + 0.00 0.00 1/2032164 rt_find [597] + 0.00 0.00 1/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 1/1 init_itemtypes [1307] +[1320] 0.0 0.00 0.00 1 init_seed [1320] + 0.00 0.00 1/779419 a_add [555] + 0.00 0.00 1/2032164 rt_find [597] + 0.00 0.00 1/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 1/1 write_triggers [954] +[1321] 0.0 0.00 0.00 1 clonedied_write [1321] + 0.00 0.00 1/604861 write_unit_reference [557] +----------------------------------------------- + 0.00 0.00 1/1 sp_summon_familiar [1025] +[1322] 0.0 0.00 0.00 1 select_familiar [1322] + 0.00 0.00 1/7641081 genrand_int31 [171] +----------------------------------------------- + 0.00 0.00 5/1613387 get_cmp_region_owner [1347] + 0.00 0.00 233/1613387 readfaction [767] + 0.00 0.00 36937/1613387 cr_output_region [10] + 0.00 0.00 127676/1613387 describe [35] + 0.00 0.00 178254/1613387 ageing [185] + 0.00 0.00 356508/1613387 score [23] + 0.00 0.00 913774/1613387 is_guardian_r [186] +[1323] 0.0 0.00 0.00 1613387 rule_region_owners [1323] + 0.00 0.00 2/4984610 config_get_int [348] + 0.00 0.00 1613387/2386892 config_changed [1352] +----------------------------------------------- + 0.00 0.00 1/2 read_game [62] + 0.00 0.00 1/2 write_game [83] +[1324] 0.0 0.00 0.00 2 game_id [1324] + 0.00 0.00 2/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 2/154110 sp_charmingsong [993] + 0.00 0.00 230/154110 setstealth_cmd [182] + 0.00 0.00 153878/154110 read_unit [74] +[1325] 0.0 0.00 0.00 154110 rule_stealth_anon [1325] + 0.00 0.00 2/4984610 config_get_int [348] + 0.00 0.00 154110/2386892 config_changed [1352] +----------------------------------------------- + 0.00 0.00 5/5 chaos [848] +[1326] 0.0 0.00 0.00 5 set_money [1326] + 0.00 0.00 5/56052475 get_resourcetype [194] + 0.00 0.00 5/822780 i_new [1375] + 0.00 0.00 5/87004 i_add [1442] +----------------------------------------------- + 0.00 0.00 82525/508632 expandwork [277] + 0.00 0.00 426107/508632 default_wage [173] +[1327] 0.0 0.00 0.00 508632 rule_blessed_harvest [1327] + 0.00 0.00 1/4984610 config_get_int [348] + 0.00 0.00 508632/2386892 config_changed [1352] +----------------------------------------------- + 0.00 0.00 1803/103079 gift_items [891] + 0.00 0.00 101276/103079 can_give [1335] +[1328] 0.0 0.00 0.00 103079 rule_give [1328] + 0.00 0.00 1/4984610 config_get_int [348] + 0.00 0.00 103079/2386892 config_changed [1352] +----------------------------------------------- + 0.00 0.00 4/3003 steal_cmd [766] + 0.00 0.00 61/3003 build [691] + 0.00 0.00 2938/3003 allocate_resource [752] +[1329] 0.0 0.00 0.00 3003 roqf_factor [1329] + 0.00 0.00 1/4984610 config_get_int [348] + 0.00 0.00 3003/2386892 config_changed [1352] +----------------------------------------------- + 0.00 0.00 1583/1583 skill_limit [1172] +[1330] 0.0 0.00 0.00 1583 allied_skilllimit [1330] + 0.00 0.00 1/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 230/1214 report_computer [9] + 0.00 0.00 230/1214 report_plaintext [4] + 0.00 0.00 754/1214 checkunitnumber [402] +[1331] 0.0 0.00 0.00 1214 rule_faction_limit [1331] + 0.00 0.00 1/4984610 config_get_int [348] + 0.00 0.00 1214/2386892 config_changed [1352] +----------------------------------------------- + 0.00 0.00 754/754 checkunitnumber [402] +[1332] 0.0 0.00 0.00 754 rule_alliance_limit [1332] + 0.00 0.00 1/4984610 config_get_int [348] + 0.00 0.00 754/2386892 config_changed [1352] +----------------------------------------------- + 0.00 0.00 1/1 remove_idle_players [391] +[1333] 0.0 0.00 0.00 1 nmr_death [1333] + 0.00 0.00 1/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 1/1 economics [78] +[1334] 0.0 0.00 0.00 1 recruit_init [1334] + 0.00 0.00 1/4984610 config_get_int [348] +----------------------------------------------- + 0.00 0.00 102761/217696 check_give [1138] + 0.00 0.00 114935/217696 give_cmd [102] +[1335] 0.0 0.00 0.00 217696 can_give [1335] + 0.00 0.00 101276/103079 rule_give [1328] +----------------------------------------------- + 0.00 0.00 1/1 magic [157] +[1336] 0.0 0.00 0.00 1 sp_seduce [1336] + 0.00 0.00 1/129167539 u_race [89] + 0.00 0.00 1/56052475 get_resourcetype [194] +----------------------------------------------- + 0.00 0.00 1/3 sp_enterastral [1045] + 0.00 0.00 2/3 sp_viewreality [784] +[1337] 0.0 0.00 0.00 3 getplaneid [1337] + 0.00 0.00 3/18647447 getplane [596] +----------------------------------------------- + 0.00 0.00 3/3 sp_charmingsong [993] +[1338] 0.0 0.00 0.00 3 can_charm [1338] + 0.00 0.00 1/1583 skill_limit [1172] +----------------------------------------------- + 0.00 0.00 1/64 reports [2] + 0.00 0.00 1/64 immigration [294] + 0.00 0.00 1/64 processorders [6] + 0.00 0.00 1/64 writepasswd [1074] + 0.00 0.00 1/64 disable_feature [771] + 0.00 0.00 2/64 remove_idle_players [391] + 0.00 0.00 2/64 sp_igjarjuk [923] + 0.00 0.00 2/64 readorders [43] + 0.00 0.00 3/64 report_summary [614] + 0.00 0.00 10/64 tolua_log_eressea_log_info00 [1341] + 0.00 0.00 40/64 write_unit [97] +[1339] 0.0 0.00 0.00 64 log_info [1339] + 0.00 0.00 64/49317 log_write [1243] +----------------------------------------------- + 0.00 0.00 1/13 tolua_log_eressea_log_error00 [1344] + 0.00 0.00 12/13 read_game [62] +[1340] 0.0 0.00 0.00 13 log_error [1340] + 0.00 0.00 13/49317 log_write [1243] +----------------------------------------------- + +[1341] 0.0 0.00 0.00 tolua_log_eressea_log_info00 [1341] + 0.00 0.00 10/64 log_info [1339] +----------------------------------------------- + 0.00 0.00 1/5 tolua_log_eressea_log_warning00 [1345] + 0.00 0.00 4/5 checkpasswd [1268] +[1342] 0.0 0.00 0.00 5 log_warning [1342] + 0.00 0.00 5/49317 log_write [1243] +----------------------------------------------- + +[1343] 0.0 0.00 0.00 tolua_log_eressea_log_debug00 [1343] + 0.00 0.00 4/49235 log_debug [1245] +----------------------------------------------- + +[1344] 0.0 0.00 0.00 tolua_log_eressea_log_error00 [1344] + 0.00 0.00 1/13 log_error [1340] +----------------------------------------------- + +[1345] 0.0 0.00 0.00 tolua_log_eressea_log_warning00 [1345] + 0.00 0.00 1/5 log_warning [1342] +----------------------------------------------- + 0.00 0.00 1/1 main [541] +[1346] 0.0 0.00 0.00 1 eressea_run [1346] + 0.00 0.00 1/49235 log_debug [1245] +----------------------------------------------- + 0.00 0.00 5/5 name_cmd [835] +[1347] 0.0 0.00 0.00 5 get_cmp_region_owner [1347] + 0.00 0.00 5/1613387 rule_region_owners [1323] +----------------------------------------------- + 0.00 0.00 1/11194781 defaultorders [249] + 0.00 0.00 6/11194781 init_processor [1310] + 0.00 0.00 29/11194781 add_proc_order [1692] + 0.00 0.00 1207012/11194781 create_order_i [175] + 0.00 0.00 1481322/11194781 get_keyword [274] + 0.00 0.00 8506411/11194781 besieged [547] +[1348] 0.0 0.00 0.00 11194781 keyword_disabled [1348] +----------------------------------------------- + 0.00 0.00 6656973/6656973 parse_string [86] +[1349] 0.0 0.00 0.00 6656973 bfree [1349] +----------------------------------------------- + 0.00 0.00 1/3587241 tolua_get_region [1296] + 0.00 0.00 5/3587241 cast_cmd [760] + 0.00 0.00 493/3587241 report_computer [9] + 0.00 0.00 7499/3587241 cr_regions [840] + 0.00 0.00 8892/3587241 r_astral_to_standard [783] + 0.00 0.00 10477/3587241 report_template [87] + 0.00 0.00 108425/3587241 update_lighthouse [605] + 0.00 0.00 132705/3587241 cr_region [662] + 0.00 0.00 163381/3587241 astralregions [329] + 0.00 0.00 178254/3587241 new_region [275] + 0.00 0.00 211668/3587241 cr_output_region [10] + 0.00 0.00 369586/3587241 r_connect [474] + 0.00 0.00 513251/3587241 write_regionname [280] + 0.00 0.00 932009/3587241 koor_reldirection [562] + 0.00 0.00 950595/3587241 f_regionid [161] +[1350] 0.0 0.00 0.00 3587241 pnormalize [1350] +----------------------------------------------- + 0.00 0.00 692/3166898 research_cmd [886] + 0.00 0.00 20639/3166898 herbsearch [493] + 0.00 0.00 32670/3166898 writeregion [519] + 0.00 0.00 3112897/3166898 growing_herbs [300] +[1351] 0.0 0.00 0.00 3166898 rherbs [1351] +----------------------------------------------- + 0.00 0.00 51/2386892 potion_water_of_life [945] + 0.00 0.00 232/2386892 prepare_report [8] + 0.00 0.00 754/2386892 rule_alliance_limit [1332] + 0.00 0.00 1214/2386892 rule_faction_limit [1331] + 0.00 0.00 2430/2386892 heal_factor [619] + 0.00 0.00 3003/2386892 roqf_factor [1329] + 0.00 0.00 103079/2386892 rule_give [1328] + 0.00 0.00 154110/2386892 rule_stealth_anon [1325] + 0.00 0.00 508632/2386892 rule_blessed_harvest [1327] + 0.00 0.00 1613387/2386892 rule_region_owners [1323] +[1352] 0.0 0.00 0.00 2386892 config_changed [1352] +----------------------------------------------- + 0.00 0.00 23/2379316 new_weapontype [1703] + 0.00 0.00 3531/2379316 make_fighter [424] + 0.00 0.00 2375762/2379316 armedmen [151] +[1353] 0.0 0.00 0.00 2379316 resource2weapon [1353] +----------------------------------------------- + 0.00 0.00 174/2124526 findresourcetype [1181] + 0.00 0.00 324/2124526 add_resourcename_cb [977] + 0.00 0.00 324/2124526 add_itemname_cb [980] + 0.00 0.00 3110/2124526 default_order [902] + 0.00 0.00 191379/2124526 finditemtype [735] + 0.00 0.00 1929215/2124526 create_order_i [175] +[1354] 0.0 0.00 0.00 2124526 locale_index [1354] +----------------------------------------------- + 0.00 0.00 47/2009097 give_peasants [1060] + 0.00 0.00 118/2009097 keyword_key [1647] + 0.00 0.00 136/2009097 make_movement_order [522] + 0.00 0.00 191/2009097 follow_ship [749] + 0.00 0.00 2081/2009097 nr_spell_syntax [732] + 0.00 0.00 2006524/2009097 get_command [108] +[1355] 0.0 0.00 0.00 2009097 keyword [1355] +----------------------------------------------- + 0.00 0.00 2/1936876 create_ship [1014] + 0.00 0.00 8/1936876 do_combatmagic [825] + 0.00 0.00 21/1936876 do_combatspell [702] + 0.00 0.00 99/1936876 piracy_cmd [660] + 0.00 0.00 133/1936876 travel [81] + 0.00 0.00 220/1936876 free_castorder [1609] + 0.00 0.00 262/1936876 defaultorders [249] + 0.00 0.00 310/1936876 remove_exclusive [571] + 0.00 0.00 490/1936876 build_building [696] + 0.00 0.00 514/1936876 do_enter [128] + 0.00 0.00 1670/1936876 free_recruitments [1568] + 0.00 0.00 5384/1936876 teach_cmd [272] + 0.00 0.00 8450/1936876 cycle_route [375] + 0.00 0.00 14326/1936876 replace_order [526] + 0.00 0.00 19315/1936876 expandorders [197] + 0.00 0.00 395426/1936876 unitorders [46] + 0.00 0.00 679696/1936876 set_order [1365] + 0.00 0.00 810550/1936876 free_orders [306] +[1356] 0.0 0.00 0.00 1936876 free_order [1356] + 0.00 0.00 1342381/1342381 release_data [1364] +----------------------------------------------- + 0.00 0.00 1785077/1785077 adjust_coordinates [234] +[1357] 0.0 0.00 0.00 1785077 faction_getorigin [1357] +----------------------------------------------- + 0.00 0.00 44924/1726748 attack [84] + 0.00 0.00 80630/1726748 terminate [242] + 0.00 0.00 1601194/1726748 weapon_effskill [168] +[1358] 0.0 0.00 0.00 1726748 is_riding [1358] +----------------------------------------------- + 0.00 0.00 1/1511812 eaten_by_monster [468] + 0.00 0.00 9/1511812 melt_iceberg [1082] + 0.00 0.00 29/1511812 terraform_region [932] + 0.00 0.00 48/1511812 chaos [848] + 0.00 0.00 105/1511812 bewegung_blockiert_von [631] + 0.00 0.00 114/1511812 build_road [950] + 0.00 0.00 847/1511812 buy [707] + 0.00 0.00 4628/1511812 expandselling [93] + 0.00 0.00 4629/1511812 produce [29] + 0.00 0.00 16651/1511812 sell [498] + 0.00 0.00 64838/1511812 calculate_emigration [603] + 0.00 0.00 139323/1511812 spawn_dragons [411] + 0.00 0.00 178254/1511812 move_icebergs [534] + 0.00 0.00 178261/1511812 create_icebergs [538] + 0.00 0.00 201709/1511812 make_summary [21] + 0.00 0.00 722366/1511812 skill_mod [264] +[1359] 0.0 0.00 0.00 1511812 newterrain [1359] +----------------------------------------------- + 0.00 0.00 1380398/1380398 translate [28] +[1360] 0.0 0.00 0.00 1380398 brelease [1360] +----------------------------------------------- + 0.00 0.00 1380398/1380398 translate [28] +[1361] 0.0 0.00 0.00 1380398 free_variables [1361] +----------------------------------------------- + 0.00 0.00 156/1380007 make_fighter [424] + 0.00 0.00 431/1380007 create_unit [296] + 0.00 0.00 39954/1380007 destroyfaction [392] + 0.00 0.00 151469/1380007 visible_faction [68] + 0.00 0.00 373997/1380007 nr_unit [11] + 0.00 0.00 401604/1380007 bufunit [17] + 0.00 0.00 412396/1380007 cr_output_unit [19] +[1362] 0.0 0.00 0.00 1380007 get_otherfaction [1362] +----------------------------------------------- + 0.00 0.00 1/1342832 destroyfaction [392] + 0.00 0.00 2/1342832 remove_building [1153] + 0.00 0.00 6/1342832 remove_ship [1748] + 0.00 0.00 1794/1342832 remove_unit [499] + 0.00 0.00 46184/1342832 age_building [712] + 0.00 0.00 178254/1342832 age_region [659] + 0.00 0.00 186260/1342832 give_item [126] + 0.00 0.00 315567/1342832 plan_monsters [52] + 0.00 0.00 614764/1342832 ageing [185] +[1363] 0.0 0.00 0.00 1342832 handle_event [1363] + 0.00 0.00 18/18 handle_triggers [1706] +----------------------------------------------- + 0.00 0.00 1342381/1342381 free_order [1356] +[1364] 0.0 0.00 0.00 1342381 release_data [1364] +----------------------------------------------- + 0.00 0.00 2/1291427 sp_charmingsong [993] + 0.00 0.00 3/1291427 cast_cmd [760] + 0.00 0.00 114/1291427 u_setfaction [1111] + 0.00 0.00 163/1291427 movement [47] + 0.00 0.00 703/1291427 follow_unit [331] + 0.00 0.00 2889/1291427 create_unit [296] + 0.00 0.00 6947/1291427 sail [181] + 0.00 0.00 103784/1291427 move_cmd [66] + 0.00 0.00 581697/1291427 update_long_order [270] + 0.00 0.00 595125/1291427 read_unit [74] +[1365] 0.0 0.00 0.00 1291427 set_order [1365] + 0.00 0.00 679696/1936876 free_order [1356] +----------------------------------------------- + 0.00 0.00 1252028/1252028 create_data [252] +[1366] 0.0 0.00 0.00 1252028 mkdata [1366] +----------------------------------------------- + 0.00 0.00 148748/1218663 terminate [242] + 0.00 0.00 363071/1218663 hits [131] + 0.00 0.00 706844/1218663 skilldiff [166] +[1367] 0.0 0.00 0.00 1218663 select_weapon [1367] + 0.00 0.00 516342/754589 preferred_weapon [1377] +----------------------------------------------- + 0.00 0.00 10565/1214628 list_address [635] + 0.00 0.00 453546/1214628 get_addresses [20] + 0.00 0.00 750517/1214628 nr_unit [11] +[1368] 0.0 0.00 0.00 1214628 is_allied [1368] +----------------------------------------------- + 0.00 0.00 5/1160345 give_horses [1108] + 0.00 0.00 5/1160345 gift_items [891] + 0.00 0.00 9/1160345 destroyfaction [392] + 0.00 0.00 3269/1160345 region_getresource [1058] + 0.00 0.00 28760/1160345 migrate [1478] + 0.00 0.00 32670/1160345 writeregion [519] + 0.00 0.00 45630/1160345 cr_output_region [10] + 0.00 0.00 91145/1160345 report_resources [210] + 0.00 0.00 225630/1160345 describe [35] + 0.00 0.00 356508/1160345 make_summary [21] + 0.00 0.00 376714/1160345 horses [330] +[1369] 0.0 0.00 0.00 1160345 rhorses [1369] +----------------------------------------------- + 0.00 0.00 1132609/1132609 update_long_order [270] +[1370] 0.0 0.00 0.00 1132609 is_long [1370] +----------------------------------------------- + 0.00 0.00 1067195/1067195 msg_free [1384] +[1371] 0.0 0.00 0.00 1067195 free_arg [1371] + 0.00 0.00 37202/37202 var_free_string [1470] + 0.00 0.00 209/209 var_free_resources [1628] +----------------------------------------------- + 0.00 0.00 1014205/1014205 add_seen_nb [386] +[1372] 0.0 0.00 0.00 1014205 add_seen [1372] +----------------------------------------------- + 0.00 0.00 1/1009028 sp_holyground [1068] + 0.00 0.00 1/1009028 sp_summonshadowlords [1034] + 0.00 0.00 1/1009028 sp_generous [1040] + 0.00 0.00 1/1009028 plant [1184] + 0.00 0.00 1/1009028 planttrees [1206] + 0.00 0.00 1/1009028 breedtrees [1148] + 0.00 0.00 1/1009028 promotion_cmd [917] + 0.00 0.00 1/1009028 age_stonecircle [1021] + 0.00 0.00 1/1009028 verify_building [1255] + 0.00 0.00 1/1009028 cast_cmd [760] + 0.00 0.00 1/1009028 sp_flying_ship [1064] + 0.00 0.00 1/1009028 use_skillpotion [1233] + 0.00 0.00 2/1009028 travel [81] + 0.00 0.00 2/1009028 sp_summon_familiar [1025] + 0.00 0.00 2/1009028 sp_bloodsacrifice [1209] + 0.00 0.00 2/1009028 sp_charmingsong [993] + 0.00 0.00 2/1009028 sp_viewreality [784] + 0.00 0.00 2/1009028 magic [157] + 0.00 0.00 2/1009028 create_icebergs [538] + 0.00 0.00 2/1009028 make_wormhole [1150] + 0.00 0.00 2/1009028 summon_allies [925] + 0.00 0.00 3/1009028 sp_eternizewall [988] + 0.00 0.00 3/1009028 report_failed_spell [1187] + 0.00 0.00 3/1009028 begin_potion [1096] + 0.00 0.00 3/1009028 give_control_cmd [287] + 0.00 0.00 3/1009028 drown [394] + 0.00 0.00 3/1009028 melt_iceberg [1082] + 0.00 0.00 3/1009028 wormhole_age [1130] + 0.00 0.00 3/1009028 use_healingpotion [1119] + 0.00 0.00 4/1009028 caught_target [1003] + 0.00 0.00 4/1009028 init_transportation [384] + 0.00 0.00 4/1009028 make_route [289] + 0.00 0.00 4/1009028 ship_ready [354] + 0.00 0.00 4/1009028 sp_goodwinds [974] + 0.00 0.00 4/1009028 sp_enterastral [1045] + 0.00 0.00 4/1009028 terminate [242] + 0.00 0.00 4/1009028 quit [276] + 0.00 0.00 4/1009028 move_iceberg [1094] + 0.00 0.00 4/1009028 factionorders [983] + 0.00 0.00 5/1009028 sp_song_of_peace [939] + 0.00 0.00 5/1009028 buy [707] + 0.00 0.00 7/1009028 sp_healing [989] + 0.00 0.00 9/1009028 sp_stormwinds [871] + 0.00 0.00 10/1009028 make_cmd [383] + 0.00 0.00 10/1009028 tax_cmd [697] + 0.00 0.00 10/1009028 spy_cmd [990] + 0.00 0.00 10/1009028 spawn_dragons [411] + 0.00 0.00 12/1009028 msg_to_ship_inmates [1286] + 0.00 0.00 12/1009028 sp_mallornhain [968] + 0.00 0.00 12/1009028 sp_summonundead [896] + 0.00 0.00 12/1009028 forget_cmd [1093] + 0.00 0.00 13/1009028 volcano_destruction [1022] + 0.00 0.00 15/1009028 do_fumble [1062] + 0.00 0.00 18/1009028 sp_hain [931] + 0.00 0.00 18/1009028 do_attack [80] + 0.00 0.00 18/1009028 attack_firesword [785] + 0.00 0.00 19/1009028 enter_building [695] + 0.00 0.00 21/1009028 sp_kampfzauber [957] + 0.00 0.00 22/1009028 spy_message [1038] + 0.00 0.00 24/1009028 nmr_warnings [878] + 0.00 0.00 24/1009028 cancast [833] + 0.00 0.00 26/1009028 sp_blessedharvest [847] + 0.00 0.00 33/1009028 travel_i [92] + 0.00 0.00 37/1009028 volcano_update [981] + 0.00 0.00 37/1009028 build_road [950] + 0.00 0.00 38/1009028 expandstealing [807] + 0.00 0.00 39/1009028 deliverMail [966] + 0.00 0.00 39/1009028 display_item [1054] + 0.00 0.00 39/1009028 random_growl [1065] + 0.00 0.00 41/1009028 dissolve_units [241] + 0.00 0.00 48/1009028 caddmessage [1070] + 0.00 0.00 51/1009028 potion_water_of_life [945] + 0.00 0.00 51/1009028 chaos [848] + 0.00 0.00 53/1009028 sp_dragonodem [627] + 0.00 0.00 55/1009028 start_battle [297] + 0.00 0.00 56/1009028 use_bloodpotion [935] + 0.00 0.00 58/1009028 add_recruits [371] + 0.00 0.00 76/1009028 steal_cmd [766] + 0.00 0.00 84/1009028 do_work [612] + 0.00 0.00 88/1009028 hunger [808] + 0.00 0.00 92/1009028 spawn_undead [629] + 0.00 0.00 100/1009028 age_reduceproduction [1017] + 0.00 0.00 110/1009028 peasants [658] + 0.00 0.00 115/1009028 build_ship [839] + 0.00 0.00 119/1009028 syntax_error [1036] + 0.00 0.00 120/1009028 plagues [781] + 0.00 0.00 149/1009028 create_potion [821] + 0.00 0.00 170/1009028 breedhorses [742] + 0.00 0.00 170/1009028 guard_on_cmd [656] + 0.00 0.00 328/1009028 mail_cmd [844] + 0.00 0.00 345/1009028 end_potion [814] + 0.00 0.00 349/1009028 research_cmd [886] + 0.00 0.00 377/1009028 manufacture [759] + 0.00 0.00 395/1009028 reportcasualties [881] + 0.00 0.00 508/1009028 regenerate_aura [346] + 0.00 0.00 567/1009028 eaten_by_monster [468] + 0.00 0.00 581/1009028 build_building [696] + 0.00 0.00 614/1009028 print_fighters [616] + 0.00 0.00 676/1009028 rp_battles [618] + 0.00 0.00 679/1009028 print_header [838] + 0.00 0.00 681/1009028 absorbed_by_monster [804] + 0.00 0.00 1080/1009028 report_plaintext [4] + 0.00 0.00 1225/1009028 give_item [126] + 0.00 0.00 1323/1009028 teach_cmd [272] + 0.00 0.00 1992/1009028 aftermath [701] + 0.00 0.00 2317/1009028 print_stats [525] + 0.00 0.00 2594/1009028 battle_report [503] + 0.00 0.00 2699/1009028 scared_by_monster [380] + 0.00 0.00 2938/1009028 split_allocations [743] + 0.00 0.00 5049/1009028 piracy_cmd [660] + 0.00 0.00 5810/1009028 report_transfer [724] + 0.00 0.00 5966/1009028 herbsearch [493] + 0.00 0.00 7043/1009028 sail [181] + 0.00 0.00 8710/1009028 maintain_buildings [339] + 0.00 0.00 8797/1009028 cmistake [718] + 0.00 0.00 11358/1009028 expandbuying [49] + 0.00 0.00 12398/1009028 fbattlerecord [688] + 0.00 0.00 12448/1009028 expandselling [93] + 0.00 0.00 12729/1009028 cr_output_curses [69] + 0.00 0.00 14939/1009028 maintain [478] + 0.00 0.00 15186/1009028 nr_curses_i [401] + 0.00 0.00 20258/1009028 study_cmd [105] + 0.00 0.00 29028/1009028 give_cmd [102] + 0.00 0.00 34409/1009028 add_income [625] + 0.00 0.00 80478/1009028 add_give [379] + 0.00 0.00 96460/1009028 travel_route [147] + 0.00 0.00 163573/1009028 describe [35] + 0.00 0.00 192618/1009028 statistics [70] + 0.00 0.00 247009/1009028 prices [85] +[1373] 0.0 0.00 0.00 1009028 msg_release [1373] + 0.00 0.00 633429/633429 msg_free [1384] +----------------------------------------------- + 0.00 0.00 52/987128 dragon_name [1095] + 0.00 0.00 53/987128 lua_getresource [1191] + 0.00 0.00 109/987128 dracoid_name [1126] + 0.00 0.00 116/987128 report_status [318] + 0.00 0.00 542/987128 make_name [970] + 0.00 0.00 886/987128 write_script [853] + 0.00 0.00 1584/987128 produce_resource [994] + 0.00 0.00 3123/987128 limit_resource [943] + 0.00 0.00 3334/987128 add_recruits [371] + 0.00 0.00 4016/987128 default_name [851] + 0.00 0.00 188092/987128 cycle_route [375] + 0.00 0.00 785221/987128 trailinto [207] +[1374] 0.0 0.00 0.00 987128 strlcat [1374] +----------------------------------------------- + 0.00 0.00 5/822780 set_money [1326] + 0.00 0.00 9/822780 default_spoil [1144] + 0.00 0.00 23/822780 equip_items [1121] + 0.00 0.00 60/822780 equip_unit_mask [776] + 0.00 0.00 86907/822780 change_money [337] + 0.00 0.00 735776/822780 i_change [115] +[1375] 0.0 0.00 0.00 822780 i_new [1375] +----------------------------------------------- + 0.00 0.00 1/779868 create_mage [1315] + 0.00 0.00 1/779868 init_seed [1320] + 0.00 0.00 1/779868 init_mallornseed [1319] + 0.00 0.00 1/779868 a_upgradekeys [1314] + 0.00 0.00 1/779868 make_matmod [1821] + 0.00 0.00 2/779868 make_wormhole [1150] + 0.00 0.00 2/779868 summon_allies [925] + 0.00 0.00 2/779868 make_skillmod [1777] + 0.00 0.00 3/779868 create_newfamiliar [1288] + 0.00 0.00 3/779868 usetprivate [1041] + 0.00 0.00 6/779868 add_chaoscount [1198] + 0.00 0.00 7/779868 parse_resources [1086] + 0.00 0.00 7/779868 add_trigger [1260] + 0.00 0.00 12/779868 make_reduceproduction [1722] + 0.00 0.00 13/779868 make_iceberg [1718] + 0.00 0.00 20/779868 init_transportation [384] + 0.00 0.00 25/779868 make_targetregion [1701] + 0.00 0.00 32/779868 growing_trees [624] + 0.00 0.00 32/779868 make_curse [802] + 0.00 0.00 35/779868 deathcounts [843] + 0.00 0.00 55/779868 renumber_unit [1159] + 0.00 0.00 58/779868 potion_luck [1176] + 0.00 0.00 97/779868 mk_piracy [1652] + 0.00 0.00 114/779868 usetcontact [1147] + 0.00 0.00 159/779868 change_effect [982] + 0.00 0.00 234/779868 make_leftship [1615] + 0.00 0.00 328/779868 display_potion [1090] + 0.00 0.00 389/779868 usetpotionuse [1078] + 0.00 0.00 433/779868 make_otherfaction [1603] + 0.00 0.00 631/779868 set_group [1048] + 0.00 0.00 754/779868 new_units [282] + 0.00 0.00 760/779868 set_familiar [992] + 0.00 0.00 894/779868 make_follow [1589] + 0.00 0.00 2063/779868 create_unit [296] + 0.00 0.00 2503/779868 sell [498] + 0.00 0.00 3233/779868 leave_trail [704] + 0.00 0.00 3642/779868 buy [707] + 0.00 0.00 4162/779868 show_new_spells [889] + 0.00 0.00 4738/779868 expandselling [93] + 0.00 0.00 5679/779868 expandbuying [49] + 0.00 0.00 11749/779868 teach_unit [426] + 0.00 0.00 27216/779868 travelthru_add [609] + 0.00 0.00 52117/779868 update_lighthouse [605] + 0.00 0.00 251814/779868 a_read_i [390] + 0.00 0.00 405840/779868 study_cmd [105] +[1376] 0.0 0.00 0.00 779868 a_new [1376] + 0.00 0.00 417580/417580 init_learning [1396] + 0.00 0.00 37453/37453 shiptrail_init [1469] + 0.00 0.00 4052/4052 curse_init [1539] + 0.00 0.00 2650/2650 a_initeffect [1552] + 0.00 0.00 2092/2092 init_mage [1558] + 0.00 0.00 2081/2081 a_init_reportspell [1561] + 0.00 0.00 1564/1564 init_handler [1570] + 0.00 0.00 763/763 init_skillmod [1592] + 0.00 0.00 97/97 piracy_init [1654] + 0.00 0.00 56/56 dict_init [1675] + 0.00 0.00 9/9 init_resourcelimit [1731] +----------------------------------------------- + 0.00 0.00 4005/754589 do_attack [80] + 0.00 0.00 234242/754589 attack [84] + 0.00 0.00 516342/754589 select_weapon [1367] +[1377] 0.0 0.00 0.00 754589 preferred_weapon [1377] +----------------------------------------------- + 0.00 0.00 1727/744202 travel_route [147] + 0.00 0.00 742475/744202 can_survive [640] +[1378] 0.0 0.00 0.00 744202 has_horses [1378] +----------------------------------------------- + 0.00 0.00 221718/734392 adjust_coordinates [234] + 0.00 0.00 512674/734392 koor_distance [476] +[1379] 0.0 0.00 0.00 734392 plane_height [1379] +----------------------------------------------- + 0.00 0.00 221718/734392 adjust_coordinates [234] + 0.00 0.00 512674/734392 koor_distance [476] +[1380] 0.0 0.00 0.00 734392 plane_width [1380] +----------------------------------------------- + 0.00 0.00 1/651711 sp_generous [1040] + 0.00 0.00 1/651711 shipcurse_flyingship [1072] + 0.00 0.00 2/651711 sp_enterastral [1045] + 0.00 0.00 6/651711 forget_cmd [1093] + 0.00 0.00 9/651711 is_freezing [1088] + 0.00 0.00 10/651711 sp_stormwinds [871] + 0.00 0.00 17/651711 produce [29] + 0.00 0.00 17/651711 process [7] + 0.00 0.00 17/651711 magic [157] + 0.00 0.00 22/651711 drifting_ships [490] + 0.00 0.00 34/651711 sp_viewreality [784] + 0.00 0.00 149/651711 sail [181] + 0.00 0.00 349/651711 can_give_men [940] + 0.00 0.00 452/651711 fumble [973] + 0.00 0.00 488/651711 give_men [857] + 0.00 0.00 508/651711 regenerate_aura [346] + 0.00 0.00 1689/651711 recruit [650] + 0.00 0.00 2815/651711 count_faction [219] + 0.00 0.00 5358/651711 max_spellpoints [755] + 0.00 0.00 8515/651711 describe [35] + 0.00 0.00 16560/651711 entertain_cmd [665] + 0.00 0.00 29173/651711 horses [330] + 0.00 0.00 32649/651711 growing_trees [624] + 0.00 0.00 37300/651711 cr_output_region [10] + 0.00 0.00 91155/651711 godcurse [405] + 0.00 0.00 94865/651711 ageing [185] + 0.00 0.00 159633/651711 entertainmoney [643] + 0.00 0.00 169917/651711 study_cmd [105] +[1381] 0.0 0.00 0.00 651711 oldcursename [1381] +----------------------------------------------- + 0.00 0.00 12/647569 changefaction_write [1258] + 0.00 0.00 232/647569 writefaction [762] + 0.00 0.00 51104/647569 write_groups [920] + 0.00 0.00 596221/647569 write_unit [97] +[1382] 0.0 0.00 0.00 647569 write_faction_reference [1382] +----------------------------------------------- + 0.00 0.00 1/642406 caldera_write [1795] + 0.00 0.00 46184/642406 write_game [83] + 0.00 0.00 596221/642406 write_unit [97] +[1383] 0.0 0.00 0.00 642406 write_building_reference [1383] +----------------------------------------------- + 0.00 0.00 633429/633429 msg_release [1373] +[1384] 0.0 0.00 0.00 633429 msg_free [1384] + 0.00 0.00 1067195/1067195 free_arg [1371] +----------------------------------------------- + 0.00 0.00 256354/619425 attack [84] + 0.00 0.00 363071/619425 hits [131] +[1385] 0.0 0.00 0.00 619425 getreload [1385] +----------------------------------------------- + 0.00 0.00 19078/615299 write_game [83] + 0.00 0.00 596221/615299 write_unit [97] +[1386] 0.0 0.00 0.00 615299 write_ship_reference [1386] +----------------------------------------------- + 0.00 0.00 3/603524 remove_unit [499] + 0.00 0.00 9/603524 destroyfaction [392] + 0.00 0.00 228/603524 u_setfaction [1111] + 0.00 0.00 369/603524 add_recruits [371] + 0.00 0.00 1865/603524 transfermen [899] + 0.00 0.00 2889/603524 create_unit [296] + 0.00 0.00 3036/603524 scale_number [969] + 0.00 0.00 595125/603524 read_unit [74] +[1387] 0.0 0.00 0.00 603524 set_number [1387] +----------------------------------------------- + 0.00 0.00 603246/603246 cr_output_unit [19] +[1388] 0.0 0.00 0.00 603246 level_days [1388] +----------------------------------------------- + 0.00 0.00 1/600145 make_zombie [1267] + 0.00 0.00 1/600145 use_bloodpotion [935] + 0.00 0.00 2/600145 do_fumble [1062] + 0.00 0.00 4/600145 age_firedragon [1123] + 0.00 0.00 5/600145 age_dragon [1098] + 0.00 0.00 7/600145 age_ghoul [1024] + 0.00 0.00 17/600145 age_zombie [1019] + 0.00 0.00 19/600145 age_skeleton [1008] + 0.00 0.00 359/600145 give_men [857] + 0.00 0.00 1716/600145 recruit [650] + 0.00 0.00 2889/600145 create_unit [296] + 0.00 0.00 595125/600145 read_unit [74] +[1389] 0.0 0.00 0.00 600145 u_setrace [1389] +----------------------------------------------- + 0.00 0.00 1/599650 sp_summon_familiar [1025] + 0.00 0.00 2/599650 summon_allies [925] + 0.00 0.00 23/599650 recruit_dracoids [837] + 0.00 0.00 754/599650 new_units [282] + 0.00 0.00 1683/599650 status_cmd [904] + 0.00 0.00 2062/599650 create_unit [296] + 0.00 0.00 595125/599650 read_unit [74] +[1390] 0.0 0.00 0.00 599650 setstatus [1390] +----------------------------------------------- + 0.00 0.00 5425/595705 drain_exp [850] + 0.00 0.00 34486/595705 effskill_study [504] + 0.00 0.00 108170/595705 transfermen [899] + 0.00 0.00 447624/595705 learn_skill [471] +[1391] 0.0 0.00 0.00 595705 unit_skill [1391] +----------------------------------------------- + 0.00 0.00 36929/515192 cr_output_region [10] + 0.00 0.00 52156/515192 describe [35] + 0.00 0.00 426107/515192 default_wage [173] +[1392] 0.0 0.00 0.00 515192 is_mourning [1392] + 0.00 0.00 515192/515192 owner_change [1393] +----------------------------------------------- + 0.00 0.00 515192/515192 is_mourning [1392] +[1393] 0.0 0.00 0.00 515192 owner_change [1393] +----------------------------------------------- + 0.00 0.00 512663/512663 koor_distance [476] +[1394] 0.0 0.00 0.00 512663 koor_distance_orig [1394] +----------------------------------------------- + 0.00 0.00 58/432940 att_modification [90] + 0.00 0.00 89/432940 entertainmoney [643] + 0.00 0.00 508/432940 regenerate_aura [346] + 0.00 0.00 820/432940 curse_geteffect_int [1590] + 0.00 0.00 5358/432940 max_spellpoints [755] + 0.00 0.00 426107/432940 default_wage [173] +[1395] 0.0 0.00 0.00 432940 curse_geteffect [1395] +----------------------------------------------- + 0.00 0.00 417580/417580 a_new [1376] +[1396] 0.0 0.00 0.00 417580 init_learning [1396] +----------------------------------------------- + 0.00 0.00 417577/417577 a_free [558] +[1397] 0.0 0.00 0.00 417577 done_learning [1397] +----------------------------------------------- + 0.00 0.00 417577/417577 study_cmd [105] +[1398] 0.0 0.00 0.00 417577 study_speedup [1398] +----------------------------------------------- + 0.00 0.00 392959/392959 add_message [434] +[1399] 0.0 0.00 0.00 392959 msg_addref [1399] +----------------------------------------------- + 0.00 0.00 86/374425 i_merge [1651] + 0.00 0.00 216/374425 gift_items [891] + 0.00 0.00 340/374425 free_fighter [1580] + 0.00 0.00 18220/374425 i_freeall [1515] + 0.00 0.00 87928/374425 change_money [337] + 0.00 0.00 98482/374425 i_change [115] + 0.00 0.00 169153/374425 statistics [70] +[1400] 0.0 0.00 0.00 374425 i_free [1400] +----------------------------------------------- + 0.00 0.00 1/353788 add_seen_faction [1788] + 0.00 0.00 3767/353788 cb_add_address [598] + 0.00 0.00 350020/353788 get_addresses [20] +[1401] 0.0 0.00 0.00 353788 add_seen_faction_i [1401] +----------------------------------------------- + 0.00 0.00 348444/348444 report_resources [210] +[1402] 0.0 0.00 0.00 348444 report_resource [1402] +----------------------------------------------- + 0.00 0.00 330438/330438 cr_render [196] +[1403] 0.0 0.00 0.00 330438 cr_unit [1403] +----------------------------------------------- + 0.00 0.00 5762/308950 buy [707] + 0.00 0.00 15730/308950 sell [498] + 0.00 0.00 287458/308950 expandselling [93] +[1404] 0.0 0.00 0.00 308950 r_demand [1404] +----------------------------------------------- + 0.00 0.00 297222/297222 render_messages [58] +[1405] 0.0 0.00 0.00 297222 messagehash [1405] +----------------------------------------------- + 0.00 0.00 279072/279072 cr_render [196] +[1406] 0.0 0.00 0.00 279072 cr_int [1406] +----------------------------------------------- + 0.00 0.00 86/257723 i_merge [1651] + 0.00 0.00 216/257723 gift_items [891] + 0.00 0.00 340/257723 free_fighter [1580] + 0.00 0.00 87928/257723 change_money [337] + 0.00 0.00 169153/257723 statistics [70] +[1407] 0.0 0.00 0.00 257723 i_remove [1407] +----------------------------------------------- + 0.00 0.00 5/257693 give_horses [1108] + 0.00 0.00 5/257693 gift_items [891] + 0.00 0.00 9/257693 destroyfaction [392] + 0.00 0.00 64/257693 terraform_region [932] + 0.00 0.00 1098/257693 region_setresource [1097] + 0.00 0.00 28760/257693 migrate [1478] + 0.00 0.00 32679/257693 readregion [209] + 0.00 0.00 195073/257693 horses [330] +[1408] 0.0 0.00 0.00 257693 rsethorses [1408] +----------------------------------------------- + 0.00 0.00 251867/251867 do_attack [80] +[1409] 0.0 0.00 0.00 251867 attacks_per_round [1409] +----------------------------------------------- + 0.00 0.00 1/229715 breedtrees [1148] + 0.00 0.00 6/229715 sp_mallornhain [968] + 0.00 0.00 9/229715 sp_hain [931] + 0.00 0.00 20/229715 dissolve_units [241] + 0.00 0.00 36/229715 volcano_destruction [1022] + 0.00 0.00 51/229715 potion_water_of_life [945] + 0.00 0.00 252/229715 terraform_region [932] + 0.00 0.00 623/229715 tolua_region_set_resource [1057] + 0.00 0.00 98037/229715 readregion [209] + 0.00 0.00 130680/229715 growing_trees [624] +[1410] 0.0 0.00 0.00 229715 rsettrees [1410] +----------------------------------------------- + 0.00 0.00 5/221723 rel_to_abs [1728] + 0.00 0.00 221718/221723 adjust_coordinates [234] +[1411] 0.0 0.00 0.00 221723 plane_center_x [1411] +----------------------------------------------- + 0.00 0.00 5/221723 rel_to_abs [1728] + 0.00 0.00 221718/221723 adjust_coordinates [234] +[1412] 0.0 0.00 0.00 221723 plane_center_y [1412] +----------------------------------------------- + 0.00 0.00 13/217405 expandselling [93] + 0.00 0.00 217392/217405 readregion [209] +[1413] 0.0 0.00 0.00 217405 r_setdemand [1413] +----------------------------------------------- + 0.00 0.00 209572/209572 cr_output_region [10] +[1414] 0.0 0.00 0.00 209572 cr_region_header [1414] +----------------------------------------------- + 0.00 0.00 174/204314 breedhorses [742] + 0.00 0.00 4629/204314 expandselling [93] + 0.00 0.00 5460/204314 buy [707] + 0.00 0.00 15797/204314 sell [498] + 0.00 0.00 178254/204314 produce [29] +[1415] 0.0 0.00 0.00 204314 bt_changed [1415] +----------------------------------------------- + 0.00 0.00 71388/203117 reserve_i [213] + 0.00 0.00 131729/203117 give_cmd [102] +[1416] 0.0 0.00 0.00 203117 atoip [1416] +----------------------------------------------- + 0.00 0.00 93450/196476 see_border [1440] + 0.00 0.00 103026/196476 cr_borders [135] +[1417] 0.0 0.00 0.00 196476 b_finvisible [1417] +----------------------------------------------- + 0.00 0.00 93450/196476 see_border [1440] + 0.00 0.00 103026/196476 cr_borders [135] +[1418] 0.0 0.00 0.00 196476 b_rvisibleroad [1418] +----------------------------------------------- + 0.00 0.00 15/192815 drifting_ships [490] + 0.00 0.00 39714/192815 sail [181] + 0.00 0.00 39832/192815 astralregions [329] + 0.00 0.00 113254/192815 make_route [289] +[1419] 0.0 0.00 0.00 192815 add_regionlist [1419] +----------------------------------------------- + 0.00 0.00 93450/190467 describe [35] + 0.00 0.00 97017/190467 cr_borders [135] +[1420] 0.0 0.00 0.00 190467 b_transparent [1420] +----------------------------------------------- + 0.00 0.00 52/178322 get_or_create_terrain [1680] + 0.00 0.00 178270/178322 get_terrain [1423] +[1421] 0.0 0.00 0.00 178322 terrain_find_i [1421] +----------------------------------------------- + 0.00 0.00 57/178311 terraform_region [932] + 0.00 0.00 178254/178311 readregion [209] +[1422] 0.0 0.00 0.00 178311 region_setinfo [1422] +----------------------------------------------- + 0.00 0.00 2/178270 volcano_update [981] + 0.00 0.00 14/178270 init_terrains [1810] + 0.00 0.00 178254/178270 readregion [209] +[1423] 0.0 0.00 0.00 178270 get_terrain [1423] + 0.00 0.00 178270/178322 terrain_find_i [1421] +----------------------------------------------- + 0.00 0.00 178254/178254 writeregion [519] +[1424] 0.0 0.00 0.00 178254 region_getinfo [1424] +----------------------------------------------- + 0.00 0.00 48/157830 internal_path_find [345] + 0.00 0.00 157782/157830 allowed_dragon [564] +[1425] 0.0 0.00 0.00 157830 allowed_fly [1425] +----------------------------------------------- + 0.00 0.00 152803/152803 free_nodes [1604] +[1426] 0.0 0.00 0.00 152803 free_node [1426] +----------------------------------------------- + 0.00 0.00 27734/152803 regions_in_range [675] + 0.00 0.00 125069/152803 internal_path_find [345] +[1427] 0.0 0.00 0.00 152803 new_node [1427] +----------------------------------------------- + 0.00 0.00 2295/147171 buildingtype_exists [1443] + 0.00 0.00 2920/147171 owner_buildingtyp [676] + 0.00 0.00 12068/147171 building_is_active [1488] + 0.00 0.00 16296/147171 inside_building [1486] + 0.00 0.00 113592/147171 nr_building [141] +[1428] 0.0 0.00 0.00 147171 building_finished [1428] +----------------------------------------------- + 0.00 0.00 141675/141675 addtoken [811] +[1429] 0.0 0.00 0.00 141675 mknode [1429] +----------------------------------------------- + 0.00 0.00 140305/140305 reserve_i [213] +[1430] 0.0 0.00 0.00 140305 set_resvalue [1430] +----------------------------------------------- + 0.00 0.00 12787/130867 canwalk [633] + 0.00 0.00 21443/130867 ridingcapacity [694] + 0.00 0.00 96637/130867 walkingcapacity [403] +[1431] 0.0 0.00 0.00 130867 get_transporters [1431] +----------------------------------------------- + 0.00 0.00 128596/128596 report_plaintext [4] +[1432] 0.0 0.00 0.00 128596 check_errno [1432] +----------------------------------------------- + 0.00 0.00 229/128135 list_address [635] + 0.00 0.00 127906/128135 report_plaintext [4] +[1433] 0.0 0.00 0.00 128135 rpline [1433] +----------------------------------------------- + 0.00 0.00 123744/123744 msg_feedback [647] +[1434] 0.0 0.00 0.00 123744 arg_set [1434] +----------------------------------------------- + 0.00 0.00 110533/110533 make_fighter [424] +[1435] 0.0 0.00 0.00 110533 weapon_weight [1435] +----------------------------------------------- + 0.00 0.00 2/109377 sp_viewreality [784] + 0.00 0.00 15/109377 drifting_ships [490] + 0.00 0.00 311/109377 cr_output_region [10] + 0.00 0.00 5680/109377 describe [35] + 0.00 0.00 103369/109377 move_cmd [66] +[1436] 0.0 0.00 0.00 109377 free_regionlist [1436] +----------------------------------------------- + 0.00 0.00 105958/105958 travel_route [147] +[1437] 0.0 0.00 0.00 105958 entrance_allowed [1437] +----------------------------------------------- + 0.00 0.00 48/101322 terraform_region [932] + 0.00 0.00 5966/101322 herbsearch [493] + 0.00 0.00 32679/101322 readregion [209] + 0.00 0.00 62629/101322 growing_herbs [300] +[1438] 0.0 0.00 0.00 101322 rsetherbs [1438] +----------------------------------------------- + 0.00 0.00 96208/96208 travel_route [147] +[1439] 0.0 0.00 0.00 96208 var_copy_regions [1439] +----------------------------------------------- + 0.00 0.00 93452/93452 describe [35] +[1440] 0.0 0.00 0.00 93452 see_border [1440] + 0.00 0.00 93450/196476 b_finvisible [1417] + 0.00 0.00 93450/196476 b_rvisibleroad [1418] + 0.00 0.00 14192/26515 b_uinvisible [1487] + 0.00 0.00 2/2 b_fvisible [1771] +----------------------------------------------- + 0.00 0.00 1/93120 use_pooled [39] + 0.00 0.00 93119/93120 give_item [126] +[1441] 0.0 0.00 0.00 93120 change_reservation [1441] +----------------------------------------------- + 0.00 0.00 5/87004 set_money [1326] + 0.00 0.00 9/87004 default_spoil [1144] + 0.00 0.00 23/87004 equip_items [1121] + 0.00 0.00 60/87004 equip_unit_mask [776] + 0.00 0.00 86907/87004 change_money [337] +[1442] 0.0 0.00 0.00 87004 i_add [1442] +----------------------------------------------- + 0.00 0.00 2/75797 build_building [696] + 0.00 0.00 5/75797 build_road [950] + 0.00 0.00 208/75797 demographics [50] + 0.00 0.00 322/75797 can_takeoff [854] + 0.00 0.00 344/75797 expandselling [93] + 0.00 0.00 344/75797 produce [29] + 0.00 0.00 1112/75797 sell [498] + 0.00 0.00 2495/75797 study_cmd [105] + 0.00 0.00 31155/75797 statistics [70] + 0.00 0.00 39810/75797 check_ship_allowed [657] +[1443] 0.0 0.00 0.00 75797 buildingtype_exists [1443] + 0.00 0.00 2295/147171 building_finished [1428] +----------------------------------------------- + 0.00 0.00 5/65345 expandloot [816] + 0.00 0.00 32670/65345 morale_update [1479] + 0.00 0.00 32670/65345 writeregion [519] +[1444] 0.0 0.00 0.00 65345 region_get_morale [1444] +----------------------------------------------- + 0.00 0.00 62267/62267 horses [330] +[1445] 0.0 0.00 0.00 62267 get_migrants [1445] +----------------------------------------------- + 0.00 0.00 89/59694 recruit [650] + 0.00 0.00 1567/59694 travel_route [147] + 0.00 0.00 4139/59694 produce [29] + 0.00 0.00 5588/59694 process [7] + 0.00 0.00 8501/59694 magic [157] + 0.00 0.00 39810/59694 check_ship_allowed [657] +[1446] 0.0 0.00 0.00 59694 r_insectstalled [1446] +----------------------------------------------- + 0.00 0.00 58524/58524 a_write [299] +[1447] 0.0 0.00 0.00 58524 a_writeint [1447] +----------------------------------------------- + 0.00 0.00 106/58518 a_readkey [1648] + 0.00 0.00 58412/58518 a_read_i [390] +[1448] 0.0 0.00 0.00 58518 a_readint [1448] +----------------------------------------------- + 0.00 0.00 56646/56646 a_write [299] +[1449] 0.0 0.00 0.00 56646 write_group [1449] +----------------------------------------------- + 0.00 0.00 56503/56503 read_group [1451] +[1450] 0.0 0.00 0.00 56503 find_group [1450] +----------------------------------------------- + 0.00 0.00 56503/56503 a_read_i [390] +[1451] 0.0 0.00 0.00 56503 read_group [1451] + 0.00 0.00 56503/56503 find_group [1450] +----------------------------------------------- + 0.00 0.00 2/55547 ally_cmd [877] + 0.00 0.00 98/55547 init_group [1764] + 0.00 0.00 5925/55547 addally [913] + 0.00 0.00 49522/55547 read_groups [782] +[1452] 0.0 0.00 0.00 55547 ally_add [1452] +----------------------------------------------- + 0.00 0.00 54735/54735 write_travelthru [327] +[1453] 0.0 0.00 0.00 54735 init_cb [1453] +----------------------------------------------- + 0.00 0.00 54163/54163 copy_arg [521] +[1454] 0.0 0.00 0.00 54163 var_copy_string [1454] +----------------------------------------------- + 0.00 0.00 10/51239 changefaction_read [1166] + 0.00 0.00 13/51239 read_planes [1164] + 0.00 0.00 51216/51239 read_groups [782] +[1455] 0.0 0.00 0.00 51239 read_faction_reference [1455] +----------------------------------------------- + 0.00 0.00 12/51060 set_level [774] + 0.00 0.00 95/51060 transfermen [899] + 0.00 0.00 50953/51060 scale_number [969] +[1456] 0.0 0.00 0.00 51060 remove_skill [1456] +----------------------------------------------- + 0.00 0.00 50673/50673 demographics [50] +[1457] 0.0 0.00 0.00 50673 update_resources [1457] +----------------------------------------------- + 0.00 0.00 49331/49331 log_stdio [1459] +[1458] 0.0 0.00 0.00 49331 log_prefix [1458] +----------------------------------------------- + 0.00 0.00 49331/49331 log_write [1243] +[1459] 0.0 0.00 0.00 49331 log_stdio [1459] + 0.00 0.00 49331/49331 log_prefix [1458] + 0.00 0.00 49331/49331 _log_write [3280] +----------------------------------------------- + 0.00 0.00 9/48565 build_building [696] + 0.00 0.00 323/48565 enter_building [695] + 0.00 0.00 837/48565 create_unit [296] + 0.00 0.00 47396/48565 read_unit [74] +[1460] 0.0 0.00 0.00 48565 u_set_building [1460] + 0.00 0.00 18971/18971 building_set_owner [1504] +----------------------------------------------- + 0.00 0.00 2/48457 remove_building [1153] + 0.00 0.00 48455/48457 findbuilding [1462] +[1461] 0.0 0.00 0.00 48457 bfindhash [1461] +----------------------------------------------- + 0.00 0.00 1/48455 resolve_building [1862] + 0.00 0.00 4/48455 verify_building [1255] + 0.00 0.00 16/48455 newcontainerid [1263] + 0.00 0.00 27/48455 renumber_cmd [780] + 0.00 0.00 401/48455 enter_building [695] + 0.00 0.00 610/48455 build_building [696] + 0.00 0.00 47396/48455 read_unit [74] +[1462] 0.0 0.00 0.00 48455 findbuilding [1462] + 0.00 0.00 48455/48457 bfindhash [1461] +----------------------------------------------- + 0.00 0.00 1466/46742 resolve_region_id [1575] + 0.00 0.00 45276/46742 read_borders [706] +[1463] 0.0 0.00 0.00 46742 findregionbyid [1463] +----------------------------------------------- + 0.00 0.00 10/46196 renumber_cmd [780] + 0.00 0.00 11/46196 new_building [1059] + 0.00 0.00 46175/46196 read_game [62] +[1464] 0.0 0.00 0.00 46196 bhash [1464] +----------------------------------------------- + 0.00 0.00 4307/44216 set_coast [875] + 0.00 0.00 39909/44216 sail [181] +[1465] 0.0 0.00 0.00 44216 flying_ship [1465] +----------------------------------------------- + 0.00 0.00 2/40692 tolua_get_season [2888] + 0.00 0.00 2/40692 breedtrees [1148] + 0.00 0.00 2/40692 demographics [50] + 0.00 0.00 3/40692 gamedate2 [1222] + 0.00 0.00 89/40692 recruit [650] + 0.00 0.00 230/40692 gamedate_season [944] + 0.00 0.00 460/40692 report_plaintext [4] + 0.00 0.00 39904/40692 sail [181] +[1466] 0.0 0.00 0.00 40692 get_gamedate [1466] +----------------------------------------------- + 0.00 0.00 39955/39955 a_write [299] +[1467] 0.0 0.00 0.00 39955 write_of [1467] +----------------------------------------------- + 0.00 0.00 37453/37453 a_age [418] +[1468] 0.0 0.00 0.00 37453 shiptrail_age [1468] +----------------------------------------------- + 0.00 0.00 37453/37453 a_new [1376] +[1469] 0.0 0.00 0.00 37453 shiptrail_init [1469] +----------------------------------------------- + 0.00 0.00 37202/37202 free_arg [1371] +[1470] 0.0 0.00 0.00 37202 var_free_string [1470] +----------------------------------------------- + 0.00 0.00 37024/37024 move_blocked [283] +[1471] 0.0 0.00 0.00 37024 b_blocknone [1471] +----------------------------------------------- + 0.00 0.00 10/34565 changefaction_read [1166] + 0.00 0.00 2941/34565 addally [913] + 0.00 0.00 3693/34565 read_reference [726] + 0.00 0.00 27921/34565 read_groups [782] +[1472] 0.0 0.00 0.00 34565 ur_add [1472] +----------------------------------------------- + 0.00 0.00 34420/34420 a_write [299] +[1473] 0.0 0.00 0.00 34420 a_writeshorts [1473] +----------------------------------------------- + 0.00 0.00 34382/34382 a_read_i [390] +[1474] 0.0 0.00 0.00 34382 a_readshorts [1474] +----------------------------------------------- + 0.00 0.00 34220/34220 a_read_i [390] +[1475] 0.0 0.00 0.00 34220 shiptrail_read [1475] +----------------------------------------------- + 0.00 0.00 48/32727 terraform_region [932] + 0.00 0.00 32679/32727 readregion [209] +[1476] 0.0 0.00 0.00 32727 region_set_morale [1476] +----------------------------------------------- + 0.00 0.00 32679/32679 readregion [209] +[1477] 0.0 0.00 0.00 32679 read_owner [1477] +----------------------------------------------- + 0.00 0.00 32670/32670 demographics [50] +[1478] 0.0 0.00 0.00 32670 migrate [1478] + 0.00 0.00 28760/1160345 rhorses [1369] + 0.00 0.00 28760/257693 rsethorses [1408] +----------------------------------------------- + 0.00 0.00 32670/32670 age_region [659] +[1479] 0.0 0.00 0.00 32670 morale_update [1479] + 0.00 0.00 32670/65345 region_get_morale [1444] +----------------------------------------------- + 0.00 0.00 32670/32670 writeregion [519] +[1480] 0.0 0.00 0.00 32670 write_owner [1480] +----------------------------------------------- + 0.00 0.00 31688/31688 cr_render [196] +[1481] 0.0 0.00 0.00 31688 cr_building [1481] +----------------------------------------------- + 0.00 0.00 30150/30150 nr_ship [111] +[1482] 0.0 0.00 0.00 30150 ship_damage_percent [1482] +----------------------------------------------- + 0.00 0.00 16/28818 newcontainerid [1263] + 0.00 0.00 22/28818 verify_ship [1704] + 0.00 0.00 31/28818 renumber_cmd [780] + 0.00 0.00 222/28818 enter_ship [733] + 0.00 0.00 283/28818 follow_ship [749] + 0.00 0.00 307/28818 getship [1018] + 0.00 0.00 525/28818 follow_unit [331] + 0.00 0.00 27412/28818 read_unit [74] +[1483] 0.0 0.00 0.00 28818 findship [1483] + 0.00 0.00 28818/28818 sfindhash [1484] +----------------------------------------------- + 0.00 0.00 28818/28818 findship [1483] +[1484] 0.0 0.00 0.00 28818 sfindhash [1484] +----------------------------------------------- + 0.00 0.00 2/27640 create_ship [1014] + 0.00 0.00 35/27640 create_unit [296] + 0.00 0.00 191/27640 enter_ship [733] + 0.00 0.00 27412/27640 read_unit [74] +[1485] 0.0 0.00 0.00 27640 u_set_ship [1485] + 0.00 0.00 18960/18963 ship_set_owner [1505] +----------------------------------------------- + 0.00 0.00 140/26995 age_stonecircle [1021] + 0.00 0.00 225/26995 spellpower [1000] + 0.00 0.00 226/26995 fumble [973] + 0.00 0.00 318/26995 in_safe_building [1585] + 0.00 0.00 508/26995 regenerate_aura [346] + 0.00 0.00 1733/26995 build [691] + 0.00 0.00 3563/26995 prepare_report [8] + 0.00 0.00 5920/26995 allocate_resource [752] + 0.00 0.00 6405/26995 active_building [560] + 0.00 0.00 7957/26995 magic_resistance [727] +[1486] 0.0 0.00 0.00 26995 inside_building [1486] + 0.00 0.00 16296/147171 building_finished [1428] + 0.00 0.00 16284/19671 buildingcapacity [1500] +----------------------------------------------- + 0.00 0.00 12323/26515 cr_borders [135] + 0.00 0.00 14192/26515 see_border [1440] +[1487] 0.0 0.00 0.00 26515 b_uinvisible [1487] +----------------------------------------------- + 0.00 0.00 225/26164 spellpower [1000] + 0.00 0.00 226/26164 fumble [973] + 0.00 0.00 508/26164 regenerate_aura [346] + 0.00 0.00 4530/26164 build [691] + 0.00 0.00 5920/26164 allocate_resource [752] + 0.00 0.00 6798/26164 active_building [560] + 0.00 0.00 7957/26164 magic_resistance [727] +[1488] 0.0 0.00 0.00 26164 building_is_active [1488] + 0.00 0.00 12068/147171 building_finished [1428] +----------------------------------------------- + 0.00 0.00 12828/26045 cr_output_curses [69] + 0.00 0.00 13217/26045 nr_curses_i [401] +[1489] 0.0 0.00 0.00 26045 curse_cansee [1489] +----------------------------------------------- + 0.00 0.00 25441/25441 readregion [209] +[1490] 0.0 0.00 0.00 25441 rmt_find [1490] +----------------------------------------------- + 0.00 0.00 1084/24449 print_header [838] + 0.00 0.00 2168/24449 aftermath [701] + 0.00 0.00 7336/24449 battle_report [503] + 0.00 0.00 13861/24449 print_stats [525] +[1491] 0.0 0.00 0.00 24449 seematrix [1491] +----------------------------------------------- + 0.00 0.00 23342/23342 a_free [558] +[1492] 0.0 0.00 0.00 23342 shiptrail_finalize [1492] +----------------------------------------------- + 0.00 0.00 23233/23233 cr_render [196] +[1493] 0.0 0.00 0.00 23233 cr_faction [1493] +----------------------------------------------- + 0.00 0.00 22643/22643 write_borders [1897] +[1494] 0.0 0.00 0.00 22643 b_validroad [1494] +----------------------------------------------- + 0.00 0.00 22643/22643 write_borders [1897] +[1495] 0.0 0.00 0.00 22643 b_writeroad [1495] +----------------------------------------------- + 0.00 0.00 22638/22638 read_borders [706] +[1496] 0.0 0.00 0.00 22638 find_bordertype [1496] +----------------------------------------------- + 0.00 0.00 22637/22637 read_borders [706] +[1497] 0.0 0.00 0.00 22637 b_readroad [1497] +----------------------------------------------- + 0.00 0.00 1104/22301 aftermath [701] + 0.00 0.00 7336/22301 battle_report [503] + 0.00 0.00 13861/22301 print_stats [525] +[1498] 0.0 0.00 0.00 22301 army_index [1498] +----------------------------------------------- + 0.00 0.00 7/21500 new_luxurytype [1739] + 0.00 0.00 5762/21500 buy [707] + 0.00 0.00 15731/21500 sell [498] +[1499] 0.0 0.00 0.00 21500 resource2luxury [1499] +----------------------------------------------- + 0.00 0.00 3387/19671 lighthouse_range [728] + 0.00 0.00 16284/19671 inside_building [1486] +[1500] 0.0 0.00 0.00 19671 buildingcapacity [1500] +----------------------------------------------- + 0.00 0.00 7/19089 st_get_or_create [1743] + 0.00 0.00 19082/19089 st_find [1503] +[1501] 0.0 0.00 0.00 19089 st_find_i [1501] +----------------------------------------------- + 0.00 0.00 1/19085 renumber_cmd [780] + 0.00 0.00 2/19085 new_ship [1229] + 0.00 0.00 19082/19085 read_game [62] +[1502] 0.0 0.00 0.00 19085 shash [1502] +----------------------------------------------- + 0.00 0.00 19082/19082 read_game [62] +[1503] 0.0 0.00 0.00 19082 st_find [1503] + 0.00 0.00 19082/19089 st_find_i [1501] +----------------------------------------------- + 0.00 0.00 18971/18971 u_set_building [1460] +[1504] 0.0 0.00 0.00 18971 building_set_owner [1504] +----------------------------------------------- + 0.00 0.00 3/18963 give_control [1763] + 0.00 0.00 18960/18963 u_set_ship [1485] +[1505] 0.0 0.00 0.00 18963 ship_set_owner [1505] +----------------------------------------------- + 0.00 0.00 17289/17289 teach_cmd [272] +[1506] 0.0 0.00 0.00 17289 parser_popstate [1506] +----------------------------------------------- + 0.00 0.00 17289/17289 teach_cmd [272] +[1507] 0.0 0.00 0.00 17289 parser_pushstate [1507] +----------------------------------------------- + 0.00 0.00 16737/16737 roadto [606] +[1508] 0.0 0.00 0.00 16737 dir_invert [1508] +----------------------------------------------- + 0.00 0.00 16191/16191 help_feed [678] +[1509] 0.0 0.00 0.00 16191 add_donation [1509] +----------------------------------------------- + 0.00 0.00 14994/14994 cr_render [196] +[1510] 0.0 0.00 0.00 14994 cr_string [1510] +----------------------------------------------- + 0.00 0.00 14111/14111 a_write [299] +[1511] 0.0 0.00 0.00 14111 shiptrail_write [1511] +----------------------------------------------- + 0.00 0.00 3115/13500 drifting_ships [490] + 0.00 0.00 3135/13500 sinkships [475] + 0.00 0.00 7250/13500 ship_ready [354] +[1512] 0.0 0.00 0.00 13500 enoughsailors [1512] +----------------------------------------------- + 0.00 0.00 9/11052 xml_spell [1727] + 0.00 0.00 16/11052 do_combatmagic [825] + 0.00 0.00 24/11052 add_spells [1668] + 0.00 0.00 326/11052 parse_spellbooks [1827] + 0.00 0.00 1174/11052 read_spellbook [1555] + 0.00 0.00 1312/11052 read_mage [1559] + 0.00 0.00 8191/11052 read_seenspell [1522] +[1513] 0.0 0.00 0.00 11052 find_spell [1513] + 0.00 0.00 11052/11052 sp_alias [1514] +----------------------------------------------- + 0.00 0.00 11052/11052 find_spell [1513] +[1514] 0.0 0.00 0.00 11052 sp_alias [1514] +----------------------------------------------- + 0.00 0.00 1/10475 item_done [1811] + 0.00 0.00 57/10475 terraform_region [932] + 0.00 0.00 10417/10475 free_luxuries [1516] +[1515] 0.0 0.00 0.00 10475 i_freeall [1515] + 0.00 0.00 18220/374425 i_free [1400] +----------------------------------------------- + 0.00 0.00 10417/10417 a_free [558] +[1516] 0.0 0.00 0.00 10417 free_luxuries [1516] + 0.00 0.00 10417/10475 i_freeall [1515] +----------------------------------------------- + 0.00 0.00 9147/9147 report_plaintext [4] +[1517] 0.0 0.00 0.00 9147 merge_messages [1517] +----------------------------------------------- + 0.00 0.00 9147/9147 report_plaintext [4] +[1518] 0.0 0.00 0.00 9147 split_messages [1518] +----------------------------------------------- + 0.00 0.00 8962/8962 battle_flee [352] +[1519] 0.0 0.00 0.00 8962 hpflee [1519] +----------------------------------------------- + 0.00 0.00 1909/8788 parse_messages [832] + 0.00 0.00 6879/8788 xml_readstrings [863] +[1520] 0.0 0.00 0.00 8788 xml_cleanup_string [1520] +----------------------------------------------- + 0.00 0.00 8622/8622 read_reference [726] +[1521] 0.0 0.00 0.00 8622 read_unit_reference [1521] +----------------------------------------------- + 0.00 0.00 8191/8191 a_read_i [390] +[1522] 0.0 0.00 0.00 8191 read_seenspell [1522] + 0.00 0.00 8191/11052 find_spell [1513] +----------------------------------------------- + 0.00 0.00 8187/8187 a_write [299] +[1523] 0.0 0.00 0.00 8187 write_seenspell [1523] +----------------------------------------------- + 0.00 0.00 7964/7964 report_crtypes [428] +[1524] 0.0 0.00 0.00 7964 nrt_section [1524] +----------------------------------------------- + 0.00 0.00 7915/7915 report_resources [210] +[1525] 0.0 0.00 0.00 7915 visible_default [1525] +----------------------------------------------- + 0.00 0.00 1762/7889 tolua_region_set_resource [1057] + 0.00 0.00 6127/7889 tolua_region_get_resource [976] +[1526] 0.0 0.00 0.00 7889 special_resources [1526] +----------------------------------------------- + 0.00 0.00 2704/7493 leveled_allocation [888] + 0.00 0.00 4789/7493 attrib_allocation [914] +[1527] 0.0 0.00 0.00 7493 required [1527] +----------------------------------------------- + 0.00 0.00 7336/7336 battle_report [503] +[1528] 0.0 0.00 0.00 7336 get_alive [1528] +----------------------------------------------- + 0.00 0.00 7220/7220 a_write [299] +[1529] 0.0 0.00 0.00 7220 a_writestring [1529] +----------------------------------------------- + 0.00 0.00 7153/7153 cr_render [196] +[1530] 0.0 0.00 0.00 7153 cr_ship [1530] +----------------------------------------------- + 0.00 0.00 7085/7085 a_read_i [390] +[1531] 0.0 0.00 0.00 7085 a_readprivate [1531] +----------------------------------------------- + 0.00 0.00 16/6576 xml_readarmor [1736] + 0.00 0.00 21/6576 parse_ships [1305] + 0.00 0.00 250/6576 parse_buildings [1131] + 0.00 0.00 268/6576 parse_ai [1662] + 0.00 0.00 303/6576 xml_readweapon [1266] + 0.00 0.00 318/6576 parse_resources [1086] + 0.00 0.00 942/6576 xml_readitem [1107] + 0.00 0.00 1660/6576 parse_spells [1120] + 0.00 0.00 2798/6576 parse_races [1104] +[1532] 0.0 0.00 0.00 6576 xml_bvalue [1532] +----------------------------------------------- + 0.00 0.00 4/5453 parse_resources [1086] + 0.00 0.00 7/5453 xml_readluxury [1745] + 0.00 0.00 8/5453 xml_readarmor [1736] + 0.00 0.00 11/5453 parse_calendar [1252] + 0.00 0.00 15/5453 xml_readpotion [1714] + 0.00 0.00 24/5453 add_spells [1668] + 0.00 0.00 63/5453 parse_ships [1305] + 0.00 0.00 108/5453 xml_readweapon [1266] + 0.00 0.00 134/5453 parse_ai [1662] + 0.00 0.00 162/5453 xml_readrequirements [1186] + 0.00 0.00 179/5453 parse_buildings [1131] + 0.00 0.00 326/5453 parse_spellbooks [1827] + 0.00 0.00 471/5453 xml_readitem [1107] + 0.00 0.00 504/5453 xml_readconstruction [1183] + 0.00 0.00 731/5453 parse_spells [1120] + 0.00 0.00 2706/5453 parse_races [1104] +[1533] 0.0 0.00 0.00 5453 xml_ivalue [1533] +----------------------------------------------- + 0.00 0.00 946/5330 centre [789] + 0.00 0.00 4384/5330 battle_punit [620] +[1534] 0.0 0.00 0.00 5330 freestrlist [1534] +----------------------------------------------- + 0.00 0.00 4066/4066 report_template [87] +[1535] 0.0 0.00 0.00 4066 buildingmaintenance [1535] +----------------------------------------------- + 0.00 0.00 4052/4052 curse_age [1538] +[1536] 0.0 0.00 0.00 4052 c_clearflag [1536] +----------------------------------------------- + 0.00 0.00 32/4052 make_curse [802] + 0.00 0.00 4020/4052 curse_read [770] +[1537] 0.0 0.00 0.00 4052 chash [1537] +----------------------------------------------- + 0.00 0.00 4052/4052 a_age [418] +[1538] 0.0 0.00 0.00 4052 curse_age [1538] + 0.00 0.00 4052/4052 c_clearflag [1536] + 0.00 0.00 1/1 flyingship_age [1803] +----------------------------------------------- + 0.00 0.00 4052/4052 a_new [1376] +[1539] 0.0 0.00 0.00 4052 curse_init [1539] +----------------------------------------------- + 0.00 0.00 2/3862 sp_igjarjuk [923] + 0.00 0.00 6/3862 tolua_unit_set_name [3148] + 0.00 0.00 27/3862 dragon_name [1095] + 0.00 0.00 34/3862 dracoid_name [1126] + 0.00 0.00 196/3862 make_name [970] + 0.00 0.00 666/3862 generic_name [962] + 0.00 0.00 2931/3862 name_unit [803] +[1540] 0.0 0.00 0.00 3862 unit_setname [1540] +----------------------------------------------- + 0.00 0.00 9/3717 magic [157] + 0.00 0.00 3708/3717 do_combatmagic [825] +[1541] 0.0 0.00 0.00 3717 free_castorders [1541] + 0.00 0.00 229/303 free_castorder [1609] +----------------------------------------------- + 0.00 0.00 3639/3639 attack [84] +[1542] 0.0 0.00 0.00 3639 setreload [1542] +----------------------------------------------- + 0.00 0.00 231/3203 update_spells [381] + 0.00 0.00 2972/3203 unit_get_spellbook [427] +[1543] 0.0 0.00 0.00 3203 faction_get_spellbook [1543] + 0.00 0.00 3165/3171 get_spellbook [1544] +----------------------------------------------- + 0.00 0.00 6/3171 parse_spellbooks [1827] + 0.00 0.00 3165/3171 faction_get_spellbook [1543] +[1544] 0.0 0.00 0.00 3171 get_spellbook [1544] + 0.00 0.00 6/380 create_spellbook [1606] +----------------------------------------------- + 0.00 0.00 3114/3114 name_cmd [835] +[1545] 0.0 0.00 0.00 3114 rename_cmd [1545] +----------------------------------------------- + 0.00 0.00 1/3113 trigger_giveitem [1891] + 0.00 0.00 1/3113 trigger_shock [1892] + 0.00 0.00 2/3113 trigger_changefaction [1783] + 0.00 0.00 3/3113 trigger_changerace [1297] + 0.00 0.00 5/3113 trigger_killunit [1752] + 0.00 0.00 5/3113 trigger_timeout [1753] + 0.00 0.00 3096/3113 read_triggers [798] +[1546] 0.0 0.00 0.00 3113 t_new [1546] + 0.00 0.00 18/18 timeout_init [1710] + 0.00 0.00 12/12 changefaction_init [1721] + 0.00 0.00 6/6 changerace_init [1746] + 0.00 0.00 2/2 giveitem_init [1774] +----------------------------------------------- + 0.00 0.00 122/3100 maxbuild [946] + 0.00 0.00 2978/3100 build [691] +[1547] 0.0 0.00 0.00 3100 required [1547] +----------------------------------------------- + 0.00 0.00 3096/3096 read_triggers [798] +[1548] 0.0 0.00 0.00 3096 tt_find [1548] +----------------------------------------------- + 0.00 0.00 319/2913 loot_items [810] + 0.00 0.00 2594/2913 aftermath [701] +[1549] 0.0 0.00 0.00 2913 dead_fighters [1549] +----------------------------------------------- + 0.00 0.00 2/2854 summon_allies [925] + 0.00 0.00 149/2854 print_stats [525] + 0.00 0.00 2703/2854 print_header [838] +[1550] 0.0 0.00 0.00 2854 is_attacker [1550] +----------------------------------------------- + 0.00 0.00 1/2742 oldfamiliars [1240] + 0.00 0.00 10/2742 spawn_dragons [411] + 0.00 0.00 17/2742 recruit_dracoids [837] + 0.00 0.00 20/2742 spawn_seaserpent [831] + 0.00 0.00 21/2742 spawn_undead [629] + 0.00 0.00 48/2742 terraform_region [932] + 0.00 0.00 319/2742 kill_troop [532] + 0.00 0.00 639/2742 spawn_braineaters [505] + 0.00 0.00 1667/2742 add_recruits [371] +[1551] 0.0 0.00 0.00 2742 get_equipment [1551] +----------------------------------------------- + 0.00 0.00 2650/2650 a_new [1376] +[1552] 0.0 0.00 0.00 2650 a_initeffect [1552] +----------------------------------------------- + 0.00 0.00 2468/2468 mt_new [1588] +[1553] 0.0 0.00 0.00 2468 find_argtype [1553] +----------------------------------------------- + 0.00 0.00 2468/2468 crt_register [1006] +[1554] 0.0 0.00 0.00 2468 tsf_find [1554] +----------------------------------------------- + 0.00 0.00 233/2324 readfaction [767] + 0.00 0.00 2091/2324 read_mage [1559] +[1555] 0.0 0.00 0.00 2324 read_spellbook [1555] + 0.00 0.00 1174/11052 find_spell [1513] + 0.00 0.00 1174/1524 spellbook_add [1572] + 0.00 0.00 367/380 create_spellbook [1606] +----------------------------------------------- + 0.00 0.00 232/2321 writefaction [762] + 0.00 0.00 2089/2321 write_mage [1560] +[1556] 0.0 0.00 0.00 2321 write_spellbook [1556] +----------------------------------------------- + 0.00 0.00 99/2112 eff_spelllevel [845] + 0.00 0.00 489/2112 u_hasspell [951] + 0.00 0.00 1524/2112 spellbook_add [1572] +[1557] 0.0 0.00 0.00 2112 spellbook_get [1557] +----------------------------------------------- + 0.00 0.00 2092/2092 a_new [1376] +[1558] 0.0 0.00 0.00 2092 init_mage [1558] +----------------------------------------------- + 0.00 0.00 2091/2091 a_read_i [390] +[1559] 0.0 0.00 0.00 2091 read_mage [1559] + 0.00 0.00 2091/2324 read_spellbook [1555] + 0.00 0.00 1312/11052 find_spell [1513] +----------------------------------------------- + 0.00 0.00 2089/2089 a_write [299] +[1560] 0.0 0.00 0.00 2089 write_mage [1560] + 0.00 0.00 2089/2321 write_spellbook [1556] +----------------------------------------------- + 0.00 0.00 2081/2081 a_new [1376] +[1561] 0.0 0.00 0.00 2081 a_init_reportspell [1561] +----------------------------------------------- + 0.00 0.00 644/2073 join_allies [693] + 0.00 0.00 1429/2073 start_battle [297] +[1562] 0.0 0.00 0.00 2073 set_enemy [1562] +----------------------------------------------- + 0.00 0.00 1909/1909 nrt_register [883] +[1563] 0.0 0.00 0.00 1909 section_find [1563] +----------------------------------------------- + 0.00 0.00 1716/1716 recruit [650] +[1564] 0.0 0.00 0.00 1716 recruit_cost [1564] +----------------------------------------------- + 0.00 0.00 3/1697 join_group [1083] + 0.00 0.00 1694/1697 read_groups [782] +[1565] 0.0 0.00 0.00 1697 new_group [1565] +----------------------------------------------- + 0.00 0.00 1670/1670 select_recruitment [1079] +[1566] 0.0 0.00 0.00 1670 any_recruiters [1566] +----------------------------------------------- + 0.00 0.00 1670/1670 select_recruitment [1079] +[1567] 0.0 0.00 0.00 1670 horse_recruiters [1567] +----------------------------------------------- + 0.00 0.00 1594/1594 expandrecruit [349] +[1568] 0.0 0.00 0.00 1594 free_recruitments [1568] + 0.00 0.00 1670/1936876 free_order [1356] +----------------------------------------------- + 0.00 0.00 15/1582 new_potiontype [1712] + 0.00 0.00 19/1582 reshow_other [823] + 0.00 0.00 337/1582 report_computer [9] + 0.00 0.00 337/1582 report_plaintext [4] + 0.00 0.00 348/1582 use_potion [801] + 0.00 0.00 526/1582 create_item [617] +[1569] 0.0 0.00 0.00 1582 resource2potion [1569] +----------------------------------------------- + 0.00 0.00 1564/1564 a_new [1376] +[1570] 0.0 0.00 0.00 1564 init_handler [1570] +----------------------------------------------- + 0.00 0.00 18/1529 ship_update_owner [573] + 0.00 0.00 1511/1529 ship_owner [438] +[1571] 0.0 0.00 0.00 1529 ship_owner_ex [1571] +----------------------------------------------- + 0.00 0.00 24/1524 equipment_addspell [1702] + 0.00 0.00 326/1524 parse_spellbooks [1827] + 0.00 0.00 1174/1524 read_spellbook [1555] +[1572] 0.0 0.00 0.00 1524 spellbook_add [1572] + 0.00 0.00 1524/2112 spellbook_get [1557] +----------------------------------------------- + 0.00 0.00 1522/1522 a_age [418] +[1573] 0.0 0.00 0.00 1522 age_unit [1573] +----------------------------------------------- + 0.00 0.00 1520/1520 join_allies [693] +[1574] 0.0 0.00 0.00 1520 set_friendly [1574] +----------------------------------------------- + 0.00 0.00 326/1466 resolve [757] + 0.00 0.00 1140/1466 read_reference [726] +[1575] 0.0 0.00 0.00 1466 resolve_region_id [1575] + 0.00 0.00 1466/46742 findregionbyid [1463] +----------------------------------------------- + 0.00 0.00 661/1429 join_battle [425] + 0.00 0.00 768/1429 make_fighter [424] +[1576] 0.0 0.00 0.00 1429 set_attacker [1576] +----------------------------------------------- + 0.00 0.00 114/1361 give_unit [952] + 0.00 0.00 588/1361 give_men [857] + 0.00 0.00 659/1361 can_give_men [940] +[1577] 0.0 0.00 0.00 1361 unit_has_cursed_item [1577] +----------------------------------------------- + 0.00 0.00 1301/1301 leveled_allocation [888] +[1578] 0.0 0.00 0.00 1301 rm_get [1578] +----------------------------------------------- + 0.00 0.00 1297/1297 make_fighter [424] +[1579] 0.0 0.00 0.00 1297 add_tactics [1579] +----------------------------------------------- + 0.00 0.00 1297/1297 battle_free [1629] +[1580] 0.0 0.00 0.00 1297 free_fighter [1580] + 0.00 0.00 340/374425 i_free [1400] + 0.00 0.00 340/257723 i_remove [1407] +----------------------------------------------- + 0.00 0.00 1295/1295 make_fighter [424] +[1581] 0.0 0.00 0.00 1295 find_side [1581] +----------------------------------------------- + 0.00 0.00 1140/1140 read_reference [726] +[1582] 0.0 0.00 0.00 1140 read_region_reference [1582] +----------------------------------------------- + 0.00 0.00 2/1119 wormhole_write [1785] + 0.00 0.00 1117/1119 write_targetregion [1584] +[1583] 0.0 0.00 0.00 1119 write_region_reference [1583] +----------------------------------------------- + 0.00 0.00 1117/1117 a_write [299] +[1584] 0.0 0.00 0.00 1117 write_targetregion [1584] + 0.00 0.00 1117/1119 write_region_reference [1583] +----------------------------------------------- + 0.00 0.00 1042/1042 monster_attacks [248] +[1585] 0.0 0.00 0.00 1042 in_safe_building [1585] + 0.00 0.00 318/26995 inside_building [1486] +----------------------------------------------- + 0.00 0.00 2/1041 disable_feature [771] + 0.00 0.00 6/1041 tolua_unit_setskill [1163] + 0.00 0.00 23/1041 xml_readweapon [1266] + 0.00 0.00 84/1041 xml_readconstruction [1183] + 0.00 0.00 106/1041 add_skills [1667] + 0.00 0.00 820/1041 parse_races [1104] +[1586] 0.0 0.00 0.00 1041 findskill [1586] +----------------------------------------------- + 0.00 0.00 957/957 mt_register [1007] +[1587] 0.0 0.00 0.00 957 mt_id [1587] +----------------------------------------------- + 0.00 0.00 957/957 parse_messages [832] +[1588] 0.0 0.00 0.00 957 mt_new [1588] + 0.00 0.00 2468/2468 find_argtype [1553] +----------------------------------------------- + 0.00 0.00 894/894 follow_unit [331] +[1589] 0.0 0.00 0.00 894 make_follow [1589] + 0.00 0.00 894/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 820/820 shipspeed [669] +[1590] 0.0 0.00 0.00 820 curse_geteffect_int [1590] + 0.00 0.00 820/432940 curse_geteffect [1395] +----------------------------------------------- + 0.00 0.00 785/785 i_canuse [569] +[1591] 0.0 0.00 0.00 785 lua_canuse_item [1591] +----------------------------------------------- + 0.00 0.00 763/763 a_new [1376] +[1592] 0.0 0.00 0.00 763 init_skillmod [1592] +----------------------------------------------- + 0.00 0.00 132/677 can_contact [1634] + 0.00 0.00 222/677 leave_cmd [721] + 0.00 0.00 323/677 enter_building [695] +[1593] 0.0 0.00 0.00 677 slipthru [1593] +----------------------------------------------- + 0.00 0.00 1/608 sp_holyground [1068] + 0.00 0.00 1/608 sp_summonshadowlords [1034] + 0.00 0.00 1/608 sp_generous [1040] + 0.00 0.00 1/608 sp_enterastral [1045] + 0.00 0.00 1/608 sp_flying_ship [1064] + 0.00 0.00 2/608 sp_summon_familiar [1025] + 0.00 0.00 2/608 sp_viewreality [784] + 0.00 0.00 3/608 sp_song_of_peace [939] + 0.00 0.00 3/608 sp_eternizewall [988] + 0.00 0.00 4/608 sp_goodwinds [974] + 0.00 0.00 6/608 sp_mallornhain [968] + 0.00 0.00 6/608 sp_summonundead [896] + 0.00 0.00 8/608 do_fumble [1062] + 0.00 0.00 9/608 sp_stormwinds [871] + 0.00 0.00 10/608 sp_hain [931] + 0.00 0.00 13/608 sp_blessedharvest [847] + 0.00 0.00 121/608 lua_callspell [1645] + 0.00 0.00 196/608 verify_targets [1027] + 0.00 0.00 220/608 magic [157] +[1594] 0.0 0.00 0.00 608 co_get_region [1594] +----------------------------------------------- + 0.00 0.00 574/574 do_battle [64] +[1595] 0.0 0.00 0.00 574 battle_update [1595] +----------------------------------------------- + 0.00 0.00 27/560 dragon_name [1095] + 0.00 0.00 533/560 treeman_neighbour [1201] +[1596] 0.0 0.00 0.00 560 oldterrain [1596] +----------------------------------------------- + 0.00 0.00 554/554 a_free [558] +[1597] 0.0 0.00 0.00 554 a_finalizeeffect [1597] +----------------------------------------------- + 0.00 0.00 552/552 battle_free [1629] +[1598] 0.0 0.00 0.00 552 free_side [1598] +----------------------------------------------- + 0.00 0.00 6/501 parse_resources [1086] + 0.00 0.00 14/501 parse_ships [1305] + 0.00 0.00 23/501 xml_readweapon [1266] + 0.00 0.00 24/501 xml_readarmor [1736] + 0.00 0.00 27/501 parse_buildings [1131] + 0.00 0.00 67/501 parse_ai [1662] + 0.00 0.00 340/501 parse_races [1104] +[1599] 0.0 0.00 0.00 501 xml_fvalue [1599] +----------------------------------------------- + 0.00 0.00 1/465 xml_readconstruction [1183] + 0.00 0.00 6/465 parse_resources [1086] + 0.00 0.00 6/465 add_callbacks [1666] + 0.00 0.00 178/465 parse_function [1637] + 0.00 0.00 274/465 parse_spells [1120] +[1600] 0.0 0.00 0.00 465 get_function [1600] +----------------------------------------------- + 0.00 0.00 464/464 prepare_report [8] +[1601] 0.0 0.00 0.00 464 lastregion [1601] +----------------------------------------------- + 0.00 0.00 47/451 msg_set_region [1685] + 0.00 0.00 80/451 msg_set_resource [1226] + 0.00 0.00 121/451 msg_set_unit [1646] + 0.00 0.00 203/451 msg_set_int [1633] +[1602] 0.0 0.00 0.00 451 mtype_get_param [1602] +----------------------------------------------- + 0.00 0.00 2/433 set_factionstealth [183] + 0.00 0.00 431/433 create_unit [296] +[1603] 0.0 0.00 0.00 433 make_otherfaction [1603] + 0.00 0.00 433/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 40/428 regions_in_range [675] + 0.00 0.00 388/428 internal_path_find [345] +[1604] 0.0 0.00 0.00 428 free_nodes [1604] + 0.00 0.00 152803/152803 free_node [1426] +----------------------------------------------- + 0.00 0.00 406/406 battle_effects [1125] +[1605] 0.0 0.00 0.00 406 PopulationDamage [1605] +----------------------------------------------- + 0.00 0.00 6/380 get_spellbook [1544] + 0.00 0.00 7/380 equipment_addspell [1702] + 0.00 0.00 367/380 read_spellbook [1555] +[1606] 0.0 0.00 0.00 380 create_spellbook [1606] +----------------------------------------------- + 0.00 0.00 343/343 research_cmd [886] +[1607] 0.0 0.00 0.00 343 rough_amount [1607] +----------------------------------------------- + 0.00 0.00 314/314 make_fighter [424] +[1608] 0.0 0.00 0.00 314 CavalrySkill [1608] +----------------------------------------------- + 0.00 0.00 74/303 cast_combatspell [623] + 0.00 0.00 229/303 free_castorders [1541] +[1609] 0.0 0.00 0.00 303 free_castorder [1609] + 0.00 0.00 220/1936876 free_order [1356] + 0.00 0.00 26/26 free_spellparameter [1700] +----------------------------------------------- + 0.00 0.00 286/286 checkpasswd [1268] +[1610] 0.0 0.00 0.00 286 password_verify [1610] +----------------------------------------------- + 272147 freetokens [1611] + 0.00 0.00 12/267 free_locales [1311] + 0.00 0.00 255/267 unit_getspell [758] +[1611] 0.0 0.00 0.00 267+272147 freetokens [1611] + 272147 freetokens [1611] +----------------------------------------------- + 0.00 0.00 250/250 tpregion [1085] +[1612] 0.0 0.00 0.00 250 real2tp [1612] +----------------------------------------------- + 0.00 0.00 248/248 skillmod [214] +[1613] 0.0 0.00 0.00 248 sm_smithy [1613] +----------------------------------------------- + 0.00 0.00 1/240 kernel_init [1814] + 0.00 0.00 1/240 register_race_description_function [1848] + 0.00 0.00 2/240 register_weapons [1857] + 0.00 0.00 2/240 register_arena [1832] + 0.00 0.00 2/240 register_item_useonother [1778] + 0.00 0.00 3/240 register_item_give [1767] + 0.00 0.00 5/240 register_spells [1251] + 0.00 0.00 5/240 register_buildings [1837] + 0.00 0.00 7/240 register_race_name_function [1740] + 0.00 0.00 9/240 register_resources [1852] + 0.00 0.00 12/240 register_tolua_helpers [1854] + 0.00 0.00 13/240 register_races [1849] + 0.00 0.00 27/240 register_item_use [1699] + 0.00 0.00 151/240 register_spelldata [1250] +[1614] 0.0 0.00 0.00 240 register_function [1614] +----------------------------------------------- + 0.00 0.00 234/234 set_leftship [1134] +[1615] 0.0 0.00 0.00 234 make_leftship [1615] + 0.00 0.00 234/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 233/233 read_password [1619] +[1616] 0.0 0.00 0.00 233 faction_setpassword [1616] +----------------------------------------------- + 0.00 0.00 233/233 read_game [62] +[1617] 0.0 0.00 0.00 233 fhash [1617] +----------------------------------------------- + 0.00 0.00 233/233 read_password [1619] +[1618] 0.0 0.00 0.00 233 password_encode [1618] +----------------------------------------------- + 0.00 0.00 233/233 readfaction [767] +[1619] 0.0 0.00 0.00 233 read_password [1619] + 0.00 0.00 233/233 password_encode [1618] + 0.00 0.00 233/233 faction_setpassword [1616] +----------------------------------------------- + 0.00 0.00 233/233 readfaction [767] +[1620] 0.0 0.00 0.00 233 set_email [1620] + 0.00 0.00 232/232 spc_email_isvalid [1621] +----------------------------------------------- + 0.00 0.00 232/232 set_email [1620] +[1621] 0.0 0.00 0.00 232 spc_email_isvalid [1621] +----------------------------------------------- + 0.00 0.00 232/232 get_addresses [20] +[1622] 0.0 0.00 0.00 232 transfer_seen [1622] +----------------------------------------------- + 0.00 0.00 232/232 writefaction [762] +[1623] 0.0 0.00 0.00 232 write_password [1623] +----------------------------------------------- + 0.00 0.00 1/231 writegame [82] + 0.00 0.00 230/231 report_computer [9] +[1624] 0.0 0.00 0.00 231 eressea_version [1624] +----------------------------------------------- + 0.00 0.00 230/230 report_computer [9] +[1625] 0.0 0.00 0.00 230 reset_translations [1625] +----------------------------------------------- + 0.00 0.00 9/229 do_combatmagic [825] + 0.00 0.00 220/229 magic [157] +[1626] 0.0 0.00 0.00 229 add_castorder [1626] +----------------------------------------------- + 0.00 0.00 214/214 copy_arg [521] +[1627] 0.0 0.00 0.00 214 var_copy_items [1627] +----------------------------------------------- + 0.00 0.00 209/209 free_arg [1371] +[1628] 0.0 0.00 0.00 209 var_free_resources [1628] +----------------------------------------------- + 0.00 0.00 206/206 free_battle [1630] +[1629] 0.0 0.00 0.00 206 battle_free [1629] + 0.00 0.00 1297/1297 free_fighter [1580] + 0.00 0.00 552/552 free_side [1598] +----------------------------------------------- + 0.00 0.00 206/206 do_battle [64] +[1630] 0.0 0.00 0.00 206 free_battle [1630] + 0.00 0.00 206/206 battle_free [1629] +----------------------------------------------- + 0.00 0.00 206/206 aftermath [701] +[1631] 0.0 0.00 0.00 206 reorder_fleeing [1631] +----------------------------------------------- + 0.00 0.00 206/206 copy_arg [521] +[1632] 0.0 0.00 0.00 206 var_copy_resources [1632] +----------------------------------------------- + 0.00 0.00 203/203 tolua_msg_set_int [2937] +[1633] 0.0 0.00 0.00 203 msg_set_int [1633] + 0.00 0.00 203/451 mtype_get_param [1602] +----------------------------------------------- + 0.00 0.00 12/192 spy_cmd [990] + 0.00 0.00 65/192 steal_cmd [766] + 0.00 0.00 115/192 contact_cmd [965] +[1634] 0.0 0.00 0.00 192 can_contact [1634] + 0.00 0.00 132/677 slipthru [1593] +----------------------------------------------- + 0.00 0.00 186/186 a_age [418] +[1635] 0.0 0.00 0.00 186 leftship_age [1635] +----------------------------------------------- + 0.00 0.00 185/185 it_get_or_create [1115] +[1636] 0.0 0.00 0.00 185 it_register [1636] +----------------------------------------------- + 0.00 0.00 3/178 parse_buildings [1131] + 0.00 0.00 3/178 xml_readweapon [1266] + 0.00 0.00 19/178 parse_resources [1086] + 0.00 0.00 29/178 parse_spells [1120] + 0.00 0.00 55/178 xml_readitem [1107] + 0.00 0.00 69/178 parse_races [1104] +[1637] 0.0 0.00 0.00 178 parse_function [1637] + 0.00 0.00 178/465 get_function [1600] +----------------------------------------------- + 0.00 0.00 166/166 create_spell [1639] +[1638] 0.0 0.00 0.00 166 add_spell [1638] +----------------------------------------------- + 0.00 0.00 166/166 parse_spells [1120] +[1639] 0.0 0.00 0.00 166 create_spell [1639] + 0.00 0.00 166/166 add_spell [1638] +----------------------------------------------- + 0.00 0.00 162/162 rt_get_or_create [1139] +[1640] 0.0 0.00 0.00 162 rt_register [1640] +----------------------------------------------- + 0.00 0.00 1/160 move_iceberg [1094] + 0.00 0.00 7/160 attack [84] + 0.00 0.00 12/160 aftermath [701] + 0.00 0.00 15/160 drifting_ships [490] + 0.00 0.00 29/160 sail [181] + 0.00 0.00 96/160 sinkships [475] +[1641] 0.0 0.00 0.00 160 damage_ship [1641] +----------------------------------------------- + 0.00 0.00 136/136 a_read_i [390] +[1642] 0.0 0.00 0.00 136 a_readstring [1642] +----------------------------------------------- + 0.00 0.00 133/133 caught_target [1003] +[1643] 0.0 0.00 0.00 133 present [1643] +----------------------------------------------- + 0.00 0.00 121/121 lua_callspell [1645] +[1644] 0.0 0.00 0.00 121 co_get_caster [1644] +----------------------------------------------- + 0.00 0.00 2/121 do_fumble [1062] + 0.00 0.00 119/121 magic [157] +[1645] 0.0 0.00 0.00 121 lua_callspell [1645] + 0.00 0.00 121/121 co_get_caster [1644] + 0.00 0.00 121/608 co_get_region [1594] +----------------------------------------------- + 0.00 0.00 121/121 tolua_msg_set_unit [2941] +[1646] 0.0 0.00 0.00 121 msg_set_unit [1646] + 0.00 0.00 121/451 mtype_get_param [1602] +----------------------------------------------- + 0.00 0.00 118/118 init_translations [1033] +[1647] 0.0 0.00 0.00 118 keyword_key [1647] + 0.00 0.00 118/2009097 keyword [1355] +----------------------------------------------- + 0.00 0.00 106/106 a_read_i [390] +[1648] 0.0 0.00 0.00 106 a_readkey [1648] + 0.00 0.00 106/58518 a_readint [1448] +----------------------------------------------- + 0.00 0.00 106/106 add_skills [1667] +[1649] 0.0 0.00 0.00 106 equipment_setskill [1649] +----------------------------------------------- + 0.00 0.00 99/99 magic [157] +[1650] 0.0 0.00 0.00 99 spl_costtyp [1650] +----------------------------------------------- + 0.00 0.00 9/97 kill_troop [532] + 0.00 0.00 88/97 gift_items [891] +[1651] 0.0 0.00 0.00 97 i_merge [1651] + 0.00 0.00 86/374425 i_free [1400] + 0.00 0.00 86/257723 i_remove [1407] +----------------------------------------------- + 0.00 0.00 97/97 piracy_cmd [660] +[1652] 0.0 0.00 0.00 97 mk_piracy [1652] + 0.00 0.00 97/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 97/97 a_free [558] +[1653] 0.0 0.00 0.00 97 piracy_done [1653] +----------------------------------------------- + 0.00 0.00 97/97 a_new [1376] +[1654] 0.0 0.00 0.00 97 piracy_init [1654] +----------------------------------------------- + 0.00 0.00 88/88 init_translations [1033] +[1655] 0.0 0.00 0.00 88 parameter_key [1655] +----------------------------------------------- + 0.00 0.00 21/74 sp_kampfzauber [957] + 0.00 0.00 53/74 sp_dragonodem [627] +[1656] 0.0 0.00 0.00 74 get_force [1656] +----------------------------------------------- + 0.00 0.00 21/74 sp_kampfzauber [957] + 0.00 0.00 53/74 sp_dragonodem [627] +[1657] 0.0 0.00 0.00 74 spell_damage [1657] +----------------------------------------------- + 0.00 0.00 12/73 add_subsets [1669] + 0.00 0.00 61/73 parse_equipment [1170] +[1658] 0.0 0.00 0.00 73 create_equipment [1658] +----------------------------------------------- + 0.00 0.00 72/72 xml_readitem [1107] +[1659] 0.0 0.00 0.00 72 default_score [1659] +----------------------------------------------- + 0.00 0.00 68/68 a_read_i [390] +[1660] 0.0 0.00 0.00 68 a_readchars [1660] +----------------------------------------------- + 0.00 0.00 68/68 rc_get_or_create [1105] +[1661] 0.0 0.00 0.00 68 rc_create [1661] +----------------------------------------------- + 0.00 0.00 67/67 parse_races [1104] +[1662] 0.0 0.00 0.00 67 parse_ai [1662] + 0.00 0.00 268/6576 xml_bvalue [1532] + 0.00 0.00 134/5453 xml_ivalue [1533] + 0.00 0.00 67/501 xml_fvalue [1599] +----------------------------------------------- + 0.00 0.00 66/66 a_write [299] +[1663] 0.0 0.00 0.00 66 a_writechars [1663] +----------------------------------------------- + 0.00 0.00 65/65 add_items [1169] +[1664] 0.0 0.00 0.00 65 equipment_setitem [1664] +----------------------------------------------- + 0.00 0.00 2/65 default_order [902] + 0.00 0.00 2/65 disable_feature [771] + 0.00 0.00 61/65 json_keyword [1127] +[1665] 0.0 0.00 0.00 65 findkeyword [1665] +----------------------------------------------- + 0.00 0.00 61/61 parse_equipment [1170] +[1666] 0.0 0.00 0.00 61 add_callbacks [1666] + 0.00 0.00 6/465 get_function [1600] + 0.00 0.00 6/6 equipment_setcallback [1747] +----------------------------------------------- + 0.00 0.00 61/61 parse_equipment [1170] +[1667] 0.0 0.00 0.00 61 add_skills [1667] + 0.00 0.00 106/1041 findskill [1586] + 0.00 0.00 106/106 equipment_setskill [1649] +----------------------------------------------- + 0.00 0.00 61/61 parse_equipment [1170] +[1668] 0.0 0.00 0.00 61 add_spells [1668] + 0.00 0.00 24/11052 find_spell [1513] + 0.00 0.00 24/5453 xml_ivalue [1533] + 0.00 0.00 24/24 equipment_addspell [1702] +----------------------------------------------- + 0.00 0.00 61/61 parse_equipment [1170] +[1669] 0.0 0.00 0.00 61 add_subsets [1669] + 0.00 0.00 12/73 create_equipment [1658] +----------------------------------------------- + 0.00 0.00 58/58 tolua_dict_get [1218] +[1670] 0.0 0.00 0.00 58 dict_get [1670] +----------------------------------------------- + 0.00 0.00 58/58 tolua_dict_get [1218] +[1671] 0.0 0.00 0.00 58 dict_name [1671] +----------------------------------------------- + 0.00 0.00 58/58 add_resource [1162] +[1672] 0.0 0.00 0.00 58 rmt_get [1672] +----------------------------------------------- + 0.00 0.00 57/57 terraform_region [932] +[1673] 0.0 0.00 0.00 57 free_land [1673] +----------------------------------------------- + 0.00 0.00 3/56 add_proc_postregion [1761] + 0.00 0.00 3/56 add_proc_unit [1762] + 0.00 0.00 8/56 add_proc_region [1733] + 0.00 0.00 13/56 add_proc_global [1716] + 0.00 0.00 29/56 add_proc_order [1692] +[1674] 0.0 0.00 0.00 56 add_proc [1674] +----------------------------------------------- + 0.00 0.00 56/56 a_new [1376] +[1675] 0.0 0.00 0.00 56 dict_init [1675] +----------------------------------------------- + 0.00 0.00 56/56 a_read_i [390] +[1676] 0.0 0.00 0.00 56 dict_read [1676] +----------------------------------------------- + 0.00 0.00 56/56 a_write [299] +[1677] 0.0 0.00 0.00 56 dict_write [1677] +----------------------------------------------- + 0.00 0.00 1/55 chaos_register [1797] + 0.00 0.00 1/55 wormholes_register [1895] + 0.00 0.00 1/55 register_borders [1835] + 0.00 0.00 1/55 register_arena [1832] + 0.00 0.00 1/55 register_artrewards [1833] + 0.00 0.00 2/55 register_tolua_helpers [1854] + 0.00 0.00 2/55 register_spells [1251] + 0.00 0.00 4/55 register_museum [1845] + 0.00 0.00 42/55 register_attributes [1834] +[1678] 0.0 0.00 0.00 55 at_register [1678] + 0.00 0.00 55/251874 __at_hashkey [3279] +----------------------------------------------- + 0.00 0.00 54/54 parse_resources [1086] +[1679] 0.0 0.00 0.00 54 it_set_appearance [1679] +----------------------------------------------- + 0.00 0.00 18/52 json_terrains [1190] + 0.00 0.00 34/52 parse_ships [1305] +[1680] 0.0 0.00 0.00 52 get_or_create_terrain [1680] + 0.00 0.00 52/178322 terrain_find_i [1421] +----------------------------------------------- + 0.00 0.00 51/51 report_summary [614] +[1681] 0.0 0.00 0.00 51 rcomp [1681] +----------------------------------------------- + 0.00 0.00 48/48 terraform_region [932] +[1682] 0.0 0.00 0.00 48 get_maxluxuries [1682] +----------------------------------------------- + 0.00 0.00 48/48 terraform_region [932] +[1683] 0.0 0.00 0.00 48 region_setname [1683] +----------------------------------------------- + 0.00 0.00 1/48 tolua_unit_add_order [1276] + 0.00 0.00 47/48 give_peasants [1060] +[1684] 0.0 0.00 0.00 48 unit_addorder [1684] +----------------------------------------------- + 0.00 0.00 47/47 tolua_msg_set_region [2939] +[1685] 0.0 0.00 0.00 47 msg_set_region [1685] + 0.00 0.00 47/451 mtype_get_param [1602] +----------------------------------------------- + 0.00 0.00 1/44 register_magicresistance [1844] + 0.00 0.00 1/44 register_flyingship [1840] + 0.00 0.00 2/44 register_spells [1251] + 0.00 0.00 3/44 register_shipcurse [1853] + 0.00 0.00 4/44 register_buildingcurse [1836] + 0.00 0.00 14/44 register_unitcurse [1856] + 0.00 0.00 19/44 register_regioncurse [1850] +[1686] 0.0 0.00 0.00 44 ct_register [1686] +----------------------------------------------- + 0.00 0.00 42/42 report_summary [614] +[1687] 0.0 0.00 0.00 42 pcomp [1687] +----------------------------------------------- + 0.00 0.00 33/33 set_param [1689] +[1688] 0.0 0.00 0.00 33 pack_keyval [1688] +----------------------------------------------- + 0.00 0.00 3/33 parse_param [1765] + 0.00 0.00 30/33 config_set [444] +[1689] 0.0 0.00 0.00 33 set_param [1689] + 0.00 0.00 33/33 pack_keyval [1688] +----------------------------------------------- + 0.00 0.00 7/32 translation_init [1890] + 0.00 0.00 25/32 register_reports [1851] +[1690] 0.0 0.00 0.00 32 add_function [1690] +----------------------------------------------- + 0.00 0.00 7/30 attrib_allocation [914] + 0.00 0.00 23/30 allocate_resource [752] +[1691] 0.0 0.00 0.00 30 limit_seeds [1691] +----------------------------------------------- + 0.00 0.00 29/29 init_processor [1310] +[1692] 0.0 0.00 0.00 29 add_proc_order [1692] + 0.00 0.00 29/11194781 keyword_disabled [1348] + 0.00 0.00 29/56 add_proc [1674] +----------------------------------------------- + 0.00 0.00 29/29 json_prefixes [1812] +[1693] 0.0 0.00 0.00 29 add_raceprefix [1693] +----------------------------------------------- + 0.00 0.00 29/29 json_terrain [1189] +[1694] 0.0 0.00 0.00 29 json_terrain_production [1694] +----------------------------------------------- + 0.00 0.00 28/28 destroy_curse [1697] +[1695] 0.0 0.00 0.00 28 cunhash [1695] +----------------------------------------------- + 0.00 0.00 28/28 a_free [558] +[1696] 0.0 0.00 0.00 28 curse_done [1696] + 0.00 0.00 28/28 destroy_curse [1697] +----------------------------------------------- + 0.00 0.00 28/28 curse_done [1696] +[1697] 0.0 0.00 0.00 28 destroy_curse [1697] + 0.00 0.00 28/28 cunhash [1695] +----------------------------------------------- + 0.00 0.00 27/27 bt_get_or_create [1114] +[1698] 0.0 0.00 0.00 27 bt_register [1698] +----------------------------------------------- + 0.00 0.00 1/27 register_tolua_helpers [1854] + 0.00 0.00 1/27 register_demonseye [1839] + 0.00 0.00 1/27 register_arena [1832] + 0.00 0.00 2/27 register_xerewards [1858] + 0.00 0.00 2/27 register_artrewards [1833] + 0.00 0.00 3/27 register_museum [1845] + 0.00 0.00 7/27 register_itemfunctions [1842] + 0.00 0.00 10/27 register_resources [1852] +[1699] 0.0 0.00 0.00 27 register_item_use [1699] + 0.00 0.00 27/240 register_function [1614] +----------------------------------------------- + 0.00 0.00 26/26 free_castorder [1609] +[1700] 0.0 0.00 0.00 26 free_spellparameter [1700] +----------------------------------------------- + 0.00 0.00 25/25 set_new_dragon_target [486] +[1701] 0.0 0.00 0.00 25 make_targetregion [1701] + 0.00 0.00 25/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 24/24 add_spells [1668] +[1702] 0.0 0.00 0.00 24 equipment_addspell [1702] + 0.00 0.00 24/1524 spellbook_add [1572] + 0.00 0.00 7/380 create_spellbook [1606] +----------------------------------------------- + 0.00 0.00 23/23 xml_readweapon [1266] +[1703] 0.0 0.00 0.00 23 new_weapontype [1703] + 0.00 0.00 23/2379316 resource2weapon [1353] +----------------------------------------------- + 0.00 0.00 22/22 verify_targets [1027] +[1704] 0.0 0.00 0.00 22 verify_ship [1704] + 0.00 0.00 22/28818 findship [1483] +----------------------------------------------- + 0.00 0.00 19/19 register_cr [1838] +[1705] 0.0 0.00 0.00 19 tsf_register [1705] +----------------------------------------------- + 0.00 0.00 18/18 handle_event [1363] +[1706] 0.0 0.00 0.00 18 handle_triggers [1706] + 0.00 0.00 18/18 timeout_handle [1709] + 0.00 0.00 1/1 caldera_handle [1794] +----------------------------------------------- + 0.00 0.00 18/18 json_terrain [1189] +[1707] 0.0 0.00 0.00 18 json_flags [1707] +----------------------------------------------- + 0.00 0.00 18/18 register_reports [1851] +[1708] 0.0 0.00 0.00 18 register_argtype [1708] +----------------------------------------------- + 0.00 0.00 18/18 handle_triggers [1706] +[1709] 0.0 0.00 0.00 18 timeout_handle [1709] +----------------------------------------------- + 0.00 0.00 18/18 t_new [1546] +[1710] 0.0 0.00 0.00 18 timeout_init [1710] +----------------------------------------------- + 18 write_triggers [954] +[1711] 0.0 0.00 0.00 18 timeout_write [1711] + 18 write_triggers [954] +----------------------------------------------- + 0.00 0.00 15/15 xml_readpotion [1714] +[1712] 0.0 0.00 0.00 15 new_potiontype [1712] + 0.00 0.00 15/1582 resource2potion [1569] + 0.00 0.00 15/15 pt_register [1713] +----------------------------------------------- + 0.00 0.00 15/15 new_potiontype [1712] +[1713] 0.0 0.00 0.00 15 pt_register [1713] +----------------------------------------------- + 0.00 0.00 15/15 xml_readitem [1107] +[1714] 0.0 0.00 0.00 15 xml_readpotion [1714] + 0.00 0.00 15/5453 xml_ivalue [1533] + 0.00 0.00 15/15 new_potiontype [1712] +----------------------------------------------- + 0.00 0.00 1/14 register_arena [1832] + 0.00 0.00 1/14 register_xmas [1859] + 0.00 0.00 12/14 register_triggers [1855] +[1715] 0.0 0.00 0.00 14 tt_register [1715] +----------------------------------------------- + 0.00 0.00 13/13 init_processor [1310] +[1716] 0.0 0.00 0.00 13 add_proc_global [1716] + 0.00 0.00 13/56 add_proc [1674] +----------------------------------------------- + 0.00 0.00 13/13 read_planes [1164] +[1717] 0.0 0.00 0.00 13 getplanebyid [1717] +----------------------------------------------- + 0.00 0.00 13/13 move_iceberg [1094] +[1718] 0.0 0.00 0.00 13 make_iceberg [1718] + 0.00 0.00 13/779868 a_new [1376] +----------------------------------------------- + 13 read_triggers [798] +[1719] 0.0 0.00 0.00 13 timeout_read [1719] + 13 read_triggers [798] +----------------------------------------------- + 0.00 0.00 2/12 remove_building [1153] + 0.00 0.00 10/12 renumber_cmd [780] +[1720] 0.0 0.00 0.00 12 bunhash [1720] +----------------------------------------------- + 0.00 0.00 12/12 t_new [1546] +[1721] 0.0 0.00 0.00 12 changefaction_init [1721] +----------------------------------------------- + 0.00 0.00 12/12 volcano_destruction [1022] +[1722] 0.0 0.00 0.00 12 make_reduceproduction [1722] + 0.00 0.00 12/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 12/12 changerace_write [1287] +[1723] 0.0 0.00 0.00 12 write_race_reference [1723] +----------------------------------------------- + 0.00 0.00 11/11 koor_distance [476] +[1724] 0.0 0.00 0.00 11 koor_distance_wrap_xy [1724] +----------------------------------------------- + 0.00 0.00 11/11 attrib_allocation [914] +[1725] 0.0 0.00 0.00 11 produce_seeds [1725] +----------------------------------------------- + 0.00 0.00 11/11 register_xmlreader [1860] +[1726] 0.0 0.00 0.00 11 xml_register_callback [1726] +----------------------------------------------- + 0.00 0.00 11/11 parse_races [1104] +[1727] 0.0 0.00 0.00 11 xml_spell [1727] + 0.00 0.00 9/11052 find_spell [1513] +----------------------------------------------- + 0.00 0.00 10/10 cast_cmd [760] +[1728] 0.0 0.00 0.00 10 rel_to_abs [1728] + 0.00 0.00 5/5 ursprung_x [1754] + 0.00 0.00 5/221723 plane_center_x [1411] + 0.00 0.00 5/5 ursprung_y [1755] + 0.00 0.00 5/221723 plane_center_y [1412] +----------------------------------------------- + 0.00 0.00 10/10 nrt_register [883] +[1729] 0.0 0.00 0.00 10 section_add [1729] +----------------------------------------------- + 0.00 0.00 1/9 load_inifile [1293] + 0.00 0.00 1/9 parse_inifile [1317] + 0.00 0.00 1/9 writepasswd [1074] + 0.00 0.00 2/9 writeturn [1253] + 0.00 0.00 2/9 report_summary [614] + 0.00 0.00 2/9 score [23] +[1730] 0.0 0.00 0.00 9 basepath [1730] +----------------------------------------------- + 0.00 0.00 9/9 a_new [1376] +[1731] 0.0 0.00 0.00 9 init_resourcelimit [1731] +----------------------------------------------- + 0.00 0.00 1/9 register_museum [1845] + 0.00 0.00 3/9 register_borders [1835] + 0.00 0.00 5/9 register_attributes [1834] +[1732] 0.0 0.00 0.00 9 register_bordertype [1732] +----------------------------------------------- + 0.00 0.00 8/8 init_processor [1310] +[1733] 0.0 0.00 0.00 8 add_proc_region [1733] + 0.00 0.00 8/56 add_proc [1674] +----------------------------------------------- + 0.00 0.00 8/8 xml_readarmor [1736] +[1734] 0.0 0.00 0.00 8 new_armortype [1734] +----------------------------------------------- + 0.00 0.00 8/8 tolua_unit_get_hp [3117] +[1735] 0.0 0.00 0.00 8 unit_gethp [1735] +----------------------------------------------- + 0.00 0.00 8/8 xml_readitem [1107] +[1736] 0.0 0.00 0.00 8 xml_readarmor [1736] + 0.00 0.00 24/501 xml_fvalue [1599] + 0.00 0.00 16/6576 xml_bvalue [1532] + 0.00 0.00 8/5453 xml_ivalue [1533] + 0.00 0.00 8/8 new_armortype [1734] +----------------------------------------------- + 0.00 0.00 7/7 has_ao_healing [1269] +[1737] 0.0 0.00 0.00 7 i_findc [1737] +----------------------------------------------- + 0.00 0.00 7/7 new_luxurytype [1739] +[1738] 0.0 0.00 0.00 7 lt_register [1738] +----------------------------------------------- + 0.00 0.00 7/7 xml_readluxury [1745] +[1739] 0.0 0.00 0.00 7 new_luxurytype [1739] + 0.00 0.00 7/21500 resource2luxury [1499] + 0.00 0.00 7/7 lt_register [1738] +----------------------------------------------- + 0.00 0.00 7/7 register_names [1846] +[1740] 0.0 0.00 0.00 7 register_race_name_function [1740] + 0.00 0.00 7/240 register_function [1614] +----------------------------------------------- + 0.00 0.00 7/7 parse_resources [1086] +[1741] 0.0 0.00 0.00 7 rmt_create [1741] +----------------------------------------------- + 0.00 0.00 7/7 equipment_done [1802] +[1742] 0.0 0.00 0.00 7 spellbook_clear [1742] +----------------------------------------------- + 0.00 0.00 7/7 parse_ships [1305] +[1743] 0.0 0.00 0.00 7 st_get_or_create [1743] + 0.00 0.00 7/19089 st_find_i [1501] +----------------------------------------------- + 0.00 0.00 1/7 renumber_cmd [780] + 0.00 0.00 6/7 remove_ship [1748] +[1744] 0.0 0.00 0.00 7 sunhash [1744] +----------------------------------------------- + 0.00 0.00 7/7 xml_readitem [1107] +[1745] 0.0 0.00 0.00 7 xml_readluxury [1745] + 0.00 0.00 7/5453 xml_ivalue [1533] + 0.00 0.00 7/7 new_luxurytype [1739] +----------------------------------------------- + 0.00 0.00 6/6 t_new [1546] +[1746] 0.0 0.00 0.00 6 changerace_init [1746] +----------------------------------------------- + 0.00 0.00 6/6 add_callbacks [1666] +[1747] 0.0 0.00 0.00 6 equipment_setcallback [1747] +----------------------------------------------- + 0.00 0.00 1/6 drifting_ships [490] + 0.00 0.00 5/6 sinkships [475] +[1748] 0.0 0.00 0.00 6 remove_ship [1748] + 0.00 0.00 6/1342832 handle_event [1363] + 0.00 0.00 6/7 sunhash [1744] +----------------------------------------------- + 0.00 0.00 2/5 register_gmcmd [1841] + 0.00 0.00 3/5 register_attributes [1834] +[1749] 0.0 0.00 0.00 5 at_deprecate [1749] + 0.00 0.00 5/251874 __at_hashkey [3279] +----------------------------------------------- + 0.00 0.00 5/5 process [7] +[1750] 0.0 0.00 0.00 5 free_group [1750] +----------------------------------------------- + 0.00 0.00 1/5 init_data [790] + 0.00 0.00 4/5 json_config [464] +[1751] 0.0 0.00 0.00 5 reset_locales [1751] +----------------------------------------------- + 0.00 0.00 1/5 create_newfamiliar [1288] + 0.00 0.00 4/5 sp_charmingsong [993] +[1752] 0.0 0.00 0.00 5 trigger_killunit [1752] + 0.00 0.00 5/3113 t_new [1546] +----------------------------------------------- + 0.00 0.00 1/5 use_bloodpotion [935] + 0.00 0.00 2/5 sp_charmingsong [993] + 0.00 0.00 2/5 do_fumble [1062] +[1753] 0.0 0.00 0.00 5 trigger_timeout [1753] + 0.00 0.00 5/3113 t_new [1546] +----------------------------------------------- + 0.00 0.00 5/5 rel_to_abs [1728] +[1754] 0.0 0.00 0.00 5 ursprung_x [1754] +----------------------------------------------- + 0.00 0.00 5/5 rel_to_abs [1728] +[1755] 0.0 0.00 0.00 5 ursprung_y [1755] +----------------------------------------------- + 0.00 0.00 4/4 parse_ids [852] +[1756] 0.0 0.00 0.00 4 intlist_add [1756] +----------------------------------------------- + 0.00 0.00 4/4 parse_ids [852] +[1757] 0.0 0.00 0.00 4 intlist_init [1757] +----------------------------------------------- + 0.00 0.00 4/4 config_get_locales [1161] +[1758] 0.0 0.00 0.00 4 nextlocale [1758] +----------------------------------------------- + 0.00 0.00 4/4 curse_read [770] +[1759] 0.0 0.00 0.00 4 read_skill [1759] +----------------------------------------------- + 0.00 0.00 2/4 chaosterrain [1213] + 0.00 0.00 2/4 init_terrains_translation [1129] +[1760] 0.0 0.00 0.00 4 terrains [1760] +----------------------------------------------- + 0.00 0.00 3/3 init_processor [1310] +[1761] 0.0 0.00 0.00 3 add_proc_postregion [1761] + 0.00 0.00 3/56 add_proc [1674] +----------------------------------------------- + 0.00 0.00 3/3 init_processor [1310] +[1762] 0.0 0.00 0.00 3 add_proc_unit [1762] + 0.00 0.00 3/56 add_proc [1674] +----------------------------------------------- + 0.00 0.00 3/3 give_control_cmd [287] +[1763] 0.0 0.00 0.00 3 give_control [1763] + 0.00 0.00 3/18963 ship_set_owner [1505] +----------------------------------------------- + 0.00 0.00 3/3 join_group [1083] +[1764] 0.0 0.00 0.00 3 init_group [1764] + 0.00 0.00 98/55547 ally_add [1452] +----------------------------------------------- + 0.00 0.00 3/3 parse_races [1104] +[1765] 0.0 0.00 0.00 3 parse_param [1765] + 0.00 0.00 3/33 set_param [1689] +----------------------------------------------- + 0.00 0.00 3/3 xml_readweapon [1266] +[1766] 0.0 0.00 0.00 3 racelist_insert [1766] +----------------------------------------------- + 0.00 0.00 1/3 register_tolua_helpers [1854] + 0.00 0.00 1/3 register_demonseye [1839] + 0.00 0.00 1/3 register_resources [1852] +[1767] 0.0 0.00 0.00 3 register_item_give [1767] + 0.00 0.00 3/240 register_function [1614] +----------------------------------------------- + 0.00 0.00 1/3 register_cr [1838] + 0.00 0.00 2/3 register_nr [1847] +[1768] 0.0 0.00 0.00 3 register_reporttype [1768] +----------------------------------------------- + 0.00 0.00 3/3 curse_write [930] +[1769] 0.0 0.00 0.00 3 write_skill [1769] +----------------------------------------------- + 0.00 0.00 2/2 move_blocked [283] +[1770] 0.0 0.00 0.00 2 b_blockquestportal [1770] +----------------------------------------------- + 0.00 0.00 2/2 see_border [1440] +[1771] 0.0 0.00 0.00 2 b_fvisible [1771] +----------------------------------------------- + 0.00 0.00 2/2 describe [35] +[1772] 0.0 0.00 0.00 2 b_opaque [1772] +----------------------------------------------- + 0.00 0.00 2/2 tolua_write_summary [38] +[1773] 0.0 0.00 0.00 2 free_summary [1773] +----------------------------------------------- + 0.00 0.00 2/2 t_new [1546] +[1774] 0.0 0.00 0.00 2 giveitem_init [1774] +----------------------------------------------- + 0.00 0.00 1/2 allocate_resource [752] + 0.00 0.00 1/2 attrib_allocation [914] +[1775] 0.0 0.00 0.00 2 limit_mallornseeds [1775] +----------------------------------------------- + 0.00 0.00 1/2 log_to_file [1819] + 0.00 0.00 1/2 log_open [1817] +[1776] 0.0 0.00 0.00 2 log_create [1776] +----------------------------------------------- + 0.00 0.00 1/2 init_smithy [1312] + 0.00 0.00 1/2 xml_readconstruction [1183] +[1777] 0.0 0.00 0.00 2 make_skillmod [1777] + 0.00 0.00 2/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 1/2 register_resources [1852] + 0.00 0.00 1/2 register_artrewards [1833] +[1778] 0.0 0.00 0.00 2 register_item_useonother [1778] + 0.00 0.00 2/240 register_function [1614] +----------------------------------------------- + 0.00 0.00 2/2 change_resource [240] +[1779] 0.0 0.00 0.00 2 res_changehp [1779] +----------------------------------------------- + 0.00 0.00 1/2 tolua_bind_open [1866] + 0.00 0.00 1/2 lua_init [1316] +[1780] 0.0 0.00 0.00 2 tolua_eressea_open [1780] +----------------------------------------------- + 0.00 0.00 2/2 luaopen_eressea [2406] +[1781] 0.0 0.00 0.00 2 tolua_reg_types_eressea [1781] +----------------------------------------------- + 0.00 0.00 2/2 lua_init [1316] +[1782] 0.0 0.00 0.00 2 tolua_unit_open [1782] +----------------------------------------------- + 0.00 0.00 2/2 sp_charmingsong [993] +[1783] 0.0 0.00 0.00 2 trigger_changefaction [1783] + 0.00 0.00 2/3113 t_new [1546] +----------------------------------------------- + 0.00 0.00 2/2 parse_args [1825] +[1784] 0.0 0.00 0.00 2 verbosity_to_flags [1784] +----------------------------------------------- + 0.00 0.00 2/2 a_write [299] +[1785] 0.0 0.00 0.00 2 wormhole_write [1785] + 0.00 0.00 2/1119 write_region_reference [1583] +----------------------------------------------- + 0.00 0.00 1/1 a_free [558] +[1786] 0.0 0.00 0.00 1 a_finalizestring [1786] +----------------------------------------------- + 0.00 0.00 1/1 a_write [299] +[1787] 0.0 0.00 0.00 1 a_writekeys [1787] +----------------------------------------------- + 0.00 0.00 1/1 spy_message [1038] +[1788] 0.0 0.00 0.00 1 add_seen_faction [1788] + 0.00 0.00 1/353788 add_seen_faction_i [1401] +----------------------------------------------- + 0.00 0.00 1/1 ageing [185] +[1789] 0.0 0.00 0.00 1 age_borders [1789] +----------------------------------------------- + 0.00 0.00 1/1 kernel_done [1813] +[1790] 0.0 0.00 0.00 1 attrib_done [1790] +----------------------------------------------- + 0.00 0.00 1/1 read_borders [706] +[1791] 0.0 0.00 0.00 1 b_read [1791] +----------------------------------------------- + 0.00 0.00 1/1 write_borders [1897] +[1792] 0.0 0.00 0.00 1 b_write [1792] +----------------------------------------------- + 0.00 0.00 1/1 main [541] +[1793] 0.0 0.00 0.00 1 bind_monsters [1793] +----------------------------------------------- + 0.00 0.00 1/1 handle_triggers [1706] +[1794] 0.0 0.00 0.00 1 caldera_handle [1794] +----------------------------------------------- + 0.00 0.00 1/1 write_triggers [954] +[1795] 0.0 0.00 0.00 1 caldera_write [1795] + 0.00 0.00 1/642406 write_building_reference [1383] +----------------------------------------------- + 0.00 0.00 1/1 game_done [542] +[1796] 0.0 0.00 0.00 1 calendar_cleanup [1796] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1797] 0.0 0.00 0.00 1 chaos_register [1797] + 0.00 0.00 1/55 at_register [1678] +----------------------------------------------- + 0.00 0.00 1/1 kernel_done [1813] +[1798] 0.0 0.00 0.00 1 crmessage_done [1798] +----------------------------------------------- + 0.00 0.00 1/1 kernel_done [1813] +[1799] 0.0 0.00 0.00 1 curses_done [1799] +----------------------------------------------- + 0.00 0.00 1/1 attack [84] +[1800] 0.0 0.00 0.00 1 dazzle [1800] +----------------------------------------------- + 0.00 0.00 1/1 disable_feature [771] +[1801] 0.0 0.00 0.00 1 enable_keyword [1801] +----------------------------------------------- + 0.00 0.00 1/1 kernel_done [1813] +[1802] 0.0 0.00 0.00 1 equipment_done [1802] + 0.00 0.00 7/7 spellbook_clear [1742] +----------------------------------------------- + 0.00 0.00 1/1 curse_age [1538] +[1803] 0.0 0.00 0.00 1 flyingship_age [1803] +----------------------------------------------- + 0.00 0.00 1/1 game_done [542] +[1804] 0.0 0.00 0.00 1 free_functions [1804] +----------------------------------------------- + 0.00 0.00 1/1 translation_done [1889] +[1805] 0.0 0.00 0.00 1 free_functions [1805] +----------------------------------------------- + 0.00 0.00 1/1 destroyfaction [392] +[1806] 0.0 0.00 0.00 1 funhash [1806] +----------------------------------------------- + 0.00 0.00 1/1 parse_args [1825] +[1807] 0.0 0.00 0.00 1 get_arg [1807] +----------------------------------------------- + 0.00 0.00 1/1 wormhole_age [1130] +[1808] 0.0 0.00 0.00 1 has_limited_skills [1808] +----------------------------------------------- + 0.00 0.00 1/1 read_game [62] +[1809] 0.0 0.00 0.00 1 init_genrand [1809] +----------------------------------------------- + 0.00 0.00 1/1 json_config [464] +[1810] 0.0 0.00 0.00 1 init_terrains [1810] + 0.00 0.00 14/178270 get_terrain [1423] +----------------------------------------------- + 0.00 0.00 1/1 kernel_done [1813] +[1811] 0.0 0.00 0.00 1 item_done [1811] + 0.00 0.00 1/10475 i_freeall [1515] +----------------------------------------------- + 0.00 0.00 1/1 json_config [464] +[1812] 0.0 0.00 0.00 1 json_prefixes [1812] + 0.00 0.00 29/29 add_raceprefix [1693] +----------------------------------------------- + 0.00 0.00 1/1 game_done [542] +[1813] 0.0 0.00 0.00 1 kernel_done [1813] + 0.00 0.00 1/1 xml_done [1898] + 0.00 0.00 1/1 equipment_done [1802] + 0.00 0.00 1/1 message_done [1822] + 0.00 0.00 1/1 item_done [1811] + 0.00 0.00 1/1 attrib_done [1790] + 0.00 0.00 1/1 crmessage_done [1798] + 0.00 0.00 1/1 curses_done [1799] + 0.00 0.00 1/1 reports_done [1861] + 0.00 0.00 1/1 translation_done [1889] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1814] 0.0 0.00 0.00 1 kernel_init [1814] + 0.00 0.00 1/1 translation_init [1890] + 0.00 0.00 1/1 mt_clear [1823] + 0.00 0.00 1/240 register_function [1614] +----------------------------------------------- + 0.00 0.00 1/1 main [541] +[1815] 0.0 0.00 0.00 1 locale_init [1815] +----------------------------------------------- + 0.00 0.00 1/1 main [541] +[1816] 0.0 0.00 0.00 1 log_close [1816] +----------------------------------------------- + 0.00 0.00 1/1 parse_args [1825] +[1817] 0.0 0.00 0.00 1 log_open [1817] + 0.00 0.00 1/1 log_rotate [1818] + 0.00 0.00 1/2 log_create [1776] +----------------------------------------------- + 0.00 0.00 1/1 log_open [1817] +[1818] 0.0 0.00 0.00 1 log_rotate [1818] +----------------------------------------------- + 0.00 0.00 1/1 parse_args [1825] +[1819] 0.0 0.00 0.00 1 log_to_file [1819] + 0.00 0.00 1/2 log_create [1776] +----------------------------------------------- + 0.00 0.00 1/1 main [541] +[1820] 0.0 0.00 0.00 1 lua_done [1820] +----------------------------------------------- + 0.00 0.00 1/1 init_smithy [1312] +[1821] 0.0 0.00 0.00 1 make_matmod [1821] + 0.00 0.00 1/779868 a_new [1376] +----------------------------------------------- + 0.00 0.00 1/1 kernel_done [1813] +[1822] 0.0 0.00 0.00 1 message_done [1822] +----------------------------------------------- + 0.00 0.00 1/1 kernel_init [1814] +[1823] 0.0 0.00 0.00 1 mt_clear [1823] +----------------------------------------------- + 0.00 0.00 1/1 lua_init [1316] +[1824] 0.0 0.00 0.00 1 openlibs [1824] +----------------------------------------------- + 0.00 0.00 1/1 main [541] +[1825] 0.0 0.00 0.00 1 parse_args [1825] + 0.00 0.00 2/2 verbosity_to_flags [1784] + 0.00 0.00 1/1 get_arg [1807] + 0.00 0.00 1/1 log_open [1817] + 0.00 0.00 1/1 log_to_file [1819] +----------------------------------------------- + 0.00 0.00 1/1 read_xml [791] +[1826] 0.0 0.00 0.00 1 parse_rules [1826] +----------------------------------------------- + 0.00 0.00 1/1 read_xml [791] +[1827] 0.0 0.00 0.00 1 parse_spellbooks [1827] + 0.00 0.00 326/5453 xml_ivalue [1533] + 0.00 0.00 326/11052 find_spell [1513] + 0.00 0.00 326/1524 spellbook_add [1572] + 0.00 0.00 6/3171 get_spellbook [1544] +----------------------------------------------- + 0.00 0.00 1/1 plan_monsters [52] +[1828] 0.0 0.00 0.00 1 pathfinder_cleanup [1828] +----------------------------------------------- + 0.00 0.00 1/1 attrib_allocation [914] +[1829] 0.0 0.00 0.00 1 produce_mallornseeds [1829] +----------------------------------------------- + 0.00 0.00 1/1 read_game [62] +[1830] 0.0 0.00 0.00 1 read_alliances [1830] +----------------------------------------------- + 0.00 0.00 1/1 read_reference [726] +[1831] 0.0 0.00 0.00 1 read_building_reference [1831] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1832] 0.0 0.00 0.00 1 register_arena [1832] + 0.00 0.00 2/240 register_function [1614] + 0.00 0.00 1/55 at_register [1678] + 0.00 0.00 1/27 register_item_use [1699] + 0.00 0.00 1/14 tt_register [1715] +----------------------------------------------- + 0.00 0.00 1/1 register_itemtypes [1843] +[1833] 0.0 0.00 0.00 1 register_artrewards [1833] + 0.00 0.00 2/27 register_item_use [1699] + 0.00 0.00 1/55 at_register [1678] + 0.00 0.00 1/2 register_item_useonother [1778] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1834] 0.0 0.00 0.00 1 register_attributes [1834] + 0.00 0.00 42/55 at_register [1678] + 0.00 0.00 5/9 register_bordertype [1732] + 0.00 0.00 3/5 at_deprecate [1749] +----------------------------------------------- + 0.00 0.00 1/1 register_spells [1251] +[1835] 0.0 0.00 0.00 1 register_borders [1835] + 0.00 0.00 3/9 register_bordertype [1732] + 0.00 0.00 1/55 at_register [1678] +----------------------------------------------- + 0.00 0.00 1/1 register_spells [1251] +[1836] 0.0 0.00 0.00 1 register_buildingcurse [1836] + 0.00 0.00 4/44 ct_register [1686] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1837] 0.0 0.00 0.00 1 register_buildings [1837] + 0.00 0.00 5/240 register_function [1614] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1838] 0.0 0.00 0.00 1 register_cr [1838] + 0.00 0.00 19/19 tsf_register [1705] + 0.00 0.00 1/3 register_reporttype [1768] +----------------------------------------------- + 0.00 0.00 1/1 register_itemfunctions [1842] +[1839] 0.0 0.00 0.00 1 register_demonseye [1839] + 0.00 0.00 1/3 register_item_give [1767] + 0.00 0.00 1/27 register_item_use [1699] +----------------------------------------------- + 0.00 0.00 1/1 register_spells [1251] +[1840] 0.0 0.00 0.00 1 register_flyingship [1840] + 0.00 0.00 1/44 ct_register [1686] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1841] 0.0 0.00 0.00 1 register_gmcmd [1841] + 0.00 0.00 2/5 at_deprecate [1749] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1842] 0.0 0.00 0.00 1 register_itemfunctions [1842] + 0.00 0.00 7/27 register_item_use [1699] + 0.00 0.00 1/1 register_demonseye [1839] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1843] 0.0 0.00 0.00 1 register_itemtypes [1843] + 0.00 0.00 1/1 register_artrewards [1833] + 0.00 0.00 1/1 register_xerewards [1858] + 0.00 0.00 1/1 register_weapons [1857] +----------------------------------------------- + 0.00 0.00 1/1 register_spells [1251] +[1844] 0.0 0.00 0.00 1 register_magicresistance [1844] + 0.00 0.00 1/44 ct_register [1686] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1845] 0.0 0.00 0.00 1 register_museum [1845] + 0.00 0.00 4/55 at_register [1678] + 0.00 0.00 3/27 register_item_use [1699] + 0.00 0.00 1/9 register_bordertype [1732] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1846] 0.0 0.00 0.00 1 register_names [1846] + 0.00 0.00 7/7 register_race_name_function [1740] + 0.00 0.00 1/1 register_race_description_function [1848] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1847] 0.0 0.00 0.00 1 register_nr [1847] + 0.00 0.00 2/3 register_reporttype [1768] +----------------------------------------------- + 0.00 0.00 1/1 register_names [1846] +[1848] 0.0 0.00 0.00 1 register_race_description_function [1848] + 0.00 0.00 1/240 register_function [1614] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1849] 0.0 0.00 0.00 1 register_races [1849] + 0.00 0.00 13/240 register_function [1614] +----------------------------------------------- + 0.00 0.00 1/1 register_spells [1251] +[1850] 0.0 0.00 0.00 1 register_regioncurse [1850] + 0.00 0.00 19/44 ct_register [1686] +----------------------------------------------- + 0.00 0.00 1/1 lovar [644] +[1851] 0.0 0.00 0.00 1 register_reports [1851] + 0.00 0.00 25/32 add_function [1690] + 0.00 0.00 18/18 register_argtype [1708] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1852] 0.0 0.00 0.00 1 register_resources [1852] + 0.00 0.00 10/27 register_item_use [1699] + 0.00 0.00 9/240 register_function [1614] + 0.00 0.00 1/2 register_item_useonother [1778] + 0.00 0.00 1/3 register_item_give [1767] +----------------------------------------------- + 0.00 0.00 1/1 register_spells [1251] +[1853] 0.0 0.00 0.00 1 register_shipcurse [1853] + 0.00 0.00 3/44 ct_register [1686] +----------------------------------------------- + 0.00 0.00 1/1 lua_init [1316] +[1854] 0.0 0.00 0.00 1 register_tolua_helpers [1854] + 0.00 0.00 12/240 register_function [1614] + 0.00 0.00 2/55 at_register [1678] + 0.00 0.00 1/27 register_item_use [1699] + 0.00 0.00 1/3 register_item_give [1767] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1855] 0.0 0.00 0.00 1 register_triggers [1855] + 0.00 0.00 12/14 tt_register [1715] +----------------------------------------------- + 0.00 0.00 1/1 register_spells [1251] +[1856] 0.0 0.00 0.00 1 register_unitcurse [1856] + 0.00 0.00 14/44 ct_register [1686] +----------------------------------------------- + 0.00 0.00 1/1 register_itemtypes [1843] +[1857] 0.0 0.00 0.00 1 register_weapons [1857] + 0.00 0.00 2/240 register_function [1614] +----------------------------------------------- + 0.00 0.00 1/1 register_itemtypes [1843] +[1858] 0.0 0.00 0.00 1 register_xerewards [1858] + 0.00 0.00 2/27 register_item_use [1699] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1859] 0.0 0.00 0.00 1 register_xmas [1859] + 0.00 0.00 1/14 tt_register [1715] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1860] 0.0 0.00 0.00 1 register_xmlreader [1860] + 0.00 0.00 11/11 xml_register_callback [1726] +----------------------------------------------- + 0.00 0.00 1/1 kernel_done [1813] +[1861] 0.0 0.00 0.00 1 reports_done [1861] +----------------------------------------------- + 0.00 0.00 1/1 read_reference [726] +[1862] 0.0 0.00 0.00 1 resolve_building [1862] + 0.00 0.00 1/48455 findbuilding [1462] +----------------------------------------------- + 0.00 0.00 1/1 main [541] +[1863] 0.0 0.00 0.00 1 setup_signal_handler [1863] +----------------------------------------------- + 0.00 0.00 1/1 wormholes_update [906] +[1864] 0.0 0.00 0.00 1 sort_wormhole_regions [1864] +----------------------------------------------- + 0.00 0.00 1/1 do_fumble [1062] +[1865] 0.0 0.00 0.00 1 t_add [1865] +----------------------------------------------- + 0.00 0.00 1/1 tolua_bindings_open [1318] +[1866] 0.0 0.00 0.00 1 tolua_bind_open [1866] + 0.00 0.00 1/1 tolua_process_open [1877] + 0.00 0.00 1/2 tolua_eressea_open [1780] + 0.00 0.00 1/1 tolua_settings_open [1885] + 0.00 0.00 1/1 tolua_game_open [1871] + 0.00 0.00 1/1 tolua_locale_open [1873] + 0.00 0.00 1/1 tolua_config_open [1868] + 0.00 0.00 1/1 tolua_log_open [1874] +----------------------------------------------- + 0.00 0.00 1/1 lua_init [1316] +[1867] 0.0 0.00 0.00 1 tolua_building_open [1867] +----------------------------------------------- + 0.00 0.00 1/1 tolua_bind_open [1866] +[1868] 0.0 0.00 0.00 1 tolua_config_open [1868] +----------------------------------------------- + 0.00 0.00 1/1 lua_init [1316] +[1869] 0.0 0.00 0.00 1 tolua_dict_open [1869] +----------------------------------------------- + 0.00 0.00 1/1 lua_init [1316] +[1870] 0.0 0.00 0.00 1 tolua_faction_open [1870] +----------------------------------------------- + 0.00 0.00 1/1 tolua_bind_open [1866] +[1871] 0.0 0.00 0.00 1 tolua_game_open [1871] +----------------------------------------------- + 0.00 0.00 1/1 lua_init [1316] +[1872] 0.0 0.00 0.00 1 tolua_gmtool_open [1872] +----------------------------------------------- + 0.00 0.00 1/1 tolua_bind_open [1866] +[1873] 0.0 0.00 0.00 1 tolua_locale_open [1873] +----------------------------------------------- + 0.00 0.00 1/1 tolua_bind_open [1866] +[1874] 0.0 0.00 0.00 1 tolua_log_open [1874] +----------------------------------------------- + 0.00 0.00 1/1 lua_init [1316] +[1875] 0.0 0.00 0.00 1 tolua_message_open [1875] +----------------------------------------------- + 0.00 0.00 1/1 lua_init [1316] +[1876] 0.0 0.00 0.00 1 tolua_order_open [1876] +----------------------------------------------- + 0.00 0.00 1/1 tolua_bind_open [1866] +[1877] 0.0 0.00 0.00 1 tolua_process_open [1877] +----------------------------------------------- + 0.00 0.00 1/1 luaopen_config [2405] +[1878] 0.0 0.00 0.00 1 tolua_reg_types_config [1878] +----------------------------------------------- + 0.00 0.00 1/1 luaopen_game [2407] +[1879] 0.0 0.00 0.00 1 tolua_reg_types_game [1879] +----------------------------------------------- + 0.00 0.00 1/1 luaopen_locale [2408] +[1880] 0.0 0.00 0.00 1 tolua_reg_types_locale [1880] +----------------------------------------------- + 0.00 0.00 1/1 luaopen_log [2409] +[1881] 0.0 0.00 0.00 1 tolua_reg_types_log [1881] +----------------------------------------------- + 0.00 0.00 1/1 luaopen_process [2410] +[1882] 0.0 0.00 0.00 1 tolua_reg_types_process [1882] +----------------------------------------------- + 0.00 0.00 1/1 luaopen_settings [2411] +[1883] 0.0 0.00 0.00 1 tolua_reg_types_settings [1883] +----------------------------------------------- + 0.00 0.00 1/1 lua_init [1316] +[1884] 0.0 0.00 0.00 1 tolua_region_open [1884] +----------------------------------------------- + 0.00 0.00 1/1 tolua_bind_open [1866] +[1885] 0.0 0.00 0.00 1 tolua_settings_open [1885] +----------------------------------------------- + 0.00 0.00 1/1 lua_init [1316] +[1886] 0.0 0.00 0.00 1 tolua_ship_open [1886] +----------------------------------------------- + 0.00 0.00 1/1 lua_init [1316] +[1887] 0.0 0.00 0.00 1 tolua_sqlite_open [1887] +----------------------------------------------- + 0.00 0.00 1/1 lua_init [1316] +[1888] 0.0 0.00 0.00 1 tolua_storage_open [1888] +----------------------------------------------- + 0.00 0.00 1/1 kernel_done [1813] +[1889] 0.0 0.00 0.00 1 translation_done [1889] + 0.00 0.00 1/1 free_functions [1805] +----------------------------------------------- + 0.00 0.00 1/1 kernel_init [1814] +[1890] 0.0 0.00 0.00 1 translation_init [1890] + 0.00 0.00 7/32 add_function [1690] +----------------------------------------------- + 0.00 0.00 1/1 do_fumble [1062] +[1891] 0.0 0.00 0.00 1 trigger_giveitem [1891] + 0.00 0.00 1/3113 t_new [1546] +----------------------------------------------- + 0.00 0.00 1/1 create_newfamiliar [1288] +[1892] 0.0 0.00 0.00 1 trigger_shock [1892] + 0.00 0.00 1/3113 t_new [1546] +----------------------------------------------- + 0.00 0.00 1/1 promotion_cmd [917] +[1893] 0.0 0.00 0.00 1 valid_race [1893] +----------------------------------------------- + 0.00 0.00 1/1 writegame [82] +[1894] 0.0 0.00 0.00 1 version_no [1894] +----------------------------------------------- + 0.00 0.00 1/1 game_init [1249] +[1895] 0.0 0.00 0.00 1 wormholes_register [1895] + 0.00 0.00 1/55 at_register [1678] +----------------------------------------------- + 0.00 0.00 1/1 write_game [83] +[1896] 0.0 0.00 0.00 1 write_alliances [1896] +----------------------------------------------- + 0.00 0.00 1/1 write_game [83] +[1897] 0.0 0.00 0.00 1 write_borders [1897] + 0.00 0.00 22643/22643 b_validroad [1494] + 0.00 0.00 22643/22643 b_writeroad [1495] + 0.00 0.00 1/1 b_write [1792] +----------------------------------------------- + 0.00 0.00 1/1 kernel_done [1813] +[1898] 0.0 0.00 0.00 1 xml_done [1898] +----------------------------------------------- + 0.00 0.00 5/251874 at_deprecate [1749] + 0.00 0.00 55/251874 at_register [1678] + 0.00 0.00 251814/251874 a_read_orig [389] +[3279] 0.0 0.00 0.00 251874 __at_hashkey [3279] +----------------------------------------------- + 0.00 0.00 49331/49331 log_stdio [1459] +[3280] 0.0 0.00 0.00 49331 _log_write [3280] +----------------------------------------------- + + This table describes the call tree of the program, and was sorted by + the total amount of time spent in each function and its children. + + Each entry in this table consists of several lines. The line with the + index number at the left hand margin lists the current function. + The lines above it list the functions that called this function, + and the lines below it list the functions this one called. + This line lists: + index A unique number given to each element of the table. + Index numbers are sorted numerically. + The index number is printed next to every function name so + it is easier to look up where the function in the table. + + % time This is the percentage of the `total' time that was spent + in this function and its children. Note that due to + different viewpoints, functions excluded by options, etc, + these numbers will NOT add up to 100%. + + self This is the total amount of time spent in this function. + + children This is the total amount of time propagated into this + function by its children. + + called This is the number of times the function was called. + If the function called itself recursively, the number + only includes non-recursive calls, and is followed by + a `+' and the number of recursive calls. + + name The name of the current function. The index number is + printed after it. If the function is a member of a + cycle, the cycle number is printed between the + function's name and the index number. + + + For the function's parents, the fields have the following meanings: + + self This is the amount of time that was propagated directly + from the function into this parent. + + children This is the amount of time that was propagated from + the function's children into this parent. + + called This is the number of times this parent called the + function `/' the total number of times the function + was called. Recursive calls to the function are not + included in the number after the `/'. + + name This is the name of the parent. The parent's index + number is printed after it. If the parent is a + member of a cycle, the cycle number is printed between + the name and the index number. + + If the parents of the function cannot be determined, the word + `' is printed in the `name' field, and all the other + fields are blank. + + For the function's children, the fields have the following meanings: + + self This is the amount of time that was propagated directly + from the child into the function. + + children This is the amount of time that was propagated from the + child's children to the function. + + called This is the number of times the function called + this child `/' the total number of times the child + was called. Recursive calls by the child are not + listed in the number after the `/'. + + name This is the name of the child. The child's index + number is printed after it. If the child is a + member of a cycle, the cycle number is printed + between the name and the index number. + + If there are any cycles (circles) in the call graph, there is an + entry for the cycle-as-a-whole. This entry shows who called the + cycle (as parents) and the members of the cycle (as children.) + The `+' recursive calls entry shows the number of function calls that + were internal to the cycle, and the calls entry for each member shows, + for that member, how many times it was called from other members of + the cycle. + + +Index by function name + + [535] AllianceAuto [1673] free_land [1830] read_alliances (save.c) + [164] AllianceRestricted (ally.c) [1311] free_locales [388] read_attribs + [491] CavalryBonus (battle.c) [1516] free_luxuries (economy.c) [706] read_borders + [1608] CavalrySkill (battle.c) [1426] free_node (pathfinder.c) [1831] read_building_reference + [1180] CheckOverload (laws.c) [1604] free_nodes (pathfinder.c) [1455] read_faction_reference + [1004] ExpensiveMigrants [1356] free_order [893] read_familiar (magic.c) + [1136] FactionSpells [306] free_orders [62] read_game + [836] GiveRestriction (give.c) [575] free_params [1451] read_group (group.c) + [288] HelpMask [1568] free_recruitments [782] read_groups + [901] IsImmune [1436] free_regionlist [799] read_handler (event.c) + [536] LongHunger [1598] free_side (battle.c) [320] read_items + [1195] MagicPower (magic.c) [1700] free_spellparameter (magic.c) [1559] read_mage (magic.c) + [1185] MagicRegeneration (magic.c) [1773] free_summary [894] read_magician (magic.c) + [1264] NMRTimeout [1361] free_variables (translation.c) [586] read_movement (movement.c) + [900] NewbieImmunity [1534] freestrlist [739] read_newunitid (unit.c) + [1605] PopulationDamage (battle.c) [1611] freetokens [524] read_of + [1171] RemoveNMRNewbie (laws.c) [96] from_external_node (critbit.c) [1477] read_owner (save.c) + [1236] ResourceFactor (resources.c) [310] fs_read (filestream.c) [1619] read_password (save.c) + [806] ShipSpeedBonus (ship.c) [447] fs_readln (filestream.c) [1164] read_planes + [3279] __at_hashkey (attrib.c) [124] fs_write (filestream.c) [1278] read_race_reference + [3280] _log_write (log.c) [159] fs_writeln (filestream.c) [726] read_reference + [555] a_add [137] fstream_done [1582] read_region_reference + [418] a_age [973] fumble [1522] read_seenspell (magic.c) + [1597] a_finalizeeffect (alchemy.c) [1284] fumble_default (magic.c) [1759] read_skill (unitcurse.c) + [1786] a_finalizestring [1806] funhash [1555] read_spellbook + [65] a_find [191] fwritestr (creport.c) [870] read_targetregion (targetregion.c) + [558] a_free (attrib.c) [542] game_done [798] read_triggers + [1561] a_init_reportspell (magic.c) [1324] game_id [74] read_unit + [1552] a_initeffect (alchemy.c) [1249] game_init [1521] read_unit_reference + [566] a_insert (attrib.c) [1168] game_name [413] read_unitid + [1376] a_new [1222] gamedate2 (summary.c) [791] read_xml + [390] a_read_i (attrib.c) [944] gamedate_season (report.c) [767] readfaction + [389] a_read_orig [962] generic_name (names.c) [60] readgame + [1660] a_readchars [171] genrand_int31 [43] readorders + [1052] a_readeffect (alchemy.c) [150] genrand_int32 [209] readregion (save.c) + [1448] a_readint [395] genrand_real2 [1612] real2tp (teleport.c) + [1648] a_readkey (key.c) [20] get_addresses (reports.c) [650] recruit (economy.c) + [1531] a_readprivate [1528] get_alive (battle.c) [1564] recruit_cost (economy.c) + [1474] a_readshorts [1001] get_allocator (economy.c) [837] recruit_dracoids (monsters.c) + [1642] a_readstring [1807] get_arg (main.c) [1334] recruit_init (economy.c) + [366] a_remove [482] get_astralplane [1091] reduce_skill + [958] a_removeall [120] get_borders [404] reduce_weight (monsters.c) + [361] a_select [118] get_borders_i (connection.c) [346] regenerate_aura + [559] a_unlink (attrib.c) [717] get_chaoscount [942] regeneration (magic.c) + [1314] a_upgradekeys [1347] get_cmp_region_owner (laws.c) [1444] region_get_morale + [299] a_write [874] get_combatspell [1424] region_getinfo + [998] a_write_unit (magic.c) [880] get_combatspelllevel [1058] region_getresource + [1663] a_writechars [108] get_command [1476] region_set_morale + [1073] a_writeeffect (alchemy.c) [143] get_curse [1422] region_setinfo + [1447] a_writeint [496] get_direction [1683] region_setname + [1787] a_writekeys (key.c) [225] get_effect [1097] region_setresource + [1473] a_writeshorts [1551] get_equipment [987] regionname + [1529] a_writestring [796] get_familiar [675] regions_in_range + [804] absorbed_by_monster (monster.c) [722] get_familiar_mage [1832] register_arena + [527] academy_can_teach [254] get_followers (move.c) [1708] register_argtype + [1128] academy_teaching_bonus [88] get_food [1833] register_artrewards + [560] active_building [1656] get_force (combatspells.c) [1834] register_attributes + [1666] add_callbacks (xmlreader.c) [895] get_friends (unit.c) [1835] register_borders + [1626] add_castorder [1600] get_function [1732] register_bordertype + [1198] add_chaoscount [1466] get_gamedate [1836] register_buildingcurse + [1509] add_donation [581] get_homeplane [1837] register_buildings + [1690] add_function [274] get_keyword [1838] register_cr + [379] add_give (give.c) [934] get_level [1839] register_demonseye + [625] add_income (economy.c) [884] get_locale [1840] register_flyingship + [980] add_itemname_cb (item.c) [198] get_mage [1614] register_function + [1169] add_items (xmlreader.c) [1682] get_maxluxuries [1841] register_gmcmd + [434] add_message [1445] get_migrants (laws.c) [1767] register_item_give + [1674] add_proc (laws.c) [55] get_modifier [1699] register_item_use + [1716] add_proc_global [187] get_money [1778] register_item_useonother + [1692] add_proc_order [1087] get_money_for_dragon (monsters.c) [1842] register_itemfunctions + [1761] add_proc_postregion [293] get_monsters [1843] register_itemtypes + [1733] add_proc_region [750] get_movement [1844] register_magicresistance + [1762] add_proc_unit [480] get_neighbours [1845] register_museum + [1693] add_raceprefix [1275] get_or_create_locale [1846] register_names + [371] add_recruits [292] get_or_create_monsters [1847] register_nr + [1419] add_regionlist [1680] get_or_create_terrain [1848] register_race_description_function + [1162] add_resource [1362] get_otherfaction [1740] register_race_name_function + [977] add_resourcename_cb (item.c) [235] get_param [1849] register_races + [1372] add_seen (reports.c) [713] get_param_flt [1850] register_regioncurse + [1788] add_seen_faction [422] get_param_int [1851] register_reports + [1401] add_seen_faction_i (reports.c) [104] get_pooled [1768] register_reporttype + [386] add_seen_nb (reports.c) [263] get_prefix [1852] register_resources + [355] add_skill [12] get_race [1853] register_shipcurse + [1667] add_skills (xmlreader.c) [368] get_racename [1259] register_special_direction + [1638] add_spell [372] get_regions_distance (reports.c) [1250] register_spelldata (spells.c) + [1173] add_spellparameter (magic.c) [281] get_reservation [1251] register_spells + [1668] add_spells (xmlreader.c) [99] get_resource [1854] register_tolua_helpers + [1669] add_subsets (xmlreader.c) [194] get_resourcetype [1855] register_triggers + [1579] add_tactics (battle.c) [189] get_row (battle.c) [1856] register_unitcurse + [1145] add_translation [423] get_skill [1857] register_weapons + [673] add_travelthru_addresses (reports.c) [862] get_spchange (magic.c) [1858] register_xerewards + [1260] add_trigger [1544] get_spellbook [1859] register_xmas + [607] add_variable (translation.c) [872] get_spellpoints [1860] register_xmlreader + [913] addally (save.c) [1178] get_tactics (battle.c) [1728] rel_to_abs + [217] addlist [1423] get_terrain [528] reldirection + [1069] addmessage [1304] get_translation [1364] release_data (order.c) + [1261] addparam_building (magic.c) [437] get_translations [1061] relpath (config.c) + [1212] addparam_ship (magic.c) [1431] get_transporters (move.c) [1153] remove_building + [1214] addparam_unit (magic.c) [154] get_unitrow (battle.c) [576] remove_empty_factions + [769] addstrlist [71] getbuf [146] remove_empty_units + [811] addtoken [72] getbuf_utf8 (filereader.c) [134] remove_empty_units_in_region + [234] adjust_coordinates [937] getfaction [571] remove_exclusive (laws.c) + [701] aftermath (battle.c) [652] getguard [391] remove_idle_players (laws.c) + [1789] age_borders [483] getid [587] remove_plane + [712] age_building (laws.c) [699] getint [1748] remove_ship + [1098] age_dragon [54] getkeyword [1456] remove_skill + [1123] age_firedragon [681] getparam [499] remove_unit + [1024] age_ghoul [596] getplane [1290] removelist + [1308] age_illusion [1717] getplanebyid [1545] rename_cmd (laws.c) + [959] age_piracy [595] getplanebyname [58] render_messages (creport.c) + [1017] age_reduceproduction (reduceproduction.c) [1337] getplaneid [780] renumber_cmd + [659] age_region (laws.c) [1385] getreload [1156] renumber_factions + [1008] age_skeleton [1018] getship [1159] renumber_unit + [1021] age_stonecircle (laws.c) [212] getshipweight [1631] reorder_fleeing (battle.c) + [720] age_traveldir (move.c) [387] getskill (study.c) [400] reorder_units + [1196] age_undead [710] getstrtoken [526] replace_order + [336] age_unit (laws.c) [195] gettoken [860] report_action + [1573] age_unit (magic.c) [778] getuint [397] report_building + [1019] age_zombie [205] getunit [9] report_computer (creport.c) + [185] ageing (laws.c) [1029] ghoul_name (names.c) [428] report_crtypes (creport.c) + [529] all_money (monsters.c) [891] gift_items [725] report_donations + [1330] allied_skilllimit (faction.c) [102] give_cmd [861] report_effect (spells.c) + [162] alliedfaction [1763] give_control [1187] report_failed_spell (battle.c) + [34] alliedgroup [287] give_control_cmd [1285] report_failure (spells.c) + [31] alliedunit [1108] give_horses (item.c) [106] report_item + [419] allies (report.c) [126] give_item [103] report_items + [752] allocate_resource (economy.c) [857] give_men [4] report_plaintext + [564] allowed_dragon [484] give_money (item.c) [1402] report_resource (reports.c) + [1425] allowed_fly [1060] give_peasants (monsters.c) [210] report_resources + [1452] ally_add [858] give_quota [1301] report_spell (spells.c) + [877] ally_cmd [952] give_unit [318] report_status + [456] ally_mode (ally.c) [1774] giveitem_init (giveitem.c) [614] report_summary + [1160] allysf (battle.c) [1262] giveitem_read (giveitem.c) [87] report_template (report.c) + [1122] allysfm (battle.c) [1309] giveitem_write (giveitem.c) [724] report_transfer (donations.c) + [929] already_seen (magic.c) [405] godcurse (randenc.c) [881] reportcasualties (battle.c) + [1566] any_recruiters (economy.c) [265] golem_factor (item.c) [1063] reportpath + [1434] arg_set (messages.c) [910] good_region (wormhole.c) [2] reports + [151] armedmen [985] group_cmd [1861] reports_done + [819] armor_bonus (battle.c) [698] groupid (reports.c) [1527] required (economy.c) + [1498] army_index (battle.c) [300] growing_herbs (laws.c) [1547] required (build.c) + [329] astralregions [624] growing_trees (laws.c) [1020] reroute (move.c) + [1749] at_deprecate [865] guard [972] res_changeaura (item.c) + [563] at_find (attrib.c) [690] guard_flags [1779] res_changehp (item.c) + [1678] at_register [711] guard_off_cmd [101] res_changeitem (item.c) + [440] atoi36 [656] guard_on_cmd [1200] res_changepeasants (item.c) + [1416] atoip [229] guards (report.c) [912] res_changepermaura (item.c) + [90] att_modification (unit.c) [1363] handle_event [886] research_cmd (economy.c) + [84] attack (battle.c) [1706] handle_triggers [324] reserve_cmd + [785] attack_firesword (weapons.c) [1269] has_ao_healing (combatspells.c) [213] reserve_i (laws.c) + [1409] attacks_per_round (battle.c) [1378] has_horses [325] reserve_self + [914] attrib_allocation (economy.c) [1808] has_limited_skills [356] reset_game (bindings.c) + [1790] attrib_done [193] has_skill [1751] reset_locales + [179] autoalliance (ally.c) [442] hash_uid (region.c) [1625] reset_translations (creport.c) + [777] average_score_of_age [37] hashstring [822] reshow (laws.c) + [1471] b_blocknone [1224] heal (item.c) [818] reshow_cmd + [1770] b_blockquestportal [619] heal_factor (laws.c) [823] reshow_other (laws.c) + [1417] b_finvisible [1158] heal_fighters (combatspells.c) [757] resolve + [1771] b_fvisible [678] help_feed (upkeep.c) [1862] resolve_building + [1279] b_namequestportal (museum.c) [663] help_money (upkeep.c) [820] resolve_faction + [642] b_nameroad (connection.c) [1177] helping [846] resolve_familiar (magic.c) + [1772] b_opaque [493] herbsearch [856] resolve_mage (magic.c) + [1791] b_read [131] hits [1575] resolve_region_id + [1497] b_readroad (connection.c) [604] horse_fleeing_bonus (battle.c) [703] resolve_unit + [1418] b_rvisibleroad (connection.c) [1567] horse_recruiters (economy.c) [546] resource2item + [1420] b_transparent [330] horses (laws.c) [1499] resource2luxury + [1487] b_uinvisible [206] hp_status [1569] resource2potion + [1494] b_validroad (connection.c) [1519] hpflee (battle.c) [1353] resource2weapon + [1792] b_write [808] hunger (upkeep.c) [233] resourcename + [1495] b_writeroad (connection.c) [1223] hunger_damage (upkeep.c) [353] restack_units + [363] balloc [1055] hunted_dir (move.c) [271] rfindhash (region.c) + [1730] basepath [582] i10toi36 [737] rhash + [79] battle_attacks (battle.c) [1442] i_add [1351] rherbs + [1125] battle_effects (battle.c) [569] i_canuse (battle.c) [1369] rhorses + [352] battle_flee (battle.c) [115] i_change [694] ridingcapacity (move.c) + [1629] battle_free (battle.c) [127] i_find [1578] rm_get + [620] battle_punit (battle.c) [1737] i_findc [890] rmfighter + [503] battle_report (battle.c) [1400] i_free [452] rmoney + [1595] battle_update (battle.c) [1515] i_freeall [1741] rmt_create + [1096] begin_potion (alchemy.c) [130] i_get [1490] rmt_find + [547] besieged [1651] i_merge [1672] rmt_get + [631] bewegung_blockiert_von (move.c) [1375] i_new [533] rmtroop (battle.c) + [1461] bfindhash (building.c) [1407] i_remove [200] rname + [1349] bfree [285] icebergs (randenc.c) [396] rng_injectable_double + [1464] bhash [294] immigration [606] roadto (move.c) + [119] bin_r_int_pak (binarystore.c) [1585] in_safe_building [165] room_for_race_in_region (monsters.c) + [216] bin_r_str_buf (binarystore.c) [885] income [1329] roqf_factor + [445] bin_w_brk (binarystore.c) [454] inhabitable [284] rotting_herbs (randenc.c) + [218] bin_w_int_pak (binarystore.c) [1453] init_cb (report.c) [1607] rough_amount (economy.c) + [446] bin_w_str (binarystore.c) [790] init_data (bindings.c) [618] rp_battles (report.c) + [1793] bind_monsters [1143] init_directions [36] rp_messages (report.c) + [641] border_name [1809] init_genrand [435] rpeasants + [741] breed_cmd (economy.c) [1764] init_group (group.c) [1433] rpline (report.c) + [742] breedhorses (economy.c) [1570] init_handler (event.c) [359] rps_nowrap (report.c) + [1148] breedtrees (economy.c) [1307] init_itemtypes [1221] rrandneighbour (volcano.c) + [1360] brelease [1179] init_keyword [508] rroad + [1415] bt_changed [1099] init_keywords [1438] rsetherbs + [343] bt_effsize [1396] init_learning (study.c) [537] rsetherbtype + [237] bt_find [948] init_locale [1408] rsethorses + [236] bt_find_i (building.c) [947] init_locales [553] rsetmoney + [1114] bt_get_or_create [1558] init_mage (magic.c) [545] rsetpeasants + [1698] bt_register [1319] init_mallornseed [1152] rsetroad + [201] buforder (reports.c) [1235] init_oldpotions (item.c) [1410] rsettrees + [17] bufunit [1157] init_options_translation [597] rt_find + [691] build [613] init_order [1139] rt_get_or_create + [696] build_building [1100] init_parameters [1640] rt_register (item.c) + [950] build_road [1310] init_processor [302] rtrees + [839] build_ship (build.c) [399] init_reports [1332] rule_alliance_limit + [1428] building_finished [1731] init_resourcelimit (item.c) [855] rule_auto_taxation (economy.c) + [1488] building_is_active [1228] init_resources [738] rule_autowork (economy.c) + [232] building_owner [1272] init_rules (battle.c) [1327] rule_blessed_harvest + [253] building_owner_ex (building.c) [1320] init_seed [1331] rule_faction_limit + [708] building_protection (building.c) [1592] init_skillmod (skills.c) [1175] rule_force_leave + [1504] building_set_owner [1101] init_skills [1328] rule_give + [1010] building_update_owner [1312] init_smithy (building.c) [829] rule_random_progress (skills.c) + [1500] buildingcapacity [1810] init_terrains [1323] rule_region_owners + [367] buildingeffsize [1129] init_terrains_translation [1325] rule_stealth_anon + [1535] buildingmaintenance (report.c) [544] init_tokens_str [530] rule_stealth_other + [621] buildingname [1033] init_translations [1204] rule_transfermen (give.c) + [414] buildingtype [384] init_transportation (move.c) [1247] runhash + [1443] buildingtype_exists [1486] inside_building [181] sail (move.c) + [1720] bunhash [345] internal_path_find (pathfinder.c) [969] scale_number + [707] buy (economy.c) [1756] intlist_add [768] scareaway (monster.c) + [1536] c_clearflag [1757] intlist_init [380] scared_by_monster (monster.c) + [1070] caddmessage (messages.c) [139] invisible [23] score + [645] calculate_armor [1368] is_allied [244] scramble (economy.c) + [603] calculate_emigration (laws.c) [479] is_astral [1116] scramble_fighters (combatspells.c) + [1794] caldera_handle (arena.c) [1550] is_attacker [1729] section_add + [1270] caldera_read (arena.c) [554] is_building_type [1563] section_find + [1795] caldera_write (arena.c) [570] is_exclusive [1440] see_border + [1796] calendar_cleanup [1092] is_familiar [1117] seefaction + [1338] can_charm (spells.c) [1088] is_freezing (move.c) [1491] seematrix (battle.c) + [1634] can_contact [211] is_guard [1132] select_ally + [1335] can_give (give.c) [377] is_guarded [700] select_armor (battle.c) + [940] can_give_men (give.c) [186] is_guardian_r (move.c) [172] select_enemy + [600] can_give_to [626] is_guardian_u (move.c) [1322] select_familiar (spells.c) + [908] can_guard (economy.c) [1370] is_long [680] select_magicarmor + [1112] can_leave [262] is_mage [160] select_opponent (battle.c) + [736] can_move (move.c) [1047] is_migrant [1079] select_recruitment (economy.c) + [679] can_start_guarding [1392] is_mourning [761] select_spellbook (magic.c) + [640] can_survive [1231] is_moving_ship (magic.c) [1367] select_weapon (battle.c) + [854] can_takeoff [687] is_persistent [909] select_wormhole_regions (wormhole.c) + [833] cancast [552] is_repeated [498] sell (economy.c) + [1031] canfly [1358] is_riding (battle.c) [1202] send_cmd + [465] canride (move.c) [668] isparam [1576] set_attacker (battle.c) + [469] cansail (move.c) [453] it_alias (item.c) [875] set_coast (move.c) + [22] cansee [385] it_find [1146] set_combatspell + [170] cansee_durchgezogen [1115] it_get_or_create [1265] set_curseingmagician (curse.c) + [684] cansee_unit [1636] it_register (item.c) [1620] set_email + [682] canswim [1679] it_set_appearance [1562] set_enemy (battle.c) + [633] canwalk (move.c) [561] item2resource [183] set_factionstealth + [502] cap_route (move.c) [1811] item_done [992] set_familiar (magic.c) + [760] cast_cmd (magic.c) [149] item_invis (unit.c) [1574] set_friendly (battle.c) + [623] cast_combatspell (battle.c) [338] itoa10 [1048] set_group + [512] castle_name (building.c) [116] itoa36 [1134] set_leftship + [513] castle_name_i (building.c) [107] itoab [774] set_level + [1003] caught_target (move.c) [439] jenkins_hash [1326] set_money + [598] cb_add_address (reports.c) [693] join_allies (battle.c) [486] set_new_dragon_target (monsters.c) + [94] cb_add_seen (reports.c) [425] join_battle (battle.c) [1387] set_number + [204] cb_cr_travelthru_ship (creport.c) [1083] join_group [1365] set_order + [466] cb_cr_travelthru_unit (creport.c) [1016] join_path [1689] set_param + [308] cb_find_prefix [464] json_config [1015] set_racename + [95] cb_find_prefix_i (critbit.c) [772] json_disable_features (jsonconf.c) [1430] set_resvalue + [13] cb_find_top_i (critbit.c) [583] json_export [933] set_spellpoints + [335] cb_get_kv [1707] json_flags (jsonconf.c) [588] set_string + [577] cb_insert [1283] json_include (jsonconf.c) [815] setguard + [653] cb_new_kv [1127] json_keyword (jsonconf.c) [1542] setreload (battle.c) + [169] cb_write_travelthru (report.c) [1124] json_keywords (jsonconf.c) [1390] setstatus + [789] centre (report.c) [1812] json_prefixes (jsonconf.c) [182] setstealth_cmd + [495] chance [467] json_settings (jsonconf.c) [1863] setup_signal_handler (main.c) + [982] change_effect [1189] json_terrain (jsonconf.c) [1484] sfindhash (ship.c) + [911] change_maxspellpoints [1694] json_terrain_production (jsonconf.c) [1502] shash + [337] change_money [1190] json_terrains (jsonconf.c) [1482] ship_damage_percent + [1441] change_reservation [1813] kernel_done [438] ship_owner + [240] change_resource [1814] kernel_init [1571] ship_owner_ex (ship.c) + [971] change_spellpoints [719] key_get [354] ship_ready (move.c) + [1721] changefaction_init (changefaction.c) [1355] keyword [1505] ship_set_owner + [1166] changefaction_read (changefaction.c) [1348] keyword_disabled [573] ship_update_owner + [1258] changefaction_write (changefaction.c) [1647] keyword_key (keyword.c) [567] shipcapacity + [1746] changerace_init (changerace.c) [532] kill_troop [1072] shipcurse_flyingship (flyingship.c) + [1215] changerace_read (changerace.c) [817] killunit_read (killunit.c) [290] shipname + [1287] changerace_write (changerace.c) [978] killunit_write (killunit.c) [669] shipspeed + [848] chaos (chaos.c) [956] knowsspell [1468] shiptrail_age (move.c) + [1797] chaos_register [476] koor_distance [1492] shiptrail_finalize (move.c) + [514] chaos_update [1394] koor_distance_orig (region.c) [1469] shiptrail_init (move.c) + [1077] chaosfactor (monsters.c) [1724] koor_distance_wrap_xy (region.c) [1475] shiptrail_read (move.c) + [1213] chaosterrain (chaos.c) [562] koor_reldirection (move.c) [1511] shiptrail_write (move.c) + [1537] chash [651] largestbuilding [892] shock_read (shock.c) + [1244] check_dupe (log.c) [1601] lastregion (reports.c) [1050] shock_write (shock.c) + [1432] check_errno (report.c) [471] learn_skill [1248] show_alliances_cr (creport.c) + [1138] check_give [432] leave [429] show_allies (report.c) + [786] check_leuchtturm [1009] leave_building [661] show_allies_cr (creport.c) + [1141] check_messages_exist (reports.c) [721] leave_cmd [889] show_new_spells + [184] check_overpopulated (monsters.c) [540] leave_ship [745] sideabkz (battle.c) + [793] check_param [704] leave_trail (move.c) [867] sidename (battle.c) + [657] check_ship_allowed [500] leftship [475] sinkships + [1234] check_steal [1635] leftship_age (unit.c) [510] sk_set + [1268] checkpasswd [1388] level_days [1035] skeleton_name (names.c) + [402] checkunitnumber [888] leveled_allocation (economy.c) [365] skill_enabled + [565] choplist (lists.c) [1071] levitate_ship [1205] skill_key (skill.c) + [686] cinfo_building [286] lifestyle [1172] skill_limit + [824] cinfo_magicresistance (magicresistance.c) [728] lighthouse_range [264] skill_mod + [996] cinfo_magicrunes (buildingcurse.c) [1775] limit_mallornseeds (seed.c) [1032] skill_summoned (spells.c) + [812] cinfo_ship [943] limit_resource (helpers.c) [509] skill_weeks + [997] cinfo_shipnodrift (shipcurse.c) [1691] limit_seeds (seed.c) [166] skilldiff + [751] cinfo_simple [879] limited_give (give.c) [214] skillmod + [1192] cinfo_skillmod (unitcurse.c) [635] list_address (report.c) [122] skillname + [1118] cinfo_slave (unitcurse.c) [190] listlen [1593] slipthru (laws.c) + [1110] cinfo_speed (unitcurse.c) [73] live (laws.c) [548] slprintf + [1242] claim_cmd [1293] load_inifile (main.c) [520] sm_familiar (magic.c) + [309] class_index_event [266] locale_getstring [1613] sm_smithy (building.c) + [531] clear_npc_orders (save.c) [1354] locale_index [1864] sort_wormhole_regions + [1271] clonedied_read (clonedied.c) [1815] locale_init [1514] sp_alias (spell.c) + [1321] clonedied_write (clonedied.c) [568] locale_name [847] sp_blessedharvest (spells.c) + [718] cmistake [918] locale_setstring [1209] sp_bloodsacrifice (spells.c) + [578] cmp_curse (curse.c) [27] locale_string [993] sp_charmingsong (spells.c) + [305] cmp_faction [1816] log_close [627] sp_dragonodem + [203] cmp_transfer [1776] log_create [1045] sp_enterastral + [670] cmp_wage [1245] log_debug [988] sp_eternizewall (spells.c) + [1644] co_get_caster [1340] log_error [1064] sp_flying_ship + [1594] co_get_region [1339] log_info [1040] sp_generous (spells.c) + [898] combatspell_cmd [1817] log_open [974] sp_goodwinds (spells.c) + [1352] config_changed [251] log_orders (reports.c) [931] sp_hain (spells.c) + [224] config_get [1458] log_prefix (log.c) [989] sp_healing + [714] config_get_flt [1818] log_rotate [1068] sp_holyground (spells.c) + [348] config_get_int [1459] log_stdio (log.c) [923] sp_igjarjuk + [462] config_parse [1819] log_to_file [957] sp_kampfzauber + [460] config_read [1342] log_warning [968] sp_mallornhain (spells.c) + [444] config_set [1243] log_write (log.c) [1336] sp_seduce (spells.c) + [794] config_token [873] loot_cmd [939] sp_song_of_peace (spells.c) + [965] contact_cmd [810] loot_items (battle.c) [871] sp_stormwinds (spells.c) + [654] contest (battle.c) [1013] loot_quota (battle.c) [1025] sp_summon_familiar (spells.c) + [655] contest_classic (battle.c) [644] lovar [1034] sp_summonshadowlords (spells.c) + [813] continue_ship [809] lparagraph [896] sp_summonundead (spells.c) + [521] copy_arg (message.c) [1738] lt_register (item.c) [784] sp_viewreality + [441] copy_order [1645] lua_callspell (helpers.c) [827] sparagraph + [357] count_all [1591] lua_canuse_item (helpers.c) [505] spawn_braineaters + [1220] count_allies [1820] lua_done [411] spawn_dragons + [231] count_cb (reports.c) [1191] lua_getresource (helpers.c) [831] spawn_seaserpent + [611] count_enemies [1316] lua_init [629] spawn_undead + [636] count_enemies_i (battle.c) [157] magic [1621] spc_email_isvalid (goodies.c) + [219] count_faction [897] magic_lowskill [1526] special_resources (bind_region.c) + [730] count_maxmigrants [727] magic_resistance [1657] spell_damage (combatspells.c) + [731] count_migrants [844] mail_cmd [841] spell_info + [1089] count_particles (names.c) [1106] mailfaction (laws.c) [646] spell_name + [666] count_side (battle.c) [921] mailunit (laws.c) [1572] spellbook_add + [868] count_skill [478] maintain (economy.c) [1742] spellbook_clear + [518] count_travelthru [339] maintain_buildings [1557] spellbook_get + [487] count_units [481] maintenance_cost [995] spellcost + [572] countheroes [1282] make_battle [1000] spellpower + [903] countspells [383] make_cmd [1650] spl_costtyp (magic.c) + [135] cr_borders (creport.c) [802] make_curse (curse.c) [743] split_allocations + [1481] cr_building (creport.c) [584] make_external_node (critbit.c) [1518] split_messages + [1493] cr_faction (creport.c) [1219] make_familiar (spells.c) [828] split_paragraph + [602] cr_find_address (creport.c) [424] make_fighter [53] spskill + [1406] cr_int [1589] make_follow [632] spunit + [489] cr_order (creport.c) [1298] make_heroes (battle.c) [990] spy_cmd + [239] cr_output_building (creport.c) [1718] make_iceberg [1038] spy_message + [69] cr_output_curses (creport.c) [1615] make_leftship (unit.c) [1503] st_find + [144] cr_output_curses_compat (creport.c) [1303] make_locales [1501] st_find_i (ship.c) + [57] cr_output_messages (creport.c) [1821] make_matmod [1743] st_get_or_create + [10] cr_output_region (creport.c) [522] make_movement_order (monsters.c) [297] start_battle (battle.c) + [378] cr_output_resource (creport.c) [970] make_name (names.c) [70] statistics (report.c) + [238] cr_output_resources (creport.c) [1603] make_otherfaction [904] status_cmd + [152] cr_output_ship (creport.c) [1722] make_reduceproduction [550] statusrow + [639] cr_output_spells (creport.c) [289] make_route (move.c) [766] steal_cmd (economy.c) + [298] cr_output_travelthru (creport.c) [876] make_side [188] stealth_modifier + [19] cr_output_unit [1777] make_skillmod [167] stream_order (creport.c) + [18] cr_output_unit_compat (creport.c) [21] make_summary [158] stream_printf + [949] cr_race (creport.c) [1701] make_targetregion [1374] strlcat + [662] cr_region (creport.c) [1188] make_undead_unit [45] strlcpy + [1414] cr_region_header (creport.c) [1150] make_wormhole (wormhole.c) [67] strlcpy_w + [840] cr_regions (creport.c) [1151] make_wormholes [105] study_cmd + [196] cr_render [1267] make_zombie [433] study_cost + [756] cr_reportspell (creport.c) [1084] makename (region.c) [747] study_days (study.c) + [488] cr_resource (creport.c) [759] manufacture (economy.c) [1398] study_speedup (study.c) + [960] cr_resources (creport.c) [610] mark_travelthru (move.c) [925] summon_allies (combatspells.c) + [1530] cr_ship (creport.c) [748] markets_module [1744] sunhash + [672] cr_skill (creport.c) [975] matmod (build.c) [1036] syntax_error + [1026] cr_spell (creport.c) [915] max_magicians [1865] t_add + [1510] cr_string [1037] max_skill (economy.c) [1546] t_new + [1403] cr_unit (creport.c) [755] max_spellpoints [1154] target_resists_magic + [579] create_backup [1109] max_transfers (give.c) [697] tax_cmd + [1066] create_castorder [946] maxbuild [272] teach_cmd + [1137] create_castorder_combat (battle.c) [492] maxheroes [426] teach_unit (study.c) + [800] create_curse [473] maxworkingpeasants [410] term_eval (dice.c) + [252] create_data (order.c) [1046] mayboard (laws.c) [242] terminate + [1294] create_directories [936] mayenter (laws.c) [1165] terraform_default (resources.c) + [1658] create_equipment [1082] melt_iceberg (randenc.c) [932] terraform_region + [538] create_icebergs [1517] merge_messages [986] terraform_resources + [617] create_item (economy.c) [834] message_all [1421] terrain_find_i (terrain.c) + [1315] create_mage [1822] message_done [226] terrain_name + [1288] create_newfamiliar [716] message_faction (battle.c) [1760] terrains + [341] create_order [1405] messagehash (creport.c) [1709] timeout_handle (timeout.c) + [175] create_order_i (order.c) [1478] migrate (laws.c) [1710] timeout_init (timeout.c) + [821] create_potion (economy.c) [1652] mk_piracy (piracy.c) [1719] timeout_read (timeout.c) + [1014] create_ship [1366] mkdata (order.c) [1711] timeout_write (timeout.c) + [1639] create_spell [261] mkname [1866] tolua_bind_open + [1606] create_spellbook [316] mkname_buf [1318] tolua_bindings_open + [296] create_unit [1429] mknode [1867] tolua_building_open + [317] createunitid (unit.c) [1203] mm_smithy (building.c) [589] tolua_buildinglist_next + [344] crew_skill [1239] mod_elves_only (item.c) [1868] tolua_config_open + [1798] crmessage_done [764] monster_attack (monsters.c) [1869] tolua_dict_open + [321] crt_find (crmessage.c) [248] monster_attacks [1780] tolua_eressea_open + [1006] crt_register [407] monster_is_waiting [1870] tolua_faction_open + [110] crtag (creport.c) [230] monster_kills_peasants [1871] tolua_game_open + [592] ct_changed [269] monster_learn (monsters.c) [1872] tolua_gmtool_open + [1142] ct_checknames [129] monster_move (monsters.c) [1873] tolua_locale_open + [114] ct_find [215] monthly_healing [1874] tolua_log_open + [1686] ct_register [1479] morale_update [1875] tolua_message_open + [580] ct_remove [283] move_blocked [1876] tolua_order_open + [1695] cunhash (curse.c) [66] move_cmd [1877] tolua_process_open + [543] curse_active [342] move_hunters (move.c) [1878] tolua_reg_types_config (config.pkg.c) + [1538] curse_age [1094] move_iceberg (randenc.c) [1781] tolua_reg_types_eressea (eressea.pkg.c) + [1489] curse_cansee [534] move_icebergs (randenc.c) [1879] tolua_reg_types_game (game.pkg.c) + [1696] curse_done [326] move_pirates (move.c) [1880] tolua_reg_types_locale (locale.pkg.c) + [1395] curse_geteffect [374] move_ship [1881] tolua_reg_types_log (log.pkg.c) + [1590] curse_geteffect_int [421] move_unit [1882] tolua_reg_types_process (process.pkg.c) + [1539] curse_init [47] movement [1883] tolua_reg_types_settings (settings.pkg.c) + [1140] curse_name [1193] movement_error (move.c) [1884] tolua_region_open + [770] curse_read [155] movement_speed (move.c) [590] tolua_regionlist_next + [930] curse_write [350] movewhere [1885] tolua_settings_open + [1799] curses_done [1399] msg_addref [1886] tolua_ship_open + [375] cycle_route (move.c) [228] msg_create [1887] tolua_sqlite_open + [1641] damage_ship [1080] msg_create_message (bind_message.c) [1888] tolua_storage_open + [1044] damage_unit (volcano.c) [664] msg_curse [1274] tolua_toid + [1289] datapath [744] msg_error [591] tolua_tousertype + [1800] dazzle [647] msg_feedback [449] tolua_unit_get_faction (bind_unit.c) + [1549] dead_fighters (battle.c) [1384] msg_free [1782] tolua_unit_open + [674] deathcount [1005] msg_materials_required [313] tolua_unitlist_next + [843] deathcounts [132] msg_message [1085] tpregion (teleport.c) + [56] decode_pointer (critbit.c) [1373] msg_release [207] trailinto + [851] default_name [1042] msg_send_faction (bind_message.c) [1039] transfer_curse + [902] default_order [1210] msg_send_region (bind_message.c) [1622] transfer_seen + [1659] default_score [1633] msg_set_int (bind_message.c) [899] transfermen + [1144] default_spoil (item.c) [1685] msg_set_region (bind_message.c) [75] translate (creport.c) + [173] default_wage (config.c) [1226] msg_set_resource (bind_message.c) [28] translate + [249] defaultorders [1646] msg_set_unit (bind_message.c) [1889] translation_done + [966] deliverMail [1286] msg_to_ship_inmates (move.c) [1890] translation_init + [50] demographics [1823] mt_clear [430] translist + [826] demon_skillchange [227] mt_find [358] transliterate + [246] demon_skillchanges (randenc.c) [1587] mt_id (message.c) [1011] transport (move.c) + [35] describe (report.c) [1588] mt_new [81] travel (move.c) + [267] describe_race (names.c) [1007] mt_register [92] travel_i (move.c) + [1113] destroy_cmd [1602] mtype_get_param [147] travel_route (move.c) + [1697] destroy_curse [835] name_cmd [609] travelthru_add + [1230] destroy_road (build.c) [803] name_unit [180] travelthru_cansee + [392] destroyfaction [788] natural_armor [41] travelthru_map + [307] dfindhash [1273] nb_armor (volcano.c) [1201] treeman_neighbour (monsters.c) + [787] dice [1734] new_armortype [1783] trigger_changefaction + [409] dice_rand [705] new_border [1297] trigger_changerace + [1670] dict_get [1059] new_building [1891] trigger_giveitem + [1675] dict_init (dict.c) [1565] new_group [1752] trigger_killunit + [1671] dict_name [1739] new_luxurytype [1892] trigger_shock + [1676] dict_read (dict.c) [1427] new_node (pathfinder.c) [1753] trigger_timeout + [1677] dict_write (dict.c) [1712] new_potiontype [677] trollbelts (battle.c) + [1508] dir_invert [275] new_region [1225] try_rename (laws.c) + [771] disable_feature (jsonconf.c) [1229] new_ship [1554] tsf_find (crmessage.c) + [999] disband_men [282] new_units [1705] tsf_register + [859] display_cmd [1703] new_weapontype [1548] tt_find + [1054] display_item (laws.c) [1263] newcontainerid [1715] tt_register + [1090] display_potion (laws.c) [594] newline [347] u_description + [963] display_race (laws.c) [1359] newterrain [919] u_geteffstealth + [241] dissolve_units (randenc.c) [319] newunitid [951] u_hasspell + [599] distance [601] next_region (move.c) [257] u_irace + [80] do_attack [1758] nextlocale [89] u_race + [64] do_battle [1333] nmr_death (laws.c) [1460] u_set_building + [63] do_battles [878] nmr_warnings [1485] u_set_ship + [825] do_combatmagic [376] normalvariate [1199] u_seteffstealth + [702] do_combatspell (battle.c) [141] nr_building (report.c) [1111] u_setfaction + [250] do_contact (laws.c) [48] nr_curses (report.c) [1389] u_setrace + [128] do_enter [401] nr_curses_i (report.c) [692] ualias + [648] do_extra_spell (battle.c) [25] nr_render [927] ucontact + [1062] do_fumble (magic.c) [113] nr_section [109] ufindhash + [941] do_potion (alchemy.c) [111] nr_ship (report.c) [1133] ugetpotionuse + [351] do_recruiting (economy.c) [507] nr_spell [667] uhash + [515] do_siege [732] nr_spell_syntax [314] unicode_ucs4_to_utf8 + [612] do_work (economy.c) [11] nr_unit (report.c) [1216] unicode_utf8_strcasecmp + [1397] done_learning (study.c) [1232] nrand (monsters.c) [177] unicode_utf8_to_ucs4 + [1126] dracoid_name (names.c) [98] nrt_find [1684] unit_addorder + [516] dragon_affinity_value (monsters.c) [883] nrt_register [709] unit_can_study + [1095] dragon_name (names.c) [1524] nrt_section [427] unit_get_spellbook + [850] drain_exp [443] nrt_string [1735] unit_gethp + [1053] drift_target [723] ntimespprob [332] unit_getname + [490] drifting_ships (move.c) [14] old_race [758] unit_getspell + [394] drown [1381] oldcursename [1577] unit_has_cursed_item (give.c) + [468] eaten_by_monster (monster.c) [1240] oldfamiliars (races.c) [136] unit_max_hp + [243] eatwhite [1596] oldterrain [1540] unit_setname + [255] eatwhitespace_c (parser.c) [470] omniscient [1391] unit_skill + [78] economics [1824] openlibs (bindings.c) [142] unitname + [334] eff_skill [176] opstack_pop [46] unitorders (save.c) + [845] eff_spelllevel [202] opstack_push [1167] unset_combatspell + [163] eff_stealth [370] orc_growth (randenc.c) [415] update_guards + [683] eff_weight (move.c) [615] out_faction (summary.c) [551] update_interval + [100] effskill [1002] overload (move.c) [605] update_lighthouse + [504] effskill_study [1295] overload_start (move.c) [270] update_long_order + [1801] enable_keyword [676] owner_buildingtyp [1155] update_nmrs + [814] end_potion (alchemy.c) [1393] owner_change [1237] update_resource (resources.c) + [1512] enoughsailors [311] pack_int (binarystore.c) [1457] update_resources + [145] enter_1 (laws.c) [1688] pack_keyval [381] update_spells (laws.c) + [295] enter_2 (laws.c) [26] paragraph (report.c) [497] uprivate + [695] enter_building [1655] parameter_key (config.c) [1472] ur_add + [733] enter_ship [333] parse (translation.c) [436] urace + [665] entertain_cmd [1662] parse_ai (xmlreader.c) [1754] ursprung_x (plane.c) + [643] entertainmoney [1825] parse_args (main.c) [1755] ursprung_y (plane.c) + [1437] entrance_allowed (move.c) [1131] parse_buildings (xmlreader.c) [935] use_bloodpotion (item.c) + [1121] equip_items [1252] parse_calendar (xmlreader.c) [763] use_cmd + [775] equip_unit [1292] parse_config (main.c) [1149] use_default (resources.c) + [776] equip_unit_mask [1170] parse_equipment (xmlreader.c) [1119] use_healingpotion (item.c) + [1702] equipment_addspell [1637] parse_function (xmlreader.c) [765] use_item (laws.c) + [1802] equipment_done [852] parse_ids [39] use_pooled + [1747] equipment_setcallback [1317] parse_inifile (bindings.c) [801] use_potion + [1664] equipment_setitem [649] parse_int (translation.c) [1233] use_skillpotion + [1649] equipment_setskill [832] parse_messages (xmlreader.c) [1147] usetcontact + [59] eressea_read_game [117] parse_order [1078] usetpotionuse + [1346] eressea_run [1765] parse_param (xmlreader.c) [1041] usetprivate + [1624] eressea_version [1104] parse_races (xmlreader.c) [593] usiege + [76] eressea_write_game [1086] parse_resources (xmlreader.c) [1049] uunhash + [556] escape_string [1826] parse_rules (xmlreader.c) [1893] valid_race + [1182] eval_add (translation.c) [1305] parse_ships (xmlreader.c) [1051] validate_pirate (piracy.c) + [494] eval_building (reports.c) [1827] parse_spellbooks (xmlreader.c) [1627] var_copy_items (reports.c) + [608] eval_direction (reports.c) [1120] parse_spells (xmlreader.c) [734] var_copy_order (reports.c) + [398] eval_eq (translation.c) [86] parse_string (translation.c) [1439] var_copy_regions (move.c) + [685] eval_faction (reports.c) [864] parse_strings (xmlreader.c) [1632] var_copy_resources (reports.c) + [393] eval_if (translation.c) [42] parse_symbol (translation.c) [1454] var_copy_string (reports.c) + [268] eval_int (translation.c) [125] parse_token [1628] var_free_resources (reports.c) + [729] eval_int36 (reports.c) [220] parse_token_depr [1470] var_free_string (reports.c) + [517] eval_isnull (translation.c) [849] parser_end [1784] verbosity_to_flags (main.c) + [922] eval_localize (reports.c) [1506] parser_popstate [1255] verify_building (magic.c) + [539] eval_lt (translation.c) [1507] parser_pushstate [1704] verify_ship (magic.c) + [472] eval_order (reports.c) [1618] password_encode [1027] verify_targets (magic.c) + [882] eval_race (reports.c) [1610] password_verify [1028] verify_unit (magic.c) + [245] eval_region (reports.c) [431] path_exists [1894] version_no + [328] eval_resource (reports.c) [523] path_find [1525] visible_default (resources.c) + [907] eval_resources (reports.c) [1828] pathfinder_cleanup [68] visible_faction + [740] eval_ship (reports.c) [805] pay_spell [1022] volcano_destruction (volcano.c) + [671] eval_skill (reports.c) [1687] pcomp (summary.c) [1023] volcano_outbreak + [961] eval_spell (reports.c) [928] peasant_growth_factor (laws.c) [981] volcano_update + [634] eval_trail (reports.c) [984] peasant_luck_effect [174] wage + [369] eval_trailto (reports.c) [1277] peasant_luck_factor (laws.c) [403] walkingcapacity + [223] eval_unit (reports.c) [658] peasants (laws.c) [450] wang_hash + [1076] eval_unit_dative (reports.c) [795] personcapacity [168] weapon_effskill (battle.c) + [1102] eval_weight (reports.c) [660] piracy_cmd [221] weapon_skill (battle.c) + [49] expandbuying (economy.c) [1653] piracy_done (piracy.c) [1435] weapon_weight (battle.c) + [637] expandentertainment (economy.c) [1654] piracy_init (piracy.c) [459] weight + [816] expandloot (economy.c) [781] plagues [1130] wormhole_age (wormhole.c) + [197] expandorders (economy.c) [715] plain_name (terrain.c) [1238] wormhole_read (wormhole.c) + [349] expandrecruit (economy.c) [273] plan_dragon (monsters.c) [1785] wormhole_write (wormhole.c) + [93] expandselling (economy.c) [52] plan_monsters [1895] wormholes_register + [807] expandstealing (economy.c) [1411] plane_center_x [906] wormholes_update + [278] expandtax [1412] plane_center_y [1896] write_alliances + [277] expandwork (economy.c) [1379] plane_height [301] write_attribs + [455] f_get_alliance [1380] plane_width [1897] write_borders + [161] f_regionid [1184] plant (economy.c) [1383] write_building_reference + [477] f_regionid_s (reports.c) [1206] planttrees (economy.c) [622] write_buildingname + [451] faction_alive [1350] pnormalize [1382] write_faction_reference + [1543] faction_get_spellbook [1176] potion_luck (alchemy.c) [83] write_game + [382] faction_getmages (laws.c) [945] potion_water_of_life (alchemy.c) [1449] write_group (group.c) + [1357] faction_getorigin [1377] preferred_weapon (battle.c) [920] write_groups + [979] faction_setorigin [340] prepare_lighthouse (reports.c) [955] write_handler (event.c) + [1616] faction_setpassword [8] prepare_report [511] write_items + [247] factionname [1643] present (move.c) [1560] write_mage (magic.c) + [983] factionorders (save.c) [85] prices (report.c) [1467] write_of + [842] farcasting (magic.c) [616] print_fighters (battle.c) [121] write_order + [688] fbattlerecord (battle.c) [838] print_header (battle.c) [1480] write_owner (save.c) + [315] ffindhash (faction.c) [938] print_items (creport.c) [1623] write_password (save.c) + [1617] fhash [525] print_stats (battle.c) [1207] write_planes + [1012] fighters [7] process [1723] write_race_reference + [1553] find_argtype [6] processorders [1583] write_region_reference + [1496] find_bordertype [29] produce [280] write_regionname + [549] find_function (translation.c) [1829] produce_mallornseeds (seed.c) [3] write_reports + [1450] find_group (group.c) [994] produce_resource (helpers.c) [1135] write_score + [1217] find_groupbyname (group.c) [1725] produce_seeds (seed.c) [853] write_script (reports.c) + [967] find_piracy_target [322] produceexp [1523] write_seenspell (magic.c) + [1581] find_side [406] produceexp_days (study.c) [1386] write_ship_reference + [1513] find_spell [323] produceexp_ex [291] write_shipname + [304] find_variable (translation.c) [417] production [1769] write_skill (unitcurse.c) + [1462] findbuilding [917] promotion_cmd [303] write_spaces + [866] findbuildingtype [1713] pt_register (item.c) [964] write_spell_modifier (report.c) + [259] findfaction [112] ql_advance [1556] write_spellbook + [735] finditemtype [312] ql_find [1584] write_targetregion (targetregion.c) + [1665] findkeyword [362] ql_foreachx [689] write_translations (creport.c) + [753] findnewunit [138] ql_get [327] write_travelthru + [1241] findoption [448] ql_push [954] write_triggers + [458] findparam [156] ql_set_insert_ex [97] write_unit + [926] findparam_ex [258] qli_init [557] write_unit_reference + [457] findplane [192] qli_more [148] write_unitname + [1030] findrace [585] qli_next [762] writefaction + [420] findregion [276] quit [82] writegame + [1463] findregionbyid [779] r_addmessage [208] writeorder (save.c) + [1181] findresourcetype [783] r_astral_to_standard [1074] writepasswd + [1483] findship [474] r_connect [519] writeregion + [869] findshiptype [1404] r_demand [1253] writeturn (summary.c) + [1586] findskill [360] r_getmessages [178] wrptr + [501] findtoken [1446] r_insectstalled [1532] xml_bvalue + [123] findunit [199] r_isforest [1520] xml_cleanup_string (xmlreader.c) + [279] findunitg [1413] r_setdemand [1898] xml_done + [991] findunitr [1067] r_standard_to_astral [1599] xml_fvalue + [33] finish_reports [905] race_namegen [1533] xml_ivalue + [485] firstregion (reports.c) [1766] racelist_insert [1736] xml_readarmor (xmlreader.c) + [638] flee (battle.c) [133] racename [1183] xml_readconstruction + [408] fleechance [222] raceprefix [1107] xml_readitem (xmlreader.c) + [1465] flying_ship [1065] random_growl [1745] xml_readluxury (xmlreader.c) + [1803] flyingship_age (flyingship.c) [754] random_move_chance (monsters.c) [1714] xml_readpotion (xmlreader.c) + [749] follow_ship [153] random_neighbour (monsters.c) [1186] xml_readrequirements (xmlreader.c) + [331] follow_unit [1174] random_unit (chaos.c) [863] xml_readstrings (xmlreader.c) + [1280] forbiddenid [91] randomevents [887] xml_readtext (xmlreader.c) + [1093] forget_cmd (economy.c) [256] rc_changed [1266] xml_readweapon (xmlreader.c) + [1371] free_arg (message.c) [1661] rc_create [1726] xml_register_callback + [1630] free_battle [15] rc_find [1727] xml_spell (xmlreader.c) + [1609] free_castorder [16] rc_find_i (race.c) [1056] zombie_name (names.c) + [1541] free_castorders [1105] rc_get_or_create [32] + [574] free_config [364] rc_name [463] + [1580] free_fighter (battle.c) [260] rc_name_s [953] + [1804] free_functions [140] rc_skillmod [797] + [1805] free_functions (translation.c) [830] rc_specialdamage (battle.c) [30] + [1750] free_group [1681] rcomp (summary.c) diff --git a/process/compress.sh b/process/compress.sh index ff152b9f1..116b3d061 100755 --- a/process/compress.sh +++ b/process/compress.sh @@ -6,7 +6,7 @@ if [ -z $ERESSEA ]; then fi GAME=$ERESSEA/game-$1 -GAME_NAME=$(grep name $GAME/eressea.ini | sed 's/.*=\s*//') +GAME_NAME=$(grep -w name $GAME/eressea.ini | sed 's/.*=\s*//') TURN=$2 if [ -z $TURN ] @@ -20,5 +20,5 @@ if [ ! -d $GAME/reports ]; then fi cd $GAME/reports -$HOME/bin/compress.py $TURN "$GAME_NAME" +$ERESSEA/server/bin/compress.py $TURN "$GAME_NAME" cd - diff --git a/process/cron/preview.cron b/process/cron/preview.cron index b18038843..985ddf40b 100755 --- a/process/cron/preview.cron +++ b/process/cron/preview.cron @@ -7,7 +7,6 @@ if [ -e ${ERESSEA}/build/.preview ]; then fi SRC=${ERESSEA}/git ${SRC}/s/preview build ${branch} || exit $? -${SRC}/s/preview version for game in 2 3 4 ; do ${SRC}/s/preview -g ${game} run && \ ${SRC}/s/preview -g ${game} send diff --git a/process/orders-accept b/process/orders-accept index e90c3d48f..2f8f0bd29 100755 --- a/process/orders-accept +++ b/process/orders-accept @@ -3,22 +3,53 @@ from email.Utils import parseaddr from email.Parser import Parser -from os import mkdir, rename, stat, utime, unlink, symlink -from os.path import exists +import os +import os.path +import ConfigParser from re import compile, IGNORECASE from stat import ST_MTIME from string import upper, split, replace import logging -from sys import argv, stdin, exit +import sys +from sys import stdin from time import ctime, sleep, time from socket import gethostname from rfc822 import parsedate_tz, mktime_tz -LOG_FILENAME='/home/eressea/log/orders.log' +if 'ERESSEA' in os.environ: + dir = os.environ['ERESSEA'] +elif 'HOME' in os.environ: + dir = os.path.join(os.environ['HOME'], '/eressea') +else: # WTF? No HOME? + dir = "/home/eressea/eressea" +if not os.path.isdir(dir): + print "please set the ERESSEA environment variable to the install path" + sys.exit(1) +rootdir = dir + +game = int(sys.argv[1]) +gamedir = os.path.join(rootdir, "game-%d" % (game, )) +frommail = 'eressea-server@kn-bremen.de' +gamename = 'Eressea' +sender = '%s Server <%s>' % (gamename, frommail) + +inifile = os.path.join(gamedir, 'eressea.ini') +if not os.path.exists(inifile): + print "no such file: " . inifile +else: + config = ConfigParser.ConfigParser() + config.read(inifile) + if config.has_option('game', 'email'): + frommail = config.get('game', 'email') + if config.has_option('game', 'name'): + gamename = config.get('game', 'name') + if config.has_option('game', 'sender'): + sender = config.get('game', 'sender') + else: + sender = "%s Server <%s>" % (gamename, frommail) + config = None prefix = 'turn-' hostname = gethostname() -# base directory for all your games: -rootdir = "/home/eressea" orderbase = "orders.dir" sendmail = True # maximum number of reports per sender: @@ -28,36 +59,21 @@ writeheaders = True # reject all html email? rejecthtml = True -games = [ - { - "from" : "Eressea Server ", - "prefix" : "Eressea" - }, - { - "from" : "Eressea Server ", - "prefix": "E3" - }, - { - "from" : "Eressea Server ", - "prefix": "E4" - }, -] - def unlock_file(filename): try: - unlink(filename+".lock") + os.unlink(filename+".lock") except: print "could not unlock %s.lock, file not found" % filename def lock_file(filename): i = 0 wait = 1 - if not exists(filename): + if not os.path.exists(filename): file=open(filename, "w") file.close() while True: try: - symlink(filename, filename+".lock") + os.symlink(filename, filename+".lock") return except: i = i+1 @@ -74,17 +90,17 @@ messages = { "software and re-send the orders.", "multipart-de" : - "FEHLER: Die von dir eingeschickte Mail enthlt keinen " \ + "FEHLER: Die von dir eingeschickte Mail enth�lt keinen " \ "Text. Evtl. hast Du den Zug als HTML oder als anderweitig " \ - "ungltig formatierte Mail ingeschickt. Wir knnen ihn " \ - "deshalb nicht bercksichtigen. Schicke den Zug nochmals " \ + "ung�ltig formatierte Mail ingeschickt. Wir k�nnen ihn " \ + "deshalb nicht ber�cksichtigen. Schicke den Zug nochmals " \ "als reinen Text ohne Formatierungen ein.", "maildate-de": - "Es erreichte uns bereits ein Zug mit einem spteren " \ + "Es erreichte uns bereits ein Zug mit einem sp�teren " \ "Absendedatum (%s > %s). Entweder ist deine " \ "Systemzeit verstellt, oder ein Zug hat einen anderen Zug von " \ - "dir auf dem Transportweg berholt. Entscheidend fr die " \ + "dir auf dem Transportweg �berholt. Entscheidend f�r die " \ "Auswertungsreihenfolge ist das Absendedatum, d.h. der Date:-Header " \ "deiner Mail.", @@ -173,8 +189,8 @@ def available_file(dirname, basename): ver = 0 maxdate = 0 filename = "%s/%s,%s,%d" % (dirname, basename, hostname, ver) - while exists(filename): - maxdate = max(stat(filename)[ST_MTIME], maxdate) + while os.path.exists(filename): + maxdate = max(os.stat(filename)[ST_MTIME], maxdate) ver = ver + 1 filename = "%s/%s,%s,%d" % (dirname, basename, hostname, ver) if ver >= maxfiles: @@ -234,7 +250,7 @@ def copy_orders(message, filename, sender): from os.path import split dirname, basename = split(filename) dirname = dirname + '/headers' - if not exists(dirname): mkdir(dirname) + if not os.path.exists(dirname): os.mkdir(dirname) outfile = open(dirname + '/' + basename, "w") for name, value in message.items(): outfile.write(name + ": " + value + "\n") @@ -265,104 +281,98 @@ def copy_orders(message, filename, sender): # create a file, containing: # game=0 locale=de file=/path/to/filename email=rcpt@domain.to def accept(game, locale, stream, extend=None): - global rootdir, orderbase + global rootdir, orderbase, gamedir, gamename, sender if extend is not None: orderbase = orderbase + ".pre-" + extend - gamename = games[game-2]["prefix"] - gamedir = rootdir+"/eressea/game-%d" % (game, ) - savedir = gamedir+"/"+orderbase + savedir = os.path.join(gamedir, orderbase) # check if it's one of the pre-sent orders. # create the save-directories if they don't exist - if not exists(gamedir): mkdir(gamedir) - if not exists(savedir): mkdir(savedir) + if not os.path.exists(gamedir): os.mkdir(gamedir) + if not os.path.exists(savedir): os.mkdir(savedir) # parse message message = Parser().parse(stream) - sender = get_sender(message) - logger = logging.getLogger(sender) + email = get_sender(message) + logger = logging.getLogger(email) # write syslog - if sender is None or valid_email(sender)==0: - logger.warning("invalid email address: " + str(sender)) + if email is None or valid_email(email)==0: + logger.warning("invalid email address: " + str(email)) return -1 - logger.info("received orders from " + sender) + logger.info("received orders from " + email) # get an available filename lock_file(gamedir + "/orders.queue") - maxdate, filename = available_file(savedir, prefix + sender) + maxdate, filename = available_file(savedir, prefix + email) if filename is None: - logger.warning("more than " + str(maxfiles) + " orders from " + sender) + logger.warning("more than " + str(maxfiles) + " orders from " + email) return -1 # copy the orders to the file - text_ok = copy_orders(message, filename, sender) + text_ok = copy_orders(message, filename, email) unlock_file(gamedir + "/orders.queue") warning, msg, fail = None, "", False maildate = message.get("Date") if maildate != None: turndate = mktime_tz(parsedate_tz(maildate)) - utime(filename, (turndate, turndate)) + os.utime(filename, (turndate, turndate)) logger.debug("mail date is '%s' (%d)" % (maildate, turndate)) if turndate < maxdate: - logger.warning("inconsistent message date " + sender) + logger.warning("inconsistent message date " + email) warning = " (" + messages["warning-" + locale] + ")" msg = msg + formatpar(messages["maildate-" + locale] % (ctime(maxdate),ctime(turndate)), 76, 2) + "\n" else: - logger.warning("missing message date " + sender) + logger.warning("missing message date " + email) warning = " (" + messages["warning-" + locale] + ")" msg = msg + formatpar(messages["nodate-" + locale], 76, 2) + "\n" if not text_ok: warning = " (" + messages["error-" + locale] + ")" msg = msg + formatpar(messages["multipart-" + locale], 76, 2) + "\n" - logger.warning("rejected - no text/plain in orders from " + sender) - unlink(filename) + logger.warning("rejected - no text/plain in orders from " + email) + os.unlink(filename) savedir = savedir + "/rejected" - if not exists(savedir): mkdir(savedir) + if not os.path.exists(savedir): os.mkdir(savedir) lock_file(gamedir + "/orders.queue") - maxdate, filename = available_file(savedir, prefix + sender) + maxdate, filename = available_file(savedir, prefix + email) store_message(message, filename) unlock_file(gamedir + "/orders.queue") fail = True if sendmail and warning is not None: - frommail = games[key]["from"] subject = gamename + " " + messages["subject-"+locale] + warning - mail = "Subject: %s\nFrom: %s\nTo: %s\n\n" % (subject, frommail, sender) + msg + mail = "Subject: %s\nFrom: %s\nTo: %s\n\n" % (subject, sender, email) + msg from smtplib import SMTP server = SMTP("localhost") - server.sendmail(frommail, sender, mail) + server.sendmail(sender, email, mail) server.close() if not sendmail: - print text_ok, fail, sender + print text_ok, fail, email print filename if not fail: lock_file(gamedir + "/orders.queue") queue = open(gamedir + "/orders.queue", "a") - queue.write("email=%s file=%s locale=%s game=%s\n" % (sender, filename, locale, game)) + queue.write("email=%s file=%s locale=%s game=%s\n" % (email, filename, locale, game)) queue.close() unlock_file(gamedir + "/orders.queue") - logger.info("done - accepted orders from " + sender) + logger.info("done - accepted orders from " + email) return 0 # the main body of the script: +try: + os.mkdir(os.path.join(rootdir, 'log')) +except: + pass # already exists? +LOG_FILENAME=os.path.join(rootdir, 'log/orders.log') logging.basicConfig(level=logging.DEBUG, filename=LOG_FILENAME) logger = logging delay=None # TODO: parse the turn delay -try: - game = int(argv[1]) -except: - game = argv[1] - if game[:3]=='e3a': - game = 3 - elif game[:7]=='eressea': - game = 2 -locale = argv[2] +locale = sys.argv[2] infile = stdin -if len(argv)>3: - infile = open(argv[3], "r") +if len(sys.argv)>3: + infile = open(sys.argv[3], "r") retval = accept(game, locale, infile, delay) if infile!=stdin: infile.close() -exit(retval) +sys.exit(retval) diff --git a/process/orders-process b/process/orders-process index a4d932648..79c7b3378 100755 --- a/process/orders-process +++ b/process/orders-process @@ -2,7 +2,10 @@ # -*- coding: iso-8859-1 -*- from os import unlink, symlink, rename, popen, tmpfile -from os.path import exists +import sys +import os +import os.path +import ConfigParser from re import compile, IGNORECASE from string import split, join, upper, strip from sys import argv, exit @@ -14,9 +17,8 @@ from epasswd import EPasswd def pwd_get_email(faction, pwd, pwdfile=None): return None -def splitfilename(filename): - from os.path import split - return split(filename) +def split_filename(filename): + return os.path.split(filename) def unlock_file(filename): try: @@ -28,7 +30,7 @@ def unlock_file(filename): def lock_file(filename): i = 0 wait = 1 - if not exists(filename): + if not os.path.exists(filename): file=open(filename, "w") file.close() while True: @@ -62,17 +64,47 @@ messages = { "error-en": "Error", } +game = int(sys.argv[1]) +echeck_cmd = "/home/eressea/echeck/echeck.sh" +maxlines = 25 # base directory for all your games: -rootdir = "/home/eressea/eressea" -frommail = "Eressea Server " -orderbase = "orders.dir" -sendmail = True -maxlines = 25 -echeck_cmd = "/home/eressea/echeck/echeck.sh" +install_dir = "/home/eressea/eressea" +if 'ERESSEA' in os.environ: + install_dir = os.environ['ERESSEA'] +elif 'HOME' in os.environ: + install_dir = os.path.join(os.environ['HOME'], '/eressea') +if not os.path.isdir(install_dir): + print "please set the ERESSEA environment variable to the install path" + sys.exit(1) + +game_dir = os.path.join(install_dir, "game-%d" % (game, )) +frommail = 'eressea-server@kn-bremen.de' +gamename = 'Eressea' +sender = '%s Server <%s>' % (gamename, frommail) + +inifile = os.path.join(game_dir, 'eressea.ini') +if not os.path.exists(inifile): + print "no such file: " . inifile +else: + config = ConfigParser.ConfigParser() + config.read(inifile) + if config.has_option('game', 'email'): + frommail = config.get('game', 'email') + if config.has_option('game', 'name'): + gamename = config.get('game', 'name') + if config.has_option('game', 'sender'): + sender = config.get('game', 'sender') + else: + sender = "%s Server <%s>" % (gamename, frommail) + config = None + +queue_file = os.path.join(game_dir, "orders.queue") +if not os.path.exists(queue_file): + exit(0) # regular expression that finds the start of a faction -fact_re = compile("^\s*(eressea|vinyambar|partei|faction)\s+([a-zA-Z0-9]+)\s+\"?([^\"]*)\"?", IGNORECASE) +fact_re = compile("^\s*(eressea|partei|faction)\s+([a-zA-Z0-9]+)\s+\"?([^\"]*)\"?", IGNORECASE) def check_pwd(filename, email, pw_data): results = [] @@ -98,7 +130,7 @@ def check_pwd(filename, email, pw_data): return results def echeck(filename, locale, rules): - dirname, filename = splitfilename(filename) + dirname, filename = split_filename(filename) stream = popen("%s %s %s %s %s" % (echeck_cmd, locale, filename, dirname, rules), 'r') lines = stream.readlines() if len(lines)==0: @@ -111,14 +143,6 @@ def echeck(filename, locale, rules): stream.close() return mail -## the main body of the script -game = int(argv[1]) - -basedir = rootdir + "/game-%d" % (game, ) -queuename = basedir + "/orders.queue" -if not exists(queuename): - exit(0) - # parse the queue file - #print "connecting to SMTP..." from smtplib import SMTP @@ -127,16 +151,17 @@ try: except: print "could not connect to SMTP server" exit(0) + #print "reading password file..." -pw_data = EPasswd(basedir + "/passwd") +pw_data = EPasswd(os.path.join(game_dir,"passwd")) #print "reading orders.queue..." # move the queue file to a save space while locking it: try: - lock_file(queuename) + lock_file(queue_file) except: exit(0) -queuefile = open(queuename, "r") +queuefile = open(queue_file, "r") lines = queuefile.readlines() queuefile.close() @@ -154,9 +179,9 @@ tmpfile.close() openlog("orders") -unlink(queuename) +unlink(queue_file) try: - unlock_file(queuename) + unlock_file(queue_file) except: pass @@ -170,15 +195,15 @@ for line in lines: email = dict["email"] locale = dict["locale"] game = int(dict["game"]) - file = dict["file"] + infile = dict["file"] gamename='[E%d]' % game rules='e%d' % game warning = "" failed = True - results = check_pwd(file, email, pw_data) - logfile = open(basedir+"/zug.log", "a") - dirname, filename = splitfilename(file) - msg = messages["validate-"+locale] + " " + filename + "\n\n" + results = check_pwd(infile, email, pw_data) + logfile = open(os.path.join(game_dir, "zug.log"), "a") + dirname, filename = split_filename(infile) + msg = messages["validate-"+locale] + " " + infile + "\n\n" for faction, game_email, success, pwd in results: msg = msg + messages["faction-"+locale] + " " + faction + "\n" if success: failed = False @@ -189,25 +214,24 @@ for line in lines: if failed: warning = " (" + messages["warning-" + locale] + ")" - syslog("failed - no valid password in " + file) + syslog("failed - no valid password in " + infile) else: - result = echeck(file, locale, rules) - if email=='eressea': - print result - continue - elif result is None: + result = None + if os.path.exists(echeck_cmd): + result = echeck(infile, locale, rules) + if result is None: # echeck did not finish - msg = msg + "Echeck was killed. Your turn was accepted, but could not be verified.\n" + msg = msg + "Echeck is broken. Your turn was accepted, but could not be verified.\n" warning = " (" + messages["warning-" + locale] + ")" - syslog("process - echeck got killed, " + file) + syslog("process - echeck broken, " + infile) else: msg = msg + result - syslog("process - checked orders in " + file) + syslog("process - checked orders in " + infile) subject = gamename + " " + messages["subject-" + locale] + warning - msg = "Subject: %s\nFrom: %s\nTo: %s\nContent-Type: text/plain; charset=utf-8\n\n" % (subject, frommail, email) + msg + msg = "Subject: %s\nFrom: %s\nTo: %s\nContent-Type: text/plain; charset=utf-8\n\n" % (subject, sender, email) + msg try: - server.sendmail(frommail, email, msg) + server.sendmail(sender, email, msg) except: syslog("failed - cannot send to " + email) diff --git a/process/send-bz2-report b/process/send-bz2-report index e9962d539..983564bea 100755 --- a/process/send-bz2-report +++ b/process/send-bz2-report @@ -8,7 +8,6 @@ if [ ! -f reports.txt ]; then exit -2 fi source $HOME/bin/functions.sh -source $ERESSEA/etc/eressea.conf TEMPLATE=report-mail.txt if [ "$1" == "-Lde" ] diff --git a/process/sendreport.sh b/process/sendreport.sh index 003026f4a..93d52f0b4 100755 --- a/process/sendreport.sh +++ b/process/sendreport.sh @@ -8,13 +8,12 @@ if [ -z $ERESSEA ]; then exit -2 fi source $HOME/bin/functions.sh -source $HOME/etc/eressea.conf GAME=$1 EMAIL=$2 FACTION=$3 PASSWD=$4 -echo "$GAME $EMAIL $FACTION $PASSWD" >> /tmp/report.log +#echo "$GAME $EMAIL $FACTION $PASSWD" >> /tmp/report.log function reply() { echo $@ | mutt -s "Reportnachforderung Partei ${FACTION}" $EMAIL diff --git a/process/sendreports.sh b/process/sendreports.sh index fc24200b6..c2bfa741c 100755 --- a/process/sendreports.sh +++ b/process/sendreports.sh @@ -8,7 +8,6 @@ if [ -z $ERESSEA ]; then exit -2 fi source $HOME/bin/functions.sh -source $ERESSEA/etc/eressea.conf if [ ! -z $1 ]; then GAME=$ERESSEA/game-$1 diff --git a/quicklist b/quicklist deleted file mode 160000 index f837dd31e..000000000 --- a/quicklist +++ /dev/null @@ -1 +0,0 @@ -Subproject commit f837dd31e5fcf13c706db1ac2c86b7de3e706578 diff --git a/res/adamantium.xml b/res/adamantium.xml index cc1cedadc..77e138f77 100644 --- a/res/adamantium.xml +++ b/res/adamantium.xml @@ -1,14 +1,11 @@ - + - - - - + diff --git a/res/buildings/castle-2.xml b/res/buildings/castle-2.xml index 593e9ae5e..7b015d199 100644 --- a/res/buildings/castle-2.xml +++ b/res/buildings/castle-2.xml @@ -1,24 +1,23 @@ - - + - + - + - + - + - + diff --git a/res/buildings/castle.xml b/res/buildings/castle.xml index 253f49811..6e9140222 100644 --- a/res/buildings/castle.xml +++ b/res/buildings/castle.xml @@ -1,26 +1,25 @@ - - + - + - + - + - + - + - + diff --git a/res/core/armor/plate.xml b/res/core/armor/plate.xml index a22064e90..97d855a73 100644 --- a/res/core/armor/plate.xml +++ b/res/core/armor/plate.xml @@ -1,7 +1,6 @@ - diff --git a/res/core/calendar.xml b/res/core/calendar.xml index 42f83d58b..d96037698 100644 --- a/res/core/calendar.xml +++ b/res/core/calendar.xml @@ -1,5 +1,5 @@ - + diff --git a/res/core/common/buildings.xml b/res/core/common/buildings.xml index 423e90deb..540e9f085 100644 --- a/res/core/common/buildings.xml +++ b/res/core/common/buildings.xml @@ -4,9 +4,7 @@ - - - + @@ -23,7 +21,7 @@ - + @@ -34,7 +32,7 @@ - + @@ -45,7 +43,7 @@ - + @@ -56,7 +54,7 @@ - + @@ -75,7 +73,7 @@ - + @@ -85,7 +83,7 @@ - + @@ -96,7 +94,7 @@ - + @@ -107,7 +105,7 @@ - + @@ -119,7 +117,7 @@ - + @@ -129,7 +127,7 @@ - + @@ -138,7 +136,7 @@ - + @@ -148,7 +146,7 @@ - + @@ -158,7 +156,7 @@ - + diff --git a/res/core/common/items.xml b/res/core/common/items.xml index 6afd220ff..35f9af2c5 100644 --- a/res/core/common/items.xml +++ b/res/core/common/items.xml @@ -61,16 +61,8 @@ - - - - - - - - - + @@ -78,9 +70,7 @@ - - - + @@ -100,45 +90,34 @@ - + - - - + - + + + + + + - - - + - - - + - - - + - - - - - - - - - + diff --git a/res/core/common/potions.xml b/res/core/common/potions.xml index 84b1e5f52..4812727dd 100644 --- a/res/core/common/potions.xml +++ b/res/core/common/potions.xml @@ -4,8 +4,7 @@ - - + @@ -15,8 +14,7 @@ - - + @@ -26,8 +24,7 @@ - - + @@ -37,8 +34,7 @@ - - + @@ -48,8 +44,7 @@ - - + @@ -61,8 +56,7 @@ - - + @@ -74,8 +68,7 @@ - - + @@ -87,8 +80,7 @@ - - + @@ -100,8 +92,7 @@ - - + @@ -113,8 +104,7 @@ - - + @@ -126,8 +116,7 @@ - - + @@ -139,8 +128,7 @@ - - + @@ -152,8 +140,7 @@ - - + @@ -166,8 +153,7 @@ - - + @@ -181,8 +167,7 @@ - - + diff --git a/res/core/de/strings.xml b/res/core/de/strings.xml index 8b207e6d9..349892e4e 100644 --- a/res/core/de/strings.xml +++ b/res/core/de/strings.xml @@ -6,6 +6,10 @@ _x: preposition (15 /Schlumpf/schwerter) _a: including article (ein Schlumpf, a smurf) --> + + BEFEHLE + ORDERS + Wirbel vortex @@ -235,11 +239,6 @@ einzige Vorteil ihrer geringen Größe ist, dass sie sich leichter verstecken kann. - - Dieses magische Szepter, ein Geschenk Igjarjuks, sorgt für große - Verwirrung und Gedächtnisverlust. Syntax: BENUTZE "Szepter der - Tränen" - Setzt eine Einheit dieses Segel auf einem Schiff, so erhöht sich dessen Reichweite permanent um 1 Region. @@ -485,13 +484,13 @@ - Mallornbaum - mallorn tree + Mallorn + mallorn - Mallornbäume - mallorn trees + Mallorn + mallorn @@ -913,17 +912,9 @@ Traumschlößchen - + Struktur - - Akademie der Künste - academy of arts - - - Skulptur - sculpture - @@ -1467,12 +1458,6 @@ Amulette des wahren Sehens - - Katzenamulett - - - Katzenamulette - Ring der Unsichtbarkeit @@ -1614,14 +1599,6 @@ Akkreditionen des Xontormia-Expreß - - Szepter der Tränen - wand of tears - - - Szepter der Tränen - wands of tears - Schneeball snowball @@ -2388,19 +2365,19 @@ ghoul - + Juju-Zombie juju-zombie - + Juju-Zombies juju-zombies - + Juju-Zombies juju-zombies - + Juju-Zombie juju-zombie @@ -2456,23 +2433,6 @@ skeleton - - Zentaur - centaur - - - Zentauren - centaurs - - - Zentauren - centaurs - - - Zentauren - centaur - - Schattenritter shadow knight @@ -3845,10 +3805,6 @@ Meteorregen Meteor Shower - - Schattenruf - Shadow Call - Erschaffe einen Ring der Regeneration Create A Ring of Regeneration @@ -4529,10 +4485,6 @@ Verletzt alle Gegner. Injures all enemies. - - Ruft Schattenwesen. - Calls beings from shadow. - Panik. Panic. @@ -6612,15 +6564,6 @@ - - Baum - tree - - - Bäume - trees - - Mallornbaum mallorn tree @@ -6653,53 +6596,27 @@ EINLADEN INVITE - - Steine - stones + + + Schößling + sapling - - Pferde - horses - - - Bauern - peasants - - - Silber - silver - - - Laen - laen - - - + Schößlinge saplings - + + Mallornschößling + mallorn sapling + + + Mallornschößlinge mallorn saplings - - Bäume - trees - - - - Mallorn - mallorn - - - - Eisen - iron - - Winter winter diff --git a/res/core/en/strings.xml b/res/core/en/strings.xml index d80c742b9..14b2b817d 100644 --- a/res/core/en/strings.xml +++ b/res/core/en/strings.xml @@ -310,7 +310,7 @@ dam - + structure @@ -444,12 +444,6 @@ amulets of chastity - - amulet of the kitten - - - amulets of the kitten - amulet of darkness diff --git a/res/core/fr/strings.xml b/res/core/fr/strings.xml index 8acc1d89f..13e6beb25 100644 --- a/res/core/fr/strings.xml +++ b/res/core/fr/strings.xml @@ -324,7 +324,7 @@ barrage - + bâtiment @@ -458,12 +458,6 @@ amulettes de chasteté - - amulette du chaton - - - amulettes du chaton - amulette de ténčbres @@ -1894,12 +1888,6 @@ aigle - - centaures - - - centaure - squelettes @@ -1918,10 +1906,10 @@ zombie - + zombies juju - + zombie juju diff --git a/res/core/messages.xml b/res/core/messages.xml index c07393609..32d8e35a6 100644 --- a/res/core/messages.xml +++ b/res/core/messages.xml @@ -1,5 +1,23 @@ + + + + + + Bitte denke daran, deine Befehle mit dem Betreff + $subject an $email zu senden. + Remember to send your orders to + $email with the subject ${subject}. + + + + + + + "$unit($unit): '$command' - Dieser Befehl ist unbekannt." + "$unit($unit): '$command' - Parse error, unknown command." + Die Region ist verwüstet, der Boden karg. The region is ravaged, the ground infertile. @@ -1245,14 +1263,6 @@ "$unit($unit) dies from poison damage taken in $region($region)." - - - - - "$unit($unit) schwenkt sein Szepter und sorgt für Verwirrung und Chaos in der Region." - "$unit($unit) waves their scepter and causes chaos and confusion in the region." - - @@ -1565,20 +1575,6 @@ "$unit($mage) konnte $int($amount) $if($eq($amount,1),"Bauer","Bauern") anwerben." "$unit($mage) managed to recruit $int($amount) $if($eq($amount,1),"peasant","peasants")." - - - - - "Ein bohrender Schmerz durchzuckt $unit($unit), Verwirrung macht sich breit." - "Pain pulses through $unit($unit), confusion spreads." - - - - - - ""AAAAAAAGHHHHHH!" - Ein Schrei durchzieht die Region, $unit($unit) windet sich vor Schmerz." - ""AAAAAAAGHHHHHH!" - $unit($unit) screams and squirms with pain." - @@ -1590,14 +1586,6 @@ "$unit($unit) in $region($region): '$order($command)' - A higher power prevents $unit($unit) from giving the object away. 'IT IS YOURS MY CHILD. ONLY YOURS.'." - - - - - "$unit($unit) sendet ein Stoßgebet an den Herrn der Schreie." - "$unit($unit) sends a prayer to the Lord of Screams." - - @@ -1826,7 +1814,7 @@ "$unit($unit) in $region($region): '$order($command)' - Der Magier erschafft ein Traumgebäude." "$unit($unit) in $region($region): '$order($command)' - The magician creates an illusionary building." - + @@ -1922,10 +1910,9 @@ - - "$unit($unit) benutzt in $region($region) einen Antimagiekristall." - "$unit($unit) uses an antimagic crystal in $region($region)." + "$unit($unit) benutzt einen Antimagiekristall." + "$unit($unit) uses an antimagic crystal." @@ -2424,7 +2411,7 @@ "Eine Botschaft von $unit.dative($unit) in $region($region): 'Ups! Quack, Quack!'" "A message from $unit($unit) in $region($region): 'Oops! Croak, Croak!'" - + @@ -2434,7 +2421,7 @@ "$unit($unit) in $region($region): '$order($command)' - $unit($mage) kann Zauber, die durch $unit($unit) gewirkt werden, nicht zusätzlich in die Ferne richten." "$unit($unit) in $region($region): '$order($command)' - $unit($mage) cannot direct spells that are channeled through $unit($unit) into distant regions." - + @@ -2574,13 +2561,6 @@ "$unit($unit) in $region($region) regeneriert $int($amount) Aura." "$unit($unit) regenerates $int($amount) aura in $region($region)." - - - - - "$string" - "$string" - @@ -2618,13 +2598,6 @@ "$unit($teacher) lehrt $unit($student) $skill($skill)." "$unit($teacher) teaches $unit($student) $skill($skill)." - - - - - "$string" - "$string" - @@ -2856,13 +2829,6 @@ "$unit($unit) baut für $int($size) an $ship($ship) weiter." "$unit($unit) builds $int($size) more on $ship($ship)." - - - - - "$string" - "$string" - @@ -2900,15 +2866,7 @@ "$unit($unit) $if($eq($mode,1),"reitet", "wandert") von $region($start) nach $region($end).$if($isnull($regions),""," Dabei wurde $trail($regions) durchquert.")" "$unit($unit) $if($eq($mode,1),"rides", "walks") from $region($start) to $region($end)$if($isnull($regions),""," by way of $trail($regions)")." - - - - - - "$unit($unit) entdeckt dass im $direction($direction) $terrain($region) ist." - "$unit($unit) discovered that $terrain($region) lies in the $direction($direction)." - - + @@ -2917,7 +2875,7 @@ "$unit($unit) entdeckt, dass $region($region) $localize($terrain) ist." "$unit($unit) discovered that $region($region) is $localize($terrain)." - + @@ -2925,7 +2883,7 @@ "$unit($unit) ist in dieser Runde gelandet und kann nicht weiter ins Landesinnere nach $region($region) vorstossen." "$unit($unit) has just landed and cannot continue moving to $region($region)." - + @@ -2933,7 +2891,7 @@ "Die Mannschaft der $ship($ship) kann in letzter Sekunde verhindern, dass das Schiff in $region($region) auf Land aufläuft." "At the very last moment, the crew of the $ship($ship) saved the ship from running aground in $region($region)." - + @@ -2941,7 +2899,7 @@ "Die $ship($ship) konnte in $region($region) nicht einreisen, die Küste ist zu gefährlich für das Schiff." "The $ship($ship) could not berth in $region($region). The coast is too dangerous for the vessel." - + @@ -2949,7 +2907,7 @@ "Die Mannschaft der $ship($ship) weigert sich, nach $direction($direction) zu reisen." "The crew of the $ship($ship) refuses to travel to the $direction($direction)." - + @@ -2957,7 +2915,7 @@ "Die Mannschaft der $ship($ship) weigert sich, nach $region($region) zu reisen." "The crew of the $ship($ship) refuses to travel to $region($region)." - + @@ -2965,7 +2923,7 @@ "$unit($unit) weigert sich, nach $direction($direction) zu reisen." "$unit($unit) refuses to travel to the $direction($direction)." - + @@ -2973,7 +2931,7 @@ "$unit($unit) weigert sich, nach $region($region) zu reisen." "$unit($unit) refuses to travel to $region($region)." - + @@ -2981,7 +2939,7 @@ "Die $ship($ship) konnte $region($region) nicht verlassen." "The $ship($ship) could not leave $region($region)." - + @@ -2990,35 +2948,7 @@ "$unit($unit) wurde in $region($region) von $unit.dative($guard) aufgehalten." "$unit($unit) was kept in $region($region) by $unit($guard)." - - - - - "Wir haben den Krieg mit $faction($faction) beendet." - "We declared peace with $faction($faction)." - - - - - - "$faction($faction) hat den Krieg mit uns beendet." - "$faction($faction) has declared peace with us." - - - - - - "Wir haben $faction($faction) den Krieg erklärt." - "We declared war on $faction($faction)." - - - - - - "$faction($faction) hat uns den Krieg erklärt." - "$faction($faction) has declared war on us." - - + @@ -3027,7 +2957,7 @@ "$unit($unit) konnte nicht von $region($region) nach $region($target) reisen, da der Besitzer der Region es verhinderte." "$unit($unit) could not travel from $region($region) to $region($target) because the owner denied entrance." - + @@ -3051,7 +2981,7 @@ "$unit($follower) konnte $unit($unit) nicht folgen." "$unit($follower) could not follow $unit($unit)." - + @@ -3059,7 +2989,7 @@ "$unit($unit) entdeckt, dass es keinen Weg nach $direction($direction) gibt." "$unit($unit) discovers that there is no route going $direction($direction)." - + @@ -3068,13 +2998,6 @@ "$unit($unit) konnte von $region($region) nicht nach $direction($direction) ausreisen, der Nebel war zu dicht." "$unit($unit) could not travel $direction($direction) from $region($region), the fog was too dense." - - - - - "$string" - "$string" - @@ -3343,20 +3266,6 @@ "$unit($unit) marschiert in eine Antimagiezone und löst sich auf." "$unit($unit) walks into an antimagical zone and dissolves." - - - - - "$unit($unit) hat sich unbemerkt verflüchtigt." - "$unit($unit) has dissolved without a trace." - - - - - - "$unit($unit) wird sich bald verflüchtigen." - "$unit($unit) will dissolve soon." - @@ -3392,11 +3301,10 @@ - - "ERESSEA $int36($faction) \"${password}\" - Deine Befehle hatten ein falsches Passwort." - "ERESSEA $int36($faction) \"${password}\" - Your orders had the wrong password." + "Deine Befehle hatten ein falsches Passwort (${password})." + "Your orders had the wrong password (${password})." @@ -6967,13 +6875,6 @@ "$unit($unit) in $region($region): '$order($command)' - Man benötigt mindestens $int($minskill) $skill($skill), um $resource($product,0) zu produzieren." "$unit($unit) in $region($region): '$order($command)' - You need at least $int($minskill) $skill($skill), to produce $resource($product,0)." - - - - - "$string" - "$string" - @@ -6981,13 +6882,7 @@ "$string" "$string" - - - - - "$string" - "$string" - + @@ -6998,6 +6893,16 @@ "$unit($unit) transfers $int($amount) person$if($eq($amount,1),"","s") to $unit($target)." + + + + + + + "$unit($target) erhält $int($amount) Person$if($eq($amount,1),"","en") von $unit($unit)." + "$unit($target) receives $int($amount) person$if($eq($amount,1),"","s") from $unit($unit)." + + @@ -7222,7 +7127,7 @@ "$unit($unit) in $region($region): '$order($command)' - No pyramids may be build in this region. The closest region to build a pyramid in is between $int($mindist) and $int($maxdist) regions away." - + @@ -7512,7 +7417,7 @@ - "$unit($mage) weight $building($building)." + "$unit($mage) weiht $building($building)." "$unit($mage) blesses $building($building)." @@ -7614,16 +7519,6 @@ "$unit($mage) casts $spell($spell). $int($amount) fighters are temporarily losing some of their memories." - - - - - - - "$unit($mage) ruft $int($amount) $race($race, 0) zu Hilfe." - "$unit($mage) calls upon the help of $int($amount) $race($race, 0)." - - @@ -7643,7 +7538,7 @@ "Heer $int($index)($abbrev): $int($dead) Tote, $int($fled) Geflohene, $int($survived) Überlebende." "Army $int($index)($abbrev): $int($dead) dead, $int($fled) fled, $int($survived) survivors." - + diff --git a/res/core/resources/horse.xml b/res/core/resources/horse.xml index 53699c696..608fca20a 100644 --- a/res/core/resources/horse.xml +++ b/res/core/resources/horse.xml @@ -1,11 +1,6 @@ - + - - + - - - - diff --git a/res/core/resources/hp.xml b/res/core/resources/hp.xml index fb1b6e32f..aa0ad4d29 100644 --- a/res/core/resources/hp.xml +++ b/res/core/resources/hp.xml @@ -1,5 +1,4 @@ - diff --git a/res/core/resources/iron.xml b/res/core/resources/iron.xml index 7bc4cb428..70d5c1080 100644 --- a/res/core/resources/iron.xml +++ b/res/core/resources/iron.xml @@ -1,12 +1,9 @@ - - - - - + + + + - - diff --git a/res/core/resources/laen.xml b/res/core/resources/laen.xml index 571026a0a..4099f5ca9 100644 --- a/res/core/resources/laen.xml +++ b/res/core/resources/laen.xml @@ -1,10 +1,7 @@ - - - - - + + + + - - diff --git a/res/core/resources/log.xml b/res/core/resources/log.xml index 012fe9a20..e3710d496 100644 --- a/res/core/resources/log.xml +++ b/res/core/resources/log.xml @@ -1,13 +1,8 @@ - - - - - + + + + - - - - diff --git a/res/core/resources/mallorn.xml b/res/core/resources/mallorn.xml index 2d301758e..3dff091c6 100644 --- a/res/core/resources/mallorn.xml +++ b/res/core/resources/mallorn.xml @@ -1,13 +1,8 @@ - - - - - + + + + - - - - diff --git a/res/core/resources/peasant.xml b/res/core/resources/peasant.xml index 32e1e1ca1..bce23430c 100644 --- a/res/core/resources/peasant.xml +++ b/res/core/resources/peasant.xml @@ -1,5 +1,4 @@ - diff --git a/res/core/resources/stone.xml b/res/core/resources/stone.xml index c227dcc5c..e1c5651ed 100644 --- a/res/core/resources/stone.xml +++ b/res/core/resources/stone.xml @@ -1,11 +1,9 @@ - - - - - + + + + - diff --git a/res/core/weapons/axe.xml b/res/core/weapons/axe.xml index 80a872ad7..3f97a5b8a 100644 --- a/res/core/weapons/axe.xml +++ b/res/core/weapons/axe.xml @@ -1,7 +1,6 @@ - diff --git a/res/core/weapons/greatbow.xml b/res/core/weapons/greatbow.xml index 10b270e55..32f07a41e 100644 --- a/res/core/weapons/greatbow.xml +++ b/res/core/weapons/greatbow.xml @@ -1,7 +1,6 @@ - diff --git a/res/core/weapons/greatsword.xml b/res/core/weapons/greatsword.xml index cd48b8296..56285f6af 100644 --- a/res/core/weapons/greatsword.xml +++ b/res/core/weapons/greatsword.xml @@ -1,7 +1,6 @@ - diff --git a/res/core/weapons/halberd.xml b/res/core/weapons/halberd.xml index 5025f4793..7abc86902 100644 --- a/res/core/weapons/halberd.xml +++ b/res/core/weapons/halberd.xml @@ -1,7 +1,6 @@ - diff --git a/res/core/weapons/lance.xml b/res/core/weapons/lance.xml index abbb7f31f..4a02bc06f 100644 --- a/res/core/weapons/lance.xml +++ b/res/core/weapons/lance.xml @@ -1,7 +1,6 @@ - diff --git a/res/core/weapons/mallornlance.xml b/res/core/weapons/mallornlance.xml index 0186143e4..c67390d52 100644 --- a/res/core/weapons/mallornlance.xml +++ b/res/core/weapons/mallornlance.xml @@ -1,7 +1,6 @@ - diff --git a/res/core/weapons/rustyaxe.xml b/res/core/weapons/rustyaxe.xml index 2ff19570c..fea6b8642 100644 --- a/res/core/weapons/rustyaxe.xml +++ b/res/core/weapons/rustyaxe.xml @@ -1,7 +1,6 @@ - diff --git a/res/core/weapons/rustyhalberd.xml b/res/core/weapons/rustyhalberd.xml index c1b1f69a9..3f0bd93b7 100644 --- a/res/core/weapons/rustyhalberd.xml +++ b/res/core/weapons/rustyhalberd.xml @@ -1,7 +1,6 @@ - diff --git a/res/e3a/armor/plate.xml b/res/e3a/armor/plate.xml index 29cabbf1a..79391fbcb 100644 --- a/res/e3a/armor/plate.xml +++ b/res/e3a/armor/plate.xml @@ -1,7 +1,6 @@ - - + diff --git a/res/e3a/armor/scale.xml b/res/e3a/armor/scale.xml index 7039b4008..1038f4d6c 100644 --- a/res/e3a/armor/scale.xml +++ b/res/e3a/armor/scale.xml @@ -1,7 +1,6 @@ - - + diff --git a/res/e3a/armor/towershield.xml b/res/e3a/armor/towershield.xml index e80c03523..38e4f0928 100644 --- a/res/e3a/armor/towershield.xml +++ b/res/e3a/armor/towershield.xml @@ -1,7 +1,6 @@ - - + diff --git a/res/e3a/buildings.xml b/res/e3a/buildings.xml index 8ca30d27d..9eeca952f 100644 --- a/res/e3a/buildings.xml +++ b/res/e3a/buildings.xml @@ -3,23 +3,22 @@ - + - - + - + - + - + diff --git a/res/e3a/equipment.xml b/res/e3a/equipment.xml index bbd2ac5b7..9fe133f48 100644 --- a/res/e3a/equipment.xml +++ b/res/e3a/equipment.xml @@ -1,78 +1,9 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/res/e3a/items.xml b/res/e3a/items.xml index 7d7e6b286..0399043e5 100644 --- a/res/e3a/items.xml +++ b/res/e3a/items.xml @@ -7,83 +7,72 @@ - - + - - + - - + - - + - - + - - + - - + - - + - + - - - - + diff --git a/res/e3a/races.xml b/res/e3a/races.xml index 99c3420af..8b0cfae6d 100644 --- a/res/e3a/races.xml +++ b/res/e3a/races.xml @@ -8,9 +8,8 @@ - + - @@ -32,11 +31,9 @@ - + - - @@ -47,11 +44,9 @@ - + - - @@ -76,11 +71,13 @@ - + - - @@ -104,9 +101,8 @@ - + - @@ -124,10 +120,12 @@ - + - - @@ -144,9 +142,8 @@ - + - @@ -167,9 +164,12 @@ - + - @@ -192,9 +192,8 @@ - + - @@ -219,9 +218,8 @@ - + - @@ -241,9 +239,8 @@ - + - @@ -263,9 +260,8 @@ - + - @@ -287,9 +283,8 @@ - + - @@ -311,9 +306,8 @@ - + - @@ -334,9 +328,8 @@ - + - @@ -361,9 +354,8 @@ - + - @@ -384,9 +376,8 @@ - + - @@ -409,9 +400,8 @@ - + - @@ -435,10 +425,8 @@ - + - - @@ -460,9 +448,8 @@ - + - @@ -484,9 +471,8 @@ - + - @@ -507,9 +493,8 @@ - + - @@ -535,9 +520,8 @@ - + - @@ -559,9 +543,8 @@ - + - @@ -582,9 +565,8 @@ - + - @@ -607,24 +589,21 @@ - - + - + - + - - - + @@ -672,77 +651,62 @@ - + - - + - - + - - + - + - - + - + - + - - + - - - - - - - - - + - - - + @@ -768,9 +732,8 @@ - - - + + @@ -787,10 +750,8 @@ - + - - @@ -806,9 +767,8 @@ - - - + + @@ -823,10 +783,8 @@ - + - - @@ -839,9 +797,8 @@ - - - + + @@ -855,10 +812,8 @@ - + - - @@ -871,16 +826,13 @@ - + - - + - - @@ -889,35 +841,4 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/res/e3a/resources/iron.xml b/res/e3a/resources/iron.xml index b245da358..01e0d8d6d 100644 --- a/res/e3a/resources/iron.xml +++ b/res/e3a/resources/iron.xml @@ -1,11 +1,8 @@ - - - - - + + + + - - diff --git a/res/e3a/resources/mallornseed.xml b/res/e3a/resources/mallornseed.xml index 4a348c212..576035b34 100644 --- a/res/e3a/resources/mallornseed.xml +++ b/res/e3a/resources/mallornseed.xml @@ -1,4 +1,4 @@ - + diff --git a/res/e3a/resources/seed.xml b/res/e3a/resources/seed.xml index 21652f364..62c971540 100644 --- a/res/e3a/resources/seed.xml +++ b/res/e3a/resources/seed.xml @@ -1,4 +1,4 @@ - + diff --git a/res/e3a/resources/stone.xml b/res/e3a/resources/stone.xml index 746b79c21..d8fd08573 100644 --- a/res/e3a/resources/stone.xml +++ b/res/e3a/resources/stone.xml @@ -1,10 +1,8 @@ - - - - - + + + + - diff --git a/res/e3a/spellbooks/gray.xml b/res/e3a/spellbooks/gray.xml index 5967d6265..9c0035e78 100644 --- a/res/e3a/spellbooks/gray.xml +++ b/res/e3a/spellbooks/gray.xml @@ -107,7 +107,6 @@ - diff --git a/res/e3a/spells.xml b/res/e3a/spells.xml index ec656c18f..74eb89146 100644 --- a/res/e3a/spells.xml +++ b/res/e3a/spells.xml @@ -665,9 +665,6 @@ - - - diff --git a/res/e3a/weapons.xml b/res/e3a/weapons.xml index 052266a02..fdc8f1f3a 100644 --- a/res/e3a/weapons.xml +++ b/res/e3a/weapons.xml @@ -1,18 +1,18 @@ - - - + + + diff --git a/res/e3a/weapons/axe.xml b/res/e3a/weapons/axe.xml new file mode 100644 index 000000000..6066c4cfc --- /dev/null +++ b/res/e3a/weapons/axe.xml @@ -0,0 +1,13 @@ + + + + + + + + + + + + + diff --git a/res/e3a/weapons/greatbow.xml b/res/e3a/weapons/greatbow.xml index 7f08427c8..745d1793d 100644 --- a/res/e3a/weapons/greatbow.xml +++ b/res/e3a/weapons/greatbow.xml @@ -4,8 +4,7 @@ * has lower damage --> - - + diff --git a/res/e3a/weapons/halberd.xml b/res/e3a/weapons/halberd.xml index 2c11b62fc..c22e020b4 100644 --- a/res/e3a/weapons/halberd.xml +++ b/res/e3a/weapons/halberd.xml @@ -3,8 +3,7 @@ 1. you cannt use this with cavalry --> - - + diff --git a/res/e3a/weapons/lance.xml b/res/e3a/weapons/lance.xml new file mode 100644 index 000000000..285862484 --- /dev/null +++ b/res/e3a/weapons/lance.xml @@ -0,0 +1,12 @@ + + + + + + + + + + + + diff --git a/res/e3a/weapons/mallornlance.xml b/res/e3a/weapons/mallornlance.xml index 1fcad08c8..8eb25ceb4 100644 --- a/res/e3a/weapons/mallornlance.xml +++ b/res/e3a/weapons/mallornlance.xml @@ -1,7 +1,6 @@ - - + diff --git a/res/core/weapons/rep_crossbow.xml b/res/e3a/weapons/rep_crossbow.xml similarity index 87% rename from res/core/weapons/rep_crossbow.xml rename to res/e3a/weapons/rep_crossbow.xml index 66e3f9fc2..02f0d865f 100644 --- a/res/core/weapons/rep_crossbow.xml +++ b/res/e3a/weapons/rep_crossbow.xml @@ -1,7 +1,6 @@ - - + diff --git a/res/e3a/weapons/rustyhalberd.xml b/res/e3a/weapons/rustyhalberd.xml index ed25d5db7..a53aec515 100644 --- a/res/e3a/weapons/rustyhalberd.xml +++ b/res/e3a/weapons/rustyhalberd.xml @@ -3,8 +3,7 @@ 1. you cannot use this with cavalry --> - - + diff --git a/res/eressea/artrewards.xml b/res/eressea/artrewards.xml index 6cb836c52..b18fd5b20 100644 --- a/res/eressea/artrewards.xml +++ b/res/eressea/artrewards.xml @@ -1,32 +1,14 @@ - - - - - - - - - - - - - - - - - + - - - + diff --git a/res/eressea/buildings.xml b/res/eressea/buildings.xml index 64d65cff0..670ab484e 100644 --- a/res/eressea/buildings.xml +++ b/res/eressea/buildings.xml @@ -4,4 +4,5 @@ + diff --git a/res/eressea/equipment.xml b/res/eressea/equipment.xml index d78705a06..efd4f2a3b 100644 --- a/res/eressea/equipment.xml +++ b/res/eressea/equipment.xml @@ -2,18 +2,18 @@ - + - + - + @@ -21,30 +21,30 @@ - + - + - + - + - + - + @@ -58,20 +58,16 @@ - + - + - - - - @@ -273,11 +269,6 @@ - - - - - diff --git a/res/eressea/items.xml b/res/eressea/items.xml index 8b2df7add..3f5cc3d17 100644 --- a/res/eressea/items.xml +++ b/res/eressea/items.xml @@ -17,21 +17,15 @@ - - - + - - - + - - - + @@ -44,65 +38,38 @@ - - - + - - - + - - - - - - - - - - - - - - - - + - - - + - - - + - - - + - - - + @@ -111,27 +78,13 @@ - - - - - - - - - - - - - - + + - - - + diff --git a/res/eressea/races.xml b/res/eressea/races.xml index 201a6a797..6deefacc9 100644 --- a/res/eressea/races.xml +++ b/res/eressea/races.xml @@ -1,7 +1,7 @@ - - + - @@ -27,9 +26,8 @@ - + - @@ -61,9 +59,8 @@ - + - @@ -90,9 +87,8 @@ - + - @@ -118,9 +114,8 @@ - + - @@ -148,9 +143,8 @@ - + - @@ -178,9 +172,8 @@ - + - @@ -209,9 +202,8 @@ - + - @@ -244,9 +236,8 @@ - + - @@ -275,9 +266,8 @@ - + - @@ -308,9 +298,8 @@ - + - @@ -339,10 +328,8 @@ - + - - @@ -370,9 +357,8 @@ - + - @@ -401,9 +387,8 @@ - + - @@ -431,9 +416,8 @@ - + - @@ -463,9 +447,8 @@ - + - @@ -495,9 +478,8 @@ - + - @@ -525,9 +507,8 @@ - + - @@ -558,9 +539,8 @@ - + - @@ -589,25 +569,22 @@ - - + - + - + - - - + @@ -671,69 +648,61 @@ - + - - + - - + - - + - + - - + - + - + - - + - + - - + - - @@ -742,11 +711,8 @@ - + - - - @@ -755,11 +721,8 @@ - + - - - @@ -769,22 +732,13 @@ - - - - - - - + - - - + - @@ -801,9 +755,8 @@ - + - @@ -827,9 +780,8 @@ - + - @@ -860,9 +812,8 @@ - + - @@ -889,10 +840,8 @@ - + - - @@ -921,9 +870,8 @@ - + - @@ -954,8 +902,6 @@ - - @@ -978,7 +924,7 @@ - + @@ -1011,11 +957,11 @@ - + - + @@ -1023,7 +969,7 @@ - + @@ -1037,9 +983,8 @@ - - - + + @@ -1055,10 +1000,8 @@ - + - - @@ -1073,9 +1016,8 @@ - - - + + @@ -1089,10 +1031,8 @@ - + - - @@ -1104,9 +1044,8 @@ - - - + + @@ -1119,10 +1058,8 @@ - + - - @@ -1134,43 +1071,12 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + - - + - - @@ -1178,9 +1084,10 @@ - + + - @@ -1208,40 +1115,8 @@ - - - - - @@ -1266,9 +1141,8 @@ - + - @@ -1298,7 +1172,7 @@ - + @@ -1328,10 +1202,8 @@ - + - - @@ -1340,31 +1212,5 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/res/eressea/spellbooks/gray.xml b/res/eressea/spellbooks/gray.xml index a7f718f2a..ae7a1f611 100644 --- a/res/eressea/spellbooks/gray.xml +++ b/res/eressea/spellbooks/gray.xml @@ -123,7 +123,6 @@ - diff --git a/res/eressea/spells.xml b/res/eressea/spells.xml index 5af11913e..1d762f4bd 100644 --- a/res/eressea/spells.xml +++ b/res/eressea/spells.xml @@ -471,9 +471,6 @@ - - - diff --git a/res/eressea/strings.xml b/res/eressea/strings.xml index 61a35ebe5..8afeabbca 100644 --- a/res/eressea/strings.xml +++ b/res/eressea/strings.xml @@ -116,18 +116,6 @@ Eine Geburtstagstorte mit 10 Kerzen. Herzlichen Glückwunsch, Eressea! A birthday cake with 10 candles. Happy Birthday, Eressea! - - Dieses Fluggerät aus der Schmiede der Zwerge von Celeband galt wie die - 'Ebene der Herausforderung' seit Urzeiten als verschollen, ja man - zweifelte seine Existenz an. Die Sage überliefert, das derjenige, der - sie auf der Spitze des Turmes seiner Gesinnung benutzt, als einziger - die 'Ebene der Herausforderungen' verlassen kann. - - - Glückwunsch, mein Kind. Du bist im Besitz des mächtigsten - Artefaktes Eresseas. Ein Fluch, sagt man, liege auf ihm, denn - niemand hat es bisher lange sein Eigen genannt... - Kleines trockenes Dauergebäck, m od. s; - u. -es, - u. -e @@ -352,37 +340,9 @@ - - Horn des Tanzes - horn of dancing - - - Hörner des Tanzes - horns of dancing - - - Miniatur einer Akademie der Künste - academy of arts in a box - - - Miniaturen einer Akademie der Künste - academies of arts in a box - - - Miniatur einer Skulptur - art sculpture in a box - - - Miniaturen einer Skulptur - art sculptures in a box - - - Gefangener Windgeist - trapped air elemental - - - Gefangene Windgeister - trapped air elementals + + Akademie der Künste + academy of arts Auratrank @@ -402,29 +362,6 @@ - - - Auge des Dämon - eye of the demon - oeil du démon - - - Augen des Dämon - eyes of the demon - oeil du démon - - - Schwinge des Greifen - wing of the gryphon - aile du griffon - - - Schwingen des Greifen - wings of the gryphon - ailes du griffon - - - Adamantium adamantium @@ -455,5 +392,14 @@ Adamantiumrüstungen adamantium plates - + + Katzenamulett + amulet of the kitten + amulette du chaton + + + amulets of the kitten + Katzenamulette + amulettes du chaton + diff --git a/res/items.xml b/res/items.xml deleted file mode 100644 index 108e6d398..000000000 --- a/res/items.xml +++ /dev/null @@ -1,3 +0,0 @@ - - - diff --git a/res/races.xml b/res/races.xml deleted file mode 100644 index fcfc1742b..000000000 --- a/res/races.xml +++ /dev/null @@ -1,14 +0,0 @@ - - - - - - - - - - - - - - diff --git a/res/races/aquarian.xml b/res/races/aquarian.xml index 776f17e93..19fd3aee7 100644 --- a/res/races/aquarian.xml +++ b/res/races/aquarian.xml @@ -1,7 +1,6 @@ - + - diff --git a/res/races/cat.xml b/res/races/cat.xml index 818b24b36..5986c223c 100644 --- a/res/races/cat.xml +++ b/res/races/cat.xml @@ -1,7 +1,6 @@ - + - diff --git a/res/races/demon.xml b/res/races/demon.xml index 9f97d4d8f..69d98145f 100644 --- a/res/races/demon.xml +++ b/res/races/demon.xml @@ -1,7 +1,11 @@ - + - diff --git a/res/races/dragon.xml b/res/races/dragon.xml index 7a6dee3a7..f42037312 100644 --- a/res/races/dragon.xml +++ b/res/races/dragon.xml @@ -1,9 +1,10 @@ - - + + - - diff --git a/res/races/dwarf.xml b/res/races/dwarf.xml index 20fb874c0..043b76aa7 100644 --- a/res/races/dwarf.xml +++ b/res/races/dwarf.xml @@ -1,7 +1,6 @@ - + - @@ -30,4 +29,4 @@ - \ No newline at end of file + diff --git a/res/races/elf.xml b/res/races/elf.xml index dfbd2f2ec..683ee823b 100644 --- a/res/races/elf.xml +++ b/res/races/elf.xml @@ -1,7 +1,6 @@ - + - @@ -26,4 +25,4 @@ - \ No newline at end of file + diff --git a/res/races/goblin-2.xml b/res/races/goblin-2.xml deleted file mode 100644 index e91781aa6..000000000 --- a/res/races/goblin-2.xml +++ /dev/null @@ -1,22 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - diff --git a/res/races/goblin-3.xml b/res/races/goblin-3.xml index a59ee6f77..a65d4c99a 100644 --- a/res/races/goblin-3.xml +++ b/res/races/goblin-3.xml @@ -1,10 +1,12 @@ - + - - diff --git a/res/races/goblin.xml b/res/races/goblin.xml index af097396c..84d2c5079 100644 --- a/res/races/goblin.xml +++ b/res/races/goblin.xml @@ -1,7 +1,11 @@ - + - diff --git a/res/races/halfling.xml b/res/races/halfling.xml index 3875ca414..3628d2b35 100644 --- a/res/races/halfling.xml +++ b/res/races/halfling.xml @@ -1,8 +1,7 @@ - + - - + diff --git a/res/races/human.xml b/res/races/human.xml index 2e4b94af2..f91ba7daf 100644 --- a/res/races/human.xml +++ b/res/races/human.xml @@ -1,7 +1,6 @@ - + - diff --git a/res/races/insect.xml b/res/races/insect.xml index cecbf0193..75e16f7af 100644 --- a/res/races/insect.xml +++ b/res/races/insect.xml @@ -1,7 +1,6 @@ - + - @@ -27,4 +26,4 @@ - \ No newline at end of file + diff --git a/res/races/orc.xml b/res/races/orc.xml index d9d26ab25..4f4d96ed5 100644 --- a/res/races/orc.xml +++ b/res/races/orc.xml @@ -1,5 +1,5 @@ - + diff --git a/res/races/troll.xml b/res/races/troll.xml index f151126fb..9168a6d0e 100644 --- a/res/races/troll.xml +++ b/res/races/troll.xml @@ -1,7 +1,11 @@ - + - diff --git a/res/races/wyrm.xml b/res/races/wyrm.xml index 8569f4c19..dab1a9e1f 100644 --- a/res/races/wyrm.xml +++ b/res/races/wyrm.xml @@ -1,7 +1,10 @@ - - + + - diff --git a/res/races/youngdragon.xml b/res/races/youngdragon.xml index 541f68142..df10a44e9 100644 --- a/res/races/youngdragon.xml +++ b/res/races/youngdragon.xml @@ -1,8 +1,10 @@ - - + + - - diff --git a/res/races/zombie.xml b/res/races/zombie.xml index faecf021d..fdfe97d8e 100644 --- a/res/races/zombie.xml +++ b/res/races/zombie.xml @@ -1,9 +1,9 @@ - diff --git a/s/build b/s/build index 178fa4f43..4ee259573 100755 --- a/s/build +++ b/s/build @@ -1,8 +1,5 @@ #!/bin/sh -ROOT=`pwd` -while [ ! -d $ROOT/.git ]; do - ROOT=`dirname $ROOT` -done +ROOT=$(git rev-parse --show-toplevel) [ -z "$BUILD" ] && BUILD=Debug if [ -z "$JOBS" ] ; then @@ -33,16 +30,15 @@ if [ ! -d $ROOT/$BUILD ]; then exit fi -git submodule update - -if [ -z `which tolua` ]; then -echo "build tolua" -cd $ROOT/tolua ; make -fi - echo "build eressea" cd $ROOT/$BUILD +BRANCH=$(git status -s -b | head -1 | cut -d\ -f 2 | sed 's/\..*//') +if [ "$BRANCH"=="master" ] ; then VERSION=$(git describe --match 'v*.*.*' --tags | sed 's/^v//') cmake -DERESSEA_VERSION="$VERSION" .. +else +REV=$(git rev-parse --short HEAD) +cmake -DERESSEA_BUILDNO="$REV" .. +fi make $MAKEOPTS && make test cd $OLDPWD diff --git a/s/cmake-init b/s/cmake-init index 35378d6a5..1ce7eccd3 100755 --- a/s/cmake-init +++ b/s/cmake-init @@ -1,25 +1,19 @@ #!/bin/sh -ROOT=$(pwd) -while [ ! -d $ROOT/.git ]; do - ROOT=$(dirname $ROOT) - if [ "$ROOT" == "/" ; then - echo "could not find root, are you in the git repository?" - exit - fi -done +ROOT=$(git rev-parse --show-toplevel) [ -z $BUILD ] && BUILD=Debug -MACHINE=`uname -m` [ -z "$CC" ] && [ ! -z `which clang` ] && CC="clang" [ -z "$CC" ] && [ ! -z `which gcc` ] && CC="gcc" [ -z "$CC" ] && [ ! -z `which tcc` ] && CC="tcc" [ -z "$CC" ] && [ ! -z `which cc` ] && CC="cc" + +MACHINE=`$CC -dumpmachine` +[ -z $MACHINE ] && MACHINE=`uname -m` BIN_DIR="$ROOT/build-$MACHINE-$CC-$BUILD" mkdir -p $BIN_DIR rm -f $BUILD ln -sf $BIN_DIR $BUILD -MACHINE=$(gcc -dumpmachine) rm -f CMakeCache.txt # use anything installed in /opt or /usr @@ -34,17 +28,31 @@ if [ -d $HOME/usr ]; then PREFIX_PATH=$HOME/usr:$HOME/usr/local:$PREFIX_PATH fi +DEST=$(dirname $ROOT)/server ARGS=" -DCMAKE_MODULE_PATH=$ROOT/cmake/Modules \ -DCMAKE_BUILD_TYPE=$BUILD \ -DCMAKE_LIBRARY_PATH=$LIBRARY_PATH \ -DCMAKE_INCLUDE_PATH=$INCLUDE_PATH \ -DCMAKE_PREFIX_PATH=$PREFIX_PATH \ - -DCMAKE_INSTALL_PREFIX=$HOME/eressea/server" + -DCMAKE_INSTALL_PREFIX=$DEST" + +git submodule update --init path="$(which tolua)" if [ "$HAVE_TOLUA" = "0" ] || [ -z $path ] ; then echo "tolua is not installed, building from source" - cd $ROOT/tolua ; make + cd $ROOT + if [ ! -d tolua ]; then + LUA_VERSION="5.2" + if [ -d /usr/include/lua5.1 ] || [ -d /usr/local/include/lua5.1 ]; then + LUA_VERSION="5.1" + fi + echo "fetching tolua ${LUA_VERSION} from github..." + git clone https://github.com/ennorehling/tolua-${LUA_VERSION}.git tolua + fi + echo "building tolua..." + cd tolua + make ARGS="$ARGS -DPC_TOLUA_DIR=$ROOT/tolua" else echo "tolua is $path" diff --git a/s/install b/s/install index 18cc2393f..962961063 100755 --- a/s/install +++ b/s/install @@ -8,14 +8,11 @@ while [ ! -d $ROOT/.git ]; do fi done -DEST=$(dirname $ROOT)/server - -MACHINE=`uname -m` [ -z "$CC" ] && [ ! -z `which clang` ] && CC="clang" [ -z "$CC" ] && [ ! -z `which gcc` ] && CC="gcc" [ -z "$CC" ] && [ ! -z `which tcc` ] && CC="tcc" [ -z "$CC" ] && [ ! -z `which cc` ] && CC="cc" -BIN_DIR="build-$MACHINE-$CC-Debug" +BIN_DIR="Debug" cd $ROOT/$BIN_DIR make install diff --git a/s/preview b/s/preview index 79411aea6..68fe6e39f 100755 --- a/s/preview +++ b/s/preview @@ -22,11 +22,12 @@ exit $2 # otherwise function build() { assert_dir $SOURCE cd $SOURCE +rm -rf crypto tolua git fetch || abort "failed to update source. do you have local changes?" [ -z $1 ] || git checkout $1 -git pull +git pull -q git submodule update -s/build || abort "build failed." +s/build > /dev/null || abort "build failed." } function assert_file() { @@ -44,13 +45,6 @@ function assert_dir() { [ -d $1 ] || abort "missing directory: $1" } -function version() { -assert_dir $SOURCE -cd $SOURCE -build=$(grep BUILD src/buildno.h | awk '{ print $3 }') -echo "eressea build $build" -} - function setup() { assert_dir $SOURCE assert_dir $LIVE @@ -85,9 +79,9 @@ SUPP="$SOURCE/share/debian-7_8.supp" SERVER="$SOURCE/Debug/eressea/eressea" VALGRIND=$(which valgrind) if [ ! -z $VALGRIND ]; then -SERVER="$VALGRIND --suppressions=$SUPP --error-exitcode=1 --leak-check=no $SERVER" +SERVER="$VALGRIND --quiet --suppressions=$SUPP --error-exitcode=1 --leak-check=no $SERVER" fi -$SERVER -v$verbose -t$turn -re$game $SOURCE/scripts/run-turn.lua +$SERVER -v$verbose -t$turn $SOURCE/scripts/run-turn.lua let turn=$turn+1 [ -e data/$turn.dat ] || abort "no data file created" } @@ -137,9 +131,6 @@ shift $((OPTIND-1)) while [ ! -z $1 ]; do case "$1" in -"version") - version - ;; "build") shift build $* @@ -169,7 +160,7 @@ case "$1" in done if [ $sent -eq 0 ]; then if [ -e ../$factions ]; then - for faction in $(cat ../$factions) ; do + for faction in $(grep -v -E '^#' ../$factions) ; do send $faction done fi diff --git a/s/runtests b/s/runtests index d0b3432e8..e42640de1 100755 --- a/s/runtests +++ b/s/runtests @@ -1,11 +1,7 @@ #!/bin/bash set -e -ROOT=$(pwd) -while [ ! -d $ROOT/.git ]; do - ROOT=$(dirname $ROOT) -done - +ROOT=$(git rev-parse --show-toplevel) [ -z $BUILD ] && BUILD=Debug ; export BUILD if [ ! -e $ROOT/$BUILD ]; then @@ -16,10 +12,9 @@ fi $ROOT/$BUILD/eressea/test_eressea cd $ROOT [ -e eressea.ini ] || ln -sf conf/eressea.ini -$ROOT/$BUILD/eressea/eressea -v0 scripts/run-tests.lua -$ROOT/$BUILD/eressea/eressea -v0 scripts/run-tests-e2.lua -$ROOT/$BUILD/eressea/eressea -v0 scripts/run-tests-e3.lua -$ROOT/$BUILD/eressea/eressea -v0 scripts/run-tests-e4.lua -rm -rf data reports orders.txt score score.alliances +$ROOT/$BUILD/eressea/eressea -v1 scripts/run-tests.lua +$ROOT/$BUILD/eressea/eressea -v1 scripts/run-tests-e2.lua +$ROOT/$BUILD/eressea/eressea -v1 scripts/run-tests-e3.lua +rm -rf data reports orders.txt score score.alliances datum turn cd $OLDWPD diff --git a/s/setup b/s/setup index 0839d5b8f..e3e8e113d 100755 --- a/s/setup +++ b/s/setup @@ -1,5 +1,15 @@ #!/bin/bash +ROOT=$(pwd) +while [ ! -d $ROOT/.git ]; do + ROOT=$(dirname $ROOT) + if [ "/" = "$ROOT" ]; then + echo "could not find root, are you in the git repository?" + exit + fi +done +ERESSEA=$(dirname $ROOT) + function abort() { echo $1 [ -z $2 ] && exit -1 @@ -37,7 +47,6 @@ while getopts :d:g:r:s:hfn o; do done [ $game -gt 0 ] || abort "must use a positive integer for game id" -[ -d $ERESSEA ] || abort "invalid or missing env variable ERESSEA ($ERESSEA)" [ -z $SOURCE ] && SOURCE=$ERESSEA/$src [ -d $SOURCE ] || abort "invalid source directory $SOURCE" [ -z $rules ] && rules=e$game @@ -46,7 +55,8 @@ done [ -e $TOOLS ] || TOOLS=$SOURCE/bin [ -z $INIFILE ] && INIFILE=$TOOLS/inifile [ -e $INIFILE ] || INIFILE=$TOOLS/iniparser/inifile -#[ -e $INIFILE ] || abort "tool is not installed: $INIFILE" + +[ -e $SOURCE/conf/$rules/config.xml ] || abort "cannot find conf/$rules/config.xml" cd $ERESSEA if [ -d $dir ] ; then @@ -84,8 +94,10 @@ touch eressea.ini } ini_start -ini_sec eressea -ini_add eressea locales de,en +ini_sec game +ini_add game locales de,en +ini_add game id $game +ini_add game start 1 ini_sec lua ini_add lua install $SOURCE ini_add lua paths $SOURCE/scripts:$SOURCE/lunit diff --git a/s/travis-build b/s/travis-build index 414a70f80..9293ac12d 100755 --- a/s/travis-build +++ b/s/travis-build @@ -10,6 +10,12 @@ $BUILD/iniparser/inifile eressea.ini add lua:paths lunit:scripts fi } +integration_tests() { +cd tests +./write-reports.sh +./run-turn.sh +} + set -e [ -z $BUILD ] && BUILD=Debug ; export BUILD s/cmake-init @@ -17,6 +23,5 @@ s/build cd $ROOT inifile s/runtests -cd tests -./write-reports.sh -./run-turn.sh + +integration_tests diff --git a/s/upgrade b/s/upgrade new file mode 100755 index 000000000..9d9d5a313 --- /dev/null +++ b/s/upgrade @@ -0,0 +1,14 @@ +#!/bin/sh +set -e + +ROOT=`pwd` +while [ ! -d $ROOT/.git ]; do + ROOT=`dirname $ROOT` +done + +cd $ROOT +git pull +git submodule update +s/build +s/runtests +s/install diff --git a/scripts/eressea/autoseed.lua b/scripts/eressea/autoseed.lua index 562c39361..9e5060f85 100644 --- a/scripts/eressea/autoseed.lua +++ b/scripts/eressea/autoseed.lua @@ -1,3 +1,4 @@ +if not config.autoseed then return nil end local autoseed = {} -- minimum required resources in the 7-hex neighborhood: @@ -64,9 +65,9 @@ local function seed(r, email, race, lang) assert(f) local u = unit.create(f, r) assert(u) - equip_unit(u, "new_faction") - equip_unit(u, "first_unit") - equip_unit(u, "first_" .. race, 7) -- disable old callbacks + equip_unit(u, "autoseed_faction") + equip_unit(u, "autoseed_unit") + equip_unit(u, "autoseed_" .. race, 7) unit.create(f, r, 5):set_skill("mining", 30) unit.create(f, r, 5):set_skill("quarrying", 30) f:set_origin(r) diff --git a/scripts/eressea/e2/init.lua b/scripts/eressea/e2/init.lua index ed996c395..722078741 100644 --- a/scripts/eressea/e2/init.lua +++ b/scripts/eressea/e2/init.lua @@ -11,7 +11,7 @@ return { require('eressea.tunnels'), require('eressea.ponnuki'), require('eressea.astral'), - require('eressea.locales'), +-- require('eressea.locales'), require('eressea.jsreport'), require('eressea.ents'), require('eressea.cursed') diff --git a/scripts/eressea/e3/rules.lua b/scripts/eressea/e3/rules.lua index c0ac8978a..e7a54ff41 100644 --- a/scripts/eressea/e3/rules.lua +++ b/scripts/eressea/e3/rules.lua @@ -1,31 +1,3 @@ --- when appending to this, make sure the item has a canuse-function! -local goblin_denied = " plate lance mallornlance greatbow axe greatsword halberd rustyaxe rustyhalberd towershield scale " -function item_canuse(u, iname) - local race = u.race - if race=="goblin" then - if string.find(goblin_denied, " " .. iname .. " ") then - return false - end - end - if iname=="rep_crossbow" then - -- only dwarves and halflings allowed to use repeating crossbow - return race=="dwarf" or race=="halfling" - end - if iname=="scale" then - -- only dwarves and halflings can use scale - return race=="dwarf" or race=="halfling" - end - if iname=="towershield" then - -- only dwarves allowed to use towershield - return race=="dwarf" - end - if iname=="greatbow" then - -- only elves use greatbow - return race=="elf" - end - return true -end - function building_taxes(b, blevel) btype = b.type if btype=="castle" then diff --git a/scripts/eressea/e4/init.lua b/scripts/eressea/e4/init.lua deleted file mode 100644 index 32c0b8498..000000000 --- a/scripts/eressea/e4/init.lua +++ /dev/null @@ -1,11 +0,0 @@ -require 'eressea.e3.rules' -require 'eressea.spells' - -eressea.log.debug("rules for game E4") - -return { - require('eressea'), - -- require('eressea.markets'), - require('eressea.frost'), - require('eressea.ents') -} diff --git a/scripts/eressea/embassy.lua b/scripts/eressea/embassy.lua index efbe248b7..93ff66d7c 100644 --- a/scripts/eressea/embassy.lua +++ b/scripts/eressea/embassy.lua @@ -1,12 +1,14 @@ -- Muschelplateau +if not config.embassy then return nil end + local embassy = {} local home = nil -- global exports (use item) function use_seashell(u, amount) -- Muschelplateau... - local visit = u.faction.objects:get("embassy_muschel") + local visit = u.faction:get_key('mupL') if visit and u.region~= home then local turns = get_turn() - visit local msg = message.create('msg_event') @@ -32,10 +34,10 @@ function embassy.update() eressea.log.debug("updating embassies in " .. tostring(home)) local u for u in home.units do - if u.faction.objects:get('embassy_muschel')==nil then + if u.faction:get_key('mupL')==0 then if (u.faction:add_item('seashell', 1)>0) then eressea.log.debug("new seashell for " .. tostring(u.faction)) - u.faction.objects:set('embassy_muschel', get_turn()) + u.faction:set_key('mupL', get_turn()) end end end diff --git a/scripts/eressea/ents.lua b/scripts/eressea/ents.lua index c764d8e0a..7808917fa 100644 --- a/scripts/eressea/ents.lua +++ b/scripts/eressea/ents.lua @@ -2,7 +2,7 @@ local function create_ents(r, number) local f = get_faction(666) if f~=nil and number>0 then u = unit.create(f, r, number, "ent") - u.name = "Wütende Ents" + u.name = "Rasende Ents" u:set_skill("perception", 2) msg = message.create("entrise") @@ -13,21 +13,11 @@ local function create_ents(r, number) return nil end -local function repair_ents(r) - for u in r.units do - if u.faction.id==666 and u.race == "undead" and u.name == "Wütende Ents" then - eressea.log.info("ent repair: " .. tostring(u)) - u.race = "ent" - end - end -end - local ents = {} function ents.update() local r for r in regions() do - repair_ents(r) if r:get_flag(0) then -- RF_CHAOTIC if r.terrain == "plain" and r:get_resource("tree")==0 then if math.random(3)==1 then diff --git a/scripts/eressea/eternath.lua b/scripts/eressea/eternath.lua index 858a8d462..063577b74 100644 --- a/scripts/eressea/eternath.lua +++ b/scripts/eressea/eternath.lua @@ -1,5 +1,5 @@ -- DEPRECATED - +if not config.eternath then return nil end -- implements parts of a quest in E2 -- this module is deprecated, because it puts functions in the global environment for at_building_action diff --git a/scripts/eressea/ponnuki.lua b/scripts/eressea/ponnuki.lua index f220aa380..96bb0b5f1 100644 --- a/scripts/eressea/ponnuki.lua +++ b/scripts/eressea/ponnuki.lua @@ -1,3 +1,4 @@ +if not config.ponnuki then return nil end local ponnuki = {} local directions = { "NW", "NO", "O", "SO", "SW", "W" } @@ -25,11 +26,10 @@ function ponnuki.init() local home = get_region(-67, -5) local f = get_faction(666) if home and f then - u = add_unit(f, home) + u = unit.create(f, home, 1, "illusion") u.id = atoi36("ponn") u.name = "Ponnuki" u.info = "Go, Ponnuki, Go!" - u.race = "illusion" u:set_racename("Ritter von Go") else eressea.log.error("Ponnuki cannot find Magrathea") diff --git a/scripts/eressea/resources.lua b/scripts/eressea/resources.lua index 94908c1ab..fa6e1c4da 100644 --- a/scripts/eressea/resources.lua +++ b/scripts/eressea/resources.lua @@ -1,16 +1,5 @@ -- global functions used in items.xml -if not item_canuse then - -- define a default, everyone can use everything - function item_canuse(u, iname) - return true - end -end - -function peasant_getresource(u) - return u.region:get_resource("peasant") -end - function peasant_changeresource(u, delta) local p = u.region:get_resource("peasant") p = p + delta @@ -21,10 +10,6 @@ function peasant_changeresource(u, delta) return p end -function hp_getresource(u) - return u.hp -end - function hp_changeresource(u, delta) local hp = u.hp + delta @@ -38,8 +23,47 @@ function hp_changeresource(u, delta) return hp end +local function mallorn_region(r) + return r:get_flag(1) -- RF_MALLORN +end + +function seed_limit(r) + if mallorn_region(r) then + return 0 + end + return r:get_resource("seed") +end + +function seed_produce(r, n) + if not mallorn_region(r) then + local seeds = r:get_resource("seed") + if seeds>=n then + r:set_resource("seed", seeds-n) + else + r:set_resource("seed", 0) + end + end +end + +function mallornseed_limit(r) + if mallorn_region(r) then + return r:get_resource("seed") + end + return 0 +end + +function mallornseed_produce(r, n) + if mallorn_region(r) then + local seeds = r:get_resource("seed") + if seeds>=n then + r:set_resource("seed", seeds-n) + else + r:set_resource("seed", 0) + end + end +end function horse_limit(r) - return r:get_resource("horse") + return r:get_resource("horse") end function horse_produce(r, n) @@ -52,9 +76,6 @@ function horse_produce(r, n) end function log_limit(r) --- if r:get_flag(1) then -- RF_MALLORN --- return 0 --- end return r:get_resource("tree") + r:get_resource("sapling") end @@ -75,7 +96,7 @@ function log_produce(r, n) end function mallorn_limit(r) - if not r:get_flag(1) then -- RF_MALLORN + if not mallorn_region(r) then return 0 end return r:get_resource("tree") + r:get_resource("sapling") diff --git a/scripts/eressea/wedding.lua b/scripts/eressea/wedding.lua index 812bd3269..2c06d9891 100644 --- a/scripts/eressea/wedding.lua +++ b/scripts/eressea/wedding.lua @@ -1,4 +1,5 @@ -- DEPRECATED +if not config.wedding then return nil end -- this script contains the action functions for the two portals -- used on the jadee/wildente wedding island. the two _action functions diff --git a/scripts/eressea/xmas.lua b/scripts/eressea/xmas.lua index 36e755f45..0316e6265 100644 --- a/scripts/eressea/xmas.lua +++ b/scripts/eressea/xmas.lua @@ -1,3 +1,5 @@ +if not config.xmas then return nil end + local gifts = { e2 = { { year = 2015, turn = 959, item = 'snowglobe', msg='santa_f' }, diff --git a/scripts/eressea/xmasitems.lua b/scripts/eressea/xmasitems.lua index b31691d72..27ea641ee 100644 --- a/scripts/eressea/xmasitems.lua +++ b/scripts/eressea/xmasitems.lua @@ -25,6 +25,7 @@ end function use_stardust(u, amount) local p = u.region:get_resource("peasant") + assert(p>0) p = math.ceil(1.5 * p) u.region:set_resource("peasant", p) local msg = usepotion_message(u, "stardust") @@ -62,9 +63,7 @@ end function use_snowman(u, amount) if amount>0 and u.region.terrain == "glacier" then - local man = unit.create(u.faction, u.region) - man.race = "snowman" - man.number = amount + local man = unit.create(u.faction, u.region, amount, "snowman") return amount end return -4 diff --git a/scripts/eressea/xmlconf.lua b/scripts/eressea/xmlconf.lua index 9d87f3f3e..84f29eceb 100644 --- a/scripts/eressea/xmlconf.lua +++ b/scripts/eressea/xmlconf.lua @@ -4,6 +4,8 @@ if config.install then end if config.rules then local rules = config.rules .. '/' - assert(0 == read_xml(confdir .. rules .. 'config.xml', confdir .. rules .. 'catalog.xml'), "could not load XML data, did you compile with LIBXML2 ?") assert(0 == eressea.config.read(rules .. 'config.json', confdir), "could not read JSON data") + assert(0 == read_xml(confdir .. rules .. 'rules.xml', confdir .. rules .. 'catalog.xml'), "could not load XML data, did you compile with LIBXML2 ?") + assert(0 == read_xml(confdir .. rules .. 'locales.xml', confdir .. rules .. 'catalog.xml'), "could not load XML data, did you compile with LIBXML2 ?") end +eressea.game.reset() diff --git a/scripts/run-tests-e4.lua b/scripts/run-tests-e4.lua deleted file mode 100644 index f827baec0..000000000 --- a/scripts/run-tests-e4.lua +++ /dev/null @@ -1,23 +0,0 @@ --- Tests that work in E3. With game config of E3. --- Tests are under scripts/test/e3 and all files must be in scripts/test/e3/init.lua - -path = 'scripts' -if config.install then - path = config.install .. '/' .. path - package.path = package.path .. ';' .. config.install .. '/lunit/?.lua' - --needed to find lunit if not run form eressea root. Needs right [lua] install setting in eressea.ini (point to eressea root from the start folder) -end -package.path = package.path .. ';' .. path .. '/?.lua;' .. path .. '/?/init.lua' - -config.rules = 'e4' - -require 'eressea' -require 'eressea.path' -require 'eressea.xmlconf' -require 'tests.e3' -require 'lunit' - -eressea.settings.set("rules.alliances", "0") -rules = require('eressea.' .. config.rules) -result = lunit.main() -return result.errors + result.failed diff --git a/scripts/run-turn.lua b/scripts/run-turn.lua index 7ee9165ca..9118ed8ee 100644 --- a/scripts/run-turn.lua +++ b/scripts/run-turn.lua @@ -26,15 +26,17 @@ function callbacks(rules, name, ...) end local function dbupdate() - update_scores() - dbname = config.dbname or 'eressea.db' - edb = db.open(config.basepath..'/'..dbname) - if edb~=nil then - edb:update_factions() - edb:update_scores() - else - eressea.log.error("could not open "..config.basepath..'/'..dbname) - end + update_scores() + if config.dbname then + dbname = config.basepath..'/'..config.dbname + edb = db.open(dbame) + if edb~=nil then + edb:update_factions() + edb:update_scores() + else + eressea.log.error("could not open "..dbname) + end + end end local function write_emails(locales) @@ -144,7 +146,7 @@ function process(rules, orders) init_summary() -- run the turn: - if read_orders(orders) ~= 0 then + if eressea.read_orders(orders) ~= 0 then print("could not read " .. orders) return -1 end diff --git a/scripts/tests/bindings.lua b/scripts/tests/bindings.lua index 189d34769..9aab6fd57 100644 --- a/scripts/tests/bindings.lua +++ b/scripts/tests/bindings.lua @@ -34,7 +34,6 @@ function test_process() assert_equal("function", _G.type(eressea.process.siege)) assert_equal("function", _G.type(eressea.process.leave)) assert_equal("function", _G.type(eressea.process.promote)) - assert_equal("function", _G.type(eressea.process.renumber)) assert_equal("function", _G.type(eressea.process.restack)) assert_equal("function", _G.type(eressea.process.set_spells)) assert_equal("function", _G.type(eressea.process.set_help)) diff --git a/scripts/tests/common.lua b/scripts/tests/common.lua index 446a7cf6d..4f6ed9cbb 100644 --- a/scripts/tests/common.lua +++ b/scripts/tests/common.lua @@ -330,17 +330,6 @@ function test_message() return msg end -function test_hashtable() - local f = faction.create("noreply1@eressea.de", "human", "de") - f.objects:set("enno", "smart guy") - f.objects:set("age", 10) - assert(f.objects:get("jesus") == nil) - assert(f.objects:get("enno") == "smart guy") - assert(f.objects:get("age") == 10) - f.objects:set("age", nil) - assert(f.objects:get("age") == nil) -end - function test_events() local fail = 1 local function msg_handler(u, evt) @@ -380,6 +369,21 @@ function test_events() assert(fail==0) end +function test_renumber_ship() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply4@eressea.de", "human", "de") + local u = unit.create(f, r) + local s = ship.create(r, config.ships[1]) + u.ship = s + u:add_order("NUMMER SCHIFF 1") + process_orders() + assert_equal(1, s.id) + u:clear_orders() + u:add_order("NUMMER SCHIFF 2") + process_orders() + assert_equal(2, s.id) +end + function test_recruit2() local r = region.create(0, 0, "plain") local f = faction.create("noreply4@eressea.de", "human", "de") @@ -434,10 +438,9 @@ function test_recruit() u:add_item("money", 110*n+20) u:add_order("REKRUTIERE " .. n) process_orders() - assert(u.number == n+1) + assert_equal(n+1, u.number) local p = r:get_resource("peasant") - assert(p<200 and p>=200-n) - -- assert(u:get_item("money")==10) + assert_true(p<200 and p>=200-n) end function test_produce() @@ -464,7 +467,7 @@ function test_work() u:clear_orders() u:add_order("ARBEITEN") process_orders() - assert(u:get_item("money")>=10) + assert_equal(20, u:get_item("money")) end function test_upkeep() @@ -476,7 +479,7 @@ function test_upkeep() u:clear_orders() u:add_order("LERNE Waffenbau") process_orders() - assert(u:get_item("money")==u.number) + assert_equal(u:get_item("money"), u.number) end function test_id() @@ -484,50 +487,39 @@ function test_id() local f = faction.create("noreply11@eressea.de", "human", "de") f.id = atoi36("42") - assert(get_faction(42)~=f) - assert(get_faction("42")==f) - assert(get_faction(atoi36("42"))==f) + assert_not_equal(f, get_faction(42)) + assert_equal(f, get_faction("42")) + assert_equal(f, get_faction(atoi36("42"))) local u = unit.create(f, r, 1) u.id = atoi36("42") - assert(get_unit(42)~=u) - assert(get_unit("42")==u) - assert(get_unit(atoi36("42"))==u) + assert_not_equal(get_unit(42), u) + assert_equal(get_unit("42"), u) + assert_equal(get_unit(atoi36("42")), u) local b = building.create(r, "castle") -- b.id = atoi36("42") local fortytwo = itoa36(b.id) - assert(get_building(fortytwo)==b) - assert(get_building(atoi36(fortytwo))==b) + assert_equal(get_building(fortytwo), b) + assert_equal(get_building(atoi36(fortytwo)), b) local s = _test_create_ship(r) assert_not_nil(s) -- s.id = atoi36("42") local fortytwo = itoa36(s.id) - assert(get_ship(fortytwo)==s) - assert(get_ship(atoi36(fortytwo))==s) -end - -function test_herbalism() - local r = region.create(0, 0, "plain") - local f = faction.create("noreply12@eressea.de", "human", "de") - local u = unit.create(f, r, 1) - u:add_item("money", u.number * 100) - u:set_skill("herbalism", 5) - u:clear_orders() - u:add_order("MACHE Samen") - process_orders() + assert_equal(get_ship(fortytwo), s) + assert_equal(get_ship(atoi36(fortytwo)), s) end function test_mallorn() local r = region.create(0, 0, "plain") r:set_flag(1, false) -- not mallorn r:set_resource("tree", 100) - assert(r:get_resource("tree")==100) + assert_equal(100, r:get_resource("tree")) local m = region.create(0, 0, "plain") m:set_flag(1, true) -- mallorn m:set_resource("tree", 100) - assert(m:get_resource("tree")==100) + assert_equal(100, m:get_resource("tree")) local f = faction.create("noreply13@eressea.de", "human", "de") @@ -673,8 +665,6 @@ function test_laen2() local laen = r:get_resource("laen") process_orders() - init_reports() --- write_report(u1.faction) assert_equal(laen - 2, r:get_resource("laen")) assert_equal(2, u1:get_item("laen")) end @@ -965,120 +955,6 @@ function test_bug_1795_demons() assert_equal(peasants, r:get_resource("peasant")) end -module("tests.report", package.seeall, lunit.testcase) - -function setup() - eressea.free_game() - eressea.settings.set("nmr.timeout", "0") - eressea.settings.set("rules.food.flags", "4") -end - -local function find_in_report(f, pattern, extension) - extension = extension or "nr" - local filename = config.reportpath .. "/" .. get_turn() .. "-" .. itoa36(f.id) .. "." .. extension - local report = io.open(filename, 'r'); - assert_not_nil(report) - t = report:read("*all") - report:close() - - local start, _ = string.find(t, pattern) - return start~=nil -end - -local function remove_report(faction) - local filetrunk = config.reportpath .. "/" .. get_turn() .. "-" .. itoa36(faction.id) - os.remove(filetrunk .. ".nr") - os.remove(filetrunk .. ".cr") - os.remove(filetrunk .. ".txt") -end - -function test_coordinates_no_plane() - local r = region.create(0, 0, "mountain") - local f = faction.create("noplane@eressea.de", "human", "de") - local u = unit.create(f, r, 1) - init_reports() - write_report(f) - assert_true(find_in_report(f, r.name .. " %(0,0%), Berg")) - remove_report(f) -end - -function test_show_shadowmaster_attacks() - local r = region.create(0, 0, "plain") - local f = faction.create("noreply@eressea.de", "human", "de") - local u = unit.create(f, r, 1) - u.race = "shadowmaster" - u:clear_orders() - u:add_order("ZEIGE Schattenmeister") - process_orders() - init_reports() - write_report(f) - assert_false(find_in_report(f, ", ,")) - remove_report(f) -end - -function test_coordinates_named_plane() - local p = plane.create(0, -3, -3, 7, 7, "Hell") - local r = region.create(0, 0, "mountain") - local f = faction.create("noreply@eressea.de", "human", "de") - local u = unit.create(f, r, 1) - init_reports() - write_report(f) - assert_true(find_in_report(f, r.name .. " %(0,0,Hell%), Berg")) - remove_report(f) -end - -function test_coordinates_unnamed_plane() - local p = plane.create(0, -3, -3, 7, 7) - local r = region.create(0, 0, "mountain") - local f = faction.create("noreply@eressea.de", "human", "de") - local u = unit.create(f, r, 1) - init_reports() - write_report(f) - assert_true(find_in_report(f, r.name .. " %(0,0%), Berg")) - remove_report(f) -end - -function test_coordinates_noname_plane() - local p = plane.create(0, -3, -3, 7, 7, "") - local r = region.create(0, 0, "mountain") - local f = faction.create("noreply@eressea.de", "human", "de") - local u = unit.create(f, r, 1) - init_reports() - write_report(f) - assert_true(find_in_report(f, r.name .. " %(0,0%), Berg")) - remove_report(f) -end - -function test_lighthouse() - eressea.free_game() - local r = region.create(0, 0, "mountain") - local f = faction.create("noreply@eressea.de", "human", "de") - region.create(1, 0, "mountain") - region.create(2, 0, "ocean") - region.create(0, 1, "firewall") - region.create(3, 0, "mountain") - region.create(4, 0, "plain") - local u = unit.create(f, r, 1) - local b = building.create(r, "lighthouse") - b.size = 100 - b.working = true - u.building = b - u:set_skill("perception", 9) - u:add_item("money", 1000) - assert_not_nil(b) - - init_reports() - write_report(f) - assert_true(find_in_report(f, " %(1,0%) %(vom Turm erblickt%)")) - assert_true(find_in_report(f, " %(2,0%) %(vom Turm erblickt%)")) - assert_true(find_in_report(f, " %(3,0%) %(vom Turm erblickt%)")) - - assert_false(find_in_report(f, " %(0,0%) %(vom Turm erblickt%)")) - assert_false(find_in_report(f, " %(0,1%) %(vom Turm erblickt%)")) - assert_false(find_in_report(f, " %(4,0%) %(vom Turm erblickt%)")) - remove_report(f) -end - module("tests.parser", package.seeall, lunit.testcase) function setup() @@ -1139,3 +1015,47 @@ function test_prefix() u1.faction.locale = "en" assert_not_nil(u1:show():find("archelf")) end + +function test_recruit() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + + u:add_item("money", 1000) + set_order(u, "REKRUTIERE 5") + process_orders() + for u in f.units do + assert_equal(6, u.number) + end +end + +function test_give_horses() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + + r:set_resource("horse", 0) + u:add_item("horse", 21) + u:add_item("dolphin", 10) + u:add_order("GIB 0 7 PFERD") + u:add_order("GIB 0 5 DELPHIN") + process_orders() + assert_equal(7, r:get_resource("horse")) + assert_equal(5, u:get_item("dolphin")) + assert_equal(14, u:get_item("horse")) +end + +function test_give_silver() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + + r:set_resource("peasant", 0) + r:set_resource("money", 11) + u:clear_orders() + u:add_item("money", 20) + u:add_order("GIB 0 10 SILBER") + process_orders() + assert_equal(21, r:get_resource("money")) + assert_equal(10, u:get_item("money")) +end diff --git a/scripts/tests/config.lua b/scripts/tests/config.lua index d21ecda1e..e47b7f925 100644 --- a/scripts/tests/config.lua +++ b/scripts/tests/config.lua @@ -9,19 +9,15 @@ end function test_read_race() local f eressea.free_game() - f = faction.create("orc@example.com", "orc", "en") - assert_equal(nil, f) assert_not_nil(eressea.config) eressea.config.parse('{ "races": { "orc" : {}}}') f = faction.create("orc@example.com", "orc", "en") assert_not_nil(f) end -function test_read_ship() +function disable_test_read_ship() local s eressea.free_game() - s = ship.create(nil, "boat") - assert_equal(nil, s) assert_not_nil(eressea.config) conf = [[{ "ships": { diff --git a/scripts/tests/e2/e2features.lua b/scripts/tests/e2/e2features.lua index efed50ea1..f0e597770 100644 --- a/scripts/tests/e2/e2features.lua +++ b/scripts/tests/e2/e2features.lua @@ -2,6 +2,43 @@ require "lunit" module("tests.e2.e2features", package.seeall, lunit.testcase ) +function setup() + eressea.free_game() + eressea.settings.set("nmr.timeout", "0") + eressea.settings.set("rules.food.flags", "4") + eressea.settings.set("rules.ship.storms", "0") + eressea.settings.set("rules.encounters", "0") +end + +function test_calendar() + assert_equal(get_season(1011), "calendar::winter") + assert_equal(get_season(1012), "calendar::spring") +end + +function test_herbalism() +-- OBS: herbalism is currently an E2-only skill + local r = region.create(0, 0, "plain") + local f = faction.create("herbalism@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + + eressea.settings.set("rules.grow.formula", 0) -- plants do not grow + u:add_item("money", u.number * 100) + u:set_skill("herbalism", 5) + r:set_resource("seed", 100) + r:set_flag(1, false) -- regular trees + u:clear_orders() + u:add_order("MACHE Samen") + process_orders() + assert_equal(1, u:get_item("seed")) + assert_equal(99, r:get_resource("seed")) + r:set_flag(1, true) -- mallorn + u:clear_orders() + u:add_order("MACHE Mallornsamen") + process_orders() + assert_equal(1, u:get_item("mallornseed")) + assert_equal(98, r:get_resource("seed")) +end + function test_build_harbour() -- try to reproduce mantis bug 2221 local r = region.create(0, 0, "plain") @@ -42,13 +79,6 @@ local function two_units(r, f1, f2) return one_unit(r, f1), one_unit(r, f2) end -function setup() - eressea.free_game() - eressea.settings.set("nmr.timeout", "0") - eressea.settings.set("rules.food.flags", "4") - eressea.settings.set("rules.ship.storms", "0") -end - function test_learn() eressea.settings.set("study.random_progress", "0") local r = region.create(0, 0, "plain") @@ -205,24 +235,6 @@ function test_no_uruk() assert_equal(f1.race, "orc") end -function test_snowman() - local r = region.create(0, 0, "glacier") - local f = faction.create("noreply@eressea.de", "human", "de") - local u = unit.create(f, r, 1) - u:add_item("snowman", 1) - u:clear_orders() - u:add_order("BENUTZEN 1 Schneemann") - process_orders() - for u2 in r.units do - if u2.id~=u.id then - assert_equal(u2.race, "snowman") - u = nil - break - end - end - assert_equal(nil, u) -end - function test_block_movement() eressea.settings.set("rules.guard.base_stop_prob", "0.3") eressea.settings.set("rules.guard.amulet_stop_prob", "0.0") diff --git a/scripts/tests/e2/guard.lua b/scripts/tests/e2/guard.lua index f5be800c2..8e62a364d 100644 --- a/scripts/tests/e2/guard.lua +++ b/scripts/tests/e2/guard.lua @@ -13,24 +13,24 @@ function test_guard_unarmed() local r1 = region.create(0, 0, "plain") local f1 = faction.create("hodor@eressea.de", "human", "de") local u1 = unit.create(f1, r1, 1) - assert_equal(nil, u1.guard) + assert_equal(false, u1.guard) u1:clear_orders() u1:add_order("BEWACHE") process_orders() - assert_equal(nil, u1.guard) + assert_equal(false, u1.guard) end function test_guard_armed() local r1 = region.create(0, 0, "plain") local f1 = faction.create("hodor@eressea.de", "human", "de") local u1 = unit.create(f1, r1, 1) - assert_equal(nil, u1.guard) + assert_equal(false, u1.guard) u1:add_item("sword", 1) u1:set_skill("melee", 2) u1:clear_orders() u1:add_order("BEWACHE") process_orders() - assert_equal(249, u1.guard) + assert_equal(true, u1.guard) end function test_guard_allows_move_after_combat() -- bug 1493 @@ -47,7 +47,7 @@ function test_guard_allows_move_after_combat() -- bug 1493 u1:clear_orders() u1:add_order("BEWACHE") process_orders() - assert_equal(249, u1.guard) + assert_equal(true, u1.guard) u1:clear_orders() u1:add_order("NACH O") u1:add_order("ATTACKIERE " .. itoa36(u2.id)) @@ -67,7 +67,7 @@ function test_no_guard_no_move_after_combat() -- bug 1493 u1:add_order("BEWACHE") u1:add_item("sword", 10) u1:set_skill("melee", 2) - assert_equal(nil, u1.guard) + assert_equal(false, u1.guard) u1:clear_orders() u1:add_order("NACH O") u1:add_order("ATTACKIERE " .. itoa36(u2.id)) diff --git a/scripts/tests/e2/init.lua b/scripts/tests/e2/init.lua index cd6cf640a..2f87b83fc 100644 --- a/scripts/tests/e2/init.lua +++ b/scripts/tests/e2/init.lua @@ -6,8 +6,12 @@ require 'tests.e2.destroy' require 'tests.e2.guard' require 'tests.e2.spells' require 'tests.e2.stealth' +require 'tests.e2.items' +require 'tests.items' +require 'tests.economy' require 'tests.orders' require 'tests.common' +require 'tests.report' require 'tests.storage' require 'tests.magicbag' require 'tests.process' diff --git a/scripts/tests/e2/items.lua b/scripts/tests/e2/items.lua new file mode 100644 index 000000000..24f27f4b2 --- /dev/null +++ b/scripts/tests/e2/items.lua @@ -0,0 +1,159 @@ +require "lunit" + +module("tests.e2.items", package.seeall, lunit.testcase ) + +function setup() + eressea.free_game() + eressea.settings.set("nmr.timeout", "0") + eressea.settings.set("rules.food.flags", "4") + eressea.settings.set("rules.ship.storms", "0") + eressea.settings.set("rules.encounters", "0") + eressea.settings.set("magic.regeneration.enable", "0") +end + +function test_nestwarmth_insect() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "insect", "de") + local u = unit.create(f, r, 1) + local flags = u.flags + u:add_item("nestwarmth", 2) + u:clear_orders() + u:add_order("BENUTZEN 1 Nestwaerme") + turn_begin() + turn_process() + assert_equal(flags+64, u.flags) -- UFL_WARMTH + assert_equal(1, u:get_item("nestwarmth")) + assert_equal(1, f:count_msg_type('usepotion')) + turn_end() +end + +function test_nestwarmth_other() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + local flags = u.flags + u:add_item("nestwarmth", 2) + u:clear_orders() + u:add_order("BENUTZEN 1 Nestwaerme") + turn_begin() + turn_process() + assert_equal(flags, u.flags) -- nothing happens + assert_equal(2, u:get_item("nestwarmth")) + assert_equal(1, f:count_msg_type('error163')) + turn_end() +end + +function test_meow() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + u:add_item("aoc", 1) + u:clear_orders() + u:add_order("BENUTZEN 1 Katzenamulett") + turn_begin() + turn_process() + assert_equal(1, u:get_item("aoc")) + assert_equal(1, r:count_msg_type('meow')) + turn_end() +end + +function test_aurapotion50() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + u:add_item("aurapotion50", 1) + u:set_skill('magic', 10); + u.magic = 'gwyrrd' + u.aura = 0 + u:clear_orders() + u:add_order("BENUTZEN 1 Auratrank") + turn_begin() + turn_process() + assert_equal(0, u:get_item("aurapotion50")) + assert_equal(1, f:count_msg_type('aurapotion50')) + assert_equal(50, u.aura) + turn_end() +end + +function test_bagpipe() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + turn_begin() + u:add_item("bagpipeoffear", 1) + u:clear_orders() + u:add_order("BENUTZEN 1 Dudelsack") + assert_equal(nil, r:get_curse('depression')) + turn_process() + assert_equal(0, r:get_curse('depression')) + assert_equal(1, u:get_item("bagpipeoffear")) + assert_equal(1, f:count_msg_type('bagpipeoffear_faction')) + assert_equal(1, r:count_msg_type('bagpipeoffear_region')) + turn_end() + -- duration is variable, but at least 4 + assert_equal(0, r:get_curse('depression')) +end + +function test_speedsail() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + + turn_begin() + u.ship = ship.create(r, "boat") + u:add_item("speedsail", 2) + u:clear_orders() + u:add_order("BENUTZEN 1 Sonnensegel") + assert_equal(nil, u.ship:get_curse('shipspeed')) + turn_process() + assert_equal(1, u.ship:get_curse('shipspeed')) + assert_equal(1, u:get_item("speedsail")) + assert_equal(1, f:count_msg_type('use_speedsail')) + turn_end() + assert_equal(1, u.ship:get_curse('shipspeed')) -- effect stays forever +end + +function test_foolpotion() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + turn_begin() + u:add_item("p7", 1) + u:clear_orders() + u:add_order("BENUTZEN 1 Dumpfbackenbrot 4242") + turn_process() + assert_equal(1, u:get_item("p7")) + assert_equal(1, f:count_msg_type('feedback_unit_not_found')) + local u2 = unit.create(f, r, 1) + + u:clear_orders() + u:add_order("BENUTZEN 1 Dumpfbackenbrot " .. itoa36(u2.id)) + turn_process() + assert_equal(1, u:get_item("p7")) + assert_equal(1, f:count_msg_type('error64')) + + u:set_skill("stealth", 1); + turn_process() + assert_equal(0, u:get_item("p7")) + assert_equal(1, f:count_msg_type('givedumb')) + turn_end() +end + +function test_snowman() + local r = region.create(0, 0, "glacier") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + u:add_item("snowman", 1) + u:clear_orders() + u:add_order("BENUTZEN 1 Schneemann") + process_orders() + for u2 in r.units do + if u2.id~=u.id then + assert_equal("snowman", u2.race) + assert_equal(1000, u2.hp) + u = nil + break + end + end + assert_equal(nil, u) +end diff --git a/scripts/tests/e3/castles.lua b/scripts/tests/e3/castles.lua index 1fd4e13e9..b16019159 100644 --- a/scripts/tests/e3/castles.lua +++ b/scripts/tests/e3/castles.lua @@ -11,30 +11,62 @@ function teardown() eressea.settings.set("rules.food.flags", "0") end +function test_build_watch() + local r = region.create(0, 0, "plain") + local f = faction.create("e3build@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + + u.number = 20 + u:add_item("log", 20) + u.id = 42 + + u:set_skill("building", 1) + u:add_order("MACHE Wache") + process_orders() + assert_not_nil(u.building) + assert_equal(5, u.building.size) + + u:set_skill("building", 2) + u:add_order("MACHE Wache " .. itoa36(u.building.id)) + process_orders() + assert_not_nil(u.building) + assert_equal(10, u.building.size) +end + +function test_watch() + local r = region.create(0, 0, "plain") + local b = building.create(r, "watch") + + assert_equal("scaffolding", b:get_typename(1)) + assert_equal("scaffolding", b:get_typename(4)) + assert_equal("guardhouse", b:get_typename(5)) + assert_equal("guardhouse", b:get_typename(9)) + assert_equal("guardtower", b:get_typename(10)) +end + function test_small_castles() - local r = region.create(0, 0, "plain") - local f1 = faction.create("noreply@eressea.de", "human", "de") - local u1 = unit.create(f1, r, 1) - local f2 = faction.create("noreply@eressea.de", "halfling", "de") - local u2 = unit.create(f2, r, 1) - u1:add_item("money", 10000) + local r = region.create(0, 0, "plain") + local f1 = faction.create("noreply@eressea.de", "human", "de") + local u1 = unit.create(f1, r, 1) + local f2 = faction.create("noreply@eressea.de", "halfling", "de") + local u2 = unit.create(f2, r, 1) - local b = building.create(r, "castle") - u2.building = b - u1.building = b + local b = building.create(r, "castle") + u2.building = b + u1.building = b - b.owner = u2 - assert_equal("site", b:get_typename(7)) - assert_equal("fortification", b:get_typename(8)) - b.owner = u1 - assert_equal("site", b:get_typename(9)) - assert_equal("fortification", b:get_typename(10)) + b.owner = u2 + assert_equal("site", b:get_typename(7)) + assert_equal("fortification", b:get_typename(8)) + b.owner = u1 + assert_equal("site", b:get_typename(9)) + assert_equal("fortification", b:get_typename(10)) end function test_build_normal() - local r = region.create(0, 0, "plain") - local f = faction.create("noreply@eressea.de", "human", "de") - local u = unit.create(f, r, 1) + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) u:clear_orders() u:add_item("stone", 10) u:set_skill("building", 10) @@ -45,9 +77,9 @@ function test_build_normal() end function test_build_packice() - local r = region.create(0, 0, "packice") - local f = faction.create("noreply@eressea.de", "human", "de") - local u = unit.create(f, r, 1) + local r = region.create(0, 0, "packice") + local f = faction.create("packice@eressea.de", "human", "de") + local u = unit.create(f, r, 1) u:clear_orders() u:add_item("stone", 10) u:set_skill("building", 10) diff --git a/scripts/tests/e3/init.lua b/scripts/tests/e3/init.lua index 2e4096712..06e05e1ae 100644 --- a/scripts/tests/e3/init.lua +++ b/scripts/tests/e3/init.lua @@ -4,7 +4,10 @@ require 'tests.e3.spells' require 'tests.e3.rules' require 'tests.e3.parser' require 'tests.e3.morale' +require 'tests.e3.items' +require 'tests.economy' require 'tests.orders' require 'tests.common' +require 'tests.items' require 'tests.magicbag' require 'tests.process' diff --git a/scripts/tests/e3/items.lua b/scripts/tests/e3/items.lua new file mode 100644 index 000000000..caf566468 --- /dev/null +++ b/scripts/tests/e3/items.lua @@ -0,0 +1,76 @@ +require "lunit" + +module("tests.e3.items", package.seeall, lunit.testcase ) + +function setup() + eressea.game.reset() + eressea.settings.set("rules.food.flags", "4") -- food is free + eressea.settings.set("NewbieImmunity", "0") +end + +function test_give_horses() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + + r:set_resource("horse", 0) + u:add_item("charger", 20) + u:add_order("GIB 0 10 Streitross") + process_orders() + assert_equal(10, r:get_resource("horse")) + assert_equal(10, u:get_item("charger")) +end + +function test_goblins() + local r = region.create(0, 0, "plain") + local f1 = faction.create("goblin@eressea.de", "goblin", "de") + local f2 = faction.create("dwarf@eressea.de", "dwarf", "de") + local f3 = faction.create("elf@eressea.de", "elf", "de") + local ud = unit.create(f1, r, 1) + local uh = unit.create(f1, r, 1) + uh.race = "halfling" + local u2 = unit.create(f2, r, 1) + local u3 = unit.create(f3, r, 1) + + local restricted = { + "towershield", "rep_crossbow", "plate", "lance", + "mallornlance", "greatbow", "greataxe", "axe", "scale", + "plate", "halberd", "greatsword", "rustyhalberd" + } + for k, v in ipairs(restricted) do + ud:add_item(v, 1) + uh:add_item(v, 1) + u2:add_item(v, 1) + u3:add_item(v, 1) + end + + uh:add_order("ATTACKIERE " .. itoa36(u2.id)) + uh:add_order("ATTACKIERE " .. itoa36(u3.id)) + ud:add_order("ATTACKIERE " .. itoa36(u2.id)) + ud:add_order("ATTACKIERE " .. itoa36(u3.id)) + process_orders() +end + +function test_make_horse() + eressea.settings.set("rules.horses.growth", "0") + local r = region.create(0, 0, "plain") + local f = faction.create("horses@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + u:set_skill("training", 4) + r:set_resource("horse", 100) + u:add_order("MACHE 1 PFERD") + process_orders() + assert_equal(1, u:get_item("horse")) + assert_equal(99, r:get_resource("horse")) + + u:clear_orders() + u:add_order("MACHE 1 STREITROSS") + u:add_item("money", 200) + u:add_item("iron", 1) + process_orders() + assert_equal(1, u:get_item("charger")) + assert_equal(0, u:get_item("horse")) + assert_equal(0, u:get_item("iron")) + assert_equal(0, u:get_item("money")) + assert_equal(99, r:get_resource("horse")) +end diff --git a/scripts/tests/e3/rules.lua b/scripts/tests/e3/rules.lua index 2cba83f21..150ad3ae0 100644 --- a/scripts/tests/e3/rules.lua +++ b/scripts/tests/e3/rules.lua @@ -37,6 +37,10 @@ function teardown() set_rule("rules.ship.storms") end +function test_calendar() + assert_equal(get_season(396), "calendar::winter") +end + function disable_test_bug_1738_build_castle_e3() local r = region.create(0, 0, "plain") local f = faction.create("bug_1738@eressea.de", "human", "de") @@ -626,11 +630,7 @@ function test_give_50_percent_of_money() u1:add_order("GIB " .. itoa36(u2.id) .. " 221 Silber") u2:clear_orders() u2:add_order("HELFEN " .. itoa36(u1.faction.id) .. " GIB") - u2:add_item("horse", 100) - u2:add_order("GIB 0 ALLES PFERD") - local h = r:get_resource("horse") process_orders() - assert_true(r:get_resource("horse")>=h+100) assert_equal(m1-221, u1:get_item("money")) assert_equal(m2+110, u2:get_item("money")) end @@ -990,4 +990,4 @@ function test_bug2187() -- write_report(f) set_rule("rules.food.flags", "4") -end \ No newline at end of file +end diff --git a/scripts/tests/economy.lua b/scripts/tests/economy.lua new file mode 100644 index 000000000..fe1574887 --- /dev/null +++ b/scripts/tests/economy.lua @@ -0,0 +1,160 @@ +require "lunit" + +module("tests.economy", package.seeall, lunit.testcase) + +function setup() + eressea.free_game() + eressea.settings.set("NewbieImmunity", "0") + eressea.settings.set("study.produceexp", "0") + eressea.settings.set("nmr.timeout", "0") + eressea.settings.set("rules.food.flags", "4") -- FOOD_IS_FREE + eressea.settings.set("rules.encounters", "0") +end + +function test_no_guards() + local r = region.create(0, 0, "plain") + r:set_resource("tree", 100) + local u = unit.create(faction.create("human"), r) + u:set_skill("forestry", 1) + u:add_order("MACHE HOLZ") + process_orders() + assert_equal(1, u:get_item("log")) + process_orders() + assert_equal(2, u:get_item("log")) +end + +function test_elf_guards_trees() + local r = region.create(0, 0, "plain") + r:set_resource("tree", 100) + local u = unit.create(faction.create("human"), r) + u:set_skill("forestry", 1) + local guard = unit.create(faction.create("elf"), r, 1, "elf") + guard:add_order("BEWACHEN") -- fails, because unarmed + u:add_order("MACHE HOLZ") + process_orders() + assert_equal(1, u:get_item("log")) + guard:add_item("sword", 1) + guard:set_skill("melee", 1) + guard:add_order("BEWACHEN") -- success + process_orders() + -- GUARD starts after MAKE: + assert_equal(2, u:get_item("log")) + process_orders() + -- GUARD was active this turn: + assert_equal(2, u:get_item("log")) +end + +function test_catapults_dont_guard() + local r = region.create(0, 0, "plain") + r:set_resource("tree", 100) + local u = unit.create(faction.create("human"), r) + u:set_skill("forestry", 1) + local guard = unit.create(faction.create("elf"), r, 1, "elf") + guard:add_order("BEWACHEN") + u:add_order("MACHE HOLZ") + process_orders() + assert_equal(1, u:get_item("log")) + guard:add_item("catapult", 1) + guard:set_skill("catapult", 1) + guard:add_order("BEWACHEN") + process_orders() + -- GUARD starts after MAKE: + assert_equal(2, u:get_item("log")) + process_orders() + -- GUARD was active this turn, but catapults do not count: + assert_equal(3, u:get_item("log")) +end + +function test_ent_guards_trees() + local r = region.create(0, 0, "plain") + r:set_resource("tree", 100) + local u = unit.create(faction.create("human"), r) + u:set_skill("forestry", 1) + local guard = unit.create(get_monsters(), r, 1, "ent") + guard:add_order("BEWACHEN") + u:add_order("MACHE HOLZ") + process_orders() + assert_equal(1, u:get_item("log")) + process_orders() + assert_equal(1, u:get_item("log")) +end + +function test_guard_stops_recruit() + local r = region.create(0, 0, "plain") + r:set_resource("peasant", 100) + local u = unit.create(faction.create("human"), r) + local guard = unit.create(get_monsters(), r, 1) + guard:add_order("BEWACHEN") + + u:add_item("money", 1000) + assert_equal(1, u.number) + u:add_order("REKRUTIERE 1") + process_orders() + assert_equal(2, u.number) + u:add_order("REKRUTIERE 1") + process_orders() + assert_equal(2, u.number) +end + +function test_guard_protects_iron() + local r = region.create(0, 0, "plain") + r:set_resource("iron", 100) + local level = r:get_resourcelevel("iron") + local u = unit.create(faction.create("human"), r) + u:set_skill("mining", level) + local guard = unit.create(get_monsters(), r, 1) + guard:add_order("BEWACHEN") + + u:add_order("MACHE EISEN") + process_orders() + assert_equal(level, u:get_item("iron")) + process_orders() + assert_equal(level, u:get_item("iron")) +end + +function test_ironkeeper_guards_iron() + local r = region.create(0, 0, "plain") + r:set_resource("iron", 100) + local level = r:get_resourcelevel("iron") + local u = unit.create(faction.create("human"), r) + u:set_skill("mining", level) + local guard = unit.create(faction.create("mountainguard"), r, 1, "mountainguard") + guard:add_order("BEWACHEN") + u:add_order("MACHE EISEN") + process_orders() + assert_equal(level, u:get_item("iron")) + process_orders() + assert_equal(level, u:get_item("iron")) +end + +function test_sawmill() + local r = region.create(0, 0, "plain") + r:set_resource("tree", 100) + local u = unit.create(faction.create("human"), r) + u:add_item("money", 250) -- sawmill maintenance + u:set_skill("forestry", 6) + u.building = building.create(r, "sawmill") + u.building.size = 1 + u:add_order("MACHE 6 HOLZ") + process_orders() + assert_equal(6, u:get_item("log")) + assert_equal(97, r:get_resource("tree")) +end + +function test_ent_guards_trees() + local r = region.create(0, 0, "plain") + r:set_resource("tree", 100) + local u = unit.create(faction.create("human"), r) + u:set_skill("mining", 1) + local guard = unit.create(get_monsters(), r, 1, "ent") + u:set_skill("forestry", 1) + guard:clear_orders() + u:clear_orders() + + guard:add_order("BEWACHEN") + u:add_order("MACHE HOLZ") + process_orders() + assert_equal(1, u:get_item("log")) + process_orders() + assert_equal(1, u:get_item("log")) +end diff --git a/scripts/tests/faction.lua b/scripts/tests/faction.lua index 38fdc4eb7..87a6b5100 100644 --- a/scripts/tests/faction.lua +++ b/scripts/tests/faction.lua @@ -17,7 +17,7 @@ function setup() end function test_faction_flags() - assert_equal(2, f.flags) -- FFL_ISNEW + assert_equal(6, f.flags) -- FFL_ISNEW|FFL_PWMSG f.flags = 42 assert_equal(42, f.flags) end diff --git a/scripts/tests/items.lua b/scripts/tests/items.lua new file mode 100644 index 000000000..aad52c2b2 --- /dev/null +++ b/scripts/tests/items.lua @@ -0,0 +1,169 @@ +require "lunit" + +module("tests.items", package.seeall, lunit.testcase ) + +function setup() + eressea.free_game() + eressea.settings.set("nmr.timeout", "0") + eressea.settings.set("rules.food.flags", "4") + eressea.settings.set("rules.ship.storms", "0") + eressea.settings.set("rules.encounters", "0") + eressea.settings.set("magic.regeneration.enable", "0") +end + +function test_mistletoe_okay() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + turn_begin() + u:add_item('mistletoe', 2) + u:clear_orders() + u:add_order("BENUTZEN 1 Mistelzweig") + assert_false(u:has_attrib('fleechance')) + turn_process() + assert_true(u:has_attrib('fleechance')) + assert_equal(1, u:get_item('mistletoe')) + assert_equal(1, f:count_msg_type('use_item')) + turn_end() +end + +function test_mistletoe_fail() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + turn_begin() + u:add_item('mistletoe', 1) + u:clear_orders() + u:add_order("BENUTZEN 1 Mistelzweig") + assert_false(u:has_attrib('fleechance')) + u.number = 2 + turn_process() + assert_false(u:has_attrib('fleechance')) + assert_equal(1, u:get_item('mistletoe')) + assert_equal(1, f:count_msg_type('use_singleperson')) + turn_end() +end + +function test_dreameye() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + u:add_item("dreameye", 2) + u:clear_orders() + u:add_order("BENUTZEN 1 Traumauge") + assert_nil(u:get_curse('skillmod')) + turn_begin() + turn_process() + assert_not_nil(u:get_curse('skillmod')) + assert_equal(1, u:get_item("dreameye")) + assert_equal(1, f:count_msg_type('use_tacticcrystal')) + turn_end() + assert_nil(u:get_curse('skillmod')) +end + +function test_manacrystal() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + u:add_item("manacrystal", 2) + u:clear_orders() + u.magic = "gwyrrd" + u:set_skill('magic', 1) + u.aura = 0 + u:add_order("BENUTZEN 1 Astralkristall") + turn_begin() + turn_process() + assert_equal(1, u:get_item("manacrystal")) + assert_equal(25, u.aura) + assert_equal(1, f:count_msg_type('manacrystal_use')) + turn_end() +end + +function test_skillpotion() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + u:add_item("skillpotion", 2) + u:clear_orders() + u:add_order("BENUTZEN 1 Talenttrunk") + process_orders() + assert_equal(1, u:get_item("skillpotion")) + assert_equal(1, f:count_msg_type('skillpotion_use')) +end + +function test_studypotion() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + turn_begin() + u:add_item("studypotion", 2) + u:clear_orders() + u:add_order("LERNE Unterhaltung") + u:add_order("BENUTZEN 1 Lerntrank") + turn_process() + -- cannot sense the "learning" attribute, because study_cmd + -- removes it during processing :( + assert_equal(1, u:get_item("studypotion")) + turn_end() +end + +function test_antimagic() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + + turn_begin() + u:add_item("antimagic", 2) + u:clear_orders() + u:add_order("BENUTZEN 1 Antimagiekristall") + assert_equal(nil, r:get_curse('antimagiczone')) + turn_process() + assert_equal(5, r:get_curse('antimagiczone')) + assert_equal(1, r:count_msg_type('use_antimagiccrystal')) + assert_equal(1, u:get_item("antimagic")) + turn_end() + assert_equal(5, r:get_curse('antimagiczone')) -- haelt zwei wochen + turn_end() -- hack: age the curse again + assert_equal(nil, r:get_curse('antimagiczone')) +end + +function test_ointment() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + local hp = u.hp + u.hp = 1 + u:add_item("ointment", 1) + u:clear_orders() + u:add_order("BENUTZEN 1 Wundsalbe") + process_orders() + assert_equal(0, u:get_item("ointment")) + assert_equal(1, f:count_msg_type('usepotion')) + assert_equal(hp, u.hp) +end + +function test_bloodpotion_demon() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "demon", "de") + local u = unit.create(f, r, 1) + u:add_item("peasantblood", 1) + u:clear_orders() + u:add_order("BENUTZEN 1 Bauernblut") + process_orders() + assert_equal(0, u:get_item("peasantblood")) + assert_equal(1, f:count_msg_type('usepotion')) + assert_equal("demon", u.race) +end + +function test_bloodpotion_other() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + u:add_item("peasantblood", 1) + u:clear_orders() + u:add_order("BENUTZEN 1 Bauernblut") + process_orders() + assert_equal(0, u:get_item("peasantblood")) + assert_equal(1, f:count_msg_type('usepotion')) + assert_equal("smurf", u.race) +end diff --git a/scripts/tests/laws.lua b/scripts/tests/laws.lua index f0fef15a9..6f41fc54b 100644 --- a/scripts/tests/laws.lua +++ b/scripts/tests/laws.lua @@ -95,6 +95,7 @@ function test_force_leave_postcombat() u1.building = b1 u2.building = b1 eressea.settings.set("rules.owners.force_leave", "1") + eressea.settings.set("NewbieImmunity", "0") u1:clear_orders() u1:add_order("ATTACKIERE " .. itoa36(u2.id)) u2:clear_orders() @@ -109,6 +110,7 @@ function test_force_leave_postcombat() end end assert_not_equal(nil, u3) + assert_equal(nil, u2.building) assert_equal(nil, u3.building) assert_equal(1, u3.number) end diff --git a/scripts/tests/orders.lua b/scripts/tests/orders.lua index a0b03f825..dde9508e9 100644 --- a/scripts/tests/orders.lua +++ b/scripts/tests/orders.lua @@ -165,7 +165,7 @@ end function test_process_renumber() u:add_order("NUMMER EINHEIT 'ii'") - eressea.process.renumber() + process_orders() assert_equal(666, u.id) end diff --git a/scripts/tests/report.lua b/scripts/tests/report.lua new file mode 100644 index 000000000..2a037c770 --- /dev/null +++ b/scripts/tests/report.lua @@ -0,0 +1,122 @@ +require "lunit" + +module("tests.report", package.seeall, lunit.testcase) + +function setup() + eressea.free_game() + eressea.settings.set("nmr.timeout", "0") + eressea.settings.set("rules.food.flags", "4") +end + +local function find_in_report(f, pattern, extension) + extension = extension or "nr" + local filename = config.reportpath .. "/" .. get_turn() .. "-" .. itoa36(f.id) .. "." .. extension + local report = io.open(filename, 'r'); + assert_not_nil(report) + t = report:read("*all") + report:close() + + local start, _ = string.find(t, pattern) + return start~=nil +end + +local function remove_report(faction) + local filetrunk = config.reportpath .. "/" .. get_turn() .. "-" .. itoa36(faction.id) + os.remove(filetrunk .. ".nr") + os.remove(filetrunk .. ".cr") + os.remove(filetrunk .. ".txt") +end + +function setup() + eressea.free_game() + eressea.settings.set("nmr.timeout", "0") + eressea.settings.set("rules.food.flags", "4") +end + +function test_coordinates_unnamed_plane() + local p = plane.create(0, -3, -3, 7, 7) + local r = region.create(0, 0, "mountain") + local f = faction.create("unnamed@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + init_reports() + write_report(f) + assert_true(find_in_report(f, r.name .. " %(0,0%), Berg")) + remove_report(f) +end + +function test_coordinates_no_plane() + local r = region.create(0, 0, "mountain") + local f = faction.create("noplane@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + init_reports() + write_report(f) + assert_true(find_in_report(f, r.name .. " %(0,0%), Berg")) + remove_report(f) +end + +function test_show_shadowmaster_attacks() + local r = region.create(0, 0, "plain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + u.race = "shadowmaster" + u:clear_orders() + u:add_order("ZEIGE Schattenmeister") + process_orders() + init_reports() + write_report(f) + assert_false(find_in_report(f, ", ,")) + remove_report(f) +end + +function test_coordinates_named_plane() + local p = plane.create(0, -3, -3, 7, 7, "Hell") + local r = region.create(0, 0, "mountain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + init_reports() + write_report(f) + assert_true(find_in_report(f, r.name .. " %(0,0,Hell%), Berg")) + remove_report(f) +end + +function test_coordinates_noname_plane() + local p = plane.create(0, -3, -3, 7, 7, "") + local r = region.create(0, 0, "mountain") + local f = faction.create("noreply@eressea.de", "human", "de") + local u = unit.create(f, r, 1) + init_reports() + write_report(f) + assert_true(find_in_report(f, r.name .. " %(0,0%), Berg")) + remove_report(f) +end + +function test_lighthouse() + eressea.free_game() + local r = region.create(0, 0, "mountain") + local f = faction.create("noreply@eressea.de", "human", "de") + region.create(1, 0, "mountain") + region.create(2, 0, "ocean") + region.create(0, 1, "firewall") + region.create(3, 0, "mountain") + region.create(4, 0, "plain") + local u = unit.create(f, r, 1) + local b = building.create(r, "lighthouse") + b.size = 100 + b.working = true + u.building = b + u:set_skill("perception", 9) + u:add_item("money", 1000) + assert_not_nil(b) + + init_reports() + write_report(f) + assert_true(find_in_report(f, " %(1,0%) %(vom Turm erblickt%)")) + assert_true(find_in_report(f, " %(2,0%) %(vom Turm erblickt%)")) + assert_true(find_in_report(f, " %(3,0%) %(vom Turm erblickt%)")) + + assert_false(find_in_report(f, " %(0,0%) %(vom Turm erblickt%)")) + assert_false(find_in_report(f, " %(0,1%) %(vom Turm erblickt%)")) + assert_false(find_in_report(f, " %(4,0%) %(vom Turm erblickt%)")) + remove_report(f) +end + diff --git a/scripts/tests/xmas.lua b/scripts/tests/xmas.lua index e1cd4753b..459984901 100644 --- a/scripts/tests/xmas.lua +++ b/scripts/tests/xmas.lua @@ -6,6 +6,10 @@ function setup() eressea.free_game() eressea.settings.set("nmr.timeout", "0") eressea.settings.set("rules.grow.formula", "0") + eressea.settings.set("rules.peasants.growth.factor", "0") + eressea.settings.set("volcano.active.percent", "0") + eressea.settings.set("volcano.outbreak.percent", "0") + eressea.settings.set("volcano.stop.percent", "0") end function test_snowglobe_fail() @@ -42,23 +46,17 @@ function test_snowglobe() local r2 = region.create(1, 0, "ocean") local f = faction.create("snowglobe2@eressea.de", "human", "de") local u = unit.create(f, r1, 1) - local have = 6 local fail = 0 u:add_item("snowglobe", have) - local xform = { ocean = "glacier", glacier = "glacier", firewall = "volcano", volcano = "mountain", desert = "plain", plain = "plain" } - u:clear_orders() - u:add_order("BENUTZEN 1 Schneekugel Ost") + local xform = { ocean = "glacier", glacier = "glacier", firewall = "volcano", desert = "plain", volcano = "mountain", plain = "plain" } for k, v in pairs(xform) do r2.terrain = k - process_orders() - -- TODO: re-enable! assert_equal(v, r2.terrain) - if k~=v then - have=have - 1 - else + use_snowglobe(u, 1, "Ost", nil) + assert_equal(v, r2.terrain) + if k==v then fail = fail + 1 assert_equal(fail, f:count_msg_type('target_region_invalid')) end - assert_equal(have, u:get_item("snowglobe")) end end diff --git a/src/CMakeLists.txt b/src/CMakeLists.txt index f1414c851..ebe914dfe 100644 --- a/src/CMakeLists.txt +++ b/src/CMakeLists.txt @@ -1,26 +1,32 @@ -cmake_minimum_required(VERSION 2.6) +cmake_minimum_required(VERSION 2.8) project (server C) include_directories (${CMAKE_CURRENT_SOURCE_DIR}) -include_directories (${CRITBIT_INCLUDE_DIR}) include_directories (${CJSON_INCLUDE_DIR}) +include_directories (${CLIBS_INCLUDE_DIR}) include_directories (${STORAGE_INCLUDE_DIR}) -include_directories (${QUICKLIST_INCLUDE_DIR}) -include_directories (${CUTEST_INCLUDE_DIR}) include_directories (${LUA_INCLUDE_DIR}) include_directories (${TOLUA_INCLUDE_DIR}) include_directories (${BSON_INCLUDE_DIR}) include_directories (${INIPARSER_INCLUDE_DIR}) IF(DEFINED ERESSEA_VERSION) - SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -DERESSEA_VERSION=\\\"${ERESSEA_VERSION}\\\"") +set_source_files_properties(kernel/version.c PROPERTIES +COMPILE_DEFINITIONS ERESSEA_VERSION="${ERESSEA_VERSION}") ENDIF() -IF(CMAKE_COMPILER_IS_GNUCC OR CMAKE_COMPILER_IS_CLANG) +IF(DEFINED ERESSEA_BUILDNO) +set_source_files_properties(kernel/version.c PROPERTIES +COMPILE_DEFINITIONS ERESSEA_BUILDNO="${ERESSEA_BUILDNO}") +ENDIF() + +IF (CMAKE_COMPILER_IS_GNUCC) +# SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -Wno-error=unused-but-set-variable") +ENDIF() +IF (CMAKE_COMPILER_IS_GNUCC OR CMAKE_C_COMPILER_ID MATCHES "Clang") # SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -Wconversion -Wno-sign-conversion") - SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -pedantic -Wsign-compare -Wall -Werror -Wno-unknown-pragmas -Wstrict-prototypes -Wpointer-arith -Wno-char-subscripts -Wno-long-long") - SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -Wno-error=unused-but-set-variable") - SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -std=c99 -DHAVE__BOOL") + SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -Wsign-compare -Wall -Werror -Wno-unknown-pragmas -Wstrict-prototypes -Wpointer-arith -Wno-char-subscripts -Wno-long-long") + SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -std=c89") ELSEIF(MSVC) SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} /Wall /WX /MP") set(CMAKE_EXE_LINKER_FLAGS_DEBUG @@ -80,6 +86,7 @@ TOLUA_BINDING(settings.pkg kenel/config.h) ENDIF() set (ERESSEA_SRC + vortex.c calendar.c move.c piracy.c @@ -88,7 +95,6 @@ set (ERESSEA_SRC alchemy.c academy.c upkeep.c - vortex.c names.c lighthouse.c reports.c @@ -96,15 +102,13 @@ set (ERESSEA_SRC guard.c prefix.c donations.c - seen.c eressea.c - callback.c direction.c keyword.c skill.c json.c creport.c - jsreport.c + report.c economy.c give.c items.c @@ -112,11 +116,10 @@ set (ERESSEA_SRC magic.c market.c morale.c - monster.c randenc.c + renumber.c volcano.c chaos.c - report.c spy.c study.c summary.c @@ -144,7 +147,6 @@ set(SERVER_SRC bind_locale.c bind_eressea.c bind_faction.c - bind_dict.c bind_order.c bindings.c bind_message.c @@ -171,25 +173,36 @@ set (SERVER_SRC ${SERVER_SRC} ) endif(CURSES_FOUND) +add_library(version STATIC ${VERSION_SRC}) add_library(game ${ERESSEA_SRC}) add_executable(eressea ${SERVER_SRC}) +target_link_libraries(game version) target_link_libraries(eressea game ${TOLUA_LIBRARIES} ${LUA_LIBRARIES} - ${QUICKLIST_LIBRARIES} ${STORAGE_LIBRARIES} - ${CRITBIT_LIBRARIES} + ${CLIBS_LIBRARIES} ${CJSON_LIBRARIES} ${INIPARSER_LIBRARIES} ) +add_executable(convert convert.c) +target_link_libraries(convert + game + ${LUA_MATH_LIBRARY} + ${STORAGE_LIBRARIES} + ${CLIBS_LIBRARIES} + ${INIPARSER_LIBRARIES} +) + set(TESTS_SRC monsters.test.c names.test.c donations.test.c wormhole.test.c alchemy.test.c + guard.test.c test_eressea.c tests.c battle.test.c @@ -197,22 +210,24 @@ set(TESTS_SRC tests.test.c volcano.test.c reports.test.c - seen.test.c + creport.test.c + report.test.c summary.test.c travelthru.test.c - callback.test.c direction.test.c economy.test.c json.test.c keyword.test.c give.test.c laws.test.c + lighthouse.test.c magic.test.c market.test.c monsters.test.c move.test.c piracy.test.c prefix.test.c + renumber.test.c skill.test.c spells.test.c spy.test.c @@ -230,11 +245,10 @@ set(TESTS_SRC add_executable(test_eressea ${TESTS_SRC}) target_link_libraries(test_eressea game - ${CUTEST_LIBRARIES} + cutest ${LUA_LIBRARIES} - ${QUICKLIST_LIBRARIES} + ${CLIBS_LIBRARIES} ${STORAGE_LIBRARIES} - ${CRITBIT_LIBRARIES} ${CJSON_LIBRARIES} ${INIPARSER_LIBRARIES} ) @@ -251,18 +265,19 @@ install(TARGETS eressea DESTINATION "bin") if (SQLITE3_FOUND) target_link_libraries(eressea ${SQLITE3_LIBRARIES}) -SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -DUSE_SQLITE") +add_definitions(-DUSE_SQLITE) endif(SQLITE3_FOUND) if (CURSES_FOUND) include_directories (${CURSES_INCLUDE_DIR}) target_link_libraries(eressea ${CURSES_LIBRARIES}) -SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -DUSE_CURSES") +add_definitions(-DUSE_CURSES) endif(CURSES_FOUND) if (LIBXML2_FOUND) include_directories (${LIBXML2_INCLUDE_DIR}) target_link_libraries(eressea ${LIBXML2_LIBRARIES}) +target_link_libraries(convert ${LIBXML2_LIBRARIES}) target_link_libraries(test_eressea ${LIBXML2_LIBRARIES}) -SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -DUSE_LIBXML2") +add_definitions(-DUSE_LIBXML2) endif (LIBXML2_FOUND) diff --git a/src/academy.c b/src/academy.c index f6b70873e..496c1ef8e 100644 --- a/src/academy.c +++ b/src/academy.c @@ -35,7 +35,7 @@ bool academy_can_teach(unit *teacher, unit *student, skill_t sk) { const struct building_type *btype = bt_find("academy"); if (active_building(teacher, btype) && active_building(student, btype)) { int j = study_cost(student, sk); - j = _max(50, j * 2); + j = MAX(50, j * 2); /* kann Einheit das zahlen? */ return get_pooled(student, get_resourcetype(R_SILVER), GET_DEFAULT, j) >= j; /* sonst nehmen sie nicht am Unterricht teil */ diff --git a/src/alchemy.c b/src/alchemy.c index cf4dc6f73..aff3485ef 100644 --- a/src/alchemy.c +++ b/src/alchemy.c @@ -19,7 +19,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include "alchemy.h" -#include "move.h" +#include "guard.h" #include "skill.h" #include "study.h" @@ -61,7 +61,7 @@ void herbsearch(unit * u, int max) return; } - if (is_guarded(r, u, GUARD_PRODUCE)) { + if (is_guarded(r, u)) { cmistake(u, u->thisorder, 70, MSG_EVENT); return; } @@ -73,12 +73,12 @@ void herbsearch(unit * u, int max) } if (max) - max = _min(max, rherbs(r)); + max = MIN(max, rherbs(r)); else max = rherbs(r); herbsfound = ntimespprob(effsk * u->number, (double)rherbs(r) / 100.0F, -0.01F); - herbsfound = _min(herbsfound, max); + herbsfound = MIN(herbsfound, max); rsetherbs(r, (short) (rherbs(r) - herbsfound)); if (herbsfound) { @@ -156,12 +156,13 @@ static int potion_water_of_life(unit * u, region *r, int amount) { } static int potion_healing(unit * u, int amount) { - u->hp = _min(unit_max_hp(u) * u->number, u->hp + 400 * amount); + u->hp = MIN(unit_max_hp(u) * u->number, u->hp + 400 * amount); return amount; } static int potion_luck(unit *u, region *r, attrib_type *atype, int amount) { attrib *a = (attrib *)a_find(r->attribs, atype); + UNUSED_ARG(u); if (!a) { a = a_add(&r->attribs, a_new(atype)); } @@ -170,7 +171,8 @@ static int potion_luck(unit *u, region *r, attrib_type *atype, int amount) { } static int potion_truth(unit *u) { - fset(u, UFL_DISBELIEVES); + UNUSED_ARG(u); + /* TODO: this potion does nothing! */ return 1; } @@ -180,8 +182,8 @@ static int potion_power(unit *u, int amount) { if (u->number % 10 > 0) ++use; amount = use; } - /* Verfnffacht die HP von max. 10 Personen in der Einheit */ - u->hp += _min(u->number, 10 * amount) * unit_max_hp(u) * 4; + /* Verf�nffacht die HP von max. 10 Personen in der Einheit */ + u->hp += MIN(u->number, 10 * amount) * unit_max_hp(u) * 4; return amount; } @@ -240,15 +242,14 @@ static void init_potiondelay(attrib * a) a->data.v = malloc(sizeof(potiondelay)); } -static void free_potiondelay(attrib * a) -{ +static void free_potiondelay(attrib * a) { free(a->data.v); } static int age_potiondelay(attrib * a, void *owner) { potiondelay *pd = (potiondelay *)a->data.v; - unused_arg(owner); + UNUSED_ARG(owner); pd->amount = do_potion(pd->u, pd->r, pd->ptype, pd->amount); return AT_AGE_REMOVE; } @@ -295,7 +296,7 @@ static void a_initeffect(attrib * a) a->data.v = calloc(sizeof(effect_data), 1); } -static void a_finalizeeffect(attrib * a) +static void a_finalizeeffect(attrib * a) /*-V524 */ { free(a->data.v); } @@ -304,6 +305,7 @@ static void a_writeeffect(const attrib * a, const void *owner, struct storage *store) { effect_data *edata = (effect_data *)a->data.v; + UNUSED_ARG(owner); WRITE_TOK(store, resourcename(edata->type->itype->rtype, 0)); WRITE_INT(store, edata->value); } @@ -316,6 +318,7 @@ static int a_readeffect(attrib * a, void *owner, struct gamedata *data) effect_data *edata = (effect_data *)a->data.v; char zText[32]; + UNUSED_ARG(owner); READ_TOK(store, zText, sizeof(zText)); rtype = rt_find(zText); @@ -324,7 +327,7 @@ static int a_readeffect(attrib * a, void *owner, struct gamedata *data) return AT_READ_FAIL; } if (rtype->ptype==oldpotiontype[P_HEAL]) { - // healing potions used to have long-term effects + /* healing potions used to have long-term effects */ return AT_READ_FAIL; } edata->type = rtype->ptype; diff --git a/src/alchemy.test.c b/src/alchemy.test.c index 7fd2da8e1..c281a1c98 100644 --- a/src/alchemy.test.c +++ b/src/alchemy.test.c @@ -30,7 +30,7 @@ static void test_herbsearch(CuTest * tc) rc = rc_get_or_create("dragon"); rc->flags |= RCF_UNARMEDGUARD; u2 = test_create_unit(test_create_faction(rc), r); - guard(u2, GUARD_PRODUCE); + setguard(u2, true); f = test_create_faction(0); u = test_create_unit(f, r); @@ -41,14 +41,14 @@ static void test_herbsearch(CuTest * tc) test_clear_messages(f); set_level(u, SK_HERBALISM, 1); - CuAssertPtrEquals(tc, u2, is_guarded(r, u, GUARD_PRODUCE)); + CuAssertPtrEquals(tc, u2, is_guarded(r, u)); herbsearch(u, INT_MAX); CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "error70")); CuAssertPtrEquals(tc, 0, test_find_messagetype(f->msgs, "error59")); test_clear_messages(f); - guard(u2, GUARD_NONE); - CuAssertPtrEquals(tc, 0, is_guarded(r, u, GUARD_PRODUCE)); + setguard(u2, false); + CuAssertPtrEquals(tc, 0, is_guarded(r, u)); CuAssertPtrEquals(tc, 0, (void *)rherbtype(r)); herbsearch(u, INT_MAX); CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "error108")); diff --git a/src/attributes/CMakeLists.txt b/src/attributes/CMakeLists.txt index 1419f9e9a..d0aa252ee 100644 --- a/src/attributes/CMakeLists.txt +++ b/src/attributes/CMakeLists.txt @@ -16,7 +16,6 @@ matmod.c moved.c movement.c dict.c -orcification.c otherfaction.c overrideroads.c racename.c diff --git a/src/attributes/attributes.c b/src/attributes/attributes.c index 770ba7524..0fe42a92e 100644 --- a/src/attributes/attributes.c +++ b/src/attributes/attributes.c @@ -22,10 +22,10 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "laws.h" #include "move.h" -#include "guard.h" /* attributes includes */ #include "follow.h" +#include "fleechance.h" #include "hate.h" #include "iceberg.h" #include "key.h" @@ -34,7 +34,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "moved.h" #include "movement.h" #include "dict.h" -#include "orcification.h" #include "otherfaction.h" #include "overrideroads.h" #include "racename.h" @@ -50,7 +49,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include #include #include @@ -61,6 +59,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include + attrib_type at_unitdissolve = { "unitdissolve", NULL, NULL, NULL, a_writechars, a_readchars }; @@ -95,12 +94,12 @@ void register_attributes(void) at_register(&at_woodcount); /* neue UNIT-Attribute */ + at_register(&at_fleechance); at_register(&at_siege); at_register(&at_effect); at_register(&at_private); at_register(&at_icastle); - at_register(&at_guard); at_register(&at_group); at_register(&at_building_generic_type); @@ -116,9 +115,12 @@ void register_attributes(void) at_register(&at_germs); + at_deprecate("hurting", a_readint); /* an old arena attribute */ at_deprecate("xontormiaexpress", a_readint); /* required for old datafiles */ + at_deprecate("orcification", a_readint); /* required for old datafiles */ at_deprecate("lua", read_ext); /* required for old datafiles */ at_deprecate("gm", a_readint); + at_deprecate("guard", a_readint); /* used to contain guard-flags (v3.10.0-259-g8597e8b) */ at_register(&at_stealth); at_register(&at_dict); at_register(&at_unitdissolve); @@ -129,7 +131,6 @@ void register_attributes(void) at_register(&at_keys); at_register(&at_follow); at_register(&at_targetregion); - at_register(&at_orcification); at_register(&at_hate); at_register(&at_reduceproduction); at_register(&at_otherfaction); diff --git a/src/attributes/attributes.h b/src/attributes/attributes.h index b8974867e..4ec3150ec 100644 --- a/src/attributes/attributes.h +++ b/src/attributes/attributes.h @@ -22,6 +22,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. extern "C" { #endif + struct attrib_type; extern void register_attributes(void); #ifdef __cplusplus diff --git a/src/attributes/dict.c b/src/attributes/dict.c index cb24b148b..f95555734 100644 --- a/src/attributes/dict.c +++ b/src/attributes/dict.c @@ -19,17 +19,19 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include "dict.h" +#include "key.h" /* kernel includes */ #include #include #include -#include #include #include /* util includes */ #include +#include +#include #include #include @@ -40,6 +42,10 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include +typedef enum { + TNONE = 0, TINTEGER = 1, TREAL = 2 +} dict_type; + typedef struct dict_data { dict_type type; char *name; @@ -55,230 +61,110 @@ typedef struct dict_data { } data; } dict_data; -static void -dict_write(const attrib * a, const void *owner, struct storage *store) -{ - const dict_data *data = (dict_data *)a->data.v; - int type = (int)data->type; - WRITE_TOK(store, data->name); - WRITE_INT(store, type); - switch (data->type) { - case TINTEGER: - WRITE_INT(store, data->data.i); - break; - case TREAL: - WRITE_FLT(store, (float)data->data.real); - break; - case TSTRING: - WRITE_STR(store, data->data.str); - break; - case TUNIT: - write_unit_reference(data->data.u, store); - break; - case TFACTION: - write_faction_reference(data->data.f, store); - break; - case TBUILDING: - write_building_reference(data->data.b, store); - break; - case TSHIP: - /* write_ship_reference(data->data.sh, store); */ - assert(!"not implemented"); - break; - case TREGION: - write_region_reference(data->data.r, store); - break; - case TNONE: - break; - default: - assert(!"illegal type in object-attribute"); - } -} - static int dict_read(attrib * a, void *owner, gamedata *data) { storage *store = data->store; char name[NAMESIZE]; dict_data *dd = (dict_data *)a->data.v; - int result, n; - float flt; + int n; READ_STR(store, name, sizeof(name)); - dd->name = _strdup(name); + dd->name = strdup(name); READ_INT(store, &n); dd->type = (dict_type)n; - switch (dd->type) { - case TINTEGER: + if (dd->type == TINTEGER) { READ_INT(store, &dd->data.i); - break; - case TREAL: + } + else if (dd->type == TREAL) { + float flt; READ_FLT(store, &flt); - if ((int)flt == flt) { - dd->type = TINTEGER; - dd->data.i = (int)flt; - } - else { - dd->data.real = flt; - } - break; - case TSTRING: - READ_STR(store, name, sizeof(name)); - dd->data.str = _strdup(name); - break; - case TBUILDING: - result = - read_reference(&dd->data.b, data, read_building_reference, - resolve_building); - if (result == 0 && !dd->data.b) { - return AT_READ_FAIL; - } - break; - case TUNIT: - result = - read_reference(&dd->data.u, data, read_unit_reference, resolve_unit); - if (result == 0 && !dd->data.u) { - return AT_READ_FAIL; - } - break; - case TFACTION: - result = - read_reference(&dd->data.f, data, read_faction_reference, - resolve_faction); - if (result == 0 && !dd->data.f) { - return AT_READ_FAIL; - } - break; - case TREGION: - result = - read_reference(&dd->data.r, data, read_region_reference, - RESOLVE_REGION(data->version)); - if (result == 0 && !dd->data.r) { - return AT_READ_FAIL; - } - break; - case TSHIP: - /* return read_ship_reference(&data->data.sh, store); */ - assert(!"not implemented"); - break; - case TNONE: - break; - default: + dd->data.real = flt; + } + else { + log_error("read dict, invalid type %d", n); return AT_READ_FAIL; } - return AT_READ_OK; + return AT_READ_DEPR; } static void dict_init(attrib * a) { - dict_data *data; + dict_data *dd; a->data.v = malloc(sizeof(dict_data)); - data = (dict_data *)a->data.v; - data->type = TNONE; + dd = (dict_data *)a->data.v; + dd->type = TNONE; } static void dict_done(attrib * a) { - dict_data *data = (dict_data *)a->data.v; - if (data->type == TSTRING) - free(data->data.str); - free(data->name); + dict_data *dd = (dict_data *)a->data.v; + free(dd->name); free(a->data.v); } +static void upgrade_keyval(const dict_data *dd, int keyval[], int v) { + if (strcmp(dd->name, "embassy_muschel") == 0) { + keyval[0] = atoi36("mupL"); + keyval[1] = v; + } + else { + log_error("dict conversion, bad entry %s", dd->name); + } +} + +static void dict_upgrade(attrib **alist, attrib *abegin) { + int n = 0, *keys = 0; + int i = 0, val[8]; + attrib *a, *ak = a_find(*alist, &at_keys); + if (ak) { + keys = (int *)ak->data.v; + if (keys) n = keys[0]; + } + for (a = abegin; a && a->type == abegin->type; a = a->next) { + dict_data *dd = (dict_data *)a->data.v; + if (dd->type == TINTEGER) { + upgrade_keyval(dd, val + i * 2, dd->data.i); + ++i; + } + else if (dd->type == TREAL) { + upgrade_keyval(dd, val + i * 2, (int)dd->data.real); + ++i; + } + else { + log_error("dict conversion, bad type %d for %s", dd->type, dd->name); + assert(!"invalid input"); + } + if (i == 4) { + keys = realloc(keys, sizeof(int) * (n + i + 1)); + memcpy(keys + n + 1, val, sizeof(val)); + n += i; + i = 0; + } + } + if (i > 0) { + keys = realloc(keys, sizeof(int) * (2 * (n + i) + 1)); + memcpy(keys + n*2 + 1, val, sizeof(int)*i*2); + if (!ak) { + ak = a_add(alist, a_new(&at_keys)); + } + } + if (ak) { + ak->data.v = keys; + if (keys) { + keys[0] = n + i; + } + } +} + attrib_type at_dict = { "object", dict_init, dict_done, NULL, - dict_write, dict_read + NULL, dict_read, dict_upgrade }; -const char *dict_name(const attrib * a) +void dict_set(attrib * a, const char * name, int value) { - dict_data *data = (dict_data *)a->data.v; - return data->name; -} - -struct attrib *dict_create(const char *name, dict_type type, variant value) -{ - attrib *a = a_new(&at_dict); - dict_data *data = (dict_data *)a->data.v; - data->name = _strdup(name); - - dict_set(a, type, value); - return a; -} - -void dict_set(attrib * a, dict_type type, variant value) -{ - dict_data *data = (dict_data *)a->data.v; - - if (data->type == TSTRING) - free(data->data.str); - data->type = type; - switch (type) { - case TSTRING: - data->data.str = value.v ? _strdup(value.v) : NULL; - break; - case TINTEGER: - data->data.i = value.i; - break; - case TREAL: - data->data.real = value.f; - break; - case TREGION: - data->data.r = (region *)value.v; - break; - case TBUILDING: - data->data.b = (building *)value.v; - break; - case TFACTION: - data->data.f = (faction *)value.v; - break; - case TUNIT: - data->data.u = (unit *)value.v; - break; - case TSHIP: - data->data.sh = (ship *)value.v; - break; - case TNONE: - break; - default: - assert(!"invalid object-type"); - break; - } -} - -void dict_get(const struct attrib *a, dict_type * type, variant * value) -{ - dict_data *data = (dict_data *)a->data.v; - *type = data->type; - switch (data->type) { - case TSTRING: - value->v = data->data.str; - break; - case TINTEGER: - value->i = data->data.i; - break; - case TREAL: - value->f = (float)data->data.real; - break; - case TREGION: - value->v = data->data.r; - break; - case TBUILDING: - value->v = data->data.b; - break; - case TFACTION: - value->v = data->data.f; - break; - case TUNIT: - value->v = data->data.u; - break; - case TSHIP: - value->v = data->data.sh; - break; - case TNONE: - break; - default: - assert(!"invalid object-type"); - break; - } + dict_data *dd = (dict_data *)a->data.v; + dd->name = strdup(name); + dd->type = TINTEGER; + dd->data.i = value; } diff --git a/src/attributes/dict.h b/src/attributes/dict.h index 5b282779e..aa6b4566a 100644 --- a/src/attributes/dict.h +++ b/src/attributes/dict.h @@ -13,25 +13,16 @@ #ifndef H_ATTRIBUTE_OBJECT #define H_ATTRIBUTE_OBJECT -#include +struct attrib_type; +struct attrib; #ifdef __cplusplus extern "C" { #endif - typedef enum { - TNONE = 0, TINTEGER = 1, TREAL = 2, TSTRING = 3, - TUNIT = 10, TFACTION = 11, TREGION = 12, TBUILDING = 13, TSHIP = 14 - } dict_type; + extern struct attrib_type at_dict; /* DEPRECATED: at_dict has been replaced with at_keys */ - extern struct attrib_type at_dict; - - struct attrib *dict_create(const char *name, dict_type type, - variant value); - void dict_get(const struct attrib *a, dict_type * type, - variant * value); - void dict_set(struct attrib *a, dict_type type, variant value); - const char *dict_name(const struct attrib *a); + void dict_set(struct attrib * a, const char * name, int value); #ifdef __cplusplus } diff --git a/src/attributes/fleechance.c b/src/attributes/fleechance.c index 232037972..b8012fba5 100644 --- a/src/attributes/fleechance.c +++ b/src/attributes/fleechance.c @@ -21,6 +21,8 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include +#include + attrib_type at_fleechance = { "fleechance", NULL, @@ -36,8 +38,3 @@ attrib *make_fleechance(float fleechance) a->data.flt = fleechance; return a; } - -void init_fleechance(void) -{ - at_register(&at_fleechance); -} diff --git a/src/attributes/fleechance.h b/src/attributes/fleechance.h index b2f75671c..d5817b8b7 100644 --- a/src/attributes/fleechance.h +++ b/src/attributes/fleechance.h @@ -25,7 +25,6 @@ extern "C" { extern struct attrib_type at_fleechance; struct attrib *make_fleechance(float fleechance); - void init_fleechance(void); #ifdef __cplusplus } diff --git a/src/attributes/hate.c b/src/attributes/hate.c index 98a36a029..17155fc71 100644 --- a/src/attributes/hate.c +++ b/src/attributes/hate.c @@ -30,7 +30,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. static int verify_hate(attrib * a, void *owner) { - unused_arg(owner); + UNUSED_ARG(owner); if (a->data.v == NULL) { return 0; } diff --git a/src/attributes/iceberg.c b/src/attributes/iceberg.c index 661a2ec80..e36e6303a 100644 --- a/src/attributes/iceberg.c +++ b/src/attributes/iceberg.c @@ -20,7 +20,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include "iceberg.h" -#include #include attrib_type at_iceberg = { diff --git a/src/attributes/key.c b/src/attributes/key.c index 39c7dab66..31580bccf 100644 --- a/src/attributes/key.c +++ b/src/attributes/key.c @@ -20,7 +20,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include "key.h" -#include #include #include #include @@ -31,19 +30,30 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. static void a_writekeys(const attrib *a, const void *o, storage *store) { int i, *keys = (int *)a->data.v; - for (i = 0; i <= keys[0]; ++i) { - WRITE_INT(store, keys[i]); + WRITE_INT(store, keys[0]); + for (i = 0; i < keys[0]; ++i) { + WRITE_INT(store, keys[i * 2 + 1]); + WRITE_INT(store, keys[i * 2 + 2]); } } static int a_readkeys(attrib * a, void *owner, gamedata *data) { int i, *p = 0; READ_INT(data->store, &i); - assert(i < 4096 && i>0); - a->data.v = p = malloc(sizeof(int)*(i + 1)); + assert(i < 4096 && i>=0); + if (i == 0) { + return AT_READ_FAIL; + } + a->data.v = p = malloc(sizeof(int)*(i*2 + 1)); *p++ = i; while (i--) { READ_INT(data->store, p++); + if (data->version >= KEYVAL_VERSION) { + READ_INT(data->store, p++); + } + else { + *p++ = 1; + } } return AT_READ_OK; } @@ -67,32 +77,37 @@ attrib_type at_keys = { NULL }; -void a_upgradekeys(attrib **alist, attrib *abegin) { +static void a_upgradekeys(attrib **alist, attrib *abegin) { int n = 0, *keys = 0; - int i = 0, val[4]; + int i = 0, val[8]; attrib *a, *ak = a_find(*alist, &at_keys); if (ak) { keys = (int *)ak->data.v; if (keys) n = keys[0]; } for (a = abegin; a && a->type == abegin->type; a = a->next) { - val[i++] = a->data.i; - if (i == 4) { - keys = realloc(keys, sizeof(int) * (n + i + 1)); - memcpy(keys + n + 1, val, sizeof(int)*i); + val[i * 2] = a->data.i; + val[i * 2 + 1] = 1; + if (++i == 4) { + keys = realloc(keys, sizeof(int) * (2 * (n + i) + 1)); + memcpy(keys + 2 * n + 1, val, sizeof(val)); n += i; i = 0; } } if (i > 0) { - keys = realloc(keys, sizeof(int) * (n + i + 1)); - memcpy(keys + n + 1, val, sizeof(int)*i); + keys = realloc(keys, sizeof(int) * (2 * (n + i) + 1)); + memcpy(keys + 2 * n + 1, val, sizeof(int)*i*2); if (!ak) { ak = a_add(alist, a_new(&at_keys)); } } - ak->data.v = keys; - keys[0] = n + i; + if (ak) { + ak->data.v = keys; + if (keys) { + keys[0] = n + i; + } + } } attrib_type at_key = { @@ -105,9 +120,9 @@ attrib_type at_key = { a_upgradekeys }; -void key_set(attrib ** alist, int key) +void key_set(attrib ** alist, int key, int val) { - int *keys, n = 1; + int *keys, n = 0; attrib *a; assert(key != 0); a = a_find(*alist, &at_keys); @@ -116,12 +131,13 @@ void key_set(attrib ** alist, int key) } keys = (int *)a->data.v; if (keys) { - n = keys[0] + 1; + n = keys[0]; } - keys = realloc(keys, sizeof(int) *(n + 1)); - // TODO: does insertion sort pay off here? - keys[0] = n; - keys[n] = key; + keys = realloc(keys, sizeof(int) *(2 * n + 3)); + /* TODO: does insertion sort pay off here? prob. not. */ + keys[0] = n + 1; + keys[2 * n + 1] = key; + keys[2 * n + 2] = val; a->data.v = keys; } @@ -133,29 +149,31 @@ void key_unset(attrib ** alist, int key) if (a) { int i, *keys = (int *)a->data.v; if (keys) { - for (i = 1; i <= keys[0]; ++i) { - if (keys[i] == key) { - keys[i] = keys[keys[0]]; + int n = keys[0]; + for (i = 0; i != n; ++i) { + if (keys[2 * i + 1] == key) { + memmove(keys + 2 * i + 1, keys + 2 * n - 1, 2 * sizeof(int)); keys[0]--; + break; } } } } } -bool key_get(attrib *alist, int key) { +int key_get(attrib *alist, int key) { attrib *a; assert(key != 0); a = a_find(alist, &at_keys); if (a) { int i, *keys = (int *)a->data.v; if (keys) { - for (i = 1; i <= keys[0]; ++i) { - if (keys[i] == key) { - return true; + for (i = 0; i != keys[0]; ++i) { + if (keys[i*2+1] == key) { + return keys[i * 2 + 2]; } } } } - return false; + return 0; } diff --git a/src/attributes/key.h b/src/attributes/key.h index 89292db1d..0b3ab748f 100644 --- a/src/attributes/key.h +++ b/src/attributes/key.h @@ -18,17 +18,20 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #ifndef H_ATTRIBUTE_KEY #define H_ATTRIBUTE_KEY + +#include + #ifdef __cplusplus extern "C" { #endif struct attrib; struct attrib_type; - extern struct attrib_type at_key; + extern struct attrib_type at_key; /* DEPRECATED: at_key has been replaced with at_keys */ extern struct attrib_type at_keys; - void key_set(struct attrib **alist, int key); + void key_set(struct attrib **alist, int key, int value); void key_unset(struct attrib **alist, int key); - bool key_get(struct attrib *alist, int key); + int key_get(struct attrib *alist, int key); #ifdef __cplusplus } diff --git a/src/attributes/key.test.c b/src/attributes/key.test.c index 46343d19f..b816e1d86 100644 --- a/src/attributes/key.test.c +++ b/src/attributes/key.test.c @@ -1,21 +1,24 @@ #include #include "key.h" +#include "dict.h" #include +#include #include +#include static void test_get_set_keys(CuTest *tc) { attrib *a = 0; - key_set(&a, 42); - key_set(&a, 43); - key_set(&a, 44); - CuAssertTrue(tc, key_get(a, 42)); - CuAssertTrue(tc, key_get(a, 43)); - CuAssertTrue(tc, key_get(a, 44)); + key_set(&a, 42, 1); + key_set(&a, 43, 2); + key_set(&a, 44, 3); + CuAssertIntEquals(tc, 1, key_get(a, 42)); + CuAssertIntEquals(tc, 2, key_get(a, 43)); + CuAssertIntEquals(tc, 3, key_get(a, 44)); key_unset(&a, 42); - CuAssertTrue(tc, !key_get(a, 42)); - CuAssertTrue(tc, key_get(a, 43)); - CuAssertTrue(tc, key_get(a, 44)); + CuAssertIntEquals(tc, 0, key_get(a, 42)); + CuAssertIntEquals(tc, 2, key_get(a, 43)); + CuAssertIntEquals(tc, 3, key_get(a, 44)); a_removeall(&a, NULL); } @@ -25,7 +28,7 @@ static attrib *key_set_orig(attrib **alist, int key) { return a; } -static void test_upgrade(CuTest *tc) { +static void test_upgrade_key(CuTest *tc) { attrib *alist = 0; key_set_orig(&alist, 40); key_set_orig(&alist, 41); @@ -34,18 +37,31 @@ static void test_upgrade(CuTest *tc) { key_set_orig(&alist, 44); CuAssertPtrNotNull(tc, alist->type->upgrade); alist->type->upgrade(&alist, alist); - CuAssertTrue(tc, key_get(alist, 40)); - CuAssertTrue(tc, key_get(alist, 41)); - CuAssertTrue(tc, key_get(alist, 42)); - CuAssertTrue(tc, key_get(alist, 43)); - CuAssertTrue(tc, key_get(alist, 44)); + CuAssertIntEquals(tc, 1, key_get(alist, 40)); + CuAssertIntEquals(tc, 1, key_get(alist, 41)); + CuAssertIntEquals(tc, 1, key_get(alist, 42)); + CuAssertIntEquals(tc, 1, key_get(alist, 43)); + CuAssertIntEquals(tc, 1, key_get(alist, 44)); a_removeall(&alist, NULL); } +static void test_upgrade_dict(CuTest *tc) { + attrib *a; + + a = a_new(&at_dict); + + dict_set(a, "embassy_muschel", 42); + CuAssertPtrNotNull(tc, a->type->upgrade); + a->type->upgrade(&a, a); + CuAssertIntEquals(tc, 42, key_get(a, atoi36("mupL"))); + a_removeall(&a, NULL); +} + CuSuite *get_key_suite(void) { CuSuite *suite = CuSuiteNew(); SUITE_ADD_TEST(suite, test_get_set_keys); - SUITE_ADD_TEST(suite, test_upgrade); + SUITE_ADD_TEST(suite, test_upgrade_key); + SUITE_ADD_TEST(suite, test_upgrade_dict); return suite; } diff --git a/src/attributes/matmod.c b/src/attributes/matmod.c index f885de99b..0cf1955d8 100644 --- a/src/attributes/matmod.c +++ b/src/attributes/matmod.c @@ -20,6 +20,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "matmod.h" #include +#include attrib_type at_matmod = { "matmod", diff --git a/src/attributes/moved.c b/src/attributes/moved.c index 3da2a4c3b..c66a5489c 100644 --- a/src/attributes/moved.c +++ b/src/attributes/moved.c @@ -27,7 +27,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. static int age_moved(attrib * a, void *owner) { - unused_arg(owner); + UNUSED_ARG(owner); --a->data.i; return a->data.i > 0; } diff --git a/src/attributes/movement.c b/src/attributes/movement.c index 0ad08030e..4d79039ef 100644 --- a/src/attributes/movement.c +++ b/src/attributes/movement.c @@ -20,7 +20,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include "movement.h" -#include #include #include @@ -68,7 +67,7 @@ void set_movement(attrib ** alist, int type) static int age_speedup(attrib * a, void *owner) { - unused_arg(owner); + UNUSED_ARG(owner); if (a->data.sa[0] > 0) { assert(a->data.sa[0] - a->data.sa[1] >= SHRT_MIN); assert(a->data.sa[0] - a->data.sa[1] <= SHRT_MAX); diff --git a/src/attributes/orcification.c b/src/attributes/orcification.c deleted file mode 100644 index dfb8f32f4..000000000 --- a/src/attributes/orcification.c +++ /dev/null @@ -1,39 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#include -#include -#include "orcification.h" - -#include -#include - -/* - * simple attributes that do not yet have their own file - */ - -attrib_type at_orcification = { - "orcification", NULL, NULL, NULL, a_writeint, a_readint, NULL, ATF_UNIQUE -}; - -attrib *make_orcification(int orcification) -{ - attrib *a = a_new(&at_orcification); - a->data.i = orcification; - return a; -} diff --git a/src/attributes/orcification.h b/src/attributes/orcification.h deleted file mode 100644 index 3f1e2d418..000000000 --- a/src/attributes/orcification.h +++ /dev/null @@ -1,28 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#ifdef __cplusplus -extern "C" { -#endif - extern struct attrib_type at_orcification; - - extern struct attrib *make_orcification(int orcification); - -#ifdef __cplusplus -} -#endif diff --git a/src/attributes/otherfaction.c b/src/attributes/otherfaction.c index 83c56e767..c9e56fe27 100644 --- a/src/attributes/otherfaction.c +++ b/src/attributes/otherfaction.c @@ -57,10 +57,16 @@ attrib_type at_otherfaction = { "otherfaction", NULL, NULL, NULL, write_of, read_of, NULL, ATF_UNIQUE }; -struct faction *get_otherfaction(const struct attrib *a) +faction *get_otherfaction(const unit * u) { - faction * f = (faction *)(a->data.v); - return (f && f->_alive) ? f : NULL; + attrib *a = a_find(u->attribs, &at_otherfaction); + if (a) { + faction * f = (faction *)(a->data.v); + if (f && f->_alive) { + return f; + } + } + return NULL; } struct attrib *make_otherfaction(struct faction *f) @@ -73,11 +79,8 @@ struct attrib *make_otherfaction(struct faction *f) faction *visible_faction(const faction * f, const unit * u) { if (f == NULL || !alliedunit(u, f, HELP_FSTEALTH)) { - attrib *a = a_find(u->attribs, &at_otherfaction); - if (a) { - faction *fv = get_otherfaction(a); - if (fv) return fv; - } + faction *fv = get_otherfaction(u); + if (fv) return fv; } return u->faction; } diff --git a/src/attributes/otherfaction.h b/src/attributes/otherfaction.h index 726d86b0e..a274bcd49 100644 --- a/src/attributes/otherfaction.h +++ b/src/attributes/otherfaction.h @@ -25,9 +25,9 @@ extern "C" { struct attrib; extern struct attrib_type at_otherfaction; - extern struct faction *get_otherfaction(const struct attrib *a); - extern struct attrib *make_otherfaction(struct faction *f); - extern struct faction *visible_faction(const struct faction *f, + struct faction *get_otherfaction(const struct unit *u); + struct attrib *make_otherfaction(struct faction *f); + struct faction *visible_faction(const struct faction *f, const struct unit *u); #ifdef __cplusplus diff --git a/src/attributes/overrideroads.c b/src/attributes/overrideroads.c index 72d2260bc..ef466de2d 100644 --- a/src/attributes/overrideroads.c +++ b/src/attributes/overrideroads.c @@ -20,9 +20,8 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include "overrideroads.h" -#include #include attrib_type at_overrideroads = { - "roads_override", NULL, NULL, NULL, &a_writestring, &a_readstring + "roads_override", NULL, NULL, NULL, a_writestring, a_readstring }; diff --git a/src/attributes/racename.c b/src/attributes/racename.c index f60340b0c..c45fa3815 100644 --- a/src/attributes/racename.c +++ b/src/attributes/racename.c @@ -20,7 +20,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include "racename.h" -#include #include /* libc includes */ @@ -44,7 +43,7 @@ void set_racename(attrib ** palist, const char *name) attrib *a = a_find(*palist, &at_racename); if (!a && name) { a = a_add(palist, a_new(&at_racename)); - a->data.v = _strdup(name); + a->data.v = strdup(name); } else if (a && !name) { a_remove(palist, a); @@ -52,7 +51,7 @@ void set_racename(attrib ** palist, const char *name) else if (a) { if (strcmp(a->data.v, name) != 0) { free(a->data.v); - a->data.v = _strdup(name); + a->data.v = strdup(name); } } } diff --git a/src/attributes/raceprefix.c b/src/attributes/raceprefix.c index 308c75292..a87edfb80 100644 --- a/src/attributes/raceprefix.c +++ b/src/attributes/raceprefix.c @@ -19,7 +19,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include "raceprefix.h" -#include #include @@ -42,7 +41,7 @@ void set_prefix(attrib ** ap, const char *str) free(a->data.v); } assert(a->type == &at_raceprefix); - a->data.v = _strdup(str); + a->data.v = strdup(str); } const char *get_prefix(attrib * a) @@ -54,7 +53,7 @@ const char *get_prefix(attrib * a) str = (char *)a->data.v; /* conversion of old prefixes */ if (strncmp(str, "prefix_", 7) == 0) { - ((attrib *)a)->data.v = _strdup(str + 7); + ((attrib *)a)->data.v = strdup(str + 7); free(str); str = (char *)a->data.v; } diff --git a/src/attributes/reduceproduction.c b/src/attributes/reduceproduction.c index 3f31938d3..01041380a 100644 --- a/src/attributes/reduceproduction.c +++ b/src/attributes/reduceproduction.c @@ -19,7 +19,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include "reduceproduction.h" -#include #include #include #include diff --git a/src/attributes/stealth.c b/src/attributes/stealth.c index b7336efc7..db2ec5304 100644 --- a/src/attributes/stealth.c +++ b/src/attributes/stealth.c @@ -1,7 +1,6 @@ #include #include #include -#include #include #include diff --git a/src/attributes/targetregion.c b/src/attributes/targetregion.c index 93ef08d0b..f61214dfc 100644 --- a/src/attributes/targetregion.c +++ b/src/attributes/targetregion.c @@ -21,7 +21,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include -#include #include #include diff --git a/src/battle.c b/src/battle.c index 392b24441..fce3d3049 100644 --- a/src/battle.c +++ b/src/battle.c @@ -21,11 +21,11 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "battle.h" #include "alchemy.h" #include "chaos.h" -#include "move.h" +#include "guard.h" #include "laws.h" -#include "seen.h" +#include "monsters.h" +#include "move.h" #include "skill.h" -#include "monster.h" #include #include @@ -64,7 +64,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include +#include #include #include @@ -76,16 +76,14 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include -static FILE *bdebug; - #define TACTICS_BONUS 1 /* when undefined, we have a tactics round. else this is the bonus tactics give */ #define TACTICS_MODIFIER 1 /* modifier for generals in the front/rear */ #define CATAPULT_INITIAL_RELOAD 4 /* erster schuss in runde 1 + rng_int() % INITIAL */ #define CATAPULT_STRUCTURAL_DAMAGE -#define BASE_CHANCE 70 /* 70% Basis-berlebenschance */ -#define TDIFF_CHANGE 5 /* 5% hher pro Stufe */ +#define BASE_CHANCE 70 /* 70% Basis-�berlebenschance */ +#define TDIFF_CHANGE 5 /* 5% h�her pro Stufe */ #define DAMAGE_QUOTIENT 2 /* damage += skilldiff/DAMAGE_QUOTIENT */ #define DEBUG_SELECT /* should be disabled if select_enemy works */ @@ -95,9 +93,6 @@ typedef enum combatmagic { DO_POSTCOMBATSPELL } combatmagic_t; -/* globals */ -static int obs_count = 0; - #define MINSPELLRANGE 1 #define MAXSPELLRANGE 7 @@ -303,11 +298,11 @@ static int dead_fighters(const fighter * df) } fighter *select_corpse(battle * b, fighter * af) -/* Whlt eine Leiche aus, der af hilft. casualties ist die Anzahl der +/* W�hlt eine Leiche aus, der af hilft. casualties ist die Anzahl der * Toten auf allen Seiten (im Array). Wenn af == NULL, wird die - * Parteizugehrigkeit ignoriert, und irgendeine Leiche genommen. + * Parteizugeh�rigkeit ignoriert, und irgendeine Leiche genommen. * - * Untote werden nicht ausgewhlt (casualties, not dead) */ + * Untote werden nicht ausgew�hlt (casualties, not dead) */ { int si, maxcasualties = 0; fighter *df; @@ -323,7 +318,7 @@ fighter *select_corpse(battle * b, fighter * af) side *s; for (s = b->sides; s != b->sides + b->nsides; ++s) { for (df = s->fighters; df; df = df->next) { - /* Geflohene haben auch 0 hp, drfen hier aber nicht ausgewhlt + /* Geflohene haben auch 0 hp, d�rfen hier aber nicht ausgew�hlt * werden! */ int dead = dead_fighters(df); if (!playerrace(u_race(df->unit))) @@ -439,7 +434,7 @@ static int get_row(const side * s, int row, const side * vs) /* every entry in the size[] array means someone trying to defend us. * 'retreat' is the number of rows falling. */ - result = _max(FIRST_ROW, row - retreat); + result = MAX(FIRST_ROW, row - retreat); return result; } @@ -508,6 +503,9 @@ contest_new(int skilldiff, const troop dt, const armor_type * ar, const armor_type * sh) { double tohit = 0.5 + skilldiff * 0.1; + + UNUSED_ARG(sh); + UNUSED_ARG(ar); if (tohit < 0.5) tohit = 0.5; if (chance(tohit)) { @@ -578,10 +576,7 @@ static weapon *select_weapon(const troop t, bool attacking, static bool i_canuse(const unit * u, const item_type * itype) { - if (itype->canuse) { - return itype->canuse(u, itype); - } - return true; + return rc_can_use(u_race(u), itype); } static int @@ -599,12 +594,12 @@ weapon_skill(const weapon_type * wtype, const unit * u, bool attacking) if (u_race(u) == get_race(RC_ORC)) { int sword = effskill(u, SK_MELEE, 0); int spear = effskill(u, SK_SPEAR, 0); - skill = _max(sword, spear) - 3; + skill = MAX(sword, spear) - 3; if (attacking) { - skill = _max(skill, u_race(u)->at_default); + skill = MAX(skill, u_race(u)->at_default); } else { - skill = _max(skill, u_race(u)->df_default); + skill = MAX(skill, u_race(u)->df_default); } } else { @@ -617,7 +612,7 @@ weapon_skill(const weapon_type * wtype, const unit * u, bool attacking) } } else { - /* der rassen-defaultwert kann hher sein als der Talentwert von + /* der rassen-defaultwert kann h�her sein als der Talentwert von * waffenloser kampf */ if (attacking) { if (skill < u_race(u)->at_default) @@ -684,7 +679,7 @@ static int CavalryBonus(const unit * u, troop enemy, int type) /* only half against trolls */ if (skl > 0) { if (type == BONUS_SKILL) { - int dmg = _min(skl, 8); + int dmg = MIN(skl, 8); if (u_race(enemy.fighter->unit) == get_race(RC_TROLL)) { dmg = dmg / 4; } @@ -695,7 +690,7 @@ static int CavalryBonus(const unit * u, troop enemy, int type) } else { skl = skl / 2; - return _min(skl, 4); + return MIN(skl, 4); } } } @@ -705,7 +700,7 @@ static int CavalryBonus(const unit * u, troop enemy, int type) static int weapon_effskill(troop t, troop enemy, const weapon * w, bool attacking, bool missile) -/* effektiver Waffenskill whrend des Kampfes */ +/* effektiver Waffenskill w�hrend des Kampfes */ { /* In dieser Runde alle die Modifier berechnen, die fig durch die * Waffen bekommt. */ @@ -762,24 +757,20 @@ bool missile) if (is_riding(t) && (wtype == NULL || (fval(wtype, WTF_HORSEBONUS) && !fval(wtype, WTF_MISSILE)))) { skill += CavalryBonus(tu, enemy, BONUS_SKILL); - if (wtype) - skill = - skillmod(urace(tu)->attribs, tu, tu->region, wtype->skill, skill, - SMF_RIDING); } if (t.index < tf->elvenhorses) { /* Elfenpferde: Helfen dem Reiter, egal ob und welche Waffe. Das ist - * eleganter, und vor allem einfacher, sonst mu man noch ein + * eleganter, und vor allem einfacher, sonst mu� man noch ein * WMF_ELVENHORSE einbauen. */ skill += 2; } if (skill > 0 && !attacking && missile) { /* - * Wenn ich verteidige, und nicht direkt meinem Feind gegenberstehe, - * halbiert sich mein Skill: (z.B. gegen Fernkmpfer. Nahkmpfer - * knnen mich eh nicht treffen) + * Wenn ich verteidige, und nicht direkt meinem Feind gegen�berstehe, + * halbiert sich mein Skill: (z.B. gegen Fernk�mpfer. Nahk�mpfer + * k�nnen mich eh nicht treffen) */ skill /= 2; } @@ -815,9 +806,9 @@ static const armor_type *select_armor(troop t, bool shield) } /* Hier ist zu beachten, ob und wie sich Zauber und Artefakte, die - * Rstungschutz geben, addieren. - * - Artefakt "trollbelt" gibt Rstung +1 - * - Zauber Rindenhaut gibt Rstung +3 + * R�stungschutz geben, addieren. + * - Artefakt "trollbelt" gibt R�stung +1 + * - Zauber Rindenhaut gibt R�stung +3 */ static int trollbelts(const unit *u) { const struct resource_type *belt = rt_find("trollbelt"); @@ -835,9 +826,10 @@ int select_magicarmor(troop t) return ma; } -/* Sind side ds und Magier des meffect verbndet, dann return 1*/ +/* Sind side ds und Magier des meffect verb�ndet, dann return 1*/ bool meffect_protection(battle * b, meffect * s, side * ds) { + UNUSED_ARG(b); if (!s->magician->alive) return false; if (s->duration <= 0) @@ -852,6 +844,7 @@ bool meffect_protection(battle * b, meffect * s, side * ds) /* Sind side as und Magier des meffect verfeindet, dann return 1*/ bool meffect_blocked(battle * b, meffect * s, side * as) { + UNUSED_ARG(b); if (!s->magician->alive) return false; if (s->duration <= 0) @@ -871,7 +864,7 @@ void rmfighter(fighter * df, int i) assert(df->alive >= i); assert(df->alive <= df->unit->number); - /* erst ziehen wir die Anzahl der Personen von den Kmpfern in der + /* erst ziehen wir die Anzahl der Personen von den K�mpfern in der * Schlacht, dann von denen auf dieser Seite ab*/ df->side->alive -= i; df->side->battle->alive -= i; @@ -929,14 +922,12 @@ void kill_troop(troop dt) if (!df->alive) { char eqname[64]; const struct equipment *eq; - if (u_race(du)->itemdrop) { - item *drops = u_race(du)->itemdrop(u_race(du), du->number - df->run.number); - - if (drops != NULL) { - i_merge(&du->items, &drops); - } + const race *rc = u_race(du); + item *drops = item_spoil(rc, du->number - df->run.number); + if (drops != NULL) { + i_merge(&du->items, &drops); } - sprintf(eqname, "%s_spoils", u_race(du)->_name); + sprintf(eqname, "%s_spoils", rc->_name); eq = get_equipment(eqname); if (eq != NULL) { equip_items(&du->items, eq); @@ -1007,68 +998,65 @@ static void vampirism(troop at, int damage) if (gain > 0) { int maxhp = unit_max_hp(at.fighter->unit); at.fighter->person[at.index].hp = - _min(gain + at.fighter->person[at.index].hp, maxhp); + MIN(gain + at.fighter->person[at.index].hp, maxhp); } } } #define MAXRACES 128 -static int armor_bonus(const race *rc) { - return get_param_int(rc->parameters, "armor.stamina", -1); -} - int natural_armor(unit * du) { const race *rc = u_race(du); - int bonus, an = rc->armor; + int an; assert(rc); - bonus = armor_bonus(rc); - if (bonus > 0) { + an = rc_armor_bonus(rc); + if (an > 0) { int sk = effskill(du, SK_STAMINA, 0); - sk /= bonus; - an += sk; + return rc->armor + sk / an; } - return an; + return rc->armor; } static int rc_specialdamage(const unit *au, const unit *du, const struct weapon_type *wtype) { const race *ar = u_race(au); int m, modifier = 0; - - switch (old_race(ar)) { - case RC_HALFLING: - if (wtype != NULL && dragonrace(u_race(du))) { - modifier += 5; + if (wtype != NULL) { + if (fval(u_race(du), RCF_DRAGON)) { + static int cache; + static const race *rc_halfling; + if (rc_changed(&cache)) { + rc_halfling = get_race(RC_HALFLING); + } + if (ar == rc_halfling) { + modifier += 5; + } } - break; - default: - break; - } - if (wtype != NULL && wtype->modifiers != NULL) { - for (m = 0; wtype->modifiers[m].value; ++m) { - /* weapon damage for this weapon, possibly by race */ - if (wtype->modifiers[m].flags & WMF_DAMAGE) { - race_list *rlist = wtype->modifiers[m].races; - if (rlist != NULL) { - while (rlist) { - if (rlist->data == ar) - break; - rlist = rlist->next; + if (wtype->modifiers != NULL) { + for (m = 0; wtype->modifiers[m].value; ++m) { + /* weapon damage for this weapon, possibly by race */ + if (wtype->modifiers[m].flags & WMF_DAMAGE) { + race_list *rlist = wtype->modifiers[m].races; + if (rlist != NULL) { + while (rlist) { + if (rlist->data == ar) + break; + rlist = rlist->next; + } + if (rlist == NULL) + continue; } - if (rlist == NULL) - continue; + modifier += wtype->modifiers[m].value; } - modifier += wtype->modifiers[m].value; } } } return modifier; } -int calculate_armor(troop dt, const weapon_type *dwtype, const weapon_type *awtype, double *magres) { +int calculate_armor(troop dt, const weapon_type *dwtype, const weapon_type *awtype, variant *magres) { fighter *df = dt.fighter; unit *du = df->unit; int ar = 0, an, am; @@ -1089,15 +1077,15 @@ int calculate_armor(troop dt, const weapon_type *dwtype, const weapon_type *awty } } - /* natrliche Rstung */ + /* nat�rliche R�stung */ an = natural_armor(du); - /* magische Rstung durch Artefakte oder Sprche */ - /* Momentan nur Trollgrtel und Werwolf-Eigenschaft */ + /* magische R�stung durch Artefakte oder Spr�che */ + /* Momentan nur Trollg�rtel und Werwolf-Eigenschaft */ am = select_magicarmor(dt); if (rule_nat_armor == 0) { - /* natrliche Rstung ist halbkumulativ */ + /* nat�rliche R�stung ist halbkumulativ */ if (ar > 0) { ar += an / 2; } @@ -1118,22 +1106,32 @@ int calculate_armor(troop dt, const weapon_type *dwtype, const weapon_type *awty ar += am; if (magres) { - // calculate damage multiplier for magical damage - double res = 1.0 - magic_resistance(du); + /* calculate damage multiplier for magical damage */ + variant res; + + res = frac_sub(frac_one, magic_resistance(du)); if (u_race(du)->battle_flags & BF_EQUIPMENT) { /* der Effekt von Laen steigt nicht linear */ - if (armor && fval(armor, ATF_LAEN)) - res *= (1 - armor->magres); - if (shield && fval(shield, ATF_LAEN)) - res *= (1 - shield->magres); - if (dwtype) - res *= (1 - dwtype->magres); + if (armor && fval(armor, ATF_LAEN)) { + res = frac_mul(res, frac_sub(frac_one, armor->magres)); + } + if (shield && fval(shield, ATF_LAEN)) { + res = frac_mul(res, frac_sub(frac_one, shield->magres)); + } + if (dwtype) { + res = frac_mul(res, frac_sub(frac_one, dwtype->magres)); + } } - /* gegen Magie wirkt nur natrliche und magische Rstung */ + /* gegen Magie wirkt nur natuerliche und magische Ruestung */ ar = an + am; - *magres = res > 0 ? res : 0; + if (res.sa[0] >= 0) { + *magres = res; + } + else { + *magres = frac_make(0, 1); + } } return ar; @@ -1156,7 +1154,7 @@ terminate(troop dt, troop at, int type, const char *damage, bool missile) const weapon_type *dwtype = NULL; const weapon_type *awtype = NULL; const weapon *weapon; - double res = 1.0; + variant res = frac_make(1, 1); int rda, sk = 0, sd; bool magic = false; @@ -1199,22 +1197,19 @@ terminate(troop dt, troop at, int type, const char *damage, bool missile) return false; } - /* TODO not sure if res could be > 1 here */ if (magic) { - da = (int)(_max(da * res, 0)); + res = frac_mul(frac_make(da, 1), res); + da = res.sa[0] / res.sa[1]; } if (type != AT_COMBATSPELL && type != AT_SPELL) { if (rule_damage & DAMAGE_CRITICAL) { double kritchance = (sk * 3 - sd) / 200.0; - kritchance = _max(kritchance, 0.005); - kritchance = _min(0.9, kritchance); + kritchance = MAX(kritchance, 0.005); + kritchance = MIN(0.9, kritchance); while (chance(kritchance)) { - if (bdebug) { - fprintf(bdebug, "%s/%d lands a critical hit\n", unitid(au), at.index); - } da += dice_rand(damage); } } @@ -1236,17 +1231,17 @@ terminate(troop dt, troop at, int type, const char *damage, bool missile) /* Skilldifferenzbonus */ if (rule_damage & DAMAGE_SKILL_BONUS) { - da += _max(0, (sk - sd) / DAMAGE_QUOTIENT); + da += MAX(0, (sk - sd) / DAMAGE_QUOTIENT); } } - rda = _max(da - ar, 0); + rda = MAX(da - ar, 0); if ((u_race(du)->battle_flags & BF_INV_NONMAGIC) && !magic) rda = 0; else { int qi; - quicklist *ql; + selist *ql; unsigned int i = 0; if (u_race(du)->battle_flags & BF_RES_PIERCE) @@ -1260,8 +1255,8 @@ terminate(troop dt, troop at, int type, const char *damage, bool missile) rda /= 2; /* Schilde */ - for (qi = 0, ql = b->meffects; ql; ql_advance(&ql, &qi, 1)) { - meffect *me = (meffect *)ql_get(ql, qi); + for (qi = 0, ql = b->meffects; ql; selist_advance(&ql, &qi, 1)) { + meffect *me = (meffect *)selist_get(ql, qi); if (meffect_protection(b, me, ds) != 0) { assert(0 <= rda); /* rda sollte hier immer mindestens 0 sein */ /* jeder Schaden wird um effect% reduziert bis der Schild duration @@ -1271,9 +1266,9 @@ terminate(troop dt, troop at, int type, const char *damage, bool missile) rda -= hp; me->duration -= hp; } - /* gibt Rstung +effect fr duration Treffer */ + /* gibt R�stung +effect f�r duration Treffer */ if (me->typ == SHIELD_ARMOR) { - rda = _max(rda - me->effect, 0); + rda = MAX(rda - me->effect, 0); me->duration--; } } @@ -1294,11 +1289,7 @@ terminate(troop dt, troop at, int type, const char *damage, bool missile) } } - if (df->person[dt.index].hp > 0) { /* Hat berlebt */ - if (bdebug) { - fprintf(bdebug, "Damage %d, armor %d: %d -> %d HP\n", - da, ar, df->person[dt.index].hp + rda, df->person[dt.index].hp); - } + if (df->person[dt.index].hp > 0) { /* Hat �berlebt */ if (u_race(au) == get_race(RC_DAEMON)) { if (!(df->person[dt.index].flags & (FL_COURAGE | FL_DAZZLED))) { df->person[dt.index].flags |= FL_DAZZLED; @@ -1316,10 +1307,10 @@ terminate(troop dt, troop at, int type, const char *damage, bool missile) if (oldpotiontype[P_HEAL] && !fval(&df->person[dt.index], FL_HEALING_USED)) { if (i_get(du->items, oldpotiontype[P_HEAL]->itype) > 0) { - i_change(&du->items, oldpotiontype[P_HEAL]->itype, -1); message *m = msg_message("battle::potionsave", "unit", du); message_faction(b, du->faction, m); msg_release(m); + i_change(&du->items, oldpotiontype[P_HEAL]->itype, -1); fset(&df->person[dt.index], FL_HEALING_USED); df->person[dt.index].hp = u_race(du)->hitpoints * 5; /* give the person a buffer */ return false; @@ -1327,10 +1318,6 @@ terminate(troop dt, troop at, int type, const char *damage, bool missile) } ++at.fighter->kills; - if (bdebug) { - fprintf(bdebug, "Damage %d, armor %d, type %d: %d -> %d HP, tot.\n", - da, ar, type, df->person[dt.index].hp + rda, df->person[dt.index].hp); - } for (pitm = &du->items; *pitm;) { item *itm = *pitm; const item_type *itype = itm->type; @@ -1472,7 +1459,7 @@ troop select_enemy(fighter * af, int minrow, int maxrow, int select) minrow = FIGHT_ROW; maxrow = BEHIND_ROW; } - minrow = _max(minrow, FIGHT_ROW); + minrow = MAX(minrow, FIGHT_ROW); enemies = count_enemies(b, af, minrow, maxrow, select); @@ -1572,7 +1559,7 @@ static troop select_opponent(battle * b, troop at, int mindist, int maxdist) dt = select_enemy(at.fighter, FIGHT_ROW, BEHIND_ROW, SELECT_ADVANCE); } else { - mindist = _max(mindist, FIGHT_ROW); + mindist = MAX(mindist, FIGHT_ROW); dt = select_enemy(at.fighter, mindist, maxdist, SELECT_ADVANCE); } @@ -1601,11 +1588,11 @@ static troop select_opponent(battle * b, troop at, int mindist, int maxdist) return dt; } -quicklist *fighters(battle * b, const side * vs, int minrow, int maxrow, +selist *fighters(battle * b, const side * vs, int minrow, int maxrow, int mask) { side *s; - quicklist *fightervp = 0; + selist *fightervp = 0; assert(vs != NULL); @@ -1627,7 +1614,7 @@ quicklist *fighters(battle * b, const side * vs, int minrow, int maxrow, for (fig = s->fighters; fig; fig = fig->next) { int row = get_unitrow(fig, vs); if (row >= minrow && row <= maxrow) { - ql_push(&fightervp, fig); + selist_push(&fightervp, fig); } } } @@ -1700,7 +1687,7 @@ void do_combatmagic(battle * b, combatmagic_t was) unit *mage = fig->unit; if (fig->alive <= 0) - continue; /* fighter kann im Kampf gettet worden sein */ + continue; /* fighter kann im Kampf get�tet worden sein */ level = effskill(mage, SK_MAGIC, r); if (level > 0) { @@ -1733,7 +1720,7 @@ void do_combatmagic(battle * b, combatmagic_t was) level = eff_spelllevel(mage, sp, level, 1); if (sl > 0) - level = _min(sl, level); + level = MIN(sl, level); if (level < 0) { report_failed_spell(b, mage, sp); free_order(ord); @@ -1761,8 +1748,8 @@ void do_combatmagic(battle * b, combatmagic_t was) for (co = spellranks[rank].begin; co; co = co->next) { fighter *fig = co->magician.fig; const spell *sp = co->sp; - int level = co->level; + level = co->level; if (!sp->cast) { log_error("spell '%s' has no function.\n", sp->sname); } @@ -1799,7 +1786,7 @@ static void do_combatspell(troop at) unit *caster = fi->unit; battle *b = fi->side->battle; region *r = b->region; - quicklist *ql; + selist *ql; int level, qi; double power; int fumblechance = 0; @@ -1809,18 +1796,18 @@ static void do_combatspell(troop at) sp = get_combatspell(caster, 1); if (sp == NULL) { - fi->magic = 0; /* Hat keinen Kampfzauber, kmpft nichtmagisch weiter */ + fi->magic = 0; /* Hat keinen Kampfzauber, k�mpft nichtmagisch weiter */ return; } ord = create_order(K_CAST, lang, "'%s'", spell_name(sp, lang)); if (!cancast(caster, sp, 1, 1, ord)) { - fi->magic = 0; /* Kann nicht mehr Zaubern, kmpft nichtmagisch weiter */ + fi->magic = 0; /* Kann nicht mehr Zaubern, k�mpft nichtmagisch weiter */ return; } level = eff_spelllevel(caster, sp, fi->magic, 1); if ((sl = get_combatspelllevel(caster, 1)) > 0) - level = _min(level, sl); + level = MIN(level, sl); if (fumble(r, caster, sp, level)) { report_failed_spell(b, caster, sp); @@ -1828,8 +1815,8 @@ static void do_combatspell(troop at) return; } - for (qi = 0, ql = b->meffects; ql; ql_advance(&ql, &qi, 1)) { - meffect *mblock = (meffect *)ql_get(ql, qi); + for (qi = 0, ql = b->meffects; ql; selist_advance(&ql, &qi, 1)) { + meffect *mblock = (meffect *)selist_get(ql, qi); if (mblock->typ == SHIELD_BLOCK) { if (meffect_blocked(b, mblock, fi->side) != 0) { fumblechance += mblock->duration; @@ -1838,7 +1825,7 @@ static void do_combatspell(troop at) } } - /* Antimagie die Fehlschlag erhht */ + /* Antimagie die Fehlschlag erh�ht */ if (rng_int() % 100 < fumblechance) { report_failed_spell(b, caster, sp); pay_spell(caster, sp, level, 1); @@ -1862,16 +1849,19 @@ static void do_combatspell(troop at) } /* Sonderattacken: Monster patzern nicht und zahlen auch keine - * Spruchkosten. Da die Spruchstrke direkt durch den Level bestimmt + * Spruchkosten. Da die Spruchst�rke direkt durch den Level bestimmt * wird, wirkt auch keine Antimagie (wird sonst in spellpower * gemacht) */ static void do_extra_spell(troop at, const att * a) { - const spell *sp = a->data.sp; + const spell *sp = spellref_get(a->data.sp); - if (sp->cast == NULL) { - log_error("spell '%s' has no function.\n", sp->sname); + if (!sp) { + log_error("no such spell: '%s'", a->data.sp->name); + } + else if (sp->cast == NULL) { + log_error("spell '%s' has no function.", sp->sname); } else { assert(a->level > 0); @@ -1885,7 +1875,13 @@ int skilldiff(troop at, troop dt, int dist) unit *au = af->unit, *du = df->unit; int is_protected = 0, skdiff = 0; weapon *awp = select_weapon(at, true, dist > 1); + static int rc_cache; + static const race *rc_halfling, *rc_goblin; + if (rc_changed(&rc_cache)) { + rc_halfling = get_race(RC_HALFLING); + rc_goblin = get_race(RC_GOBLIN); + } skdiff += af->person[at.index].attack; skdiff -= df->person[dt.index].defence; @@ -1893,37 +1889,38 @@ int skilldiff(troop at, troop dt, int dist) skdiff += 2; /* Effekte durch Rassen */ - if (awp != NULL && u_race(au) == get_race(RC_HALFLING) && dragonrace(u_race(du))) { + if (awp != NULL && u_race(au) == rc_halfling && dragonrace(u_race(du))) { skdiff += 5; } - - if (u_race(au) == get_race(RC_GOBLIN)) { + else if (u_race(au) == rc_goblin) { if (af->side->size[SUM_ROW] >= df->side->size[SUM_ROW] * rule_goblin_bonus) { skdiff += 1; } } if (df->building) { - if (df->building->attribs) { + building *b = df->building; + if (b->attribs) { const curse_type *strongwall_ct = ct_find("strongwall"); if (strongwall_ct) { - curse *c = get_curse(df->building->attribs, strongwall_ct); + curse *c = get_curse(b->attribs, strongwall_ct); if (curse_active(c)) { - /* wirkt auf alle Gebude */ + /* wirkt auf alle Geb�ude */ skdiff -= curse_geteffect_int(c); is_protected = 2; } } } - if (df->building->type->protection) { - int beff = df->building->type->protection(df->building, du, DEFENSE_BONUS); - if (beff) { + if (b->type->flags & BTF_FORTIFICATION) { + int stage = buildingeffsize(b, false); + int beff = building_protection(b->type, stage); + if (beff > 0) { skdiff -= beff; is_protected = 2; - if (df->building->attribs) { + if (b->attribs) { const curse_type *magicwalls_ct = ct_find("magicwalls"); if (magicwalls_ct - && curse_active(get_curse(df->building->attribs, magicwalls_ct))) { + && curse_active(get_curse(b->attribs, magicwalls_ct))) { /* Verdoppelt Burgenbonus */ skdiff -= beff; } @@ -1967,20 +1964,6 @@ int getreload(troop at) return at.fighter->person[at.index].reload; } -static void -debug_hit(troop at, const weapon * awp, troop dt, const weapon * dwp, -int skdiff, int dist, bool success) -{ - fprintf(bdebug, "%.4s/%d [%6s/%d] %s %.4s/%d [%6s/%d] with %d, distance %d\n", - unitid(at.fighter->unit), at.index, - LOC(default_locale, awp ? resourcename(awp->type->itype->rtype, - 0) : "unarmed"), weapon_effskill(at, dt, awp, true, dist > 1), - success ? "hits" : "misses", unitid(dt.fighter->unit), dt.index, - LOC(default_locale, dwp ? resourcename(dwp->type->itype->rtype, - 0) : "unarmed"), weapon_effskill(dt, at, dwp, false, dist > 1), skdiff, - dist); -} - int hits(troop at, troop dt, weapon * awp) { fighter *af = at.fighter, *df = dt.fighter; @@ -2014,39 +1997,27 @@ int hits(troop at, troop dt, weapon * awp) } skdiff = skilldiff(at, dt, dist); - /* Verteidiger bekommt eine Rstung */ + /* Verteidiger bekommt eine R�stung */ armor = select_armor(dt, true); if (dwp == NULL || (dwp->type->flags & WTF_USESHIELD)) { shield = select_armor(dt, false); } if (contest(skdiff, dt, armor, shield)) { - if (bdebug) { - debug_hit(at, awp, dt, dwp, skdiff, dist, true); - } return 1; } - if (bdebug) { - debug_hit(at, awp, dt, dwp, skdiff, dist, false); - } return 0; } void dazzle(battle * b, troop * td) { + UNUSED_ARG(b); /* Nicht kumulativ ! */ - if (td->fighter->person[td->index].flags & FL_DAZZLED) - return; - #ifdef TODO_RUNESWORD if (td->fighter->weapon[WP_RUNESWORD].count > td->index) { return; } #endif - if (td->fighter->person[td->index].flags & FL_COURAGE) { - return; - } - - if (td->fighter->person[td->index].flags & FL_DAZZLED) { + if (td->fighter->person[td->index].flags & (FL_COURAGE|FL_DAZZLED)) { return; } @@ -2056,11 +2027,11 @@ void dazzle(battle * b, troop * td) void damage_building(battle * b, building * bldg, int damage_abs) { - bldg->size = _max(1, bldg->size - damage_abs); + bldg->size = MAX(1, bldg->size - damage_abs); - /* Wenn Burg, dann gucken, ob die Leute alle noch in das Gebude passen. */ + /* Wenn Burg, dann gucken, ob die Leute alle noch in das Geb�ude passen. */ - if (bldg->type->protection) { + if (bldg->type->flags & BTF_FORTIFICATION) { side *s; bldg->sizeleft = bldg->size; @@ -2116,7 +2087,7 @@ static void attack(battle * b, troop ta, const att * a, int numattack) switch (a->type) { case AT_COMBATSPELL: /* Magier versuchen immer erstmal zu zaubern, erst wenn das - * fehlschlgt, wird af->magic == 0 und der Magier kmpft + * fehlschl�gt, wird af->magic == 0 und der Magier k�mpft * konventionell weiter */ if (numattack == 0 && af->magic > 0) { /* wenn der magier in die potenzielle Reichweite von Attacken des @@ -2128,7 +2099,7 @@ static void attack(battle * b, troop ta, const att * a, int numattack) } } break; - case AT_STANDARD: /* Waffen, mag. Gegenstnde, Kampfzauber */ + case AT_STANDARD: /* Waffen, mag. Gegenst�nde, Kampfzauber */ if (numattack > 0 || af->magic <= 0) { weapon *wp = ta.fighter->person[ta.index].missile; int melee = @@ -2145,7 +2116,7 @@ static void attack(battle * b, troop ta, const att * a, int numattack) bool standard_attack = true; bool reload = false; /* spezialattacken der waffe nur, wenn erste attacke in der runde. - * sonst helden mit feuerschwertern zu mchtig */ + * sonst helden mit feuerschwertern zu m�chtig */ if (numattack == 0 && wp && wp->type->attack) { int dead = 0; standard_attack = wp->type->attack(&ta, wp->type, &dead); @@ -2184,16 +2155,12 @@ static void attack(battle * b, troop ta, const att * a, int numattack) } } if (reload && wp && wp->type->reload && !getreload(ta)) { - int i = setreload(ta); - if (bdebug) { - fprintf(bdebug, "%s/%d reloading %d turns\n", unitid(au), - ta.index, i); - } + setreload(ta); } } } break; - case AT_SPELL: /* Extra-Sprche. Kampfzauber in AT_COMBATSPELL! */ + case AT_SPELL: /* Extra-Spr�che. Kampfzauber in AT_COMBATSPELL! */ do_extra_spell(ta, a); break; case AT_NATURAL: @@ -2278,14 +2245,14 @@ void do_attack(fighter * af) assert(au && au->number); /* Da das Zuschlagen auf Einheiten und nicht auf den einzelnen - * Kmpfern beruht, darf die Reihenfolge und Gre der Einheit keine + * K�mpfern beruht, darf die Reihenfolge und Gr��e der Einheit keine * Rolle spielen, Das tut sie nur dann, wenn jeder, der am Anfang der - * Runde lebte, auch zuschlagen darf. Ansonsten ist der, der zufllig - * mit einer groen Einheit zuerst drankommt, extrem bevorteilt. */ + * Runde lebte, auch zuschlagen darf. Ansonsten ist der, der zuf�llig + * mit einer gro�en Einheit zuerst drankommt, extrem bevorteilt. */ ta.index = af->fighting; while (ta.index--) { - /* Wir suchen eine beliebige Feind-Einheit aus. An der knnen + /* Wir suchen eine beliebige Feind-Einheit aus. An der k�nnen * wir feststellen, ob noch jemand da ist. */ int apr, attacks = attacks_per_round(ta); if (!count_enemies(b, af, FIGHT_ROW, LAST_ROW, SELECT_FIND)) @@ -2310,7 +2277,7 @@ void do_attack(fighter * af) } } } - /* Der letzte Katapultschtze setzt die + /* Der letzte Katapultsch�tze setzt die * Ladezeit neu und generiert die Meldung. */ if (af->catmsg >= 0) { struct message *m = @@ -2332,7 +2299,7 @@ void do_regenerate(fighter * af) while (ta.index--) { struct person *p = af->person + ta.index; p->hp += effskill(au, SK_STAMINA, 0); - p->hp = _min(unit_max_hp(au), p->hp); + p->hp = MIN(unit_max_hp(au), p->hp); } } @@ -2341,11 +2308,11 @@ static void add_tactics(tactics * ta, fighter * fig, int value) if (value == 0 || value < ta->value) return; if (value > ta->value) { - ql_free(ta->fighters); + selist_free(ta->fighters); ta->fighters = 0; } - ql_push(&ta->fighters, fig); - ql_push(&fig->side->battle->leaders, fig); + selist_push(&ta->fighters, fig); + selist_push(&fig->side->battle->leaders, fig); ta->value = value; } @@ -2384,17 +2351,17 @@ double fleechance(unit * u) { double c = 0.20; /* Fluchtwahrscheinlichkeit in % */ attrib *a = a_find(u->attribs, &at_fleechance); - /* Einheit u versucht, dem Getmmel zu entkommen */ + /* Einheit u versucht, dem Get�mmel zu entkommen */ c += (effskill(u, SK_STEALTH, 0) * 0.05); c += horse_fleeing_bonus(u); if (u_race(u) == get_race(RC_HALFLING)) { c += 0.20; - c = _min(c, 0.90); + c = MIN(c, 0.90); } else { - c = _min(c, 0.75); + c = MIN(c, 0.75); } if (a != NULL) @@ -2419,7 +2386,7 @@ side *make_side(battle * b, const faction * f, const group * g, else { unit *u; for (u = b->region->units; u; u = u->next) { - if (is_guard(u, HELP_ALL)) { + if (is_guard(u)) { if (alliedunit(u, f, HELP_GUARD)) { flags |= SIDE_HASGUARDS; break; @@ -2487,9 +2454,10 @@ troop select_ally(fighter * af, int minrow, int maxrow, int allytype) static int loot_quota(const unit * src, const unit * dst, const item_type * type, int n) { + UNUSED_ARG(type); if (dst && src && src->faction != dst->faction) { double divisor = config_get_flt("rules.items.loot_divisor", 1); - assert(divisor == 0 || divisor >= 1); + assert(divisor <= 0 || divisor >= 1); if (divisor >= 1) { double r = n / divisor; int x = (int)r; @@ -2518,7 +2486,7 @@ static void loot_items(fighter * corpse) float lootfactor = (float)dead / (float)u->number; /* only loot the dead! */ int maxloot = (int)((float)itm->number * lootfactor); if (maxloot > 0) { - int i = _min(10, maxloot); + int i = MIN(10, maxloot); for (; i != 0; --i) { int loot = maxloot / i; @@ -2599,7 +2567,7 @@ static void battle_effects(battle * b, int dead_players) { region *r = b->region; int dead_peasants = - _min(rpeasants(r), (int)(dead_players * PopulationDamage())); + MIN(rpeasants(r), (int)(dead_players * PopulationDamage())); if (dead_peasants) { deathcounts(r, dead_peasants + dead_players); add_chaoscount(r, dead_peasants / 2); @@ -2636,7 +2604,6 @@ static void reorder_fleeing(region * r) static void aftermath(battle * b) { region *r = b->region; - ship *sh; side *s; int dead_players = 0; bfaction *bf; @@ -2672,7 +2639,7 @@ static void aftermath(battle * b) for (s = b->sides; s != b->sides + b->nsides; ++s) { int snumber = 0; fighter *df; - bool relevant = false; /* Kampf relevant fr diese Partei? */ + bool relevant = false; /* Kampf relevant f�r diese Partei? */ if (!fval(s, SIDE_HASGUARDS)) { relevant = true; } @@ -2712,7 +2679,7 @@ static void aftermath(battle * b) /* Report the casualties */ reportcasualties(b, df, dead); - /* Zuerst drfen die Feinde plndern, die mitgenommenen Items + /* Zuerst d�rfen die Feinde pl�ndern, die mitgenommenen Items * stehen in fig->run.items. Dann werden die Fliehenden auf * die leere (tote) alte Einheit gemapt */ if (!fval(df, FIG_NOLOOT)) { @@ -2720,7 +2687,7 @@ static void aftermath(battle * b) } scale_number(du, df->run.number); du->hp = df->run.hp; - setguard(du, GUARD_NONE); + setguard(du, false); /* must leave ships or buildings, or a stealthy hobbit * can hold castles indefinitely */ if (!fval(r->terrain, SEA_REGION)) { @@ -2747,7 +2714,7 @@ static void aftermath(battle * b) } else { if (df->alive == 0) { - /* alle sind tot, niemand geflohen. Einheit auflsen */ + /* alle sind tot, niemand geflohen. Einheit aufl�sen */ df->run.number = 0; df->run.hp = 0; @@ -2757,7 +2724,7 @@ static void aftermath(battle * b) /* Distribute Loot */ loot_items(df); - setguard(du, GUARD_NONE); + setguard(du, false); scale_number(du, 0); } else { @@ -2809,7 +2776,7 @@ static void aftermath(battle * b) /* Wir benutzen drifted, um uns zu merken, ob ein Schiff * schonmal Schaden genommen hat. (moved und drifted - * sollten in flags berfhrt werden */ + * sollten in flags �berf�hrt werden */ for (s = b->sides; s != b->sides + b->nsides; ++s) { fighter *df; @@ -2830,9 +2797,10 @@ static void aftermath(battle * b) } /* Wenn sich die Einheit auf einem Schiff befindet, wird - * dieses Schiff beschdigt. Andernfalls ein Schiff, welches + * dieses Schiff besch�digt. Andernfalls ein Schiff, welches * evt. zuvor verlassen wurde. */ if (ships_damaged) { + ship *sh; if (du->ship) sh = du->ship; else @@ -2867,13 +2835,6 @@ static void aftermath(battle * b) } reorder_fleeing(r); - - if (bdebug) { - fprintf(bdebug, "The battle lasted %d turns, %s and %s.\n", - b->turn, - b->has_tactics_turn ? "had a tactic turn" : "had no tactic turn", - ships_damaged ? "was relevant" : "was not relevant."); - } } static void battle_punit(unit * u, battle * b) @@ -2884,13 +2845,9 @@ static void battle_punit(unit * u, battle * b) faction *f = bf->faction; strlist *S = 0, *x; - spunit(&S, f, u, 4, see_battle); + spunit(&S, f, u, 4, seen_battle); for (x = S; x; x = x->next) { fbattlerecord(b, f, x->s); - if (bdebug && u->faction == f) { - fputs(x->s, bdebug); - fputc('\n', bdebug); - } } if (S) freestrlist(S); @@ -3070,17 +3027,6 @@ static void print_stats(battle * b) fbattlerecord(b, f, buf); } - if (bdebug && s->faction) { - if (f_get_alliance(s->faction)) { - fprintf(bdebug, "##### %s (%s/%d)\n", s->faction->name, - itoa36(s->faction->no), - s->faction->alliance ? s->faction->alliance->id : 0); - } - else { - fprintf(bdebug, "##### %s (%s)\n", s->faction->name, - itoa36(s->faction->no)); - } - } print_fighters(b, s); } @@ -3091,19 +3037,19 @@ static void print_stats(battle * b) b->max_tactics = 0; for (s = b->sides; s != b->sides + b->nsides; ++s) { - if (!ql_empty(s->leader.fighters)) { - b->max_tactics = _max(b->max_tactics, s->leader.value); + if (!selist_empty(s->leader.fighters)) { + b->max_tactics = MAX(b->max_tactics, s->leader.value); } } if (b->max_tactics > 0) { for (s = b->sides; s != b->sides + b->nsides; ++s) { if (s->leader.value == b->max_tactics) { - quicklist *ql; + selist *ql; int qi; - for (qi = 0, ql = s->leader.fighters; ql; ql_advance(&ql, &qi, 1)) { - fighter *tf = (fighter *)ql_get(ql, qi); + for (qi = 0, ql = s->leader.fighters; ql; selist_advance(&ql, &qi, 1)) { + fighter *tf = (fighter *)selist_get(ql, qi); unit *u = tf->unit; message *m = NULL; if (!is_attacker(tf)) { @@ -3122,7 +3068,7 @@ static void print_stats(battle * b) static int weapon_weight(const weapon * w, bool missile) { - if (missile == i2b(fval(w->type, WTF_MISSILE))) { + if (missile == !!(fval(w->type, WTF_MISSILE))) { return w->attackskill + w->defenseskill; } return 0; @@ -3177,8 +3123,7 @@ fighter *make_fighter(battle * b, unit * u, side * s1, bool attack) int speeded = 0, speed = 1; int rest; const group *g = NULL; - const attrib *a = a_find(u->attribs, &at_otherfaction); - const faction *stealthfaction = a ? get_otherfaction(a) : NULL; + const faction *stealthfaction = get_otherfaction(u); unsigned int flags = 0; assert(u->number); @@ -3203,8 +3148,8 @@ fighter *make_fighter(battle * b, unit * u, side * s1, bool attack) else if (!stealthfaction) { s1->stealthfaction = NULL; } - /* Zu diesem Zeitpunkt ist attacked noch 0, da die Einheit fr noch - * keinen Kampf ausgewhlt wurde (sonst wrde ein fighter existieren) */ + /* Zu diesem Zeitpunkt ist attacked noch 0, da die Einheit f�r noch + * keinen Kampf ausgew�hlt wurde (sonst w�rde ein fighter existieren) */ } fig = (struct fighter*)calloc(1, sizeof(struct fighter)); @@ -3212,8 +3157,8 @@ fighter *make_fighter(battle * b, unit * u, side * s1, bool attack) s1->fighters = fig; fig->unit = u; - /* In einer Burg mu man a) nicht Angreifer sein, und b) drin sein, und - * c) noch Platz finden. d) menschanhnlich sein */ + /* In einer Burg mu� man a) nicht Angreifer sein, und b) drin sein, und + * c) noch Platz finden. d) menschan�hnlich sein */ if (attack) { set_attacker(fig); } @@ -3239,7 +3184,7 @@ fighter *make_fighter(battle * b, unit * u, side * s1, bool attack) assert(h); rest = u->hp % u->number; - /* Effekte von Sprchen */ + /* Effekte von Spr�chen */ if (u->attribs) { const curse_type *speed_ct; @@ -3258,9 +3203,9 @@ fighter *make_fighter(battle * b, unit * u, side * s1, bool attack) /* change_effect wird in ageing gemacht */ /* Effekte von Artefakten */ - strongmen = _min(fig->unit->number, trollbelts(u)); + strongmen = MIN(fig->unit->number, trollbelts(u)); - /* Hitpoints, Attack- und Defence-Boni fr alle Personen */ + /* Hitpoints, Attack- und Defence-Boni f�r alle Personen */ for (i = 0; i < fig->alive; i++) { assert(i < fig->unit->number); fig->person[i].hp = h; @@ -3281,8 +3226,8 @@ fighter *make_fighter(battle * b, unit * u, side * s1, bool attack) } } - /* Fr alle Waffengattungen wird bestimmt, wie viele der Personen mit - * ihr kmpfen knnten, und was ihr Wert darin ist. */ + /* F�r alle Waffengattungen wird bestimmt, wie viele der Personen mit + * ihr k�mpfen k�nnten, und was ihr Wert darin ist. */ if (u_race(u)->battle_flags & BF_EQUIPMENT) { int oi = 0, di = 0, w = 0; for (itm = u->items; itm && w != WMAX; itm = itm->next) { @@ -3400,12 +3345,12 @@ fighter *make_fighter(battle * b, unit * u, side * s1, bool attack) } } - /* Jetzt mu noch geschaut werden, wo die Einheit die jeweils besten - * Werte hat, das kommt aber erst irgendwo spter. Ich entscheide - * wrend des Kampfes, welche ich nehme, je nach Gegner. Deswegen auch + /* Jetzt mu� noch geschaut werden, wo die Einheit die jeweils besten + * Werte hat, das kommt aber erst irgendwo sp�ter. Ich entscheide + * w�rend des Kampfes, welche ich nehme, je nach Gegner. Deswegen auch * keine addierten boni. */ - /* Zuerst mal die Spezialbehandlung gewisser Sonderflle. */ + /* Zuerst mal die Spezialbehandlung gewisser Sonderf�lle. */ fig->magic = effskill(u, SK_MAGIC, 0); if (fig->horses) { @@ -3448,7 +3393,7 @@ fighter *make_fighter(battle * b, unit * u, side * s1, bool attack) else p_bonus += 3; } while (rnd >= 97); - bonus = _max(p_bonus, bonus); + bonus = MAX(p_bonus, bonus); } tactics += bonus; } @@ -3512,28 +3457,6 @@ static int join_battle(battle * b, unit * u, bool attack, fighter ** cp) return false; } -static const char *simplename(region * r) -{ - int i; - static char name[17]; - const char *cp = rname(r, default_locale); - for (i = 0; *cp && i != 16; ++i, ++cp) { - int c = *(unsigned char *)cp; - while (c && !isalpha(c) && !isxspace(c)) { - ++cp; - c = *(unsigned char *)cp; - } - if (isxspace(c)) - name[i] = '_'; - else - name[i] = *cp; - if (c == 0) - break; - } - name[i] = 0; - return name; -} - battle *make_battle(region * r) { battle *b = (battle *)calloc(1, sizeof(battle)); @@ -3545,32 +3468,9 @@ battle *make_battle(region * r) for (bld = r->buildings; bld != NULL; bld = bld->next) bld->sizeleft = bld->size; - if (battledebug) { - char zText[MAX_PATH]; - char zFilename[MAX_PATH]; - join_path(basepath(), "battles", zText, sizeof(zText)); - if (_mkdir(zText) != 0) { - log_error("could not create subdirectory for battle logs: %s", zText); - battledebug = false; - } - else { - sprintf(zFilename, "battle-%d-%s.log", obs_count++, simplename(r)); - join_path(zText, zFilename, zText, sizeof(zText)); - bdebug = fopen(zText, "w"); - if (!bdebug) - log_error("battles cannot be debugged"); - else { - const unsigned char utf8_bom[4] = { 0xef, 0xbb, 0xbf, 0 }; - fwrite(utf8_bom, 1, 3, bdebug); - fprintf(bdebug, "In %s findet ein Kampf statt:\n", rname(r, - default_locale)); - } - } - } - b->region = r; b->plane = getplane(r); - /* Finde alle Parteien, die den Kampf beobachten knnen: */ + /* Finde alle Parteien, die den Kampf beobachten k�nnen: */ for (u = r->units; u; u = u->next) { if (u->number > 0) { if (!fval(u->faction, FFL_MARK)) { @@ -3599,7 +3499,7 @@ battle *make_battle(region * r) static void free_side(side * si) { - ql_free(si->leader.fighters); + selist_free(si->leader.fighters); } static void free_fighter(fighter * fig) @@ -3637,19 +3537,15 @@ static void battle_free(battle * b) { void free_battle(battle * b) { - if (bdebug) { - fclose(bdebug); - } - while (b->factions) { bfaction *bf = b->factions; b->factions = bf->next; free(bf); } - ql_free(b->leaders); - ql_foreach(b->meffects, free); - ql_free(b->meffects); + selist_free(b->leaders); + selist_foreach(b->meffects, free); + selist_free(b->meffects); battle_free(b); } @@ -3759,18 +3655,18 @@ static void join_allies(battle * b) for (s = b->sides; s != s_end; ++s) { side *se; - /* Wenn alle attackierten noch FFL_NOAID haben, dann kmpfe nicht mit. */ + /* Wenn alle attackierten noch FFL_NOAID haben, dann k�mpfe nicht mit. */ if (fval(s->faction, FFL_NOAID)) continue; if (s->faction != f) { /* Wenn wir attackiert haben, kommt niemand mehr hinzu: */ if (s->bf->attacker) continue; - /* alliiert mssen wir schon sein, sonst ist's eh egal : */ + /* alliiert m�ssen wir schon sein, sonst ist's eh egal : */ if (!alliedunit(u, s->faction, HELP_FIGHT)) continue; /* wenn die partei verborgen ist, oder gar eine andere - * vorgespiegelt wird, und er sich uns gegenber nicht zu + * vorgespiegelt wird, und er sich uns gegen�ber nicht zu * erkennen gibt, helfen wir ihm nicht */ if (s->stealthfaction) { if (!allysfm(s, u->faction, HELP_FSTEALTH)) { @@ -3778,7 +3674,7 @@ static void join_allies(battle * b) } } } - /* einen alliierten angreifen drfen sie nicht, es sei denn, der + /* einen alliierten angreifen d�rfen sie nicht, es sei denn, der * ist mit einem alliierten verfeindet, der nicht attackiert * hat: */ for (se = b->sides; se != s_end; ++se) { @@ -3792,7 +3688,7 @@ static void join_allies(battle * b) } if (se == s_end) continue; - /* Wenn die Einheit belagert ist, mu auch einer der Alliierten belagert sein: */ + /* Wenn die Einheit belagert ist, mu� auch einer der Alliierten belagert sein: */ if (besieged(u)) { fighter *ally; for (ally = s->fighters; ally; ally = ally->next) { @@ -3803,15 +3699,9 @@ static void join_allies(battle * b) if (ally == NULL) continue; } - /* keine Einwnde, also soll er mitmachen: */ + /* keine Einw�nde, also soll er mitmachen: */ if (c == NULL) { - if (join_battle(b, u, false, &c)) { - if (battledebug) { - fprintf(bdebug, "%s joins to help %s against %s.\n", - unitname(u), factionname(s->faction), factionname(se->faction)); - } - } - else if (c == NULL) { + if (!join_battle(b, u, false, &c)) { continue; } } @@ -3819,12 +3709,7 @@ static void join_allies(battle * b) /* the enemy of my friend is my enemy: */ for (se = b->sides; se != s_end; ++se) { if (se->faction != u->faction && enemy(s, se)) { - if (set_enemy(se, c->side, false) && battledebug) { - fprintf(bdebug, - "%u/%s hates %u/%s because they are enemies with %u/%s.\n", - c->side->index, sidename(c->side), se->index, sidename(se), - s->index, sidename(s)); - } + set_enemy(se, c->side, false); } } } @@ -3872,7 +3757,7 @@ static void flee(const troop dt) fig->run.hp += fig->person[dt.index].hp; ++fig->run.number; - setguard(u, GUARD_NONE); + setguard(u, false); kill_troop(dt); } @@ -3919,7 +3804,7 @@ static bool start_battle(region * r, battle ** bp) continue; } - /* ist ein Flchtling aus einem andern Kampf */ + /* ist ein Fl�chtling aus einem andern Kampf */ if (fval(u, UFL_LONGACTION)) continue; @@ -3935,12 +3820,12 @@ static bool start_battle(region * r, battle ** bp) if ((u->ship != NULL && !fval(r->terrain, SEA_REGION)) || (lsh = leftship(u)) != NULL) { - if (is_guarded(r, u, GUARD_TRAVELTHRU)) { + if (is_guarded(r, u)) { if (lsh) { cmistake(u, ord, 234, MSG_BATTLE); } else { - /* Fehler: "Das Schiff mu erst verlassen werden" */ + /* Fehler: "Das Schiff mu� erst verlassen werden" */ cmistake(u, ord, 19, MSG_BATTLE); } continue; @@ -3984,7 +3869,7 @@ static bool start_battle(region * r, battle ** bp) while (a && a->type == &at_curse) { curse *c = (curse *)a->data.v; if (c->type == calm_ct - && curse_geteffect(c) == u2->faction->subscription) { + && curse_geteffect_int(c) == u2->faction->subscription) { if (curse_active(c)) { calm = true; break; @@ -4005,18 +3890,8 @@ static bool start_battle(region * r, battle ** bp) } b = make_battle(r); } - if (join_battle(b, u, true, &c1)) { - if (battledebug) { - fprintf(bdebug, "%s joins by attacking %s.\n", - unitname(u), unitname(u2)); - } - } - if (join_battle(b, u2, false, &c2)) { - if (battledebug) { - fprintf(bdebug, "%s joins because of an attack from %s.\n", - unitname(u2), unitname(u)); - } - } + join_battle(b, u, true, &c1); + join_battle(b, u2, false, &c2); /* Hat die attackierte Einheit keinen Noaid-Status, * wird das Flag von der Faction genommen, andere @@ -4025,15 +3900,11 @@ static bool start_battle(region * r, battle ** bp) freset(u2->faction, FFL_NOAID); if (c1 != NULL && c2 != NULL) { - /* Merken, wer Angreifer ist, fr die Rckzahlung der - * Prcombataura bei kurzem Kampf. */ + /* Merken, wer Angreifer ist, f�r die R�ckzahlung der + * Pr�combataura bei kurzem Kampf. */ c1->side->bf->attacker = true; - if (set_enemy(c1->side, c2->side, true) && battledebug) { - fprintf(bdebug, "%u/%s hates %u/%s because they attacked them.\n", - c2->side->index, sidename(c2->side), - c1->side->index, sidename(c1->side)); - } + set_enemy(c1->side, c2->side, true); fighting = true; } } @@ -4059,7 +3930,7 @@ static void battle_attacks(battle * b) && get_tactics(s, NULL) == b->max_tactics)) { for (fig = s->fighters; fig; fig = fig->next) { - /* ist in dieser Einheit noch jemand handlungsfhig? */ + /* ist in dieser Einheit noch jemand handlungsf�hig? */ if (fig->fighting <= 0) continue; @@ -4103,8 +3974,8 @@ static void battle_flee(battle * b) unit *u = fig->unit; troop dt; int runners = 0; - /* Flucht nicht bei mehr als 600 HP. Damit Wyrme ttbar bleiben. */ - int runhp = _min(600, (int)(0.9 + unit_max_hp(u) * hpflee(u->status))); + /* Flucht nicht bei mehr als 600 HP. Damit Wyrme t�tbar bleiben. */ + int runhp = MIN(600, (int)(0.9 + unit_max_hp(u) * hpflee(u->status))); if (u->ship && fval(u->region->terrain, SEA_REGION)) { /* keine Flucht von Schiffen auf hoher See */ @@ -4147,15 +4018,11 @@ static void battle_flee(battle * b) if (fig->person[dt.index].flags & FL_PANICED) { ispaniced = EFFECT_PANIC_SPELL; } - if (chance(_min(fleechance(u) + ispaniced, 0.90))) { + if (chance(MIN(fleechance(u) + ispaniced, 0.90))) { ++runners; flee(dt); } } - if (bdebug && runners > 0) { - fprintf(bdebug, "Fleeing: %d from %s\n", runners, - itoa36(fig->unit->no)); - } } } } @@ -4223,7 +4090,7 @@ void do_battle(region * r) return; /* Bevor wir die alliierten hineinziehen, sollten wir schauen, * - * Ob jemand fliehen kann. Dann erbrigt sich das ganze ja + * Ob jemand fliehen kann. Dann er�brigt sich das ganze ja * vielleicht schon. */ print_header(b); if (!fighting) { @@ -4242,7 +4109,7 @@ void do_battle(region * r) freset(sh, SF_DAMAGED); /* Gibt es eine Taktikrunde ? */ - if (!ql_empty(b->leaders)) { + if (!selist_empty(b->leaders)) { b->turn = 0; b->has_tactics_turn = true; } @@ -4258,9 +4125,6 @@ void do_battle(region * r) log_debug("battle in %s (%d, %d) : ", regionname(r, 0), r->x, r->y); for (; battle_report(b) && b->turn <= max_turns; ++b->turn) { - if (bdebug) { - fprintf(bdebug, "*** Turn: %d\n", b->turn); - } battle_flee(b); battle_update(b); battle_attacks(b); @@ -4272,12 +4136,10 @@ void do_battle(region * r) if (rule_force_leave(FORCE_LEAVE_POSTCOMBAT)) { force_leave(b->region, b); } - /* Hier ist das Gefecht beendet, und wir knnen die - * Hilfsstrukturen * wieder lschen: */ + /* Hier ist das Gefecht beendet, und wir k�nnen die + * Hilfsstrukturen * wieder l�schen: */ - if (b) { - free_battle(b); - } + free_battle(b); } void do_battles(void) { diff --git a/src/battle.h b/src/battle.h index 3e156070d..85e65cf66 100644 --- a/src/battle.h +++ b/src/battle.h @@ -20,17 +20,21 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #define H_KRNL_BATTLE #include +#include #ifdef __cplusplus extern "C" { #endif + struct message; + struct selist; + /** more defines **/ #define FS_ENEMY 1 #define FS_HELP 2 /***** Verteidigungslinien. - * Eressea hat 4 Verteidigungslinien. 1 ist vorn, 5. enthlt Summen + * Eressea hat 4 Verteidigungslinien. 1 ist vorn, 5. enthaelt Summen */ #define NUMROWS 5 @@ -43,7 +47,6 @@ extern "C" { #define LAST_ROW FLEE_ROW #define MAXSIDES 192 /* if there are ever more than this, we're fucked. */ - struct message; typedef struct bfaction { struct bfaction *next; @@ -53,7 +56,7 @@ extern "C" { } bfaction; typedef struct tactics { - struct quicklist *fighters; + struct selist *fighters; int value; } tactics; @@ -72,9 +75,9 @@ extern "C" { unsigned char relations[MAXSIDES]; struct side *enemies[MAXSIDES]; struct fighter *fighters; - int index; /* Eintrag der Fraktion in b->matrix/b->enemies */ + unsigned int index; /* Eintrag der Fraktion in b->matrix/b->enemies */ int size[NUMROWS]; /* Anzahl Personen in Reihe X. 0 = Summe */ - int nonblockers[NUMROWS]; /* Anzahl nichtblockierender Kmpfer, z.B. Schattenritter. */ + int nonblockers[NUMROWS]; /* Anzahl nichtblockierender Kaempfer, z.B. Schattenritter. */ int alive; /* Die Partei hat den Kampf verlassen */ int removed; /* stoned */ int flee; @@ -86,7 +89,7 @@ extern "C" { } side; typedef struct battle { - struct quicklist *leaders; + struct selist *leaders; struct region *region; struct plane *plane; bfaction *factions; @@ -94,7 +97,7 @@ extern "C" { int nfighters; side sides[MAXSIDES]; int nsides; - struct quicklist *meffects; + struct selist *meffects; int max_tactics; int turn; bool has_tactics_turn; @@ -131,7 +134,7 @@ extern "C" { /*** fighter::person::flags ***/ #define FL_TIRED 1 -#define FL_DAZZLED 2 /* durch Untote oder Dmonen eingeschchtert */ +#define FL_DAZZLED 2 /* durch Untote oder Daemonen eingeschuechtert */ #define FL_PANICED 4 #define FL_COURAGE 8 /* Helden fliehen nie */ #define FL_SLEEPING 16 @@ -156,17 +159,17 @@ extern "C" { typedef struct fighter { struct fighter *next; struct side *side; - struct unit *unit; /* Die Einheit, die hier kmpft */ - struct building *building; /* Gebude, in dem die Einheit evtl. steht */ + struct unit *unit; /* Die Einheit, die hier kaempft */ + struct building *building; /* Gebaeude, in dem die Einheit evtl. steht */ status_t status; /* Kampfstatus */ struct weapon *weapons; - struct armor *armors; /* Anzahl Rstungen jeden Typs */ + struct armor *armors; /* Anzahl Ruestungen jeden Typs */ int alive; /* Anzahl der noch nicht Toten in der Einheit */ - int fighting; /* Anzahl der Kmpfer in der aktuellen Runde */ + int fighting; /* Anzahl der Kaempfer in der aktuellen Runde */ int removed; /* Anzahl Kaempfer, die nicht tot sind, aber aus dem Kampf raus sind (zB weil sie versteinert wurden). Diese werden auch - in alive noch mitgezhlt! */ + in alive noch mitgezaehlt! */ int magic; /* Magietalent der Einheit */ int horses; /* Anzahl brauchbarer Pferde der Einheit */ int elvenhorses; /* Anzahl brauchbarer Elfenpferde der Einheit */ @@ -179,7 +182,7 @@ extern "C" { int defence : 8; /* (Magie) Paradenbonus der Personen */ int damage : 8; /* (Magie) Schadensbonus der Personen im Nahkampf */ int damage_rear : 8; /* (Magie) Schadensbonus der Personen im Fernkampf */ - int flags : 8; /* (Magie) Diverse Flags auf Kmpfern */ + int flags : 8; /* (Magie) Diverse Flags auf Kaempfern */ int speed : 8; /* (Magie) Geschwindigkeitsmultiplkator. */ int reload : 4; /* Anzahl Runden, die die Waffe x noch laden muss. * dahinter steckt ein array[RL_MAX] wenn er min. eine hat. */ @@ -245,14 +248,14 @@ extern "C" { int count_enemies(struct battle *b, const struct fighter *af, int minrow, int maxrow, int select); int natural_armor(struct unit * u); - int calculate_armor(troop dt, const struct weapon_type *dwtype, const struct weapon_type *awtype, double *magres); + int calculate_armor(troop dt, const struct weapon_type *dwtype, const struct weapon_type *awtype, union variant *magres); bool terminate(troop dt, troop at, int type, const char *damage, bool missile); extern void message_all(battle * b, struct message *m); extern int hits(troop at, troop dt, weapon * awp); extern void damage_building(struct battle *b, struct building *bldg, int damage_abs); - struct quicklist *fighters(struct battle *b, const struct side *vs, + struct selist *fighters(struct battle *b, const struct side *vs, int minrow, int maxrow, int mask); int count_allies(const struct side *as, int minrow, int maxrow, int select, int allytype); diff --git a/src/battle.test.c b/src/battle.test.c index 7228ef90e..b00d06a98 100644 --- a/src/battle.test.c +++ b/src/battle.test.c @@ -26,7 +26,7 @@ static void test_make_fighter(CuTest * tc) faction * f; const resource_type *rtype; - test_cleanup(); + test_setup(); test_create_horse(); r = test_create_region(0, 0, 0); f = test_create_faction(NULL); @@ -60,8 +60,17 @@ static void test_make_fighter(CuTest * tc) test_cleanup(); } -static int add_two(const building * b, const unit * u, building_bonus bonus) { - return 2; +static building_type * setup_castle(void) { + building_type * btype; + construction *cons; + + btype = bt_get_or_create("castle"); + btype->flags |= BTF_FORTIFICATION; + cons = btype->construction = calloc(1, sizeof(construction)); + cons->maxsize = 5; + cons = cons->improvement = calloc(1, sizeof(construction)); + cons->maxsize = -1; + return btype; } static void test_defenders_get_building_bonus(CuTest * tc) @@ -72,16 +81,13 @@ static void test_defenders_get_building_bonus(CuTest * tc) fighter *df, *af; battle *b; side *ds, *as; - int diff; troop dt, at; building_type * btype; - test_cleanup(); + test_setup(); + btype = setup_castle(); r = test_create_region(0, 0, 0); - btype = bt_get_or_create("castle"); - btype->protection = &add_two; bld = test_create_building(r, btype); - bld->size = 10; du = test_create_unit(test_create_faction(NULL), r); au = test_create_unit(test_create_faction(NULL), r); @@ -101,11 +107,14 @@ static void test_defenders_get_building_bonus(CuTest * tc) at.fighter = af; at.index = 0; - diff = skilldiff(at, dt, 0); - CuAssertIntEquals(tc, -2, diff); + bld->size = 10; /* stage 1 building */ + CuAssertIntEquals(tc, -1, skilldiff(at, dt, 0)); + CuAssertIntEquals(tc, 0, skilldiff(dt, at, 0)); + + bld->size = 1; /* stage 0 building */ + CuAssertIntEquals(tc, 0, skilldiff(at, dt, 0)); + CuAssertIntEquals(tc, 0, skilldiff(dt, at, 0)); - diff = skilldiff(dt, at, 0); - CuAssertIntEquals(tc, 0, diff); free_battle(b); test_cleanup(); } @@ -120,10 +129,10 @@ static void test_attackers_get_no_building_bonus(CuTest * tc) side *as; building_type * btype; - test_cleanup(); + test_setup(); r = test_create_region(0, 0, 0); - btype = bt_get_or_create("castle"); - btype->protection = &add_two; + btype = setup_castle(); + btype->flags |= BTF_FORTIFICATION; bld = test_create_building(r, btype); bld->size = 10; @@ -150,10 +159,10 @@ static void test_building_bonus_respects_size(CuTest * tc) building_type * btype; faction * f; - test_cleanup(); + test_setup(); + btype = setup_castle(); r = test_create_region(0, 0, 0); - btype = bt_get_or_create("castle"); - btype->protection = &add_two; + btype->flags |= BTF_FORTIFICATION; bld = test_create_building(r, btype); bld->size = 10; @@ -178,28 +187,25 @@ static void test_building_bonus_respects_size(CuTest * tc) static void test_building_defence_bonus(CuTest * tc) { - unit *au; - region *r; - building * bld; building_type * btype; - faction * f; - int def; - test_cleanup(); - r = test_create_region(0, 0, 0); - btype = test_create_buildingtype("castle"); - btype->protection = (int(*)(const struct building *, const struct unit *, building_bonus))get_function("building_protection"); - btype->construction->defense_bonus = 3; - bld = test_create_building(r, btype); - bld->size = 1; + test_setup(); + btype = setup_castle(); - f = test_create_faction(NULL); - au = test_create_unit(f, r); - scale_number(au, 1); - u_set_building(au, bld); + btype->maxsize = -1; /* unlimited buildigs get the castle bonus */ + CuAssertIntEquals(tc, 0, building_protection(btype, 0)); + CuAssertIntEquals(tc, 1, building_protection(btype, 1)); + CuAssertIntEquals(tc, 3, building_protection(btype, 2)); + CuAssertIntEquals(tc, 5, building_protection(btype, 3)); + CuAssertIntEquals(tc, 8, building_protection(btype, 4)); + CuAssertIntEquals(tc, 12, building_protection(btype, 5)); + CuAssertIntEquals(tc, 12, building_protection(btype, 6)); - def = btype->protection(bld, au, DEFENSE_BONUS); - CuAssertIntEquals(tc, 3, def); + btype->maxsize = 10; /* limited-size buildings are treated like an E3 watchtower */ + CuAssertIntEquals(tc, 0, building_protection(btype, 0)); + CuAssertIntEquals(tc, 1, building_protection(btype, 1)); + CuAssertIntEquals(tc, 2, building_protection(btype, 2)); + CuAssertIntEquals(tc, 2, building_protection(btype, 3)); test_cleanup(); } @@ -219,14 +225,17 @@ static void test_natural_armor(CuTest * tc) race *rc; unit *u; - test_cleanup(); + test_setup(); rc = test_create_race("human"); u = test_create_unit(test_create_faction(rc), test_create_region(0, 0, 0)); set_level(u, SK_STAMINA, 2); + CuAssertIntEquals(tc, 0, rc_armor_bonus(rc)); CuAssertIntEquals(tc, 0, natural_armor(u)); - set_param(&rc->parameters, "armor.stamina", "1"); + rc_set_param(rc, "armor.stamina", "1"); + CuAssertIntEquals(tc, 1, rc_armor_bonus(rc)); CuAssertIntEquals(tc, 2, natural_armor(u)); - set_param(&rc->parameters, "armor.stamina", "2"); + rc_set_param(rc, "armor.stamina", "2"); + CuAssertIntEquals(tc, 2, rc_armor_bonus(rc)); CuAssertIntEquals(tc, 1, natural_armor(u)); test_cleanup(); } @@ -241,23 +250,24 @@ static void test_calculate_armor(CuTest * tc) armor_type *ashield, *achain; item_type *ibelt, *ishield, *ichain; race *rc; - double magres = 0.0; + variant magres = frac_zero; + variant v50p = frac_make(1, 2); - test_cleanup(); + test_setup(); r = test_create_region(0, 0, 0); ibelt = it_get_or_create(rt_get_or_create("trollbelt")); ishield = it_get_or_create(rt_get_or_create("shield")); - ashield = new_armortype(ishield, 0.0, 0.5, 1, ATF_SHIELD); + ashield = new_armortype(ishield, 0.0, v50p, 1, ATF_SHIELD); ichain = it_get_or_create(rt_get_or_create("chainmail")); - achain = new_armortype(ichain, 0.0, 0.5, 3, ATF_NONE); - wtype = new_weapontype(it_get_or_create(rt_get_or_create("sword")), 0, 0.5, 0, 0, 0, 0, SK_MELEE, 1); + achain = new_armortype(ichain, 0.0, v50p, 3, ATF_NONE); + wtype = new_weapontype(it_get_or_create(rt_get_or_create("sword")), 0, v50p, 0, 0, 0, 0, SK_MELEE, 1); rc = test_create_race("human"); du = test_create_unit(test_create_faction(rc), r); dt.index = 0; dt.fighter = setup_fighter(&b, du); CuAssertIntEquals_Msg(tc, "default ac", 0, calculate_armor(dt, 0, 0, &magres)); - CuAssertDblEquals_Msg(tc, "magres unmodified", 1.0, magres, 0.01); + CuAssertIntEquals_Msg(tc, "magres unmodified", magres.sa[0], magres.sa[1]); free_battle(b); b = NULL; @@ -290,13 +300,13 @@ static void test_calculate_armor(CuTest * tc) wtype->flags = WTF_NONE; CuAssertIntEquals_Msg(tc, "magical attack", 3, calculate_armor(dt, 0, 0, &magres)); - CuAssertDblEquals_Msg(tc, "magres unmodified", 1.0, magres, 0.01); + CuAssertIntEquals_Msg(tc, "magres unmodified", magres.sa[1], magres.sa[0]); ashield->flags |= ATF_LAEN; achain->flags |= ATF_LAEN; - magres = 1.0; + magres = frac_one; CuAssertIntEquals_Msg(tc, "laen armor", 3, calculate_armor(dt, 0, 0, &magres)); - CuAssertDblEquals_Msg(tc, "laen magres bonus", 0.25, magres, 0.01); + CuAssertIntEquals_Msg(tc, "laen magres bonus", 4, magres.sa[1]); free_battle(b); test_cleanup(); } @@ -310,38 +320,42 @@ static void test_magic_resistance(CuTest *tc) armor_type *ashield, *achain; item_type *ishield, *ichain; race *rc; - double magres; + variant magres; + variant v50p = frac_make(1, 2); + variant v10p = frac_make(1, 10); - test_cleanup(); + test_setup(); r = test_create_region(0, 0, 0); ishield = it_get_or_create(rt_get_or_create("shield")); - ashield = new_armortype(ishield, 0.0, 0.5, 1, ATF_SHIELD); + ashield = new_armortype(ishield, 0.0, v50p, 1, ATF_SHIELD); ichain = it_get_or_create(rt_get_or_create("chainmail")); - achain = new_armortype(ichain, 0.0, 0.5, 3, ATF_NONE); + achain = new_armortype(ichain, 0.0, v50p, 3, ATF_NONE); rc = test_create_race("human"); du = test_create_unit(test_create_faction(rc), r); dt.index = 0; + i_change(&du->items, ishield, 1); dt.fighter = setup_fighter(&b, du); calculate_armor(dt, 0, 0, &magres); - CuAssertDblEquals_Msg(tc, "no magres bonus", 0.0, magic_resistance(du), 0.01); - CuAssertDblEquals_Msg(tc, "no magres reduction", 1.0, magres, 0.01); + CuAssertIntEquals_Msg(tc, "no magres reduction", magres.sa[1], magres.sa[0]); + magres = magic_resistance(du); + CuAssertIntEquals_Msg(tc, "no magres reduction", 0, magres.sa[0]); ashield->flags |= ATF_LAEN; - ashield->magres = 0.1; + ashield->magres = v10p; calculate_armor(dt, 0, 0, &magres); + CuAssert(tc, "laen reduction => 10%%", frac_equal(frac_make(9, 10), magres)); free_battle(b); b = NULL; - i_change(&du->items, ishield, 1); i_change(&du->items, ichain, 1); achain->flags |= ATF_LAEN; - achain->magres = 0.1; + achain->magres = v10p; ashield->flags |= ATF_LAEN; - ashield->magres = 0.1; + ashield->magres = v10p; dt.fighter = setup_fighter(&b, du); calculate_armor(dt, 0, 0, &magres); - CuAssertDblEquals_Msg(tc, "laen reduction", 0.81, magres, 0.01); + CuAssert(tc, "2x laen reduction => 81%%", frac_equal(frac_make(81, 100), magres)); free_battle(b); b = NULL; @@ -350,17 +364,20 @@ static void test_magic_resistance(CuTest *tc) set_level(du, SK_MAGIC, 2); dt.fighter = setup_fighter(&b, du); calculate_armor(dt, 0, 0, &magres); - CuAssertDblEquals_Msg(tc, "skill bonus", 0.1, magic_resistance(du), 0.01); - CuAssertDblEquals_Msg(tc, "skill reduction", 0.9, magres, 0.01); - rc->magres = 0.5; /* gets added to skill bonus */ + CuAssert(tc, "skill reduction => 90%%", frac_equal(magres, frac_make(9, 10))); + magres = magic_resistance(du); + CuAssert(tc, "skill reduction", frac_equal(magres, v10p)); + rc->magres = v50p; /* percentage, gets added to skill bonus */ calculate_armor(dt, 0, 0, &magres); - CuAssertDblEquals_Msg(tc, "race bonus", 0.6, magic_resistance(du), 0.01); - CuAssertDblEquals_Msg(tc, "race reduction", 0.4, magres, 0.01); + CuAssert(tc, "race reduction => 40%%", frac_equal(magres, frac_make(4, 10))); + magres = magic_resistance(du); + CuAssert(tc, "race bonus => 60%%", frac_equal(magres, frac_make(60, 100))); - rc->magres = 1.5; /* should not cause negative damage multiplier */ - CuAssertDblEquals_Msg(tc, "magic resistance is never > 0.9", 0.9, magic_resistance(du), 0.01); + rc->magres = frac_make(15, 10); /* 150% resistance should not cause negative damage multiplier */ + magres = magic_resistance(du); + CuAssert(tc, "magic resistance is never > 0.9", frac_equal(magres, frac_make(9, 10))); calculate_armor(dt, 0, 0, &magres); - CuAssertDblEquals_Msg(tc, "damage reduction is never < 0.1", 0.1, magres, 0.01); + CuAssert(tc, "damage reduction is never < 0.1", frac_equal(magres, frac_make(1, 10))); free_battle(b); test_cleanup(); @@ -376,14 +393,15 @@ static void test_projectile_armor(CuTest * tc) armor_type *ashield, *achain; item_type *ishield, *ichain; race *rc; + variant v50p = frac_make(1, 2); - test_cleanup(); + test_setup(); r = test_create_region(0, 0, 0); ishield = it_get_or_create(rt_get_or_create("shield")); - ashield = new_armortype(ishield, 0.0, 0.5, 1, ATF_SHIELD); + ashield = new_armortype(ishield, 0.0, v50p, 1, ATF_SHIELD); ichain = it_get_or_create(rt_get_or_create("chainmail")); - achain = new_armortype(ichain, 0.0, 0.5, 3, ATF_NONE); - wtype = new_weapontype(it_get_or_create(rt_get_or_create("sword")), 0, 0.5, 0, 0, 0, 0, SK_MELEE, 1); + achain = new_armortype(ichain, 0.0, v50p, 3, ATF_NONE); + wtype = new_weapontype(it_get_or_create(rt_get_or_create("sword")), 0, v50p, 0, 0, 0, 0, SK_MELEE, 1); rc = test_create_race("human"); rc->battle_flags |= BF_EQUIPMENT; du = test_create_unit(test_create_faction(rc), r); @@ -411,7 +429,7 @@ static void test_battle_skilldiff(CuTest *tc) unit *ua, *ud; battle *b = NULL; - test_cleanup(); + test_setup(); r = test_create_region(0, 0, 0); ud = test_create_unit(test_create_faction(0), r); @@ -430,18 +448,14 @@ static void test_battle_skilldiff(CuTest *tc) td.fighter->person[0].flags |= FL_SLEEPING; CuAssertIntEquals(tc, 3, skilldiff(ta, td, 0)); - // TODO: unarmed halfling vs. dragon: +5 - // TODO: rule_goblin_bonus - // TODO: weapon modifiers, missiles, skill_formula + /* TODO: unarmed halfling vs. dragon: +5 */ + /* TODO: rule_goblin_bonus */ + /* TODO: weapon modifiers, missiles, skill_formula */ free_battle(b); test_cleanup(); } -static int protect(const building *b, const unit *u, building_bonus bonus) { - return (bonus == DEFENSE_BONUS) ? 4 : 0; -} - static void test_battle_skilldiff_building(CuTest *tc) { troop ta, td; @@ -451,8 +465,8 @@ static void test_battle_skilldiff_building(CuTest *tc) building_type *btype; const curse_type *strongwall_ct, *magicwalls_ct; - test_cleanup(); - btype = test_create_buildingtype("castle"); + test_setup(); + btype = setup_castle(); strongwall_ct = ct_find("strongwall"); magicwalls_ct = ct_find("magicwalls"); @@ -467,14 +481,14 @@ static void test_battle_skilldiff_building(CuTest *tc) ua = test_create_unit(test_create_faction(0), r); CuAssertIntEquals(tc, 0, skilldiff(ta, td, 0)); - btype->protection = protect; - CuAssertIntEquals(tc, -4, skilldiff(ta, td, 0)); + ud->building->size = 10; + CuAssertIntEquals(tc, -1, skilldiff(ta, td, 0)); create_curse(NULL, &ud->building->attribs, magicwalls_ct, 1, 1, 1, 1); - CuAssertIntEquals(tc, -8, skilldiff(ta, td, 0)); + CuAssertIntEquals(tc, -2, skilldiff(ta, td, 0)); create_curse(NULL, &ud->building->attribs, strongwall_ct, 1, 1, 2, 1); - CuAssertIntEquals(tc, -10, skilldiff(ta, td, 0)); + CuAssertIntEquals(tc, -4, skilldiff(ta, td, 0)); free_battle(b); test_cleanup(); diff --git a/src/bind_building.c b/src/bind_building.c index 3724d4db5..ea689bfb5 100644 --- a/src/bind_building.c +++ b/src/bind_building.c @@ -13,7 +13,6 @@ without prior permission by the authors of Eressea. #include #include "bind_building.h" #include "bind_unit.h" -#include "bind_dict.h" #include #include @@ -41,13 +40,6 @@ int tolua_buildinglist_next(lua_State * L) return 0; /* no more values to return */ } -static int tolua_building_get_objects(lua_State * L) -{ - building *self = (building *)tolua_tousertype(L, 1, 0); - tolua_pushusertype(L, (void *)&self->attribs, USERTYPE_DICT); - return 1; -} - static int tolua_building_set_working(lua_State * L) { building *self = (building *)tolua_tousertype(L, 1, 0); @@ -92,7 +84,7 @@ static int tolua_building_set_info(lua_State * L) const char *info = tolua_tostring(L, 2, 0); free(self->display); if (info) - self->display = _strdup(info); + self->display = strdup(info); else self->display = NULL; return 0; @@ -258,7 +250,6 @@ void tolua_building_open(lua_State * L) tolua_variable(L, TOLUA_CAST "size", tolua_building_get_size, tolua_building_set_size); tolua_function(L, TOLUA_CAST "get_typename", tolua_building_get_typename); - tolua_variable(L, TOLUA_CAST "objects", tolua_building_get_objects, 0); tolua_variable(L, TOLUA_CAST "working", tolua_building_get_working, tolua_building_set_working); } diff --git a/src/bind_config.c b/src/bind_config.c index 3959cc22c..b4aa68d58 100644 --- a/src/bind_config.c +++ b/src/bind_config.c @@ -3,6 +3,8 @@ #include #include #include +#include +#include #include #include #include @@ -18,8 +20,8 @@ #include "kernel/terrain.h" void config_reset(void) { - default_locale = 0; - free_locales(); + free_config(); + free_nrmesssages(); free_spells(); free_buildingtypes(); free_shiptypes(); @@ -33,7 +35,6 @@ int config_parse(const char *json) if (conf) { json_config(conf); cJSON_Delete(conf); - init_locales(); return 0; } else { @@ -45,7 +46,7 @@ int config_parse(const char *json) if (xp >= ep) break; } xp = (ep > json + 10) ? ep - 10 : json; - strncpy(buffer, xp, sizeof(buffer)); + strlcpy(buffer, xp, sizeof(buffer)); buffer[9] = 0; log_error("json parse error in line %d, position %d, near `%s`\n", line, ep - lp, buffer); } diff --git a/src/bind_dict.c b/src/bind_dict.c deleted file mode 100644 index 32d3c498d..000000000 --- a/src/bind_dict.c +++ /dev/null @@ -1,185 +0,0 @@ -/* -+-------------------+ -| | Enno Rehling -| Eressea PBEM host | Christian Schlittchen -| (c) 1998 - 2008 | Katja Zedel -| | Henning Peters -+-------------------+ - -This program may not be used, modified or distributed -without prior permission by the authors of Eressea. -*/ - -#include -#include "bind_dict.h" - -#include -#include -#include -#include - -#include - -#include -#include - -#include -#include - -#include -#include - -static int tolua_dict_get(lua_State * L) -{ - dict self = (dict)tolua_tousertype(L, 1, 0); - const char *name = tolua_tostring(L, 2, 0); - attrib *a = a_find(*self, &at_dict); - - for (; a && a->type == &at_dict; a = a->next) { - const char *obj_name = dict_name(a); - if (obj_name && name && strcmp(obj_name, name) == 0) { - variant val; - dict_type type; - - dict_get(a, &type, &val); - switch (type) { - case TNONE: - lua_pushnil(L); - break; - case TINTEGER: - lua_pushinteger(L, val.i); - break; - case TREAL: - lua_pushnumber(L, (lua_Number)val.f); - break; - case TREGION: - tolua_pushusertype(L, val.v, TOLUA_CAST "region"); - break; - case TBUILDING: - tolua_pushusertype(L, val.v, TOLUA_CAST "building"); - break; - case TUNIT: - tolua_pushusertype(L, val.v, TOLUA_CAST "unit"); - break; - case TSHIP: - tolua_pushusertype(L, val.v, TOLUA_CAST "ship"); - break; - case TSTRING: - tolua_pushstring(L, (const char *)val.v); - break; - default: - assert(!"not implemented"); - } - return 1; - } - } - lua_pushnil(L); - return 1; -} - -static int tolua_dict_set_number(lua_State * L) -{ - dict self = (dict)tolua_tousertype(L, 1, 0); - const char *name = tolua_tostring(L, 2, 0); - lua_Number value = tolua_tonumber(L, 3, 0); - attrib *a = a_find(*self, &at_dict); - variant val; - - val.f = (float)value; - - for (; a && a->type == &at_dict; a = a->next) { - if (strcmp(dict_name(a), name) == 0) { - dict_set(a, TREAL, val); - return 0; - } - } - - a = a_add(self, dict_create(name, TREAL, val)); - return 0; -} - -static int tolua_dict_set_string(lua_State * L) -{ - dict self = (dict)tolua_tousertype(L, 1, 0); - const char *name = tolua_tostring(L, 2, 0); - const char *value = tolua_tostring(L, 3, 0); - attrib *a = a_find(*self, &at_dict); - variant val; - - val.v = _strdup(value); - - for (; a && a->type == &at_dict; a = a->next) { - if (strcmp(dict_name(a), name) == 0) { - dict_set(a, TSTRING, val); - return 0; - } - } - - a = a_add(self, dict_create(name, TSTRING, val)); - return 0; -} - -static int tolua_dict_set_usertype(lua_State * L, int type) -{ - dict self = (dict)tolua_tousertype(L, 1, 0); - const char *name = tolua_tostring(L, 2, 0); - unit *value = tolua_tousertype(L, 3, 0); - attrib *a = a_find(*self, &at_dict); - variant val; - - val.v = value; - - for (; a && a->type == &at_dict; a = a->next) { - if (strcmp(dict_name(a), name) == 0) { - dict_set(a, type, val); - return 0; - } - } - - a = a_add(self, dict_create(name, type, val)); - return 0; -} - -static int tolua_dict_set(lua_State * L) -{ - tolua_Error tolua_err; - if (tolua_isnumber(L, 3, 0, &tolua_err)) { - return tolua_dict_set_number(L); - } - else if (tolua_isusertype(L, 3, TOLUA_CAST "unit", 0, &tolua_err)) { - return tolua_dict_set_usertype(L, TUNIT); - } - else if (tolua_isusertype(L, 3, TOLUA_CAST "faction", 0, &tolua_err)) { - return tolua_dict_set_usertype(L, TFACTION); - } - else if (tolua_isusertype(L, 3, TOLUA_CAST "ship", 0, &tolua_err)) { - return tolua_dict_set_usertype(L, TSHIP); - } - else if (tolua_isusertype(L, 3, TOLUA_CAST "building", 0, &tolua_err)) { - return tolua_dict_set_usertype(L, TBUILDING); - } - else if (tolua_isusertype(L, 3, TOLUA_CAST "region", 0, &tolua_err)) { - return tolua_dict_set_usertype(L, TREGION); - } - return tolua_dict_set_string(L); -} - -void tolua_dict_open(lua_State * L) -{ - /* register user types */ - tolua_usertype(L, USERTYPE_DICT); - - tolua_module(L, NULL, 0); - tolua_beginmodule(L, NULL); - { - tolua_cclass(L, USERTYPE_DICT, USERTYPE_DICT, - TOLUA_CAST "", NULL); - tolua_beginmodule(L, USERTYPE_DICT); - { - tolua_function(L, TOLUA_CAST "get", tolua_dict_get); - tolua_function(L, TOLUA_CAST "set", tolua_dict_set); - } - tolua_endmodule(L); - } - tolua_endmodule(L); -} diff --git a/src/bind_dict.h b/src/bind_dict.h deleted file mode 100644 index 83ca1efbf..000000000 --- a/src/bind_dict.h +++ /dev/null @@ -1,26 +0,0 @@ -/* -+-------------------+ -| | Enno Rehling -| Eressea PBEM host | Christian Schlittchen -| (c) 1998 - 2008 | Katja Zedel -| | Henning Peters -+-------------------+ - -This program may not be used, modified or distributed -without prior permission by the authors of Eressea. -*/ - -#ifdef __cplusplus -extern "C" { -#endif - -#define USERTYPE_DICT ((char *)"dict") - - struct lua_State; - void tolua_dict_open(struct lua_State *L); - - typedef struct attrib **dict; - -#ifdef __cplusplus -} -#endif diff --git a/src/bind_eressea.c b/src/bind_eressea.c index d7683ec18..de8751306 100755 --- a/src/bind_eressea.c +++ b/src/bind_eressea.c @@ -9,6 +9,8 @@ #include #include +#include + #include #include @@ -16,10 +18,11 @@ void eressea_free_game(void) { free_gamedata(); init_resources(); + init_locales(); } int eressea_read_game(const char * filename) { - return readgame(filename, false); + return readgame(filename); } int eressea_write_game(const char * filename) { diff --git a/src/bind_faction.c b/src/bind_faction.c index a4302f3c9..518ccccac 100644 --- a/src/bind_faction.c +++ b/src/bind_faction.c @@ -13,13 +13,11 @@ without prior permission by the authors of Eressea. #include #include "bind_faction.h" #include "bind_unit.h" -#include "bind_dict.h" #include "bindings.h" #include "helpers.h" #include #include -#include #include #include #include @@ -28,15 +26,33 @@ without prior permission by the authors of Eressea. #include #include #include +#include +#include #include #include #include -#include - #include #include +#include + +typedef struct helpmode { + const char *name; + int status; +} helpmode; + +static helpmode helpmodes[] = { + { "all", HELP_ALL }, + { "money", HELP_MONEY }, + { "fight", HELP_FIGHT }, + { "observe", HELP_OBSERVE }, + { "give", HELP_GIVE }, + { "guard", HELP_GUARD }, + { "stealth", HELP_FSTEALTH }, + { "travel", HELP_TRAVEL }, + { NULL, 0 } +}; int tolua_factionlist_next(lua_State * L) { @@ -226,6 +242,32 @@ static int tolua_faction_addnotice(lua_State * L) return 0; } +static int tolua_faction_getkey(lua_State * L) +{ + faction *self = (faction *)tolua_tousertype(L, 1, 0); + const char *name = tolua_tostring(L, 2, 0); + int flag = atoi36(name); + + lua_pushinteger(L, key_get(self->attribs, flag)); + return 1; +} + +static int tolua_faction_setkey(lua_State * L) +{ + faction *self = (faction *)tolua_tousertype(L, 1, 0); + const char *name = tolua_tostring(L, 2, 0); + int value = (int)tolua_tonumber(L, 3, 0); + int flag = atoi36(name); + + if (value) { + key_set(&self->attribs, flag, value); + } + else { + key_unset(&self->attribs, flag); + } + return 0; +} + static int tolua_faction_count_msg_type(lua_State *L) { faction *self = (faction *)tolua_tousertype(L, 1, 0); const char *str = tolua_tostring(L, 2, 0); @@ -243,13 +285,6 @@ static int tolua_faction_count_msg_type(lua_State *L) { return 1; } -static int tolua_faction_get_objects(lua_State * L) -{ - faction *self = (faction *)tolua_tousertype(L, 1, 0); - tolua_pushusertype(L, (void *)&self->attribs, USERTYPE_DICT); - return 1; -} - static int tolua_faction_get_policy(lua_State * L) { faction *self = (faction *)tolua_tousertype(L, 1, 0); @@ -346,7 +381,7 @@ static int tolua_faction_get_origin(lua_State * L) static int tolua_faction_destroy(lua_State * L) { faction **fp, *f = (faction *)tolua_tousertype(L, 1, 0); - // TODO: this loop is slow af, but what can we do? + /* TODO: this loop is slow af, but what can we do? */ for (fp = &factions; *fp; fp = &(*fp)->next) { if (*fp == f) { destroyfaction(fp); @@ -376,7 +411,7 @@ static int tolua_faction_create(lua_State * L) f = addfaction(email, NULL, frace, loc, 0); } if (!f) { - log_error("faction.create(%s, %s, %s)\n", email, racename, locale_name(loc)); + log_error("cannot create %s faction for %s, unknown race.", racename, email); } tolua_pushusertype(L, f, TOLUA_CAST "faction"); return 1; @@ -603,8 +638,8 @@ void tolua_faction_open(lua_State * L) /* tech debt hack, siehe https://paper.dropbox.com/doc/Weihnachten-2015-5tOx5r1xsgGDBpb0gILrv#:h=Probleme-mit-Tests-(Nachtrag-0 */ tolua_function(L, TOLUA_CAST "count_msg_type", tolua_faction_count_msg_type); - tolua_variable(L, TOLUA_CAST "objects", tolua_faction_get_objects, - NULL); + tolua_function(L, TOLUA_CAST "get_key", tolua_faction_getkey); + tolua_function(L, TOLUA_CAST "set_key", tolua_faction_setkey); } tolua_endmodule(L); } diff --git a/src/bind_gmtool.c b/src/bind_gmtool.c index 3c07bb3b7..e4ae939f9 100644 --- a/src/bind_gmtool.c +++ b/src/bind_gmtool.c @@ -133,14 +133,14 @@ static int tolua_selected_regions(lua_State * L) static int tolua_state_open(lua_State * L) { - unused_arg(L); + UNUSED_ARG(L); state_open(); return 0; } static int tolua_state_close(lua_State * L) { - unused_arg(L); + UNUSED_ARG(L); state_close(current_state); return 0; } @@ -188,7 +188,7 @@ static void lua_paint_info(struct window *wnd, const struct state *st) break; else { size_t len = end - str; - int bytes = _min((int)len, size); + int bytes = MIN((int)len, size); mvwaddnstr(win, line++, 1, str, bytes); wclrtoeol(win); str = end + 1; diff --git a/src/bind_log.c b/src/bind_log.c deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/bind_log.h b/src/bind_log.h deleted file mode 100644 index e69de29bb..000000000 diff --git a/src/bind_message.c b/src/bind_message.c index 15673f4f6..a3ab95d39 100644 --- a/src/bind_message.c +++ b/src/bind_message.c @@ -1,6 +1,4 @@ #include -#include - #include "spells.h" /* kernel includes */ diff --git a/src/bind_monsters.c b/src/bind_monsters.c index 271045491..4ac15aa24 100644 --- a/src/bind_monsters.c +++ b/src/bind_monsters.c @@ -1,6 +1,5 @@ #include #include "spells/shipcurse.h" -#include "monster.h" #include "monsters.h" #include @@ -12,8 +11,6 @@ #include -#include - #include #include @@ -47,40 +44,18 @@ static int tolua_spawn_dragons(lua_State * L) return 0; } +static int tolua_get_monsters(lua_State * L) +{ + tolua_pushusertype(L, get_monsters(), "faction"); + return 1; +} + static int tolua_spawn_undead(lua_State * L) { spawn_undead(); return 0; } -static int fix_familiars(struct lua_State *L) -{ - faction *f; - for (f = factions; f; f = f->next) { - unit *u; - for (u = f->units; u; u = u->nextF) { - struct sc_mage *mage = get_mage(u); - if (mage && is_familiar(u)) { - if (mage->spellbook && mage->magietyp == M_GRAY) { - equipment *eq; - char buffer[64]; - - spellbook_clear(mage->spellbook); - free(mage->spellbook); - mage->spellbook = 0; - - _snprintf(buffer, sizeof(buffer), "%s_familiar", u_race(u)->_name); - eq = get_equipment(buffer); - if (eq) { - equip_unit_mask(u, eq, EQUIP_SPELLS); - } - } - } - } - } - return 0; -} - void bind_monsters(struct lua_State *L) { tolua_module(L, NULL, 0); @@ -90,7 +65,7 @@ void bind_monsters(struct lua_State *L) tolua_function(L, TOLUA_CAST "plan_monsters", tolua_planmonsters); tolua_function(L, TOLUA_CAST "spawn_undead", tolua_spawn_undead); tolua_function(L, TOLUA_CAST "spawn_dragons", tolua_spawn_dragons); - tolua_function(L, TOLUA_CAST "fix_familiars", &fix_familiars); + tolua_function(L, TOLUA_CAST "get_monsters", tolua_get_monsters); } tolua_endmodule(L); } diff --git a/src/bind_order.c b/src/bind_order.c index 90fc7d3b0..84399deec 100644 --- a/src/bind_order.c +++ b/src/bind_order.c @@ -1,5 +1,4 @@ #include -#include /* kernel includes */ #include diff --git a/src/bind_process.c b/src/bind_process.c index e8420c654..2b44eb19d 100755 --- a/src/bind_process.c +++ b/src/bind_process.c @@ -182,11 +182,6 @@ void process_promote(void) { process_cmd(K_PROMOTION, promotion_cmd, 0); } -void process_renumber(void) { - process_cmd(K_NUMBER, renumber_cmd, 0); - renumber_factions(); -} - void process_restack(void) { restack_units(); } diff --git a/src/bind_region.c b/src/bind_region.c index e56c3443c..fdab4a10f 100644 --- a/src/bind_region.c +++ b/src/bind_region.c @@ -14,12 +14,12 @@ without prior permission by the authors of Eressea. #include "bind_region.h" #include "bind_unit.h" #include "bind_ship.h" -#include "bind_dict.h" #include "bind_building.h" #include "chaos.h" #include +#include #include #include #include @@ -30,22 +30,41 @@ without prior permission by the authors of Eressea. #include #include #include +#include #include #include #include #include #include -#include #include #include +#include + #include #include #include #include +static int tolua_region_count_msg_type(lua_State *L) { + region *self = (region *)tolua_tousertype(L, 1, 0); + const char *str = tolua_tostring(L, 2, 0); + int n = 0; + if (self->msgs) { + mlist * ml = self->msgs->begin; + while (ml) { + if (strcmp(str, ml->msg->type->name) == 0) { + ++n; + } + ml = ml->next; + } + } + lua_pushinteger(L, n); + return 1; +} + int tolua_regionlist_next(lua_State * L) { region **region_ptr = (region **)lua_touserdata(L, lua_upvalueindex(1)); @@ -341,20 +360,16 @@ static int tolua_region_get_resourcelevel(lua_State * L) #define LUA_ASSERT(c, s) if (!(c)) { log_error("%s(%d): %s\n", __FILE__, __LINE__, (s)); return 0; } -static critbit_tree * special_resources(void) -{ - static critbit_tree cb = CRITBIT_TREE(); - if (!cb.root) { - const char * special[] = { "seed", "sapling", "tree", "grave", "chaos", 0 }; - char buffer[32]; - int i; - for (i = 0; special[i]; ++i) { - size_t len = strlen(special[i]); - len = cb_new_kv(special[i], len, &i, sizeof(int), buffer); - cb_insert(&cb, buffer, len); +static int special_resource(const char *type) { + const char * special[] = { "seed", "sapling", "tree", "grave", "chaos", 0 }; + int i; + + for (i = 0; special[i]; ++i) { + if (strcmp(type, special[i]) == 0) { + return i; } } - return &cb; + return -1; } static int tolua_region_get_resource(lua_State * L) @@ -362,32 +377,27 @@ static int tolua_region_get_resource(lua_State * L) region *r; const char *type; const resource_type *rtype; - int result = 0; - void * match; - critbit_tree * cb = special_resources(); + int result; r = (region *)tolua_tousertype(L, 1, 0); LUA_ASSERT(r != NULL, "invalid parameter"); type = tolua_tostring(L, 2, 0); LUA_ASSERT(type != NULL, "invalid parameter"); - - if (cb_find_prefix(cb, type, strlen(type) + 1, &match, 1, 0)) { - cb_get_kv(match, &result, sizeof(result)); - switch (result) { - case 0: - case 1: - case 2: - result = rtrees(r, result); - break; - case 3: - result = deathcount(r); - break; - case 4: - result = get_chaoscount(r); - break; - } - } - else { + + result = special_resource(type); + switch (result) { + case 0: + case 1: + case 2: + result = rtrees(r, result); + break; + case 3: + result = deathcount(r); + break; + case 4: + result = get_chaoscount(r); + break; + default: rtype = rt_find(type); if (rtype) { result = region_getresource(r, rtype); @@ -406,27 +416,23 @@ static int tolua_region_set_resource(lua_State * L) region *r = (region *)tolua_tousertype(L, 1, 0); const char *type = tolua_tostring(L, 2, 0); int result, value = (int)tolua_tonumber(L, 3, 0); - critbit_tree * cb = special_resources(); - void * match; + const resource_type *rtype; - if (cb_find_prefix(cb, type, strlen(type) + 1, &match, 1, 0)) { - cb_get_kv(match, &result, sizeof(result)); - switch (result) { - case 0: - case 1: - case 2: - rsettrees(r, result, value); - break; - case 3: - deathcounts(r, value - deathcount(r)); - break; - case 4: - add_chaoscount(r, value - get_chaoscount(r)); - break; - } - } - else { - const resource_type *rtype = rt_find(type); + result = special_resource(type); + switch (result) { + case 0: + case 1: + case 2: + rsettrees(r, result, value); + break; + case 3: + deathcounts(r, value - deathcount(r)); + break; + case 4: + add_chaoscount(r, value - get_chaoscount(r)); + break; + default: + rtype = rt_find(type); if (rtype != NULL) { region_setresource(r, rtype, value); } @@ -434,13 +440,6 @@ static int tolua_region_set_resource(lua_State * L) return 0; } -static int tolua_region_get_objects(lua_State * L) -{ - region *self = (region *)tolua_tousertype(L, 1, 0); - tolua_pushusertype(L, (void *)&self->attribs, USERTYPE_DICT); - return 1; -} - static int tolua_region_destroy(lua_State * L) { region *self = (region *)tolua_tousertype(L, 1, 0); @@ -474,9 +473,6 @@ static int tolua_region_create(lua_State * L) } if (result) { terraform_region(result, terrain); - if (result->land) { - fix_demand(result); - } } tolua_pushusertype(L, result, TOLUA_CAST "region"); @@ -554,11 +550,11 @@ static int tolua_region_setkey(lua_State * L) { region *self = (region *)tolua_tousertype(L, 1, 0); const char *name = tolua_tostring(L, 2, 0); - int value = tolua_toboolean(L, 3, 0); + int value = (int)tolua_tonumber(L, 3, 0); int flag = atoi36(name); if (value) { - key_set(&self->attribs, flag); + key_set(&self->attribs, flag, value); } else { key_unset(&self->attribs, flag); @@ -618,7 +614,7 @@ static int tolua_plane_set_name(lua_State * L) const char *str = tolua_tostring(L, 2, 0); free(self->name); if (str) - self->name = _strdup(str); + self->name = strdup(str); else self->name = 0; return 0; @@ -675,6 +671,27 @@ static int tolua_distance(lua_State * L) return 1; } +static int tolua_region_get_curse(lua_State *L) { + region *self = (region *)tolua_tousertype(L, 1, 0); + const char *name = tolua_tostring(L, 2, 0); + if (self->attribs) { + curse * c = get_curse(self->attribs, ct_find(name)); + if (c) { + lua_pushnumber(L, curse_geteffect(c)); + return 1; + } + } + return 0; +} + +static int tolua_region_has_attrib(lua_State *L) { + region *self = (region *)tolua_tousertype(L, 1, 0); + const char *name = tolua_tostring(L, 2, 0); + attrib * a = a_find(self->attribs, at_find(name)); + lua_pushboolean(L, a != NULL); + return 1; +} + void tolua_region_open(lua_State * L) { /* register user types */ @@ -694,6 +711,10 @@ void tolua_region_open(lua_State * L) tolua_function(L, TOLUA_CAST "destroy", tolua_region_destroy); tolua_function(L, TOLUA_CAST "__tostring", tolua_region_tostring); + tolua_function(L, TOLUA_CAST "count_msg_type", tolua_region_count_msg_type); + + tolua_function(L, TOLUA_CAST "get_curse", &tolua_region_get_curse); + tolua_function(L, TOLUA_CAST "has_attrib", &tolua_region_has_attrib); /* flags */ tolua_variable(L, TOLUA_CAST "blocked", tolua_region_get_blocked, tolua_region_set_blocked); @@ -736,8 +757,6 @@ void tolua_region_open(lua_State * L) tolua_function(L, TOLUA_CAST "get_key", tolua_region_getkey); tolua_function(L, TOLUA_CAST "set_key", tolua_region_setkey); - - tolua_variable(L, TOLUA_CAST "objects", tolua_region_get_objects, 0); } tolua_endmodule(L); diff --git a/src/bind_ship.c b/src/bind_ship.c index f1c1c412a..c5e0735ed 100644 --- a/src/bind_ship.c +++ b/src/bind_ship.c @@ -13,15 +13,16 @@ without prior permission by the authors of Eressea. #include #include "bind_ship.h" #include "bind_unit.h" -#include "bind_dict.h" #include "move.h" +#include #include #include #include #include +#include #include #include @@ -94,7 +95,7 @@ static int tolua_ship_set_display(lua_State * L) { ship *self = (ship *)tolua_tousertype(L, 1, 0); free(self->display); - self->display = _strdup(tolua_tostring(L, 2, 0)); + self->display = strdup(tolua_tostring(L, 2, 0)); return 0; } @@ -115,13 +116,6 @@ static int tolua_ship_get_units(lua_State * L) return 1; } -static int tolua_ship_get_objects(lua_State * L) -{ - ship *self = (ship *)tolua_tousertype(L, 1, 0); - tolua_pushusertype(L, (void *)&self->attribs, USERTYPE_DICT); - return 1; -} - static int tolua_ship_create(lua_State * L) { region *r = (region *)tolua_tousertype(L, 1, 0); @@ -206,6 +200,27 @@ static int tolua_ship_set_damage(lua_State * L) return 0; } +static int tolua_ship_get_curse(lua_State *L) { + ship *self = (ship *)tolua_tousertype(L, 1, 0); + const char *name = tolua_tostring(L, 2, 0); + if (self->attribs) { + curse * c = get_curse(self->attribs, ct_find(name)); + if (c) { + lua_pushnumber(L, curse_geteffect(c)); + return 1; + } + } + return 0; +} + +static int tolua_ship_has_attrib(lua_State *L) { + ship *self = (ship *)tolua_tousertype(L, 1, 0); + const char *name = tolua_tostring(L, 2, 0); + attrib * a = a_find(self->attribs, at_find(name)); + lua_pushboolean(L, a != NULL); + return 1; +} + void tolua_ship_open(lua_State * L) { /* register user types */ @@ -233,7 +248,9 @@ void tolua_ship_open(lua_State * L) tolua_variable(L, TOLUA_CAST "type", tolua_ship_get_type, 0); tolua_variable(L, TOLUA_CAST "damage", tolua_ship_get_damage, tolua_ship_set_damage); - tolua_variable(L, TOLUA_CAST "objects", tolua_ship_get_objects, 0); + + tolua_function(L, TOLUA_CAST "get_curse", &tolua_ship_get_curse); + tolua_function(L, TOLUA_CAST "has_attrib", &tolua_ship_has_attrib); tolua_function(L, TOLUA_CAST "create", tolua_ship_create); } diff --git a/src/bind_storage.c b/src/bind_storage.c index 489255d3f..68ac36179 100644 --- a/src/bind_storage.c +++ b/src/bind_storage.c @@ -11,7 +11,6 @@ without prior permission by the authors of Eressea. */ #include -#include #include "bind_storage.h" #include @@ -101,7 +100,10 @@ static int tolua_storage_tostring(lua_State * L) { gamedata *data = (gamedata *)tolua_tousertype(L, 1, 0); char name[64]; - _snprintf(name, sizeof(name), "", (void *)data, data->version); + /* safe to use sprintf here, because: + * %p is at most 16 characters, %d 20, text is 16, + * comes to 53 with \0 */ + sprintf(name, "", (void *)data, data->version); lua_pushstring(L, name); return 1; } diff --git a/src/bind_unit.c b/src/bind_unit.c index a7ba3fe96..8247e13d5 100755 --- a/src/bind_unit.c +++ b/src/bind_unit.c @@ -13,12 +13,10 @@ without prior permission by the authors of Eressea. #include #include "bind_unit.h" -#include "bind_dict.h" #include "alchemy.h" #include "bindings.h" #include "move.h" #include "reports.h" -#include "seen.h" #include "guard.h" /* attributes includes */ @@ -28,6 +26,7 @@ without prior permission by the authors of Eressea. /* kernel includes */ #include #include +#include #include #include #include @@ -47,7 +46,7 @@ without prior permission by the authors of Eressea. #include #include #include -#include +#include #include @@ -60,7 +59,7 @@ without prior permission by the authors of Eressea. static int tolua_bufunit(lua_State * L) { char buf[8192]; unit *self = (unit *)tolua_tousertype(L, 1, 0); - int mode = (int)tolua_tonumber(L, 2, see_unit); + int mode = (int)tolua_tonumber(L, 2, (int)seen_unit); if (!self) return 0; bufunit(self->faction, self, 0, mode, buf, sizeof(buf)); @@ -68,12 +67,6 @@ static int tolua_bufunit(lua_State * L) { return 1; } -static int tolua_unit_get_objects(lua_State * L) -{ - unit *self = (unit *)tolua_tousertype(L, 1, 0); - tolua_pushusertype(L, (void *)&self->attribs, USERTYPE_DICT); - return 1; -} int tolua_unitlist_nextf(lua_State * L) { @@ -259,18 +252,15 @@ static int tolua_unit_set_flags(lua_State * L) static int tolua_unit_get_guard(lua_State * L) { unit *self = (unit *)tolua_tousertype(L, 1, 0); - if (is_guard(self, GUARD_ALL)) { - lua_pushinteger(L, getguard(self)); - return 1; - } - return 0; + lua_pushboolean(L, is_guard(self)); + return 1; } static int tolua_unit_set_guard(lua_State * L) { unit *self = (unit *)tolua_tousertype(L, 1, 0); unsigned int flags = (unsigned int)tolua_tonumber(L, 2, 0); - setguard(self, flags); + setguard(self, flags!=0); return 0; } @@ -757,14 +747,12 @@ static int tolua_unit_get_spells(lua_State * L) unit *self = (unit *) tolua_tousertype(L, 1, 0); sc_mage *mage = self ? get_mage(self) : 0; spellbook *sb = mage ? mage->spellbook : 0; - quicklist *slist = 0; + selist *slist = 0; if (sb) { - quicklist **slist_ptr = &sb->spells; - if (slist_ptr) { - slist = *slist_ptr; - } + selist **slist_ptr = &sb->spells; + slist = *slist_ptr; } - return tolua_quicklist_push(L, "spellbook", "spell_entry", slist); + return tolua_selist_push(L, "spellbook", "spell_entry", slist); } static int tolua_unit_get_orders(lua_State * L) @@ -783,6 +771,27 @@ static int tolua_unit_get_orders(lua_State * L) return 1; } +static int tolua_unit_get_curse(lua_State *L) { + unit *self = (unit *)tolua_tousertype(L, 1, 0); + const char *name = tolua_tostring(L, 2, 0); + if (self->attribs) { + curse * c = get_curse(self->attribs, ct_find(name)); + if (c) { + lua_pushnumber(L, curse_geteffect(c)); + return 1; + } + } + return 0; +} + +static int tolua_unit_has_attrib(lua_State *L) { + unit *self = (unit *)tolua_tousertype(L, 1, 0); + const char *name = tolua_tostring(L, 2, 0); + attrib * a = self->attribs ? a_find(self->attribs, at_find(name)) : NULL; + lua_pushboolean(L, a != NULL); + return 1; +} + static int tolua_unit_get_flag(lua_State * L) { unit *self = (unit *)tolua_tousertype(L, 1, 0); @@ -799,7 +808,7 @@ static int tolua_unit_set_flag(lua_State * L) int value = (int)tolua_tonumber(L, 3, 0); int flag = atoi36(name); if (value) { - key_set(&self->attribs, flag); + key_set(&self->attribs, flag, value); } else { key_unset(&self->attribs, flag); @@ -870,13 +879,15 @@ static int tolua_unit_create(lua_State * L) { faction *f = (faction *)tolua_tousertype(L, 1, 0); region *r = (region *)tolua_tousertype(L, 2, 0); + unit *u; const char *rcname = tolua_tostring(L, 4, NULL); int num = (int)tolua_tonumber(L, 3, 1); const race *rc; + assert(f && r); rc = rcname ? rc_find(rcname) : f->race; assert(rc); - unit *u = create_unit(r, f, num, rc, 0, NULL, NULL); + u = create_unit(r, f, num, rc, 0, NULL, NULL); tolua_pushusertype(L, u, TOLUA_CAST "unit"); return 1; } @@ -967,6 +978,9 @@ void tolua_unit_open(lua_State * L) tolua_function(L, TOLUA_CAST "clear_orders", &tolua_unit_clear_orders); tolua_variable(L, TOLUA_CAST "orders", &tolua_unit_get_orders, 0); + tolua_function(L, TOLUA_CAST "get_curse", &tolua_unit_get_curse); + tolua_function(L, TOLUA_CAST "has_attrib", &tolua_unit_has_attrib); + /* key-attributes for named flags: */ tolua_function(L, TOLUA_CAST "set_flag", &tolua_unit_set_flag); tolua_function(L, TOLUA_CAST "get_flag", &tolua_unit_get_flag); @@ -1019,7 +1033,6 @@ void tolua_unit_open(lua_State * L) tolua_unit_set_race); tolua_variable(L, TOLUA_CAST "hp_max", &tolua_unit_get_hpmax, 0); - tolua_variable(L, TOLUA_CAST "objects", &tolua_unit_get_objects, 0); tolua_function(L, TOLUA_CAST "show", &tolua_bufunit); } tolua_endmodule(L); diff --git a/src/bindings.c b/src/bindings.c index 9d74719f7..1d6270b35 100755 --- a/src/bindings.c +++ b/src/bindings.c @@ -15,7 +15,6 @@ without prior permission by the authors of Eressea. #include "bind_unit.h" #include "bind_storage.h" #include "bind_building.h" -#include "bind_dict.h" #include "bind_message.h" #include "bind_building.h" #include "bind_faction.h" @@ -26,7 +25,6 @@ without prior permission by the authors of Eressea. #include "helpers.h" #include "console.h" #include "reports.h" -#include "seen.h" #include "study.h" #include "calendar.h" @@ -51,12 +49,11 @@ without prior permission by the authors of Eressea. #include #include -#include "creport.h" #include "economy.h" #include "summary.h" #include "teleport.h" #include "laws.h" -#include "monster.h" +#include "monsters.h" #include "market.h" #include @@ -68,7 +65,7 @@ without prior permission by the authors of Eressea. #include #include #include -#include +#include #include #include #include @@ -82,9 +79,10 @@ without prior permission by the authors of Eressea. #include #include +#include #include -#define TOLUA_PKG(NAME) extern void tolua_##NAME##_open(lua_State * L) +#define TOLUA_PKG(NAME) void tolua_##NAME##_open(lua_State * L) TOLUA_PKG(eressea); TOLUA_PKG(process); @@ -116,16 +114,16 @@ int tolua_orderlist_next(lua_State * L) return 0; } -static int tolua_quicklist_iter(lua_State * L) +static int tolua_selist_iter(lua_State * L) { - quicklist **qlp = (quicklist **)lua_touserdata(L, lua_upvalueindex(1)); - quicklist *ql = *qlp; + selist **qlp = (selist **)lua_touserdata(L, lua_upvalueindex(1)); + selist *ql = *qlp; if (ql != NULL) { int index = (int)lua_tointeger(L, lua_upvalueindex(2)); const char *type = lua_tostring(L, lua_upvalueindex(3)); - void *data = ql_get(ql, index); + void *data = selist_get(ql, index); tolua_pushusertype(L, data, TOLUA_CAST type); - ql_advance(qlp, &index, 1); + selist_advance(qlp, &index, 1); lua_pushinteger(L, index); lua_replace(L, lua_upvalueindex(2)); return 1; @@ -133,18 +131,18 @@ static int tolua_quicklist_iter(lua_State * L) return 0; } -int tolua_quicklist_push(struct lua_State *L, const char *list_type, - const char *elem_type, struct quicklist *list) +int tolua_selist_push(struct lua_State *L, const char *list_type, + const char *elem_type, struct selist *list) { if (list) { - quicklist **qlist_ptr = - (quicklist **)lua_newuserdata(L, sizeof(quicklist *)); + selist **qlist_ptr = + (selist **)lua_newuserdata(L, sizeof(selist *)); *qlist_ptr = list; luaL_getmetatable(L, list_type); lua_setmetatable(L, -2); lua_pushinteger(L, 0); lua_pushstring(L, elem_type); - lua_pushcclosure(L, tolua_quicklist_iter, 3); /* OBS: this closure has multiple upvalues (list, index, type_name) */ + lua_pushcclosure(L, tolua_selist_iter, 3); /* OBS: this closure has multiple upvalues (list, index, type_name) */ } else { lua_pushnil(L); @@ -208,10 +206,10 @@ static int tolua_translate(lua_State * L) static int tolua_setkey(lua_State * L) { const char *name = tolua_tostring(L, 1, 0); - int value = tolua_toboolean(L, 2, 0); + int value = (int)tolua_tonumber(L, 3, 0); int flag = atoi36(name); if (value) { - key_set(&global.attribs, flag); + key_set(&global.attribs, flag, value); } else { key_unset(&global.attribs, flag); @@ -225,14 +223,6 @@ static int tolua_rng_int(lua_State * L) return 1; } -static int tolua_read_orders(lua_State * L) -{ - const char *filename = tolua_tostring(L, 1, 0); - int result = readorders(filename); - lua_pushinteger(L, result); - return 1; -} - static int tolua_message_unit(lua_State * L) { unit *sender = (unit *)tolua_tousertype(L, 1, 0); @@ -320,23 +310,6 @@ static int tolua_dice_rand(lua_State * L) return 1; } -static int tolua_addequipment(lua_State * L) -{ - const char *eqname = tolua_tostring(L, 1, 0); - const char *iname = tolua_tostring(L, 2, 0); - const char *value = tolua_tostring(L, 3, 0); - int result = -1; - if (iname != NULL) { - const struct item_type *itype = it_find(iname); - if (itype != NULL) { - equipment_setitem(create_equipment(eqname), itype, value); - result = 0; - } - } - lua_pushinteger(L, result); - return 1; -} - static int tolua_get_season(lua_State * L) { int turnno = (int)tolua_tonumber(L, 1, 0); @@ -462,7 +435,7 @@ static int tolua_equipment_setitem(lua_State * L) if (iname != NULL) { const struct item_type *itype = it_find(iname); if (itype != NULL) { - equipment_setitem(create_equipment(eqname), itype, value); + equipment_setitem(get_or_create_equipment(eqname), itype, value); result = 0; } } @@ -507,45 +480,30 @@ static int tolua_write_reports(lua_State * L) return 1; } -static void reset_game(void) -{ - region *r; - faction *f; - for (r = regions; r; r = r->next) { - unit *u; - building *b; - r->flags &= RF_SAVEMASK; - for (u = r->units; u; u = u->next) { - u->flags &= UFL_SAVEMASK; - } - for (b = r->buildings; b; b = b->next) { - b->flags &= BLD_SAVEMASK; - } - if (r->land && r->land->ownership && r->land->ownership->owner) { - faction *owner = r->land->ownership->owner; - if (owner == get_monsters()) { - /* some compat-fix, i believe. */ - owner = update_owners(r); - } - if (owner) { - fset(r, RF_GUARDED); - } - } - } - for (f = factions; f; f = f->next) { - f->flags &= FFL_SAVEMASK; - } - init_locales(); -} - static int tolua_process_orders(lua_State * L) { - ++turn; - reset_game(); processorders(); return 0; } +static int tolua_turn_begin(lua_State * L) +{ + turn_begin(); + return 0; +} + +static int tolua_turn_process(lua_State * L) +{ + turn_process(); + return 0; +} + +static int tolua_turn_end(lua_State * L) +{ + turn_end(); + return 0; +} + static int tolua_write_passwords(lua_State * L) { int result = writepasswd(); @@ -573,7 +531,7 @@ static int tolua_write_summary(lua_State * L) } return 0; } - +/* static int tolua_write_map(lua_State * L) { const char *filename = tolua_tostring(L, 1, 0); @@ -582,7 +540,7 @@ static int tolua_write_map(lua_State * L) } return 0; } - +*/ static int tolua_read_turn(lua_State * L) { int cturn = current_turn(); @@ -673,7 +631,7 @@ static int tolua_get_factions(lua_State * L) static int tolua_get_alliance_factions(lua_State * L) { alliance *self = (alliance *)tolua_tousertype(L, 1, 0); - return tolua_quicklist_push(L, "faction_list", "faction", self->members); + return tolua_selist_push(L, "faction_list", "faction", self->members); } static int tolua_get_alliance_id(lua_State * L) @@ -699,11 +657,11 @@ static int tolua_set_alliance_name(lua_State * L) static int config_get_ships(lua_State * L) { - quicklist *ql; + selist *ql; int qi, i = 0; - lua_createtable(L, ql_length(shiptypes), 0); - for (qi = 0, ql = shiptypes; ql; ql_advance(&ql, &qi, 1)) { - ship_type *stype = (ship_type *)ql_get(ql, qi); + lua_createtable(L, selist_length(shiptypes), 0); + for (qi = 0, ql = shiptypes; ql; selist_advance(&ql, &qi, 1)) { + ship_type *stype = (ship_type *)selist_get(ql, qi); tolua_pushstring(L, TOLUA_CAST stype->_name); lua_rawseti(L, -2, ++i); } @@ -712,11 +670,11 @@ static int config_get_ships(lua_State * L) static int config_get_buildings(lua_State * L) { - quicklist *ql; + selist *ql; int qi, i = 0; - lua_createtable(L, ql_length(buildingtypes), 0); - for (qi = 0, ql = buildingtypes; ql; ql_advance(&ql, &qi, 1)) { - building_type *btype = (building_type *)ql_get(ql, qi); + lua_createtable(L, selist_length(buildingtypes), 0); + for (qi = 0, ql = buildingtypes; ql; selist_advance(&ql, &qi, 1)) { + building_type *btype = (building_type *)selist_get(ql, qi); tolua_pushstring(L, TOLUA_CAST btype->_name); lua_rawseti(L, -2, ++i); } @@ -938,7 +896,7 @@ static int tolua_get_spell_entry_level(lua_State * L) static int tolua_get_spells(lua_State * L) { - return tolua_quicklist_push(L, "spell_list", "spell", spells); + return tolua_selist_push(L, "spell_list", "spell", spells); } static int init_data(const char *filename, const char *catalog) @@ -950,7 +908,7 @@ static int init_data(const char *filename, const char *catalog) return l; } if (turn < 0) { - turn = first_turn; + turn = first_turn(); } return 0; } @@ -975,12 +933,12 @@ static int tolua_report_unit(lua_State * L) char buffer[512]; unit *u = (unit *)tolua_tousertype(L, 1, 0); faction *f = (faction *)tolua_tousertype(L, 2, 0); - bufunit(f, u, 0, see_unit, buffer, sizeof(buffer)); + bufunit(f, u, 0, seen_unit, buffer, sizeof(buffer)); tolua_pushstring(L, buffer); return 1; } -static void parse_inifile(lua_State * L, dictionary * d, const char *section) +static void parse_inifile(lua_State * L, const dictionary * d, const char *section) { int i; const char *arg; @@ -1020,7 +978,7 @@ static void parse_inifile(lua_State * L, dictionary * d, const char *section) void tolua_bind_open(lua_State * L); -int tolua_bindings_open(lua_State * L) +int tolua_bindings_open(lua_State * L, const dictionary *inifile) { tolua_open(L); @@ -1074,7 +1032,7 @@ int tolua_bindings_open(lua_State * L) tolua_module(L, TOLUA_CAST "config", 1); tolua_beginmodule(L, TOLUA_CAST "config"); { - parse_inifile(L, global.inifile, "lua"); + parse_inifile(L, inifile, "lua"); tolua_variable(L, TOLUA_CAST "locales", &config_get_locales, 0); tolua_function(L, TOLUA_CAST "get_resource", &config_get_resource); tolua_variable(L, TOLUA_CAST "buildings", &config_get_buildings, 0); @@ -1091,8 +1049,9 @@ int tolua_bindings_open(lua_State * L) tolua_function(L, TOLUA_CAST "factions", tolua_get_factions); tolua_function(L, TOLUA_CAST "regions", tolua_get_regions); tolua_function(L, TOLUA_CAST "read_turn", tolua_read_turn); - tolua_function(L, TOLUA_CAST "write_map", &tolua_write_map); - tolua_function(L, TOLUA_CAST "read_orders", tolua_read_orders); + tolua_function(L, TOLUA_CAST "turn_begin", tolua_turn_begin); + tolua_function(L, TOLUA_CAST "turn_process", tolua_turn_process); + tolua_function(L, TOLUA_CAST "turn_end", tolua_turn_end); tolua_function(L, TOLUA_CAST "process_orders", tolua_process_orders); tolua_function(L, TOLUA_CAST "init_reports", tolua_init_reports); tolua_function(L, TOLUA_CAST "write_reports", tolua_write_reports); @@ -1113,7 +1072,6 @@ int tolua_bindings_open(lua_State * L) tolua_function(L, TOLUA_CAST "get_season", tolua_get_season); tolua_function(L, TOLUA_CAST "equipment_setitem", tolua_equipment_setitem); tolua_function(L, TOLUA_CAST "equip_unit", tolua_equipunit); - tolua_function(L, TOLUA_CAST "add_equipment", tolua_addequipment); tolua_function(L, TOLUA_CAST "atoi36", tolua_atoi36); tolua_function(L, TOLUA_CAST "itoa36", tolua_itoa36); tolua_function(L, TOLUA_CAST "dice_roll", tolua_dice_rand); @@ -1144,12 +1102,12 @@ void lua_done(lua_State * L) { lua_close(L); } -lua_State *lua_init(void) { +lua_State *lua_init(const dictionary *inifile) { lua_State *L = luaL_newstate(); openlibs(L); register_tolua_helpers(); - tolua_bindings_open(L); + tolua_bindings_open(L, inifile); tolua_eressea_open(L); #ifdef USE_SQLITE tolua_sqlite_open(L); @@ -1162,7 +1120,6 @@ lua_State *lua_init(void) { tolua_unit_open(L); tolua_message_open(L); tolua_order_open(L); - tolua_dict_open(L); #ifdef USE_CURSES tolua_gmtool_open(L); #endif @@ -1170,32 +1127,55 @@ lua_State *lua_init(void) { return L; } +static int run_script(lua_State *L, const char *luafile) { + int err; + FILE *F; + + F = fopen(luafile, "r"); + if (!F) { + log_debug("dofile('%s'): %s", luafile, strerror(errno)); + return errno; + } + fclose(F); + + log_debug("executing script %s", luafile); + lua_getglobal(L, "dofile"); + lua_pushstring(L, luafile); + err = lua_pcall(L, 1, 1, -3); /* error handler (debug.traceback) is now at stack -3 */ + if (err != 0) { + log_lua_error(L); + assert(!"Lua syntax error? check log."); + } + else { + if (lua_isnumber(L, -1)) { + err = (int)lua_tonumber(L, -1); + } + lua_pop(L, 1); + } + return err; +} + int eressea_run(lua_State *L, const char *luafile) { - int err = 0; - + int err; global.vm_state = L; + + /* push an error handling function on the stack: */ + lua_getglobal(L, "debug"); + lua_getfield(L, -1, "traceback"); + lua_remove(L, -2); + + /* try to run configuration scripts: */ + err = run_script(L, "custom.lua"); + /* run the main script */ if (luafile) { - log_debug("executing script %s\n", luafile); - - lua_getglobal(L, "debug"); - lua_getfield(L, -1, "traceback"); - lua_remove(L, -2); - lua_getglobal(L, "dofile"); - lua_pushstring(L, luafile); - err = lua_pcall(L, 1, 1, -3); - if (err != 0) { - log_lua_error(L); - assert(!"Lua syntax error? check log."); - } - else { - if (lua_isnumber(L, -1)) { - err = (int)lua_tonumber(L, -1); - } - lua_pop(L, 1); - } - return err; + err = run_script(L, luafile); } - return lua_console(L); + else { + err = lua_console(L); + } + /* pop error handler off the stack: */ + lua_pop(L, 1); + return err; } diff --git a/src/bindings.h b/src/bindings.h index 6c71ecf94..354bb199a 100755 --- a/src/bindings.h +++ b/src/bindings.h @@ -15,20 +15,20 @@ extern "C" { #endif struct lua_State; - struct quicklist; + struct _dictionary_; + struct selist; int tolua_sqlite_open(struct lua_State *L); - int tolua_bindings_open(struct lua_State *L); - int tolua_spelllist_next(struct lua_State *L); + int tolua_bindings_open(struct lua_State *L, const struct _dictionary_ *d); int tolua_itemlist_next(struct lua_State *L); int tolua_orderlist_next(struct lua_State *L); - int tolua_quicklist_push(struct lua_State *L, const char *list_type, - const char *elem_type, struct quicklist *list); + int tolua_selist_push(struct lua_State *L, const char *list_type, + const char *elem_type, struct selist *list); int log_lua_error(struct lua_State *L); void lua_done(struct lua_State *L); - struct lua_State *lua_init(void); + struct lua_State *lua_init(const struct _dictionary_ *d); int eressea_run(struct lua_State *L, const char *luafile); #ifdef __cplusplus diff --git a/src/building_action.c b/src/building_action.c index 5c533f4d0..f72af4412 100644 --- a/src/building_action.c +++ b/src/building_action.c @@ -93,7 +93,7 @@ lc_write(const struct attrib *a, const void *owner, struct storage *store) const char *fname = data->fname; const char *fparam = data->param; - unused_arg(owner); + UNUSED_ARG(owner); WRITE_TOK(store, fname); WRITE_TOK(store, fparam ? fparam : NULLSTRING); } @@ -116,7 +116,7 @@ static int lc_read(struct attrib *a, void *owner, gamedata *data) b = 0; } else { - bd->fname = _strdup(name); + bd->fname = strdup(name); } READ_TOK(store, name, sizeof(name)); if (strcmp(name, "tnnL") == 0) { @@ -127,7 +127,7 @@ static int lc_read(struct attrib *a, void *owner, gamedata *data) if (strcmp(name, NULLSTRING) == 0) bd->param = 0; else { - bd->param = _strdup(name); + bd->param = strdup(name); } if (result == 0 && !b) { return AT_READ_FAIL; @@ -146,8 +146,8 @@ void building_addaction(building * b, const char *fname, const char *param) { attrib *a = a_add(&b->attribs, a_new(&at_building_action)); building_action *data = (building_action *)a->data.v; - data->fname = _strdup(fname); + data->fname = strdup(fname); if (param) { - data->param = _strdup(param); + data->param = strdup(param); } } diff --git a/src/calendar.c b/src/calendar.c index 7a27328a7..d2a70c974 100644 --- a/src/calendar.c +++ b/src/calendar.c @@ -1,10 +1,10 @@ #include #include "calendar.h" +#include #include #include -int first_turn = 0; int first_month = 0; int weeks_per_month = 4; int months_per_year = 12; @@ -16,10 +16,15 @@ int *month_season = NULL; char *agename = NULL; int seasons = 0; +int first_turn(void) +{ + return config_get_int("game.start", 0); +} + const gamedate *get_gamedate(int turn, gamedate * gd) { int weeks_per_year = months_per_year * weeks_per_month; - int t = turn - first_turn; + int t = turn - first_turn(); assert(gd); if (t < 0) diff --git a/src/calendar.h b/src/calendar.h index 86f665c1a..d398cd77c 100644 --- a/src/calendar.h +++ b/src/calendar.h @@ -13,7 +13,6 @@ extern "C" { }; extern char *agename; - extern int first_turn; extern int first_month; extern int seasons; @@ -35,8 +34,9 @@ extern "C" { int week; } gamedate; - extern const gamedate *get_gamedate(int turn, gamedate * gd); - extern void calendar_cleanup(void); +const gamedate *get_gamedate(int turn, gamedate * gd); +void calendar_cleanup(void); +int first_turn(void); #ifdef __cplusplus } diff --git a/src/callback.c b/src/callback.c deleted file mode 100644 index 79bd69b71..000000000 --- a/src/callback.c +++ /dev/null @@ -1,61 +0,0 @@ -#include -#include "callback.h" -#include -#include - -static struct reg { - struct reg * next; - HCALLBACK cb; - char *name; -} *registry; - -HCALLBACK create_callback(void(*cbv)(va_list va)) { - HCALLBACK cb; - cb.cbv = cbv; - return cb; -} - -void reset_callbacks(void) { - while (registry) { - struct reg *r = registry; - registry = r->next; - free(r->name); - free(r); - } - registry = 0; -} - -HCALLBACK register_callback(const char *name, void(*cbv)(va_list va)) -{ - struct reg * r = (struct reg *)malloc(sizeof(struct reg)); - r->next = registry; - r->name = _strdup(name); - r->cb.cbv = cbv; - registry = r; - return r->cb; -} - -int find_callback(const char *name, HCALLBACK *result) { - if (result && name) { - struct reg *r; - for (r = registry; r; r = r->next) { - if (strcmp(r->name, name) == 0) { - *result = r->cb; - return 0; - } - } - } - return -1; -} - -int call_callback(HCALLBACK cb, const char *name, ...) { - va_list ap; - if (name) { - int err = find_callback(name, &cb); - if (err) return err; - } - va_start(ap, name); - cb.cbv(ap); - va_end(ap); - return 0; -} diff --git a/src/callback.h b/src/callback.h deleted file mode 100644 index 288a148e9..000000000 --- a/src/callback.h +++ /dev/null @@ -1,16 +0,0 @@ -#ifndef H_CALLBACK_H -#define H_CALLBACK_H - -#include - -typedef struct { - void(*cbv)(va_list va); -} HCALLBACK; - -HCALLBACK register_callback(const char *name, void(*cbv)(va_list va)); -HCALLBACK create_callback(void(*cbv)(va_list va)); -int find_callback(const char *name, HCALLBACK *result); -int call_callback(HCALLBACK cb, const char *name, ...); -void reset_callbacks(void); - -#endif diff --git a/src/callback.test.c b/src/callback.test.c deleted file mode 100644 index 317cc6d50..000000000 --- a/src/callback.test.c +++ /dev/null @@ -1,51 +0,0 @@ -#include "callback.h" -#include -#include - -void callback(va_list ap) { - int i = (int)va_arg(ap, int); - int *p = va_arg(ap, int *); - *p += i; -} - -static void test_find_callback(CuTest *tc) { - HCALLBACK cb; - reset_callbacks(); - CuAssertIntEquals(tc, -1, find_callback("test", &cb)); - cb = register_callback("test", callback); - CuAssertIntEquals(tc, 0, find_callback("test", &cb)); - reset_callbacks(); -} - -static void test_call_by_handle(CuTest *tc) { - HCALLBACK cb; - int x = 0; - reset_callbacks(); - cb = create_callback(callback); - CuAssertIntEquals(tc, 0, call_callback(cb, 0, 42, &x)); - CuAssertIntEquals(tc, 42, x); - reset_callbacks(); -} - -static void test_call_by_name(CuTest *tc) { - HCALLBACK cb = { 0 }; - HCALLBACK ca = { 0 }; - int x = 0; - reset_callbacks(); - CuAssertIntEquals(tc, -1, call_callback(cb, "test", 42, &x)); - cb = register_callback("test", callback); - CuAssertIntEquals(tc, 0, call_callback(cb, "test", 42, &x)); - CuAssertIntEquals(tc, 42, x); - CuAssertIntEquals(tc, 0, call_callback(ca, "test", 42, &x)); - CuAssertIntEquals(tc, 84, x); - reset_callbacks(); -} - -CuSuite *get_callback_suite(void) -{ - CuSuite *suite = CuSuiteNew(); - SUITE_ADD_TEST(suite, test_find_callback); - SUITE_ADD_TEST(suite, test_call_by_name); - SUITE_ADD_TEST(suite, test_call_by_handle); - return suite; -} diff --git a/src/chaos.c b/src/chaos.c index afa787b29..58cd7af73 100644 --- a/src/chaos.c +++ b/src/chaos.c @@ -19,7 +19,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include "chaos.h" -#include "monster.h" +#include "monsters.h" #include "move.h" #include @@ -28,7 +28,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include #include #include #include @@ -86,7 +85,7 @@ static const terrain_type *chaosterrain(void) if (numtypes == 0) { const terrain_type *terrain; for (terrain = terrains(); terrain != NULL; terrain = terrain->next) { - if (fval(terrain, LAND_REGION) && terrain->herbs) { + if ((terrain->flags & LAND_REGION) && terrain->herbs) { ++numtypes; } } @@ -94,7 +93,7 @@ static const terrain_type *chaosterrain(void) types = malloc(sizeof(terrain_type *) * numtypes); numtypes = 0; for (terrain = terrains(); terrain != NULL; terrain = terrain->next) { - if (fval(terrain, LAND_REGION) && terrain->herbs) { + if ((terrain->flags & LAND_REGION) && terrain->herbs) { types[numtypes++] = terrain; } } @@ -140,7 +139,7 @@ static void chaos(region * r) if (rng_int() % 100 < 8) { switch (rng_int() % 3) { case 0: /* Untote */ - if (!fval(r->terrain, SEA_REGION)) { + if (!(r->terrain->flags & SEA_REGION)) { unit *u = random_unit(r); if (u && playerrace(u_race(u))) { ADDMSG(&u->faction->msgs, msg_message("chaos_disease", "unit", u)); @@ -162,29 +161,28 @@ static void chaos(region * r) break; case 1: mfac = 500; - u = - create_unit(r, get_monsters(), rng_int() % 4 + 1, + u = create_unit(r, get_monsters(), rng_int() % 4 + 1, get_race(RC_DRAGON), 0, NULL, NULL); break; default: mfac = 1000; - u = - create_unit(r, get_monsters(), rng_int() % 2 + 1, + u = create_unit(r, get_monsters(), rng_int() % 2 + 1, get_race(RC_WYRM), 0, NULL, NULL); break; } - if (mfac) + if (mfac) { set_money(u, u->number * (rng_int() % mfac)); - fset(u, UFL_ISNEW | UFL_MOVED); + } + u->flags |= (UFL_ISNEW | UFL_MOVED); } break; - case 2: /* Terrainvernderung */ - if (!fval(r->terrain, FORBIDDEN_REGION)) { - if (!fval(r->terrain, SEA_REGION)) { + case 2: /* Terrainver�nderung */ + if (!(r->terrain->flags & FORBIDDEN_REGION)) { + if (!(r->terrain->flags & SEA_REGION)) { direction_t dir; for (dir = 0; dir != MAXDIRECTIONS; ++dir) { region *rn = rconnect(r, dir); - if (rn && fval(rn->terrain, SEA_REGION)) + if (rn && (rn->terrain->flags & SEA_REGION)) break; } if (dir != MAXDIRECTIONS) { @@ -225,7 +223,7 @@ static void chaos(region * r) direction_t dir; for (dir = 0; dir != MAXDIRECTIONS; ++dir) { region *rn = rconnect(r, dir); - if (rn && fval(rn->terrain, SEA_REGION)) + if (rn && (rn->terrain->flags & SEA_REGION)) break; } if (dir != MAXDIRECTIONS) { @@ -243,7 +241,7 @@ void chaos_update(void) { for (r = regions; r; r = r->next) { int i; - if (fval(r, RF_CHAOTIC)) { + if ((r->flags & RF_CHAOTIC)) { chaos(r); } i = get_chaoscount(r); diff --git a/src/console.h b/src/console.h index a00a3ad58..fdc869f11 100644 --- a/src/console.h +++ b/src/console.h @@ -18,6 +18,9 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #ifndef H_LUA_CONSOLE #define H_LUA_CONSOLE + +#include + #ifdef __cplusplus extern "C" { #endif diff --git a/src/convert.c b/src/convert.c new file mode 100644 index 000000000..a67c5a287 --- /dev/null +++ b/src/convert.c @@ -0,0 +1,44 @@ +#include + + +#ifdef USE_LIBXML2 +#include +#include +#endif +#include +#include +#include + +#include + +#include + +static int usage(void) { + return -1; +} + +int main(int argc, char **argv) { + const char *mode; + + register_races(); +#ifdef USE_LIBXML2 + register_xmlreader(); +#endif + if (argc < 2) return usage(); + mode = argv[1]; +#ifdef USE_LIBXML2 + if (strcmp(mode, "rules")==0) { + const char *xmlfile, *catalog; + if (argc < 4) return usage(); + xmlfile = argv[2]; + catalog = argv[3]; + read_xml(xmlfile, catalog); + write_rules("rules.dat"); + return 0; + } +#endif + if (strcmp(mode, "po")==0) { + return 0; + } + return usage(); +} diff --git a/src/creport.c b/src/creport.c index 4cf778f23..d16f87f22 100644 --- a/src/creport.c +++ b/src/creport.c @@ -1,4 +1,4 @@ -/* +/* +-------------------+ Enno Rehling | Eressea PBEM host | Christian Schlittchen | (c) 1998 - 2008 | Katja Zedel @@ -11,7 +11,8 @@ without prior permission by the authors of Eressea. #include #include #include "creport.h" -#include "seen.h" +#include "market.h" +#include "guard.h" #include "travelthru.h" /* tweakable features */ @@ -24,7 +25,6 @@ without prior permission by the authors of Eressea. /* attributes include */ #include -#include #include #include #include @@ -58,7 +58,6 @@ without prior permission by the authors of Eressea. #include #include #include -#include /* util includes */ #include @@ -69,8 +68,9 @@ without prior permission by the authors of Eressea. #include #include #include -#include +#include #include +#include /* libc includes */ #include @@ -91,10 +91,11 @@ bool opt_cr_absolute_coords = false; #ifdef TAG_LOCALE static const char *crtag(const char *key) { - static const struct locale *lang = NULL; - if (!lang) - lang = get_locale(TAG_LOCALE); - return LOC(lang, key); + /* TODO: those locale lookups are shit, but static kills testing */ + const char *result; + const struct locale *lang = get_locale(TAG_LOCALE); + result = LOC(lang, key); + return result; } #else #define crtag(x) (x) @@ -125,7 +126,7 @@ static const char *translate(const char *key, const char *value) } else t = malloc(sizeof(translation)); - t->key = _strdup(key); + t->key = strdup(key); t->value = value; t->next = translation_table[kk]; translation_table[kk] = t; @@ -178,7 +179,7 @@ static void print_items(FILE * F, item * items, const struct locale *lang) } static void -cr_output_curses(stream *out, const faction * viewer, const void *obj, objtype_t typ) +cr_output_curses(struct stream *out, const faction * viewer, const void *obj, objtype_t typ) { bool header = false; attrib *a = NULL; @@ -186,9 +187,9 @@ cr_output_curses(stream *out, const faction * viewer, const void *obj, objtype_t region *r; /* Die Sichtbarkeit eines Zaubers und die Zaubermeldung sind bei - * Gebäuden und Schiffen je nach, ob man Besitzer ist, verschieden. + * Gebaeuden und Schiffen je nach, ob man Besitzer ist, verschieden. * Bei Einheiten sieht man Wirkungen auf eigene Einheiten immer. - * Spezialfälle (besonderes Talent, verursachender Magier usw. werde + * Spezialfaelle (besonderes Talent, verursachender Magier usw. werde * bei jedem curse gesondert behandelt. */ if (typ == TYP_SHIP) { ship *sh = (ship *)obj; @@ -286,7 +287,7 @@ cr_output_curses(stream *out, const faction * viewer, const void *obj, objtype_t } static void cr_output_curses_compat(FILE *F, const faction * viewer, const void *obj, objtype_t typ) { - // TODO: eliminate this function + /* TODO: eliminate this function */ stream strm; fstream_init(&strm, F); cr_output_curses(&strm, viewer, obj, typ); @@ -361,7 +362,7 @@ static int cr_race(variant var, char *buffer, const void *userdata) static int cr_alliance(variant var, char *buffer, const void *userdata) { const alliance *al = (const alliance *)var.v; - unused_arg(userdata); + UNUSED_ARG(userdata); if (al != NULL) { sprintf(buffer, "%d", al->id); } @@ -372,7 +373,7 @@ static int cr_skill(variant var, char *buffer, const void *userdata) { const faction *report = (const faction *)userdata; skill_t sk = (skill_t)var.i; - unused_arg(userdata); + UNUSED_ARG(userdata); if (sk != NOSKILL) sprintf(buffer, "\"%s\"", translate(mkname("skill", skillnames[sk]), skillname(sk, @@ -385,7 +386,7 @@ static int cr_skill(variant var, char *buffer, const void *userdata) static int cr_order(variant var, char *buffer, const void *userdata) { order *ord = (order *)var.v; - unused_arg(userdata); + UNUSED_ARG(userdata); if (ord != NULL) { char cmd[ORDERSIZE]; char *wp = buffer; @@ -416,6 +417,7 @@ static int cr_resources(variant var, char *buffer, const void *userdata) char *wp = buffer; if (rlist != NULL) { const char *name = resourcename(rlist->type, rlist->number != 1); + assert(name); wp += sprintf(wp, "\"%d %s", rlist->number, translate(name, LOC(f->locale, name))); @@ -424,6 +426,7 @@ static int cr_resources(variant var, char *buffer, const void *userdata) if (rlist == NULL) break; name = resourcename(rlist->type, rlist->number != 1); + assert(name); wp += sprintf(wp, ", %d %s", rlist->number, translate(name, LOC(f->locale, name))); @@ -712,12 +715,13 @@ static void cr_output_spells(stream *out, const unit * u, int maxlevel) if (book) { const faction * f = u->faction; - quicklist *ql; + selist *ql; int qi, header = 0; - for (ql = book->spells, qi = 0; ql; ql_advance(&ql, &qi, 1)) { - spellbook_entry * sbe = (spellbook_entry *)ql_get(ql, qi); + for (ql = book->spells, qi = 0; ql; selist_advance(&ql, &qi, 1)) { + spellbook_entry * sbe = (spellbook_entry *)selist_get(ql, qi); if (sbe->level <= maxlevel) { + /* TODO: no need to deref spref here, spref->name == sp->sname */ spell * sp = sbe->sp; const char *name = translate(mkname("spell", sp->sname), spell_name(sp, f->locale)); if (!header) { @@ -735,7 +739,7 @@ static void cr_output_spells(stream *out, const unit * u, int maxlevel) * @param u unit to report */ void cr_output_unit(stream *out, const region * r, const faction * f, - const unit * u, int mode) + const unit * u, seen_mode mode) { /* Race attributes are always plural and item attributes always * singular */ @@ -747,11 +751,12 @@ void cr_output_unit(stream *out, const region * r, const faction * f, const char *pzTmp; skill *sv; item result[MAX_INVENTORY]; - const faction *sf; + const faction *fother; const char *prefix; + bool allied; assert(u && u->number); - assert(u->region == r); // TODO: if this holds true, then why did we pass in r? + assert(u->region == r); /* TODO: if this holds true, then why did we pass in r? */ if (fval(u_race(u), RCF_INVISIBLE)) return; @@ -761,14 +766,8 @@ void cr_output_unit(stream *out, const region * r, const faction * f, if (str) { stream_printf(out, "\"%s\";Beschr\n", str); } - /* print faction information */ - sf = visible_faction(f, u); - prefix = raceprefix(u); - if (u->faction == f || omniscient(f)) { - const attrib *a_otherfaction = a_find(u->attribs, &at_otherfaction); - const faction *otherfaction = - a_otherfaction ? get_otherfaction(a_otherfaction) : NULL; - /* my own faction, full info */ + + if (u->faction == f) { const attrib *a = NULL; unit *mage; @@ -778,40 +777,34 @@ void cr_output_unit(stream *out, const region * r, const faction * f, const group *g = (const group *)a->data.v; stream_printf(out, "%d;gruppe\n", g->gid); } - stream_printf(out, "%d;Partei\n", u->faction->no); - if (sf != u->faction) - stream_printf(out, "%d;Verkleidung\n", sf->no); - if (fval(u, UFL_ANON_FACTION)) - stream_printf(out, "%d;Parteitarnung\n", i2b(fval(u, UFL_ANON_FACTION))); - if (otherfaction && otherfaction != u->faction) { - stream_printf(out, "%d;Anderepartei\n", otherfaction->no); - } mage = get_familiar_mage(u); if (mage) { stream_printf(out, "%u;familiarmage\n", mage->no); } } - else { - if (fval(u, UFL_ANON_FACTION)) { - /* faction info is hidden */ - stream_printf(out, "%d;Parteitarnung\n", i2b(fval(u, UFL_ANON_FACTION))); + + fother = get_otherfaction(u); + allied = u->faction == f || alliedunit(u, f, HELP_FSTEALTH); + if (allied) { + /* allies can tell that the unit is anonymous */ + /* the true faction is visible to allies */ + stream_printf(out, "%d;Partei\n", u->faction->no); + if (fother) { + stream_printf(out, "%d;Anderepartei\n", fother->no); } - else { - const attrib *a_otherfaction = a_find(u->attribs, &at_otherfaction); - const faction *otherfaction = - a_otherfaction ? get_otherfaction(a_otherfaction) : NULL; - /* other unit. show visible faction, not u->faction */ - stream_printf(out, "%d;Partei\n", sf->no); - if (sf == f) { - stream_printf(out, "1;Verraeter\n"); - } - if (otherfaction && otherfaction != u->faction) { - if (alliedunit(u, f, HELP_FSTEALTH)) { - stream_printf(out, "%d;Anderepartei\n", otherfaction->no); - } - } + } else if (!fval(u, UFL_ANON_FACTION)) { + /* OBS: anonymity overrides everything */ + /* we have no alliance, so we get duped */ + stream_printf(out, "%d;Partei\n", (fother ? fother : u->faction)->no); + if (fother==f) { + /* sieht aus wie unsere, ist es aber nicht. */ + stream_printf(out, "1;Verraeter\n"); } } + if (fval(u, UFL_ANON_FACTION)) { + sputs("1;Parteitarnung", out); + } + prefix = raceprefix(u); if (prefix) { prefix = mkname("prefix", prefix); stream_printf(out, "\"%s\";typprefix\n", translate(prefix, LOC(f->locale, @@ -850,7 +843,7 @@ void cr_output_unit(stream *out, const region * r, const faction * f, assert(u->ship->region); stream_printf(out, "%d;Schiff\n", u->ship->no); } - if (is_guard(u, GUARD_ALL) != 0) { + if (is_guard(u)) { stream_printf(out, "%d;bewacht\n", 1); } if ((b = usiege(u)) != NULL) { @@ -959,7 +952,7 @@ void cr_output_unit(stream *out, const region * r, const faction * f, show = u->items; } else { - if (mode >= see_unit) { + if (mode >= seen_unit) { int n = report_items(u, result, MAX_INVENTORY, u, f); assert(n >= 0); if (n > 0) { @@ -989,7 +982,7 @@ void cr_output_unit(stream *out, const region * r, const faction * f, static void cr_output_unit_compat(FILE * F, const region * r, const faction * f, const unit * u, int mode) { - // TODO: eliminate this function + /* TODO: eliminate this function */ stream strm; fstream_init(&strm, F); cr_output_unit(&strm, r, f, u, mode); @@ -1027,12 +1020,12 @@ static void show_alliances_cr(FILE * F, const faction * f) /* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */ /* this is a copy of laws.c->find_address output changed. */ -static void cr_find_address(FILE * F, const faction * uf, quicklist * addresses) +static void cr_find_address(FILE * F, const faction * uf, selist * addresses) { int i = 0; - quicklist *flist = addresses; + selist *flist = addresses; while (flist) { - const faction *f = (const faction *)ql_get(flist, i); + const faction *f = (const faction *)selist_get(flist, i); if (uf != f) { fprintf(F, "PARTEI %d\n", f->no); fprintf(F, "\"%s\";Parteiname\n", f->name); @@ -1045,7 +1038,7 @@ static void cr_find_address(FILE * F, const faction * uf, quicklist * addresses) fprintf(F, "%d;alliance\n", f->alliance->id); } } - ql_advance(&flist, &i, 1); + selist_advance(&flist, &i, 1); } } @@ -1098,11 +1091,19 @@ static void cr_reportspell(FILE * F, spell * sp, int level, const struct locale } } -static char *cr_output_resource(char *buf, const char *name, +static char *cr_output_resource(char *buf, const resource_type *rtype, const struct locale *loc, int amount, int level) { - buf += sprintf(buf, "RESOURCE %u\n", hashstring(name)); - buf += sprintf(buf, "\"%s\";type\n", translate(name, LOC(loc, name))); + const char *name, *tname; + assert(rtype); + name = resourcename(rtype, 1); + assert(name); + buf += sprintf(buf, "RESOURCE %u\n", hashstring(rtype->_name)); + tname = LOC(loc, rtype->_name); + assert(tname); + tname = translate(name, tname); + assert(tname); + buf += sprintf(buf, "\"%s\";type\n", tname); if (amount >= 0) { if (level >= 0) buf += sprintf(buf, "%d;skill\n", level); @@ -1112,8 +1113,7 @@ static char *cr_output_resource(char *buf, const char *name, } static void -cr_borders(seen_region ** seen, const region * r, const faction * f, -int seemode, FILE * F) +cr_borders(const region * r, const faction * f, seen_mode mode, FILE * F) { direction_t d; int g = 0; @@ -1122,9 +1122,8 @@ int seemode, FILE * F) const connection *b; if (!r2) continue; - if (seemode == see_neighbour) { - seen_region *sr = find_seen(seen, r2); - if (sr == NULL || sr->mode <= see_neighbour) + if (mode == seen_neighbour) { + if (r2->seen.mode <= seen_neighbour) continue; } b = get_borders(r, r2); @@ -1164,28 +1163,30 @@ int seemode, FILE * F) } } -static void -cr_output_resources(FILE * F, report_context * ctx, seen_region * sr) +void cr_output_resources(stream *out, const faction * f, const region *r, bool see_unit) { char cbuf[BUFFERSIZE], *pos = cbuf; - const region *r = sr->r; - faction *f = ctx->f; resource_report result[MAX_RAWMATERIALS]; - int n, size = report_resources(sr, result, MAX_RAWMATERIALS, f); + int n, size = report_resources(r, result, MAX_RAWMATERIALS, f, see_unit); #ifdef RESOURCECOMPAT int trees = rtrees(r, 2); int saplings = rtrees(r, 1); - if (trees > 0) - fprintf(F, "%d;Baeume\n", trees); - if (saplings > 0) - fprintf(F, "%d;Schoesslinge\n", saplings); - if (fval(r, RF_MALLORN) && (trees > 0 || saplings > 0)) - fprintf(F, "1;Mallorn\n"); + if (trees > 0) { + stream_printf(out, "%d;Baeume\n", trees); + } + if (saplings > 0) { + stream_printf(out, "%d;Schoesslinge\n", saplings); + } + if (fval(r, RF_MALLORN) && (trees > 0 || saplings > 0)) { + sputs("1;Mallorn", out); + } for (n = 0; n < size; ++n) { if (result[n].level >= 0 && result[n].number >= 0) { - fprintf(F, "%d;%s\n", result[n].number, crtag(result[n].name)); + const char * name = resourcename(result[n].rtype, result[n].number != 1); + assert(name); + stream_printf(out, "%d;%s\n", result[n].number, crtag(name)); } } #endif @@ -1193,14 +1194,25 @@ cr_output_resources(FILE * F, report_context * ctx, seen_region * sr) for (n = 0; n < size; ++n) { if (result[n].number >= 0) { pos = - cr_output_resource(pos, result[n].name, f->locale, result[n].number, + cr_output_resource(pos, result[n].rtype, f->locale, result[n].number, result[n].level); } } - if (pos != cbuf) - fputs(cbuf, F); + if (pos != cbuf) { + swrite(cbuf, 1, pos - cbuf, out); + } } +static void cr_output_resources_compat(FILE *F, report_context * ctx, + region *r, bool see_unit) +{ + /* TODO: eliminate this function */ + stream strm; + fstream_init(&strm, F); + cr_output_resources(&strm, ctx->f, r, see_unit); +} + + static void cr_region_header(FILE * F, int plid, int nx, int ny, int uid) { @@ -1257,10 +1269,9 @@ static void cr_output_travelthru(FILE *F, region *r, const faction *f) { travelthru_map(r, cb_cr_travelthru_unit, &cbdata); } -static void cr_output_region(FILE * F, report_context * ctx, seen_region * sr) +static void cr_output_region(FILE * F, report_context * ctx, region * r) { faction *f = ctx->f; - region *r = sr->r; plane *pl = rplane(r); int plid = plane_id(pl), nx, ny; const char *tname; @@ -1268,7 +1279,7 @@ static void cr_output_region(FILE * F, report_context * ctx, seen_region * sr) int uid = r->uid; #ifdef OCEAN_NEIGHBORS_GET_NO_ID - if (sr->mode <= see_neighbour && !r->land) { + if (r->seen.mode <= seen_neighbour && !r->land) { uid = 0; } #endif @@ -1317,28 +1328,25 @@ static void cr_output_region(FILE * F, report_context * ctx, seen_region * sr) tname = terrain_name(r); fprintf(F, "\"%s\";Terrain\n", translate(tname, LOC(f->locale, tname))); - if (sr->mode != see_unit) - fprintf(F, "\"%s\";visibility\n", visibility[sr->mode]); - if (sr->mode == see_neighbour) { - cr_borders(ctx->f->seen, r, f, sr->mode, F); + if (r->seen.mode != seen_unit) + fprintf(F, "\"%s\";visibility\n", visibility[r->seen.mode]); + if (r->seen.mode == seen_neighbour) { + cr_borders(r, f, r->seen.mode, F); } else { building *b; ship *sh; unit *u; - int stealthmod = stealth_modifier(sr->mode); + int stealthmod = stealth_modifier(r->seen.mode); if (r->display && r->display[0]) fprintf(F, "\"%s\";Beschr\n", r->display); if (fval(r->terrain, LAND_REGION)) { assert(r->land); fprintf(F, "%d;Bauern\n", rpeasants(r)); - if (fval(r, RF_ORCIFIED)) { - fprintf(F, "1;Verorkt\n"); - } fprintf(F, "%d;Pferde\n", rhorses(r)); - if (sr->mode >= see_unit) { + if (r->seen.mode >= seen_unit) { if (rule_region_owners()) { faction *owner = region_get_owner(r); if (owner) { @@ -1369,9 +1377,9 @@ static void cr_output_region(FILE * F, report_context * ctx, seen_region * sr) /* this writes both some tags (RESOURCECOMPAT) and a block. * must not write any blocks before it */ - cr_output_resources(F, ctx, sr); + cr_output_resources_compat(F, ctx, r, r->seen.mode >= seen_unit); - if (sr->mode >= see_unit) { + if (r->seen.mode >= seen_unit) { /* trade */ if (markets_module() && r->land) { const item_type *lux = r_luxury(r); @@ -1408,8 +1416,8 @@ static void cr_output_region(FILE * F, report_context * ctx, seen_region * sr) print_items(F, r->land->items, f->locale); } cr_output_curses_compat(F, f, r, TYP_REGION); - cr_borders(ctx->f->seen, r, f, sr->mode, F); - if (sr->mode == see_unit && is_astral(r) + cr_borders(r, f, r->seen.mode, F); + if (r->seen.mode == seen_unit && is_astral(r) && !is_cursed(r->attribs, C_ASTRALBLOCK, 0)) { /* Sonderbehandlung Teleport-Ebene */ region_list *rl = astralregions(r, inhabitable); @@ -1432,7 +1440,7 @@ static void cr_output_region(FILE * F, report_context * ctx, seen_region * sr) } cr_output_travelthru(F, r, f); - if (sr->mode == see_unit || sr->mode == see_travel) { + if (r->seen.mode == seen_unit || r->seen.mode == seen_travel) { message_list *mlist = r_getmessages(r, f); cr_output_messages(F, r->msgs, f); if (mlist) { @@ -1467,7 +1475,7 @@ static void cr_output_region(FILE * F, report_context * ctx, seen_region * sr) if (u->building || u->ship || (stealthmod > INT_MIN && cansee(f, r, u, stealthmod))) { - cr_output_unit_compat(F, r, f, u, sr->mode); + cr_output_unit_compat(F, r, f, u, r->seen.mode); } } } @@ -1475,17 +1483,18 @@ static void cr_output_region(FILE * F, report_context * ctx, seen_region * sr) /* main function of the creport. creates the header and traverses all regions */ static int -report_computer(const char *filename, report_context * ctx, const char *charset) +report_computer(const char *filename, report_context * ctx, const char *bom) { static int era = -1; int i; faction *f = ctx->f; const char *prefix; region *r; - const char *mailto = LOC(f->locale, "mailto"); + const char *mailto = config_get("game.email"); const attrib *a; - seen_region *sr = NULL; FILE *F = fopen(filename, "w"); + static const race *rc_human; + static int rc_cache; if (era < 0) { era = config_get_int("world.era", 1); @@ -1494,9 +1503,8 @@ report_computer(const char *filename, report_context * ctx, const char *charset) perror(filename); return -1; } - else if (_strcmpl(charset, "utf-8") == 0 || _strcmpl(charset, "utf8") == 0) { - const unsigned char utf8_bom[4] = { 0xef, 0xbb, 0xbf, 0 }; - fwrite(utf8_bom, 1, 3, F); + else if (bom) { + fwrite(bom, 1, strlen(bom), F); } /* must call this to get all the neighbour regions */ @@ -1504,8 +1512,8 @@ report_computer(const char *filename, report_context * ctx, const char *charset) /* initialisations, header and lists */ fprintf(F, "VERSION %d\n", C_REPORT_VERSION); - fprintf(F, "\"%s\";charset\n", charset); - fprintf(F, "\"%s\";locale\n", locale_name(f->locale)); + fprintf(F, "\"UTF-8\";charset\n\"%s\";locale\n", + locale_name(f->locale)); fprintf(F, "%d;noskillpoints\n", 1); fprintf(F, "%lld;date\n", (long long)ctx->report_time); fprintf(F, "\"%s\";Spiel\n", game_name()); @@ -1515,10 +1523,11 @@ report_computer(const char *filename, report_context * ctx, const char *charset) fprintf(F, "%d;Basis\n", 36); fprintf(F, "%d;Runde\n", turn); fprintf(F, "%d;Zeitalter\n", era); - fprintf(F, "\"%s\";Build\n", ERESSEA_VERSION); + fprintf(F, "\"%s\";Build\n", eressea_version()); if (mailto != NULL) { + const char * mailcmd = get_mailcmd(f->locale); fprintf(F, "\"%s\";mailto\n", mailto); - fprintf(F, "\"%s\";mailcmd\n", LOC(f->locale, "mailcmd")); + fprintf(F, "\"%s\";mailcmd\n", mailcmd); } show_alliances_cr(F, f); @@ -1552,7 +1561,10 @@ report_computer(const char *filename, report_context * ctx, const char *charset) fprintf(F, "%d;Anzahl Personen\n", count_all(f)); fprintf(F, "\"%s\";Magiegebiet\n", magic_school[f->magiegebiet]); - if (f->race == get_race(RC_HUMAN)) { + if (rc_changed(&rc_cache)) { + rc_human = rc_find("human"); + } + if (f->race == rc_human) { fprintf(F, "%d;Anzahl Immigranten\n", count_migrants(f)); fprintf(F, "%d;Max. Immigranten\n", count_maxmigrants(f)); } @@ -1662,11 +1674,10 @@ report_computer(const char *filename, report_context * ctx, const char *charset) } /* traverse all regions */ - for (r = ctx->first; sr == NULL && r != ctx->last; r = r->next) { - sr = find_seen(ctx->f->seen, r); - } - for (; sr != NULL; sr = sr->next) { - cr_output_region(F, ctx, sr); + for (r = ctx->first; r != ctx->last; r = r->next) { + if (r->seen.mode > seen_none) { + cr_output_region(F, ctx, r); + } } report_crtypes(F, f->locale); write_translations(F); diff --git a/src/creport.h b/src/creport.h index c2c2ff385..435bb637f 100644 --- a/src/creport.h +++ b/src/creport.h @@ -11,6 +11,9 @@ */ #ifndef H_GC_CREPORT #define H_GC_CREPORT + +#include + #ifdef __cplusplus extern "C" { #endif @@ -24,8 +27,10 @@ extern "C" { void register_cr(void); int crwritemap(const char *filename); - void cr_output_unit(struct stream *out, const struct region * r, const struct faction * f, const struct unit * u, int mode); - + void cr_output_unit(struct stream *out, const struct region * r, + const struct faction * f, const struct unit * u, seen_mode mode); + void cr_output_resources(struct stream *out, const struct faction * f, + const struct region *r, bool see_unit); #ifdef __cplusplus } #endif diff --git a/src/creport.test.c b/src/creport.test.c new file mode 100644 index 000000000..46e6e6967 --- /dev/null +++ b/src/creport.test.c @@ -0,0 +1,308 @@ +#include +#include "creport.h" +#include "move.h" +#include "spy.h" +#include "travelthru.h" +#include "keyword.h" + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#include +#include +#include + +#include +#include + +#include +#include + +#include + +static void test_cr_unit(CuTest *tc) { + stream strm; + char line[1024]; + faction *f; + region *r; + unit *u; + + test_cleanup(); + f = test_create_faction(0); + r = test_create_region(0, 0, 0); + u = test_create_unit(f, r); + renumber_unit(u, 1234); + + mstream_init(&strm); + cr_output_unit(&strm, r, f, u, seen_unit); + strm.api->rewind(strm.handle); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, line, "EINHEIT 1234"); + mstream_done(&strm); + test_cleanup(); +} + +static void setup_resources(void) { + struct locale *lang; + + test_setup(); + init_resources(); + lang = get_or_create_locale("de"); /* CR tags are translated from this */ + locale_setstring(lang, "money", "Silber"); + locale_setstring(lang, "money_p", "Silber"); + locale_setstring(lang, "horse", "Pferd"); + locale_setstring(lang, "horse_p", "Pferde"); + locale_setstring(lang, "peasant", "Bauer"); + locale_setstring(lang, "peasant_p", "Bauern"); + locale_setstring(lang, "tree", "Blume"); + locale_setstring(lang, "tree_p", "Blumen"); + locale_setstring(lang, "sapling", "Schoessling"); + locale_setstring(lang, "sapling_p", "Schoesslinge"); + locale_setstring(lang, "mallornsapling", "Mallornschoessling"); + locale_setstring(lang, "mallornsapling_p", "Mallornschoesslinge"); + locale_setstring(lang, "mallorntree", "Mallorn"); + locale_setstring(lang, "mallorntree_p", "Mallorn"); +} + +static void test_cr_resources(CuTest *tc) { + stream strm; + char line[1024]; + faction *f; + region *r; + + setup_resources(); + + f = test_create_faction(0); + r = test_create_region(0, 0, 0); + r->land->horses = 1; + r->land->peasants = 200; + r->land->money = 300; + rsettrees(r, 0, 1); + rsettrees(r, 1, 2); + rsettrees(r, 2, 3); + + mstream_init(&strm); + cr_output_resources(&strm, f, r, false); + strm.api->rewind(strm.handle); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "3;Baeume", line); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "2;Schoesslinge", line); + + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9)); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "\"Schoesslinge\";type", line); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "2;number", line); + + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9)); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "\"Blumen\";type", line); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "3;number", line); + + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9)); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "\"Silber\";type", line); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "300;number", line); + + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9)); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "\"Bauern\";type", line); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "200;number", line); + + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9)); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "\"Pferde\";type", line); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "1;number", line); + + mstream_done(&strm); + test_cleanup(); +} + +static void test_cr_mallorn(CuTest *tc) { + stream strm; + char line[1024]; + faction *f; + region *r; + + setup_resources(); + + f = test_create_faction(0); + r = test_create_region(0, 0, 0); + r->land->horses = 1; + r->land->peasants = 200; + r->land->money = 300; + r->flags |= RF_MALLORN; + rsettrees(r, 0, 1); + rsettrees(r, 1, 2); + rsettrees(r, 2, 3); + + mstream_init(&strm); + cr_output_resources(&strm, f, r, false); + strm.api->rewind(strm.handle); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "3;Baeume", line); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "2;Schoesslinge", line); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "1;Mallorn", line); + + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9)); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "\"Mallornschoesslinge\";type", line); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "2;number", line); + + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9)); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "\"Mallorn\";type", line); + CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); + CuAssertStrEquals(tc, "3;number", line); + + mstream_done(&strm); + test_cleanup(); +} + +static int cr_get_int(stream *strm, const char *match, int def) +{ + char line[1024]; + size_t len = strlen(match); + + strm->api->rewind(strm->handle); + while (strm->api->readln(strm->handle, line, sizeof(line))==0) { + const char * pos = strstr(line, match); + if (pos && pos[len]=='\0') { + return atoi(line); + } + } + return def; +} + +static void test_cr_factionstealth(CuTest *tc) { + stream strm; + faction *f1, *f2; + region *r; + unit *u; + ally *al; + + test_setup(); + f1 = test_create_faction(0); + f2 = test_create_faction(0); + r = test_create_region(0, 0, 0); + u = test_create_unit(f1, r); + + /* report to ourselves */ + mstream_init(&strm); + cr_output_unit(&strm, u->region, f1, u, seen_unit); + CuAssertIntEquals(tc, f1->no, cr_get_int(&strm, ";Partei", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Anderepartei", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Parteitarnung", -1)); + mstream_done(&strm); + + /* ... also when we are anonymous */ + u->flags |= UFL_ANON_FACTION; + mstream_init(&strm); + cr_output_unit(&strm, u->region, f1, u, seen_unit); + CuAssertIntEquals(tc, f1->no, cr_get_int(&strm, ";Partei", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Anderepartei", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1)); + CuAssertIntEquals(tc, 1, cr_get_int(&strm, ";Parteitarnung", -1)); + u->flags &= ~UFL_ANON_FACTION; + mstream_done(&strm); + + /* we see that our unit is cloaked */ + set_factionstealth(u, f2); + CuAssertPtrNotNull(tc, u->attribs); + mstream_init(&strm); + cr_output_unit(&strm, u->region, f1, u, seen_unit); + CuAssertIntEquals(tc, f1->no, cr_get_int(&strm, ";Partei", -1)); + CuAssertIntEquals(tc, f2->no, cr_get_int(&strm, ";Anderepartei", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Parteitarnung", -1)); + mstream_done(&strm); + + /* ... also when we are anonymous */ + u->flags |= UFL_ANON_FACTION; + mstream_init(&strm); + cr_output_unit(&strm, u->region, f1, u, seen_unit); + CuAssertIntEquals(tc, f1->no, cr_get_int(&strm, ";Partei", -1)); + CuAssertIntEquals(tc, f2->no, cr_get_int(&strm, ";Anderepartei", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1)); + CuAssertIntEquals(tc, 1, cr_get_int(&strm, ";Parteitarnung", -1)); + u->flags &= ~UFL_ANON_FACTION; + mstream_done(&strm); + + /* we can tell that someone is presenting as us */ + mstream_init(&strm); + cr_output_unit(&strm, u->region, f2, u, seen_unit); + CuAssertIntEquals(tc, f2->no, cr_get_int(&strm, ";Partei", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Anderepartei", -1)); + CuAssertIntEquals(tc, 1, cr_get_int(&strm, ";Verraeter", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Parteitarnung", -1)); + mstream_done(&strm); + + /* ... but not if they are anonymous */ + u->flags |= UFL_ANON_FACTION; + mstream_init(&strm); + cr_output_unit(&strm, u->region, f2, u, seen_unit); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Partei", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Anderepartei", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1)); + CuAssertIntEquals(tc, 1, cr_get_int(&strm, ";Parteitarnung", -1)); + u->flags &= ~UFL_ANON_FACTION; + mstream_done(&strm); + + /* we see the same thing as them when we are an ally */ + al = ally_add(&f1->allies, f2); + al->status = HELP_FSTEALTH; + mstream_init(&strm); + cr_output_unit(&strm, u->region, f2, u, seen_unit); + CuAssertIntEquals(tc, f1->no, cr_get_int(&strm, ";Partei", -1)); + CuAssertIntEquals(tc, f2->no, cr_get_int(&strm, ";Anderepartei", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Parteitarnung", -1)); + mstream_done(&strm); + + /* ... also when they are anonymous */ + u->flags |= UFL_ANON_FACTION; + mstream_init(&strm); + cr_output_unit(&strm, u->region, f2, u, seen_unit); + CuAssertIntEquals(tc, f1->no, cr_get_int(&strm, ";Partei", -1)); + CuAssertIntEquals(tc, f2->no, cr_get_int(&strm, ";Anderepartei", -1)); + CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1)); + CuAssertIntEquals(tc, 1, cr_get_int(&strm, ";Parteitarnung", -1)); + u->flags &= ~UFL_ANON_FACTION; + mstream_done(&strm); + + test_cleanup(); +} + +CuSuite *get_creport_suite(void) +{ + CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_cr_unit); + SUITE_ADD_TEST(suite, test_cr_resources); + SUITE_ADD_TEST(suite, test_cr_mallorn); + SUITE_ADD_TEST(suite, test_cr_factionstealth); + return suite; +} diff --git a/src/donations.c b/src/donations.c index 8f820df2b..b923df73b 100644 --- a/src/donations.c +++ b/src/donations.c @@ -1,10 +1,11 @@ +#include #include #include "donations.h" #include #include #include -#include +#include #include #include @@ -15,7 +16,7 @@ typedef struct transfer { int amount; } transfer; -static quicklist *transfers = 0; +static selist *transfers = 0; int cmp_transfer(const void *v1, const void *v2) { const transfer *t1 = (const transfer *)v1; @@ -35,46 +36,42 @@ int cmp_transfer(const void *v1, const void *v2) { void add_donation(faction * f1, faction * f2, int amount, region * r) { transfer tr, *tf; - quicklist *ql = transfers; + selist *ql = transfers; int qi = 0; tr.r = r; tr.f1 = f1; tr.f2 = f2; tr.amount = amount; - if (ql_set_find_ex(&ql, &qi, &tr, cmp_transfer)) { - tf = (transfer *)ql_get(ql, qi); + if (selist_set_find(&ql, &qi, &tr, cmp_transfer)) { + tf = (transfer *)selist_get(ql, qi); tf->amount += amount; } else { tf = malloc(sizeof(transfer)); memcpy(tf, &tr, sizeof(transfer)); } - ql_set_insert_ex(&transfers, tf, cmp_transfer); + selist_set_insert(&transfers, tf, cmp_transfer); } void free_donations(void) { - ql_foreach(transfers, free); - ql_free(transfers); + selist_foreach(transfers, free); + selist_free(transfers); transfers = 0; } -static void report_transfer(faction *f1, faction *f2, region *r, int amount) { - struct message *msg = msg_message("donation", - "from to amount", f1, f2, amount); - r_addmessage(r, f1, msg); - r_addmessage(r, f2, msg); - msg_release(msg); +static void report_transfer(void *data) { + transfer *tf = (transfer *)data; + if (tf->amount > 0) { + struct message *msg = msg_message("donation", + "from to amount", tf->f1, tf->f2, tf->amount); + r_addmessage(tf->r, tf->f1, msg); + r_addmessage(tf->r, tf->f2, msg); + msg_release(msg); + } } void report_donations(void) { - ql_iter qli = qli_init(&transfers); - - while (qli_more(qli)) { - transfer *tf = (transfer *)qli_next(&qli); - if (tf->amount > 0) { - report_transfer(tf->f1, tf->f2, tf->r, tf->amount); - } - } + selist_foreach(transfers, report_transfer); } diff --git a/src/donations.test.c b/src/donations.test.c index 068aba74a..09cd31977 100644 --- a/src/donations.test.c +++ b/src/donations.test.c @@ -1,3 +1,4 @@ +#include #include "donations.h" #include diff --git a/src/economy.c b/src/economy.c index 8d4939d4a..d5ee5a4bf 100644 --- a/src/economy.c +++ b/src/economy.c @@ -24,13 +24,14 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "alchemy.h" #include "direction.h" #include "donations.h" +#include "guard.h" #include "give.h" #include "laws.h" #include "randenc.h" #include "spy.h" #include "study.h" #include "move.h" -#include "monster.h" +#include "monsters.h" #include "morale.h" #include "reports.h" #include "calendar.h" @@ -68,7 +69,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include -#include /* libs includes */ #include @@ -97,7 +97,7 @@ static request *nextentertainer; static int entertaining; static unsigned int norders; -static request *oa; +static request *g_requests; #define RECRUIT_MERGE 1 static int rules_recruit = -1; @@ -112,18 +112,27 @@ static void recruit_init(void) } } +int entertainmoney(const region * r) +{ + double n; + + if (is_cursed(r->attribs, C_DEPRESSION, 0)) { + return 0; + } + + n = rmoney(r) / (double)ENTERTAINFRACTION; + + if (is_cursed(r->attribs, C_GENEROUS, 0)) { + n *= get_curseeffect(r->attribs, C_GENEROUS, 0); + } + + return (int)n; +} + int income(const unit * u) { - switch (old_race(u_race(u))) { - case RC_FIREDRAGON: - return 150 * u->number; - case RC_DRAGON: - return 1000 * u->number; - case RC_WYRM: - return 5000 * u->number; - default: - return 20 * u->number; - } + const race *rc = u_race(u); + return rc->income * u->number; } static void scramble(void *data, unsigned int n, size_t width) @@ -162,21 +171,21 @@ static void expandorders(region * r, request * requests) if (norders > 0) { int i = 0; - oa = (request *)calloc(norders, sizeof(request)); + g_requests = (request *)calloc(norders, sizeof(request)); for (o = requests; o; o = o->next) { if (o->qty > 0) { unsigned int j; for (j = o->qty; j; j--) { - oa[i] = *o; - oa[i].unit->n = 0; + g_requests[i] = *o; + g_requests[i].unit->n = 0; i++; } } } - scramble(oa, norders, sizeof(request)); + scramble(g_requests, norders, sizeof(request)); } else { - oa = NULL; + g_requests = NULL; } while (requests) { request *o = requests->next; @@ -188,15 +197,6 @@ static void expandorders(region * r, request * requests) /* ------------------------------------------------------------- */ -static void change_level(unit * u, skill_t sk, int bylevel) -{ - skill *sv = unit_skill(u, sk); - assert(bylevel > 0); - if (sv == 0) - sv = add_skill(u, sk); - sk_set(sv, sv->level + bylevel); -} - typedef struct recruitment { struct recruitment *next; faction *f; @@ -244,7 +244,7 @@ static recruitment *select_recruitment(request ** rop, return recruits; } -static void add_recruits(unit * u, int number, int wanted) +void add_recruits(unit * u, int number, int wanted) { region *r = u->region; assert(number <= wanted); @@ -266,10 +266,6 @@ static void add_recruits(unit * u, int number, int wanted) strlcat(equipment, "_unit", sizeof(equipment)); equip_unit(unew, get_equipment(equipment)); - if (u_race(unew)->ec_flags & ECF_REC_HORSES) { - change_level(unew, SK_RIDING, 1); - } - if (unew != u) { transfermen(unew, u, unew->number); remove_unit(&r->units, unew); @@ -286,24 +282,6 @@ static int any_recruiters(const struct race *rc, int qty) return (int)(qty * 2 * rc->recruit_multi); } -/*static int peasant_recruiters(const struct race *rc, int qty) -{ -if (rc->ec_flags & ECF_REC_ETHEREAL) -return -1; -if (rc->ec_flags & ECF_REC_HORSES) -return -1; -return (int)(qty * 2 * rc->recruit_multi); -}*/ - -static int horse_recruiters(const struct race *rc, int qty) -{ - if (rc->ec_flags & ECF_REC_ETHEREAL) - return -1; - if (rc->ec_flags & ECF_REC_HORSES) - return (int)(qty * 2.0 * rc->recruit_multi); - return -1; -} - static int do_recruiting(recruitment * recruits, int available) { recruitment *rec; @@ -359,11 +337,11 @@ static int do_recruiting(recruitment * recruits, int available) int number, dec; double multi = 2.0 * rc->recruit_multi; - number = _min(req->qty, (int)(get / multi)); + number = MIN(req->qty, (int)(get / multi)); if (rc->recruitcost) { int afford = get_pooled(u, get_resourcetype(R_SILVER), GET_DEFAULT, number * rc->recruitcost) / rc->recruitcost; - number = _min(number, afford); + number = MIN(number, afford); } if (u->number + number > UNIT_MAXSIZE) { ADDMSG(&u->faction->msgs, msg_feedback(u, req->ord, "error_unit_size", @@ -379,8 +357,8 @@ static int do_recruiting(recruitment * recruits, int available) /* unit is empty, dead, and cannot recruit */ number = 0; } + add_recruits(u, number, req->qty); if (number > 0) { - add_recruits(u, number, req->qty); dec = (int)(number * multi); if ((rc->ec_flags & ECF_REC_ETHEREAL) == 0) { recruited += dec; @@ -415,17 +393,6 @@ static void expandrecruit(region * r, request * recruitorders) int orc_total = 0; - /* centaurs: */ - recruits = select_recruitment(&recruitorders, horse_recruiters, &orc_total); - if (recruits) { - int recruited, horses = rhorses(r) * 2; - if (orc_total < horses) - horses = orc_total; - recruited = do_recruiting(recruits, horses); - rsethorses(r, (horses - recruited) / 2); - free_recruitments(recruits); - } - /* peasant limited: */ recruits = select_recruitment(&recruitorders, any_recruiters, &orc_total); if (recruits) { @@ -455,13 +422,9 @@ static void expandrecruit(region * r, request * recruitorders) static int recruit_cost(const faction * f, const race * rc) { - if (is_monsters(f) || f->race == rc) { + if (is_monsters(f) || valid_race(f, rc)) { return rc->recruitcost; } - else if (valid_race(f, rc)) { - return rc->recruitcost; - /* return get_param_int(f->race->parameters, "other_cost", -1); */ - } return -1; } @@ -478,7 +441,7 @@ static void recruit(unit * u, struct order *ord, request ** recruitorders) init_order(ord); n = getint(); - if (n<=0) { + if (n <= 0) { syntax_error(u, ord); return; } @@ -509,7 +472,7 @@ static void recruit(unit * u, struct order *ord, request ** recruitorders) /* this is a very special case because the recruiting unit may be empty * at this point and we have to look at the creating unit instead. This * is done in cansee, which is called indirectly by is_guarded(). */ - if (is_guarded(r, u, GUARD_RECRUIT)) { + if (is_guarded(r, u)) { cmistake(u, ord, 70, MSG_EVENT); return; } @@ -547,13 +510,6 @@ static void recruit(unit * u, struct order *ord, request ** recruitorders) return; } - if (!(rc->ec_flags & ECF_REC_HORSES) && fval(r, RF_ORCIFIED)) { - if (rc != get_race(RC_ORC)) { - cmistake(u, ord, 238, MSG_EVENT); - return; - } - } - if (recruitcost) { pl = getplane(r); if (pl && fval(pl, PFL_NORECRUITS)) { @@ -578,7 +534,7 @@ static void recruit(unit * u, struct order *ord, request ** recruitorders) } if (has_skill(u, SK_MAGIC)) { /* error158;de;{unit} in {region}: '{command}' - Magier arbeiten - * grundstzlich nur alleine! */ + * grunds�tzlich nur alleine! */ cmistake(u, ord, 158, MSG_EVENT); return; } @@ -591,7 +547,7 @@ static void recruit(unit * u, struct order *ord, request ** recruitorders) if (recruitcost > 0) { int pooled = get_pooled(u, get_resourcetype(R_SILVER), GET_DEFAULT, recruitcost * n); - n = _min(n, pooled / recruitcost); + n = MIN(n, pooled / recruitcost); } u->wants = n; @@ -713,7 +669,7 @@ static int maintain(building * b) { int c; region *r = b->region; - bool paid = true, work = true; + bool paid = true; unit *u; if (fval(b, BLD_MAINTAINED) || b->type == NULL || b->type->maintenance == NULL) { @@ -734,78 +690,40 @@ static int maintain(building * b) return 0; } } - for (c = 0; b->type->maintenance[c].number; ++c) { + for (c = 0; b->type->maintenance[c].number && paid; ++c) { const maintenance *m = b->type->maintenance + c; int need = m->number; if (fval(m, MTF_VARIABLE)) need = need * b->size; - if (u) { - /* first ist im ersten versuch true, im zweiten aber false! Das - * bedeutet, das in der Runde in die Region geschafften Resourcen - * nicht genutzt werden knnen, weil die reserviert sind! */ - need -= get_pooled(u, m->rtype, GET_DEFAULT, need); - } + need -= get_pooled(u, m->rtype, GET_DEFAULT, need); if (need > 0) { - if (!fval(m, MTF_VITAL)) - work = false; - else { - paid = false; - break; - } + paid = false; } } if (fval(b, BLD_DONTPAY)) { + ADDMSG(&r->msgs, msg_message("maintenance_nowork", "building", b)); return 0; } - u = building_owner(b); - if (!u) { + if (!paid) { + ADDMSG(&u->faction->msgs, msg_message("maintenancefail", "unit building", u, b)); + ADDMSG(&r->msgs, msg_message("maintenance_nowork", "building", b)); return 0; } for (c = 0; b->type->maintenance[c].number; ++c) { const maintenance *m = b->type->maintenance + c; - int need = m->number; + int cost = m->number; - if (fval(m, MTF_VARIABLE)) - need = need * b->size; - if (u) { - need -= get_pooled(u, m->rtype, GET_DEFAULT, need); - if (need > 0) { - work = false; - if (fval(m, MTF_VITAL)) { - paid = false; - break; - } - } + if (fval(m, MTF_VARIABLE)) { + cost = cost * b->size; } - } - if (paid && c > 0) { - if (!work) { - ADDMSG(&u->faction->msgs, msg_message("maintenancefail", "unit building", u, b)); - return 0; - } - - for (c = 0; b->type->maintenance[c].number; ++c) { - const maintenance *m = b->type->maintenance + c; - int cost = m->number; - - if (!fval(m, MTF_VITAL) && !work) - continue; - if (fval(m, MTF_VARIABLE)) - cost = cost * b->size; - - cost -= - use_pooled(u, m->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, + cost -= + use_pooled(u, m->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, cost); - assert(cost == 0); - } - if (work) { - ADDMSG(&u->faction->msgs, msg_message("maintenance", "unit building", u, b)); - return BLD_MAINTAINED; - } + assert(cost == 0); } - ADDMSG(&u->faction->msgs, msg_message("maintenancefail", "unit building", u, b)); - return 0; + ADDMSG(&u->faction->msgs, msg_message("maintenance", "unit building", u, b)); + return BLD_MAINTAINED; } void maintain_buildings(region * r) @@ -815,24 +733,11 @@ void maintain_buildings(region * r) while (*bp) { building *b = *bp; int flags = BLD_MAINTAINED; - + if (!curse_active(get_curse(b->attribs, nocost_ct))) { flags = maintain(b); } fset(b, flags); - - if (!fval(b, BLD_MAINTAINED)) { - unit *u = building_owner(b); - struct message *msg = msg_message("maintenance_nowork", "building", b); - if (u) { - add_message(&u->faction->msgs, msg); - r_addmessage(r, u->faction, msg); - } - else { - add_message(&r->msgs, msg); - } - msg_release(msg); - } bp = &b->next; } } @@ -929,12 +834,12 @@ static void manufacture(unit * u, const item_type * itype, int want) case EBUILDINGREQ: ADDMSG(&u->faction->msgs, msg_feedback(u, u->thisorder, "building_needed", "building", - itype->construction->btype->_name)); + itype->construction->btype->_name)); return; case ELOWSKILL: ADDMSG(&u->faction->msgs, msg_feedback(u, u->thisorder, "manufacture_skills", - "skill minskill product", sk, minskill, itype->rtype, 1)); + "skill minskill product", sk, minskill, itype->rtype, 1)); return; case ENOMATERIALS: ADDMSG(&u->faction->msgs, msg_materials_required(u, u->thisorder, @@ -958,7 +863,7 @@ static void manufacture(unit * u, const item_type * itype, int want) typedef struct allocation { struct allocation *next; int want, get; - double save; + variant save; unsigned int flags; unit *unit; } allocation; @@ -973,24 +878,42 @@ typedef struct allocation_list { static allocation_list *allocations; -static bool can_guard(const unit * guard, const unit * u) -{ - if (fval(guard, UFL_ISNEW)) - return false; - if (guard->number <= 0 || !cansee(guard->faction, guard->region, u, 0)) - return false; - if (besieged(guard) || !(fval(u_race(guard), RCF_UNARMEDGUARD) - || armedmen(guard, true))) - return false; - - return !alliedunit(guard, u->faction, HELP_GUARD); -} - enum { AFL_DONE = 1 << 0, AFL_LOWSKILL = 1 << 1 }; +struct message * get_modifiers(unit *u, const resource_mod *mod, variant *savep, int *skillp) { + struct building *b = inside_building(u); + const struct building_type *btype = building_is_active(b) ? b->type : NULL; + int save_n = 1, save_d = 1; + int skill = 0; + + for (; mod->flags != 0; ++mod) { + if (mod->btype == NULL || mod->btype == btype) { + if (mod->race == NULL || mod->race == u_race(u)) { + if (mod->flags & RMF_SAVEMATERIAL) { + save_n *= mod->value.sa[0]; + save_d *= mod->value.sa[1]; + } + if (mod->flags & RMF_SKILL) { + skill += mod->value.i; + } + } + } else if (mod->flags & RMF_REQUIREDBUILDING) { + return msg_error(u, u->thisorder, 104); + } + } + *skillp = skill; + assert(save_n < SHRT_MAX); + assert(save_n > SHRT_MIN); + assert(save_d < SHRT_MAX); + assert(save_d > SHRT_MIN); + savep->sa[0] = (short)save_n; + savep->sa[1] = (short)save_d; + return NULL; +} + static void allocate_resource(unit * u, const resource_type * rtype, int want) { const item_type *itype = resource2item(rtype); @@ -998,19 +921,17 @@ static void allocate_resource(unit * u, const resource_type * rtype, int want) int dm = 0; allocation_list *alist; allocation *al; - attrib *a = a_find(rtype->attribs, &at_resourcelimit); - resource_limit *rdata = (resource_limit *)a->data.v; const resource_type *rring; - int amount, skill; + int amount, skill, skill_mod = 0; + variant save_mod; - /* momentan kann man keine ressourcen abbauen, wenn man dafr + /* momentan kann man keine ressourcen abbauen, wenn man daf�r * Materialverbrauch hat: */ assert(itype != NULL && (itype->construction == NULL || itype->construction->materials == NULL)); - assert(rdata != NULL); - if (rdata->limit != NULL) { - int avail = rdata->limit(r, rtype); + if (!rtype->raw) { + int avail = limit_resource(r, rtype); if (avail <= 0) { cmistake(u, u->thisorder, 121, MSG_PRODUCE); return; @@ -1022,39 +943,26 @@ static void allocate_resource(unit * u, const resource_type * rtype, int want) return; } - if (rdata->modifiers) { - resource_mod *mod = rdata->modifiers; - for (; mod->flags != 0; ++mod) { - if (mod->flags & RMF_REQUIREDBUILDING) { - struct building *b = inside_building(u); - const struct building_type *btype = building_is_active(b) ? b->type : NULL; - if (mod->btype && mod->btype != btype) { - cmistake(u, u->thisorder, 104, MSG_PRODUCE); - return; - } - } + if (rtype->modifiers) { + message *msg = get_modifiers(u, rtype->modifiers, &save_mod, &skill_mod); + if (msg) { + ADDMSG(&u->faction->msgs, msg); + return; } } - - if (rdata->guard != 0) { - unit *u2; - for (u2 = r->units; u2; u2 = u2->next) { - if (is_guard(u2, rdata->guard) != 0 && can_guard(u2, u)) { - ADDMSG(&u->faction->msgs, - msg_feedback(u, u->thisorder, "region_guarded", "guard", u2)); - return; - } - } + else { + save_mod.sa[0] = 1; + save_mod.sa[1] = 1; } - /* Bergwchter knnen Abbau von Eisen/Laen durch Bewachen verhindern. - * Als magische Wesen 'sehen' Bergwchter alles und werden durch + /* Bergw�chter k�nnen Abbau von Eisen/Laen durch Bewachen verhindern. + * Als magische Wesen 'sehen' Bergw�chter alles und werden durch * Belagerung nicht aufgehalten. (Ansonsten wie oben bei Elfen anpassen). */ if (itype->rtype && (itype->rtype == get_resourcetype(R_IRON) || itype->rtype == rt_find("laen"))) { unit *u2; for (u2 = r->units; u2; u2 = u2->next) { - if (is_guard(u, GUARD_MINING) + if (is_guard(u) && !fval(u2, UFL_ISNEW) && u2->number && !alliedunit(u2, u->faction, HELP_GUARD)) { ADDMSG(&u->faction->msgs, @@ -1077,27 +985,11 @@ static void allocate_resource(unit * u, const resource_type * rtype, int want) skill_t sk = itype->construction->skill; add_message(&u->faction->msgs, msg_feedback(u, u->thisorder, "manufacture_skills", - "skill minskill product", sk, itype->construction->minskill, - itype->rtype)); + "skill minskill product", sk, itype->construction->minskill, + itype->rtype)); return; } - else { - struct building *b = inside_building(u); - const struct building_type *btype = building_is_active(b) ? b->type : NULL; - - if (rdata->modifiers) { - resource_mod *mod = rdata->modifiers; - for (; mod->flags != 0; ++mod) { - if (mod->flags & RMF_SKILL) { - if (mod->btype == NULL || mod->btype == btype) { - if (mod->race == NULL || mod->race == u_race(u)) { - skill += mod->value.i; - } - } - } - } - } - } + skill += skill_mod; amount = skill * u->number; /* nun ist amount die Gesamtproduktion der Einheit (in punkten) */ @@ -1105,12 +997,12 @@ static void allocate_resource(unit * u, const resource_type * rtype, int want) rring = get_resourcetype(R_RING_OF_NIMBLEFINGER); if (rring) { int dm = i_get(u->items, rring->itype); - amount += skill * _min(u->number, dm) * (roqf_factor() - 1); + amount += skill * MIN(u->number, dm) * (roqf_factor() - 1); } /* Schaffenstrunk: */ if ((dm = get_effect(u, oldpotiontype[P_DOMORE])) != 0) { - dm = _min(dm, u->number); + dm = MIN(dm, u->number); change_effect(u, oldpotiontype[P_DOMORE], -dm); amount += dm * skill; /* dm Personen produzieren doppelt */ } @@ -1132,34 +1024,18 @@ static void allocate_resource(unit * u, const resource_type * rtype, int want) } al = new_allocation(); al->want = amount; - al->save = 1.0; + al->save = save_mod; al->next = alist->data; al->unit = u; alist->data = al; - - if (rdata->modifiers) { - struct building *b = inside_building(u); - const struct building_type *btype = building_is_active(b) ? b->type : NULL; - - resource_mod *mod = rdata->modifiers; - for (; mod->flags != 0; ++mod) { - if (mod->flags & RMF_SAVEMATERIAL) { - if (mod->btype == NULL || mod->btype == btype) { - if (mod->race == NULL || mod->race == u_race(u)) { - al->save *= mod->value.f; - } - } - } - } - } } -static int required(int want, double save) +static int required(int want, variant save) { - int norders = (int)(want * save); - if (norders < want * save) - ++norders; - return norders; + int req = (int)(want * save.sa[0] / save.sa[1]); + int r = want * save.sa[0] % save.sa[1]; + if (r>0) ++req; + return req; } static void @@ -1173,7 +1049,7 @@ leveled_allocation(const resource_type * rtype, region * r, allocation * alist) if (rm != NULL) { do { int avail = rm->amount; - int norders = 0; + int nreq = 0; allocation *al; if (avail <= 0) { @@ -1192,7 +1068,7 @@ leveled_allocation(const resource_type * rtype, region * r, allocation * alist) if (effskill(al->unit, itype->construction->skill, 0) >= rm->level + itype->construction->minskill - 1) { if (req) { - norders += req; + nreq += req; } else { fset(al, AFL_DONE); @@ -1204,31 +1080,31 @@ leveled_allocation(const resource_type * rtype, region * r, allocation * alist) fset(al, AFL_LOWSKILL); } } - need = norders; + need = nreq; - avail = _min(avail, norders); + avail = MIN(avail, nreq); if (need > 0) { int use = 0; for (al = alist; al; al = al->next) if (!fval(al, AFL_DONE)) { if (avail > 0) { int want = required(al->want - al->get, al->save); - int x = avail * want / norders; - /* Wenn Rest, dann wrfeln, ob ich was bekomme: */ - if (rng_int() % norders < (avail * want) % norders) - ++x; + int x = avail * want / nreq; + int r = (avail * want) % nreq; + /* Wenn Rest, dann wuerfeln, ob ich etwas bekomme: */ + if (r > 0 && rng_int() % nreq < r) ++x; avail -= x; use += x; - norders -= want; + nreq -= want; need -= x; - al->get = _min(al->want, al->get + (int)(x / al->save)); + al->get = MIN(al->want, al->get + x * al->save.sa[1] / al->save.sa[0]); } } if (use) { assert(use <= rm->amount); rm->type->use(rm, r, use); } - assert(avail == 0 || norders == 0); + assert(avail == 0 || nreq == 0); } first = false; } while (need > 0); @@ -1239,57 +1115,52 @@ static void attrib_allocation(const resource_type * rtype, region * r, allocation * alist) { allocation *al; - int norders = 0; - attrib *a = a_find(rtype->attribs, &at_resourcelimit); - resource_limit *rdata = (resource_limit *)a->data.v; - int avail = rdata->value; + int nreq = 0; + int avail = INT_MAX; for (al = alist; al; al = al->next) { - norders += required(al->want, al->save); + nreq += required(al->want, al->save); } - if (rdata->limit) { - avail = rdata->limit(r, rtype); - if (avail < 0) + if (!rtype->raw) { + avail = limit_resource(r, rtype); + if (avail < 0) { avail = 0; + } } - avail = _min(avail, norders); + avail = MIN(avail, nreq); for (al = alist; al; al = al->next) { if (avail > 0) { int want = required(al->want, al->save); - int x = avail * want / norders; - /* Wenn Rest, dann wrfeln, ob ich was bekomme: */ - if (rng_int() % norders < (avail * want) % norders) - ++x; + int x = avail * want / nreq; + int rx = (avail * want) % nreq; + /* Wenn Rest, dann wuerfeln, ob ich was bekomme: */ + if (rx>0 && rng_int() % nreq < rx) ++x; avail -= x; - norders -= want; - al->get = _min(al->want, (int)(x / al->save)); - if (rdata->produce) { + nreq -= want; + al->get = x * al->save.sa[1] / al->save.sa[0]; + al->get = MIN(al->want, al->get); + if (!rtype->raw) { int use = required(al->get, al->save); - if (use) - rdata->produce(r, rtype, use); + if (use) { + produce_resource(r, rtype, use); + } } } } - assert(avail == 0 || norders == 0); + assert(avail == 0 || nreq == 0); } typedef void(*allocate_function) (const resource_type *, struct region *, -struct allocation *); + struct allocation *); static allocate_function get_allocator(const struct resource_type *rtype) { - attrib *a = a_find(rtype->attribs, &at_resourcelimit); - - if (a != NULL) { - resource_limit *rdata = (resource_limit *)a->data.v; - if (rdata->value > 0 || rdata->limit != NULL) { - return attrib_allocation; - } + if (rtype->raw) { return leveled_allocation; } - return NULL; + return attrib_allocation; } void split_allocations(region * r) @@ -1345,7 +1216,7 @@ static void create_potion(unit * u, const potion_type * ptype, int want) case EBUILDINGREQ: ADDMSG(&u->faction->msgs, msg_feedback(u, u->thisorder, "building_needed", "building", - ptype->itype->construction->btype->_name)); + ptype->itype->construction->btype->_name)); break; case ECOMPLETE: assert(0); @@ -1367,11 +1238,11 @@ static void create_potion(unit * u, const potion_type * ptype, int want) } } -static void create_item(unit * u, const item_type * itype, int want) +void make_item(unit * u, const item_type * itype, int want) { if (itype->construction && fval(itype->rtype, RTF_LIMITED)) { #if GUARD_DISABLES_PRODUCTION == 1 - if (is_guarded(u->region, u, GUARD_PRODUCE)) { + if (is_guarded(u->region, u)) { cmistake(u, u->thisorder, 70, MSG_EVENT); return; } @@ -1410,7 +1281,7 @@ int make_cmd(unit * u, struct order *ord) s = gettoken(token, sizeof(token)); if (s) { - m = atoi((const char *)s); + m = atoip(s); sprintf(ibuf, "%d", m); if (!strcmp(ibuf, (const char *)s)) { /* a quantity was given */ @@ -1521,7 +1392,7 @@ int make_cmd(unit * u, struct order *ord) } } else if (itype != NULL) { - create_item(u, itype, m); + make_item(u, itype, m); } else { ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "error_cannotmake", "")); @@ -1572,15 +1443,15 @@ static void expandbuying(region * r, request * buyorders) return; /* Initialisation. multiplier ist der Multiplikator auf den - * Verkaufspreis. Fr max_products Produkte kauft man das Produkt zum - * einfachen Verkaufspreis, danach erhht sich der Multiplikator um 1. - * counter ist ein Zhler, der die gekauften Produkte zhlt. money - * wird fr die debug message gebraucht. */ + * Verkaufspreis. F�r max_products Produkte kauft man das Produkt zum + * einfachen Verkaufspreis, danach erh�ht sich der Multiplikator um 1. + * counter ist ein Z�hler, der die gekauften Produkte z�hlt. money + * wird f�r die debug message gebraucht. */ max_products = rpeasants(r) / TRADE_FRACTION; - /* Kauf - auch so programmiert, da er leicht erweiterbar auf mehrere - * Gter pro Monat ist. j sind die Befehle, i der Index des + /* Kauf - auch so programmiert, da� er leicht erweiterbar auf mehrere + * G�ter pro Monat ist. j sind die Befehle, i der Index des * gehandelten Produktes. */ if (max_products > 0) { unsigned int j; @@ -1590,22 +1461,22 @@ static void expandbuying(region * r, request * buyorders) for (j = 0; j != norders; j++) { int price, multi; - ltype = oa[j].type.ltype; + ltype = g_requests[j].type.ltype; trade = trades; while (trade->type != ltype) ++trade; multi = trade->multi; price = ltype->price * multi; - if (get_pooled(oa[j].unit, rsilver, GET_DEFAULT, + if (get_pooled(g_requests[j].unit, rsilver, GET_DEFAULT, price) >= price) { - unit *u = oa[j].unit; + unit *u = g_requests[j].unit; item *items; - /* litems zhlt die Gter, die verkauft wurden, u->n das Geld, das - * verdient wurde. Dies mu gemacht werden, weil der Preis stndig sinkt, + /* litems z�hlt die G�ter, die verkauft wurden, u->n das Geld, das + * verdient wurde. Dies mu� gemacht werden, weil der Preis st�ndig sinkt, * man sich also das verdiente Geld und die verkauften Produkte separat - * merken mu. */ + * merken mu�. */ attrib *a = a_find(u->attribs, &at_luxuries); if (a == NULL) a = a_add(&u->attribs, a_new(&at_luxuries)); @@ -1613,7 +1484,7 @@ static void expandbuying(region * r, request * buyorders) items = a->data.v; i_change(&items, ltype->itype, 1); a->data.v = items; - i_change(&oa[j].unit->items, ltype->itype, 1); + i_change(&g_requests[j].unit->items, ltype->itype, 1); use_pooled(u, rsilver, GET_DEFAULT, price); if (u->n < 0) u->n = 0; @@ -1622,7 +1493,7 @@ static void expandbuying(region * r, request * buyorders) rsetmoney(r, rmoney(r) + price); /* Falls mehr als max_products Bauern ein Produkt verkauft haben, steigt - * der Preis Multiplikator fr das Produkt um den Faktor 1. Der Zhler + * der Preis Multiplikator f�r das Produkt um den Faktor 1. Der Z�hler * wird wieder auf 0 gesetzt. */ if (++trade->number == max_products) { trade->number = 0; @@ -1631,7 +1502,7 @@ static void expandbuying(region * r, request * buyorders) fset(u, UFL_LONGACTION | UFL_NOTMOVING); } } - free(oa); + free(g_requests); /* Ausgabe an Einheiten */ @@ -1673,26 +1544,26 @@ static void buy(unit * u, request ** buyorders, struct order *ord) keyword_t kwd; const char *s; - if (u->ship && is_guarded(r, u, GUARD_CREWS)) { + if (u->ship && is_guarded(r, u)) { cmistake(u, ord, 69, MSG_INCOME); return; } - if (u->ship && is_guarded(r, u, GUARD_CREWS)) { + if (u->ship && is_guarded(r, u)) { cmistake(u, ord, 69, MSG_INCOME); return; } /* Im Augenblick kann man nur 1 Produkt kaufen. expandbuying ist aber - * schon dafr ausgerstet, mehrere Produkte zu kaufen. */ + * schon daf�r ausger�stet, mehrere Produkte zu kaufen. */ kwd = init_order(ord); assert(kwd == K_BUY); n = getint(); - if (n<=0) { + if (n <= 0) { cmistake(u, ord, 26, MSG_COMMERCE); return; } if (besieged(u)) { - /* Belagerte Einheiten knnen nichts kaufen. */ + /* Belagerte Einheiten k�nnen nichts kaufen. */ cmistake(u, ord, 60, MSG_COMMERCE); return; } @@ -1706,10 +1577,14 @@ static void buy(unit * u, request ** buyorders, struct order *ord) } } else { - /* ...oder in der Region mu es eine Burg geben. */ + /* ...oder in der Region mu� es eine Burg geben. */ building *b = 0; if (r->buildings) { - const struct building_type *bt_castle = bt_find("castle"); + static int cache; + static const struct building_type *bt_castle; + if (bt_changed(&cache)) { + bt_castle = bt_find("castle"); + } for (b = r->buildings; b; b = b->next) { if (b->type == bt_castle && b->size >= 2) { @@ -1723,11 +1598,11 @@ static void buy(unit * u, request ** buyorders, struct order *ord) } } - /* Ein Hndler kann nur 10 Gter pro Talentpunkt handeln. */ + /* Ein H�ndler kann nur 10 G�ter pro Talentpunkt handeln. */ k = u->number * 10 * effskill(u, SK_TRADE, 0); - /* hat der Hndler bereits gehandelt, muss die Menge der bereits - * verkauften/gekauften Gter abgezogen werden */ + /* hat der H�ndler bereits gehandelt, muss die Menge der bereits + * verkauften/gekauften G�ter abgezogen werden */ a = a_find(u->attribs, &at_trades); if (!a) { a = a_add(&u->attribs, a_new(&at_trades)); @@ -1736,7 +1611,7 @@ static void buy(unit * u, request ** buyorders, struct order *ord) k -= a->data.i; } - n = _min(n, k); + n = MIN(n, k); if (!n) { cmistake(u, ord, 102, MSG_COMMERCE); @@ -1744,7 +1619,7 @@ static void buy(unit * u, request ** buyorders, struct order *ord) } assert(n >= 0); - /* die Menge der verkauften Gter merken */ + /* die Menge der verkauften G�ter merken */ a->data.i += n; s = gettoken(token, sizeof(token)); @@ -1777,7 +1652,7 @@ static void add_income(unit * u, int type, int want, int qty) "unit region mode wanted amount", u, u->region, type, want, qty)); } -/* Steuerstze in % bei Burggre */ +/* Steuers�tze in % bei Burggr��e */ static int tax_per_size[7] = { 0, 6, 12, 18, 24, 30, 36 }; static void expandselling(region * r, request * sellorders, int limit) @@ -1795,8 +1670,14 @@ static void expandselling(region * r, request * sellorders, int limit) unit *hafenowner; static int counter[MAXLUXURIES]; static int ncounter = 0; - const struct building_type *castle_bt; + static int bt_cache; + static const struct building_type *castle_bt, *harbour_bt, *caravan_bt; + if (bt_changed(&bt_cache)) { + castle_bt = bt_find("castle"); + harbour_bt = bt_find("harbour"); + caravan_bt = bt_find("caravan"); + } if (ncounter == 0) { const luxury_type *ltype; for (ltype = luxurytypes; ltype; ltype = ltype->next) { @@ -1806,12 +1687,11 @@ static void expandselling(region * r, request * sellorders, int limit) } memset(counter, 0, sizeof(int) * ncounter); - if (!sellorders) { /* NEIN, denn Insekten knnen in || !r->buildings) */ - return; /* Smpfen und Wsten auch so handeln */ + if (!sellorders) { /* NEIN, denn Insekten k�nnen in || !r->buildings) */ + return; /* S�mpfen und W�sten auch so handeln */ } - /* Stelle Eigentmer der grten Burg fest. Bekommt Steuern aus jedem - * Verkauf. Wenn zwei Burgen gleicher Gre bekommt gar keiner etwas. */ - castle_bt = bt_find("castle"); + /* Stelle Eigent�mer der gr��ten Burg fest. Bekommt Steuern aus jedem + * Verkauf. Wenn zwei Burgen gleicher Gr��e bekommt gar keiner etwas. */ for (b = rbuildings(r); b; b = b->next) { if (b->size > maxsize && building_owner(b) != NULL && b->type == castle_bt) { @@ -1825,7 +1705,7 @@ static void expandselling(region * r, request * sellorders, int limit) } } - hafenowner = owner_buildingtyp(r, bt_find("harbour")); + hafenowner = owner_buildingtyp(r, harbour_bt); if (maxb != (building *)NULL && maxowner != (unit *)NULL) { maxeffsize = buildingeffsize(maxb, false); @@ -1834,20 +1714,20 @@ static void expandselling(region * r, request * sellorders, int limit) maxowner = (unit *)NULL; } } - /* Die Region muss genug Geld haben, um die Produkte kaufen zu knnen. */ + /* Die Region muss genug Geld haben, um die Produkte kaufen zu k�nnen. */ money = rmoney(r); - /* max_products sind 1/100 der Bevlkerung, falls soviele Produkte + /* max_products sind 1/100 der Bev�lkerung, falls soviele Produkte * verkauft werden - counter[] - sinkt die Nachfrage um 1 Punkt. - * multiplier speichert r->demand fr die debug message ab. */ + * multiplier speichert r->demand f�r die debug message ab. */ max_products = rpeasants(r) / TRADE_FRACTION; if (max_products <= 0) return; if (r->terrain == newterrain(T_DESERT) - && buildingtype_exists(r, bt_find("caravan"), true)) { + && buildingtype_exists(r, caravan_bt, true)) { max_products = rpeasants(r) * 2 / TRADE_FRACTION; } /* Verkauf: so programmiert, dass er leicht auf mehrere Gueter pro @@ -1859,12 +1739,12 @@ static void expandselling(region * r, request * sellorders, int limit) for (j = 0; j != norders; j++) { const luxury_type *search = NULL; - const luxury_type *ltype = oa[j].type.ltype; + const luxury_type *ltype = g_requests[j].type.ltype; int multi = r_demand(r, ltype); int i; int use = 0; for (i = 0, search = luxurytypes; search != ltype; search = search->next) { - // TODO: this is slow and lame! + /* TODO: this is slow and lame! */ ++i; } if (counter[i] >= limit) @@ -1876,7 +1756,7 @@ static void expandselling(region * r, request * sellorders, int limit) if (money >= price) { int abgezogenhafen = 0; int abgezogensteuer = 0; - unit *u = oa[j].unit; + unit *u = g_requests[j].unit; item *itm; attrib *a = a_find(u->attribs, &at_luxuries); if (a == NULL) @@ -1908,11 +1788,11 @@ static void expandselling(region * r, request * sellorders, int limit) change_money(u, price); fset(u, UFL_LONGACTION | UFL_NOTMOVING); - /* r->money -= price; --- dies wird eben nicht ausgefhrt, denn die - * Produkte knnen auch als Steuern eingetrieben werden. In der Region - * wurden Silberstcke gegen Luxusgter des selben Wertes eingetauscht! + /* r->money -= price; --- dies wird eben nicht ausgef�hrt, denn die + * Produkte k�nnen auch als Steuern eingetrieben werden. In der Region + * wurden Silberst�cke gegen Luxusg�ter des selben Wertes eingetauscht! * Falls mehr als max_products Kunden ein Produkt gekauft haben, sinkt - * die Nachfrage fr das Produkt um 1. Der Zhler wird wieder auf 0 + * die Nachfrage f�r das Produkt um 1. Der Z�hler wird wieder auf 0 * gesetzt. */ if (++counter[i] > max_products) { @@ -1924,12 +1804,12 @@ static void expandselling(region * r, request * sellorders, int limit) } } if (use > 0) { - use_pooled(oa[j].unit, ltype->itype->rtype, GET_DEFAULT, use); + use_pooled(g_requests[j].unit, ltype->itype->rtype, GET_DEFAULT, use); } } - free(oa); + free(g_requests); - /* Steuern. Hier werden die Steuern dem Besitzer der grten Burg gegeben. */ + /* Steuern. Hier werden die Steuern dem Besitzer der gr��ten Burg gegeben. */ if (maxowner) { if (taxcollected > 0) { change_money(maxowner, (int)taxcollected); @@ -1974,12 +1854,19 @@ static bool sell(unit * u, request ** sellorders, struct order *ord) region *r = u->region; const char *s; keyword_t kwd; + static int bt_cache; + static const struct building_type *castle_bt, *caravan_bt; - if (u->ship && is_guarded(r, u, GUARD_CREWS)) { + if (bt_changed(&bt_cache)) { + castle_bt = bt_find("castle"); + caravan_bt = bt_find("caravan"); + } + + if (u->ship && is_guarded(r, u)) { cmistake(u, ord, 69, MSG_INCOME); return false; } - /* sellorders sind KEIN array, weil fr alle items DIE SELBE resource + /* sellorders sind KEIN array, weil f�r alle items DIE SELBE resource * (das geld der region) aufgebraucht wird. */ kwd = init_order(ord); @@ -1990,7 +1877,7 @@ static bool sell(unit * u, request ** sellorders, struct order *ord) unlimited = false; n = rpeasants(r) / TRADE_FRACTION; if (r->terrain == newterrain(T_DESERT) - && buildingtype_exists(r, bt_find("caravan"), true)) + && buildingtype_exists(r, caravan_bt, true)) n *= 2; if (n == 0) { cmistake(u, ord, 303, MSG_COMMERCE); @@ -1998,19 +1885,19 @@ static bool sell(unit * u, request ** sellorders, struct order *ord) } } else { - n = s ? atoi(s) : 0; + n = s ? atoip(s) : 0; if (n == 0) { cmistake(u, ord, 27, MSG_COMMERCE); return false; } } - /* Belagerte Einheiten knnen nichts verkaufen. */ + /* Belagerte Einheiten k�nnen nichts verkaufen. */ if (besieged(u)) { ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "error60", "")); return false; } - /* In der Region mu es eine Burg geben. */ + /* In der Region mu� es eine Burg geben. */ if (u_race(u) == get_race(RC_INSECT)) { if (r->terrain != newterrain(T_SWAMP) && r->terrain != newterrain(T_DESERT) @@ -2020,12 +1907,11 @@ static bool sell(unit * u, request ** sellorders, struct order *ord) } } else { - /* ...oder in der Region mu es eine Burg geben. */ + /* ...oder in der Region mu� es eine Burg geben. */ building *b = 0; if (r->buildings) { - const struct building_type *bt_castle = bt_find("castle"); for (b = r->buildings; b; b = b->next) { - if (b->type == bt_castle && b->size >= 2) break; + if (b->type == castle_bt && b->size >= 2) break; } } if (!b) { @@ -2034,9 +1920,9 @@ static bool sell(unit * u, request ** sellorders, struct order *ord) } } - /* Ein Hndler kann nur 10 Gter pro Talentpunkt verkaufen. */ + /* Ein H�ndler kann nur 10 G�ter pro Talentpunkt verkaufen. */ - n = _min(n, u->number * 10 * effskill(u, SK_TRADE, 0)); + n = MIN(n, u->number * 10 * effskill(u, SK_TRADE, 0)); if (!n) { cmistake(u, ord, 54, MSG_COMMERCE); @@ -2045,7 +1931,7 @@ static bool sell(unit * u, request ** sellorders, struct order *ord) s = gettoken(token, sizeof(token)); itype = s ? finditemtype(s, u->faction->locale) : 0; ltype = itype ? resource2luxury(itype->rtype) : 0; - if (ltype == NULL) { + if (ltype == NULL || itype == NULL) { cmistake(u, ord, 126, MSG_COMMERCE); return false; } @@ -2060,33 +1946,33 @@ static bool sell(unit * u, request ** sellorders, struct order *ord) } available = get_pooled(u, itype->rtype, GET_DEFAULT, INT_MAX); - /* Wenn andere Einheiten das selbe verkaufen, mu ihr Zeug abgezogen + /* Wenn andere Einheiten das selbe verkaufen, mu� ihr Zeug abgezogen * werden damit es nicht zweimal verkauft wird: */ for (o = *sellorders; o; o = o->next) { if (o->type.ltype == ltype && o->unit->faction == u->faction) { int fpool = o->qty - get_pooled(o->unit, itype->rtype, GET_RESERVE, INT_MAX); - available -= _max(0, fpool); + available -= MAX(0, fpool); } } - n = _min(n, available); + n = MIN(n, available); if (n <= 0) { cmistake(u, ord, 264, MSG_COMMERCE); return false; } /* Hier wird request->type verwendet, weil die obere limit durch - * das silber gegeben wird (region->money), welches fr alle + * das silber gegeben wird (region->money), welches f�r alle * (!) produkte als summe gilt, als nicht wie bei der - * produktion, wo fr jedes produkt einzeln eine obere limite + * produktion, wo f�r jedes produkt einzeln eine obere limite * existiert, so dass man arrays von orders machen kann. */ - /* Ein Hndler kann nur 10 Gter pro Talentpunkt handeln. */ + /* Ein H�ndler kann nur 10 G�ter pro Talentpunkt handeln. */ k = u->number * 10 * effskill(u, SK_TRADE, 0); - /* hat der Hndler bereits gehandelt, muss die Menge der bereits - * verkauften/gekauften Gter abgezogen werden */ + /* hat der H�ndler bereits gehandelt, muss die Menge der bereits + * verkauften/gekauften G�ter abgezogen werden */ a = a_find(u->attribs, &at_trades); if (!a) { a = a_add(&u->attribs, a_new(&at_trades)); @@ -2095,9 +1981,9 @@ static bool sell(unit * u, request ** sellorders, struct order *ord) k -= a->data.i; } - n = _min(n, k); + n = MIN(n, k); assert(n >= 0); - /* die Menge der verkauften Gter merken */ + /* die Menge der verkauften G�ter merken */ a->data.i += n; o = (request *)calloc(1, sizeof(request)); o->unit = u; @@ -2121,14 +2007,14 @@ static void expandstealing(region * r, request * stealorders) expandorders(r, stealorders); if (!norders) return; - /* Fr jede unit in der Region wird Geld geklaut, wenn sie Opfer eines - * Beklauen-Orders ist. Jedes Opfer mu einzeln behandelt werden. + /* F�r jede unit in der Region wird Geld geklaut, wenn sie Opfer eines + * Beklauen-Orders ist. Jedes Opfer mu� einzeln behandelt werden. * * u ist die beklaute unit. oa.unit ist die klauende unit. */ - for (j = 0; j != norders && oa[j].unit->n <= oa[j].unit->wants; j++) { - unit *u = findunitg(oa[j].no, r); + for (j = 0; j != norders && g_requests[j].unit->n <= g_requests[j].unit->wants; j++) { + unit *u = findunitg(g_requests[j].no, r); int n = 0; if (u && u->region == r) { n = get_pooled(u, rsilver, GET_ALL, INT_MAX); @@ -2152,17 +2038,17 @@ static void expandstealing(region * r, request * stealorders) n = 10; } if (n > 0) { - n = _min(n, oa[j].unit->wants); + n = MIN(n, g_requests[j].unit->wants); use_pooled(u, rsilver, GET_ALL, n); - oa[j].unit->n = n; - change_money(oa[j].unit, n); + g_requests[j].unit->n = n; + change_money(g_requests[j].unit, n); ADDMSG(&u->faction->msgs, msg_message("stealeffect", "unit region amount", u, u->region, n)); } - add_income(oa[j].unit, IC_STEAL, oa[j].unit->wants, oa[j].unit->n); - fset(oa[j].unit, UFL_LONGACTION | UFL_NOTMOVING); + add_income(g_requests[j].unit, IC_STEAL, g_requests[j].unit->wants, g_requests[j].unit->n); + fset(g_requests[j].unit, UFL_LONGACTION | UFL_NOTMOVING); } - free(oa); + free(g_requests); } /* ------------------------------------------------------------- */ @@ -2177,38 +2063,38 @@ static void plant(unit * u, int raw) if (!fval(r->terrain, LAND_REGION)) { return; } - if (rherbtype(r) == NULL) { + itype = rherbtype(r); + if (itype == NULL) { cmistake(u, u->thisorder, 108, MSG_PRODUCE); return; } - /* Skill prfen */ + /* Skill pr�fen */ skill = effskill(u, SK_HERBALISM, 0); - itype = rherbtype(r); if (skill < 6) { ADDMSG(&u->faction->msgs, msg_feedback(u, u->thisorder, "plant_skills", - "skill minskill product", SK_HERBALISM, 6, itype->rtype, 1)); + "skill minskill product", SK_HERBALISM, 6, itype->rtype, 1)); return; } - /* Wasser des Lebens prfen */ + /* Wasser des Lebens pr�fen */ if (get_pooled(u, rt_water, GET_DEFAULT, 1) == 0) { ADDMSG(&u->faction->msgs, msg_feedback(u, u->thisorder, "resource_missing", "missing", rt_water)); return; } n = get_pooled(u, itype->rtype, GET_DEFAULT, skill * u->number); - /* Kruter prfen */ + /* Kr�uter pr�fen */ if (n == 0) { ADDMSG(&u->faction->msgs, msg_feedback(u, u->thisorder, "resource_missing", "missing", - itype->rtype)); + itype->rtype)); return; } - n = _min(skill * u->number, n); - n = _min(raw, n); - /* Fr jedes Kraut Talent*10% Erfolgschance. */ + n = MIN(skill * u->number, n); + n = MIN(raw, n); + /* F�r jedes Kraut Talent*10% Erfolgschance. */ for (i = n; i > 0; i--) { if (rng_int() % 10 < skill) planted++; @@ -2218,7 +2104,7 @@ static void plant(unit * u, int raw) /* Alles ok. Abziehen. */ use_pooled(u, rt_water, GET_DEFAULT, 1); use_pooled(u, itype->rtype, GET_DEFAULT, n); - rsetherbs(r, (short) (rherbs(r) + planted)); + rsetherbs(r, (short)(rherbs(r) + planted)); ADDMSG(&u->faction->msgs, msg_message("plant", "unit region amount herb", u, r, planted, itype->rtype)); } @@ -2233,35 +2119,35 @@ static void planttrees(unit * u, int raw) return; } - /* Mallornbume kann man nur in Mallornregionen zchten */ - rtype = get_resourcetype(fval(r, RF_MALLORN) ? R_MALLORNSEED : R_SEED); + /* Mallornb�ume kann man nur in Mallornregionen z�chten */ + rtype = get_resourcetype(fval(r, RF_MALLORN) ? R_MALLORN_SEED : R_SEED); - /* Skill prfen */ + /* Skill pr�fen */ skill = effskill(u, SK_HERBALISM, 0); if (skill < 6) { ADDMSG(&u->faction->msgs, msg_feedback(u, u->thisorder, "plant_skills", - "skill minskill product", SK_HERBALISM, 6, rtype, 1)); + "skill minskill product", SK_HERBALISM, 6, rtype, 1)); return; } if (fval(r, RF_MALLORN) && skill < 7) { ADDMSG(&u->faction->msgs, msg_feedback(u, u->thisorder, "plant_skills", - "skill minskill product", SK_HERBALISM, 7, rtype, 1)); + "skill minskill product", SK_HERBALISM, 7, rtype, 1)); return; } /* wenn eine Anzahl angegeben wurde, nur soviel verbrauchen */ - raw = _min(raw, skill * u->number); + raw = MIN(raw, skill * u->number); n = get_pooled(u, rtype, GET_DEFAULT, raw); if (n == 0) { ADDMSG(&u->faction->msgs, msg_feedback(u, u->thisorder, "resource_missing", "missing", rtype)); return; } - n = _min(raw, n); + n = MIN(raw, n); - /* Fr jeden Samen Talent*10% Erfolgschance. */ + /* F�r jeden Samen Talent*10% Erfolgschance. */ for (i = n; i > 0; i--) { if (rng_int() % 10 < skill) planted++; @@ -2276,7 +2162,7 @@ static void planttrees(unit * u, int raw) "unit region amount herb", u, r, planted, rtype)); } -/* zchte bume */ +/* z�chte b�ume */ static void breedtrees(unit * u, int raw) { int n, i, skill, planted = 0; @@ -2284,11 +2170,11 @@ static void breedtrees(unit * u, int raw) int current_season; region *r = u->region; gamedate date; - + get_gamedate(turn, &date); current_season = date.season; - /* Bume zchten geht nur im Frhling */ + /* B�ume z�chten geht nur im Fr�hling */ if (current_season != SEASON_SPRING) { planttrees(u, raw); return; @@ -2298,10 +2184,10 @@ static void breedtrees(unit * u, int raw) return; } - /* Mallornbume kann man nur in Mallornregionen zchten */ - rtype = get_resourcetype(fval(r, RF_MALLORN) ? R_MALLORNSEED : R_SEED); + /* Mallornb�ume kann man nur in Mallornregionen z�chten */ + rtype = get_resourcetype(fval(r, RF_MALLORN) ? R_MALLORN_SEED : R_SEED); - /* Skill prfen */ + /* Skill pr�fen */ skill = effskill(u, SK_HERBALISM, 0); if (skill < 12) { planttrees(u, raw); @@ -2309,17 +2195,17 @@ static void breedtrees(unit * u, int raw) } /* wenn eine Anzahl angegeben wurde, nur soviel verbrauchen */ - raw = _min(skill * u->number, raw); + raw = MIN(skill * u->number, raw); n = get_pooled(u, rtype, GET_DEFAULT, raw); - /* Samen prfen */ + /* Samen pr�fen */ if (n == 0) { ADDMSG(&u->faction->msgs, msg_feedback(u, u->thisorder, "resource_missing", "missing", rtype)); return; } - n = _min(raw, n); + n = MIN(raw, n); - /* Fr jeden Samen Talent*5% Erfolgschance. */ + /* F�r jeden Samen Talent*5% Erfolgschance. */ for (i = n; i > 0; i--) { if (rng_int() % 100 < skill * 5) planted++; @@ -2334,15 +2220,21 @@ static void breedtrees(unit * u, int raw) "unit region amount herb", u, r, planted, rtype)); } -/* zchte pferde */ +/* z�chte pferde */ static void breedhorses(unit * u) { int n, c, breed = 0; const struct resource_type *rhorse = get_resourcetype(R_HORSE); int horses, effsk; + static int bt_cache; + static const struct building_type *stables_bt; + + if (bt_changed(&bt_cache)) { + stables_bt = bt_find("stables"); + } assert(rhorse && rhorse->itype); - if (!active_building(u, bt_find("stables"))) { + if (!active_building(u, stables_bt)) { cmistake(u, u->thisorder, 122, MSG_PRODUCE); return; } @@ -2353,7 +2245,7 @@ static void breedhorses(unit * u) } effsk = effskill(u, SK_HORSE_TRAINING, 0); n = u->number * effsk; - n = _min(n, horses); + n = MIN(n, horses); for (c = 0; c < n; c++) { if (rng_int() % 100 < effsk) { @@ -2381,11 +2273,11 @@ static void breed_cmd(unit * u, struct order *ord) return; } - /* zchte [] */ + /* z�chte [] */ (void)init_order(ord); s = gettoken(token, sizeof(token)); - m = s ? atoi((const char *)s) : 0; + m = s ? atoip(s) : 0; if (m != 0) { /* first came a want-paramter */ s = gettoken(token, sizeof(token)); @@ -2411,7 +2303,7 @@ static void breed_cmd(unit * u, struct order *ord) default: if (p != P_ANY) { rtype = findresourcetype(s, u->faction->locale); - if (rtype == get_resourcetype(R_SEED) || rtype == get_resourcetype(R_MALLORNSEED)) { + if (rtype == get_resourcetype(R_SEED) || rtype == get_resourcetype(R_MALLORN_SEED)) { breedtrees(u, m); break; } @@ -2536,15 +2428,15 @@ static void steal_cmd(unit * u, struct order *ord, request ** stealorders) return; } id = read_unitid(u->faction, r); - if (id>0) { + if (id > 0) { u2 = findunitr(r, id); } if (u2 && u2->region == u->region) { f = u2->faction; } else { - // TODO: is this really necessary? it's the only time we use faction.c/deadhash - // it allows stealing from a unit in a dead faction, but why? + /* TODO: is this really necessary? it's the only time we use faction.c/deadhash + * it allows stealing from a unit in a dead faction, but why? */ f = dfindhash(id); } @@ -2602,7 +2494,7 @@ static void steal_cmd(unit * u, struct order *ord, request ** stealorders) } } - i = _min(u->number, i_get(u->items, rring->itype)); + i = MIN(u->number, i_get(u->items, rring->itype)); if (i > 0) { n *= STEALINCOME * (u->number + i * (roqf_factor() - 1)); } @@ -2624,7 +2516,7 @@ static void steal_cmd(unit * u, struct order *ord, request ** stealorders) /* Nur soviel PRODUCEEXP wie auch tatsaechlich gemacht wurde */ - produceexp(u, SK_STEALTH, _min(n, u->number)); + produceexp(u, SK_STEALTH, MIN(n, u->number)); } /* ------------------------------------------------------------- */ @@ -2647,8 +2539,8 @@ static void expandentertainment(region * r) m -= u->n; entertaining -= o->qty; - /* Nur soviel PRODUCEEXP wie auch tatschlich gemacht wurde */ - produceexp(u, SK_ENTERTAINMENT, _min(u->n, u->number)); + /* Nur soviel PRODUCEEXP wie auch tats�chlich gemacht wurde */ + produceexp(u, SK_ENTERTAINMENT, MIN(u->n, u->number)); add_income(u, IC_ENTERTAIN, o->qty, u->n); fset(u, UFL_LONGACTION | UFL_NOTMOVING); } @@ -2685,7 +2577,7 @@ void entertain_cmd(unit * u, struct order *ord) cmistake(u, ord, 60, MSG_INCOME); return; } - if (u->ship && is_guarded(r, u, GUARD_CREWS)) { + if (u->ship && is_guarded(r, u)) { cmistake(u, ord, 69, MSG_INCOME); return; } @@ -2699,7 +2591,7 @@ void entertain_cmd(unit * u, struct order *ord) max_e = getuint(); if (max_e != 0) { - u->wants = _min(u->wants, max_e); + u->wants = MIN(u->wants, max_e); } o = nextentertainer++; o->unit = u; @@ -2731,8 +2623,9 @@ expandwork(region * r, request * work_begin, request * work_end, int maxwork) if (jobs >= working) workers = u->number; else { + int r = (u->number * jobs) % working; workers = u->number * jobs / working; - if (rng_int() % working < (u->number * jobs) % working) + if (r > 0 && rng_int() % working < r) workers++; } @@ -2759,7 +2652,7 @@ expandwork(region * r, request * work_begin, request * work_end, int maxwork) if (blessedharvest_ct) { int happy = (int)curse_geteffect(get_curse(r->attribs, blessedharvest_ct)); - happy = _min(happy, jobs); + happy = MIN(happy, jobs); earnings += happy; } } @@ -2782,7 +2675,7 @@ static int do_work(unit * u, order * ord, request * o) cmistake(u, ord, 60, MSG_INCOME); return -1; } - if (u->ship && is_guarded(r, u, GUARD_CREWS)) { + if (u->ship && is_guarded(r, u)) { if (ord) cmistake(u, ord, 69, MSG_INCOME); return -1; @@ -2805,7 +2698,7 @@ static void expandloot(region * r, request * lootorders) { unit *u; unsigned int i; - int looted = 0; + int m, looted = 0; int startmoney = rmoney(r); expandorders(r, lootorders); @@ -2813,18 +2706,18 @@ static void expandloot(region * r, request * lootorders) return; for (i = 0; i != norders && startmoney > looted + TAXFRACTION * 2; i++) { - change_money(oa[i].unit, TAXFRACTION); - oa[i].unit->n += TAXFRACTION; + change_money(g_requests[i].unit, TAXFRACTION); + g_requests[i].unit->n += TAXFRACTION; /*Looting destroys double the money*/ looted += TAXFRACTION * 2; } rsetmoney(r, startmoney - looted); - free(oa); + free(g_requests); /* Lowering morale by 1 depending on the looted money (+20%) */ - if (rng_int() % 100 < 20 + (looted * 80) / startmoney) { - int m = region_get_morale(r); - if (m) { + m = region_get_morale(r); + if (m && startmoney>0) { + if (rng_int() % 100 < 20 + (looted * 80) / startmoney) { /*Nur Moral -1, turns is not changed, so the first time nothing happens if the morale is good*/ region_set_morale(r, m - 1, -1); } @@ -2848,11 +2741,11 @@ void expandtax(region * r, request * taxorders) return; for (i = 0; i != norders && rmoney(r) > TAXFRACTION; i++) { - change_money(oa[i].unit, TAXFRACTION); - oa[i].unit->n += TAXFRACTION; + change_money(g_requests[i].unit, TAXFRACTION); + g_requests[i].unit->n += TAXFRACTION; rsetmoney(r, rmoney(r) - TAXFRACTION); } - free(oa); + free(g_requests); for (u = r->units; u; u = u->next) { if (u->n >= 0) { @@ -2913,13 +2806,13 @@ void tax_cmd(unit * u, struct order *ord, request ** taxorders) max = INT_MAX; } if (!playerrace(u_race(u))) { - u->wants = _min(income(u), max); + u->wants = MIN(income(u), max); } else { - u->wants = _min(n * effskill(u, SK_TAXING, 0) * taxperlevel, max); + u->wants = MIN(n * effskill(u, SK_TAXING, 0) * taxperlevel, max); } - u2 = is_guarded(r, u, GUARD_TAX); + u2 = is_guarded(r, u); if (u2) { ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "region_guarded", "guard", u2)); @@ -2974,7 +2867,7 @@ void loot_cmd(unit * u, struct order *ord, request ** lootorders) return; } - u2 = is_guarded(r, u, GUARD_TAX); + u2 = is_guarded(r, u); if (u2) { ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "region_guarded", "guard", u2)); @@ -2987,12 +2880,12 @@ void loot_cmd(unit * u, struct order *ord, request ** lootorders) max = INT_MAX; } if (!playerrace(u_race(u))) { - u->wants = _min(income(u), max); + u->wants = MIN(income(u), max); } else { /* For player start with 20 Silver +10 every 5 level of close combat skill*/ - int skbonus = (_max(effskill(u, SK_MELEE, 0), effskill(u, SK_SPEAR, 0)) * 2 / 10) + 2; - u->wants = _min(n * skbonus * 10, max); + int skbonus = (MAX(effskill(u, SK_MELEE, 0), effskill(u, SK_SPEAR, 0)) * 2 / 10) + 2; + u->wants = MIN(n * skbonus * 10, max); } o = (request *)calloc(1, sizeof(request)); @@ -3019,7 +2912,7 @@ void auto_work(region * r) } } if (nextworker != workers) { - expandwork(r, workers, nextworker, maxworkingpeasants(r)); + expandwork(r, workers, nextworker, region_maxworkers(r)); } } @@ -3050,9 +2943,10 @@ static void peasant_taxes(region * r) maxsize = buildingeffsize(b, false); if (maxsize > 0) { double taxfactor = money * b->type->taxes(b, maxsize); - double morale = money * region_get_morale(r) * MORALE_TAX_FACTOR; - if (taxfactor > morale) + double morale = MORALE_TAX_FACTOR * money * region_get_morale(r); + if (taxfactor > morale) { taxfactor = morale; + } if (taxfactor > 0) { int taxmoney = (int)taxfactor; change_money(u, taxmoney); @@ -3079,6 +2973,19 @@ void produce(struct region *r) unit *u; bool limited = true; request *nextworker = workers; + static int bt_cache; + static const struct building_type *caravan_bt; + static int rc_cache; + static const race *rc_spell, *rc_insect, *rc_aquarian; + + if (bt_changed(&bt_cache)) { + caravan_bt = bt_find("caravan"); + } + if (rc_changed(&rc_cache)) { + rc_spell = get_race(RC_SPELL); + rc_insect = get_race(RC_INSECT); + rc_aquarian = get_race(RC_AQUARIAN); + } assert(r); /* das sind alles befehle, die 30 tage brauchen, und die in thisorder @@ -3113,10 +3020,10 @@ void produce(struct region *r) bool trader = false; keyword_t todo; - if (u_race(u) == get_race(RC_SPELL) || fval(u, UFL_LONGACTION)) + if (u_race(u) == rc_spell || fval(u, UFL_LONGACTION)) continue; - if (u_race(u) == get_race(RC_INSECT) && r_insectstalled(r) && + if (u_race(u) == rc_insect && r_insectstalled(r) && !is_cursed(u->attribs, C_KAELTESCHUTZ, 0)) continue; @@ -3153,7 +3060,7 @@ void produce(struct region *r) if (todo == NOKEYWORD) continue; - if (fval(r->terrain, SEA_REGION) && u_race(u) != get_race(RC_AQUARIAN) + if (fval(r->terrain, SEA_REGION) && u_race(u) != rc_aquarian && !(u_race(u)->flags & RCF_SWIM) && todo != K_STEAL && todo != K_SPY && todo != K_SABOTAGE) continue; @@ -3205,12 +3112,12 @@ void produce(struct region *r) /* Entertainment (expandentertainment) und Besteuerung (expandtax) vor den * Befehlen, die den Bauern mehr Geld geben, damit man aus den Zahlen der - * letzten Runde berechnen kann, wieviel die Bauern fr Unterhaltung + * letzten Runde berechnen kann, wieviel die Bauern f�r Unterhaltung * auszugeben bereit sind. */ if (entertaining) expandentertainment(r); if (!rule_autowork()) { - expandwork(r, workers, nextworker, maxworkingpeasants(r)); + expandwork(r, workers, nextworker, region_maxworkers(r)); } if (taxorders) expandtax(r, taxorders); @@ -3220,7 +3127,7 @@ void produce(struct region *r) /* An erster Stelle Kaufen (expandbuying), die Bauern so Geld bekommen, um * nachher zu beim Verkaufen (expandselling) den Spielern abkaufen zu - * knnen. */ + * k�nnen. */ if (buyorders) expandbuying(r, buyorders); @@ -3228,7 +3135,7 @@ void produce(struct region *r) if (sellorders) { int limit = rpeasants(r) / TRADE_FRACTION; if (r->terrain == newterrain(T_DESERT) - && buildingtype_exists(r, bt_find("caravan"), true)) + && buildingtype_exists(r, caravan_bt, true)) limit *= 2; expandselling(r, sellorders, limited ? limit : INT_MAX); } diff --git a/src/economy.h b/src/economy.h index b6c8002c9..7b0eed8c9 100644 --- a/src/economy.h +++ b/src/economy.h @@ -48,6 +48,7 @@ extern "C" { struct request; int income(const struct unit *u); + int entertainmoney(const struct region *r); void economics(struct region *r); void produce(struct region *r); @@ -55,13 +56,14 @@ extern "C" { enum { IC_WORK, IC_ENTERTAIN, IC_TAX, IC_TRADE, IC_TRADETAX, IC_STEAL, IC_MAGIC, IC_LOOT }; void maintain_buildings(struct region *r); + void make_item(struct unit * u, const struct item_type * itype, int want); int make_cmd(struct unit *u, struct order *ord); void split_allocations(struct region *r); int give_control_cmd(struct unit *u, struct order *ord); void give_control(struct unit * u, struct unit * u2); void tax_cmd(struct unit * u, struct order *ord, struct request ** taxorders); void expandtax(struct region * r, struct request * taxorders); - + void add_recruits(struct unit * u, int number, int wanted); struct message * check_steal(const struct unit * u, struct order *ord); #ifdef __cplusplus diff --git a/src/economy.test.c b/src/economy.test.c index ce09aae43..7163da7e1 100644 --- a/src/economy.test.c +++ b/src/economy.test.c @@ -11,10 +11,12 @@ #include #include #include +#include #include #include #include +#include #include #include @@ -126,12 +128,9 @@ static struct unit *create_recruiter(void) { unit *u; const resource_type* rtype; - test_cleanup(); - test_create_world(); - - r=findregion(0, 0); + r=test_create_region(0, 0, NULL); rsetpeasants(r, 999); - f = test_create_faction(rc_find("human")); + f = test_create_faction(NULL); u = test_create_unit(f, r); rtype = get_resourcetype(R_SILVER); change_resource(u, rtype, 1000); @@ -141,9 +140,10 @@ static struct unit *create_recruiter(void) { static void test_heroes_dont_recruit(CuTest * tc) { unit *u; - test_cleanup(); - + test_setup(); + init_resources(); u = create_recruiter(); + fset(u, UFL_HERO); unit_addorder(u, create_order(K_RECRUIT, default_locale, "1")); @@ -158,8 +158,8 @@ static void test_heroes_dont_recruit(CuTest * tc) { static void test_normals_recruit(CuTest * tc) { unit *u; - test_cleanup(); - + test_setup(); + init_resources(); u = create_recruiter(); unit_addorder(u, create_order(K_RECRUIT, default_locale, "1")); @@ -191,11 +191,11 @@ static void test_tax_cmd(CuTest *tc) { request *taxorders = 0; - test_cleanup(); + test_setup(); + init_resources(); config_set("taxing.perlevel", "20"); - test_create_world(); f = test_create_faction(NULL); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); assert(r && f); u = test_create_unit(f, r); @@ -208,8 +208,8 @@ static void test_tax_cmd(CuTest *tc) { silver = get_resourcetype(R_SILVER)->itype; - sword = it_get_or_create(rt_get_or_create("sword")); - new_weapontype(sword, 0, 0.0, NULL, 0, 0, 0, SK_MELEE, 1); + sword = test_create_itemtype("sword"); + new_weapontype(sword, 0, frac_zero, NULL, 0, 0, 0, SK_MELEE, 1); i_change(&u->items, sword, 1); set_level(u, SK_MELEE, 1); @@ -241,11 +241,15 @@ static void test_tax_cmd(CuTest *tc) { test_cleanup(); } +/** + * see https://bugs.eressea.de/view.php?id=2234 + */ static void test_maintain_buildings(CuTest *tc) { region *r; building *b; building_type *btype; unit *u; + faction *f; maintenance *req; item_type *itype; @@ -253,39 +257,164 @@ static void test_maintain_buildings(CuTest *tc) { btype = test_create_buildingtype("Hort"); btype->maxsize = 10; r = test_create_region(0, 0, 0); - u = test_create_unit(test_create_faction(0), r); + f = test_create_faction(0); + u = test_create_unit(f, r); b = test_create_building(r, btype); itype = test_create_itemtype("money"); b->size = btype->maxsize; u_set_building(u, b); - // this building has no upkeep, it just works: + /* this building has no upkeep, it just works: */ b->flags = 0; maintain_buildings(r); CuAssertIntEquals(tc, BLD_MAINTAINED, fval(b, BLD_MAINTAINED)); + CuAssertPtrEquals(tc, 0, f->msgs); + CuAssertPtrEquals(tc, 0, r->msgs); req = calloc(2, sizeof(maintenance)); req[0].number = 100; req[0].rtype = itype->rtype; btype->maintenance = req; - // we cannot afford to pay: + /* we cannot afford to pay: */ b->flags = 0; maintain_buildings(r); CuAssertIntEquals(tc, 0, fval(b, BLD_MAINTAINED)); - - // we can afford to pay: + CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "maintenancefail")); + CuAssertPtrNotNull(tc, test_find_messagetype(r->msgs, "maintenance_nowork")); + test_clear_messagelist(&f->msgs); + test_clear_messagelist(&r->msgs); + + /* we can afford to pay: */ i_change(&u->items, itype, 100); b->flags = 0; maintain_buildings(r); CuAssertIntEquals(tc, BLD_MAINTAINED, fval(b, BLD_MAINTAINED)); CuAssertIntEquals(tc, 0, i_get(u->items, itype)); + CuAssertPtrEquals(tc, 0, r->msgs); + CuAssertPtrEquals(tc, 0, test_find_messagetype(f->msgs, "maintenance_nowork")); + CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "maintenance")); + test_clear_messagelist(&f->msgs); - // this building has no owner, it doesn't work: + /* this building has no owner, it doesn't work: */ u_set_building(u, NULL); b->flags = 0; maintain_buildings(r); CuAssertIntEquals(tc, 0, fval(b, BLD_MAINTAINED)); + CuAssertPtrEquals(tc, 0, f->msgs); + CuAssertPtrNotNull(tc, test_find_messagetype(r->msgs, "maintenance_noowner")); + test_clear_messagelist(&r->msgs); + + test_cleanup(); +} + +static void test_recruit(CuTest *tc) { + unit *u; + faction *f; + + test_setup(); + f = test_create_faction(0); + u = test_create_unit(f, test_create_region(0, 0, 0)); + CuAssertIntEquals(tc, 1, u->number); + add_recruits(u, 1, 1); + CuAssertIntEquals(tc, 2, u->number); + CuAssertPtrEquals(tc, u, f->units); + CuAssertPtrEquals(tc, NULL, u->nextF); + CuAssertPtrEquals(tc, NULL, u->prevF); + CuAssertPtrEquals(tc, NULL, test_find_messagetype(f->msgs, "recruit")); + add_recruits(u, 1, 2); + CuAssertIntEquals(tc, 3, u->number); + CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "recruit")); + test_cleanup(); +} + +static void test_income(CuTest *tc) +{ + race *rc; + unit *u; + test_setup(); + rc = test_create_race("nerd"); + u = test_create_unit(test_create_faction(rc), test_create_region(0, 0, 0)); + CuAssertIntEquals(tc, 20, income(u)); + u->number = 5; + CuAssertIntEquals(tc, 100, income(u)); + test_cleanup(); +} + +static void test_make_item(CuTest *tc) { + unit *u; + struct item_type *itype; + const struct resource_type *rt_silver; + resource_type *rtype; + double d = 0.6; + + test_setup(); + init_resources(); + + /* make items from other items (turn silver to stone) */ + rt_silver = get_resourcetype(R_SILVER); + itype = test_create_itemtype("stone"); + rtype = itype->rtype; + u = test_create_unit(test_create_faction(0), test_create_region(0,0,0)); + make_item(u, itype, 1); + CuAssertPtrNotNull(tc, test_find_messagetype(u->faction->msgs, "error_cannotmake")); + CuAssertIntEquals(tc, 0, get_item(u, itype)); + test_clear_messages(u->faction); + itype->construction = calloc(1, sizeof(construction)); + itype->construction->skill = SK_ALCHEMY; + itype->construction->minskill = 1; + itype->construction->maxsize = 1; + itype->construction->reqsize = 1; + itype->construction->materials = calloc(2, sizeof(requirement)); + itype->construction->materials[0].rtype = rt_silver; + itype->construction->materials[0].number = 1; + set_level(u, SK_ALCHEMY, 1); + set_item(u, rt_silver->itype, 1); + make_item(u, itype, 1); + CuAssertIntEquals(tc, 1, get_item(u, itype)); + CuAssertIntEquals(tc, 0, get_item(u, rt_silver->itype)); + + /* make level-based raw materials, no materials used in construction */ + free(itype->construction->materials); + itype->construction->materials = 0; + rtype->flags |= RTF_LIMITED; + rmt_create(rtype); + add_resource(u->region, 1, 300, 150, rtype); + u->region->resources->amount = 300; /* there are 300 stones at level 1 */ + set_level(u, SK_ALCHEMY, 10); + + make_item(u, itype, 10); + split_allocations(u->region); + CuAssertIntEquals(tc, 11, get_item(u, itype)); + CuAssertIntEquals(tc, 290, u->region->resources->amount); /* used 10 stones to make 10 stones */ + + rtype->modifiers = calloc(2, sizeof(resource_mod)); + rtype->modifiers[0].flags = RMF_SAVEMATERIAL; + rtype->modifiers[0].race = u->_race; + rtype->modifiers[0].value.sa[0] = (short)(0.5+100*d); + rtype->modifiers[0].value.sa[1] = 100; + make_item(u, itype, 10); + split_allocations(u->region); + CuAssertIntEquals(tc, 21, get_item(u, itype)); + CuAssertIntEquals(tc, 284, u->region->resources->amount); /* 60% saving = 6 stones make 10 stones */ + + make_item(u, itype, 1); + split_allocations(u->region); + CuAssertIntEquals(tc, 22, get_item(u, itype)); + CuAssertIntEquals(tc, 283, u->region->resources->amount); /* no free lunches */ + + rtype->modifiers[0].value = frac_make(1, 2); + make_item(u, itype, 6); + split_allocations(u->region); + CuAssertIntEquals(tc, 28, get_item(u, itype)); + CuAssertIntEquals(tc, 280, u->region->resources->amount); /* 50% saving = 3 stones make 6 stones */ + + rtype->modifiers[0].flags = RMF_REQUIREDBUILDING; + rtype->modifiers[0].race = NULL; + rtype->modifiers[0].btype = bt_get_or_create("mine"); + + make_item(u, itype, 10); + CuAssertPtrNotNull(tc, test_find_messagetype(u->faction->msgs, "error104")); test_cleanup(); } @@ -295,6 +424,8 @@ CuSuite *get_economy_suite(void) CuSuite *suite = CuSuiteNew(); SUITE_ADD_TEST(suite, test_give_control_building); SUITE_ADD_TEST(suite, test_give_control_ship); + SUITE_ADD_TEST(suite, test_income); + SUITE_ADD_TEST(suite, test_make_item); SUITE_ADD_TEST(suite, test_steal_okay); SUITE_ADD_TEST(suite, test_steal_ocean); SUITE_ADD_TEST(suite, test_steal_nosteal); @@ -302,5 +433,6 @@ CuSuite *get_economy_suite(void) SUITE_ADD_TEST(suite, test_heroes_dont_recruit); SUITE_ADD_TEST(suite, test_tax_cmd); SUITE_ADD_TEST(suite, test_maintain_buildings); + SUITE_ADD_TEST(suite, test_recruit); return suite; } diff --git a/src/eressea.c b/src/eressea.c index 1fc69762b..2d53c2511 100755 --- a/src/eressea.c +++ b/src/eressea.c @@ -8,9 +8,6 @@ #if MUSEUM_MODULE #include #endif -#if ARENA_MODULE -#include -#endif #include #include #include @@ -21,18 +18,19 @@ #include #include #include -#include +#include +#include + #include #include #include #include "calendar.h" #include "chaos.h" -#include "creport.h" #include "items.h" -#include "jsreport.h" -#include "names.h" +#include "creport.h" #include "report.h" +#include "names.h" #include "reports.h" #include "spells.h" #include "wormhole.h" @@ -67,7 +65,6 @@ void game_init(void) register_nr(); register_cr(); - register_jsreport(); register_races(); register_spells(); @@ -77,13 +74,11 @@ void game_init(void) register_itemfunctions(); #if MUSEUM_MODULE register_museum(); -#endif -#if ARENA_MODULE - register_arena(); #endif wormholes_register(); - register_itemtypes(); + register_weapons(); + register_xerewards(); #ifdef USE_LIBXML2 register_xmlreader(); #endif diff --git a/src/game.pkg b/src/game.pkg index 88b3bda9a..dc2b324e4 100644 --- a/src/game.pkg +++ b/src/game.pkg @@ -1,6 +1,5 @@ $#undef tolua_reg_types $#define tolua_reg_types tolua_reg_types_game -$#include "config.h" $#include "bind_eressea.h" module eressea { diff --git a/src/game.pkg.c b/src/game.pkg.c index abd7832ca..30671021d 100644 --- a/src/game.pkg.c +++ b/src/game.pkg.c @@ -20,7 +20,6 @@ LUALIB_API int luaopen_game (lua_State* tolua_S); #undef tolua_reg_types #define tolua_reg_types tolua_reg_types_game -#include "config.h" #include "bind_eressea.h" /* function to register type */ diff --git a/src/give.c b/src/give.c index 80f4a1ab5..0f1c56c39 100644 --- a/src/give.c +++ b/src/give.c @@ -1,4 +1,4 @@ -/* +/* +-------------------+ Christian Schlittchen | | Enno Rehling | Eressea PBEM host | Katja Zedel @@ -19,6 +19,7 @@ /* kernel includes */ #include +#include #include #include #include @@ -34,7 +35,6 @@ /* attributes includes */ #include -#include /* util includes */ #include @@ -71,8 +71,8 @@ static bool can_give(const unit * u, const unit * u2, const item_type * itype, i { if (u2) { if (u2->number==0 && !fval(u2, UFL_ISNEW)) { - // https://bugs.eressea.de/view.php?id=2230 - // cannot give anything to dead units + /* https://bugs.eressea.de/view.php?id=2230 + * cannot give anything to dead units */ return false; } else if (u->faction != u2->faction) { int rule = rule_give(); @@ -122,6 +122,28 @@ const resource_type * rtype, struct order *ord, int error) } } +static void add_give_person(unit * u, unit * u2, int given, + struct order *ord, int error) +{ + assert(u2); + if (error) { + cmistake(u, ord, error, MSG_COMMERCE); + } + else if (u2->faction != u->faction) { + message *msg; + + msg = msg_message("give_person", "unit target amount", + u, u2, given); + add_message(&u->faction->msgs, msg); + msg_release(msg); + + msg = msg_message("receive_person", "unit target amount", + u, u2, given); + add_message(&u2->faction->msgs, msg); + msg_release(msg); + } +} + static bool limited_give(const item_type * type) { /* trade only money 2:1, if at all */ @@ -138,7 +160,7 @@ int give_quota(const unit * src, const unit * dst, const item_type * type, } if (dst && src && src->faction != dst->faction) { divisor = config_get_flt("rules.items.give_divisor", 1); - assert(divisor == 0 || divisor >= 1); + assert(divisor <= 0 || divisor >= 1); if (divisor >= 1) { /* predictable > correct: */ int x = (int)(n / divisor); @@ -148,17 +170,35 @@ int give_quota(const unit * src, const unit * dst, const item_type * type, return n; } +static void +give_horses(unit * s, const item_type * itype, int n) +{ + region *r = s->region; + if (r->land) { + rsethorses(r, rhorses(r) + n); + } +} + +static void +give_money(unit * s, const item_type * itype, int n) +{ + region *r = s->region; + if (r->land) { + rsetmoney(r, rmoney(r) + n); + } +} + int give_item(int want, const item_type * itype, unit * src, unit * dest, struct order *ord) { short error = 0; - int n, r; + int n, delta; assert(itype != NULL); n = get_pooled(src, item2resource(itype), GET_SLACK | GET_POOLED_SLACK, want); - n = _min(want, n); - r = n; + n = MIN(want, n); + delta = n; if (dest && src->faction != dest->faction && src->faction->age < GiveRestriction()) { if (ord != NULL) { @@ -179,18 +219,19 @@ struct order *ord) else if (itype->flags & ITF_CURSED) { error = 25; } - else if (itype->give == NULL || itype->give(src, dest, itype, n, ord) != 0) { + else { int use = use_pooled(src, item2resource(itype), GET_SLACK, n); + if (use < n) use += use_pooled(src, item2resource(itype), GET_POOLED_SLACK, n - use); if (dest) { - r = give_quota(src, dest, itype, n); - i_change(&dest->items, itype, r); + delta = give_quota(src, dest, itype, n); + i_change(&dest->items, itype, delta); #ifdef RESERVE_GIVE #ifdef RESERVE_DONATIONS - change_reservation(dest, itype, r); + change_reservation(dest, itype, delta); #else if (src->faction == dest->faction) { change_reservation(dest, item2resource(itype), r); @@ -200,14 +241,25 @@ struct order *ord) #if MUSEUM_MODULE && defined(TODO) /* TODO: use a trigger for the museum warden! */ if (a_find(dest->attribs, &at_warden)) { - warden_add_give(src, dest, itype, r); + warden_add_give(src, dest, itype, delta); } #endif handle_event(dest->attribs, "receive", src); } + else { + /* return horses to the region */ + if (itype->construction && itype->flags & ITF_ANIMAL) { + if (itype->construction->skill == SK_HORSE_TRAINING) { + give_horses(src, itype, n); + } + } + else if (itype->rtype == get_resourcetype(R_SILVER)) { + give_money(src, itype, n); + } + } handle_event(src->attribs, "give", dest); } - add_give(src, dest, n, r, item2resource(itype), ord, error); + add_give(src, dest, n, delta, item2resource(itype), ord, error); if (error) return -1; return 0; @@ -224,12 +276,8 @@ static bool unit_has_cursed_item(const unit * u) return false; } -static bool can_give_men(const unit *u, order *ord, message **msg) { - if (u_race(u) == get_race(RC_SNOTLING)) { - /* snotlings may not be given to the peasants. */ - if (msg) *msg = msg_error(u, ord, 307); - } - else if (unit_has_cursed_item(u)) { +static bool can_give_men(const unit *u, const unit *dst, order *ord, message **msg) { + if (unit_has_cursed_item(u)) { if (msg) *msg = msg_error(u, ord, 78); } else if (has_skill(u, SK_MAGIC)) { @@ -263,9 +311,9 @@ message * give_men(int n, unit * u, unit * u2, struct order *ord) message * msg; int maxt = max_transfers(); - assert(u2); + assert(u2); /* use disband_men for GIVE 0 */ - if (!can_give_men(u, ord, &msg)) { + if (!can_give_men(u, u2, ord, &msg)) { return msg; } @@ -400,20 +448,21 @@ message * give_men(int n, unit * u, unit * u2, struct order *ord) message * disband_men(int n, unit * u, struct order *ord) { message * msg; + static const race *rc_snotling; + static int rccache; - if (!can_give_men(u, ord, &msg)) { + if (rc_changed(&rccache)) { + rc_snotling = get_race(RC_SNOTLING); + } + + if (u_race(u) == rc_snotling) { + /* snotlings may not be given to the peasants. */ + return msg_error(u, ord, 307); + } + if (!can_give_men(u, NULL, ord, &msg)) { return msg; } transfermen(u, NULL, n); -#ifdef ORCIFICATION - if (u_race(u) == get_race(RC_SNOTLING) && !fval(u->region, RF_ORCIFIED)) { - attrib *a = a_find(u->region->attribs, &at_orcification); - if (!a) { - a = a_add(&u->region->attribs, a_new(&at_orcification)); - } - a->data.i += n; - } -#endif if (fval(u->region->terrain, SEA_REGION)) { return msg_message("give_person_ocean", "unit amount", u, n); } @@ -535,7 +584,7 @@ void give_unit(unit * u, unit * u2, order * ord) cmistake(u, ord, 156, MSG_COMMERCE); return; } - add_give(u, u2, u->number, u->number, get_resourcetype(R_PERSON), ord, 0); + add_give_person(u, u2, u->number, ord, 0); u_setfaction(u, u2->faction); u2->faction->newbies += u->number; } @@ -604,16 +653,19 @@ void give_cmd(unit * u, order * ord) } if (u2 && u_race(u2) == get_race(RC_SPELL)) { - ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "feedback_unit_not_found", - "")); + ADDMSG(&u->faction->msgs, msg_feedback(u, ord, + "feedback_unit_not_found", "")); return; } - else if (u2 && !alliedunit(u2, u->faction, HELP_GIVE) && !ucontact(u2, u)) { cmistake(u, ord, 40, MSG_COMMERCE); return; } - + else if (p == NOPARAM) { + /* the most likely case: giving items to someone. + * let's catch this and save ourselves the rest of the param_t checks. + */ + } else if (p == P_HERBS) { bool given = false; if ((u_race(u)->ec_flags & ECF_KEEP_ITEM) && u2 != NULL) { @@ -773,7 +825,7 @@ void give_cmd(unit * u, order * ord) msg_feedback(u, ord, "race_noregroup", "race", u_race(u))); return; } - n = _min(u->number, n); + n = MIN(u->number, n); msg = u2 ? give_men(n, u, u2, ord) : disband_men(n, u, ord); if (msg) { ADDMSG(&u->faction->msgs, msg); @@ -782,7 +834,7 @@ void give_cmd(unit * u, order * ord) } if (u2 != NULL) { - if ((u_race(u)->ec_flags & ECF_KEEP_ITEM) && u2 != NULL) { + if ((u_race(u)->ec_flags & ECF_KEEP_ITEM)) { ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "race_nogive", "race", u_race(u))); return; diff --git a/src/give.h b/src/give.h index 9c06e89ca..94eee729c 100644 --- a/src/give.h +++ b/src/give.h @@ -12,6 +12,9 @@ */ #ifndef H_GC_GIVE #define H_GC_GIVE + +#include + #ifdef __cplusplus extern "C" { #endif diff --git a/src/give.test.c b/src/give.test.c index e65c2861c..1767dec36 100644 --- a/src/give.test.c +++ b/src/give.test.c @@ -23,6 +23,7 @@ #include struct give { + struct locale * lang; struct unit *src, *dst; struct region *r; struct faction *f1, *f2; @@ -46,11 +47,16 @@ static void setup_give(struct give *env) { ally * al = ally_add(&env->f2->allies, env->f1); al->status = HELP_GIVE; } + if (env->lang) { + locale_setstring(env->lang, env->itype->rtype->_name, "SILBER"); + init_locale(env->lang); + env->f1->locale = env->lang; + } } static void test_give_unit_to_peasants(CuTest * tc) { - struct give env; - test_cleanup(); + struct give env = { 0 }; + test_setup_ex(tc); env.f1 = test_create_faction(0); env.f2 = 0; setup_give(&env); @@ -62,8 +68,8 @@ static void test_give_unit_to_peasants(CuTest * tc) { } static void test_give_unit(CuTest * tc) { - struct give env; - test_cleanup(); + struct give env = { 0 }; + test_setup_ex(tc); env.f1 = test_create_faction(0); env.f2 = test_create_faction(0); setup_give(&env); @@ -77,12 +83,14 @@ static void test_give_unit(CuTest * tc) { CuAssertPtrEquals(tc, env.f2, env.src->faction); CuAssertIntEquals(tc, 1, env.f2->newbies); CuAssertPtrEquals(tc, 0, env.f1->units); + CuAssertPtrNotNull(tc, test_find_messagetype(env.f1->msgs, "give_person")); + CuAssertPtrNotNull(tc, test_find_messagetype(env.f2->msgs, "receive_person")); test_cleanup(); } static void test_give_unit_in_ocean(CuTest * tc) { - struct give env; - test_cleanup(); + struct give env = { 0 }; + test_setup_ex(tc); env.f1 = test_create_faction(0); env.f2 = 0; setup_give(&env); @@ -93,8 +101,8 @@ static void test_give_unit_in_ocean(CuTest * tc) { } static void test_give_men(CuTest * tc) { - struct give env; - test_cleanup(); + struct give env = { 0 }; + test_setup_ex(tc); env.f2 = env.f1 = test_create_faction(0); setup_give(&env); CuAssertPtrEquals(tc, 0, give_men(1, env.src, env.dst, NULL)); @@ -103,10 +111,35 @@ static void test_give_men(CuTest * tc) { test_cleanup(); } -static void test_give_men_limit(CuTest * tc) { - struct give env; - message *msg; +static void test_give_men_magicians(CuTest * tc) { + struct give env = { 0 }; + int p; + message * msg; + + test_setup_ex(tc); + env.f2 = env.f1 = test_create_faction(0); + setup_give(&env); + set_level(env.src, SK_MAGIC, 1); + CuAssertPtrNotNull(tc, msg = give_men(1, env.src, env.dst, NULL)); + CuAssertStrEquals(tc, "error158", (const char *)msg->parameters[3].v); + CuAssertIntEquals(tc, 1, env.dst->number); + CuAssertIntEquals(tc, 1, env.src->number); + msg_release(msg); + + p = rpeasants(env.r); + CuAssertPtrNotNull(tc, msg = disband_men(1, env.dst, NULL)); + CuAssertStrEquals(tc, "give_person_peasants", (const char *)msg->parameters[0].v); + CuAssertIntEquals(tc, 0, env.dst->number); + CuAssertIntEquals(tc, p+1, rpeasants(env.r)); + msg_release(msg); + test_cleanup(); +} + +static void test_give_men_limit(CuTest * tc) { + struct give env = { 0 }; + message *msg; + test_setup_ex(tc); env.f2 = test_create_faction(0); env.f1 = test_create_faction(0); setup_give(&env); @@ -134,10 +167,10 @@ static void test_give_men_limit(CuTest * tc) { } static void test_give_men_in_ocean(CuTest * tc) { - struct give env; + struct give env = { 0 }; message * msg; - test_cleanup(); + test_setup_ex(tc); env.f1 = test_create_faction(0); env.f2 = 0; setup_give(&env); @@ -150,8 +183,8 @@ static void test_give_men_in_ocean(CuTest * tc) { } static void test_give_men_too_many(CuTest * tc) { - struct give env; - test_cleanup(); + struct give env = { 0 }; + test_setup_ex(tc); env.f2 = env.f1 = test_create_faction(0); setup_give(&env); CuAssertPtrEquals(tc, 0, give_men(2, env.src, env.dst, NULL)); @@ -161,10 +194,10 @@ static void test_give_men_too_many(CuTest * tc) { } static void test_give_men_none(CuTest * tc) { - struct give env; + struct give env = { 0 }; message * msg; - test_cleanup(); + test_setup_ex(tc); env.f2 = env.f1 = test_create_faction(0); setup_give(&env); msg = give_men(0, env.src, env.dst, NULL); @@ -176,10 +209,10 @@ static void test_give_men_none(CuTest * tc) { } static void test_give_men_other_faction(CuTest * tc) { - struct give env; + struct give env = { 0 }; message * msg; - test_cleanup(); + test_setup_ex(tc); env.f1 = test_create_faction(0); env.f2 = test_create_faction(0); setup_give(&env); @@ -193,12 +226,11 @@ static void test_give_men_other_faction(CuTest * tc) { } static void test_give_men_requires_contact(CuTest * tc) { - struct give env; + struct give env = { 0 }; message * msg; order *ord; - char cmd[32]; - test_cleanup(); + test_setup_ex(tc); env.f1 = test_create_faction(0); env.f2 = test_create_faction(0); setup_give(&env); @@ -207,8 +239,7 @@ static void test_give_men_requires_contact(CuTest * tc) { CuAssertIntEquals(tc, 1, env.dst->number); CuAssertIntEquals(tc, 1, env.src->number); - _snprintf(cmd, sizeof(cmd), "%s ALLES PERSONEN", itoa36(env.dst->no)); - ord = create_order(K_GIVE, env.f1->locale, cmd); + ord = create_order(K_GIVE, env.f1->locale, "%s ALLES PERSONEN", itoa36(env.dst->no)); test_clear_messages(env.f1); give_cmd(env.src, ord); CuAssertPtrEquals(tc, 0, test_find_messagetype(env.f1->msgs, "give_person")); @@ -220,9 +251,9 @@ static void test_give_men_requires_contact(CuTest * tc) { } static void test_give_men_not_to_self(CuTest * tc) { - struct give env; + struct give env = { 0 }; message * msg; - test_cleanup(); + test_setup_ex(tc); env.f2 = env.f1 = test_create_faction(0); setup_give(&env); msg = give_men(1, env.src, env.src, NULL); @@ -233,10 +264,10 @@ static void test_give_men_not_to_self(CuTest * tc) { } static void test_give_peasants(CuTest * tc) { - struct give env; + struct give env = { 0 }; message * msg; - test_cleanup(); + test_setup_ex(tc); env.f1 = test_create_faction(0); env.f2 = 0; setup_give(&env); @@ -250,9 +281,9 @@ static void test_give_peasants(CuTest * tc) { } static void test_give(CuTest * tc) { - struct give env; + struct give env = { 0 }; - test_cleanup(); + test_setup_ex(tc); env.f2 = env.f1 = test_create_faction(0); setup_give(&env); @@ -267,19 +298,37 @@ static void test_give(CuTest * tc) { test_cleanup(); } -static void test_give_herbs(CuTest * tc) { - struct give env; +static void test_give_cmd(CuTest * tc) { + struct give env = { 0 }; struct order *ord; - char cmd[32]; - test_cleanup(); - test_create_world(); + test_setup_ex(tc); + env.lang = test_create_locale(); env.f2 = env.f1 = test_create_faction(0); setup_give(&env); + + i_change(&env.src->items, env.itype, 10); + + ord = create_order(K_GIVE, env.f1->locale, "%s 5 %s", itoa36(env.dst->no), LOC(env.f1->locale, env.itype->rtype->_name)); + assert(ord); + give_cmd(env.src, ord); + CuAssertIntEquals(tc, 5, i_get(env.src->items, env.itype)); + CuAssertIntEquals(tc, 5, i_get(env.dst->items, env.itype)); + + free_order(ord); + test_cleanup(); +} + +static void test_give_herbs(CuTest * tc) { + struct give env = { 0 }; + struct order *ord; + + test_setup_ex(tc); + env.f2 = env.f1 = test_create_faction(NULL); + setup_give(&env); i_change(&env.src->items, env.itype, 10); - _snprintf(cmd, sizeof(cmd), "%s %s", itoa36(env.dst->no), LOC(env.f1->locale, parameters[P_HERBS])); - ord = create_order(K_GIVE, env.f1->locale, cmd); + ord = create_order(K_GIVE, env.f1->locale, "%s %s", itoa36(env.dst->no), LOC(env.f1->locale, parameters[P_HERBS])); assert(ord); give_cmd(env.src, ord); @@ -290,9 +339,9 @@ static void test_give_herbs(CuTest * tc) { } static void test_give_okay(CuTest * tc) { - struct give env; + struct give env = { 0 }; - test_cleanup(); + test_setup_ex(tc); env.f2 = env.f1 = test_create_faction(0); setup_give(&env); @@ -302,10 +351,10 @@ static void test_give_okay(CuTest * tc) { } static void test_give_denied_by_rules(CuTest * tc) { - struct give env; + struct give env = { 0 }; struct message *msg; - test_cleanup(); + test_setup_ex(tc); env.f1 = test_create_faction(0); env.f2 = test_create_faction(0); setup_give(&env); @@ -317,10 +366,10 @@ static void test_give_denied_by_rules(CuTest * tc) { } static void test_give_dead_unit(CuTest * tc) { - struct give env; + struct give env = { 0 }; struct message *msg; - test_cleanup(); + test_setup_ex(tc); env.f1 = test_create_faction(0); env.f2 = test_create_faction(0); setup_give(&env); @@ -332,9 +381,9 @@ static void test_give_dead_unit(CuTest * tc) { } static void test_give_new_unit(CuTest * tc) { - struct give env; + struct give env = { 0 }; - test_cleanup(); + test_setup_ex(tc); env.f1 = test_create_faction(0); env.f2 = test_create_faction(0); setup_give(&env); @@ -345,11 +394,11 @@ static void test_give_new_unit(CuTest * tc) { } static void test_give_invalid_target(CuTest *tc) { - // bug https://bugs.eressea.de/view.php?id=1685 - struct give env; + /* bug https://bugs.eressea.de/view.php?id=1685 */ + struct give env = { 0 }; order *ord; - test_cleanup(); + test_setup_ex(tc); env.f1 = test_create_faction(0); env.f2 = 0; setup_give(&env); @@ -369,7 +418,9 @@ CuSuite *get_give_suite(void) { CuSuite *suite = CuSuiteNew(); SUITE_ADD_TEST(suite, test_give); + SUITE_ADD_TEST(suite, test_give_cmd); SUITE_ADD_TEST(suite, test_give_men); + SUITE_ADD_TEST(suite, test_give_men_magicians); SUITE_ADD_TEST(suite, test_give_men_limit); SUITE_ADD_TEST(suite, test_give_men_in_ocean); SUITE_ADD_TEST(suite, test_give_men_none); diff --git a/src/gmtool.c b/src/gmtool.c index 47b7794a2..148aafe6d 100644 --- a/src/gmtool.c +++ b/src/gmtool.c @@ -26,9 +26,6 @@ #if MUSEUM_MODULE #include #endif -#if ARENA_MODULE -#include -#endif #include #include @@ -47,7 +44,6 @@ #include #include -#include #include #include @@ -87,7 +83,7 @@ static void unicode_remove_diacritics(const char *rp, char *wp) { while (*rp) { if (gm_codepage >=0 && *rp & 0x80) { size_t sz = 0; - char ch; + unsigned char ch; switch (gm_codepage) { case 1252: unicode_utf8_to_cp1252(&ch, rp, &sz); @@ -100,7 +96,7 @@ static void unicode_remove_diacritics(const char *rp, char *wp) { break; } rp += sz; - *wp++ = ch; + *wp++ = (char)ch; } else { *wp++ = *rp++; @@ -184,7 +180,7 @@ map_region *mr_get(const view * vi, int xofs, int yofs) static point *coor2point(const coordinate * c, point * p) { assert(c && p); - p->x = c->x * TWIDTH + c->y * TWIDTH / 2; + p->x = c->x * TWIDTH + c->y * TWIDTH / 2; /*-V537 */ p->y = c->y * THEIGHT; return p; } @@ -262,7 +258,7 @@ static chtype mr_tile(const map_region * mr, int highlight) const region *r = mr->r; switch (r->terrain->_name[0]) { case 'o': - return '.' | COLOR_PAIR(hl + COLOR_CYAN) | A_BOLD; + return '.' | COLOR_PAIR(hl + COLOR_CYAN) | A_BOLD; /*-V525 */ case 'd': return 'D' | COLOR_PAIR(hl + COLOR_YELLOW) | A_BOLD; case 't': @@ -427,7 +423,7 @@ static void paint_info_region(window * wnd, const state * st) int line = 0, maxline = getmaxy(win) - 2; map_region *mr = cursor_region(&st->display, &st->cursor); - unused_arg(st); + UNUSED_ARG(st); werase(win); wxborder(win); if (mr && mr->r) { @@ -823,8 +819,7 @@ void loaddata(state *st) { askstring(st->wnd_status->handle, "save as:", datafile, sizeof(datafile)); if (strlen(datafile) > 0) { - create_backup(datafile); - readgame(datafile, false); + readgame(datafile); st->modified = 0; } } @@ -834,7 +829,6 @@ void savedata(state *st) { askstring(st->wnd_status->handle, "save as:", datafile, sizeof(datafile)); if (strlen(datafile) > 0) { - create_backup(datafile); remove_empty_units(); writegame(datafile); st->modified = 0; @@ -1169,7 +1163,7 @@ static void handlekey(state * st, int c) region *first = (mr && mr->r && mr->r->next) ? mr->r->next : regions; if (findmode == 'f') { - sprintf(sbuffer, "find-faction: %s", locate); + slprintf(sbuffer, sizeof(sbuffer), "find-faction: %s", locate); statusline(st->wnd_status->handle, sbuffer); f = findfaction(atoi36(locate)); if (f == NULL) { @@ -1400,7 +1394,7 @@ int curses_readline(struct lua_State *L, char *buffer, size_t size, const char *prompt) { - unused_arg(L); + UNUSED_ARG(L); askstring(hstatus, prompt, buffer, size); return buffer[0] != 0; } diff --git a/src/guard.c b/src/guard.c index f779e7e2e..55f189b6c 100644 --- a/src/guard.c +++ b/src/guard.c @@ -1,4 +1,4 @@ -/* +/* Copyright (c) 1998-2015, Enno Rehling Katja Zedel #include #include "guard.h" +#include "laws.h" +#include "monsters.h" -#include -#include +#include +#include #include #include #include -#include -#include +#include +#include #include -attrib_type at_guard = { - "guard", - DEFAULT_INIT, - DEFAULT_FINALIZE, - DEFAULT_AGE, - a_writeint, - a_readint, - NULL, - ATF_UNIQUE -}; +guard_t can_start_guarding(const unit * u) +{ + if (u->region->terrain->flags & SEA_REGION) { + return E_GUARD_TERRAIN; + } + if (u->status >= ST_FLEE || fval(u, UFL_FLEEING)) + return E_GUARD_FLEEING; + /* Monster der Monsterpartei duerfen immer bewachen */ + if (is_monsters(u->faction) || fval(u_race(u), RCF_UNARMEDGUARD)) + return E_GUARD_OK; + if (!armedmen(u, true)) + return E_GUARD_UNARMED; + if (IsImmune(u->faction)) + return E_GUARD_NEWBIE; + return E_GUARD_OK; +} void update_guards(void) { @@ -51,91 +59,102 @@ void update_guards(void) for (u = r->units; u; u = u->next) { if (fval(u, UFL_GUARD)) { if (can_start_guarding(u) != E_GUARD_OK) { - setguard(u, GUARD_NONE); - } - else { - attrib *a = a_find(u->attribs, &at_guard); - if (a && a->data.i == (int)guard_flags(u)) { - /* this is really rather not necessary */ - a_remove(&u->attribs, a); - } + setguard(u, false); } } } } } -unsigned int guard_flags(const unit * u) +void setguard(unit * u, bool enabled) { - unsigned int flags = - GUARD_CREWS | GUARD_LANDING | GUARD_TRAVELTHRU | GUARD_TAX; -#if GUARD_DISABLES_PRODUCTION == 1 - flags |= GUARD_PRODUCE; -#endif -#if GUARD_DISABLES_RECRUIT == 1 - flags |= GUARD_RECRUIT; -#endif - switch (old_race(u_race(u))) { - case RC_ELF: - if (u->faction->race != u_race(u)) - break; - /* else fallthrough */ - case RC_TREEMAN: - flags |= GUARD_TREES; - break; - case RC_IRONKEEPER: - flags = GUARD_MINING; - break; - default: - /* TODO: This should be configuration variables, all of it */ - break; - } - return flags; -} - -void setguard(unit * u, unsigned int flags) -{ - /* setzt die guard-flags der Einheit */ - attrib *a = NULL; - assert(flags == 0 || !fval(u, UFL_MOVED)); - assert(flags == 0 || u->status < ST_FLEE); - if (fval(u, UFL_GUARD)) { - a = a_find(u->attribs, &at_guard); - } - if (flags == GUARD_NONE) { + if (!enabled) { freset(u, UFL_GUARD); - if (a) - a_remove(&u->attribs, a); - return; - } - fset(u, UFL_GUARD); - fset(u->region, RF_GUARDED); - if (flags == guard_flags(u)) { - if (a) - a_remove(&u->attribs, a); - } - else { - if (!a) - a = a_add(&u->attribs, a_new(&at_guard)); - a->data.i = (int)flags; + } else { + assert(!fval(u, UFL_MOVED)); + assert(u->status < ST_FLEE); + fset(u, UFL_GUARD); + fset(u->region, RF_GUARDED); } } -unsigned int getguard(const unit * u) +void guard(unit * u) { - attrib *a; - - assert(fval(u, UFL_GUARD) || (u->building && u == building_owner(u->building)) - || !"you're doing it wrong! check is_guard first"); - a = a_find(u->attribs, &at_guard); - if (a) { - return (unsigned int)a->data.i; - } - return guard_flags(u); + setguard(u, true); } -void guard(unit * u, unsigned int mask) +static bool is_guardian_u(const unit * guard, unit * u) { - unsigned int flags = guard_flags(u); - setguard(u, flags & mask); + if (guard->faction == u->faction) + return false; + if (is_guard(guard) == 0) + return false; + if (alliedunit(guard, u->faction, HELP_GUARD)) + return false; + if (ucontact(guard, u)) + return false; + if (!cansee(guard->faction, u->region, u, 0)) + return false; + if (!(u_race(guard)->flags & RCF_FLY) && u_race(u)->flags & RCF_FLY) + return false; + + return true; +} + +static bool is_guardian_r(const unit * guard) +{ + if (guard->number == 0) + return false; + if (besieged(guard)) + return false; + + /* if region_owners exist then they may be guardians: */ + if (guard->building && rule_region_owners() && guard == building_owner(guard->building)) { + faction *owner = region_get_owner(guard->region); + if (owner == guard->faction) { + building *bowner = largestbuilding(guard->region, &cmp_taxes, false); + if (bowner == guard->building) { + return true; + } + } + } + + if ((guard->flags & UFL_GUARD) == 0) + return false; + return fval(u_race(guard), RCF_UNARMEDGUARD) || is_monsters(guard->faction) || (armedmen(guard, true) > 0); +} + +bool is_guard(const struct unit * u) +{ + return is_guardian_r(u); +} + +unit *is_guarded(region * r, unit * u) +{ + unit *u2; + bool noguards = true; + + if (!fval(r, RF_GUARDED)) { + return NULL; + } + + /* at this point, u2 is the last unit we tested to + * be a guard (and failed), or NULL + * i is the position of the first free slot in the cache */ + + for (u2 = r->units; u2; u2 = u2->next) { + if (is_guardian_r(u2)) { + noguards = false; + if (is_guardian_u(u2, u)) { + /* u2 is our guard. stop processing (we might have to go further next time) */ + return u2; + } + } + } + + if (noguards) { + /* you are mistaken, sir. there are no guards in these lands */ + freset(r, RF_GUARDED); + } + return NULL; } diff --git a/src/guard.h b/src/guard.h index 564be61a2..5a717d92d 100644 --- a/src/guard.h +++ b/src/guard.h @@ -1,24 +1,26 @@ -#pragma once +#pragma once #ifndef H_GUARD #define H_GUARD + +#include + #ifdef __cplusplus extern "C" { #endif struct unit; - - typedef enum { E_GUARD_OK, E_GUARD_UNARMED, E_GUARD_NEWBIE, E_GUARD_FLEEING } guard_t; - - extern struct attrib_type at_guard; + struct region; + + typedef enum { E_GUARD_OK, E_GUARD_UNARMED, E_GUARD_NEWBIE, E_GUARD_FLEEING, E_GUARD_TERRAIN } guard_t; guard_t can_start_guarding(const struct unit * u); void update_guards(void); - unsigned int guard_flags(const struct unit * u); - unsigned int getguard(const struct unit * u); - void setguard(struct unit * u, unsigned int flags); + void setguard(struct unit * u, bool enabled); + void guard(struct unit *u); - void guard(struct unit * u, unsigned int mask); + struct unit *is_guarded(struct region *r, struct unit *u); + bool is_guard(const struct unit *u); #ifdef __cplusplus } diff --git a/src/guard.test.c b/src/guard.test.c new file mode 100644 index 000000000..8302bcc9a --- /dev/null +++ b/src/guard.test.c @@ -0,0 +1,246 @@ +#include + +#include "guard.h" +#include "laws.h" +#include "monsters.h" + +#include +#include +#include +#include +#include +#include +#include +#include + +#include + +#include +#include "tests.h" + +static void test_is_guarded(CuTest *tc) { + unit *u1, *u2; + region *r; + race *rc; + + test_cleanup(); + rc = rc_get_or_create("dragon"); + rc->flags |= RCF_UNARMEDGUARD; + r = test_create_region(0, 0, 0); + u1 = test_create_unit(test_create_faction(0), r); + u2 = test_create_unit(test_create_faction(rc), r); + CuAssertPtrEquals(tc, 0, is_guarded(r, u1)); + setguard(u2, true); + CuAssertPtrEquals(tc, u2, is_guarded(r, u1)); + test_cleanup(); +} + +static void test_guard_unskilled(CuTest * tc) +/* TODO: it would be better to test armedmen() */ +{ + unit *u, *ug; + region *r; + item_type *itype; + + test_setup(); + itype = it_get_or_create(rt_get_or_create("sword")); + new_weapontype(itype, 0, frac_zero, NULL, 0, 0, 0, SK_MELEE, 2); + r = test_create_region(0, 0, 0); + u = test_create_unit(test_create_faction(0), r); + ug = test_create_unit(test_create_faction(0), r); + i_change(&ug->items, itype, 1); + set_level(ug, SK_MELEE, 1); + setguard(ug, true); + CuAssertPtrEquals(tc, 0, is_guarded(r, u)); + test_cleanup(); +} + +static void test_guard_armed(CuTest * tc) +{ + unit *u, *ug; + region *r; + item_type *itype; + + test_setup(); + itype = it_get_or_create(rt_get_or_create("sword")); + new_weapontype(itype, 0, frac_zero, NULL, 0, 0, 0, SK_MELEE, 2); + r = test_create_region(0, 0, 0); + u = test_create_unit(test_create_faction(0), r); + ug = test_create_unit(test_create_faction(0), r); + i_change(&ug->items, itype, 1); + set_level(ug, SK_MELEE, 2); + setguard(ug, true); + CuAssertPtrEquals(tc, ug, is_guarded(r, u)); + test_cleanup(); +} + +static void test_is_guard(CuTest * tc) +{ + unit *ug; + region *r; + item_type *itype; + + test_setup(); + itype = it_get_or_create(rt_get_or_create("sword")); + new_weapontype(itype, 0, frac_zero, NULL, 0, 0, 0, SK_MELEE, 2); + r = test_create_region(0, 0, 0); + ug = test_create_unit(test_create_faction(0), r); + i_change(&ug->items, itype, 1); + set_level(ug, SK_MELEE, 2); + setguard(ug, true); + CuAssertIntEquals(tc, 1, armedmen(ug, false)); + CuAssertTrue(tc, is_guard(ug)); + set_level(ug, SK_MELEE, 1); + CuAssertIntEquals(tc, 0, armedmen(ug, false)); + CuAssertTrue(tc, !is_guard(ug)); + set_level(ug, SK_MELEE, 2); + CuAssertIntEquals(tc, 1, armedmen(ug, false)); + CuAssertTrue(tc, is_guard(ug)); + test_cleanup(); +} + +static void test_guard_unarmed(CuTest * tc) +{ + unit *u, *ug; + region *r; + race *rc; + + test_setup(); + rc = test_create_race("mountainguard"); + rc->flags |= RCF_UNARMEDGUARD; + r = test_create_region(0, 0, 0); + u = test_create_unit(test_create_faction(0), r); + ug = test_create_unit(test_create_faction(rc), r); + setguard(ug, true); + CuAssertPtrEquals(tc, ug, is_guarded(r, u)); + test_cleanup(); +} + +static void test_guard_monsters(CuTest * tc) +{ + unit *u, *ug; + region *r; + + test_setup(); + r = test_create_region(0, 0, 0); + u = test_create_unit(test_create_faction(0), r); + ug = test_create_unit(get_monsters(), r); + setguard(ug, true); + CuAssertPtrEquals(tc, ug, is_guarded(r, u)); + test_cleanup(); +} + +static void test_update_guard(CuTest * tc) +/* https://bugs.eressea.de/view.php?id=2292 */ +{ + unit *ug; + region *r; + item_type *itype; + const struct terrain_type *t_ocean, *t_plain; + + test_setup(); + t_ocean = test_create_terrain("ocean", SEA_REGION); + t_plain = test_create_terrain("packice", ARCTIC_REGION); + itype = it_get_or_create(rt_get_or_create("sword")); + new_weapontype(itype, 0, frac_zero, NULL, 0, 0, 0, SK_MELEE, 2); + r = test_create_region(0, 0, t_plain); + ug = test_create_unit(test_create_faction(0), r); + i_change(&ug->items, itype, 1); + set_level(ug, SK_MELEE, 2); + setguard(ug, true); + CuAssertIntEquals(tc, 1, armedmen(ug, false)); + CuAssertTrue(tc, is_guard(ug)); + + terraform_region(r, t_ocean); + update_guards(); + CuAssertTrue(tc, ! is_guard(ug)); + + test_cleanup(); +} + +static void test_guard_on(CuTest * tc) +{ + unit *ug; + region *r; + item_type *itype; + terrain_type *t_ocean, *t_plain; + + test_setup(); + t_ocean = test_create_terrain("ocean", SEA_REGION); + t_plain = test_create_terrain("plain", LAND_REGION); + itype = it_get_or_create(rt_get_or_create("sword")); + new_weapontype(itype, 0, frac_zero, NULL, 0, 0, 0, SK_MELEE, 2); + r = test_create_region(0, 0, t_plain); + ug = test_create_unit(test_create_faction(0), r); + i_change(&ug->items, itype, 1); + set_level(ug, SK_MELEE, 2); + ug->thisorder = create_order(K_GUARD, ug->faction->locale, NULL); + + setguard(ug, false); + CuAssertIntEquals(tc, E_GUARD_OK, can_start_guarding(ug)); + guard_on_cmd(ug, ug->thisorder); + CuAssertTrue(tc, is_guard(ug)); + + terraform_region(r, test_create_terrain("packice", ARCTIC_REGION)); + + setguard(ug, false); + CuAssertIntEquals(tc, E_GUARD_OK, can_start_guarding(ug)); + guard_on_cmd(ug, ug->thisorder); + CuAssertTrue(tc, is_guard(ug)); + + terraform_region(r, t_ocean); + + setguard(ug, false); + CuAssertIntEquals(tc, E_GUARD_TERRAIN, can_start_guarding(ug)); + guard_on_cmd(ug, ug->thisorder); + CuAssertTrue(tc, !is_guard(ug)); + CuAssertPtrNotNull(tc, test_find_messagetype(ug->faction->msgs, "error2")); + + terraform_region(r, t_plain); + + i_change(&ug->items, itype, -1); + CuAssertIntEquals(tc, E_GUARD_UNARMED, can_start_guarding(ug)); + guard_on_cmd(ug, ug->thisorder); + CuAssertTrue(tc, !is_guard(ug)); + CuAssertPtrNotNull(tc, test_find_messagetype(ug->faction->msgs, "unit_unarmed")); + i_change(&ug->items, itype, 1); + + test_clear_messages(ug->faction); + set_level(ug, SK_MELEE, 0); + CuAssertIntEquals(tc, E_GUARD_UNARMED, can_start_guarding(ug)); + guard_on_cmd(ug, ug->thisorder); + CuAssertTrue(tc, !is_guard(ug)); + CuAssertPtrNotNull(tc, test_find_messagetype(ug->faction->msgs, "unit_unarmed")); + set_level(ug, SK_MELEE, 2); + + ug->status = ST_FLEE; + CuAssertIntEquals(tc, E_GUARD_FLEEING, can_start_guarding(ug)); + guard_on_cmd(ug, ug->thisorder); + CuAssertTrue(tc, !is_guard(ug)); + CuAssertPtrNotNull(tc, test_find_messagetype(ug->faction->msgs, "error320")); + ug->status = ST_FIGHT; + + config_set("NewbieImmunity", "5"); + CuAssertIntEquals(tc, E_GUARD_NEWBIE, can_start_guarding(ug)); + guard_on_cmd(ug, ug->thisorder); + CuAssertTrue(tc, !is_guard(ug)); + CuAssertPtrNotNull(tc, test_find_messagetype(ug->faction->msgs, "error304")); + config_set("NewbieImmunity", NULL); + + test_clear_messages(ug->faction); + test_cleanup(); +} + +CuSuite *get_guard_suite(void) +{ + CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_is_guarded); + SUITE_ADD_TEST(suite, test_is_guard); + SUITE_ADD_TEST(suite, test_guard_unskilled); + SUITE_ADD_TEST(suite, test_guard_on); + SUITE_ADD_TEST(suite, test_guard_armed); + SUITE_ADD_TEST(suite, test_guard_unarmed); + SUITE_ADD_TEST(suite, test_guard_monsters); + SUITE_ADD_TEST(suite, test_update_guard); + return suite; +} diff --git a/src/helpers.c b/src/helpers.c index aa9bc12eb..402ecdd48 100644 --- a/src/helpers.c +++ b/src/helpers.c @@ -13,6 +13,7 @@ without prior permission by the authors of Eressea. #include #include "helpers.h" #include "vortex.h" +#include "alchemy.h" #include #include @@ -27,6 +28,7 @@ without prior permission by the authors of Eressea. #include #include #include +#include #include #include #include @@ -78,7 +80,7 @@ lua_giveitem(unit * s, unit * d, const item_type * itype, int n, struct order *o return result; } -static int limit_resource(const region * r, const resource_type * rtype) +static int limit_resource_lua(const region * r, const resource_type * rtype) { char fname[64]; int result = -1; @@ -110,7 +112,7 @@ static int limit_resource(const region * r, const resource_type * rtype) } static void -produce_resource(region * r, const resource_type * rtype, int norders) +produce_resource_lua(region * r, const resource_type * rtype, int norders) { lua_State *L = (lua_State *)global.vm_state; char fname[64]; @@ -167,7 +169,7 @@ static int lua_callspell(castorder * co) if (hashpos != NULL) { ptrdiff_t len = hashpos - fname; assert(len < (ptrdiff_t) sizeof(fbuf)); - strncpy(fbuf, fname, len); + memcpy(fbuf, fname, len); fbuf[len] = '\0'; fname = fbuf; } @@ -318,34 +320,6 @@ static int lua_getresource(unit * u, const struct resource_type *rtype) return result; } -static bool lua_canuse_item(const unit * u, const struct item_type *itype) -{ - bool result = true; - lua_State *L = (lua_State *)global.vm_state; - const char *fname = "item_canuse"; - - lua_getglobal(L, fname); - if (lua_isfunction(L, -1)) { - tolua_pushusertype(L, (void *)u, TOLUA_CAST "unit"); - tolua_pushstring(L, itype->rtype->_name); - - if (lua_pcall(L, 2, 1, 0) != 0) { - const char *error = lua_tostring(L, -1); - log_error("use(%s) calling '%s': %s.\n", unitname(u), fname, error); - lua_pop(L, 1); - } - else { - result = lua_toboolean(L, -1); - lua_pop(L, 1); - } - } - else { - log_error("use(%s) calling '%s': not a function.\n", unitname(u), fname); - lua_pop(L, 1); - } - return result; -} - static int lua_wage(const region * r, const faction * f, const race * rc, int in_turn) { @@ -489,17 +463,22 @@ static int lua_equipmentcallback(const struct equipment *eq, unit * u) } /** callback for an item-use function written in lua. */ -int -lua_useitem(struct unit *u, const struct item_type *itype, int amount, -struct order *ord) +static int +use_item_lua(unit *u, const item_type *itype, int amount, struct order *ord) { lua_State *L = (lua_State *)global.vm_state; int result = 0; char fname[64]; + int (*callout)(unit *, const item_type *, int, struct order *); strlcpy(fname, "use_", sizeof(fname)); strlcat(fname, itype->rtype->_name, sizeof(fname)); + callout = (int(*)(unit *, const item_type *, int, struct order *))get_function(fname); + if (callout) { + return callout(u, itype, amount, ord); + } + lua_getglobal(L, fname); if (lua_isfunction(L, -1)) { tolua_pushusertype(L, (void *)u, TOLUA_CAST "unit"); @@ -515,11 +494,15 @@ struct order *ord) result = (int)lua_tonumber(L, -1); lua_pop(L, 1); } + return result; } - else { - log_error("use(%s) calling '%s': not a function.\n", unitname(u), fname); - lua_pop(L, 1); + lua_pop(L, 1); + if (itype->rtype->ptype) { + return use_potion(u, itype, amount, ord); + } else { + log_error("no such callout: %s", fname); } + log_error("use(%s) calling '%s': not a function.\n", unitname(u), fname); return result; } @@ -550,11 +533,8 @@ void register_tolua_helpers(void) register_function((pf_generic)lua_callspell, TOLUA_CAST "lua_castspell"); register_function((pf_generic)lua_initfamiliar, TOLUA_CAST "lua_initfamiliar"); - register_item_use(&lua_useitem, TOLUA_CAST "lua_useitem"); register_function((pf_generic)lua_getresource, TOLUA_CAST "lua_getresource"); - register_function((pf_generic)lua_canuse_item, - TOLUA_CAST "lua_canuse_item"); register_function((pf_generic)lua_changeresource, TOLUA_CAST "lua_changeresource"); register_function((pf_generic)lua_equipmentcallback, @@ -564,9 +544,8 @@ void register_tolua_helpers(void) register_function((pf_generic)lua_maintenance, TOLUA_CAST "lua_maintenance"); - register_function((pf_generic)produce_resource, - TOLUA_CAST "lua_produceresource"); - register_function((pf_generic)limit_resource, - TOLUA_CAST "lua_limitresource"); + item_use_fun = use_item_lua; + res_produce_fun = produce_resource_lua; + res_limit_fun = limit_resource_lua; register_item_give(lua_giveitem, TOLUA_CAST "lua_giveitem"); } diff --git a/src/items.c b/src/items.c index 5e9a357e6..0f97ea675 100644 --- a/src/items.c +++ b/src/items.c @@ -1,8 +1,9 @@ #include -#include #include "items.h" +#include "alchemy.h" #include "study.h" +#include "economy.h" #include "move.h" #include "magic.h" @@ -14,16 +15,24 @@ #include #include #include +#include #include #include #include #include -#include +#include + +/* triggers includes */ +#include +#include #include +#include +#include #include #include +#include #include #include @@ -34,7 +43,7 @@ static int use_studypotion(struct unit *u, const struct item_type *itype, int amount, struct order *ord) { - if (init_order(u->thisorder) == K_STUDY) { + if (u->thisorder && init_order(u->thisorder) == K_STUDY) { char token[128]; skill_t sk = NOSKILL; skill *sv = 0; @@ -61,9 +70,9 @@ struct order *ord) if (amount > MAXGAIN) { amount = MAXGAIN; } - teach->value += amount * 30; - if (teach->value > MAXGAIN * 30) { - teach->value = MAXGAIN * 30; + teach->value += amount * STUDYDAYS; + if (teach->value > MAXGAIN * STUDYDAYS) { + teach->value = MAXGAIN * STUDYDAYS; } i_change(&u->items, itype, -amount); return 0; @@ -71,7 +80,6 @@ struct order *ord) } return EUNUSABLE; } - /* END studypotion */ /* BEGIN speedsail */ @@ -89,9 +97,8 @@ struct order *ord) } effect = SPEEDSAIL_EFFECT; - c = - create_curse(u, &sh->attribs, ct_find("shipspeedup"), 20, INT_MAX, effect, - 0); + c = create_curse(u, &sh->attribs, ct_find("shipspeedup"), 20, INT_MAX, + effect, 0); c_setflag(c, CURSE_NOAGE); ADDMSG(&u->faction->msgs, msg_message("use_speedsail", "unit speed", u, @@ -114,31 +121,30 @@ struct order *ord) const resource_type *rt_crystal = NULL; int i; - if (rt_crystal == NULL) { - rt_crystal = rt_find("antimagic"); - assert(rt_crystal != NULL); - } + rt_crystal = rt_find("antimagic"); + assert(rt_crystal != NULL); + for (i = 0; i != amount; ++i) { int effect, duration = 2; double force; spell *sp = find_spell("antimagiczone"); attrib **ap = &r->attribs; - unused_arg(ord); + UNUSED_ARG(ord); assert(sp); - /* Reduziert die Strke jedes Spruchs um effect */ + /* Reduziert die St�rke jedes Spruchs um effect */ effect = 5; - /* Hlt Sprche bis zu einem summierten Gesamtlevel von power aus. + /* H�lt Spr�che bis zu einem summierten Gesamtlevel von power aus. * Jeder Zauber reduziert die 'Lebenskraft' (vigour) der Antimagiezone * um seine Stufe */ force = effect * 20; /* Stufe 5 =~ 100 */ - /* Regionszauber auflsen */ + /* Regionszauber aufl�sen */ while (*ap && force > 0) { curse *c; attrib *a = *ap; - if (!fval(a->type, ATF_CURSE)) { + if (!(a->type->flags & ATF_CURSE)) { do { ap = &(*ap)->next; } while (*ap && a->type == (*ap)->type); @@ -146,7 +152,7 @@ struct order *ord) } c = (curse *)a->data.v; - /* Immunitt prfen */ + /* Immunit�t pr�fen */ if (c_flags(c) & CURSE_IMMUNE) { do { ap = &(*ap)->next; @@ -168,57 +174,12 @@ struct order *ord) } } use_pooled(u, rt_crystal, GET_DEFAULT, amount); - ADDMSG(&u->faction->msgs, msg_message("use_antimagiccrystal", - "unit region", u, r)); + ADDMSG(&u->region->msgs, msg_message("use_antimagiccrystal", "unit", u)); return 0; } -static int -use_instantartsculpture(struct unit *u, const struct item_type *itype, -int amount, struct order *ord) -{ - building *b; - - if (u->region->land == NULL) { - ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "error_onlandonly", "")); - return -1; - } - - b = new_building(bt_find("artsculpture"), u->region, u->faction->locale); - b->size = 100; - - ADDMSG(&u->region->msgs, msg_message("artsculpture_create", "unit region", - u, u->region)); - - use_pooled(u, itype->rtype, GET_DEFAULT, 1); - - return 0; -} - -static int -use_instantartacademy(struct unit *u, const struct item_type *itype, -int amount, struct order *ord) -{ - building *b; - - if (u->region->land == NULL) { - ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "error_onlandonly", "")); - return -1; - } - - b = new_building(bt_find("artacademy"), u->region, u->faction->locale); - b->size = 100; - - ADDMSG(&u->region->msgs, msg_message("artacademy_create", "unit region", u, - u->region)); - - use_pooled(u, itype->rtype, GET_DEFAULT, 1); - - return 0; -} - -#define BAGPIPEFRACTION dice_rand("2d4+2") -#define BAGPIPEDURATION dice_rand("2d10+4") +#define BAGPIPEFRACTION (dice(2,4)+2) +#define BAGPIPEDURATION (dice(2,10)+4) static int use_bagpipeoffear(struct unit *u, const struct item_type *itype, @@ -266,14 +227,204 @@ int amount, struct order *ord) return 0; } +static int +use_birthdayamulet(unit * u, const struct item_type *itype, int amount, +struct order *ord) +{ + direction_t d; + message *msg = msg_message("meow", ""); + + UNUSED_ARG(ord); + UNUSED_ARG(amount); + UNUSED_ARG(itype); + + add_message(&u->region->msgs, msg); + for (d = 0; d < MAXDIRECTIONS; d++) { + region *tr = rconnect(u->region, d); + if (tr) + add_message(&tr->msgs, msg); + } + msg_release(msg); + return 0; +} + +static int use_foolpotion(unit *u, const item_type *itype, int amount, + struct order *ord) +{ + int targetno = read_unitid(u->faction, u->region); + unit *target = findunit(targetno); + if (target == NULL || u->region != target->region) { + ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "feedback_unit_not_found", + "")); + return ECUSTOM; + } + if (effskill(u, SK_STEALTH, 0) <= effskill(target, SK_PERCEPTION, 0)) { + cmistake(u, ord, 64, MSG_EVENT); + return ECUSTOM; + } + ADDMSG(&u->faction->msgs, msg_message("givedumb", + "unit recipient amount", u, target, amount)); + + change_effect(target, itype->rtype->ptype, amount); + use_pooled(u, itype->rtype, GET_DEFAULT, amount); + return 0; +} + +static int +use_bloodpotion(struct unit *u, const struct item_type *itype, int amount, +struct order *ord) +{ + if (u->number == 0 || u_race(u) == get_race(RC_DAEMON)) { + change_effect(u, itype->rtype->ptype, 100 * amount); + } + else { + const race *irace = u_irace(u); + if (irace == u_race(u)) { + const race *rcfailure = rc_find("smurf"); + if (!rcfailure) { + rcfailure = rc_find("toad"); + } + if (rcfailure) { + trigger *trestore = trigger_changerace(u, u_race(u), irace); + if (trestore) { + int duration = 2 + rng_int() % 8; + + add_trigger(&u->attribs, "timer", trigger_timeout(duration, + trestore)); + u->irace = NULL; + u_setrace(u, rcfailure); + } + } + } + } + use_pooled(u, itype->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, + amount); + usetpotionuse(u, itype->rtype->ptype); + + ADDMSG(&u->faction->msgs, msg_message("usepotion", + "unit potion", u, itype->rtype)); + return 0; +} + +static int heal(unit * user, int effect) +{ + int req = unit_max_hp(user) * user->number - user->hp; + if (req > 0) { + req = MIN(req, effect); + effect -= req; + user->hp += req; + } + return effect; +} + +static int +use_healingpotion(struct unit *user, const struct item_type *itype, int amount, +struct order *ord) +{ + int effect = amount * 400; + unit *u = user->region->units; + effect = heal(user, effect); + while (effect > 0 && u != NULL) { + if (u->faction == user->faction) { + effect = heal(u, effect); + } + u = u->next; + } + use_pooled(user, itype->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, + amount); + usetpotionuse(user, itype->rtype->ptype); + + ADDMSG(&user->faction->msgs, msg_message("usepotion", + "unit potion", user, itype->rtype)); + return 0; +} + +/* ------------------------------------------------------------- */ +/* Kann auch von Nichtmagier benutzt werden, modifiziert Taktik fuer diese +* Runde um -1 - 4 Punkte. */ +static int +use_tacticcrystal(unit * u, const struct item_type *itype, int amount, + struct order *ord) +{ + int i; + for (i = 0; i != amount; ++i) { + int duration = 1; /* wirkt nur in dieser Runde */ + curse *c; + float effect; + float power = 5; /* Widerstand gegen Antimagiesprueche, ist in diesem + Fall egal, da der curse fuer den Kampf gelten soll, + der vor den Antimagiezaubern passiert */ + + effect = (float)(rng_int() % 6 - 1); + c = create_curse(u, &u->attribs, ct_find("skillmod"), power, + duration, effect, u->number); + c->data.i = SK_TACTICS; + UNUSED_ARG(ord); + } + use_pooled(u, itype->rtype, GET_DEFAULT, amount); + ADDMSG(&u->faction->msgs, msg_message("use_tacticcrystal", + "unit region", u, u->region)); + return 0; +} + +static int +use_mistletoe(struct unit *user, const struct item_type *itype, int amount, + struct order *ord) +{ + int mtoes = + get_pooled(user, itype->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, + user->number); + + if (user->number > mtoes) { + ADDMSG(&user->faction->msgs, msg_message("use_singleperson", + "unit item region command", user, itype->rtype, user->region, ord)); + return -1; + } + use_pooled(user, itype->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, + user->number); + a_add(&user->attribs, make_fleechance((float)1.0)); + ADDMSG(&user->faction->msgs, + msg_message("use_item", "unit item", user, itype->rtype)); + + return 0; +} + +static int use_warmthpotion(unit *u, const item_type *itype, + int amount, struct order *ord) +{ + if (u->faction->race == get_race(RC_INSECT)) { + u->flags |= UFL_WARMTH; + } + else { + /* nur fuer insekten: */ + cmistake(u, ord, 163, MSG_EVENT); + return ECUSTOM; + } + use_pooled(u, itype->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, + amount); + usetpotionuse(u, itype->rtype->ptype); + + ADDMSG(&u->faction->msgs, msg_message("usepotion", + "unit potion", u, itype->rtype)); + return 0; +} + void register_itemfunctions(void) { - register_demonseye(); - register_item_use(use_antimagiccrystal, "use_antimagiccrystal"); - register_item_use(use_instantartsculpture, "use_instantartsculpture"); + /* have tests: */ + register_item_use(use_mistletoe, "use_mistletoe"); + register_item_use(use_tacticcrystal, "use_dreameye"); register_item_use(use_studypotion, "use_studypotion"); + register_item_use(use_antimagiccrystal, "use_antimagic"); register_item_use(use_speedsail, "use_speedsail"); - register_item_use(use_instantartacademy, "use_instantartacademy"); register_item_use(use_bagpipeoffear, "use_bagpipeoffear"); register_item_use(use_aurapotion50, "use_aurapotion50"); + register_item_use(use_birthdayamulet, "use_aoc"); + register_item_use(use_foolpotion, "use_p7"); + register_item_use(use_bloodpotion, "use_peasantblood"); + register_item_use(use_healingpotion, "use_ointment"); + register_item_use(use_warmthpotion, "use_nestwarmth"); + + /* ungetestet: Wasser des Lebens */ + register_item_use(use_potion_delayed, "use_p2"); } diff --git a/src/items/CMakeLists.txt b/src/items/CMakeLists.txt index 0a2c581b4..37777f9e4 100644 --- a/src/items/CMakeLists.txt +++ b/src/items/CMakeLists.txt @@ -5,10 +5,6 @@ xerewards.test.c ) SET(_FILES -artrewards.c -demonseye.c -itemtypes.c -seed.c speedsail.c weapons.c xerewards.c diff --git a/src/items/artrewards.c b/src/items/artrewards.c deleted file mode 100644 index 8b6288f61..000000000 --- a/src/items/artrewards.c +++ /dev/null @@ -1,157 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#include -#include -#include "artrewards.h" - -/* kernel includes */ -#include -#include -#include -#include -#include -#include -#include -#include -#include - -/* util includes */ -#include -#include - -/* libc includes */ -#include -#include -#include -#include - -#define HORNRANGE 10 -#define HORNDURATION 3 -#define HORNIMMUNITY 30 - -static int age_peaceimmune(attrib * a, void *owner) -{ - unused_arg(owner); - return (--a->data.i > 0) ? AT_AGE_KEEP : AT_AGE_REMOVE; -} - -static attrib_type at_peaceimmune = { - "peaceimmune", - NULL, NULL, - age_peaceimmune, - a_writeint, - a_readint -}; - -static int -use_hornofdancing(struct unit *u, const struct item_type *itype, -int amount, struct order *ord) -{ - region *r; - int regionsPacified = 0; - - for (r = regions; r; r = r->next) { - if (distance(u->region, r) < HORNRANGE) { - if (a_find(r->attribs, &at_peaceimmune) == NULL) { - attrib *a; - - create_curse(u, &r->attribs, ct_find("peacezone"), - 20, HORNDURATION, 1.0, 0); - - a = a_add(&r->attribs, a_new(&at_peaceimmune)); - a->data.i = HORNIMMUNITY; - - ADDMSG(&r->msgs, msg_message("hornofpeace_r_success", - "unit region", u, u->region)); - - regionsPacified++; - } - else { - ADDMSG(&r->msgs, msg_message("hornofpeace_r_nosuccess", - "unit region", u, u->region)); - } - } - } - - if (regionsPacified > 0) { - ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "hornofpeace_u_success", - "pacified", regionsPacified)); - } - else { - ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "hornofpeace_u_nosuccess", - "")); - } - - return 0; -} - -#define SPEEDUP 2 - -static int -useonother_trappedairelemental(struct unit *u, int shipId, -const struct item_type *itype, int amount, struct order *ord) -{ - curse *c; - ship *sh; - - if (shipId <= 0) { - cmistake(u, ord, 20, MSG_MOVE); - return -1; - } - - sh = findshipr(u->region, shipId); - if (!sh) { - cmistake(u, ord, 20, MSG_MOVE); - return -1; - } - - c = - create_curse(u, &sh->attribs, ct_find("shipspeedup"), 20, INT_MAX, SPEEDUP, - 0); - c_setflag(c, CURSE_NOAGE); - - ADDMSG(&u->faction->msgs, msg_message("trappedairelemental_success", - "unit region command ship", u, u->region, ord, sh)); - - use_pooled(u, itype->rtype, GET_DEFAULT, 1); - - return 0; -} - -static int -use_trappedairelemental(struct unit *u, -const struct item_type *itype, int amount, struct order *ord) -{ - ship *sh = u->ship; - - if (sh == NULL) { - cmistake(u, ord, 20, MSG_MOVE); - return -1; - } - return useonother_trappedairelemental(u, sh->no, itype, amount, ord); -} - -void register_artrewards(void) -{ - at_register(&at_peaceimmune); - register_item_use(use_hornofdancing, "use_hornofdancing"); - register_item_use(use_trappedairelemental, "use_trappedairelemental"); - register_item_useonother(useonother_trappedairelemental, - "useonother_trappedairelemental"); -} diff --git a/src/items/artrewards.h b/src/items/artrewards.h deleted file mode 100644 index 779e7cc5f..000000000 --- a/src/items/artrewards.h +++ /dev/null @@ -1,30 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#ifndef H_ITM_ARTREWARDS -#define H_ITM_ARTREWARDS -#ifdef __cplusplus -extern "C" { -#endif - - extern void register_artrewards(void); - -#ifdef __cplusplus -} -#endif -#endif diff --git a/src/items/demonseye.c b/src/items/demonseye.c deleted file mode 100644 index 704e77f4c..000000000 --- a/src/items/demonseye.c +++ /dev/null @@ -1,66 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#include -#include -#include "demonseye.h" - -/* kernel includes */ -#include -#include -#include -#include -#include -#include - -/* util includes */ -#include - -/* libc includes */ -#include - -static int -summon_igjarjuk(struct unit *u, const struct item_type *itype, int amount, -struct order *ord) -{ - struct plane *p = rplane(u->region); - unused_arg(amount); - unused_arg(itype); - if (p != NULL) { - ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "use_realworld_only", "")); - return EUNUSABLE; - } - else { - assert(!"not implemented"); - return EUNUSABLE; - } -} - -static int -give_igjarjuk(struct unit *src, struct unit *d, const struct item_type *itype, -int n, struct order *ord) -{ - ADDMSG(&src->faction->msgs, msg_feedback(src, ord, "error_giveeye", "")); - return 0; -} - -void register_demonseye(void) -{ - register_item_use(summon_igjarjuk, "useigjarjuk"); - register_item_give(give_igjarjuk, "giveigjarjuk"); -} diff --git a/src/items/demonseye.h b/src/items/demonseye.h deleted file mode 100644 index 8d878a174..000000000 --- a/src/items/demonseye.h +++ /dev/null @@ -1,30 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#ifndef H_ITM_DEMONSEYE -#define H_ITM_DEMONSEYE -#ifdef __cplusplus -extern "C" { -#endif - - void register_demonseye(void); - -#ifdef __cplusplus -} -#endif -#endif diff --git a/src/items/itemtypes.c b/src/items/itemtypes.c deleted file mode 100644 index ca56b1273..000000000 --- a/src/items/itemtypes.c +++ /dev/null @@ -1,34 +0,0 @@ -/* - +-------------------+ Christian Schlittchen - | | Enno Rehling - | Eressea PBEM host | Katja Zedel - | (c) 1998 - 2003 | Henning Peters - | | Ingo Wilken - +-------------------+ Stefan Reich - - This program may not be used, modified or distributed - without prior permission by the authors of Eressea. - */ - -#include -#include -#include "itemtypes.h" - -#include "xerewards.h" -#include "artrewards.h" -#include "weapons.h" -#include "seed.h" - -void register_itemtypes(void) -{ - /* registering misc. functions */ - register_weapons(); - register_xerewards(); - register_artrewards(); -} - -void init_itemtypes(void) -{ - init_seed(); - init_mallornseed(); -} diff --git a/src/items/itemtypes.h b/src/items/itemtypes.h deleted file mode 100644 index ec705c55b..000000000 --- a/src/items/itemtypes.h +++ /dev/null @@ -1,25 +0,0 @@ -/* - +-------------------+ Christian Schlittchen - | | Enno Rehling - | Eressea PBEM host | Katja Zedel - | (c) 1998 - 2003 | Henning Peters - | | Ingo Wilken - +-------------------+ Stefan Reich - - This program may not be used, modified or distributed - without prior permission by the authors of Eressea. - */ - -#ifndef H_ITM_ITEMS -#define H_ITM_ITEMS -#ifdef __cplusplus -extern "C" { -#endif - - extern void init_itemtypes(void); - extern void register_itemtypes(void); - -#ifdef __cplusplus -} -#endif -#endif diff --git a/src/items/seed.c b/src/items/seed.c deleted file mode 100644 index 0e4b54e98..000000000 --- a/src/items/seed.c +++ /dev/null @@ -1,99 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#include -#include - -#include "seed.h" - -/* kernel includes */ -#include -#include -#include -#include - -/* util includes */ -#include -#include - -/* libc includes */ -#include - -static void produce_seeds(region * r, const resource_type * rtype, int norders) -{ - assert(r->land && r->land->trees[0] >= norders); - r->land->trees[0] -= norders; -} - -static int limit_seeds(const region * r, const resource_type * rtype) -{ - if (fval(r, RF_MALLORN)) { - return 0; - } - return r->land ? r->land->trees[0] : 0; -} - -void init_seed(void) -{ - attrib *a; - resource_limit *rdata; - resource_type *rtype; - - rtype = rt_find("seed"); - if (rtype != NULL) { - a = a_add(&rtype->attribs, a_new(&at_resourcelimit)); - rdata = (resource_limit *)a->data.v; - rdata->limit = limit_seeds; - rdata->produce = produce_seeds; - } -} - -/* mallorn */ - -static void -produce_mallornseeds(region * r, const resource_type * rtype, int norders) -{ - assert(fval(r, RF_MALLORN)); - r->land->trees[0] -= norders; -} - -static int limit_mallornseeds(const region * r, const resource_type * rtype) -{ - if (!fval(r, RF_MALLORN)) { - return 0; - } - return r->land ? r->land->trees[0] : 0; -} - -void init_mallornseed(void) -{ - attrib *a; - resource_limit *rdata; - resource_type *rtype; - - rtype = rt_find("mallornseed"); - if (rtype != NULL) { - rtype->flags |= RTF_LIMITED; - rtype->flags |= RTF_POOLED; - - a = a_add(&rtype->attribs, a_new(&at_resourcelimit)); - rdata = (resource_limit *)a->data.v; - rdata->limit = limit_mallornseeds; - rdata->produce = produce_mallornseeds; - } -} diff --git a/src/items/seed.h b/src/items/seed.h deleted file mode 100644 index c853adfde..000000000 --- a/src/items/seed.h +++ /dev/null @@ -1,31 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#ifndef H_ITM_SEED -#define H_ITM_SEED -#ifdef __cplusplus -extern "C" { -#endif - - extern void init_seed(void); - extern void init_mallornseed(void); - -#ifdef __cplusplus -} -#endif -#endif diff --git a/src/items/speedsail.c b/src/items/speedsail.c index 9d5aad747..cb40e9a8c 100644 --- a/src/items/speedsail.c +++ b/src/items/speedsail.c @@ -17,7 +17,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include #include "speedsail.h" /* kernel includes */ @@ -43,8 +42,8 @@ use_speedsail(struct unit *u, const struct item_type *itype, int amount, struct order *ord) { struct plane *p = rplane(u->region); - unused_arg(amount); - unused_arg(itype); + UNUSED_ARG(amount); + UNUSED_ARG(itype); if (p != NULL) { ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "use_realworld_only", "")); } diff --git a/src/items/weapons.c b/src/items/weapons.c index f5015e39a..a23110a81 100644 --- a/src/items/weapons.c +++ b/src/items/weapons.c @@ -17,7 +17,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include #include "weapons.h" #include "battle.h" @@ -107,7 +106,7 @@ int *casualties) } enemies = count_enemies(b, af, FIGHT_ROW, FIGHT_ROW, SELECT_ADVANCE); - enemies = _min(enemies, CATAPULT_ATTACKS); + enemies = MIN(enemies, CATAPULT_ATTACKS); if (enemies == 0) { return true; /* allow further attacks */ } diff --git a/src/items/xerewards.c b/src/items/xerewards.c index 98e099070..a6d1ad2ea 100644 --- a/src/items/xerewards.c +++ b/src/items/xerewards.c @@ -17,7 +17,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include #include "xerewards.h" #include "magic.h" @@ -73,7 +72,7 @@ struct order *ord) } for (i = 0; i != amount; ++i) { - sp += _max(25, max_spellpoints(u->region, u) / 2); + sp += MAX(25, max_spellpoints(u->region, u) / 2); change_spellpoints(u, sp); } diff --git a/src/json.c b/src/json.c index 007c3aeda..e6eacced9 100644 --- a/src/json.c +++ b/src/json.c @@ -1,8 +1,9 @@ #include "platform.h" -#include #include "json.h" +#include +#include #include #include #include @@ -22,12 +23,20 @@ int json_import(struct stream * out) { assert(out && out->api); while (!out->api->readln(out->handle, buffer, sizeof(buffer))) { size_t len = strlen(buffer); - data = (char *)realloc(data, sz + len + 1); + char *tmp; + tmp = (char *)realloc(data, sz + len + 1); + if (!tmp) { + log_fatal("allocation failure in json_import"); + free(data); + return 1; + } + data = tmp; memcpy(data + sz, buffer, len); sz += len; data[sz] = 0; } json = cJSON_Parse(data); + free(data); child = cJSON_GetObjectItem(json, "regions"); if (child && child->type == cJSON_Object) { cJSON *j; @@ -58,13 +67,13 @@ int json_export(stream * out, int flags) { cJSON *json, *root = cJSON_CreateObject(); assert(out && out->api); if (regions && (flags & EXPORT_REGIONS)) { - char id[32]; + char id[32]; /* TODO: static_assert(INT_MAX < 10^32) */ region * r; plane * p; cJSON_AddItemToObject(root, "planes", json = cJSON_CreateObject()); for (p = planes; p; p = p->next) { cJSON *data; - _snprintf(id, sizeof(id), "%u", p->id); + sprintf(id, "%d", p->id); /* safe, unless int is bigger than 64 bit */ cJSON_AddItemToObject(json, id, data = cJSON_CreateObject()); cJSON_AddNumberToObject(data, "x", p->minx); cJSON_AddNumberToObject(data, "y", p->miny); @@ -76,7 +85,7 @@ int json_export(stream * out, int flags) { cJSON_AddItemToObject(root, "regions", json = cJSON_CreateObject()); for (r = regions; r; r = r->next) { cJSON *data; - _snprintf(id, sizeof(id), "%u", r->uid); + sprintf(id, "%d", r->uid); /* safe, unless int is bigger than 64 bit */ cJSON_AddItemToObject(json, id, data = cJSON_CreateObject()); cJSON_AddNumberToObject(data, "x", r->x); cJSON_AddNumberToObject(data, "y", r->y); diff --git a/src/json.test.c b/src/json.test.c index 528b734a4..57cb6e136 100644 --- a/src/json.test.c +++ b/src/json.test.c @@ -16,7 +16,7 @@ static char *strip(char *str) { char *s = str, *b = str, *e = str; - // b is where text begins, e where it ends, s where we insert it. + /* b is where text begins, e where it ends, s where we insert it. */ for (; *b && isspace(*b); ++b) {}; for (e = b; *e && !isspace(*e); ++e) {}; while (*b) { diff --git a/src/jsreport.c b/src/jsreport.c index 4450d0165..dc22c760a 100644 --- a/src/jsreport.c +++ b/src/jsreport.c @@ -1,6 +1,5 @@ -#include "reports.h" +#include "reports.h" #include "jsreport.h" -#include "seen.h" #include #include #include diff --git a/src/kernel/CMakeLists.txt b/src/kernel/CMakeLists.txt index 9e829d4f4..b8423ae03 100644 --- a/src/kernel/CMakeLists.txt +++ b/src/kernel/CMakeLists.txt @@ -1,3 +1,4 @@ +cmake_minimum_required(VERSION 2.6) project(kernel C) SET(_TEST_FILES @@ -19,7 +20,7 @@ order.test.c plane.test.c pool.test.c race.test.c -# region.test.c +region.test.c # resources.test.c save.test.c ship.test.c @@ -53,6 +54,7 @@ pool.c race.c region.c resources.c +rules.c save.c ship.c skills.c @@ -64,6 +66,8 @@ xmlreader.c jsonconf.c ) +SET(VERSION_SRC ${PROJECT_NAME}/version.c PARENT_SCOPE) + FOREACH(_FILE ${_FILES}) LIST(APPEND _SOURCES ${PROJECT_NAME}/${_FILE}) ENDFOREACH(_FILE) diff --git a/src/kernel/alliance.c b/src/kernel/alliance.c index 7a65c4db5..0feb8407d 100644 --- a/src/kernel/alliance.c +++ b/src/kernel/alliance.c @@ -23,7 +23,6 @@ without prior permission by the authors of Eressea. #include #include #include -#include #include /* util includes */ @@ -32,10 +31,11 @@ without prior permission by the authors of Eressea. #include #include #include -#include #include #include +#include + /* libc includes */ #include #include @@ -50,7 +50,7 @@ void free_alliances(void) alliances = al->next; free(al->name); if (al->members) { - ql_free(al->members); + selist_free(al->members); } free(al); } @@ -83,7 +83,7 @@ alliance *new_alliance(int id, const char *name) { al = calloc(1, sizeof(alliance)); al->id = id; if (name) { - al->name = _strdup(name); + al->name = strdup(name); } else { al->flags |= ALF_NON_ALLIED; @@ -116,7 +116,7 @@ faction *alliance_get_leader(alliance * al) { if (!al->_leader) { if (al->members) { - al->_leader = (faction *)ql_get(al->members, 0); + al->_leader = (faction *)selist_get(al->members, 0); } } return al->_leader; @@ -357,19 +357,19 @@ void setalliance(faction * f, alliance * al) return; if (f->alliance != NULL) { int qi; - quicklist **flistp = &f->alliance->members; + selist **flistp = &f->alliance->members; - for (qi = 0; *flistp; ql_advance(flistp, &qi, 1)) { - faction *data = (faction *)ql_get(*flistp, qi); + for (qi = 0; *flistp; selist_advance(flistp, &qi, 1)) { + faction *data = (faction *)selist_get(*flistp, qi); if (data == f) { - ql_delete(flistp, qi); + selist_delete(flistp, qi); break; } } if (f->alliance->_leader == f) { if (f->alliance->members) { - f->alliance->_leader = (faction *)ql_get(f->alliance->members, 0); + f->alliance->_leader = (faction *)selist_get(f->alliance->members, 0); } else { f->alliance->_leader = NULL; @@ -379,7 +379,7 @@ void setalliance(faction * f, alliance * al) f->alliance = al; f->alliance_joindate = turn; if (al != NULL) { - ql_push(&al->members, f); + selist_push(&al->members, f); if (al->_leader == NULL) { al->_leader = f; } @@ -447,7 +447,7 @@ void alliance_setname(alliance * self, const char *name) { free(self->name); if (name) - self->name = _strdup(name); + self->name = strdup(name); else self->name = NULL; } diff --git a/src/kernel/alliance.h b/src/kernel/alliance.h index 907fc65f7..8e112e8c9 100644 --- a/src/kernel/alliance.h +++ b/src/kernel/alliance.h @@ -18,6 +18,9 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #ifndef H_KRNL_ALLIANCE #define H_KRNL_ALLIANCE + +#include + #ifdef __cplusplus extern "C" { #endif @@ -27,6 +30,7 @@ extern "C" { struct unit; struct faction; struct region; + struct selist; enum { ALLIANCE_KICK, @@ -46,7 +50,7 @@ extern "C" { typedef struct alliance { struct alliance *next; struct faction *_leader; - struct quicklist *members; + struct selist *members; int flags; int id; char *name; diff --git a/src/kernel/alliance.test.c b/src/kernel/alliance.test.c index 72a31a42c..f63767672 100644 --- a/src/kernel/alliance.test.c +++ b/src/kernel/alliance.test.c @@ -7,7 +7,7 @@ #include "alliance.h" #include #include -#include +#include #include @@ -17,7 +17,7 @@ typedef struct alliance_fixture { } alliance_fixture; static void setup_alliance(alliance_fixture *fix) { - test_create_world(); + test_setup(); fix->rc = test_create_race("human"); fix->f1 = test_create_faction(fix->rc); fix->f2 = test_create_faction(fix->rc); @@ -49,7 +49,6 @@ static void test_alliance_join(CuTest *tc) { alliance_fixture fix; alliance * al; - test_setup(); setup_alliance(&fix); CuAssertPtrEquals(tc, 0, fix.f1->alliance); CuAssertPtrEquals(tc, 0, fix.f2->alliance); @@ -76,10 +75,10 @@ static void test_alliance_dead_faction(CuTest *tc) { setalliance(f, al); setalliance(f2, al); CuAssertPtrEquals(tc, f, alliance_get_leader(al)); - CuAssertIntEquals(tc, 2, ql_length(al->members)); + CuAssertIntEquals(tc, 2, selist_length(al->members)); CuAssertPtrEquals(tc, al, f->alliance); destroyfaction(&factions); - CuAssertIntEquals(tc, 1, ql_length(al->members)); + CuAssertIntEquals(tc, 1, selist_length(al->members)); CuAssertPtrEquals(tc, f2, alliance_get_leader(al)); CuAssertPtrEquals(tc, NULL, f->alliance); CuAssertTrue(tc, !f->_alive); diff --git a/src/kernel/ally.c b/src/kernel/ally.c index 3152ab4b7..759d556f4 100644 --- a/src/kernel/ally.c +++ b/src/kernel/ally.c @@ -3,7 +3,6 @@ #include "types.h" #include "ally.h" -#include "save.h" #include "unit.h" #include "region.h" #include "group.h" @@ -77,7 +76,7 @@ int AllianceAuto(void) const char *str = config_get("alliance.auto"); value = 0; if (str != NULL) { - char *sstr = _strdup(str); + char *sstr = strdup(str); char *tok = strtok(sstr, " "); while (tok) { value |= ally_flag(tok, -1); @@ -133,19 +132,21 @@ attrib_type at_npcfaction = { */ int HelpMask(void) { - const char *str = config_get("rules.help.mask"); - int rule = 0; - if (str != NULL) { - char *sstr = _strdup(str); - char *tok = strtok(sstr, " "); - while (tok) { - rule |= ally_flag(tok, -1); - tok = strtok(NULL, " "); + static int config, rule = 0; + if (config_changed(&config)) { + const char *str = config_get("rules.help.mask"); + if (str != NULL) { + char *sstr = strdup(str); + char *tok = strtok(sstr, " "); + while (tok) { + rule |= ally_flag(tok, -1); + tok = strtok(NULL, " "); + } + free(sstr); + } + else { + rule = HELP_ALL; } - free(sstr); - } - else { - rule = HELP_ALL; } return rule; } @@ -155,7 +156,7 @@ static int AllianceRestricted(void) const char *str = config_get("alliance.restricted"); int rule = 0; if (str != NULL) { - char *sstr = _strdup(str); + char *sstr = strdup(str); char *tok = strtok(sstr, " "); while (tok) { rule |= ally_flag(tok, -1); diff --git a/src/kernel/build.c b/src/kernel/build.c index 6bc953241..88ab35fd2 100644 --- a/src/kernel/build.c +++ b/src/kernel/build.c @@ -24,6 +24,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "direction.h" #include "move.h" #include "study.h" +#include "guard.h" #include "laws.h" #include "skill.h" #include "lighthouse.h" @@ -113,7 +114,7 @@ static void destroy_road(unit * u, int nmax, struct order *ord) } for (u2 = r->units; u2; u2 = u2->next) { - if (u2->faction != u->faction && is_guard(u2, GUARD_TAX) + if (u2->faction != u->faction && is_guard(u2) && cansee(u2->faction, u->region, u, 0) && !alliedunit(u, u2->faction, HELP_GUARD)) { cmistake(u, ord, 70, MSG_EVENT); @@ -122,11 +123,11 @@ static void destroy_road(unit * u, int nmax, struct order *ord) } road = rroad(r, d); - n = _min(n, road); + n = MIN(n, road); if (n != 0) { region *r2 = rconnect(r, d); int willdo = effskill(u, SK_ROAD_BUILDING, 0) * u->number; - willdo = _min(willdo, n); + willdo = MIN(willdo, n); if (willdo == 0) { /* TODO: error message */ } @@ -248,7 +249,7 @@ int destroy_cmd(unit * u, struct order *ord) } if (con) { - /* TODO: Nicht an ZERSTRE mit Punktangabe angepasst! */ + /* TODO: Nicht an ZERST�RE mit Punktangabe angepasst! */ int c; for (c = 0; con->materials[c].number; ++c) { const requirement *rq = con->materials + c; @@ -326,7 +327,7 @@ void build_road(unit * u, int size, direction_t d) } if (size > 0) - left = _min(size, left); + left = MIN(size, left); /* baumaximum anhand der rohstoffe */ if (u_race(u) == get_race(RC_STONEGOLEM)) { n = u->number * GOLEM_STONE; @@ -338,7 +339,7 @@ void build_road(unit * u, int size, direction_t d) return; } } - left = _min(n, left); + left = MIN(n, left); /* n = maximum by skill. try to maximize it */ n = u->number * effsk; @@ -346,7 +347,7 @@ void build_road(unit * u, int size, direction_t d) const resource_type *ring = get_resourcetype(R_RING_OF_NIMBLEFINGER); item *itm = ring ? *i_find(&u->items, ring->itype) : 0; if (itm != NULL && itm->number > 0) { - int rings = _min(u->number, itm->number); + int rings = MIN(u->number, itm->number); n = n * ((roqf_factor() - 1) * rings + u->number) / u->number; } } @@ -354,15 +355,15 @@ void build_road(unit * u, int size, direction_t d) int dm = get_effect(u, oldpotiontype[P_DOMORE]); if (dm != 0) { int todo = (left - n + effsk - 1) / effsk; - todo = _min(todo, u->number); - dm = _min(dm, todo); + todo = MIN(todo, u->number); + dm = MIN(dm, todo); change_effect(u, oldpotiontype[P_DOMORE], -dm); n += dm * effsk; } /* Auswirkung Schaffenstrunk */ } /* make minimum of possible and available: */ - n = _min(left, n); + n = MIN(left, n); /* n is now modified by several special effects, so we have to * minimize it again to make sure the road will not grow beyond @@ -379,7 +380,7 @@ void build_road(unit * u, int size, direction_t d) else { use_pooled(u, get_resourcetype(R_STONE), GET_DEFAULT, n); /* Nur soviel PRODUCEEXP wie auch tatsaechlich gemacht wurde */ - produceexp(u, SK_ROAD_BUILDING, _min(n, u->number)); + produceexp(u, SK_ROAD_BUILDING, MIN(n, u->number)); } ADDMSG(&u->faction->msgs, msg_message("buildroad", "region unit size", r, u, n)); @@ -396,7 +397,7 @@ static int required(int size, int msize, int maxneed) * braucht man required von maxneed resourcen */ { int used; - + assert(msize > 0); used = size * maxneed / msize; if (size * maxneed % msize) ++used; @@ -427,6 +428,76 @@ int roqf_factor(void) return value; } +static int use_materials(unit *u, const construction *type, int n, int completed) { + if (type->materials) { + int c; + for (c = 0; type->materials[c].number; c++) { + const struct resource_type *rtype = type->materials[c].rtype; + int prebuilt = + required(completed, type->reqsize, type->materials[c].number); + int need = + required(completed + n, type->reqsize, type->materials[c].number); + int multi = 1; + int canuse = 100; /* normalization */ + if (building_is_active(u->building) && inside_building(u)) { + canuse = matmod(u->building->type->attribs, u, rtype, canuse); + } + if (canuse < 0) { + return canuse; /* pass errors to caller */ + } + canuse = matmod(type->attribs, u, rtype, canuse); + + assert(canuse % 100 == 0 + || !"only constant multipliers are implemented in build()"); + multi = canuse / 100; + if (canuse < 0) { + return canuse; /* pass errors to caller */ + } + use_pooled(u, rtype, GET_DEFAULT, + (need - prebuilt + multi - 1) / multi); + } + } + return 0; +} + +static int count_materials(unit *u, const construction *type, int n, int completed) +{ + if (type->materials) { + int c; + for (c = 0; n > 0 && type->materials[c].number; c++) { + const struct resource_type *rtype = type->materials[c].rtype; + int need, prebuilt; + int canuse = get_pooled(u, rtype, GET_DEFAULT, INT_MAX); + + if (building_is_active(u->building) && inside_building(u)) { + canuse = matmod(u->building->type->attribs, u, rtype, canuse); + } + + if (canuse < 0) + return canuse; /* pass errors to caller */ + canuse = matmod(type->attribs, u, rtype, canuse); + if (type->reqsize > 1) { + prebuilt = + required(completed, type->reqsize, type->materials[c].number); + for (; n;) { + need = + required(completed + n, type->reqsize, type->materials[c].number); + if (need - prebuilt <= canuse) + break; + --n; /* TODO: optimieren? */ + } + } + else { + int maxn = canuse / type->materials[c].number; + if (maxn < n) { + n = maxn; + } + } + } + } + return n; +} + /** Use up resources for building an object. * Build up to 'size' points of 'type', where 'completed' * of the first object have already been finished. return the @@ -485,13 +556,13 @@ int build(unit * u, const construction * ctype, int completed, int want) if (dm != 0) { /* Auswirkung Schaffenstrunk */ - dm = _min(dm, u->number); + dm = MIN(dm, u->number); change_effect(u, oldpotiontype[P_DOMORE], -dm); skills += dm * effsk; } } for (; want > 0 && skills > 0;) { - int c, n; + int err, n; /* skip over everything that's already been done: * type->improvement==NULL means no more improvements, but no size limits @@ -512,8 +583,8 @@ int build(unit * u, const construction * ctype, int completed, int want) /* Hier ist entweder maxsize == -1, oder completed < maxsize. * Andernfalls ist das Datenfile oder sonstwas kaputt... - * (enno): Nein, das ist fr Dinge, bei denen die nchste Ausbaustufe - * die gleiche wie die vorherige ist. z.b. gegenstnde. + * (enno): Nein, das ist f�r Dinge, bei denen die n�chste Ausbaustufe + * die gleiche wie die vorherige ist. z.b. gegenst�nde. */ if (type->maxsize > 0) { completed = completed % type->maxsize; @@ -544,7 +615,7 @@ int build(unit * u, const construction * ctype, int completed, int want) item *itm = ring ? *i_find(&u->items, ring->itype) : 0; int i = itm ? itm->number : 0; if (i > 0) { - int rings = _min(u->number, i); + int rings = MIN(u->number, i); n = n * ((roqf_factor() - 1) * rings + u->number) / u->number; } } @@ -552,80 +623,30 @@ int build(unit * u, const construction * ctype, int completed, int want) if (want < n) n = want; if (type->maxsize > 0) { - n = _min(type->maxsize - completed, n); + n = MIN(type->maxsize - completed, n); if (type->improvement == NULL) { want = n; } } - if (type->materials) - for (c = 0; n > 0 && type->materials[c].number; c++) { - const struct resource_type *rtype = type->materials[c].rtype; - int need, prebuilt; - int canuse = get_pooled(u, rtype, GET_DEFAULT, INT_MAX); - - if (building_is_active(u->building) && inside_building(u)) { - canuse = matmod(u->building->type->attribs, u, rtype, canuse); - } - - if (canuse < 0) - return canuse; /* pass errors to caller */ - canuse = matmod(type->attribs, u, rtype, canuse); - if (type->reqsize > 1) { - prebuilt = - required(completed, type->reqsize, type->materials[c].number); - for (; n;) { - need = - required(completed + n, type->reqsize, type->materials[c].number); - if (need - prebuilt <= canuse) - break; - --n; /* TODO: optimieren? */ - } - } - else { - int maxn = canuse / type->materials[c].number; - if (maxn < n) - n = maxn; - } - } + n = count_materials(u, type, n, completed); if (n <= 0) { if (made == 0) return ENOMATERIALS; else break; } - if (type->materials) - for (c = 0; type->materials[c].number; c++) { - const struct resource_type *rtype = type->materials[c].rtype; - int prebuilt = - required(completed, type->reqsize, type->materials[c].number); - int need = - required(completed + n, type->reqsize, type->materials[c].number); - int multi = 1; - int canuse = 100; /* normalization */ - if (building_is_active(u->building) && inside_building(u)) { - canuse = matmod(u->building->type->attribs, u, rtype, canuse); - } - if (canuse < 0) - return canuse; /* pass errors to caller */ - canuse = matmod(type->attribs, u, rtype, canuse); - - assert(canuse % 100 == 0 - || !"only constant multipliers are implemented in build()"); - multi = canuse / 100; - if (canuse < 0) - return canuse; /* pass errors to caller */ - - use_pooled(u, rtype, GET_DEFAULT, - (need - prebuilt + multi - 1) / multi); - } + err = use_materials(u, type, n, completed); + if (err < 0) { + return err; + } made += n; skills -= n * type->minskill; want -= n; completed = completed + n; } /* Nur soviel PRODUCEEXP wie auch tatsaechlich gemacht wurde */ - produceexp(u, ctype->skill, _min(made, u->number)); + produceexp(u, ctype->skill, MIN(made, u->number)); return made; } @@ -670,7 +691,7 @@ int maxbuild(const unit * u, const construction * cons) return 0; } else - maximum = _min(maximum, have / need); + maximum = MIN(maximum, have / need); } return maximum; } @@ -758,10 +779,8 @@ build_building(unit * u, const building_type * btype, int id, int want, order * return 0; } } - } - - if (b) built = b->size; + } if (n <= 0 || n == INT_MAX) { if (b == NULL) { if (btype->maxsize > 0) { @@ -816,11 +835,11 @@ build_building(unit * u, const building_type * btype, int id, int want, order * btname = LOC(lang, btype->_name); if (want - built <= 0) { - /* gebude fertig */ + /* geb�ude fertig */ new_order = default_order(lang); } else if (want != INT_MAX && btname) { - /* reduzierte restgre */ + /* reduzierte restgr��e */ const char *hasspace = strchr(btname, ' '); if (hasspace) { new_order = @@ -832,7 +851,7 @@ build_building(unit * u, const building_type * btype, int id, int want, order * } } else if (btname) { - /* Neues Haus, Befehl mit Gebudename */ + /* Neues Haus, Befehl mit Geb�udename */ const char *hasspace = strchr(btname, ' '); if (hasspace) { new_order = create_order(K_MAKE, lang, "\"%s\" %i", btname, b->no); @@ -880,7 +899,7 @@ static void build_ship(unit * u, ship * sh, int want) } if (sh->damage && can) { - int repair = _min(sh->damage, can * DAMAGE_SCALE); + int repair = MIN(sh->damage, can * DAMAGE_SCALE); n += repair / DAMAGE_SCALE; if (repair % DAMAGE_SCALE) ++n; @@ -924,7 +943,7 @@ order * ord) return; } if (want > 0) - want = _min(want, msize); + want = MIN(want, msize); else want = msize; @@ -983,7 +1002,7 @@ void continue_ship(unit * u, int want) return; } if (want > 0) - want = _min(want, msize); + want = MIN(want, msize); else want = msize; diff --git a/src/kernel/build.h b/src/kernel/build.h index 38fefb88a..7780a6cd2 100644 --- a/src/kernel/build.h +++ b/src/kernel/build.h @@ -45,9 +45,6 @@ extern "C" { int maxsize; /* maximum size of this type */ int reqsize; /* size of object using up 1 set of requirement. */ - int defense_bonus; /* protection bonus (defense) during combat */ - int close_combat_bonus; /* close combat attack bonus*/ - int ranged_bonus; /* ranged attack bonus */ requirement *materials; /* material req'd to build one object */ const struct building_type *btype; /* building type required to make this thing */ diff --git a/src/kernel/build.test.c b/src/kernel/build.test.c index 9ea473725..77efcfd73 100644 --- a/src/kernel/build.test.c +++ b/src/kernel/build.test.c @@ -200,7 +200,7 @@ static void test_build_with_potion(CuTest *tc) { CuAssertIntEquals(tc, 4, build(u, &bf.cons, 0, 20)); CuAssertIntEquals(tc, 2, get_effect(u, ptype)); set_level(u, SK_ARMORER, bf.cons.minskill); - scale_number(u, 2); // OBS: this scales the effects, too: + scale_number(u, 2); /* OBS: this scales the effects, too: */ CuAssertIntEquals(tc, 4, get_effect(u, ptype)); CuAssertIntEquals(tc, 4, build(u, &bf.cons, 0, 20)); CuAssertIntEquals(tc, 2, get_effect(u, ptype)); @@ -318,7 +318,7 @@ unit *test_create_guard(region *r, faction *f, race *rc) { f = test_create_faction(rc); } ug = test_create_unit(f, r); - guard(ug, GUARD_TAX); + setguard(ug, true); return ug; } @@ -345,7 +345,7 @@ static void test_build_destroy_road_guard(CuTest *tc) CuAssertPtrEquals(tc, 0, test_find_messagetype(f->msgs, "destroy_road")); test_clear_messages(f); - guard(ug, GUARD_NONE); + setguard(ug, false); CuAssertIntEquals(tc, 0, destroy_cmd(u, ord)); CuAssertIntEquals(tc, 99, rroad(r, D_EAST)); diff --git a/src/kernel/building.c b/src/kernel/building.c index 60b588912..6d0db8f43 100644 --- a/src/kernel/building.c +++ b/src/kernel/building.c @@ -22,13 +22,14 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "building.h" /* kernel includes */ +#include "curse.h" #include "item.h" #include "unit.h" #include "faction.h" #include "race.h" #include "region.h" #include "skill.h" -#include "save.h" +#include "terrain.h" #include "lighthouse.h" /* util includes */ @@ -40,7 +41,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include +#include #include #include @@ -53,6 +54,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include /* attributes includes */ +#include #include typedef struct building_typelist { @@ -60,18 +62,18 @@ typedef struct building_typelist { building_type *type; } building_typelist; -quicklist *buildingtypes = NULL; +selist *buildingtypes = NULL; /* Returns a building type for the (internal) name */ static building_type *bt_find_i(const char *name) { - quicklist *ql; + selist *ql; int qi; assert(name); - for (qi = 0, ql = buildingtypes; ql; ql_advance(&ql, &qi, 1)) { - building_type *btype = (building_type *)ql_get(ql, qi); + for (qi = 0, ql = buildingtypes; ql; selist_advance(&ql, &qi, 1)) { + building_type *btype = (building_type *)selist_get(ql, qi); if (strcmp(btype->_name, name) == 0) return btype; } @@ -83,15 +85,28 @@ const building_type *bt_find(const char *name) return bt_find_i(name); } +static int bt_changes = 1; + +bool bt_changed(int *cache) +{ + assert(cache); + if (*cache != bt_changes) { + *cache = bt_changes; + return true; + } + return false; +} + void bt_register(building_type * type) { if (type->init) { type->init(type); } - ql_push(&buildingtypes, (void *)type); + selist_push(&buildingtypes, (void *)type); + ++bt_changes; } -void free_buildingtype(void *ptr) { +static void free_buildingtype(void *ptr) { building_type *btype = (building_type *)ptr; free_construction(btype->construction); free(btype->maintenance); @@ -100,9 +115,10 @@ void free_buildingtype(void *ptr) { } void free_buildingtypes(void) { - ql_foreach(buildingtypes, free_buildingtype); - ql_free(buildingtypes); + selist_foreach(buildingtypes, free_buildingtype); + selist_free(buildingtypes); buildingtypes = 0; + ++bt_changes; } building_type *bt_get_or_create(const char *name) @@ -111,7 +127,7 @@ building_type *bt_get_or_create(const char *name) building_type *btype = bt_find_i(name); if (btype == NULL) { btype = calloc(sizeof(building_type), 1); - btype->_name = _strdup(name); + btype->_name = strdup(name); btype->auraregen = 1.0; btype->maxsize = -1; btype->capacity = 1; @@ -127,7 +143,7 @@ int buildingcapacity(const building * b) { if (b->type->capacity >= 0) { if (b->type->maxcapacity >= 0) { - return _min(b->type->maxcapacity, b->size * b->type->capacity); + return MIN(b->type->maxcapacity, b->size * b->type->capacity); } return b->size * b->type->capacity; } @@ -298,19 +314,24 @@ const building_type *findbuildingtype(const char *name, bn = bn->next; } if (!bn) { - quicklist *ql = buildingtypes; + selist *ql = buildingtypes; int qi; bn = (local_names *)calloc(sizeof(local_names), 1); bn->next = bnames; bn->lang = lang; - for (qi = 0, ql = buildingtypes; ql; ql_advance(&ql, &qi, 1)) { - building_type *btype = (building_type *)ql_get(ql, qi); + for (qi = 0, ql = buildingtypes; ql; selist_advance(&ql, &qi, 1)) { + building_type *btype = (building_type *)selist_get(ql, qi); const char *n = LOC(lang, btype->_name); - type.v = (void *)btype; - addtoken((struct tnode **)&bn->names, n, type); + if (!n) { + log_error("building type %s has no translation in %s", + btype->_name, locale_name(lang)); + } else { + type.v = (void *)btype; + addtoken((struct tnode **)&bn->names, n, type); + } } bnames = bn; } @@ -319,41 +340,26 @@ const building_type *findbuildingtype(const char *name, return (const building_type *)type.v; } -static int building_protection(const building * b, const unit * u, building_bonus bonus) +int cmp_castle_size(const building * b, const building * a) { - int i = 0; - int bsize = buildingeffsize(b, false); - const construction *cons = b->type->construction; - if (!cons) { - return 0; + if (!b || !(b->type->flags & BTF_FORTIFICATION) || !building_owner(b)) { + return -1; } - - for (i = 0; i < bsize; i++) - { - cons = cons->improvement; - } - - switch (bonus) - { - case DEFENSE_BONUS: - return cons->defense_bonus; - case CLOSE_COMBAT_ATTACK_BONUS: - return cons->close_combat_bonus; - case RANGED_ATTACK_BONUS: - return cons->ranged_bonus; - default: - return 0; + if (!a || !(a->type->flags & BTF_FORTIFICATION) || !building_owner(a)) { + return 1; } + return b->size - a->size; } -void register_buildings(void) +static const int castle_bonus[6] = { 0, 1, 3, 5, 8, 12 }; +static const int watch_bonus[3] = { 0, 1, 2 }; + +int building_protection(const building_type * btype, int stage) { - register_function((pf_generic)building_protection, - "building_protection"); - register_function((pf_generic)init_smithy, "init_smithy"); - register_function((pf_generic)castle_name, "castle_name"); - register_function((pf_generic)castle_name_2, "castle_name_2"); - register_function((pf_generic)fort_name, "fort_name"); + if (btype->maxsize < 0) { + return castle_bonus[MIN(stage, 5)]; + } + return watch_bonus[MIN(stage, 2)]; } void write_building_reference(const struct building *b, struct storage *store) @@ -413,8 +419,8 @@ building *new_building(const struct building_type * btype, region * r, bname = parameters[P_GEBAEUDE]; } assert(bname); - slprintf(buffer, sizeof(buffer), "%s %s", bname, buildingid(b)); - b->name = _strdup(bname); + slprintf(buffer, sizeof(buffer), "%s %s", bname, itoa36(b->no)); + b->name = strdup(bname); return b; } @@ -443,9 +449,9 @@ void remove_building(building ** blist, building * b) update_lighthouse(b); bunhash(b); - /* Falls Karawanserei, Damm oder Tunnel einstrzen, wird die schon - * gebaute Strae zur Hlfte vernichtet */ - // TODO: caravan, tunnel, dam modularization ? is_building_type ? + /* Falls Karawanserei, Damm oder Tunnel einst�rzen, wird die schon + * gebaute Strasse zur Haelfte vernichtet */ + /* TODO: caravan, tunnel, dam modularization ? is_building_type ? */ if (b->type == bt_caravan || b->type == bt_dam || b->type == bt_tunnel) { region *r = b->region; int d; @@ -557,7 +563,7 @@ void building_set_owner(struct unit * owner) static unit *building_owner_ex(const building * bld, const struct faction * last_owner) { unit *u, *heir = 0; - /* Eigentmer tot oder kein Eigentmer vorhanden. Erste lebende Einheit + /* Eigent�mer tot oder kein Eigent�mer vorhanden. Erste lebende Einheit * nehmen. */ for (u = bld->region->units; u; u = u->next) { if (u->building == bld) { @@ -588,10 +594,11 @@ static unit *building_owner_ex(const building * bld, const struct faction * last unit *building_owner(const building * bld) { + unit *owner; if (!bld) { return NULL; } - unit *owner = bld->_owner; + owner = bld->_owner; if (!owner || (owner->building != bld || owner->number <= 0)) { unit * heir = building_owner_ex(bld, owner ? owner->faction : 0); return (heir && heir->number > 0) ? heir : 0; @@ -613,7 +620,7 @@ void building_setname(building * self, const char *name) { free(self->name); if (name) - self->name = _strdup(name); + self->name = strdup(name); else self->name = NULL; } @@ -689,3 +696,226 @@ bool is_building_type(const struct building_type *btype, const char *name) { assert(btype); return name && strcmp(btype->_name, name)==0; } + +building *largestbuilding(const region * r, cmp_building_cb cmp_gt, + bool imaginary) +{ + building *b, *best = NULL; + + for (b = rbuildings(r); b; b = b->next) { + if (cmp_gt(b, best) <= 0) + continue; + if (!imaginary) { + const attrib *a = a_find(b->attribs, &at_icastle); + if (a) + continue; + } + best = b; + } + return best; +} +/* Lohn bei den einzelnen Burgstufen f�r Normale Typen, Orks, Bauern, + * Modifikation f�r St�dter. */ + +static const int wagetable[7][4] = { + { 10, 10, 11, -7 }, /* Baustelle */ + { 10, 10, 11, -5 }, /* Handelsposten */ + { 11, 11, 12, -3 }, /* Befestigung */ + { 12, 11, 13, -1 }, /* Turm */ + { 13, 12, 14, 0 }, /* Burg */ + { 14, 12, 15, 1 }, /* Festung */ + { 15, 13, 16, 2 } /* Zitadelle */ +}; + +static int +default_wage(const region * r, const faction * f, const race * rc, int in_turn) +{ + building *b = largestbuilding(r, &cmp_wage, false); + int esize = 0; + double wage; + static int ct_cache; + static const struct curse_type *drought_ct; + + if (ct_changed(&ct_cache)) { + drought_ct = ct_find("drought"); + } + if (b != NULL) { + /* TODO: this reveals imaginary castles */ + esize = buildingeffsize(b, false); + } + + if (f != NULL) { + int index = 0; + if (rc == get_race(RC_ORC) || rc == get_race(RC_SNOTLING)) { + index = 1; + } + wage = wagetable[esize][index]; + } + else { + if (is_mourning(r, in_turn)) { + wage = 10; + } + else if (fval(r->terrain, SEA_REGION)) { + wage = 11; + } + else { + wage = wagetable[esize][2]; + } + if (rule_blessed_harvest() == HARVEST_WORK) { + /* E1 rules */ + wage += curse_geteffect(get_curse(r->attribs, ct_find("blessedharvest"))); + } + } + + /* Artsculpture: Income +5 */ + for (b = r->buildings; b; b = b->next) { + if (is_building_type(b->type, "artsculpture")) { + wage += 5; + } + } + + if (r->attribs) { + attrib *a; + const struct curse_type *ctype; + /* Godcurse: Income -10 */ + ctype = ct_find("godcursezone"); + if (ctype && curse_active(get_curse(r->attribs, ctype))) { + wage = MAX(0, wage - 10); + } + + /* Bei einer D�rre verdient man nur noch ein Viertel */ + if (drought_ct) { + curse *c = get_curse(r->attribs, drought_ct); + if (curse_active(c)) + wage /= curse_geteffect(c); + } + + a = a_find(r->attribs, &at_reduceproduction); + if (a) { + wage = (wage * a->data.sa[0]) / 100; + } + } + return (int)wage; +} + +static int +minimum_wage(const region * r, const faction * f, const race * rc, int in_turn) +{ + if (f && rc) { + return rc->maintenance; + } + return default_wage(r, f, rc, in_turn); +} + +/* Gibt Arbeitslohn f�r entsprechende Rasse zur�ck, oder f�r +* die Bauern wenn f == NULL. */ +int wage(const region * r, const faction * f, const race * rc, int in_turn) +{ + if (global.functions.wage) { + return global.functions.wage(r, f, rc, in_turn); + } + return default_wage(r, f, rc, in_turn); +} + +int cmp_wage(const struct building *b, const building * a) +{ + if (is_building_type(b->type, "castle")) { + if (!a) + return 1; + if (b->size > a->size) + return 1; + if (b->size == a->size) + return 0; + } + return -1; +} + +bool is_owner_building(const struct building * b) +{ + region *r = b->region; + if (b->type->taxes && r->land && r->land->ownership) { + unit *u = building_owner(b); + return u && u->faction == r->land->ownership->owner; + } + return false; +} + +int cmp_taxes(const building * b, const building * a) +{ + faction *f = region_get_owner(b->region); + if (b->type->taxes) { + unit *u = building_owner(b); + if (!u) { + return -1; + } + else if (a) { + int newsize = buildingeffsize(b, false); + double newtaxes = b->type->taxes(b, newsize); + int oldsize = buildingeffsize(a, false); + double oldtaxes = a->type->taxes(a, oldsize); + + if (newtaxes < oldtaxes) + return -1; + else if (newtaxes > oldtaxes) + return 1; + else if (b->size < a->size) + return -1; + else if (b->size > a->size) + return 1; + else { + if (u && u->faction == f) { + u = building_owner(a); + if (u && u->faction == f) + return -1; + return 1; + } + } + } + else { + return 1; + } + } + return -1; +} + +int cmp_current_owner(const building * b, const building * a) +{ + faction *f = region_get_owner(b->region); + + assert(rule_region_owners()); + if (f && b->type->taxes) { + unit *u = building_owner(b); + if (!u || u->faction != f) + return -1; + if (a) { + int newsize = buildingeffsize(b, false); + double newtaxes = b->type->taxes(b, newsize); + int oldsize = buildingeffsize(a, false); + double oldtaxes = a->type->taxes(a, oldsize); + + if (newtaxes > oldtaxes) { + return 1; + } + if (newtaxes < oldtaxes) { + return -1; + } + if (newsize != oldsize) { + return newsize - oldsize; + } + return (b->size - a->size); + } + else { + return 1; + } + } + return -1; +} + +void register_buildings(void) +{ + register_function((pf_generic)minimum_wage, "minimum_wage"); + register_function((pf_generic)init_smithy, "init_smithy"); + register_function((pf_generic)castle_name, "castle_name"); + register_function((pf_generic)castle_name_2, "castle_name_2"); + register_function((pf_generic)fort_name, "fort_name"); +} diff --git a/src/kernel/building.h b/src/kernel/building.h index 587197276..6d66aa9ab 100644 --- a/src/kernel/building.h +++ b/src/kernel/building.h @@ -22,6 +22,9 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include +#include +#include + #ifdef __cplusplus extern "C" { #endif @@ -31,7 +34,6 @@ extern "C" { /* maintenance::flags */ #define MTF_NONE 0x00 #define MTF_VARIABLE 0x01 /* resource usage scales with size */ -#define MTF_VITAL 0x02 /* if resource missing, building may crash */ typedef struct maintenance { const struct resource_type *rtype; /* type of resource required */ @@ -49,22 +51,16 @@ extern "C" { #define BTF_MAGIC 0x40 /* magical effect */ #define BTF_ONEPERTURN 0x80 /* one one sizepoint can be added per turn */ #define BTF_NAMECHANGE 0x100 /* name and description can be changed more than once */ -#define BTF_FORTIFICATION 0x200 /* safe from monsters */ - - typedef enum { - DEFENSE_BONUS, - CLOSE_COMBAT_ATTACK_BONUS, // TODO: only DEFENSE_BONUS is in use? - RANGED_ATTACK_BONUS, - } building_bonus; +#define BTF_FORTIFICATION 0x200 /* building_protection, safe from monsters */ typedef struct building_type { char *_name; int flags; /* flags */ - int capacity; /* Kapazitt pro Grenpunkt */ - int maxcapacity; /* Max. Kapazitt */ + int capacity; /* Kapazit�t pro Gr��enpunkt */ + int maxcapacity; /* Max. Kapazit�t */ int maxsize; /* how big can it get, with all the extensions? */ - int magres; /* how well it resists against spells */ + variant magres; /* how well it resists against spells */ int magresbonus; /* bonus it gives the target against spells */ int fumblebonus; /* bonus that reduces fumbling */ double auraregen; /* modifier for aura regeneration inside building */ @@ -75,15 +71,17 @@ extern "C" { const struct building * b, int size); void(*init) (struct building_type *); void(*age) (struct building *); - int(*protection) (const struct building *, const struct unit *, building_bonus bonus); double(*taxes) (const struct building *, int size); struct attrib *attribs; } building_type; - extern struct quicklist *buildingtypes; + extern struct selist *buildingtypes; extern struct attrib_type at_building_action; + int cmp_castle_size(const struct building *b, const struct building *a); + int building_protection(const struct building_type *btype, int stage); building_type *bt_get_or_create(const char *name); + bool bt_changed(int *cache); const building_type *bt_find(const char *name); void free_buildingtypes(void); void register_buildings(void); @@ -131,7 +129,17 @@ extern "C" { int id, int size, struct order *ord); bool building_finished(const struct building *b); - /* Alte Gebudetypen: */ + int wage(const struct region *r, const struct faction *f, + const struct race *rc, int in_turn); + + typedef int(*cmp_building_cb) (const struct building * b, + const struct building * a); + struct building *largestbuilding(const struct region *r, cmp_building_cb, + bool imaginary); + int cmp_wage(const struct building *b, const struct building *bother); + int cmp_taxes(const struct building *b, const struct building *bother); + int cmp_current_owner(const struct building *b, + const struct building *bother); /* old functions, still in build.c: */ int buildingeffsize(const building * b, int imaginary); diff --git a/src/kernel/building.test.c b/src/kernel/building.test.c index 2f6fa6e34..3f415a913 100644 --- a/src/kernel/building.test.c +++ b/src/kernel/building.test.c @@ -17,16 +17,20 @@ static void test_register_building(CuTest * tc) { building_type *btype; + int cache = 0; test_cleanup(); btype = (building_type *)calloc(sizeof(building_type), 1); - btype->_name = _strdup("herp"); + btype->_name = strdup("herp"); + CuAssertIntEquals(tc, true, bt_changed(&cache)); + CuAssertIntEquals(tc, false, bt_changed(&cache)); bt_register(btype); + CuAssertIntEquals(tc, true, bt_changed(&cache)); CuAssertPtrNotNull(tc, bt_find("herp")); - // free(btype->_name); - // free(btype); + free_buildingtypes(); + CuAssertIntEquals(tc, true, bt_changed(&cache)); test_cleanup(); } @@ -36,18 +40,13 @@ static void test_building_set_owner(CuTest * tc) struct building *bld; struct unit *u1, *u2; struct faction *f; - const struct building_type *btype; - const struct race *human; - test_cleanup(); - test_create_world(); + test_setup(); - human = rc_find("human"); - btype = bt_find("castle"); - f = test_create_faction(human); - r = findregion(0, 0); + f = test_create_faction(NULL); + r = test_create_region(0, 0, NULL); - bld = test_create_building(r, btype); + bld = test_create_building(r, NULL); u1 = test_create_unit(f, r); u_set_building(u1, bld); CuAssertPtrEquals(tc, u1, building_owner(bld)); @@ -66,22 +65,13 @@ static void test_buildingowner_goes_to_next_when_empty(CuTest * tc) struct building *bld; struct unit *u, *u2; struct faction *f; - const struct building_type *btype; - const struct race *human; - test_cleanup(); - test_create_world(); + test_setup(); - human = rc_find("human"); - CuAssertPtrNotNull(tc, human); + f = test_create_faction(NULL); + r = test_create_plain(0, 0); - btype = bt_find("castle"); - CuAssertPtrNotNull(tc, btype); - - f = test_create_faction(human); - r = findregion(0, 0); - - bld = test_create_building(r, btype); + bld = test_create_building(r, NULL); CuAssertPtrNotNull(tc, bld); u = test_create_unit(f, r); @@ -101,22 +91,13 @@ static void test_buildingowner_goes_to_other_when_empty(CuTest * tc) struct building *bld; struct unit *u, *u2; struct faction *f; - const struct building_type *btype; - const struct race *human; - test_cleanup(); - test_create_world(); + test_setup(); - human = rc_find("human"); - CuAssertPtrNotNull(tc, human); + f = test_create_faction(NULL); + r = test_create_plain(0, 0); - btype = bt_find("castle"); - CuAssertPtrNotNull(tc, btype); - - f = test_create_faction(human); - r = findregion(0, 0); - - bld = test_create_building(r, btype); + bld = test_create_building(r, NULL); CuAssertPtrNotNull(tc, bld); u2 = test_create_unit(f, r); @@ -137,23 +118,14 @@ static void test_buildingowner_goes_to_same_faction_when_empty(CuTest * tc) struct building *bld; struct unit *u, *u2, *u3; struct faction *f1, *f2; - const struct building_type *btype; - const struct race *human; - test_cleanup(); - test_create_world(); + test_setup(); - human = rc_find("human"); - CuAssertPtrNotNull(tc, human); + f1 = test_create_faction(NULL); + f2 = test_create_faction(NULL); + r = test_create_plain(0, 0); - btype = bt_find("castle"); - CuAssertPtrNotNull(tc, btype); - - f1 = test_create_faction(human); - f2 = test_create_faction(human); - r = findregion(0, 0); - - bld = test_create_building(r, btype); + bld = test_create_building(r, NULL); CuAssertPtrNotNull(tc, bld); u2 = test_create_unit(f2, r); @@ -177,22 +149,12 @@ static void test_buildingowner_goes_to_next_after_leave(CuTest * tc) struct building *bld; struct unit *u, *u2; struct faction *f; - const struct building_type *btype; - const struct race *human; - test_cleanup(); - test_create_world(); + test_setup(); + f = test_create_faction(NULL); + r = test_create_plain(0, 0); - human = rc_find("human"); - CuAssertPtrNotNull(tc, human); - - btype = bt_find("castle"); - CuAssertPtrNotNull(tc, btype); - - f = test_create_faction(human); - r = findregion(0, 0); - - bld = test_create_building(r, btype); + bld = test_create_building(r, NULL); CuAssertPtrNotNull(tc, bld); u = test_create_unit(f, r); @@ -212,22 +174,13 @@ static void test_buildingowner_goes_to_other_after_leave(CuTest * tc) struct building *bld; struct unit *u, *u2; struct faction *f; - const struct building_type *btype; - const struct race *human; - test_cleanup(); - test_create_world(); + test_setup(); - human = rc_find("human"); - CuAssertPtrNotNull(tc, human); + f = test_create_faction(NULL); + r = test_create_plain(0, 0); - btype = bt_find("castle"); - CuAssertPtrNotNull(tc, btype); - - f = test_create_faction(human); - r = findregion(0, 0); - - bld = test_create_building(r, btype); + bld = test_create_building(r, NULL); CuAssertPtrNotNull(tc, bld); u2 = test_create_unit(f, r); @@ -247,23 +200,14 @@ static void test_buildingowner_goes_to_same_faction_after_leave(CuTest * tc) struct building *bld; struct unit *u, *u2, *u3; struct faction *f1, *f2; - const struct building_type *btype; - const struct race *human; - test_cleanup(); - test_create_world(); + test_setup(); - human = rc_find("human"); - CuAssertPtrNotNull(tc, human); + f1 = test_create_faction(NULL); + f2 = test_create_faction(NULL); + r = test_create_plain(0, 0); - btype = bt_find("castle"); - CuAssertPtrNotNull(tc, btype); - - f1 = test_create_faction(human); - f2 = test_create_faction(human); - r = findregion(0, 0); - - bld = test_create_building(r, btype); + bld = test_create_building(r, NULL); CuAssertPtrNotNull(tc, bld); u2 = test_create_unit(f2, r); @@ -289,22 +233,13 @@ static void test_buildingowner_resets_when_empty(CuTest * tc) struct building *bld; struct unit *u; struct faction *f; - const struct building_type *btype; - const struct race *human; - test_cleanup(); - test_create_world(); + test_setup(); - human = rc_find("human"); - CuAssertPtrNotNull(tc, human); + f = test_create_faction(NULL); + r = test_create_plain(0, 0); - btype = bt_find("castle"); - CuAssertPtrNotNull(tc, btype); - - f = test_create_faction(human); - r = findregion(0, 0); - - bld = test_create_building(r, btype); + bld = test_create_building(r, NULL); CuAssertPtrNotNull(tc, bld); u = test_create_unit(f, r); @@ -324,22 +259,13 @@ void test_buildingowner_goes_to_empty_unit_after_leave(CuTest * tc) struct building *bld; struct unit *u1, *u2, *u3; struct faction *f1; - const struct building_type *btype; - const struct race *human; - test_cleanup(); - test_create_world(); + test_setup(); - human = rc_find("human"); - CuAssertPtrNotNull(tc, human); + f1 = test_create_faction(NULL); + r = test_create_plain(0, 0); - btype = bt_find("castle"); - CuAssertPtrNotNull(tc, btype); - - f1 = test_create_faction(human); - r = findregion(0, 0); - - bld = test_create_building(r, btype); + bld = test_create_building(r, NULL); CuAssertPtrNotNull(tc, bld); u1 = test_create_unit(f1, r); @@ -372,13 +298,12 @@ static void test_btype_defaults(CuTest *tc) { CuAssertTrue(tc, !btype->name); CuAssertTrue(tc, !btype->init); CuAssertTrue(tc, !btype->age); - CuAssertTrue(tc, !btype->protection); CuAssertTrue(tc, !btype->taxes); CuAssertDblEquals(tc, 1.0, btype->auraregen, 0.0); CuAssertIntEquals(tc, -1, btype->maxsize); CuAssertIntEquals(tc, 1, btype->capacity); CuAssertIntEquals(tc, -1, btype->maxcapacity); - CuAssertIntEquals(tc, 0, btype->magres); + CuAssertIntEquals(tc, 0, btype->magres.sa[0]); CuAssertIntEquals(tc, 0, btype->magresbonus); CuAssertIntEquals(tc, 0, btype->fumblebonus); CuAssertIntEquals(tc, 0, btype->flags); @@ -391,18 +316,17 @@ static void test_buildingtype_exists(CuTest * tc) building *b; building_type *btype, *btype2; - test_cleanup(); - test_create_world(); + test_setup(); - btype2 = bt_get_or_create("castle"); + btype2 = test_create_buildingtype("castle"); assert(btype2); - btype = test_create_buildingtype("Hodor"); + btype = test_create_buildingtype("lighhouse"); btype->maxsize = 10; - r = findregion(-1, 0); - b = new_building(btype, r, default_locale); - b->size = 10; + r = test_create_plain(0, 0); + b = test_create_building(r, btype); CuAssertPtrNotNull(tc, b); + b->size = 10; CuAssertTrue(tc, !buildingtype_exists(r, NULL, false)); CuAssertTrue(tc, !buildingtype_exists(r, btype2, false)); @@ -489,12 +413,61 @@ static void test_building_type(CuTest *tc) { test_cleanup(); } +static void test_cmp_castle_size(CuTest *tc) { + region *r; + building *b1, *b2; + unit *u1, *u2; + + test_setup(); + r = test_create_region(0, 0, 0); + b1 = test_create_building(r, NULL); + b2 = test_create_building(r, NULL); + u1 = test_create_unit(test_create_faction(0), r); + u_set_building(u1, b1); + u2 = test_create_unit(test_create_faction(0), r); + u_set_building(u2, b2); + b1->size = 5; + b2->size = 10; + CuAssertTrue(tc, cmp_castle_size(b1, b2)<0); + CuAssertTrue(tc, cmp_castle_size(b2, b1)>0); + CuAssertTrue(tc, cmp_castle_size(b1, NULL)>0); + CuAssertTrue(tc, cmp_castle_size(NULL, b1)<0); + test_cleanup(); +} + +static void test_building_effsize(CuTest *tc) { + building *b; + building_type *btype; + construction *cons; + + test_setup(); + btype = bt_get_or_create("castle"); + cons = btype->construction = calloc(1, sizeof(construction)); + cons->maxsize = 5; + cons = cons->improvement = calloc(1, sizeof(construction)); + cons->maxsize = 5; + cons = cons->improvement = calloc(1, sizeof(construction)); + cons->maxsize = -1; + b = test_create_building(test_create_region(0,0,0), btype); + b->size = 1; + CuAssertIntEquals(tc, 0, buildingeffsize(b, false)); + b->size = 5; + CuAssertIntEquals(tc, 1, buildingeffsize(b, false)); + b->size = 10; + CuAssertIntEquals(tc, 2, buildingeffsize(b, false)); + b->size = 20; + CuAssertIntEquals(tc, 2, buildingeffsize(b, false)); + test_cleanup(); +} + CuSuite *get_building_suite(void) { CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_cmp_castle_size); SUITE_ADD_TEST(suite, test_register_building); SUITE_ADD_TEST(suite, test_btype_defaults); SUITE_ADD_TEST(suite, test_building_set_owner); + SUITE_ADD_TEST(suite, test_building_effsize); SUITE_ADD_TEST(suite, test_buildingowner_resets_when_empty); SUITE_ADD_TEST(suite, test_buildingowner_goes_to_next_when_empty); SUITE_ADD_TEST(suite, test_buildingowner_goes_to_other_when_empty); diff --git a/src/kernel/command.test.c b/src/kernel/command.test.c index f38c7e443..25e75fdc3 100644 --- a/src/kernel/command.test.c +++ b/src/kernel/command.test.c @@ -10,7 +10,9 @@ without prior permission by the authors of Eressea. */ +#include #include "command.h" + #include "unit.h" #include "order.h" diff --git a/src/kernel/config.c b/src/kernel/config.c index d78362f3c..a18fc6494 100644 --- a/src/kernel/config.c +++ b/src/kernel/config.c @@ -19,9 +19,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include -/* attributes includes */ -#include - /* kernel includes */ #include "alliance.h" #include "ally.h" @@ -66,11 +63,9 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include #include #include #include -#include #include #include @@ -96,76 +91,15 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include +#include struct settings global = { "Eressea", /* gamename */ }; bool lomem = false; -FILE *logfile; -bool battledebug = false; int turn = -1; -int NewbieImmunity(void) -{ - return config_get_int("NewbieImmunity", 0); -} - -bool IsImmune(const faction * f) -{ - return !fval(f, FFL_NPC) && f->age < NewbieImmunity(); -} - -bool ExpensiveMigrants(void) -{ - return config_get_int("study.expensivemigrants", 0) != 0; -} - -int LongHunger(const struct unit *u) -{ - if (u != NULL) { - if (!fval(u, UFL_HUNGER)) - return false; - if (u_race(u) == get_race(RC_DAEMON)) - return false; - } - return config_get_int("hunger.long", 0); -} - -int NMRTimeout(void) -{ - return config_get_int("nmr.timeout", 0); -} - -race_t old_race(const struct race * rc) -{ - race_t i; - for (i = 0; i != MAXRACES; ++i) { - if (get_race(i) == rc) return i; - } - return NORACE; -} - -helpmode helpmodes[] = { - { "all", HELP_ALL } - , - { "money", HELP_MONEY } - , - { "fight", HELP_FIGHT } - , - { "observe", HELP_OBSERVE } - , - { "give", HELP_GIVE } - , - { "guard", HELP_GUARD } - , - { "stealth", HELP_FSTEALTH } - , - { "travel", HELP_TRAVEL } - , - { NULL, 0 } -}; - const char *parameters[MAXPARAMS] = { "LOCALE", "ALLES", @@ -189,7 +123,7 @@ const char *parameters[MAXPARAMS] = { "TEMP", "FLIEHE", "GEBAEUDE", - "GIB", /* Fr HELFE */ + "GIB", /* F�r HELFE */ "KAEMPFE", "DURCHREISE", "BEWACHE", @@ -213,43 +147,6 @@ const char *parameters[MAXPARAMS] = { "ALLIANZ" }; -const char *report_options[MAX_MSG] = { - "Kampf", - "Ereignisse", - "Bewegung", - "Einkommen", - "Handel", - "Produktion", - "Orkvermehrung", - "Zauber", - "", - "" -}; - -const char *message_levels[ML_MAX] = { - "Wichtig", - "Debug", - "Fehler", - "Warnungen", - "Infos" -}; - -const char *options[MAXOPTIONS] = { - "AUSWERTUNG", - "COMPUTER", - "ZUGVORLAGE", - NULL, - "STATISTIK", - "DEBUG", - "ZIPPED", - "ZEITUNG", /* Option hat Sonderbehandlung! */ - NULL, - "ADRESSEN", - "BZIP2", - "PUNKTE", - "SHOWSKCHANGE" -}; - FILE *debug; void @@ -283,18 +180,6 @@ parse(keyword_t kword, int(*dofun) (unit *, struct order *), bool thisorder) } } -const struct race *findrace(const char *s, const struct locale *lang) -{ - void **tokens = get_translations(lang, UT_RACES); - variant token; - - assert(lang); - if (tokens && findtoken(*tokens, s, &token) == E_TOK_SUCCESS) { - return (const struct race *)token.v; - } - return NULL; -} - int findoption(const char *s, const struct locale *lang) { void **tokens = get_translations(lang, UT_OPTIONS); @@ -318,7 +203,7 @@ param_t findparam(const char *s, const struct locale * lang) void **tokens = get_translations(lang, UT_PARAMS); critbit_tree *cb = (critbit_tree *)*tokens; if (!cb) { - log_error("no parameters defined in locale %s", locale_name(lang)); + log_warning("no parameters defined in locale %s", locale_name(lang)); } else if (cb_find_prefix(cb, str, strlen(str), &match, 1, 0)) { cb_get_kv(match, &i, sizeof(int)); @@ -328,6 +213,27 @@ param_t findparam(const char *s, const struct locale * lang) return result; } +param_t findparam_block(const char *s, const struct locale *lang, bool any_locale) +{ + param_t p; + if (!s || s[0] == '@') { + return NOPARAM; + } + p = findparam(s, lang); + if (any_locale && p==NOPARAM) { + const struct locale *loc; + for (loc=locales;loc;loc=nextlocale(loc)) { + if (loc!=lang) { + p = findparam(s, loc); + if (p==P_FACTION || p==P_GAMENAME) { + break; + } + } + } + } + return p; +} + param_t findparam_ex(const char *s, const struct locale * lang) { param_t result = findparam(s, lang); @@ -365,42 +271,10 @@ unit *getnewunit(const region * r, const faction * f) return findnewunit(r, f, n); } -/* - Namen der Strukturen -------------------------------------- */ -char *untilde(char *ibuf) -{ - char *p = ibuf; - - while (*p) { - if (*p == '~') { - *p = ' '; - } - ++p; - } - return ibuf; -} - -building *largestbuilding(const region * r, cmp_building_cb cmp_gt, - bool imaginary) -{ - building *b, *best = NULL; - - for (b = rbuildings(r); b; b = b->next) { - if (cmp_gt(b, best) <= 0) - continue; - if (!imaginary) { - const attrib *a = a_find(b->attribs, &at_icastle); - if (a) - continue; - } - best = b; - } - return best; -} /* -- Erschaffung neuer Einheiten ------------------------------ */ static const char *forbidden[] = { "t", "te", "tem", "temp", NULL }; -// PEASANT: "b", "ba", "bau", "baue", "p", "pe", "pea", "peas" static int *forbidden_ids; int forbiddenid(int id) @@ -443,13 +317,6 @@ int newcontainerid(void) return random_no; } -int maxworkingpeasants(const struct region *r) -{ - int size = production(r); - int treespace = (rtrees(r, 2) + rtrees(r, 1) / 2) * TREESIZE; - return _max(size - treespace, _min(size / 10, 200)); -} - static const char * parameter_key(int i) { assert(i < MAXPARAMS && i >= 0); @@ -515,7 +382,7 @@ void init_locale(struct locale *lang) str = "gwyrrd illaun draig cerddor tybied"; } - sstr = _strdup(str); + sstr = strdup(str); tok = strtok(sstr, " "); while (tok) { const char *name; @@ -623,19 +490,19 @@ int check_param(const struct param *p, const char *key, const char *searchvalue) { int result = 0; const char *value = get_param(p, key); + char *v, *p_value; if (!value) { return 0; } - char *p_value = _strdup(value); - const char *delimiter = " ,;"; - char *v = strtok(p_value, delimiter); + p_value = strdup(value); + v = strtok(p_value, " ,;"); while (v != NULL) { if (strcmp(v, searchvalue) == 0) { result = 1; break; } - v = strtok(NULL, delimiter); + v = strtok(NULL, " ,;"); } free(p_value); return result; @@ -689,7 +556,7 @@ static const char * relpath(char *buf, size_t sz, const char *path) { static const char *g_datadir; const char *datapath(void) { - static char zText[MAX_PATH]; // FIXME: static return value + static char zText[4096]; if (g_datadir) return g_datadir; return relpath(zText, sizeof(zText), "data"); @@ -703,7 +570,7 @@ void set_datapath(const char *path) static const char *g_reportdir; const char *reportpath(void) { - static char zText[MAX_PATH]; // FIXME: static return value + static char zText[4096]; if (g_reportdir) return g_reportdir; return relpath(zText, sizeof(zText), "reports"); @@ -716,12 +583,12 @@ void set_reportpath(const char *path) int create_directories(void) { int err; - err = _mkdir(datapath()); + err = mkdir(datapath(), 0777); if (err) { if (errno == EEXIST) errno = 0; else return err; } - err = _mkdir(reportpath()); + err = mkdir(reportpath(), 0777); if (err && errno == EEXIST) { errno = 0; } @@ -730,7 +597,7 @@ int create_directories(void) { double get_param_flt(const struct param *p, const char *key, double def) { - const char *str = get_param(p, key); + const char *str = p ? get_param(p, key) : NULL; return str ? atof(str) : def; } @@ -739,7 +606,9 @@ void kernel_done(void) /* calling this function releases memory assigned to static variables, etc. * calling it is optional, e.g. a release server will most likely not do it. */ +#ifdef USE_LIBXML2 xml_done(); +#endif attrib_done(); item_done(); message_done(); @@ -750,118 +619,12 @@ void kernel_done(void) translation_done(); } -#ifndef HAVE_STRDUP -char *_strdup(const char *s) -{ - return strcpy((char *)malloc(sizeof(char) * (strlen(s) + 1)), s); -} -#endif - -/* Lohn bei den einzelnen Burgstufen fr Normale Typen, Orks, Bauern, - * Modifikation fr Stdter. */ - -static const int wagetable[7][4] = { - { 10, 10, 11, -7 }, /* Baustelle */ - { 10, 10, 11, -5 }, /* Handelsposten */ - { 11, 11, 12, -3 }, /* Befestigung */ - { 12, 11, 13, -1 }, /* Turm */ - { 13, 12, 14, 0 }, /* Burg */ - { 14, 12, 15, 1 }, /* Festung */ - { 15, 13, 16, 2 } /* Zitadelle */ -}; - -int cmp_wage(const struct building *b, const building * a) -{ - if (is_building_type(b->type, "castle")) { - if (!a) - return 1; - if (b->size > a->size) - return 1; - if (b->size == a->size) - return 0; - } - return -1; -} - -bool is_owner_building(const struct building * b) -{ - region *r = b->region; - if (b->type->taxes && r->land && r->land->ownership) { - unit *u = building_owner(b); - return u && u->faction == r->land->ownership->owner; - } - return false; -} - -int cmp_taxes(const building * b, const building * a) -{ - faction *f = region_get_owner(b->region); - if (b->type->taxes) { - unit *u = building_owner(b); - if (!u) { - return -1; - } - else if (a) { - int newsize = buildingeffsize(b, false); - double newtaxes = b->type->taxes(b, newsize); - int oldsize = buildingeffsize(a, false); - double oldtaxes = a->type->taxes(a, oldsize); - - if (newtaxes < oldtaxes) - return -1; - else if (newtaxes > oldtaxes) - return 1; - else if (b->size < a->size) - return -1; - else if (b->size > a->size) - return 1; - else { - if (u && u->faction == f) { - u = building_owner(a); - if (u && u->faction == f) - return -1; - return 1; - } - } - } - else { - return 1; - } - } - return -1; -} - -int cmp_current_owner(const building * b, const building * a) -{ - faction *f = region_get_owner(b->region); - - assert(rule_region_owners()); - if (f && b->type->taxes) { - unit *u = building_owner(b); - if (!u || u->faction != f) - return -1; - if (a) { - int newsize = buildingeffsize(b, false); - double newtaxes = b->type->taxes(b, newsize); - int oldsize = buildingeffsize(a, false); - double oldtaxes = a->type->taxes(a, oldsize); - - if (newtaxes != oldtaxes) - return (newtaxes > oldtaxes) ? 1 : -1; - if (newsize != oldsize) - return newsize - oldsize; - return (b->size - a->size); - } - else { - return 1; - } - } - return -1; -} - bool rule_stealth_other(void) { - int rule = config_get_int("stealth.faction.other", 1); + static int rule, config; + if (config_changed(&config)) { + rule = config_get_int("stealth.faction.other", 1); + } return rule != 0; } @@ -916,106 +679,11 @@ int rule_faction_limit(void) return rule; } -static int -default_wage(const region * r, const faction * f, const race * rc, int in_turn) -{ - building *b = largestbuilding(r, &cmp_wage, false); - int esize = 0; - double wage; - attrib *a; - const struct curse_type *ctype; - - if (b != NULL) { - /* TODO: this reveals imaginary castles */ - esize = buildingeffsize(b, false); - } - - if (f != NULL) { - int index = 0; - if (rc == get_race(RC_ORC) || rc == get_race(RC_SNOTLING)) { - index = 1; - } - wage = wagetable[esize][index]; - } - else { - if (is_mourning(r, in_turn)) { - wage = 10; - } - else if (fval(r->terrain, SEA_REGION)) { - wage = 11; - } - else if (fval(r, RF_ORCIFIED)) { - wage = wagetable[esize][1]; - } - else { - wage = wagetable[esize][2]; - } - if (rule_blessed_harvest() == HARVEST_WORK) { - /* E1 rules */ - wage += curse_geteffect(get_curse(r->attribs, ct_find("blessedharvest"))); - } - } - - /* Artsculpture: Income +5 */ - for (b = r->buildings; b; b = b->next) { - if (is_building_type(b->type, "artsculpture")) { - wage += 5; - } - } - - /* Godcurse: Income -10 */ - if (curse_active(get_curse(r->attribs, ct_find("godcursezone")))) { - wage = _max(0, wage - 10); - } - - /* Bei einer Drre verdient man nur noch ein Viertel */ - ctype = ct_find("drought"); - if (ctype) { - curse *c = get_curse(r->attribs, ctype); - if (curse_active(c)) - wage /= curse_geteffect(c); - } - - a = a_find(r->attribs, &at_reduceproduction); - if (a) - wage = (wage * a->data.sa[0]) / 100; - - return (int)wage; -} - -static int -minimum_wage(const region * r, const faction * f, const race * rc, int in_turn) -{ - if (f && rc) { - return rc->maintenance; - } - return default_wage(r, f, rc, in_turn); -} - -/* Gibt Arbeitslohn fr entsprechende Rasse zurck, oder fr -* die Bauern wenn f == NULL. */ -int wage(const region * r, const faction * f, const race * rc, int in_turn) -{ - if (global.functions.wage) { - return global.functions.wage(r, f, rc, in_turn); - } - return default_wage(r, f, rc, in_turn); -} - -int lovar(double xpct_x2) -{ - int n = (int)(xpct_x2 * 500) + 1; - if (n == 0) - return 0; - return (rng_int() % n + rng_int() % n) / 1000; -} - void kernel_init(void) { register_reports(); mt_clear(); translation_init(); - register_function((pf_generic)minimum_wage, "minimum_wage"); } static order * defaults[MAXLOCALES]; @@ -1042,23 +710,6 @@ order *default_order(const struct locale *lang) return result ? copy_order(result) : 0; } -int entertainmoney(const region * r) -{ - double n; - - if (is_cursed(r->attribs, C_DEPRESSION, 0)) { - return 0; - } - - n = rmoney(r) / ENTERTAINFRACTION; - - if (is_cursed(r->attribs, C_GENEROUS, 0)) { - n *= get_curseeffect(r->attribs, C_GENEROUS, 0); - } - - return (int)n; -} - int rule_give(void) { static int config; @@ -1069,11 +720,6 @@ int rule_give(void) return rule; } -bool markets_module(void) -{ - return (bool)config_get_int("modules.markets", 0); -} - static struct param *configuration; static int config_cache_key = 1; @@ -1086,6 +732,39 @@ bool config_changed(int *cache_key) { return false; } +#define MAXKEYS 16 +void config_set_from(const dictionary *d) +{ + int s, nsec = iniparser_getnsec(d); + for (s=0;s!=nsec;++s) { + char key[128]; + const char *sec = iniparser_getsecname(d, s); + int k, nkeys = iniparser_getsecnkeys(d, sec); + const char *keys[MAXKEYS]; + size_t slen = strlen(sec); + assert(nkeys <= MAXKEYS); + assert(slen r; ++c) { + *r++ = (char)toupper(*c); + } + *r = '\0'; + log_warning("game.mailcmd configuration is not set, using %s from game.name", result); + return result; + } + return param; +} + int game_id(void) { return config_get_int("game.id", 0); } - diff --git a/src/kernel/config.h b/src/kernel/config.h index 74565e25e..3b307bbdd 100644 --- a/src/kernel/config.h +++ b/src/kernel/config.h @@ -24,22 +24,19 @@ extern "C" { #endif /* this should always be the first thing included after platform.h */ +#include +#include #include "types.h" -struct param; -#define DISPLAYSIZE 8192 /* max. Lnge einer Beschreibung, incl trailing 0 */ + struct param; + struct _dictionary_; + +#define DISPLAYSIZE 8192 /* max. L�nge einer Beschreibung, incl trailing 0 */ #define ORDERSIZE (DISPLAYSIZE*2) /* max. length of an order */ -#define NAMESIZE 128 /* max. Lnge eines Namens, incl trailing 0 */ -#define IDSIZE 16 /* max. Lnge einer no (als String), incl trailing 0 */ -#define OBJECTIDSIZE (NAMESIZE+5+IDSIZE) /* max. Lnge der Strings, die - * von struct unitname, etc. zurckgegeben werden. ohne die 0 */ - - /* ----------------- Befehle ----------------------------------- */ - -#define want(option) (1<flags & (i)) #define fset(u, i) ((u)->flags |= (i)) @@ -48,20 +45,14 @@ struct param; int findoption(const char *s, const struct locale *lang); param_t findparam(const char *s, const struct locale *lang); + param_t findparam_block(const char *s, const struct locale *lang, bool any_locale); param_t findparam_ex(const char *s, const struct locale * lang); bool isparam(const char *s, const struct locale * lang, param_t param); param_t getparam(const struct locale *lang); -#define unitid(x) itoa36((x)->no) - -#define buildingid(x) itoa36((x)->no) -#define shipid(x) itoa36((x)->no) -#define factionid(x) itoa36((x)->no) -#define curseid(x) itoa36((x)->no) - const char * game_name(void); + const char * game_mailcmd(void); int game_id(void); - int lovar(double xpct_x2); /* returns a value between [0..xpct_2], generated with two dice */ void init_locale(struct locale *lang); @@ -69,20 +60,9 @@ struct param; int forbiddenid(int id); int newcontainerid(void); - char *untilde(char *s); - - typedef int(*cmp_building_cb) (const struct building * b, - const struct building * a); - struct building *largestbuilding(const struct region *r, cmp_building_cb, - bool imaginary); - int cmp_wage(const struct building *b, const struct building *bother); - int cmp_taxes(const struct building *b, const struct building *bother); - int cmp_current_owner(const struct building *b, - const struct building *bother); - bool rule_region_owners(void); - bool rule_stealth_other(void); // units can pretend to be another faction, TARNE PARTEI - bool rule_stealth_anon(void); // units can anonymize their faction, TARNE PARTEI [NICHT] + bool rule_stealth_other(void); /* units can pretend to be another faction, TARNE PARTEI */ + bool rule_stealth_anon(void); /* units can anonymize their faction, TARNE PARTEI [NICHT] */ int rule_alliance_limit(void); int rule_faction_limit(void); #define HARVEST_WORK 0x00 @@ -98,8 +78,6 @@ struct param; #define GIVE_DEFAULT (GIVE_SELF|GIVE_PEASANTS|GIVE_LUXURIES|GIVE_HERBS|GIVE_GOODS) int rule_give(void); - const struct race *findrace(const char *, const struct locale *); - /* grammatik-flags: */ #define GF_NONE 0 /* singular, ohne was dran */ @@ -110,34 +88,10 @@ struct param; #define GF_SPECIFIC 16 /* der, die, das vs. ein, eine */ #define GF_DETAILED 32 - /* mehr Informationen. z.b. strae zu 50% */ + /* mehr Informationen. z.b. stra�e zu 50% */ #define GF_PURE 64 /* untranslated */ -#define GUARD_NONE 0 -#define GUARD_TAX 1 - /* Verhindert Steuereintreiben */ -#define GUARD_MINING 2 - /* Verhindert Bergbau */ -#define GUARD_TREES 4 - /* Verhindert Waldarbeiten */ -#define GUARD_TRAVELTHRU 8 - /* Blockiert Durchreisende */ -#define GUARD_LANDING 16 - /* Verhindert Ausstieg + Weiterreise */ -#define GUARD_CREWS 32 - /* Verhindert Unterhaltung auf Schiffen */ -#define GUARD_RECRUIT 64 - /* Verhindert Rekrutieren */ -#define GUARD_PRODUCE 128 - /* Verhindert Abbau von Resourcen mit RTF_LIMITED */ -#define GUARD_ALL 0xFFFF - - int maxworkingpeasants(const struct region *r); - bool markets_module(void); - int wage(const struct region *r, const struct faction *f, - const struct race *rc, int in_turn); - const char *datapath(void); void set_datapath(const char *path); @@ -158,19 +112,12 @@ struct param; struct attrib *attribs; unsigned int data_turn; void *vm_state; - int data_version; /* TODO: eliminate in favor of gamedata.version */ - struct _dictionary_ *inifile; struct global_functions { int(*wage) (const struct region * r, const struct faction * f, const struct race * rc, int in_turn); } functions; } settings; - typedef struct helpmode { - const char *name; - int status; - } helpmode; - void set_param(struct param **p, const char *key, const char *value); const char *get_param(const struct param *p, const char *key); int get_param_int(const struct param *p, const char *key, int def); @@ -179,6 +126,7 @@ struct param; void free_params(struct param **pp); void config_set(const char *key, const char *value); + void config_set_from(const struct _dictionary_ *d); const char *config_get(const char *key); int config_get_int(const char *key, int def); double config_get_flt(const char *key, double def); @@ -186,32 +134,19 @@ struct param; bool config_changed(int *cache_key); char * join_path(const char *p1, const char *p2, char *dst, size_t len); - bool ExpensiveMigrants(void); - int NMRTimeout(void); - int LongHunger(const struct unit *u); - int NewbieImmunity(void); - bool IsImmune(const struct faction *f); struct order *default_order(const struct locale *lang); - int entertainmoney(const struct region *r); void init_parameters(struct locale *lang); void free_gamedata(void); void free_config(void); - extern struct helpmode helpmodes[]; extern const char *parameters[]; - extern const char *localenames[]; extern settings global; - extern bool battledebug; - extern bool sqlpatch; extern bool lomem; /* save memory */ extern int turn; - extern bool getunitpeasants; - - extern const char *options[MAXOPTIONS]; /* report options */ #ifdef __cplusplus } diff --git a/src/kernel/config.test.c b/src/kernel/config.test.c index 405587443..7acf8e948 100644 --- a/src/kernel/config.test.c +++ b/src/kernel/config.test.c @@ -9,6 +9,8 @@ #include #include +#include + #include #include @@ -49,7 +51,7 @@ static void test_read_unitid(CuTest *tc) { CuAssertIntEquals(tc, -1, read_unitid(u->faction, u->region)); free_order(ord); - // bug https://bugs.eressea.de/view.php?id=1685 + /* bug https://bugs.eressea.de/view.php?id=1685 */ ord = create_order(K_GIVE, lang, "##"); init_order(ord); CuAssertIntEquals(tc, -1, read_unitid(u->faction, u->region)); @@ -96,14 +98,14 @@ static void test_getunit(CuTest *tc) { CuAssertPtrEquals(tc, NULL, u2); free_order(ord); - // bug https://bugs.eressea.de/view.php?id=1685 + /* bug https://bugs.eressea.de/view.php?id=1685 */ ord = create_order(K_GIVE, lang, "TEMP ##"); init_order(ord); CuAssertIntEquals(tc, GET_NOTFOUND, getunit(u->region, u->faction, &u2)); CuAssertPtrEquals(tc, NULL, u2); free_order(ord); - // bug https://bugs.eressea.de/view.php?id=1685 + /* bug https://bugs.eressea.de/view.php?id=1685 */ ord = create_order(K_GIVE, lang, "##"); init_order(ord); CuAssertIntEquals(tc, GET_NOTFOUND, getunit(u->region, u->faction, &u2)); @@ -233,9 +235,61 @@ static void test_rules(CuTest *tc) { CuAssertIntEquals(tc, 1000, rule_faction_limit()); } +static void test_config_inifile(CuTest *tc) { + dictionary *ini; + test_setup(); + ini = dictionary_new(0); + dictionary_set(ini, "game", NULL); + iniparser_set(ini, "game:id", "42"); + iniparser_set(ini, "game:name", "Eressea"); + config_set_from(ini); + CuAssertStrEquals(tc, "Eressea", config_get("game.name")); + CuAssertStrEquals(tc, "Eressea", game_name()); + CuAssertIntEquals(tc, 42, game_id()); + iniparser_freedict(ini); + test_cleanup(); +} + +static void test_findparam(CuTest *tc) { + struct locale *en, *de; + test_setup(); + en = get_or_create_locale("en"); + locale_setstring(en, parameters[P_FACTION], "FACTION"); + CuAssertIntEquals(tc, NOPARAM, findparam("FACTION", en)); + init_parameters(en); + CuAssertIntEquals(tc, P_FACTION, findparam("FACTION", en)); + de = get_or_create_locale("de"); + locale_setstring(de, parameters[P_FACTION], "PARTEI"); + CuAssertIntEquals(tc, NOPARAM, findparam("PARTEI", de)); + init_parameters(de); + CuAssertIntEquals(tc, P_FACTION, findparam("PARTEI", de)); + CuAssertIntEquals(tc, NOPARAM, findparam("HODOR", de)); + + CuAssertIntEquals(tc, NOPARAM, findparam("PARTEI", en)); + CuAssertIntEquals(tc, NOPARAM, findparam_block("HODOR", de, false)); + CuAssertIntEquals(tc, P_FACTION, findparam_block("PARTEI", de, true)); + CuAssertIntEquals(tc, NOPARAM, findparam_block("PARTEI", en, false)); + CuAssertIntEquals(tc, P_FACTION, findparam_block("PARTEI", en, true)); + test_cleanup(); +} + +static void test_game_mailcmd(CuTest *tc) { + test_setup(); + CuAssertStrEquals(tc, "Eressea", game_name()); + CuAssertStrEquals(tc, "ERESSEA", game_mailcmd()); + config_set("game.name", "Hodor"); + CuAssertStrEquals(tc, "Hodor", game_name()); + CuAssertStrEquals(tc, "HODOR", game_mailcmd()); + config_set("game.mailcmd", "ERESSEA"); + CuAssertStrEquals(tc, "ERESSEA", game_mailcmd()); + test_cleanup(); +} + CuSuite *get_config_suite(void) { CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_findparam); + SUITE_ADD_TEST(suite, test_config_inifile); SUITE_ADD_TEST(suite, test_config_cache); SUITE_ADD_TEST(suite, test_get_set_param); SUITE_ADD_TEST(suite, test_param_int); @@ -244,6 +298,7 @@ CuSuite *get_config_suite(void) SUITE_ADD_TEST(suite, test_getunit); SUITE_ADD_TEST(suite, test_read_unitid); SUITE_ADD_TEST(suite, test_default_order); + SUITE_ADD_TEST(suite, test_game_mailcmd); SUITE_ADD_TEST(suite, test_rules); return suite; } diff --git a/src/kernel/connection.c b/src/kernel/connection.c index 9bbff5778..43caee729 100644 --- a/src/kernel/connection.c +++ b/src/kernel/connection.c @@ -21,7 +21,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "connection.h" #include "region.h" -#include "save.h" #include "terrain.h" #include "unit.h" @@ -30,7 +29,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include +#include #include #include @@ -132,7 +131,7 @@ static connection **get_borders_i(const region * r1, const region * r2) int key = reg_hashkey(r1); int k2 = reg_hashkey(r2); - key = _min(k2, key) % BORDER_MAXHASH; + key = MIN(k2, key) % BORDER_MAXHASH; bp = &borders[key]; while (*bp) { connection *b = *bp; @@ -212,7 +211,7 @@ border_type *find_bordertype(const char *name) { border_type *bt = bordertypes; - while (bt && strcmp(bt->__name, name)) + while (bt && strcmp(bt->__name, name)!=0) bt = bt->next; return bt; } @@ -259,31 +258,31 @@ void b_write(const connection * b, storage * store) bool b_transparent(const connection * b, const struct faction *f) { - unused_arg(b); - unused_arg(f); + UNUSED_ARG(b); + UNUSED_ARG(f); return true; } bool b_opaque(const connection * b, const struct faction * f) { - unused_arg(b); - unused_arg(f); + UNUSED_ARG(b); + UNUSED_ARG(f); return false; } bool b_blockall(const connection * b, const unit * u, const region * r) { - unused_arg(u); - unused_arg(r); - unused_arg(b); + UNUSED_ARG(u); + UNUSED_ARG(r); + UNUSED_ARG(b); return true; } bool b_blocknone(const connection * b, const unit * u, const region * r) { - unused_arg(u); - unused_arg(r); - unused_arg(b); + UNUSED_ARG(u); + UNUSED_ARG(r); + UNUSED_ARG(b); return false; } @@ -295,39 +294,39 @@ bool b_rvisible(const connection * b, const region * r) bool b_fvisible(const connection * b, const struct faction * f, const region * r) { - unused_arg(r); - unused_arg(f); - unused_arg(b); + UNUSED_ARG(r); + UNUSED_ARG(f); + UNUSED_ARG(b); return true; } bool b_uvisible(const connection * b, const unit * u) { - unused_arg(u); - unused_arg(b); + UNUSED_ARG(u); + UNUSED_ARG(b); return true; } bool b_rinvisible(const connection * b, const region * r) { - unused_arg(r); - unused_arg(b); + UNUSED_ARG(r); + UNUSED_ARG(b); return false; } bool b_finvisible(const connection * b, const struct faction * f, const region * r) { - unused_arg(r); - unused_arg(f); - unused_arg(b); + UNUSED_ARG(r); + UNUSED_ARG(f); + UNUSED_ARG(b); return false; } bool b_uinvisible(const connection * b, const unit * u) { - unused_arg(u); - unused_arg(b); + UNUSED_ARG(u); + UNUSED_ARG(b); return false; } @@ -346,7 +345,7 @@ attrib_type at_countdown = { void age_borders(void) { - quicklist *deleted = NULL, *ql; + selist *deleted = NULL, *ql; int i; for (i = 0; i != BORDER_MAXHASH; ++i) { @@ -356,17 +355,17 @@ void age_borders(void) for (; b; b = b->next) { if (b->type->age) { if (b->type->age(b) == AT_AGE_REMOVE) { - ql_push(&deleted, b); + selist_push(&deleted, b); } } } } } - for (ql = deleted, i = 0; ql; ql_advance(&ql, &i, 1)) { - connection *b = (connection *)ql_get(ql, i); + for (ql = deleted, i = 0; ql; selist_advance(&ql, &i, 1)) { + connection *b = (connection *)selist_get(ql, i); erase_border(b); } - ql_free(deleted); + selist_free(deleted); } /******** @@ -381,9 +380,9 @@ static const char *b_namewall(const connection * b, const region * r, { const char *bname = "wall"; - unused_arg(f); - unused_arg(r); - unused_arg(b); + UNUSED_ARG(f); + UNUSED_ARG(r); + UNUSED_ARG(b); if (gflags & GF_ARTICLE) bname = "a_wall"; if (gflags & GF_PURE) @@ -422,9 +421,9 @@ border_type bt_noway = { static const char *b_namefogwall(const connection * b, const region * r, const struct faction *f, int gflags) { - unused_arg(f); - unused_arg(b); - unused_arg(r); + UNUSED_ARG(f); + UNUSED_ARG(b); + UNUSED_ARG(r); if (gflags & GF_PURE) return "fogwall"; if (gflags & GF_ARTICLE) @@ -435,7 +434,7 @@ static const char *b_namefogwall(const connection * b, const region * r, static bool b_blockfogwall(const connection * b, const unit * u, const region * r) { - unused_arg(b); + UNUSED_ARG(b); if (!u) return true; return (bool)(effskill(u, SK_PERCEPTION, r) > 4); /* Das ist die alte Nebelwand */ @@ -460,8 +459,8 @@ static const char *b_nameillusionwall(const connection * b, const region * r, const struct faction *f, int gflags) { int fno = b->data.i; - unused_arg(b); - unused_arg(r); + UNUSED_ARG(b); + UNUSED_ARG(r); if (gflags & GF_PURE) return (f && fno == f->no) ? "illusionwall" : "wall"; if (gflags & GF_ARTICLE) { @@ -497,7 +496,7 @@ static const char *b_nameroad(const connection * b, const region * r, int local = (r == b->from) ? b->data.sa[0] : b->data.sa[1]; static char buffer[64]; - unused_arg(f); + UNUSED_ARG(f); if (gflags & GF_PURE) return "road"; if (gflags & GF_ARTICLE) { @@ -513,7 +512,7 @@ static const char *b_nameroad(const connection * b, const region * r, } } else { - int percent = _max(1, 100 * local / r->terrain->max_road); + int percent = MAX(1, 100 * local / r->terrain->max_road); if (local) { slprintf(buffer, sizeof(buffer), LOC(f->locale, mkname("border", "a_road_percent")), percent); @@ -621,7 +620,6 @@ int read_borders(gamedata *data) assert(type || !"connection type not registered"); } - READ_INT(store, &bid); if (data->version < UIDHASH_VERSION) { int fx, fy, tx, ty; @@ -640,18 +638,16 @@ int read_borders(gamedata *data) to = findregionbyid(tid); } if (!to || !from) { - if (!to || !from) { - log_error("%s connection %d has missing regions", zText, bid); - } + log_error("%s connection %d has missing regions", zText, bid); if (type->read) { - // skip ahead + /* skip ahead */ connection dummy; type->read(&dummy, data); } continue; } - if (to == from && type && from) { + if (to == from && from) { direction_t dir = (direction_t)(rng_int() % MAXDIRECTIONS); region *r = rconnect(from, dir); log_error("[read_borders] invalid %s in %s\n", type->__name, regionname(from, NULL)); @@ -660,7 +656,7 @@ int read_borders(gamedata *data) } if (type->read) { connection *b = new_border(type, from, to); - nextborder--; /* new_border erhht den Wert */ + nextborder--; /* new_border erh�ht den Wert */ b->id = bid; assert(bid <= nextborder); type->read(b, data); diff --git a/src/kernel/connection.h b/src/kernel/connection.h index 7eef0f52a..80177c638 100644 --- a/src/kernel/connection.h +++ b/src/kernel/connection.h @@ -20,7 +20,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #define H_KRNL_BORDER #include - +#include #ifdef __cplusplus extern "C" { #endif diff --git a/src/kernel/curse.c b/src/kernel/curse.c index 646c99687..25f89ec1f 100644 --- a/src/kernel/curse.c +++ b/src/kernel/curse.c @@ -109,7 +109,7 @@ int curse_age(attrib * a, void *owner) curse *c = (curse *)a->data.v; int result = 0; - unused_arg(owner); + UNUSED_ARG(owner); c_clearflag(c, CURSE_ISNEW); if (c_flags(c) & CURSE_NOAGE) { @@ -122,7 +122,7 @@ int curse_age(attrib * a, void *owner) c->duration = 0; } else if (c->duration != INT_MAX) { - c->duration = _max(0, c->duration - 1); + c->duration = MAX(0, c->duration - 1); } return (c->duration > 0) ? AT_AGE_KEEP : AT_AGE_REMOVE; } @@ -287,37 +287,69 @@ attrib_type at_curse = { /* Spruch identifizieren */ #include -#include +#include #define MAXCTHASH 128 -static quicklist *cursetypes[MAXCTHASH]; +static selist *cursetypes[MAXCTHASH]; +static int ct_changes = 1; + +bool ct_changed(int *cache) +{ + assert(cache); + if (*cache != ct_changes) { + *cache = ct_changes; + return true; + } + return false; +} void ct_register(const curse_type * ct) { unsigned int hash = tolower(ct->cname[0]) & 0xFF; - quicklist **ctlp = cursetypes + hash; + selist **ctlp = cursetypes + hash; - ql_set_insert(ctlp, (void *)ct); + selist_set_insert(ctlp, (void *)ct, NULL); + ++ct_changes; +} + +void ct_remove(const char *c) +{ + unsigned int hash = tolower(c[0]); + selist *ctl = cursetypes[hash]; + + if (ctl) { + int qi; + + for (qi = 0; ctl; selist_advance(&ctl, &qi, 1)) { + curse_type *type = (curse_type *)selist_get(ctl, qi); + + if (strcmp(c, type->cname) == 0) { + selist_delete(&ctl, qi); + ++ct_changes; + break; + } + } + } } const curse_type *ct_find(const char *c) { unsigned int hash = tolower(c[0]); - quicklist *ctl = cursetypes[hash]; + selist *ctl = cursetypes[hash]; if (ctl) { size_t c_len = strlen(c); int qi; - for (qi = 0; ctl; ql_advance(&ctl, &qi, 1)) { - curse_type *type = (curse_type *)ql_get(ctl, qi); + for (qi = 0; ctl; selist_advance(&ctl, &qi, 1)) { + curse_type *type = (curse_type *)selist_get(ctl, qi); if (strcmp(c, type->cname) == 0) { return type; } else { - size_t k = _min(c_len, strlen(type->cname)); - if (!_memicmp(c, type->cname, k)) { + size_t k = MIN(c_len, strlen(type->cname)); + if (!memcmp(c, type->cname, k)) { return type; } } @@ -328,12 +360,12 @@ const curse_type *ct_find(const char *c) void ct_checknames(void) { int i, qi; - quicklist *ctl; + selist *ctl; for (i = 0; i < MAXCTHASH; ++i) { ctl = cursetypes[i]; - for (qi = 0; ctl; ql_advance(&ctl, &qi, 1)) { - curse_type *type = (curse_type *)ql_get(ctl, qi); + for (qi = 0; ctl; selist_advance(&ctl, &qi, 1)) { + curse_type *type = (curse_type *)selist_get(ctl, qi); curse_name(type, default_locale); } @@ -475,7 +507,7 @@ int get_cursedmen(unit * u, const curse * c) cursedmen = c->data.i; } - return _min(u->number, cursedmen); + return MIN(u->number, cursedmen); } /* setzt die Anzahl der betroffenen Personen auf cursedmen */ @@ -490,6 +522,24 @@ static void set_cursedmen(curse * c, int cursedmen) } } +static int newcurseid(void) { + int random_no; + int start_random_no; + random_no = 1 + (rng_int() % MAX_UNIT_NR); + start_random_no = random_no; + + while (findcurse(random_no)) { + random_no++; + if (random_no == MAX_UNIT_NR + 1) { + random_no = 1; + } + if (random_no == start_random_no) { + random_no = (int)MAX_UNIT_NR + 1; + } + } + return random_no; +} + /* ------------------------------------------------------------- */ /* Legt eine neue Verzauberung an. Sollte es schon einen Zauber * dieses Typs geben, gibt es den bestehenden zurck. @@ -511,7 +561,7 @@ static curse *make_curse(unit * mage, attrib ** ap, const curse_type * ct, c->effect = effect; c->magician = mage; - c->no = newunitid(); + c->no = newcurseid(); chash(c); switch (c->type->typ) { @@ -546,7 +596,7 @@ curse *create_curse(unit * magician, attrib ** ap, const curse_type * ct, /* es gibt schon eins diese Typs */ if (c && ct->mergeflags != NO_MERGE) { if (ct->mergeflags & M_DURATION) { - c->duration = _max(c->duration, duration); + c->duration = MAX(c->duration, duration); } if (ct->mergeflags & M_SUMDURATION) { c->duration += duration; @@ -555,10 +605,10 @@ curse *create_curse(unit * magician, attrib ** ap, const curse_type * ct, c->effect += effect; } if (ct->mergeflags & M_MAXEFFECT) { - c->effect = _max(c->effect, effect); + c->effect = MAX(c->effect, effect); } if (ct->mergeflags & M_VIGOUR) { - c->vigour = _max(vigour, c->vigour); + c->vigour = MAX(vigour, c->vigour); } if (ct->mergeflags & M_VIGOUR_ADD) { c->vigour = vigour + c->vigour; @@ -646,7 +696,7 @@ void transfer_curse(unit * u, unit * u2, int n) int curse_cansee(const curse *c, const faction *viewer, objtype_t typ, const void *obj, int self) { if (self < 3 && c->magician && c->magician->faction == viewer) { - // magicians can see their own curses better than anybody, no exceptions + /* magicians can see their own curses better than anybody, no exceptions */ self = 3; } else if (c->type->cansee) { @@ -742,9 +792,9 @@ message *cinfo_simple(const void *obj, objtype_t typ, const struct curse * c, { struct message *msg; - unused_arg(typ); - unused_arg(self); - unused_arg(obj); + UNUSED_ARG(typ); + UNUSED_ARG(self); + UNUSED_ARG(obj); msg = msg_message(mkname("curseinfo", c->type->cname), "id", c->no); if (msg == NULL) { @@ -775,7 +825,7 @@ double destr_curse(curse * c, int cast_level, double force) c->type->change_vigour(c, -(cast_level + 1) / 2); } else { - c->vigour -= cast_level + 1 / 2; + c->vigour -= (cast_level + 1) / 2.0; } } } @@ -797,6 +847,8 @@ double destr_curse(curse * c, int cast_level, double force) void curses_done(void) { int i; for (i = 0; i != MAXCTHASH; ++i) { - ql_free(cursetypes[i]); + selist_free(cursetypes[i]); + cursetypes[i] = 0; } + ++ct_changes; } diff --git a/src/kernel/curse.h b/src/kernel/curse.h index 9013a1df5..543755c2b 100644 --- a/src/kernel/curse.h +++ b/src/kernel/curse.h @@ -22,6 +22,8 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include "objtypes.h" +#include + #ifdef __cplusplus extern "C" { #endif @@ -30,6 +32,8 @@ extern "C" { struct curse_type; struct gamedata; struct storage; + struct attrib; + struct faction; /* Sprueche in der struct region und auf Einheiten, Schiffen oder Burgen * (struct attribute) @@ -206,7 +210,7 @@ extern "C" { typedef struct curse { variant data; /* pointer auf spezielle curse-unterstructs */ struct curse *nexthash; - const curse_type *type; /* Zeiger auf ein curse_type-struct */ + const curse_type *type; /* Zeiger auf ein curse_type-struct */ struct unit *magician; /* Pointer auf den Magier, der den Spruch gewirkt hat */ double vigour; /* Strke der Verzauberung, Widerstand gegen Antimagie */ double effect; @@ -280,9 +284,10 @@ extern "C" { * */ struct curse *get_curse(struct attrib *ap, const curse_type * ctype); - int find_cursebyname(const char *c); const curse_type *ct_find(const char *c); + bool ct_changed(int *cache); void ct_register(const curse_type *); + void ct_remove(const char *c); void ct_checknames(void); curse *findcurse(int curseid); diff --git a/src/kernel/curse.test.c b/src/kernel/curse.test.c index 6514b2f3e..56c3288f8 100644 --- a/src/kernel/curse.test.c +++ b/src/kernel/curse.test.c @@ -5,6 +5,7 @@ #include #include #include +#include #include #include #include @@ -54,7 +55,6 @@ static void setup_curse(curse_fixture *fix, const char *name) { } static void cleanup_curse(curse_fixture *fix) { - // destroy_curse(fix->c); test_cleanup(); } @@ -157,15 +157,73 @@ static void test_write_flag(CuTest *tc) { cleanup_curse(&fix); } +static void test_curse_cache(CuTest *tc) +{ + int cache = 0; + const curse_type ct_dummy = { "dummy", CURSETYP_NORM, 0, M_SUMEFFECT, NULL }; + test_setup(); + CuAssertIntEquals(tc, true, ct_changed(&cache)); + CuAssertIntEquals(tc, false, ct_changed(&cache)); + CuAssertPtrEquals(tc, NULL, (void *)ct_find(ct_dummy.cname)); + ct_register(&ct_dummy); + CuAssertIntEquals(tc, true, ct_changed(&cache)); + CuAssertPtrEquals(tc, (void *)&ct_dummy, (void *)ct_find(ct_dummy.cname)); + ct_remove(ct_dummy.cname); + CuAssertIntEquals(tc, true, ct_changed(&cache)); + CuAssertIntEquals(tc, false, ct_changed(&cache)); + CuAssertPtrEquals(tc, NULL, (void *)ct_find(ct_dummy.cname)); + test_cleanup(); +} + +static void test_curse_ids(CuTest *tc) { + const curse_type ct_dummy = { "dummy", CURSETYP_NORM, 0, M_SUMEFFECT, NULL }; + curse *c1, *c2; + attrib *a1 = 0, *a2 = 0; + + test_setup(); + rng_init(0); + c1 = create_curse(NULL, &a1, &ct_dummy, 1, 1, 1, 1); + rng_init(0); + c2 = create_curse(NULL, &a2, &ct_dummy, 1, 1, 1, 1); + CuAssertTrue(tc, c1->no != c2->no); + a_remove(&a1, a1); + a_remove(&a2, a2); + test_cleanup(); +} + +static void test_curse_flags(CuTest *tc) { + const curse_type ct_dummy = { "dummy", CURSETYP_NORM, 0, M_SUMEFFECT, NULL }; + curse *c1, *c2; + unit *u; + + test_setup(); + u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); + c1 = create_curse(u, &u->attribs, &ct_dummy, 1, 1, 1, 0); + CuAssertPtrEquals(tc, u, c1->magician); + CuAssertIntEquals(tc, 1, (int)c1->effect); + CuAssertIntEquals(tc, 1, (int)c1->vigour); + CuAssertIntEquals(tc, 1, c1->duration); + c2 = create_curse(u, &u->attribs, &ct_dummy, 1, 1, 1, 0); + CuAssertPtrEquals(tc, c1, c2); + CuAssertPtrEquals(tc, u, c1->magician); + CuAssertIntEquals(tc, 2, (int)c1->effect); + CuAssertIntEquals(tc, 1, (int)c1->vigour); + CuAssertIntEquals(tc, 1, c1->duration); + test_cleanup(); +} + CuSuite *get_curse_suite(void) { CuSuite *suite = CuSuiteNew(); SUITE_ADD_TEST(suite, test_curse); + SUITE_ADD_TEST(suite, test_curse_cache); SUITE_ADD_TEST(suite, test_magicstreet); SUITE_ADD_TEST(suite, test_magicstreet_warning); SUITE_ADD_TEST(suite, test_good_dreams); SUITE_ADD_TEST(suite, test_bad_dreams); SUITE_ADD_TEST(suite, test_memstream); SUITE_ADD_TEST(suite, test_write_flag); + SUITE_ADD_TEST(suite, test_curse_flags); + SUITE_ADD_TEST(suite, test_curse_ids); return suite; } diff --git a/src/kernel/equipment.c b/src/kernel/equipment.c index 424352347..d9a971455 100644 --- a/src/kernel/equipment.c +++ b/src/kernel/equipment.c @@ -25,10 +25,10 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "unit.h" #include "faction.h" #include "race.h" -#include "spellbook.h" +#include "spell.h" /* util includes */ -#include +#include #include #include @@ -39,7 +39,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. static equipment *equipment_sets; -equipment *create_equipment(const char *eqname) +equipment *get_or_create_equipment(const char *eqname) { equipment **eqp = &equipment_sets; for (;;) { @@ -47,7 +47,7 @@ equipment *create_equipment(const char *eqname) int i = eq ? strcmp(eq->name, eqname) : 1; if (i > 0) { eq = (equipment *)calloc(1, sizeof(equipment)); - eq->name = _strdup(eqname); + eq->name = strdup(eqname); eq->next = *eqp; memset(eq->skills, 0, sizeof(eq->skills)); *eqp = eq; @@ -78,7 +78,7 @@ void equipment_setskill(equipment * eq, skill_t sk, const char *value) { if (eq != NULL) { if (value != NULL) { - eq->skills[sk] = _strdup(value); + eq->skills[sk] = strdup(value); } else if (eq->skills[sk]) { free(eq->skills[sk]); @@ -86,13 +86,18 @@ void equipment_setskill(equipment * eq, skill_t sk, const char *value) } } -void equipment_addspell(equipment * eq, struct spell * sp, int level) +typedef struct lazy_spell { + struct spellref *spref; + int level; +} lazy_spell; + +void equipment_addspell(equipment * eq, const char * name, int level) { if (eq) { - if (!eq->spellbook) { - eq->spellbook = create_spellbook(0); - } - spellbook_add(eq->spellbook, sp, level); + lazy_spell *ls = malloc(sizeof(lazy_spell)); + ls->spref = spellref_create(NULL, name); + ls->level = level; + selist_push(&eq->spells, ls); } } @@ -108,7 +113,7 @@ equipment_setitem(equipment * eq, const item_type * itype, const char *value) if (idata == NULL) { idata = (itemdata *)malloc(sizeof(itemdata)); idata->itype = itype; - idata->value = _strdup(value); + idata->value = strdup(value); idata->next = eq->items; eq->items = idata; } @@ -148,14 +153,15 @@ void equip_unit_mask(struct unit *u, const struct equipment *eq, int mask) } if (mask & EQUIP_SPELLS) { - if (eq->spellbook) { - quicklist * ql = eq->spellbook->spells; + if (eq->spells) { + selist * ql = eq->spells; int qi; sc_mage * mage = get_mage(u); - for (qi = 0; ql; ql_advance(&ql, &qi, 1)) { - spellbook_entry *sbe = (spellbook_entry *)ql_get(ql, qi); - unit_add_spell(u, mage, sbe->sp, sbe->level); + for (qi = 0; ql; selist_advance(&ql, &qi, 1)) { + lazy_spell *sbe = (lazy_spell *)selist_get(ql, qi); + spell *sp = spellref_get(sbe->spref); + unit_add_spell(u, mage, sp, sbe->level); } } } @@ -224,6 +230,12 @@ void equip_items(struct item **items, const struct equipment *eq) } } +void free_ls(void *arg) { + lazy_spell *ls = (lazy_spell*)arg; + spellref_free(ls->spref); + free(ls); +} + void equipment_done(void) { equipment **eqp = &equipment_sets; while (*eqp) { @@ -231,9 +243,9 @@ void equipment_done(void) { equipment *eq = *eqp; *eqp = eq->next; free(eq->name); - if (eq->spellbook) { - spellbook_clear(eq->spellbook); - free(eq->spellbook); + if (eq->spells) { + selist_foreach(eq->spells, free_ls); + selist_free(eq->spells); } while (eq->items) { itemdata *next = eq->items->next; @@ -241,7 +253,7 @@ void equipment_done(void) { free(eq->items); eq->items = next; } - // TODO: subsets, skills + /* TODO: subsets, skills */ for (i=0;i!=MAXSKILLS;++i) { free(eq->skills[i]); } diff --git a/src/kernel/equipment.h b/src/kernel/equipment.h index 11511d99a..53475b510 100644 --- a/src/kernel/equipment.h +++ b/src/kernel/equipment.h @@ -48,7 +48,7 @@ extern "C" { char *name; struct itemdata *items; char *skills[MAXSKILLS]; - struct spellbook *spellbook; + struct selist *spells; struct subset *subsets; struct equipment *next; void(*callback) (const struct equipment *, struct unit *); @@ -56,14 +56,14 @@ extern "C" { void equipment_done(void); - struct equipment *create_equipment(const char *eqname); + struct equipment *get_or_create_equipment(const char *eqname); struct equipment *get_equipment(const char *eqname); void equipment_setitem(struct equipment *eq, const struct item_type *itype, const char *value); void equipment_setskill(struct equipment *eq, skill_t sk, const char *value); - void equipment_addspell(struct equipment *eq, struct spell *sp, int level); + void equipment_addspell(struct equipment *eq, const char *name, int level); void equipment_setcallback(struct equipment *eq, void(*callback) (const struct equipment *, struct unit *)); diff --git a/src/kernel/equipment.test.c b/src/kernel/equipment.test.c index 490a44a78..afd53849e 100644 --- a/src/kernel/equipment.test.c +++ b/src/kernel/equipment.test.c @@ -7,8 +7,6 @@ #include #include -#include - #include #include @@ -29,12 +27,12 @@ void test_equipment(CuTest * tc) CuAssertPtrNotNull(tc, sp); CuAssertPtrEquals(tc, 0, get_equipment("herpderp")); - eq = create_equipment("herpderp"); + eq = get_or_create_equipment("herpderp"); CuAssertPtrEquals(tc, eq, get_equipment("herpderp")); equipment_setitem(eq, it_horses, "1"); equipment_setskill(eq, SK_MAGIC, "5"); - equipment_addspell(eq, sp, 1); + equipment_addspell(eq, sp->sname, 1); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); equip_unit_mask(u, eq, EQUIP_ALL); diff --git a/src/kernel/faction.c b/src/kernel/faction.c index 794554cec..139474048 100755 --- a/src/kernel/faction.c +++ b/src/kernel/faction.c @@ -29,7 +29,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "plane.h" #include "race.h" #include "region.h" -#include "save.h" #include "spellbook.h" #include "terrain.h" #include "unit.h" @@ -49,11 +48,10 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include #include -#include +#include #include /* libc includes */ @@ -104,7 +102,7 @@ static void free_faction(faction * f) free(f->_password); free(f->name); if (f->seen_factions) { - ql_free(f->seen_factions); + selist_free(f->seen_factions); f->seen_factions = 0; } @@ -249,10 +247,6 @@ faction *addfaction(const char *email, const char *password, log_warning("Invalid email address for faction %s: %s\n", itoa36(f->no), email); } - if (!password) password = itoa36(rng_int()); - faction_setpassword(f, password_encode(password, PASSWORD_DEFAULT)); - ADDMSG(&f->msgs, msg_message("changepasswd", "value", password)); - f->alliance_joindate = turn; f->lastorders = turn; f->_alive = true; @@ -261,7 +255,11 @@ faction *addfaction(const char *email, const char *password, f->magiegebiet = 0; f->locale = loc; f->subscription = subscription; - f->flags = FFL_ISNEW; + f->flags = FFL_ISNEW|FFL_PWMSG; + + if (!password) password = itoa36(rng_int()); + faction_setpassword(f, password_encode(password, PASSWORD_DEFAULT)); + ADDMSG(&f->msgs, msg_message("changepasswd", "value", password)); f->options = want(O_REPORT) | want(O_ZUGVORLAGE) | want(O_COMPUTER) | want(O_COMPRESS) | @@ -275,11 +273,11 @@ faction *addfaction(const char *email, const char *password, addlist(&factions, f); fhash(f); - slprintf(buf, sizeof(buf), "%s %s", LOC(loc, "factiondefault"), factionid(f)); - f->name = _strdup(buf); + slprintf(buf, sizeof(buf), "%s %s", LOC(loc, "factiondefault"), itoa36(f->no)); + f->name = strdup(buf); if (!f->race) { - log_warning("creating a faction that has no race", factionid(f)); + log_warning("creating a faction that has no race", itoa36(f->no)); } return f; @@ -288,20 +286,20 @@ faction *addfaction(const char *email, const char *password, unit *addplayer(region * r, faction * f) { unit *u; - char buffer[32]; + const struct equipment* eq; assert(f->units == NULL); faction_setorigin(f, 0, r->x, r->y); u = create_unit(r, f, 1, f->race, 0, NULL, NULL); - equip_items(&u->faction->items, get_equipment("new_faction")); - equip_unit(u, get_equipment("first_unit")); - sprintf(buffer, "first_%s", u_race(u)->_name); - equip_unit(u, get_equipment(buffer)); + eq = get_equipment("first_unit"); + if (eq) { + equip_items(&u->items, eq); + } u->hp = unit_max_hp(u) * u->number; fset(u, UFL_ISNEW); if (f->race == get_race(RC_DAEMON)) { race_t urc; - race *rc; + const race *rc; do { urc = (race_t)(rng_int() % MAXRACES); rc = get_race(urc); @@ -368,7 +366,7 @@ void destroyfaction(faction ** fp) } if (f->seen_factions) { - ql_free(f->seen_factions); + selist_free(f->seen_factions); f->seen_factions = 0; } @@ -387,19 +385,14 @@ void destroyfaction(faction ** fp) const race *rc = u_race(u); int m = rmoney(r); + /* Personen gehen nur an die Bauern, wenn sie auch von dort + * stammen */ if ((rc->ec_flags & ECF_REC_ETHEREAL) == 0) { int p = rpeasants(u->region); int h = rhorses(u->region); item *itm; - /* Personen gehen nur an die Bauern, wenn sie auch von dort - * stammen */ - if (rc->ec_flags & ECF_REC_HORSES) { /* Zentauren an die Pferde */ - h += u->number; - } - else { /* Orks zählen nur zur Hälfte */ - p += (int)(u->number * rc->recruit_multi); - } + p += (int)(u->number * rc->recruit_multi); for (itm = u->items; itm; itm = itm->next) { if (itm->type->flags & ITF_ANIMAL) { h += itm->number; @@ -456,12 +449,10 @@ void destroyfaction(faction ** fp) /* units of other factions that were disguised as this faction * have their disguise replaced by ordinary faction hiding. */ if (rule_stealth_other()) { - // TODO: f.alive should be tested for in get_otherfaction region *rc; for (rc = regions; rc; rc = rc->next) { for (u = rc->units; u; u = u->next) { - attrib *a = a_find(u->attribs, &at_otherfaction); - if (a && get_otherfaction(a) == f) { + if (u->attribs && get_otherfaction(u) == f) { a_removeall(&u->attribs, &at_otherfaction); if (rule_stealth_anon()) { fset(u, UFL_ANON_FACTION); @@ -509,7 +500,6 @@ void renumber_faction(faction * f, int no) fset(f, FFL_NEWID); } -#ifdef SMART_INTERVALS void update_interval(struct faction *f, struct region *r) { if (r == NULL || f == NULL) @@ -521,7 +511,6 @@ void update_interval(struct faction *f, struct region *r) f->last = r; } } -#endif const char *faction_getname(const faction * self) { @@ -532,7 +521,7 @@ void faction_setname(faction * self, const char *name) { free(self->name); if (name) - self->name = _strdup(name); + self->name = strdup(name); } const char *faction_getemail(const faction * self) @@ -544,7 +533,7 @@ void faction_setemail(faction * self, const char *email) { free(self->email); if (email) - self->email = _strdup(email); + self->email = strdup(email); } const char *faction_getbanner(const faction * self) @@ -556,15 +545,14 @@ void faction_setbanner(faction * self, const char *banner) { free(self->banner); if (banner) - self->banner = _strdup(banner); + self->banner = strdup(banner); } void faction_setpassword(faction * f, const char *pwhash) { assert(pwhash); - // && pwhash[0] == '$'); free(f->_password); - f->_password = _strdup(pwhash); + f->_password = strdup(pwhash); } bool valid_race(const struct faction *f, const struct race *rc) @@ -572,10 +560,7 @@ bool valid_race(const struct faction *f, const struct race *rc) if (f->race == rc) return true; else { - const char *str = get_param(f->race->parameters, "other_race"); - if (str) - return (bool)(rc_find(str) == rc); - return false; + return rc_otherrace(f->race) == rc; } } @@ -602,11 +587,11 @@ static int allied_skillcount(const faction * f, skill_t sk) { int num = 0; alliance *a = f_get_alliance(f); - quicklist *members = a->members; + selist *members = a->members; int qi; - for (qi = 0; members; ql_advance(&members, &qi, 1)) { - faction *m = (faction *)ql_get(members, qi); + for (qi = 0; members; selist_advance(&members, &qi, 1)) { + faction *m = (faction *)selist_get(members, qi); num += count_skill(m, sk); } return num; @@ -762,12 +747,9 @@ int count_migrants(const faction * f) return count_faction(f, COUNT_MIGRANTS); } -#define MIGRANTS_NONE 0 -#define MIGRANTS_LOG10 1 - int count_maxmigrants(const faction * f) { - int formula = get_param_int(f->race->parameters, "migrants.formula", 0); + int formula = rc_migrants_formula(f->race); if (formula == MIGRANTS_LOG10) { int nsize = count_all(f); @@ -798,14 +780,26 @@ attrib_type at_maxmagicians = { int max_magicians(const faction * f) { - int m = config_get_int("rules.maxskills.magic", MAXMAGICIANS); - attrib *a; + static int rule, config, rc_cache; + static const race *rc_elf; + int m; - if ((a = a_find(f->attribs, &at_maxmagicians)) != NULL) { - m = a->data.i; + if (config_changed(&config)) { + rule = config_get_int("rules.maxskills.magic", MAXMAGICIANS); } - if (f->race == get_race(RC_ELF)) + m = rule; + if (f->attribs) { + attrib *a = a_find(f->attribs, &at_maxmagicians); + if (a) { + m = a->data.i; + } + } + if (rc_changed(&rc_cache)) { + rc_elf = get_race(RC_ELF); + } + if (f->race == rc_elf) { ++m; + } return m; } @@ -824,8 +818,8 @@ int writepasswd(void) log_info("writing passwords..."); for (f = factions; f; f = f->next) { - fprintf(F, "%s:%s:%s:%u\n", - factionid(f), f->email, f->_password, f->subscription); + fprintf(F, "%s:%s:%s:%d\n", + itoa36(f->no), f->email, f->_password, f->subscription); } fclose(F); return 0; diff --git a/src/kernel/faction.h b/src/kernel/faction.h index 5a1ca893b..0a0ac39d6 100644 --- a/src/kernel/faction.h +++ b/src/kernel/faction.h @@ -22,6 +22,8 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "skill.h" #include "types.h" #include +#include + #ifdef __cplusplus extern "C" { #endif @@ -31,24 +33,23 @@ extern "C" { struct seen_region; struct attrib_type; struct gamedata; + struct selist; extern struct attrib_type at_maxmagicians; - /* SMART_INTERVALS: define to speed up finding the interval of regions that a - faction is in. defining this speeds up the turn by 30-40% */ -#define SMART_INTERVALS /* faction flags */ -#define FFL_NEWID (1<<0) /* Die Partei hat bereits einmal ihre no gewechselt */ +#define FFL_NEWID (1<<0) /* Die Partei hat bereits einmal ihre no gewechselt */ #define FFL_ISNEW (1<<1) +#define FFL_PWMSG (1<<2) /* received a "new password" message */ #define FFL_QUIT (1<<3) -#define FFL_CURSED (1<<4) /* you're going to have a bad time */ +#define FFL_CURSED (1<<4) /* you're going to have a bad time */ #define FFL_DEFENDER (1<<10) #define FFL_SELECT (1<<18) /* ehemals f->dh, u->dh, r->dh, etc... */ #define FFL_NOAID (1<<21) /* Hilfsflag Kampf */ -#define FFL_MARK (1<<23) /* fr markierende algorithmen, die das - * hinterher auch wieder lschen mssen! +#define FFL_MARK (1<<23) /* f�r markierende algorithmen, die das + * hinterher auch wieder l�schen m�ssen! * (FFL_SELECT muss man vorher initialisieren, - * FL_MARK hinterher lschen) */ + * FL_MARK hinterher l�schen) */ #define FFL_NOIDLEOUT (1<<24) /* Partei stirbt nicht an NMRs */ #define FFL_NPC (1<<25) /* eine Partei mit Monstern */ #define FFL_SAVEMASK (FFL_DEFENDER|FFL_NEWID|FFL_NPC|FFL_NOIDLEOUT|FFL_CURSED) @@ -57,10 +58,8 @@ extern "C" { struct faction *next; struct faction *nexthash; -#ifdef SMART_INTERVALS struct region *first; struct region *last; -#endif int no; int subscription; int flags; @@ -100,13 +99,14 @@ extern "C" { struct message_list *msgs; } *battles; struct item *items; /* items this faction can claim */ - struct seen_region **seen; - struct quicklist *seen_factions; + struct selist *seen_factions; bool _alive; /* enno: sollte ein flag werden */ } faction; extern struct faction *factions; +#define want(option) (1< #include #include +#include #include #include -#include +#include #include #include #include -#include "monster.h" +#include "monsters.h" #include #include -#include +#include #include #include @@ -47,10 +48,10 @@ static void test_remove_empty_factions_alliance(CuTest *tc) { al = makealliance(0, "Hodor"); setalliance(f, al); CuAssertPtrEquals(tc, f, alliance_get_leader(al)); - CuAssertIntEquals(tc, 1, ql_length(al->members)); + CuAssertIntEquals(tc, 1, selist_length(al->members)); remove_empty_factions(); CuAssertPtrEquals(tc, 0, al->_leader); - CuAssertIntEquals(tc, 0, ql_length(al->members)); + CuAssertIntEquals(tc, 0, selist_length(al->members)); test_cleanup(); } @@ -117,7 +118,7 @@ static void test_addfaction(CuTest *tc) { CuAssertTrue(tc, checkpasswd(f, "hurrdurr")); CuAssertPtrEquals(tc, (void *)lang, (void *)f->locale); CuAssertIntEquals(tc, 1234, f->subscription); - CuAssertIntEquals(tc, FFL_ISNEW, f->flags); + CuAssertIntEquals(tc, FFL_ISNEW|FFL_PWMSG, f->flags); CuAssertIntEquals(tc, 0, f->age); CuAssertTrue(tc, faction_alive(f)); CuAssertIntEquals(tc, M_GRAY, f->magiegebiet); @@ -152,8 +153,7 @@ static void test_set_origin(CuTest *tc) { int x = 0, y = 0; plane *pl; - test_cleanup(); - test_create_world(); + test_setup(); pl = create_new_plane(0, "", 0, 19, 0, 19, 0); f = test_create_faction(0); CuAssertPtrEquals(tc, 0, f->ursprung); @@ -178,8 +178,7 @@ static void test_set_origin_bug(CuTest *tc) { plane *pl; int x = 17, y = 10; - test_cleanup(); - test_create_world(); + test_setup(); pl = create_new_plane(0, "", 0, 19, 0, 19, 0); f = test_create_faction(0); faction_setorigin(f, 0, -10, 3); @@ -191,9 +190,43 @@ static void test_set_origin_bug(CuTest *tc) { test_cleanup(); } +static void test_max_migrants(CuTest *tc) { + faction *f; + unit *u; + race *rc; + + test_setup(); + rc = test_create_race("human"); + f = test_create_faction(rc); + u = test_create_unit(f, test_create_region(0, 0, 0)); + CuAssertIntEquals(tc, 0, count_maxmigrants(f)); + rc->flags |= RCF_MIGRANTS; + CuAssertIntEquals(tc, 0, count_maxmigrants(f)); + scale_number(u, 250); + CuAssertIntEquals(tc, 13, count_maxmigrants(f)); + test_cleanup(); +} + +static void test_valid_race(CuTest *tc) { + race * rc1, *rc2; + faction *f; + + test_setup(); + rc1 = test_create_race("human"); + rc2 = test_create_race("elf"); + f = test_create_faction(rc1); + CuAssertTrue(tc, valid_race(f, rc1)); + CuAssertTrue(tc, !valid_race(f, rc2)); + rc_set_param(rc1, "other_race", "elf"); + CuAssertTrue(tc, valid_race(f, rc1)); + CuAssertTrue(tc, valid_race(f, rc2)); + test_cleanup(); +} + CuSuite *get_faction_suite(void) { CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_max_migrants); SUITE_ADD_TEST(suite, test_addfaction); SUITE_ADD_TEST(suite, test_remove_empty_factions); SUITE_ADD_TEST(suite, test_destroyfaction_allies); @@ -203,5 +236,6 @@ CuSuite *get_faction_suite(void) SUITE_ADD_TEST(suite, test_set_origin); SUITE_ADD_TEST(suite, test_set_origin_bug); SUITE_ADD_TEST(suite, test_check_passwd); + SUITE_ADD_TEST(suite, test_valid_race); return suite; } diff --git a/src/kernel/group.c b/src/kernel/group.c index 054cf44dc..06f2f9f49 100755 --- a/src/kernel/group.c +++ b/src/kernel/group.c @@ -23,7 +23,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. /* kernel includes */ #include "ally.h" #include "faction.h" -#include "save.h" #include "unit.h" /* attrib includes */ @@ -58,8 +57,8 @@ group *new_group(faction * f, const char *name, int gid) gp = &(*gp)->next; *gp = g; - maxgid = _max(gid, maxgid); - g->name = _strdup(name); + maxgid = MAX(gid, maxgid); + g->name = strdup(name); g->gid = gid; g->nexthash = ghash[index]; diff --git a/src/kernel/group.test.c b/src/kernel/group.test.c index 22d55e36f..e95458114 100644 --- a/src/kernel/group.test.c +++ b/src/kernel/group.test.c @@ -82,9 +82,9 @@ static void test_group_readwrite(CuTest * tc) mstream_init(&data.strm); gamedata_init(&data, &store, RELEASE_VERSION); f = test_create_faction(0); - g = new_group(f, "NW", 42); + new_group(f, "NW", 42); g = new_group(f, "Egoisten", 43); - key_set(&g->attribs, 44); + key_set(&g->attribs, 44, 44); al = ally_add(&g->allies, f); al->status = HELP_GIVE; write_groups(&store, f); @@ -108,7 +108,7 @@ static void test_group_readwrite(CuTest * tc) CuAssertStrEquals(tc, "Egoisten", f->groups->next->name); CuAssertPtrEquals(tc, 0, f->groups->allies); g = f->groups->next; - CuAssertTrue(tc, key_get(g->attribs, 44)); + CuAssertIntEquals(tc, 44, key_get(g->attribs, 44)); CuAssertPtrNotNull(tc, g->allies); CuAssertPtrEquals(tc, 0, g->allies->next); CuAssertPtrEquals(tc, f, g->allies->faction); diff --git a/src/kernel/item.c b/src/kernel/item.c index 66e361156..b83d0fac4 100644 --- a/src/kernel/item.c +++ b/src/kernel/item.c @@ -30,27 +30,23 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "pool.h" #include "race.h" #include "region.h" -#include "save.h" #include "skill.h" #include "terrain.h" #include "unit.h" -/* triggers includes */ -#include -#include - /* util includes */ #include #include -#include -#include #include #include #include #include #include -#include #include +#include + +#include +#include /* libc includes */ #include @@ -154,8 +150,11 @@ const char *resourcename(const resource_type * rtype, int flags) } } if (flags & NMF_PLURAL) { - static char name[64]; // FIXME: static return value - _snprintf(name, sizeof(name), "%s_p", rtype->_name); + static char name[64]; /* FIXME: static return value */ + size_t len = strlen(rtype->_name); + assert(len <= sizeof(name) - 3); + memcpy(name, rtype->_name, len); + strcpy(name + len, "_p"); return name; } return rtype->_name; @@ -185,7 +184,7 @@ resource_type *rt_get_or_create(const char *name) { perror("resource_type allocation failed"); } else { - rtype->_name = _strdup(name); + rtype->_name = strdup(name); rt_register(rtype); return rt_find(name); } @@ -238,7 +237,6 @@ item_type *it_get_or_create(resource_type *rtype) { item_type * itype; assert(rtype); itype = it_find(rtype->_name); - assert(!itype || !itype->rtype || itype->rtype == rtype); if (!itype) { itype = (item_type *)calloc(sizeof(item_type), 1); } @@ -272,7 +270,7 @@ luxury_type *new_luxurytype(item_type * itype, int price) } weapon_type *new_weapontype(item_type * itype, - int wflags, double magres, const char *damage[], int offmod, int defmod, + int wflags, variant magres, const char *damage[], int offmod, int defmod, int reload, skill_t sk, int minskill) { weapon_type *wtype; @@ -282,8 +280,8 @@ weapon_type *new_weapontype(item_type * itype, wtype = calloc(sizeof(weapon_type), 1); if (damage) { - wtype->damage[0] = _strdup(damage[0]); - wtype->damage[1] = _strdup(damage[1]); + wtype->damage[0] = strdup(damage[0]); + wtype->damage[1] = strdup(damage[1]); } wtype->defmod = defmod; wtype->flags |= wflags; @@ -298,7 +296,7 @@ weapon_type *new_weapontype(item_type * itype, return wtype; } -armor_type *new_armortype(item_type * itype, double penalty, double magres, +armor_type *new_armortype(item_type * itype, double penalty, variant magres, int prot, unsigned int flags) { armor_type *atype; @@ -342,7 +340,7 @@ void it_set_appearance(item_type *itype, const char *appearance) { assert(itype); assert(itype->rtype); if (appearance) { - itype->_appearance[0] = _strdup(appearance); + itype->_appearance[0] = strdup(appearance); itype->_appearance[1] = strcat(strcpy((char *)malloc(strlen((char *)appearance) + 3), (char *)appearance), "_p"); } else { itype->_appearance[0] = 0; @@ -565,81 +563,35 @@ item *i_new(const item_type * itype, int size) return i; } -#include "region.h" - -static int -give_horses(unit * s, unit * d, const item_type * itype, int n, -struct order *ord) -{ - if (d == NULL) { - int use = use_pooled(s, item2resource(itype), GET_SLACK, n); - region *r = s->region; - if (use < n) { - use += - use_pooled(s, item2resource(itype), GET_RESERVE | GET_POOLED_SLACK, - n - use); - } - if (r->land) { - rsethorses(r, rhorses(r) + use); - } - return 0; - } - return -1; /* use the mechanism */ -} - -static int -give_money(unit * s, unit * d, const item_type * itype, int n, -struct order *ord) -{ - if (d == NULL) { - int use = use_pooled(s, item2resource(itype), GET_SLACK, n); - region *r = s->region; - if (use < n) { - use += - use_pooled(s, item2resource(itype), GET_RESERVE | GET_POOLED_SLACK, - n - use); - } - if (r->land) { - rsetmoney(r, rmoney(r) + use); - } - return 0; - } - return -1; /* use the mechanism */ -} - -#define R_MINOTHER R_SILVER -#define R_MINHERB R_PLAIN_1 -#define R_MINPOTION R_FAST -#define R_MINITEM R_IRON -#define MAXITEMS MAX_ITEMS -#define MAXRESOURCES MAX_RESOURCES -#define MAXHERBS MAX_HERBS -#define MAXPOTIONS MAX_POTIONS -#define MAXHERBSPERPOTION 6 - -const potion_type *oldpotiontype[MAXPOTIONS + 1]; +const potion_type *oldpotiontype[MAX_POTIONS + 1]; /*** alte items ***/ static const char *resourcenames[MAX_RESOURCES] = { + "money", "aura", "permaura", + "hp", "peasant", + "sapling", "mallornsapling", + "tree", "mallorntree", + "seed", "mallornseed", "iron", "stone", "horse", "ao_healing", "aots", "roi", "rop", "ao_chastity", "laen", "fairyboot", "aoc", "pegasus", "elvenhorse", "charger", "dolphin", "roqf", "trollbelt", "aurafocus", "sphereofinv", "magicbag", - "magicherbbag", "dreameye", "p2", "seed", "mallornseed", - "money", "aura", "permaura", - "hp", "peasant", "person" + "magicherbbag", "dreameye", "p2" }; const resource_type *get_resourcetype(resource_t type) { static int update; static struct resource_type * rtypes[MAX_RESOURCES]; + const resource_type *rtype = NULL; if (update != num_resources) { memset(rtypes, 0, sizeof(rtypes)); update = num_resources; } - const resource_type *rtype = rtypes[type]; + else { + rtype = rtypes[type]; + } if (!rtype) { rtype = rtypes[type] = rt_find(resourcenames[type]); } @@ -669,27 +621,6 @@ int set_item(unit * u, const item_type *itype, int value) return value; } -static int -use_birthdayamulet(unit * u, const struct item_type *itype, int amount, -struct order *ord) -{ - direction_t d; - message *msg = msg_message("meow", ""); - - unused_arg(ord); - unused_arg(amount); - unused_arg(itype); - - add_message(&u->region->msgs, msg); - for (d = 0; d < MAXDIRECTIONS; d++) { - region *tr = rconnect(u->region, d); - if (tr) - add_message(&tr->msgs, msg); - } - msg_release(msg); - return 0; -} - /* t_item::flags */ #define FL_ITEM_CURSED (1<<0) #define FL_ITEM_NOTLOST (1<<1) @@ -697,34 +628,6 @@ struct order *ord) #define FL_ITEM_ANIMAL (1<<3) /* ist ein Tier */ #define FL_ITEM_MOUNT ((1<<4) | FL_ITEM_ANIMAL) /* ist ein Reittier */ -/* ------------------------------------------------------------- */ -/* Kann auch von Nichtmagier benutzt werden, modifiziert Taktik fuer diese - * Runde um -1 - 4 Punkte. */ -static int -use_tacticcrystal(unit * u, const struct item_type *itype, int amount, -struct order *ord) -{ - int i; - for (i = 0; i != amount; ++i) { - int duration = 1; /* wirkt nur eine Runde */ - curse *c; - float effect; - float power = 5; /* Widerstand gegen Antimagiesprueche, ist in diesem - Fall egal, da der curse fuer den Kampf gelten soll, - der vor den Antimagiezaubern passiert */ - - effect = (float)(rng_int() % 6 - 1); - c = create_curse(u, &u->attribs, ct_find("skillmod"), power, - duration, effect, u->number); - c->data.i = SK_TACTICS; - unused_arg(ord); - } - use_pooled(u, itype->rtype, GET_DEFAULT, amount); - ADDMSG(&u->faction->msgs, msg_message("use_tacticcrystal", - "unit region", u, u->region)); - return 0; -} - typedef struct t_item { const char *name; /* [0]: Einzahl fuer eigene; [1]: Mehrzahl fuer eigene; @@ -746,31 +649,20 @@ mod_elves_only(const unit * u, const region * r, skill_t sk, int value) { if (u_race(u) == get_race(RC_ELF)) return value; - unused_arg(r); + UNUSED_ARG(r); return -118; } static int mod_dwarves_only(const unit * u, const region * r, skill_t sk, int value) { - unused_arg(r); + UNUSED_ARG(r); if (u_race(u) == get_race(RC_DWARF) || (u_race(u)->flags & RCF_IRONGOLEM)) { return value; } return -118; } -static int heal(unit * user, int effect) -{ - int req = unit_max_hp(user) * user->number - user->hp; - if (req > 0) { - req = _min(req, effect); - effect -= req; - user->hp += req; - } - return effect; -} - void register_item_give(int(*foo) (struct unit *, struct unit *, const struct item_type *, int, struct order *), const char *name) @@ -785,173 +677,6 @@ struct order *), const char *name) register_function((pf_generic)foo, name); } -void -register_item_useonother(int(*foo) (struct unit *, int, -const struct item_type *, int, struct order *), const char *name) -{ - register_function((pf_generic)foo, name); -} - -static int -use_healingpotion(struct unit *user, const struct item_type *itype, int amount, -struct order *ord) -{ - int effect = amount * 400; - unit *u = user->region->units; - effect = heal(user, effect); - while (effect > 0 && u != NULL) { - if (u->faction == user->faction) { - effect = heal(u, effect); - } - u = u->next; - } - use_pooled(user, itype->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, - amount); - usetpotionuse(user, itype->rtype->ptype); - - ADDMSG(&user->faction->msgs, msg_message("usepotion", - "unit potion", user, itype->rtype)); - return 0; -} - -static int -use_warmthpotion(struct unit *u, const struct item_type *itype, int amount, -struct order *ord) -{ - if (u->faction->race == get_race(RC_INSECT)) { - fset(u, UFL_WARMTH); - } - else { - /* nur fuer insekten: */ - cmistake(u, ord, 163, MSG_EVENT); - return ECUSTOM; - } - use_pooled(u, itype->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, - amount); - usetpotionuse(u, itype->rtype->ptype); - - ADDMSG(&u->faction->msgs, msg_message("usepotion", - "unit potion", u, itype->rtype)); - return 0; -} - -static int -use_foolpotion(struct unit *u, int targetno, const struct item_type *itype, -int amount, struct order *ord) -{ - unit *target = findunit(targetno); - if (target == NULL || u->region != target->region) { - ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "feedback_unit_not_found", - "")); - return ECUSTOM; - } - if (effskill(u, SK_STEALTH, 0) <= effskill(target, SK_PERCEPTION, 0)) { - cmistake(u, ord, 64, MSG_EVENT); - return ECUSTOM; - } - ADDMSG(&u->faction->msgs, msg_message("givedumb", - "unit recipient amount", u, target, amount)); - - change_effect(target, itype->rtype->ptype, amount); - use_pooled(u, itype->rtype, GET_DEFAULT, amount); - return 0; -} - -static int -use_bloodpotion(struct unit *u, const struct item_type *itype, int amount, -struct order *ord) -{ - if (u->number == 0 || u_race(u) == get_race(RC_DAEMON)) { - change_effect(u, itype->rtype->ptype, 100 * amount); - } - else { - const race *irace = u_irace(u); - if (irace == u_race(u)) { - const race *rcfailure = rc_find("smurf"); - if (!rcfailure) { - rcfailure = rc_find("toad"); - } - if (rcfailure) { - trigger *trestore = trigger_changerace(u, u_race(u), irace); - if (trestore) { - int duration = 2 + rng_int() % 8; - - add_trigger(&u->attribs, "timer", trigger_timeout(duration, - trestore)); - u->irace = NULL; - u_setrace(u, rcfailure); - } - } - } - } - use_pooled(u, itype->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, - amount); - usetpotionuse(u, itype->rtype->ptype); - - ADDMSG(&u->faction->msgs, msg_message("usepotion", - "unit potion", u, itype->rtype)); - return 0; -} - -#include -static int -use_mistletoe(struct unit *user, const struct item_type *itype, int amount, -struct order *ord) -{ - int mtoes = - get_pooled(user, itype->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, - user->number); - - if (user->number > mtoes) { - ADDMSG(&user->faction->msgs, msg_message("use_singleperson", - "unit item region command", user, itype->rtype, user->region, ord)); - return -1; - } - use_pooled(user, itype->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, - user->number); - a_add(&user->attribs, make_fleechance((float)1.0)); - ADDMSG(&user->faction->msgs, - msg_message("use_item", "unit item", user, itype->rtype)); - - return 0; -} - -static int -use_magicboost(struct unit *user, const struct item_type *itype, int amount, -struct order *ord) -{ - int mtoes = - get_pooled(user, itype->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, - user->number); - faction *f = user->faction; - if (user->number > mtoes) { - ADDMSG(&user->faction->msgs, msg_message("use_singleperson", - "unit item region command", user, itype->rtype, user->region, ord)); - return -1; - } - if (!is_mage(user) || key_get(f->attribs, atoi36("mbst"))) { - cmistake(user, user->thisorder, 214, MSG_EVENT); - return -1; - } - use_pooled(user, itype->rtype, GET_SLACK | GET_RESERVE | GET_POOLED_SLACK, - user->number); - - key_set(&f->attribs, atoi36("mbst")); - set_level(user, SK_MAGIC, 3); - - ADDMSG(&user->faction->msgs, msg_message("use_item", - "unit item", user, itype->rtype)); - - return 0; -} - -static int -use_snowball(struct unit *user, const struct item_type *itype, int amount, -struct order *ord) -{ - return 0; -} - static void init_oldpotions(void) { const char *potionnames[MAX_POTIONS] = { @@ -960,7 +685,7 @@ static void init_oldpotions(void) }; int p; - for (p = 0; p != MAXPOTIONS; ++p) { + for (p = 0; p != MAX_POTIONS; ++p) { item_type *itype = it_find(potionnames[p]); if (itype != NULL) { oldpotiontype[p] = itype->rtype->ptype; @@ -972,29 +697,37 @@ void init_resources(void) { resource_type *rtype; - rtype = rt_get_or_create(resourcenames[R_PERSON]); // lousy hack + /* there are resources that are special and must be hard-coded. + * these are not items, but things like trees or hitpoints + * which can be used in a construction recipe or as a spell ingredient. + */ - rtype = rt_get_or_create(resourcenames[R_PEASANT]); - rtype->uchange = res_changepeasants; - - // R_SILVER + /* special resources needed in report_region */ rtype = rt_get_or_create(resourcenames[R_SILVER]); rtype->flags |= RTF_ITEM | RTF_POOLED; rtype->uchange = res_changeitem; rtype->itype = it_get_or_create(rtype); - rtype->itype->give = give_money; + rtype->itype->weight = 1; - // R_PERMAURA - rtype = rt_get_or_create(resourcenames[R_PERMAURA]); - rtype->uchange = res_changepermaura; + rtype = rt_get_or_create(resourcenames[R_HORSE]); + rtype->flags |= RTF_ITEM | RTF_LIMITED; + rtype->itype = it_get_or_create(rtype); + rtype->itype->flags |= ITF_ANIMAL | ITF_BIG; - // R_LIFE - rtype = rt_get_or_create(resourcenames[R_LIFE]); - rtype->uchange = res_changehp; + rtype = rt_get_or_create(resourcenames[R_SAPLING]); + rtype = rt_get_or_create(resourcenames[R_TREE]); + rtype = rt_get_or_create(resourcenames[R_MALLORN_SAPLING]); + rtype = rt_get_or_create(resourcenames[R_MALLORN_TREE]); - // R_AURA + /* "special" spell components */ rtype = rt_get_or_create(resourcenames[R_AURA]); rtype->uchange = res_changeaura; + rtype = rt_get_or_create(resourcenames[R_PERMAURA]); + rtype->uchange = res_changepermaura; + rtype = rt_get_or_create(resourcenames[R_LIFE]); + rtype->uchange = res_changehp; + rtype = rt_get_or_create(resourcenames[R_PEASANT]); + rtype->uchange = res_changepeasants; /* alte typen registrieren: */ init_oldpotions(); @@ -1157,23 +890,7 @@ const item_type *finditemtype(const char *name, const struct locale *lang) return 0; } -static void init_resourcelimit(attrib * a) -{ - a->data.v = calloc(sizeof(resource_limit), 1); -} - -static void finalize_resourcelimit(attrib * a) -{ - free(a->data.v); -} - -attrib_type at_resourcelimit = { - "resourcelimit", - init_resourcelimit, - finalize_resourcelimit, -}; - -static item *default_spoil(const struct race *rc, int size) +item *item_spoil(const struct race *rc, int size) { item *itm = NULL; @@ -1190,6 +907,46 @@ static item *default_spoil(const struct race *rc, int size) return itm; } +void read_items(struct storage *store, item ** ilist) +{ + for (;;) { + char ibuf[32]; + const item_type *itype; + int i; + READ_STR(store, ibuf, sizeof(ibuf)); + if (!strcmp("end", ibuf)) { + break; + } + itype = it_find(ibuf); + READ_INT(store, &i); + if (i <= 0) { + log_error("data contains an entry with %d %s", i, ibuf); + } + else { + if (itype && itype->rtype) { + i_change(ilist, itype, i); + } + else { + log_error("data contains unknown item type %s.", ibuf); + } + assert(itype && itype->rtype); + } + } +} + +void write_items(struct storage *store, item * ilist) +{ + item *itm; + for (itm = ilist; itm; itm = itm->next) { + assert(itm->number >= 0); + if (itm->number) { + WRITE_TOK(store, resourcename(itm->type->rtype, 0)); + WRITE_INT(store, itm->number); + } + } + WRITE_TOK(store, "end"); +} + static void free_itype(item_type *itype) { assert(itype); free(itype->construction); @@ -1210,12 +967,12 @@ void free_rtype(resource_type *rtype) { if (rtype->wtype) { free_wtype(rtype->wtype); } - if (rtype->atype) { - free(rtype->atype); - } if (rtype->itype) { free_itype(rtype->itype); } + free(rtype->atype); + free(rtype->modifiers); + free(rtype->raw); free(rtype->_name); free(rtype); } @@ -1261,19 +1018,4 @@ void register_resources(void) register_function((pf_generic)res_changepermaura, "changepermaura"); register_function((pf_generic)res_changehp, "changehp"); register_function((pf_generic)res_changeaura, "changeaura"); - register_function((pf_generic)default_spoil, "defaultdrops"); - - register_item_use(use_potion, "usepotion"); - register_item_use(use_potion_delayed, "usepotion_delayed"); - register_item_use(use_tacticcrystal, "use_tacticcrystal"); - register_item_use(use_birthdayamulet, "use_birthdayamulet"); - register_item_use(use_warmthpotion, "usewarmthpotion"); - register_item_use(use_bloodpotion, "usebloodpotion"); - register_item_use(use_healingpotion, "usehealingpotion"); - register_item_useonother(use_foolpotion, "usefoolpotion"); - register_item_use(use_mistletoe, "usemistletoe"); - register_item_use(use_magicboost, "usemagicboost"); - register_item_use(use_snowball, "usesnowball"); - - register_item_give(give_horses, "givehorses"); } diff --git a/src/kernel/item.h b/src/kernel/item.h index c3b33070e..d647bce8c 100644 --- a/src/kernel/item.h +++ b/src/kernel/item.h @@ -29,12 +29,17 @@ extern "C" { struct unit; struct attrib; struct attrib_type; + struct race; struct region; struct resource_type; struct locale; struct troop; struct item; struct order; + struct storage; + struct gamedata; + struct rawmaterial_type; + struct resource_mod; typedef struct item { struct item *next; @@ -63,17 +68,16 @@ extern "C" { typedef int(*rtype_uchange) (struct unit * user, const struct resource_type * rtype, int delta); - typedef int(*rtype_uget) (const struct unit * user, - const struct resource_type * rtype); typedef char *(*rtype_name) (const struct resource_type * rtype, int flags); typedef struct resource_type { /* --- constants --- */ - char *_name; /* wie es heit */ + char *_name; /* wie es hei�t */ unsigned int flags; /* --- functions --- */ rtype_uchange uchange; - rtype_uget uget; rtype_name name; + struct rawmaterial_type *raw; + struct resource_mod *modifiers; /* --- pointers --- */ struct attrib *attribs; struct item_type *itype; @@ -89,30 +93,9 @@ extern "C" { /* resource-limits for regions */ #define RMF_SKILL 0x01 /* int, bonus on resource production skill */ -#define RMF_SAVEMATERIAL 0x02 /* float, multiplier on resource usage */ -#define RMF_SAVERESOURCE 0x03 /* int, bonus on resource production skill */ +#define RMF_SAVEMATERIAL 0x02 /* fraction (sa[0]/sa[1]), multiplier on resource usage */ #define RMF_REQUIREDBUILDING 0x04 /* building, required to build */ - typedef struct resource_mod { - variant value; - const struct building_type *btype; - const struct race *race; - unsigned int flags; - } resource_mod; - - extern struct attrib_type at_resourcelimit; - typedef int(*rlimit_limit) (const struct region * r, - const struct resource_type * rtype); - typedef void(*rlimit_produce) (struct region * r, - const struct resource_type * rtype, int n); - typedef struct resource_limit { - rlimit_limit limit; - rlimit_produce produce; - unsigned int guard; /* how to guard against theft */ - int value; - resource_mod *modifiers; - } resource_limit; - /* bitfield values for item_type::flags */ #define ITF_NONE 0x0000 #define ITF_HERB 0x0001 /* this item is a herb */ @@ -121,6 +104,7 @@ extern "C" { #define ITF_BIG 0x0008 /* big item, e.g. does not fit in a bag of holding */ #define ITF_ANIMAL 0x0010 /* an animal */ #define ITF_VEHICLE 0x0020 /* a vehicle, drawn by two animals */ +#define ITF_CANUSE 0x0040 /* can be used with use_item_fun callout */ /* error codes for item_type::use */ #define ECUSTOM -1 @@ -134,17 +118,10 @@ extern "C" { unsigned int flags; int weight; int capacity; + int mask_allow; + int mask_deny; struct construction *construction; - char *_appearance[2]; /* wie es fr andere aussieht */ - /* --- functions --- */ - bool(*canuse) (const struct unit * user, - const struct item_type * itype); - int(*use) (struct unit * user, const struct item_type * itype, int amount, - struct order * ord); - int(*useonother) (struct unit * user, int targetno, - const struct item_type * itype, int amount, struct order * ord); - int(*give) (struct unit * src, struct unit * dest, - const struct item_type * itm, int number, struct order * ord); + char *_appearance[2]; /* wie es f�r andere aussieht */ int score; } item_type; @@ -195,7 +172,7 @@ extern "C" { const item_type *itype; unsigned int flags; double penalty; - double magres; + variant magres; int prot; float projectile; /* chance, dass ein projektil abprallt */ } armor_type; @@ -219,7 +196,7 @@ extern "C" { int minskill; int offmod; int defmod; - double magres; + variant magres; int reload; /* time to reload this weapon */ weapon_mod *modifiers; /* --- functions --- */ @@ -248,6 +225,9 @@ extern "C" { void i_freeall(item ** i); item *i_new(const item_type * it, int number); + void read_items(struct storage *store, struct item **it); + void write_items(struct storage *store, struct item *it); + /* convenience: */ item *i_change(item ** items, const item_type * it, int delta); int i_get(const item * i, const item_type * it); @@ -255,18 +235,34 @@ extern "C" { /* creation */ resource_type *rt_get_or_create(const char *name); item_type *it_get_or_create(resource_type *rtype); - item_type *new_itemtype(resource_type * rtype, int iflags, int weight, - int capacity); luxury_type *new_luxurytype(item_type * itype, int price); weapon_type *new_weapontype(item_type * itype, int wflags, - double magres, const char *damage[], int offmod, int defmod, int reload, + variant magres, const char *damage[], int offmod, int defmod, int reload, skill_t sk, int minskill); armor_type *new_armortype(item_type * itype, double penalty, - double magres, int prot, unsigned int flags); + variant magres, int prot, unsigned int flags); potion_type *new_potiontype(item_type * itype, int level); + + /* these constants are used with get_resourcetype. + * The order of the enum is not important for stored data. + * The resourcenames array must be updated to match. + */ + typedef enum { + /* SPECIAL */ + R_SILVER, + R_AURA, /* Aura */ + R_PERMAURA, /* Permanente Aura */ + R_LIFE, + R_PEASANT, + R_SAPLING, + R_MALLORN_SAPLING, + R_TREE, + R_MALLORN_TREE, /* ITEMS: */ + R_SEED, + R_MALLORN_SEED, R_IRON, R_STONE, R_HORSE, @@ -290,15 +286,7 @@ extern "C" { R_SACK_OF_CONSERVATION, R_TACTICCRYSTAL, R_WATER_OF_LIFE, - R_SEED, - R_MALLORNSEED, /* SONSTIGE */ - R_SILVER, - R_AURA, /* Aura */ - R_PERMAURA, /* Permanente Aura */ - R_LIFE, - R_PEASANT, - R_PERSON, MAX_RESOURCES, /* do not use outside item.c ! */ NORESOURCE = -1 @@ -306,7 +294,10 @@ extern "C" { extern const struct potion_type *oldpotiontype[]; const struct resource_type *get_resourcetype(resource_t rt); + struct item *item_spoil(const struct race *rc, int size); + int get_item(const struct unit * u, const struct item_type *itype); + int set_item(struct unit * u, const struct item_type *itype, int value); int get_money(const struct unit *); int set_money(struct unit *, int); int change_money(struct unit *, int); @@ -321,8 +312,6 @@ extern "C" { const struct item_type *, int, struct order *), const char *name); void register_item_use(int(*foo) (struct unit *, const struct item_type *, int, struct order *), const char *name); - void register_item_useonother(int(*foo) (struct unit *, int, - const struct item_type *, int, struct order *), const char *name); void free_resources(void); diff --git a/src/kernel/item.test.c b/src/kernel/item.test.c index 231b45d00..c1c64bf62 100644 --- a/src/kernel/item.test.c +++ b/src/kernel/item.test.c @@ -19,7 +19,7 @@ static void test_resourcename_no_appearance(CuTest *tc) { const resource_type *rtype; test_cleanup(); - init_resources(); // creates R_SILVER + init_resources(); /* creates R_SILVER */ rtype = get_resourcetype(R_SILVER); assert(rtype && rtype->itype); assert(rtype->itype->_appearance[0] == 0); @@ -117,14 +117,14 @@ void test_findresourcetype(CuTest * tc) test_setup(); lang = get_or_create_locale("de"); - locale_setstring(lang, "horse", "Pferd"); + locale_setstring(lang, "log", "Holz"); locale_setstring(lang, "peasant", "Bauer"); init_resources(); CuAssertPtrNotNull(tc, rt_find("peasant")); - CuAssertPtrEquals(tc, 0, rt_find("horse")); - itype = test_create_itemtype("horse"); + CuAssertPtrEquals(tc, 0, rt_find("log")); + itype = test_create_itemtype("log"); - CuAssertPtrEquals(tc, (void*)itype->rtype, (void*)findresourcetype("Pferd", lang)); + CuAssertPtrEquals(tc, (void*)itype->rtype, (void*)findresourcetype("Holz", lang)); CuAssertPtrEquals(tc, (void *)rt_find("peasant"), (void *)findresourcetype("Bauer", lang)); test_cleanup(); } @@ -162,11 +162,8 @@ static void test_core_resources(CuTest *tc) { CuAssertPtrNotNull(tc, rtype = rt_find("money")); CuAssertPtrNotNull(tc, rtype->itype); CuAssertPtrNotNull(tc, rtype->uchange); - CuAssertPtrNotNull(tc, rtype->itype->give); CuAssertPtrNotNull(tc, rtype = rt_find("peasant")); CuAssertPtrEquals(tc, 0, rtype->itype); - CuAssertPtrNotNull(tc, rtype = rt_find("person")); - CuAssertPtrEquals(tc, 0, rtype->itype); CuAssertPtrNotNull(tc, rtype = rt_find("permaura")); CuAssertPtrEquals(tc, 0, rtype->itype); CuAssertPtrNotNull(tc, rtype = rt_find("hp")); diff --git a/src/kernel/jsonconf.c b/src/kernel/jsonconf.c index 721e6e60f..0f5642c42 100644 --- a/src/kernel/jsonconf.c +++ b/src/kernel/jsonconf.c @@ -106,7 +106,7 @@ static void json_maintenance_i(cJSON *json, maintenance *mt) { break; case cJSON_Array: if (strcmp(child->string, "flags") == 0) { - const char * flags[] = { "variable", "required", 0 }; + const char * flags[] = { "variable", 0 }; mt->flags = json_flags(child, flags); } else { @@ -146,6 +146,8 @@ static void json_maintenance(cJSON *json, maintenance **mtp) { static void json_construction(cJSON *json, construction **consp) { cJSON *child; + construction * cons; + if (json->type == cJSON_Array) { int size = 0; for (child = json->child; child; child = child->next) { @@ -164,7 +166,7 @@ static void json_construction(cJSON *json, construction **consp) { log_error("construction %s is not a json object: %d", json->string, json->type); return; } - construction * cons = (construction *)calloc(sizeof(construction), 1); + cons = (construction *)calloc(sizeof(construction), 1); for (child = json->child; child; child = child->next) { switch (child->type) { case cJSON_Object: @@ -191,8 +193,8 @@ static void json_construction(cJSON *json, construction **consp) { } static void json_terrain_production(cJSON *json, terrain_production *prod) { - assert(json->type == cJSON_Object); cJSON *child; + assert(json->type == cJSON_Object); for (child = json->child; child; child = child->next) { char **dst = 0; switch (child->type) { @@ -224,7 +226,7 @@ static void json_terrain_production(cJSON *json, terrain_production *prod) { if (dst) { free(*dst); assert(child->type == cJSON_String); - *dst = _strdup(child->valuestring); + *dst = strdup(child->valuestring); } } } @@ -453,15 +455,15 @@ static void json_race(cJSON *json, race *rc) { switch (child->type) { case cJSON_String: if (strcmp(child->string, "damage") == 0) { - rc->def_damage = _strdup(child->valuestring); + rc->def_damage = strdup(child->valuestring); } break; case cJSON_Number: if (strcmp(child->string, "magres") == 0) { - rc->magres = (float)child->valuedouble; + rc->magres = frac_make(child->valueint, 100); } else if (strcmp(child->string, "maxaura") == 0) { - rc->maxaura = (float)child->valuedouble; + rc->maxaura = child->valueint; } else if (strcmp(child->string, "regaura") == 0) { rc->regaura = (float)child->valuedouble; @@ -481,13 +483,16 @@ static void json_race(cJSON *json, race *rc) { else if (strcmp(child->string, "capacity") == 0) { rc->capacity = child->valueint; } + else if (strcmp(child->string, "income") == 0) { + rc->income = child->valueint; + } else if (strcmp(child->string, "hp") == 0) { rc->hitpoints = child->valueint; } else if (strcmp(child->string, "ac") == 0) { rc->armor = child->valueint; } - // TODO: studyspeed (orcs only) + /* TODO: studyspeed (orcs only) */ break; case cJSON_Array: if (strcmp(child->string, "flags") == 0) { @@ -520,6 +525,8 @@ static void disable_feature(const char *str) { char name[32]; int k; skill_t sk; + size_t len; + sk = findskill(str); if (sk != NOSKILL) { enable_skill(sk, false); @@ -531,7 +538,10 @@ static void disable_feature(const char *str) { enable_keyword(k, false); return; } - _snprintf(name, sizeof(name), "%s.enabled", str); + len = strlen(str); + assert(len <= sizeof(name) - 9); + memcpy(name, str, len); + strcpy(name+len, ".enabled"); log_info("disable feature %s\n", name); config_set(name, "0"); } @@ -591,7 +601,7 @@ static void json_spells(cJSON *json) { sp->fumble = (fumble_f)get_function(item->valuestring); } else if (strcmp(item->string, "syntax") == 0) { - sp->syntax = _strdup(item->valuestring); + sp->syntax = strdup(item->valuestring); } } } @@ -646,7 +656,7 @@ static void json_strings(cJSON *json) { } for (child = json->child; child; child = child->next) { if (child->type == cJSON_Object) { - struct locale *lang = get_or_create_locale(child->string); + struct locale *lang = get_locale(child->string); json_locale(child, lang); } else { @@ -687,7 +697,7 @@ static void json_directions(cJSON *json) { return; } for (child = json->child; child; child = child->next) { - struct locale * lang = get_or_create_locale(child->string); + struct locale * lang = get_locale(child->string); json_direction(child, lang); } } @@ -763,7 +773,7 @@ static void json_skills(cJSON *json) { return; } for (child = json->child; child; child = child->next) { - struct locale * lang = get_or_create_locale(child->string); + struct locale * lang = get_locale(child->string); json_skill(child, lang); } } @@ -775,7 +785,7 @@ static void json_keywords(cJSON *json) { return; } for (child = json->child; child; child = child->next) { - struct locale * lang = get_or_create_locale(child->string); + struct locale * lang = get_locale(child->string); json_keyword(child, lang); } } @@ -787,18 +797,20 @@ static void json_settings(cJSON *json) { return; } for (child = json->child; child; child = child->next) { - if (child->valuestring) { - config_set(child->string, child->valuestring); - } - else { - char value[32]; - if (child->type == cJSON_Number && child->valuedouble && child->valueintvaluedouble) { - _snprintf(value, sizeof(value), "%lf", child->valuedouble); + if (config_get(child->string) == NULL) { + if (child->valuestring) { + config_set(child->string, child->valuestring); } else { - _snprintf(value, sizeof(value), "%d", child->valueint); + char value[32]; + if (child->type == cJSON_Number && child->valuedouble && child->valueint < child->valuedouble) { + sprintf(value, "%f", child->valuedouble); + } + else { + sprintf(value, "%d", child->valueint); + } + config_set(child->string, value); } - config_set(child->string, value); } } } diff --git a/src/kernel/jsonconf.test.c b/src/kernel/jsonconf.test.c index 38b2047e6..456a27d22 100644 --- a/src/kernel/jsonconf.test.c +++ b/src/kernel/jsonconf.test.c @@ -69,12 +69,18 @@ static void test_settings(CuTest * tc) "\"string\" : \"1d4\"," "\"integer\" : 14," "\"true\": true," + "\"game.id\": 4," + "\"game.name\": \"E3\"," "\"false\": false," "\"float\" : 1.5 }}"; cJSON *json = cJSON_Parse(data); test_cleanup(); + config_set("game.id", "42"); /* should not be replaced */ + config_set("game.name", "Eressea"); /* should not be replaced */ json_config(json); + CuAssertStrEquals(tc, "42", config_get("game.id")); + CuAssertStrEquals(tc, "Eressea", config_get("game.name")); CuAssertStrEquals(tc, "1", config_get("true")); CuAssertStrEquals(tc, "0", config_get("false")); CuAssertStrEquals(tc, "1d4", config_get("string")); @@ -133,14 +139,15 @@ static void test_races(CuTest * tc) { const char * data = "{\"races\": { \"orc\" : { " "\"damage\" : \"1d4\"," - "\"magres\" : 1.0," - "\"maxaura\" : 2.0," + "\"magres\" : 100," + "\"maxaura\" : 200," "\"regaura\" : 3.0," "\"speed\" : 4.0," "\"recruitcost\" : 1," "\"maintenance\" : 2," "\"weight\" : 3," "\"capacity\" : 4," + "\"income\" : 30," "\"hp\" : 5," "\"ac\" : 6," "\"flags\" : [ \"npc\", \"walk\", \"undead\" ]" @@ -159,14 +166,16 @@ static void test_races(CuTest * tc) CuAssertPtrNotNull(tc, rc); CuAssertIntEquals(tc, RCF_NPC | RCF_WALK | RCF_UNDEAD, rc->flags); CuAssertStrEquals(tc, "1d4", rc->def_damage); - CuAssertDblEquals(tc, 1.0, rc->magres, 0.0); - CuAssertDblEquals(tc, 2.0, rc->maxaura, 0.0); + CuAssertTrue(tc, frac_equal(frac_one, rc->magres)); + CuAssertIntEquals(tc, 200, rc->maxaura); + CuAssertDblEquals(tc, 2.0, rc_maxaura(rc), 0.0); CuAssertDblEquals(tc, 3.0, rc->regaura, 0.0); CuAssertDblEquals(tc, 4.0, rc->speed, 0.0); CuAssertIntEquals(tc, 1, rc->recruitcost); CuAssertIntEquals(tc, 2, rc->maintenance); CuAssertIntEquals(tc, 3, rc->weight); CuAssertIntEquals(tc, 4, rc->capacity); + CuAssertIntEquals(tc, 30, rc->income); CuAssertIntEquals(tc, 5, rc->hitpoints); CuAssertIntEquals(tc, 6, rc->armor); cJSON_Delete(json); @@ -319,7 +328,7 @@ static void test_spells(CuTest * tc) static const char * building_data = "{\"buildings\": { " "\"house\" : { " "\"maintenance\" : " -"{ \"type\" : \"iron\", \"amount\" : 1, \"flags\" : [ \"required\", \"variable\" ] }" +"{ \"type\" : \"iron\", \"amount\" : 1, \"flags\" : [ \"variable\" ] }" "," "\"construction\" : {" "\"maxsize\" : 20," @@ -363,7 +372,7 @@ static void test_buildings(CuTest * tc) CuAssertPtrNotNull(tc, bt->maintenance); CuAssertIntEquals(tc, 1, bt->maintenance[0].number); CuAssertPtrEquals(tc, (void *)get_resourcetype(R_IRON), (void *)bt->maintenance[0].rtype); - CuAssertIntEquals(tc, MTF_VARIABLE | MTF_VITAL, bt->maintenance[0].flags); + CuAssertIntEquals(tc, MTF_VARIABLE, bt->maintenance[0].flags); CuAssertIntEquals(tc, 0, bt->maintenance[1].number); CuAssertPtrNotNull(tc, bt->construction); @@ -446,7 +455,7 @@ static void test_configs(CuTest * tc) CuAssertPtrEquals(tc, 0, buildingtypes); json_config(json); CuAssertPtrNotNull(tc, buildingtypes); - if (unlink("test.json")!=0 && errno==ENOENT) { + if (remove("test.json")!=0 && errno==ENOENT) { errno = 0; } cJSON_Delete(json); @@ -481,7 +490,7 @@ static void test_terrains(CuTest * tc) CuAssertPtrEquals(tc, rt_get_or_create("h0"), ter->herbs[0]->rtype); CuAssertPtrEquals(tc, rt_get_or_create("h1"), ter->herbs[1]->rtype); CuAssertPtrEquals(tc, 0, (void *)ter->herbs[2]); - CuAssertPtrNotNull(tc, ter->name); // anything named "plain" uses plain_name() + CuAssertPtrNotNull(tc, ter->name); /* anything named "plain" uses plain_name() */ CuAssertPtrNotNull(tc, ter->production); CuAssertPtrEquals(tc, rt_get_or_create("stone"), (resource_type *)ter->production[0].type); CuAssertDblEquals(tc, 0.1, ter->production[0].chance, 0.01); @@ -593,9 +602,10 @@ static void test_infinitive_from_config(CuTest *tc) { cJSON *json = cJSON_Parse(data); CuAssertPtrNotNull(tc, json); + test_setup(); + lang = get_or_create_locale("de"); json_config(json); - lang = get_or_create_locale("de"); CuAssertIntEquals(tc, K_STUDY, get_keyword("LERN", lang)); CuAssertIntEquals(tc, K_STUDY, get_keyword("LERNE", lang)); CuAssertIntEquals(tc, K_STUDY, get_keyword("LERNEN", lang)); diff --git a/src/kernel/messages.c b/src/kernel/messages.c index 330c2feeb..f74e9c0d7 100644 --- a/src/kernel/messages.c +++ b/src/kernel/messages.c @@ -92,10 +92,11 @@ struct message *msg_feedback(const struct unit *u, struct order *ord, if (!mtype) { log_warning("trying to create message of unknown type \"%s\"\n", name); if (!mt_find("missing_feedback")) { - mt_register(mt_new_va("missing_feedback", "unit:unit", "region:region", "command:order", "name:string", 0)); + mt_register(mt_new_va("missing_feedback", "unit:unit", + "region:region", "command:order", "name:string", 0)); } - return msg_message("missing_feedback", "unit region command name", u, - u->region, ord, name); + return msg_message("missing_feedback", "name unit region command", + name, u, u->region, ord); } var.v = (void *)u; @@ -211,31 +212,13 @@ caddmessage(region * r, faction * f, const char *s, msg_t mtype, int level) { message *m = NULL; - unused_arg(level); + UNUSED_ARG(level); switch (mtype) { - case MSG_INCOME: - assert(f); - m = add_message(&f->msgs, msg_message("msg_economy", "string", s)); - break; case MSG_BATTLE: assert(0 || !"battle messages must not use addmessage"); break; - case MSG_MOVE: - assert(f); - m = add_message(&f->msgs, msg_message("msg_movement", "string", s)); - break; - case MSG_COMMERCE: - assert(f); - m = add_message(&f->msgs, msg_message("msg_economy", "string", s)); - break; - case MSG_PRODUCE: - assert(f); - m = add_message(&f->msgs, msg_message("msg_production", "string", s)); - break; case MSG_MAGIC: - case MSG_COMMENT: case MSG_MESSAGE: - case MSG_ORCVERMEHRUNG: case MSG_EVENT: /* Botschaften an REGION oder einzelne PARTEI */ m = msg_message("msg_event", "string", s); @@ -274,7 +257,7 @@ message * msg_error(const unit * u, struct order *ord, int mno) { message * cmistake(const unit * u, struct order *ord, int mno, int mtype) { message * result; - unused_arg(mtype); + UNUSED_ARG(mtype); result = msg_error(u, ord, mno); ADDMSG(&u->faction->msgs, result); return result; @@ -287,8 +270,6 @@ void syntax_error(const struct unit *u, struct order *ord) ADDMSG(&u->faction->msgs, result); } -extern unsigned int new_hashstring(const char *s); - void free_messagelist(mlist *msgs) { struct mlist **mlistptr; diff --git a/src/kernel/messages.h b/src/kernel/messages.h index 866eecba7..a42342153 100644 --- a/src/kernel/messages.h +++ b/src/kernel/messages.h @@ -57,7 +57,7 @@ extern "C" { struct mlist ** merge_messages(message_list *mlist, message_list *append); void split_messages(message_list *mlist, struct mlist **split); -#define ADDMSG(msgs, mcreate) { message * m = mcreate; if (m) { assert(m->refcount>=1); add_message(msgs, m); msg_release(m); } } +#define ADDMSG(msgs, mcreate) { message * mx = mcreate; if (mx) { assert(mx->refcount>=1); add_message(msgs, mx); msg_release(mx); } } void syntax_error(const struct unit *u, struct order *ord); struct message * cmistake(const struct unit *u, struct order *ord, int mno, int mtype); diff --git a/src/kernel/messages.test.c b/src/kernel/messages.test.c index fc6079dfe..7b0f2dd5e 100644 --- a/src/kernel/messages.test.c +++ b/src/kernel/messages.test.c @@ -39,7 +39,7 @@ void test_message(CuTest *tc) { static void test_merge_split(CuTest *tc) { message_list *mlist = 0, *append = 0; - struct mlist **split; // TODO: why is this a double asterisk? + struct mlist **split; /* TODO: why is this a double asterisk? */ message_type *mtype = mt_new("custom", NULL); message *msg; @@ -74,4 +74,5 @@ CuSuite *get_messages_suite(void) { SUITE_ADD_TEST(suite, test_merge_split); SUITE_ADD_TEST(suite, test_message); return suite; -} \ No newline at end of file +} + diff --git a/src/kernel/order.c b/src/kernel/order.c index f79b2dd68..776190b67 100644 --- a/src/kernel/order.c +++ b/src/kernel/order.c @@ -285,7 +285,7 @@ static order *create_order_i(keyword_t kwd, const char *sptr, bool persistent, order *ord = NULL; int lindex; - if ((int)kwd > 0 && keyword_disabled(kwd)) { + if (kwd == NOKEYWORD || keyword_disabled(kwd)) { log_error("trying to create an order for disabled keyword %s.", keyword(kwd)); return NULL; } @@ -405,10 +405,10 @@ order *parse_order(const char *s, const struct locale * lang) } } if (kwd != NOKEYWORD) { - while (isxspace(*(unsigned char *)sptr)) ++sptr; + while (isspace(*(unsigned char *)sptr)) ++sptr; s = sptr; + return create_order_i(kwd, s, persistent, lang); } - return create_order_i(kwd, s, persistent, lang); } return NULL; } diff --git a/src/kernel/order.h b/src/kernel/order.h index 8ad5592b7..7f4b00a5e 100644 --- a/src/kernel/order.h +++ b/src/kernel/order.h @@ -12,12 +12,15 @@ #ifndef KRNL_ORDER_H #define KRNL_ORDER_H + +#include "keyword.h" +#include +#include + #ifdef __cplusplus extern "C" { #endif -#include "keyword.h" - /* Encapsulation of an order * * This structure contains one order given by a unit. These used to be diff --git a/src/kernel/order.test.c b/src/kernel/order.test.c index 635e6e078..f5eb51c6f 100644 --- a/src/kernel/order.test.c +++ b/src/kernel/order.test.c @@ -1,5 +1,4 @@ #include -#include #include #include "order.h" diff --git a/src/kernel/pathfinder.c b/src/kernel/pathfinder.c index 8ae9bf128..ba45f926c 100644 --- a/src/kernel/pathfinder.c +++ b/src/kernel/pathfinder.c @@ -18,7 +18,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include -#include +#include #include "pathfinder.h" #include "region.h" @@ -102,10 +102,10 @@ static void free_nodes(node * root) } } -struct quicklist *regions_in_range(struct region *start, int maxdist, +struct selist *regions_in_range(struct region *start, int maxdist, bool(*allowed) (const struct region *, const struct region *)) { - quicklist * rlist = NULL; + selist * rlist = NULL; node *root = new_node(start, 0, NULL); node **end = &root->next; node *n = root; @@ -127,7 +127,7 @@ struct quicklist *regions_in_range(struct region *start, int maxdist, continue; /* can't go there */ /* add the region to the list of available ones. */ - ql_push(&rlist, rn); + selist_push(&rlist, rn); /* make sure we don't go here again, and put the region into the set for further BFS'ing */ diff --git a/src/kernel/pathfinder.h b/src/kernel/pathfinder.h index 81692e835..682fa4d25 100644 --- a/src/kernel/pathfinder.h +++ b/src/kernel/pathfinder.h @@ -34,7 +34,7 @@ extern "C" { const struct region *target); extern bool allowed_walk(const struct region *src, const struct region *target); - extern struct quicklist *regions_in_range(struct region *src, int maxdist, + extern struct selist *regions_in_range(struct region *src, int maxdist, bool(*allowed) (const struct region *, const struct region *)); extern void pathfinder_cleanup(void); diff --git a/src/kernel/plane.c b/src/kernel/plane.c index 7e9650d13..0b2fdc0d3 100644 --- a/src/kernel/plane.c +++ b/src/kernel/plane.c @@ -234,7 +234,7 @@ plane *create_new_plane(int id, const char *name, int minx, int maxx, int miny, pl->next = NULL; pl->id = id; if (name) - pl->name = _strdup(name); + pl->name = strdup(name); pl->minx = minx; pl->maxx = maxx; pl->miny = miny; diff --git a/src/kernel/plane.h b/src/kernel/plane.h index 85c38cf9f..d06495f34 100644 --- a/src/kernel/plane.h +++ b/src/kernel/plane.h @@ -43,7 +43,6 @@ extern "C" { #define PFL_FRIENDLY 4096 /* everyone is your ally */ #define PFL_NOORCGROWTH 8192 /* orcs don't grow */ #define PFL_NOMONSTERS 16384 /* no monster randenc */ -#define PFL_SEESPECIAL 32768 /* far seeing */ typedef struct plane { struct plane *next; diff --git a/src/kernel/pool.c b/src/kernel/pool.c index 6ceeda63d..8dfd589c3 100644 --- a/src/kernel/pool.c +++ b/src/kernel/pool.c @@ -40,11 +40,11 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. int get_resource(const unit * u, const resource_type * rtype) { assert(rtype); - if (rtype->uget) { - /* this resource is probably special */ - int i = rtype->uget(u, rtype); - if (i >= 0) - return i; + if (rtype == get_resourcetype(R_PEASANT)) { + return u->region->land ? u->region->land->peasants : 0; + } + else if (rtype == rt_find("hp")) { + return u->hp; } else if (rtype->uchange) { /* this resource is probably special */ @@ -168,7 +168,7 @@ int count) use = have; else if (rtype->itype && mode & (GET_SLACK | GET_RESERVE)) { int reserve = get_reservation(u, rtype->itype); - int slack = _max(0, have - reserve); + int slack = MAX(0, have - reserve); if (mode & GET_RESERVE) use = have - slack; else if (mode & GET_SLACK) @@ -176,10 +176,10 @@ int count) } if (rtype->flags & RTF_POOLED && mode & ~(GET_SLACK | GET_RESERVE)) { for (v = r->units; v && use < count; v = v->next) - if (u != v && (v->items || rtype->uget)) { + if (u != v) { int mask; - if ((urace(v)->ec_flags & ECF_KEEP_ITEM)) + if ((u_race(v)->ec_flags & ECF_KEEP_ITEM)) continue; if (v->faction == f) { @@ -209,18 +209,18 @@ use_pooled(unit * u, const resource_type * rtype, unsigned int mode, int count) } if ((mode & GET_SLACK) && (mode & GET_RESERVE)) { - n = _min(use, have); + n = MIN(use, have); } else if (rtype->itype) { int reserve = get_reservation(u, rtype->itype); - int slack = _max(0, have - reserve); + int slack = MAX(0, have - reserve); if (mode & GET_RESERVE) { n = have - slack; - n = _min(use, n); + n = MIN(use, n); change_reservation(u, rtype->itype, -n); } else if (mode & GET_SLACK) { - n = _min(use, slack); + n = MIN(use, slack); } } if (n > 0) { @@ -232,9 +232,7 @@ use_pooled(unit * u, const resource_type * rtype, unsigned int mode, int count) for (v = r->units; use > 0 && v != NULL; v = v->next) { if (u != v) { int mask; - if ((urace(v)->ec_flags & ECF_KEEP_ITEM)) - continue; - if (v->items == NULL && rtype->uget == NULL) + if ((u_race(v)->ec_flags & ECF_KEEP_ITEM)) continue; if (v->faction == f) { diff --git a/src/kernel/race.c b/src/kernel/race.c index 57f443ea5..8a8cc906e 100644 --- a/src/kernel/race.c +++ b/src/kernel/race.c @@ -32,6 +32,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "region.h" #include "ship.h" #include "skill.h" +#include "spell.h" #include "terrain.h" #include "unit.h" @@ -39,9 +40,11 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include +#include #include #include #include +#include #include @@ -51,6 +54,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. /* libc includes */ #include #include +#include #include #include #include @@ -59,46 +63,161 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. /** external variables **/ race *races; int num_races = 0; -static int cache_breaker; +static int rc_changes = 1; static const char *racenames[MAXRACES] = { "dwarf", "elf", NULL, "goblin", "human", "troll", "demon", "insect", - "halfling", "cat", "aquarian", "orc", "snotling", "undead", "illusion", + "halfling", "cat", "aquarian", "orc", "snotling", "undead", NULL, "youngdragon", "dragon", "wyrm", "ent", "catdragon", "dracoid", - "special", "spell", "irongolem", "stonegolem", "shadowdemon", + NULL, "spell", "irongolem", "stonegolem", "shadowdemon", "shadowmaster", "mountainguard", "alp", "toad", "braineater", "peasant", "wolf", NULL, NULL, NULL, NULL, "songdragon", NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, "seaserpent", - "shadowknight", "centaur", "skeleton", "skeletonlord", "zombie", - "juju-zombie", "ghoul", "ghast", "museumghost", "gnome", "template", + "shadowknight", NULL, "skeleton", "skeletonlord", "zombie", + "juju", "ghoul", "ghast", NULL, NULL, "template", "clone" }; -static race * race_cache[MAXRACES]; +#define MAXOPTIONS 4 +typedef struct rcoption { + unsigned char key[MAXOPTIONS]; + variant value[MAXOPTIONS]; +} rcoption; -struct race *get_race(race_t rt) { - static int cache = -1; +enum { + RCO_NONE, + RCO_SCARE, /* races that scare and eat peasants */ + RCO_OTHER, /* may recruit from another race */ + RCO_STAMINA, /* every n levels of stamina add +1 RC */ + RCO_HUNGER, /* custom hunger.damage override (char *) */ + RCO_TRADELUX, + RCO_TRADEHERB +}; + + +static void rc_setoption(race *rc, int k, const char *value) { + unsigned char key = (unsigned char)k; + int i; + variant *v = NULL; + if (!rc->options) { + rc->options = malloc(sizeof(rcoption)); + rc->options->key[0] = key; + rc->options->key[1] = RCO_NONE; + v = rc->options->value; + } else { + for (i=0;!v && i < MAXOPTIONS && rc->options->key[i]!=RCO_NONE;++i) { + if (rc->options->key[i]==key) { + v = rc->options->value+i; + } + } + if (!v) { + assert(ioptions->value+i; + rc->options->key[i] = key; + if (i+1options->key[i+1]=RCO_NONE; + } + } + } + assert(v); + if (key == RCO_SCARE) { + v->i = atoi(value); + } + else if (key == RCO_STAMINA) { + v->i = atoi(value); + } + else if (key == RCO_OTHER) { + v->v = rc_get_or_create(value); + } + else if (key == RCO_HUNGER) { + v->v = strdup(value); + } + else if (key == RCO_TRADEHERB) { + v->i = atoi(value); + } + else if (key == RCO_TRADELUX) { + v->i = atoi(value); + } +} + +static variant *rc_getoption(const race *rc, int key) { + if (rc->options) { + int i; + for (i=0;i!=MAXOPTIONS && rc->options->key[i]!=RCO_NONE;++i) { + if (rc->options->key[i]==key) { + return rc->options->value+i; + } + } + } + return NULL; +} + +const struct race *findrace(const char *s, const struct locale *lang) +{ + void **tokens = get_translations(lang, UT_RACES); + variant token; + + assert(lang); + if (tokens && findtoken(*tokens, s, &token) == E_TOK_SUCCESS) { + return (const struct race *)token.v; + } + return NULL; +} + +const struct race *get_race(race_t rt) { const char * name; - race * result = 0; assert(rt < MAXRACES); name = racenames[rt]; if (!name) { - return 0; + return NULL; } - if (cache_breaker != cache) { - cache = cache_breaker; - memset(race_cache, 0, sizeof(race_cache)); - return race_cache[rt] = rc_get_or_create(name); + return rc_find(name); +} + +typedef struct xref { + race_t id; + const race *rc; +} rc_xref; + +int cmp_xref(const void *a, const void *b) +{ + const rc_xref *l = (const rc_xref *)a; + const rc_xref *r = (const rc_xref *)b; + if (l->rcrc) return -1; + if (l->rc>r->rc) return 1; + return 0; +} + +static rc_xref *xrefs; +race_t old_race(const struct race * rc) +{ + static int cache; + int i, l, r; + + if (rc_changed(&cache)) { + if (!xrefs) { + xrefs = malloc(sizeof(rc_xref) * MAXRACES); + } + for (i = 0; i != MAXRACES; ++i) { + xrefs[i].rc = get_race(i); + xrefs[i].id = (race_t)i; + } + qsort(xrefs, MAXRACES, sizeof(rc_xref), cmp_xref); } - else { - result = race_cache[rt]; - if (!result) { - result = race_cache[rt] = rc_get_or_create(name); + l=0; r=MAXRACES-1; + while (l<=r) { + int m = (l+r)/2; + if (rcxrefs[m].rc) { + l = m+1; + } else { + return (race_t)xrefs[m].id; } } - return result; + return NORACE; } race_list *get_familiarraces(void) @@ -109,7 +228,7 @@ race_list *get_familiarraces(void) if (!init) { race *rc = races; for (; rc != NULL; rc = rc->next) { - if (rc->init_familiar != NULL) { + if (rc->flags & RCF_FAMILIAR) { racelist_insert(&familiarraces, rc); } } @@ -139,14 +258,36 @@ void racelist_insert(struct race_list **rl, const struct race *r) void free_races(void) { while (races) { + int i; race * rc = races->next; - free_params(&races->parameters); + rcoption * opt = races->options; + + if (opt) { + for (i=0;i!=MAXOPTIONS && opt->key[i]!=RCO_NONE;++i) { + if (opt->key[i]==RCO_HUNGER) { + free(opt->value[i].v); + } + } + free(opt); + } + for (i = 0; races->attack[i].type!=AT_NONE; ++i) { + att *at = races->attack + i; + if (at->type == AT_SPELL) { + spellref_free(at->data.sp); + } + else { + free(at->data.dice); + } + } + free(xrefs); + xrefs = 0; free(races->_name); free(races->def_damage); free(races); races = rc; } num_races = 0; + ++rc_changes; } static race *rc_find_i(const char *name) @@ -157,9 +298,16 @@ static race *rc_find_i(const char *name) while (rc && strcmp(rname, rc->_name) != 0) { rc = rc->next; } - if (!rc && strcmp(name, "uruk") == 0) { - rc = rc_find_i("orc"); - log_warning("a reference was made to the retired race '%s', returning '%s'.", name, rc->_name); + if (!rc) { + const char *rc_depr[] = { "uruk", "orc", "illusion", "template", "juju-zombie", "juju", NULL }; + int i; + for (i = 0; rc_depr[i]; i += 2) { + if (strcmp(name, rc_depr[i]) == 0) { + rc = rc_find_i(rc_depr[i + 1]); + log_warning("a reference was made to the retired race '%s', returning '%s'.", name, rc->_name); + break; + } + } } return rc; } @@ -168,38 +316,72 @@ const race * rc_find(const char *name) { return rc_find_i(name); } -race *rc_get_or_create(const char *zName) +bool rc_changed(int *cache) { + assert(cache); + if (*cache != rc_changes) { + *cache = rc_changes; + return true; + } + return false; +} + +bool rc_can_use(const struct race *rc, const struct item_type *itype) +{ + if (itype->mask_allow) { + return (itype->mask_allow & rc->mask_item) != 0; + } + if (itype->mask_deny) { + return (itype->mask_deny & rc->mask_item) == 0; + } + return true; +} + +race *rc_create(const char *zName) { race *rc; int i; + char zText[64]; + + assert(zName); + rc = (race *)calloc(sizeof(race), 1); + rc->magres.sa[1] = 1; + rc->hitpoints = 1; + rc->weight = PERSON_WEIGHT; + rc->capacity = 540; + rc->income = 20; + rc->recruit_multi = 1.0F; + rc->regaura = 1.0F; + rc->speed = 1.0F; + rc->battle_flags = 0; + if (strchr(zName, ' ') != NULL) { + log_error("race '%s' has an invalid name. remove spaces\n", zName); + assert(strchr(zName, ' ') == NULL); + } + rc->_name = strdup(zName); + + rc->attack[0].type = AT_COMBATSPELL; + for (i = 1; i < RACE_ATTACKS; ++i) + rc->attack[i].type = AT_NONE; + rc->index = num_races++; + ++rc_changes; + rc->next = races; + + snprintf(zText, sizeof(zText), "age_%s", zName); + rc->age_unit = (race_func)get_function(zText); + + snprintf(zText, sizeof(zText), "name_%s", zName); + rc->name_unit = (race_func)get_function(zText); + + return races = rc; +} + +race *rc_get_or_create(const char *zName) +{ + race *rc; assert(zName); rc = rc_find_i(zName); - if (!rc) { - rc = (race *)calloc(sizeof(race), 1); - rc->hitpoints = 1; - rc->weight = PERSON_WEIGHT; - rc->capacity = 540; - rc->recruit_multi = 1.0F; - rc->regaura = 1.0F; - rc->speed = 1.0F; - rc->battle_flags = 0; - if (strchr(zName, ' ') != NULL) { - log_error("race '%s' has an invalid name. remove spaces\n", zName); - assert(strchr(zName, ' ') == NULL); - } - rc->_name = _strdup(zName); - rc->precombatspell = NULL; - - rc->attack[0].type = AT_COMBATSPELL; - for (i = 1; i < RACE_ATTACKS; ++i) - rc->attack[i].type = AT_NONE; - rc->index = num_races++; - ++cache_breaker; - rc->next = races; - return races = rc; - } - return rc; + return rc ? rc : rc_create(zName); } /** dragon movement **/ @@ -215,6 +397,93 @@ bool r_insectstalled(const region * r) return fval(r->terrain, ARCTIC_REGION); } +variant rc_magres(const race *rc) { + return rc->magres; +} + +double rc_maxaura(const race *rc) { + return rc->maxaura / 100.0; +} + +const char * rc_hungerdamage(const race *rc) +{ + variant *v = rc_getoption(rc, RCO_HUNGER); + return v ? (const char *)v->v : NULL; +} + +int rc_armor_bonus(const race *rc) +{ + variant *v = rc_getoption(rc, RCO_STAMINA); + return v ? v->i : 0; +} + +int rc_scare(const struct race *rc) +{ + variant *v = rc_getoption(rc, RCO_SCARE); + return v ? v->i : 0; +} + +int rc_luxury_trade(const struct race *rc) +{ + if (rc) { + variant *v = rc_getoption(rc, RCO_TRADELUX); + if (v) return v->i; + } + return 1000; +} + +int rc_herb_trade(const struct race *rc) +{ + if (rc) { + variant *v = rc_getoption(rc, RCO_TRADEHERB); + if (v) return v->i; + } + return 500; +} + +const race *rc_otherrace(const race *rc) +{ + variant *v = rc_getoption(rc, RCO_OTHER); + return v ? (const race *)v->v : NULL; +} + +int rc_migrants_formula(const race *rc) +{ + return (rc->flags&RCF_MIGRANTS) ? MIGRANTS_LOG10 : MIGRANTS_NONE; +} + +void rc_set_param(struct race *rc, const char *key, const char *value) { + if (strcmp(key, "recruit_multi") == 0) { + rc->recruit_multi = atof(value); + } + else if (strcmp(key, "migrants.formula") == 0) { + if (value[0] == '1') { + rc->flags |= RCF_MIGRANTS; + } + } + else if (strcmp(key, "other_race")==0) { + rc_setoption(rc, RCO_OTHER, value); + } + else if (strcmp(key, "ai.scare")==0) { + rc_setoption(rc, RCO_SCARE, value); + } + else if (strcmp(key, "hunger.damage")==0) { + rc_setoption(rc, RCO_HUNGER, value); + } + else if (strcmp(key, "armor.stamina")==0) { + rc_setoption(rc, RCO_STAMINA, value); + } + else if (strcmp(key, "luxury_trade")==0) { + rc_setoption(rc, RCO_TRADELUX, value); + } + else if (strcmp(key, "herb_trade")==0) { + rc_setoption(rc, RCO_TRADEHERB, value); + } + else { + log_error("unknown property for race %s: %s=%s", rc->_name, key, value); + } +} + const char* rc_name(const race * rc, name_t n, char *name, size_t size) { const char * postfix = 0; if (!rc) { @@ -228,7 +497,7 @@ const char* rc_name(const race * rc, name_t n, char *name, size_t size) { default: assert(!"invalid name_t enum in rc_name_s"); } if (postfix) { - _snprintf(name, size, "race::%s%s", rc->_name, postfix); + snprintf(name, size, "race::%s%s", rc->_name, postfix); return name; } return NULL; @@ -236,7 +505,7 @@ const char* rc_name(const race * rc, name_t n, char *name, size_t size) { const char *rc_name_s(const race * rc, name_t n) { - static char name[64]; // FIXME: static return value + static char name[64]; /* FIXME: static return value */ return rc_name(rc, n, name, sizeof(name)); } @@ -257,7 +526,7 @@ const char *racename(const struct locale *loc, const unit * u, const race * rc) const char *str, *prefix = raceprefix(u); if (prefix != NULL) { - static char lbuf[80]; // FIXME: static return value + static char lbuf[80]; /* FIXME: static return value */ char *bufp = lbuf; size_t size = sizeof(lbuf) - 1; int ch, bytes; @@ -302,17 +571,6 @@ variant read_race_reference(struct storage *store) return result; } -void register_race_description_function(race_desc_func func, const char *name) { +void register_race_function(race_func func, const char *name) { register_function((pf_generic)func, name); } - -void register_race_name_function(race_name_func func, const char *name) { - register_function((pf_generic)func, name); -} - -char * race_namegen(const struct race *rc, struct unit *u) { - if (rc->generate_name) { - rc->generate_name(u); - } - return NULL; -} diff --git a/src/kernel/race.h b/src/kernel/race.h index b1632f62d..fcd78ae19 100644 --- a/src/kernel/race.h +++ b/src/kernel/race.h @@ -18,13 +18,14 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #ifndef H_KRNL_RACE_H #define H_KRNL_RACE_H +#include +#include "magic.h" /* wegen MAXMAGIETYP */ +#include "skill.h" + #ifdef __cplusplus extern "C" { #endif -#include "magic.h" /* wegen MAXMAGIETYP */ -#include "skill.h" - #define AT_NONE 0 #define AT_STANDARD 1 #define AT_DRAIN_EXP 2 @@ -44,6 +45,10 @@ extern "C" { struct param; struct spell; + struct spellref; + struct locale; + struct rcoption; + struct item_type; extern int num_races; @@ -52,37 +57,31 @@ extern "C" { RC_ELF, RC_GOBLIN = 3, RC_HUMAN, - RC_TROLL, RC_DAEMON, RC_INSECT, RC_HALFLING, RC_CAT, - RC_AQUARIAN, RC_ORC, RC_SNOTLING, RC_UNDEAD, - RC_ILLUSION, - RC_FIREDRAGON, + RC_FIREDRAGON = 15, RC_DRAGON, RC_WYRM, RC_TREEMAN, RC_BIRTHDAYDRAGON, - RC_DRACOID, - RC_SPECIAL, - RC_SPELL, + + RC_SPELL = 22, RC_IRONGOLEM, RC_STONEGOLEM, - RC_SHADOW, RC_SHADOWLORD, RC_IRONKEEPER, RC_ALP, RC_TOAD, - RC_HIRNTOETER, RC_PEASANT, RC_WOLF = 32, @@ -91,20 +90,15 @@ extern "C" { RC_SEASERPENT = 51, RC_SHADOWKNIGHT, - RC_CENTAUR, - RC_SKELETON, + RC_SKELETON = 54, RC_SKELETON_LORD, RC_ZOMBIE, RC_ZOMBIE_LORD, RC_GHOUL, RC_GHOUL_LORD, - - RC_MUS_SPIRIT, - RC_GNOME, - RC_TEMPLATE, + RC_TEMPLATE = 62, RC_CLONE, - MAXRACES, NORACE = -1 } race_t; @@ -112,55 +106,51 @@ extern "C" { typedef struct att { int type; union { - const char *dice; - const struct spell *sp; + char *dice; + struct spellref *sp; } data; int flags; int level; } att; - typedef const char *(*race_desc_func)(const struct race *rc, const struct locale *lang); - typedef void (*race_name_func)(struct unit *); + typedef void (*race_func) (struct unit *); typedef struct race { char *_name; - float magres; - double maxaura; /* Faktor auf Maximale Aura */ + variant magres; + int healing; + int maxaura; /* Faktor auf Maximale Aura */ double regaura; /* Faktor auf Regeneration */ - double recruit_multi; /* Faktor fr Bauernverbrauch */ + double recruit_multi; /* Faktor f�r Bauernverbrauch */ int index; int recruitcost; int maintenance; int splitsize; int weight; int capacity; + int income; float speed; - float aggression; /* chance that a monster will attack */ int hitpoints; char *def_damage; int armor; int at_default; /* Angriffsskill Unbewaffnet (default: -2) */ int df_default; /* Verteidigungsskill Unbewaffnet (default: -2) */ - int at_bonus; /* Verndert den Angriffsskill (default: 0) */ - int df_bonus; /* Verndert den Verteidigungskill (default: 0) */ - struct param *parameters; // additional properties, for an example see natural_armor - const struct spell *precombatspell; + int at_bonus; /* Ver�ndert den Angriffsskill (default: 0) */ + int df_bonus; /* Ver�ndert den Verteidigungskill (default: 0) */ signed char *study_speed; /* study-speed-bonus in points/turn (0=30 Tage) */ int flags; int battle_flags; int ec_flags; + int mask_item; struct att attack[RACE_ATTACKS]; signed char bonus[MAXSKILLS]; - race_name_func generate_name; - race_desc_func describe; - void(*age) (struct unit * u); - bool(*move_allowed) (const struct region *, const struct region *); - struct item *(*itemdrop) (const struct race *, int size); - void(*init_familiar) (struct unit *); + race_func name_unit; + race_func age_unit; + + struct rcoption *options; /* rarely used properties */ const struct race *familiars[MAXMAGIETYP]; - struct attrib *attribs; struct race *next; } race; @@ -172,21 +162,41 @@ extern "C" { void racelist_clear(struct race_list **rl); void racelist_insert(struct race_list **rl, const struct race *r); + const struct race *findrace(const char *, const struct locale *); struct race_list *get_familiarraces(void); struct race *races; - struct race *get_race(race_t rt); + const struct race *get_race(race_t rt); /** TODO: compatibility hacks: **/ race_t old_race(const struct race *); + race *rc_create(const char *zName); race *rc_get_or_create(const char *name); + bool rc_changed(int *cache); const race *rc_find(const char *); void free_races(void); + bool rc_can_use(const struct race *rc, const struct item_type *itype); + typedef enum name_t { NAME_SINGULAR, NAME_PLURAL, NAME_DEFINITIVE, NAME_CATEGORY } name_t; const char * rc_name_s(const race *rc, name_t n); const char * rc_name(const race *rc, name_t n, char *name, size_t size); + void rc_set_param(struct race *rc, const char *key, const char *value); + + int rc_luxury_trade(const struct race *rc); + int rc_herb_trade(const struct race *rc); + variant rc_magres(const struct race *rc); + double rc_maxaura(const struct race *rc); + int rc_armor_bonus(const struct race *rc); + int rc_scare(const struct race *rc); + const char * rc_hungerdamage(const race *rc); + const race *rc_otherrace(const race *rc); + +#define MIGRANTS_NONE 0 +#define MIGRANTS_LOG10 1 + int rc_migrants_formula(const race *rc); + /* Flags. Do not reorder these without changing json_race() in jsonconf.c */ #define RCF_NPC (1<<0) /* cannot be the race for a player faction (and other limits?) */ #define RCF_KILLPEASANTS (1<<1) /* a monster that eats peasants */ @@ -197,20 +207,20 @@ extern "C" { #define RCF_LEARN (1<<6) /* Lernt automatisch wenn struct faction == 0 */ #define RCF_FLY (1<<7) /* kann fliegen */ #define RCF_SWIM (1<<8) /* kann schwimmen */ -#define RCF_WALK (1<<9) /* kann ber Land gehen */ +#define RCF_WALK (1<<9) /* kann �ber Land gehen */ #define RCF_NOLEARN (1<<10) /* kann nicht normal lernen */ #define RCF_NOTEACH (1<<11) /* kann nicht lehren */ #define RCF_HORSE (1<<12) /* Einheit ist Pferd, sozusagen */ #define RCF_DESERT (1<<13) /* 5% Chance, das Einheit desertiert */ #define RCF_ILLUSIONARY (1<<14) /* (Illusion & Spell) Does not drop items. */ -#define RCF_ABSORBPEASANTS (1<<15) /* Ttet und absorbiert Bauern */ +#define RCF_ABSORBPEASANTS (1<<15) /* T�tet und absorbiert Bauern */ #define RCF_NOHEAL (1<<16) /* Einheit kann nicht geheilt werden */ #define RCF_NOWEAPONS (1<<17) /* Einheit kann keine Waffen benutzen */ #define RCF_SHAPESHIFT (1<<18) /* Kann TARNE RASSE benutzen. */ #define RCF_SHAPESHIFTANY (1<<19) /* Kann TARNE RASSE "string" benutzen. */ #define RCF_UNDEAD (1<<20) /* Undead. */ -#define RCF_DRAGON (1<<21) /* Drachenart (fr Zauber) */ -#define RCF_COASTAL (1<<22) /* kann in Landregionen an der Kste sein */ +#define RCF_DRAGON (1<<21) /* Drachenart (f�r Zauber) */ +#define RCF_COASTAL (1<<22) /* kann in Landregionen an der K�ste sein */ #define RCF_UNARMEDGUARD (1<<23) /* kann ohne Waffen bewachen */ #define RCF_CANSAIL (1<<24) /* Einheit darf Schiffe betreten */ #define RCF_INVISIBLE (1<<25) /* not visible in any report */ @@ -218,19 +228,20 @@ extern "C" { #define RCF_STONEGOLEM (1<<27) /* race gets stonegolem properties */ #define RCF_IRONGOLEM (1<<28) /* race gets irongolem properties */ #define RCF_ATTACK_MOVED (1<<29) /* may attack if it has moved */ +#define RCF_MIGRANTS (1<<30) /* may have migrant units (human bonus) */ +#define RCF_FAMILIAR (1<<31) /* may be a familiar */ /* Economic flags */ -#define ECF_KEEP_ITEM (1<<1) /* gibt Gegenstnde weg */ -#define GIVEPERSON (1<<2) /* bergibt Personen */ -#define GIVEUNIT (1<<3) /* Einheiten an andere Partei bergeben */ -#define GETITEM (1<<4) /* nimmt Gegenstnde an */ -#define ECF_REC_HORSES (1<<6) /* Rekrutiert aus Pferden */ +#define ECF_KEEP_ITEM (1<<1) /* gibt Gegenst�nde weg */ +#define GIVEPERSON (1<<2) /* �bergibt Personen */ +#define GIVEUNIT (1<<3) /* Einheiten an andere Partei �bergeben */ +#define GETITEM (1<<4) /* nimmt Gegenst�nde an */ #define ECF_REC_ETHEREAL (1<<7) /* Rekrutiert aus dem Nichts */ #define ECF_REC_UNLIMITED (1<<8) /* Rekrutiert ohne Limit */ /* Battle-Flags */ -#define BF_EQUIPMENT (1<<0) /* Kann Ausrstung benutzen */ -#define BF_NOBLOCK (1<<1) /* Wird in die Rckzugsberechnung nicht einbezogen */ +#define BF_EQUIPMENT (1<<0) /* Kann Ausr�stung benutzen */ +#define BF_NOBLOCK (1<<1) /* Wird in die R�ckzugsberechnung nicht einbezogen */ #define BF_RES_PIERCE (1<<2) /* Halber Schaden durch PIERCE */ #define BF_RES_CUT (1<<3) /* Halber Schaden durch CUT */ #define BF_RES_BASH (1<<4) /* Halber Schaden durch BASH */ @@ -240,12 +251,10 @@ extern "C" { const char *racename(const struct locale *lang, const struct unit *u, const race * rc); -#define omniscient(f) ((f)->race==get_race(RC_ILLUSION) || (f)->race==get_race(RC_TEMPLATE)) - -#define playerrace(rc) (!fval((rc), RCF_NPC)) -#define dragonrace(rc) ((rc) == get_race(RC_FIREDRAGON) || (rc) == get_race(RC_DRAGON) || (rc) == get_race(RC_WYRM) || (rc) == get_race(RC_BIRTHDAYDRAGON)) -#define humanoidrace(rc) (fval((rc), RCF_UNDEAD) || (rc)==get_race(RC_DRACOID) || playerrace(rc)) -#define illusionaryrace(rc) (fval(rc, RCF_ILLUSIONARY)) +#define playerrace(rc) (!((rc)->flags & RCF_NPC)) +#define dragonrace(rc) ((rc)->flags & RCF_DRAGON) +#define humanoidrace(rc) (((rc)->flags & RCF_UNDEAD) || (rc)==get_race(RC_DRACOID) || playerrace(rc)) +#define illusionaryrace(rc) ((rc)->flags & RCF_ILLUSIONARY) bool allowed_dragon(const struct region *src, const struct region *target); @@ -257,9 +266,7 @@ extern "C" { variant read_race_reference(struct storage *store); const char *raceprefix(const struct unit *u); - void register_race_name_function(race_name_func, const char *); - void register_race_description_function(race_desc_func, const char *); - char * race_namegen(const struct race *rc, struct unit *u); + void register_race_function(race_func, const char *); #ifdef __cplusplus } diff --git a/src/kernel/race.test.c b/src/kernel/race.test.c index e8bbfcf29..2db76a6fd 100644 --- a/src/kernel/race.test.c +++ b/src/kernel/race.test.c @@ -1,15 +1,18 @@ #include #include #include "race.h" -#include +#include "item.h" + #include +#include #include +#include #include static void test_rc_name(CuTest *tc) { struct race *rc; - test_cleanup(); + test_setup(); rc = test_create_race("human"); CuAssertStrEquals(tc, "race::human", rc_name_s(rc, NAME_SINGULAR)); CuAssertStrEquals(tc, "race::human_p", rc_name_s(rc, NAME_PLURAL)); @@ -20,11 +23,13 @@ static void test_rc_name(CuTest *tc) { static void test_rc_defaults(CuTest *tc) { struct race *rc; - test_cleanup(); + test_setup(); rc = rc_get_or_create("human"); CuAssertStrEquals(tc, "human", rc->_name); - CuAssertDblEquals(tc, 0.0, rc->magres, 0.0); - CuAssertDblEquals(tc, 0.0, rc->maxaura, 0.0); + CuAssertIntEquals(tc, 0, rc_armor_bonus(rc)); + CuAssertIntEquals(tc, 0, rc->magres.sa[0]); + CuAssertIntEquals(tc, 0, rc->healing); + CuAssertDblEquals(tc, 0.0, rc_maxaura(rc), 0.0); CuAssertDblEquals(tc, 1.0, rc->recruit_multi, 0.0); CuAssertDblEquals(tc, 1.0, rc->regaura, 0.0); CuAssertDblEquals(tc, 1.0, rc->speed, 0.0); @@ -32,6 +37,7 @@ static void test_rc_defaults(CuTest *tc) { CuAssertIntEquals(tc, 0, rc->recruitcost); CuAssertIntEquals(tc, 0, rc->maintenance); CuAssertIntEquals(tc, 540, rc->capacity); + CuAssertIntEquals(tc, 20, rc->income); CuAssertIntEquals(tc, 1, rc->hitpoints); CuAssertIntEquals(tc, 0, rc->armor); CuAssertIntEquals(tc, 0, rc->at_bonus); @@ -43,18 +49,118 @@ static void test_rc_defaults(CuTest *tc) { static void test_rc_find(CuTest *tc) { race *rc; - test_cleanup(); + test_setup(); rc = test_create_race("hungryhippos"); CuAssertPtrEquals(tc, rc, (void *)rc_find("hungryhippos")); test_cleanup(); } +static void test_race_get(CuTest *tc) { + int cache = 0; + const race *rc; + test_setup(); + CuAssertTrue(tc, rc_changed(&cache)); + CuAssertTrue(tc, !rc_changed(&cache)); + rc = rc_get_or_create("elf"); + CuAssertPtrEquals(tc, (void *)rc, (void *)get_race(RC_ELF)); + CuAssertTrue(tc, rc_changed(&cache)); + CuAssertTrue(tc, !rc_changed(&cache)); + CuAssertPtrEquals(tc, (void *)rc, (void *)rc_find("elf")); + free_races(); + CuAssertTrue(tc, rc_changed(&cache)); + test_cleanup(); +} + +static void test_old_race(CuTest *tc) +{ + race * rc1, *rc2; + test_setup(); + test_create_race("dwarf"); + rc1 = test_create_race("elf"); + rc2 = test_create_race("onkel"); + CuAssertIntEquals(tc, RC_ELF, old_race(rc1)); + CuAssertIntEquals(tc, NORACE, old_race(rc2)); + rc2 = test_create_race("human"); + CuAssertIntEquals(tc, RC_ELF, old_race(rc1)); + CuAssertIntEquals(tc, RC_HUMAN, old_race(rc2)); + test_cleanup(); +} + +static void test_rc_set_param(CuTest *tc) { + race *rc; + test_setup(); + rc = test_create_race("human"); + CuAssertPtrEquals(tc, NULL, rc->options); + rc_set_param(rc, "recruit_multi", "0.5"); + CuAssertDblEquals(tc, 0.5, rc->recruit_multi, 0.0); + rc_set_param(rc, "migrants.formula", "1"); + CuAssertIntEquals(tc, RCF_MIGRANTS, rc->flags&RCF_MIGRANTS); + CuAssertIntEquals(tc, MIGRANTS_LOG10, rc_migrants_formula(rc)); + rc_set_param(rc, "ai.scare", "400"); + CuAssertIntEquals(tc, 400, rc_scare(rc)); + rc_set_param(rc, "hunger.damage", "1d10+12"); + CuAssertStrEquals(tc, "1d10+12", rc_hungerdamage(rc)); + test_cleanup(); +} + +static void test_rc_can_use(CuTest *tc) { + race *rc; + item_type *itype; + + test_setup(); + rc = test_create_race("goblin"); + itype = test_create_itemtype("plate"); + CuAssertTrue(tc, rc_can_use(rc, itype)); + + /* default case. all items and races in E2 */ + itype->mask_deny = 0; + rc->mask_item = 0; + CuAssertTrue(tc, rc_can_use(rc, itype)); + + /* some race is forbidden from using this item. */ + itype->mask_deny = 1; + + /* we are not that race. */ + rc->mask_item = 2; + CuAssertTrue(tc, rc_can_use(rc, itype)); + + /* we are that race */ + rc->mask_item = 1; + CuAssertTrue(tc, ! rc_can_use(rc, itype)); + + /* we are not a special race at all */ + rc->mask_item = 0; + CuAssertTrue(tc, rc_can_use(rc, itype)); + + /* only one race is allowed to use this item */ + itype->mask_deny = 0; + itype->mask_allow = 1; + + /* we are not that race */ + rc->mask_item = 2; + CuAssertTrue(tc, ! rc_can_use(rc, itype)); + + /* we are that race */ + rc->mask_item = 1; + CuAssertTrue(tc, rc_can_use(rc, itype)); + + /* we are not special */ + rc->mask_item = 0; + CuAssertTrue(tc, ! rc_can_use(rc, itype)); + + test_cleanup(); +} + CuSuite *get_race_suite(void) { CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_race_get); + SUITE_ADD_TEST(suite, test_old_race); SUITE_ADD_TEST(suite, test_rc_name); SUITE_ADD_TEST(suite, test_rc_defaults); SUITE_ADD_TEST(suite, test_rc_find); + SUITE_ADD_TEST(suite, test_rc_set_param); + SUITE_ADD_TEST(suite, test_rc_can_use); return suite; } diff --git a/src/kernel/region.c b/src/kernel/region.c index d6aa9ef27..48256fb60 100644 --- a/src/kernel/region.c +++ b/src/kernel/region.c @@ -32,13 +32,13 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "plane.h" #include "region.h" #include "resources.h" -#include "save.h" #include "ship.h" #include "terrain.h" #include "terrainid.h" #include "unit.h" /* util includes */ +#include #include #include #include @@ -135,6 +135,13 @@ const char *regionname(const region * r, const faction * f) return write_regionname(r, f, buf[index], sizeof(buf[index])); } +int region_maxworkers(const region *r) +{ + int size = production(r); + int treespace = (rtrees(r, 2) + rtrees(r, 1) / 2) * TREESIZE; + return MAX(size - treespace, MIN(size / 10, 200)); +} + int deathcount(const region * r) { attrib *a = a_find(r->attribs, &at_deathcount); @@ -397,7 +404,7 @@ koor_distance_wrap_xy(int x1, int y1, int x2, int y2, int width, int height) int dx = x1 - x2; int dy = y1 - y2; int result, dist; - int mindist = _min(width, height) >> 1; + int mindist = MIN(width, height) >> 1; /* Bei negativem dy am Ursprung spiegeln, das veraendert * den Abstand nicht @@ -420,13 +427,13 @@ koor_distance_wrap_xy(int x1, int y1, int x2, int y2, int width, int height) if (result <= mindist) return result; } - dist = _max(dx, height - dy); + dist = MAX(dx, height - dy); if (dist >= 0 && dist < result) { result = dist; if (result <= mindist) return result; } - dist = _max(width - dx, dy); + dist = MAX(width - dx, dy); if (dist >= 0 && dist < result) result = dist; return result; @@ -691,19 +698,18 @@ void r_setdemand(region * r, const luxury_type * ltype, int value) d = *dp; if (!d) { d = *dp = malloc(sizeof(struct demand)); + assert_alloc(d); d->next = NULL; d->type = ltype; } d->value = value; } -const item_type *r_luxury(region * r) +const item_type *r_luxury(const region * r) { struct demand *dmd; if (r->land) { - if (!r->land->demands) { - fix_demand(r); - } + assert(r->land->demands || !"need to call fix_demands on a region"); for (dmd = r->land->demands; dmd; dmd = dmd->next) { if (dmd->value == 0) return dmd->type->itype; @@ -764,6 +770,7 @@ region *new_region(int x, int y, struct plane *pl, int uid) return r; } r = calloc(1, sizeof(region)); + assert_alloc(r); r->x = x; r->y = y; r->uid = uid; @@ -1011,6 +1018,20 @@ void setluxuries(region * r, const luxury_type * sale) } } +int fix_demand(region * rd) { + luxury_type * ltype; + int maxluxuries = get_maxluxuries(); + if (maxluxuries > 0) { + int sale = rng_int() % maxluxuries; + for (ltype = luxurytypes; sale != 0 && ltype; ltype = ltype->next) { + --sale; + } + setluxuries(rd, ltype); + return 0; + } + return -1; +} + void terraform_region(region * r, const terrain_type * terrain) { /* Resourcen, die nicht mehr vorkommen knnen, lschen */ @@ -1059,7 +1080,6 @@ void terraform_region(region * r, const terrain_type * terrain) rsetmoney(r, 0); freset(r, RF_ENCOUNTER); freset(r, RF_MALLORN); - /* Beschreibung und Namen lschen */ return; } @@ -1084,6 +1104,7 @@ void terraform_region(region * r, const terrain_type * terrain) r->land->ownership = NULL; region_set_morale(r, MORALE_DEFAULT, -1); region_setname(r, makename()); + fix_demand(r); for (d = 0; d != MAXDIRECTIONS; ++d) { region *nr = rconnect(r, d); if (nr && nr->land) { @@ -1114,7 +1135,7 @@ void terraform_region(region * r, const terrain_type * terrain) } } if (!nb) { - // TODO: this is really lame + /* TODO: this is really lame */ int i = get_maxluxuries(); if (i > 0) { i = rng_int() % i; @@ -1196,8 +1217,8 @@ void terraform_region(region * r, const terrain_type * terrain) if (!fval(r, RF_CHAOTIC)) { int peasants; - peasants = (maxworkingpeasants(r) * (20 + dice_rand("6d10"))) / 100; - rsetpeasants(r, _max(100, peasants)); + peasants = (region_maxworkers(r) * (20 + dice(6, 10))) / 100; + rsetpeasants(r, MAX(100, peasants)); rsetmoney(r, rpeasants(r) * ((wage(r, NULL, NULL, INT_MAX) + 1) + rng_int() % 5)); } @@ -1306,9 +1327,17 @@ struct message *msg) struct faction *region_get_owner(const struct region *r) { - assert(rule_region_owners()); - if (r->land && r->land->ownership) { - return r->land->ownership->owner; + if (r->land) { + if (rule_region_owners()) { + if (r->land->ownership) { + return r->land->ownership->owner; + } + } + else { + building *b = largestbuilding(r, cmp_castle_size, false); + unit * u = b ? building_owner(b) : NULL; + return u ? u->faction : NULL; + } } return NULL; } @@ -1377,7 +1406,7 @@ faction *update_owners(region * r) else if (f || new_owner->faction != region_get_last_owner(r)) { alliance *al = region_get_alliance(r); if (al && new_owner->faction->alliance == al) { - int morale = _max(0, region_get_morale(r) - MORALE_TRANSFER); + int morale = MAX(0, region_get_morale(r) - MORALE_TRANSFER); region_set_morale(r, morale, turn); } else { @@ -1400,7 +1429,7 @@ faction *update_owners(region * r) void region_setinfo(struct region *r, const char *info) { free(r->display); - r->display = info ? _strdup(info) : 0; + r->display = info ? strdup(info) : 0; } const char *region_getinfo(const region * r) @@ -1412,7 +1441,7 @@ void region_setname(struct region *r, const char *name) { if (r->land) { free(r->land->name); - r->land->name = name ? _strdup(name) : 0; + r->land->name = name ? strdup(name) : 0; } } diff --git a/src/kernel/region.h b/src/kernel/region.h index bbc5282b0..9fa1a2daa 100644 --- a/src/kernel/region.h +++ b/src/kernel/region.h @@ -20,6 +20,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #define H_KRNL_REGION #include +#include #include "types.h" #include "direction.h" @@ -44,7 +45,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #define RF_ENCOUNTER (1<<9) /* persistent */ #define RF_MAPPER_HIGHLIGHT (1<<10) #define RF_LIGHTHOUSE (1<<11) /* this region may contain a lighthouse */ -#define RF_ORCIFIED (1<<12) /* persistent */ #define RF_MIGRATION (1<<13) #define RF_UNUSED_14 (1<<14) @@ -58,7 +58,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #define RF_ALL 0xFFFFFF -#define RF_SAVEMASK (RF_CHAOTIC|RF_MALLORN|RF_BLOCKED|RF_ENCOUNTER|RF_ORCIFIED|RF_GUARDED) +#define RF_SAVEMASK (RF_CHAOTIC|RF_MALLORN|RF_BLOCKED|RF_ENCOUNTER|RF_GUARDED|RF_LIGHTHOUSE) struct message; struct message_list; struct rawmaterial; @@ -137,6 +137,9 @@ extern "C" { #ifdef FAST_CONNECT struct region *connect[MAXDIRECTIONS]; /* use rconnect(r, dir) to access */ #endif + struct { + seen_mode mode; + } seen; } region; extern struct region *regions; @@ -157,6 +160,7 @@ extern "C" { #define reg_hashkey(r) (r->index) + extern int fix_demand(struct region *r); int distance(const struct region *, const struct region *); int koor_distance(int ax, int ay, int bx, int by); struct region *findregion(int x, int y); @@ -261,6 +265,7 @@ extern "C" { const char *regionname(const struct region *r, const struct faction *f); + int region_maxworkers(const struct region *r); const char *region_getname(const struct region *self); void region_setname(struct region *self, const char *name); const char *region_getinfo(const struct region *self); @@ -271,7 +276,7 @@ extern "C" { int value); int owner_change(const region * r); bool is_mourning(const region * r, int in_turn); - const struct item_type *r_luxury(struct region *r); + const struct item_type *r_luxury(const struct region *r); void get_neighbours(const struct region *r, struct region **list); struct faction *update_owners(struct region *r); diff --git a/src/kernel/region.test.c b/src/kernel/region.test.c new file mode 100644 index 000000000..892b37a8e --- /dev/null +++ b/src/kernel/region.test.c @@ -0,0 +1,61 @@ +#include + +#include "region.h" +#include "building.h" +#include "unit.h" +#include "terrain.h" +#include "item.h" + +#include +#include + +void test_terraform(CuTest *tc) { + region *r; + terrain_type *t_plain, *t_ocean; + item_type *itype; + + test_setup(); + itype = test_create_itemtype("ointment"); + itype->rtype->flags |= (RTF_ITEM | RTF_POOLED); + new_luxurytype(itype, 0); + + t_plain = test_create_terrain("plain", LAND_REGION); + t_ocean = test_create_terrain("ocean", SEA_REGION); + r = test_create_region(0, 0, t_ocean); + CuAssertPtrEquals(tc, 0, r->land); + terraform_region(r, t_plain); + CuAssertPtrNotNull(tc, r->land); + CuAssertPtrNotNull(tc, r->land->demands); + CuAssertPtrEquals(tc, itype, (void *)r->land->demands->type->itype); + CuAssertIntEquals(tc, 0, r->land->demands->type->price); + terraform_region(r, t_ocean); + CuAssertPtrEquals(tc, 0, r->land); + test_cleanup(); +} + +static void test_region_get_owner(CuTest *tc) { + region *r; + building *b1, *b2; + unit *u1, *u2; + + test_setup(); + r = test_create_region(0, 0, 0); + b1 = test_create_building(r, NULL); + b2 = test_create_building(r, NULL); + b1->size = 5; + b2->size = 10; + u1 = test_create_unit(test_create_faction(0), r); + u_set_building(u1, b1); + u2 = test_create_unit(test_create_faction(0), r); + u_set_building(u2, b2); + CuAssertPtrEquals(tc, u2->faction, region_get_owner(r)); + test_cleanup(); +} + +CuSuite *get_region_suite(void) +{ + CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_terraform); + SUITE_ADD_TEST(suite, test_region_get_owner); + return suite; +} diff --git a/src/kernel/resources.c b/src/kernel/resources.c index 658445c69..932147a5f 100644 --- a/src/kernel/resources.c +++ b/src/kernel/resources.c @@ -46,7 +46,7 @@ extern int dice_rand(const char *s); static void update_resource(struct rawmaterial *res, double modifier) { - double amount = 1 + (res->level - res->startlevel) * res->divisor / 100.0; + double amount = (res->level - res->startlevel) / 100.0 * res->divisor + 1; amount = ResourceFactor() * res->base * amount * modifier; if (amount < 1.0) res->amount = 1; @@ -69,6 +69,7 @@ const resource_type * rtype) rm->divisor = divisor; rm->flags = 0; rm->type = rmt_get(rtype); + assert(rm->type); update_resource(rm, 1.0); rm->type->terraform(rm, r); } @@ -111,7 +112,7 @@ static void terraform_default(struct rawmaterial *res, const region * r) res->amount = (int)(res->amount * modifier); /* random adjustment, +/- 91% */ if (res->amount < 1) res->amount = 1; - unused_arg(r); + UNUSED_ARG(r); } #ifdef RANDOM_CHANGE @@ -183,35 +184,54 @@ struct rawmaterial *rm_get(region * r, const struct resource_type *rtype) return rm; } -struct rawmaterial_type *rawmaterialtypes = 0; - struct rawmaterial_type *rmt_find(const char *str) { - rawmaterial_type *rmt = rawmaterialtypes; - while (rmt && strcmp(rmt->name, str) != 0) - rmt = rmt->next; - return rmt; + resource_type *rtype = rt_find(str); + if (!rtype && strncmp(str, "rm_", 3) == 0) { + rtype = rt_find(str+3); + } + assert(rtype); + return rtype ? rtype->raw : NULL; } struct rawmaterial_type *rmt_get(const struct resource_type *rtype) { - rawmaterial_type *rmt = rawmaterialtypes; - while (rmt && rmt->rtype != rtype) - rmt = rmt->next; - return rmt; + return rtype->raw; } -struct rawmaterial_type *rmt_create(const struct resource_type *rtype, - const char *name) +struct rawmaterial_type *rmt_create(struct resource_type *rtype) { - rawmaterial_type *rmtype = malloc(sizeof(rawmaterial_type)); - rmtype->name = _strdup(name); + rawmaterial_type *rmtype; + + assert(!rtype->raw); + assert(!rtype->itype || rtype->itype->construction); + rmtype = rtype->raw = malloc(sizeof(rawmaterial_type)); rmtype->rtype = rtype; rmtype->terraform = terraform_default; rmtype->update = NULL; rmtype->use = use_default; rmtype->visible = visible_default; - rmtype->next = rawmaterialtypes; - rawmaterialtypes = rmtype; return rmtype; } + +int(*item_use_fun)(struct unit *u, const struct item_type *itype, int amount, + struct order *ord); +int(*res_limit_fun)(const struct region *, const struct resource_type *); +void(*res_produce_fun)(struct region *, const struct resource_type *, int); + +int limit_resource(const struct region *r, const resource_type *rtype) +{ + assert(!rtype->raw); + if (res_limit_fun) { + return res_limit_fun(r, rtype); + } + return -1; +} + +void produce_resource(struct region *r, const struct resource_type *rtype, int amount) +{ + assert(!rtype->raw); + if (res_produce_fun) { + res_produce_fun(r, rtype, amount); + } +} diff --git a/src/kernel/resources.h b/src/kernel/resources.h index 32c69036c..7f48fa0dd 100644 --- a/src/kernel/resources.h +++ b/src/kernel/resources.h @@ -15,6 +15,9 @@ extern "C" { #endif + struct building_type; + struct race; + enum { RM_USED = 1 << 0, /* resource has been used */ RM_MALLORN = 1 << 1 /* this is not wood. it's mallorn */ @@ -40,34 +43,41 @@ extern "C" { struct rawmaterial *next; } rawmaterial; + typedef struct resource_mod { + variant value; + const struct building_type *btype; + const struct race *race; + unsigned int flags; + } resource_mod; + typedef struct rawmaterial_type { - char *name; const struct resource_type *rtype; void(*terraform) (struct rawmaterial *, const struct region *); void(*update) (struct rawmaterial *, const struct region *); void(*use) (struct rawmaterial *, const struct region *, int amount); int(*visible) (const struct rawmaterial *, int skilllevel); - - /* no initialization required */ - struct rawmaterial_type *next; } rawmaterial_type; extern struct rawmaterial_type *rawmaterialtypes; - extern void update_resources(struct region *r); - extern void terraform_resources(struct region *r); - extern void read_resources(struct region *r); - extern void write_resources(struct region *r); - extern struct rawmaterial *rm_get(struct region *, + void update_resources(struct region *r); + void terraform_resources(struct region *r); + struct rawmaterial *rm_get(struct region *, const struct resource_type *); - extern struct rawmaterial_type *rmt_find(const char *str); - extern struct rawmaterial_type *rmt_get(const struct resource_type *); + struct rawmaterial_type *rmt_find(const char *str); + struct rawmaterial_type *rmt_get(const struct resource_type *); - extern void add_resource(struct region *r, int level, int base, int divisor, + void add_resource(struct region *r, int level, int base, int divisor, const struct resource_type *rtype); - extern struct rawmaterial_type *rmt_create(const struct resource_type *rtype, - const char *name); + struct rawmaterial_type *rmt_create(struct resource_type *rtype); + + extern int(*res_limit_fun)(const struct region *, const struct resource_type *); + extern void(*res_produce_fun)(struct region *, const struct resource_type *, int); + extern int (*item_use_fun)(struct unit *, const struct item_type *, int amount, + struct order *ord); + int limit_resource(const struct region *r, const struct resource_type *rtype); + void produce_resource(struct region *r, const struct resource_type *rtype, int amount); #ifdef __cplusplus } diff --git a/src/kernel/rules.c b/src/kernel/rules.c new file mode 100644 index 000000000..c7499fe0c --- /dev/null +++ b/src/kernel/rules.c @@ -0,0 +1,12 @@ +#include +#include "rules.h" + +int write_rules(const char *filename) { + return -1; +} + +int read_rules(const char *filename) +{ + return -1; +} + diff --git a/src/kernel/rules.h b/src/kernel/rules.h new file mode 100644 index 000000000..98f0bf240 --- /dev/null +++ b/src/kernel/rules.h @@ -0,0 +1,5 @@ +#pragma once + +int read_rules(const char *filename); +int write_rules(const char * filename); + diff --git a/src/kernel/save.c b/src/kernel/save.c index 5121e02ed..e487737f9 100644 --- a/src/kernel/save.c +++ b/src/kernel/save.c @@ -1,4 +1,4 @@ -/* +/* Copyright (c) 1998-2015, Enno Rehling Katja Zedel @@ -52,6 +52,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include /* util includes */ +#include #include #include #include @@ -71,7 +72,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include -#include +#include #include #include #include @@ -93,6 +94,8 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. /* exported symbols symbols */ int firstx = 0, firsty = 0; + +/* TODO: is this still important? */ int enc_gamedata = ENCODING_UTF8; /* local symbols */ @@ -207,12 +210,14 @@ static unit *unitorders(FILE * F, int enc, struct faction *f) if (*ordp) { ordp = &(*ordp)->next; } + else { + ADDMSG(&f->msgs, msg_message("parse_error", "unit command", u, s)); + } } } } else { - /* cmistake(?, buf, 160, MSG_EVENT); */ return NULL; } return u; @@ -231,8 +236,7 @@ static faction *factionorders(void) if (!checkpasswd(f, (const char *)pass)) { log_debug("Invalid password for faction %s", itoa36(fid)); - ADDMSG(&f->msgs, msg_message("wrongpasswd", "faction password", - f->no, pass)); + ADDMSG(&f->msgs, msg_message("wrongpasswd", "password", pass)); return 0; } /* Die Partei hat sich zumindest gemeldet, so dass sie noch @@ -276,7 +280,7 @@ int readorders(const char *filename) const char *s; init_tokens_str(b); s = gettoken(token, sizeof(token)); - p = (s && s[0] != '@') ? findparam(s, lang) : NOPARAM; + p = findparam_block(s, lang, true); switch (p) { case P_GAMENAME: case P_FACTION: @@ -294,7 +298,7 @@ int readorders(const char *filename) * vermerkt. */ case P_UNIT: - if (!f || !unitorders(F, enc_gamedata, f)) + if (!f || !unitorders(F, enc_gamedata, f)) { do { b = getbuf(F, enc_gamedata); if (!b) { @@ -305,7 +309,8 @@ int readorders(const char *filename) p = (s && s[0] != '@') ? findparam(s, lang) : NOPARAM; } while ((p != P_UNIT || !f) && p != P_FACTION && p != P_NEXT && p != P_GAMENAME); - break; + } + break; /* Falls in unitorders() abgebrochen wird, steht dort entweder eine neue * Partei, eine neue Einheit oder das File-Ende. Das switch() wird erneut @@ -374,49 +379,6 @@ race_t typus2race(unsigned char typus) return NORACE; } -void create_backup(char *file) -{ -#ifdef HAVE_LINK - char bfile[MAX_PATH]; - int c = 1; - - if (access(file, R_OK) == 0) - return; - do { - sprintf(bfile, "%s.backup%d", file, c); - c++; - } while (access(bfile, R_OK) == 0); - link(file, bfile); -#endif -} - -void read_items(struct storage *store, item ** ilist) -{ - for (;;) { - char ibuf[32]; - const item_type *itype; - int i; - READ_STR(store, ibuf, sizeof(ibuf)); - if (!strcmp("end", ibuf)) { - break; - } - itype = it_find(ibuf); - READ_INT(store, &i); - if (i <= 0) { - log_error("data contains an entry with %d %s", i, resourcename(itype->rtype, NMF_PLURAL)); - } - else { - if (itype && itype->rtype) { - i_change(ilist, itype, i); - } - else { - log_error("data contains unknown item type %s.", ibuf); - } - assert(itype && itype->rtype); - } - } -} - static void read_alliances(struct gamedata *data) { storage *store = data->store; @@ -474,7 +436,7 @@ void read_planes(gamedata *data) { } pl->id = id; READ_STR(store, name, sizeof(name)); - pl->name = _strdup(name); + pl->name = strdup(name); READ_INT(store, &pl->minx); READ_INT(store, &pl->maxx); READ_INT(store, &pl->miny); @@ -506,7 +468,7 @@ void read_planes(gamedata *data) { } } read_attribs(data, &pl->attribs, pl); - if (pl->id != 1094969858) { // Regatta + if (pl->id != 1094969858) { /* Regatta */ addlist(&planes, pl); } } @@ -549,19 +511,6 @@ void write_alliances(struct gamedata *data) WRITE_SECTION(data->store); } -void write_items(struct storage *store, item * ilist) -{ - item *itm; - for (itm = ilist; itm; itm = itm->next) { - assert(itm->number >= 0); - if (itm->number) { - WRITE_TOK(store, resourcename(itm->type->rtype, 0)); - WRITE_INT(store, itm->number); - } - } - WRITE_TOK(store, "end"); -} - static int resolve_owner(variant id, void *address) { region_owner *owner = (region_owner *)address; @@ -666,36 +615,6 @@ writeorder(struct gamedata *data, const struct order *ord, WRITE_STR(data->store, obuf); } -int read_attribs(gamedata *data, attrib **alist, void *owner) { - int result; - if (data->version < ATHASH_VERSION) { - result = a_read_orig(data, alist, owner); - } - else { - result = a_read(data, alist, owner); - } - if (result == AT_READ_DEPR) { - /* handle deprecated attributes */ - attrib *a = *alist; - while (a) { - if (a->type->upgrade) { - a->type->upgrade(alist, a); - } - a = a->nexttype; - } - } - return result; -} - -void write_attribs(storage *store, attrib *alist, const void *owner) -{ -#if RELEASE_VERSION < ATHASH_VERSION - a_write_orig(store, alist, owner); -#else - a_write(store, alist, owner); -#endif -} - unit *read_unit(struct gamedata *data) { unit *u; @@ -728,6 +647,7 @@ unit *read_unit(struct gamedata *data) } else { u = calloc(sizeof(unit), 1); + assert_alloc(u); u->no = n; uhash(u); } @@ -746,13 +666,19 @@ unit *read_unit(struct gamedata *data) } READ_STR(data->store, obuf, sizeof(obuf)); - u->_name = obuf[0] ? _strdup(obuf) : 0; + if (unicode_utf8_trim(obuf)!=0) { + log_warning("trim unit %s name to '%s'", itoa36(u->no), obuf); + } + u->_name = obuf[0] ? strdup(obuf) : 0; if (lomem) { READ_STR(data->store, NULL, 0); } else { READ_STR(data->store, obuf, sizeof(obuf)); - u->display = obuf[0] ? _strdup(obuf) : 0; + if (unicode_utf8_trim(obuf)!=0) { + log_warning("trim unit %s info to '%s'", itoa36(u->no), obuf); + } + u->display = obuf[0] ? strdup(obuf) : 0; } READ_INT(data->store, &number); set_number(u, number); @@ -771,17 +697,6 @@ unit *read_unit(struct gamedata *data) else u->irace = NULL; - if (rc->describe) { - const char *rcdisp = rc->describe(rc, u->faction->locale); - if (u->display && rcdisp) { - /* see if the data file contains old descriptions */ - if (strcmp(rcdisp, u->display) == 0) { - free(u->display); - u->display = NULL; - } - } - } - READ_INT(data->store, &n); if (n > 0) { building * b = findbuilding(n); @@ -985,6 +900,9 @@ static region *readregion(struct gamedata *data, int x, int y) else { char info[DISPLAYSIZE]; READ_STR(data->store, info, sizeof(info)); + if (unicode_utf8_trim(info)!=0) { + log_warning("trim region %d info to '%s'", uid, info); + }; region_setinfo(r, info); } @@ -1002,7 +920,10 @@ static region *readregion(struct gamedata *data, int x, int y) if (fval(r->terrain, LAND_REGION)) { r->land = calloc(1, sizeof(land_region)); READ_STR(data->store, name, sizeof(name)); - r->land->name = _strdup(name); + if (unicode_utf8_trim(name)!=0) { + log_warning("trim region %d name to '%s'", uid, name); + }; + r->land->name = strdup(name); } if (r->land) { int i; @@ -1097,10 +1018,13 @@ static region *readregion(struct gamedata *data, int x, int y) READ_INT(data->store, &n); r_setdemand(r, rtype->ltype, n); } + if (!r->land->demands) { + fix_demand(r); + } read_items(data->store, &r->land->items); if (data->version >= REGIONOWNER_VERSION) { READ_INT(data->store, &n); - region_set_morale(r, _max(0, (short)n), -1); + region_set_morale(r, MAX(0, (short)n), -1); read_owner(data, &r->land->ownership); } } @@ -1108,6 +1032,17 @@ static region *readregion(struct gamedata *data, int x, int y) return r; } +region *read_region(gamedata *data) +{ + storage *store = data->store; + region *r; + int x, y; + READ_INT(store, &x); + READ_INT(store, &y); + r = readregion(data, x, y); + return r; +} + void writeregion(struct gamedata *data, const region * r) { assert(r); @@ -1135,7 +1070,7 @@ void writeregion(struct gamedata *data, const region * r) WRITE_INT(data->store, rhorses(r)); while (res) { - WRITE_TOK(data->store, res->type->name); + WRITE_TOK(data->store, res->type->rtype->_name); WRITE_INT(data->store, res->level); WRITE_INT(data->store, res->amount); WRITE_INT(data->store, res->startlevel); @@ -1172,6 +1107,14 @@ void writeregion(struct gamedata *data, const region * r) WRITE_SECTION(data->store); } +void write_region(gamedata *data, const region *r) +{ + storage *store = data->store; + WRITE_INT(store, r->x); + WRITE_INT(store, r->y); + writeregion(data, r); +} + static ally **addally(const faction * f, ally ** sfp, int aid, int state) { struct faction *af = findfaction(aid); @@ -1226,56 +1169,6 @@ int get_spell_level_faction(const spell * sp, void * cbdata) return 0; } -void read_spellbook(spellbook **bookp, gamedata *data, int(*get_level)(const spell * sp, void *), void * cbdata) -{ - for (;;) { - spell *sp = 0; - char spname[64]; - int level = 0; - - READ_TOK(data->store, spname, sizeof(spname)); - if (strcmp(spname, "end") == 0) - break; - if (bookp) { - sp = find_spell(spname); - if (!sp) { - log_error("read_spells: could not find spell '%s'", spname); - } - } - if (data->version >= SPELLBOOK_VERSION) { - READ_INT(data->store, &level); - } - if (sp) { - spellbook * sb = *bookp; - if (level <= 0 && get_level) { - level = get_level(sp, cbdata); - } - if (!sb) { - *bookp = create_spellbook(0); - sb = *bookp; - } - if (level > 0 && (data->version >= SPELLBOOK_VERSION || !spellbook_get(sb, sp))) { - spellbook_add(sb, sp, level); - } - } - } -} - -void write_spellbook(const struct spellbook *book, struct storage *store) -{ - quicklist *ql; - int qi; - - if (book) { - for (ql = book->spells, qi = 0; ql; ql_advance(&ql, &qi, 1)) { - spellbook_entry *sbe = (spellbook_entry *)ql_get(ql, qi); - WRITE_TOK(store, sbe->sp->sname); - WRITE_INT(store, sbe->level); - } - } - WRITE_TOK(store, "end"); -} - static char * getpasswd(int fno) { const char *prefix = itoa36(fno); size_t len = strlen(prefix); @@ -1289,7 +1182,7 @@ static char * getpasswd(int fno) { assert(line[slen] == '\n'); line[slen] = 0; fclose(F); - return _strdup(line + len + 1); + return strdup(line + len + 1); } } fclose(F); @@ -1304,7 +1197,7 @@ static void read_password(gamedata *data, faction *f) { char * pass = getpasswd(f->no); if (pass) { faction_setpassword(f, password_encode(pass, PASSWORD_DEFAULT)); - free(pass); // TODO: remove this allocation! + free(pass); /* TODO: remove this allocation! */ } else { log_error("data version is BADCRYPT but %s not in password.txt", itoa36(f->no)); @@ -1327,11 +1220,7 @@ void _test_write_password(gamedata *data, const faction *f) { write_password(data, f); } -/** Reads a faction from a file. - * This function requires no context, can be called in any state. The - * faction may not already exist, however. - */ -faction *readfaction(struct gamedata * data) +faction *read_faction(struct gamedata * data) { ally **sfp; int planes, n; @@ -1346,9 +1235,10 @@ faction *readfaction(struct gamedata * data) f->no = n; } else { - f->allies = NULL; /* mem leak */ - while (f->attribs) + f->allies = NULL; /* FIXME: mem leak */ + while (f->attribs) { a_remove(&f->attribs, f->attribs); + } } READ_INT(data->store, &f->subscription); @@ -1366,7 +1256,7 @@ faction *readfaction(struct gamedata * data) assert(!al->members || !"non-allied dummy-alliance has more than one member"); } - ql_push(&al->members, f); + selist_push(&al->members, f); } else if (rule_region_owners()) { /* compat fix for non-allied factions */ @@ -1382,11 +1272,17 @@ faction *readfaction(struct gamedata * data) } READ_STR(data->store, name, sizeof(name)); - f->name = _strdup(name); + if (unicode_utf8_trim(name)!=0) { + log_warning("trim faction %s name to '%s'", itoa36(f->no), name); + }; + f->name = strdup(name); READ_STR(data->store, name, sizeof(name)); - f->banner = _strdup(name); + if (unicode_utf8_trim(name)!=0) { + log_warning("trim faction %s banner to '%s'", itoa36(f->no), name); + }; + f->banner = strdup(name); - log_debug(" - Lese Partei %s (%s)", f->name, factionid(f)); + log_debug(" - Lese Partei %s (%s)", f->name, itoa36(f->no)); READ_STR(data->store, name, sizeof(name)); if (set_email(&f->email, name) != 0) { @@ -1476,7 +1372,7 @@ faction *readfaction(struct gamedata * data) return f; } -void writefaction(struct gamedata *data, const faction * f) +void write_faction(struct gamedata *data, const faction * f) { ally *sf; ursprung *ur; @@ -1555,7 +1451,7 @@ static int cb_sb_maxlevel(spellbook_entry *sbe, void *cbdata) { return 0; } -int readgame(const char *filename, bool backup) +int readgame(const char *filename) { int n; char path[MAX_PATH]; @@ -1565,14 +1461,9 @@ int readgame(const char *filename, bool backup) FILE *F; size_t sz; - init_locales(); log_debug("- reading game data from %s", filename); join_path(datapath(), filename, path, sizeof(path)); - if (backup) { - create_backup(path); - } - F = fopen(path, "rb"); if (!F) { perror(path); @@ -1602,30 +1493,142 @@ int readgame(const char *filename, bool backup) return n; } -int read_game(gamedata *data) { +void write_building(gamedata *data, const building *b) +{ + storage *store = data->store; + + write_building_reference(b, store); + WRITE_STR(store, b->name); + WRITE_STR(store, b->display ? b->display : ""); + WRITE_INT(store, b->size); + WRITE_TOK(store, b->type->_name); + write_attribs(store, b->attribs, b); +} + +struct building *read_building(gamedata *data) { char name[DISPLAYSIZE]; - int n, p, nread; + building *b; + storage * store = data->store; + + b = (building *)calloc(1, sizeof(building)); + READ_INT(store, &b->no); + bhash(b); + READ_STR(store, name, sizeof(name)); + if (unicode_utf8_trim(name)!=0) { + log_warning("trim building %s name to '%s'", itoa36(b->no), name); + } + b->name = strdup(name); + if (lomem) { + READ_STR(store, NULL, 0); + } + else { + READ_STR(store, name, sizeof(name)); + if (unicode_utf8_trim(name)!=0) { + log_warning("trim building %s info to '%s'", itoa36(b->no), name); + } + b->display = strdup(name); + } + READ_INT(store, &b->size); + READ_STR(store, name, sizeof(name)); + b->type = bt_find(name); + if (!b->type) { + log_error("building %d has unknown type %s", b->no, name); + b->type = bt_find("building"); + assert(b->type); + } + read_attribs(data, &b->attribs, b); + + /* repairs, bug 2221: */ + if (b->type->maxsize>0 && b->size>b->type->maxsize) { + log_error("building too big: %s (%s size %d of %d), fixing.", buildingname(b), b->type->_name, b->size, b->type->maxsize); + b->size = b->type->maxsize; + } + return b; +} + +void write_ship(gamedata *data, const ship *sh) +{ + storage *store = data->store; + write_ship_reference(sh, store); + WRITE_STR(store, (const char *)sh->name); + WRITE_STR(store, sh->display ? (const char *)sh->display : ""); + WRITE_TOK(store, sh->type->_name); + WRITE_INT(store, sh->size); + WRITE_INT(store, sh->damage); + WRITE_INT(store, sh->flags & SFL_SAVEMASK); + assert((sh->type->flags & SFL_NOCOAST) == 0 || sh->coast == NODIRECTION); + WRITE_INT(store, sh->coast); + write_attribs(store, sh->attribs, sh); +} + +ship *read_ship(struct gamedata *data) +{ + char name[DISPLAYSIZE]; + ship *sh; + int n; + storage *store = data->store; + + sh = (ship *)calloc(1, sizeof(ship)); + READ_INT(store, &sh->no); + shash(sh); + READ_STR(store, name, sizeof(name)); + if (unicode_utf8_trim(name)!=0) { + log_warning("trim ship %s name to '%s'", itoa36(sh->no), name); + } + sh->name = strdup(name); + if (lomem) { + READ_STR(store, NULL, 0); + } + else { + READ_STR(store, name, sizeof(name)); + if (unicode_utf8_trim(name)!=0) { + log_warning("trim ship %s info to '%s'", itoa36(sh->no), name); + } + sh->display = strdup(name); + } + READ_STR(store, name, sizeof(name)); + sh->type = st_find(name); + if (sh->type == NULL) { + /* old datafiles */ + sh->type = st_find((const char *)LOC(default_locale, name)); + } + assert(sh->type || !"ship_type not registered!"); + + READ_INT(store, &sh->size); + READ_INT(store, &sh->damage); + if (data->version >= FOSS_VERSION) { + READ_INT(store, &sh->flags); + } + + /* Attribute rekursiv einlesen */ + + READ_INT(store, &n); + sh->coast = (direction_t)n; + if (sh->type->flags & SFL_NOCOAST) { + sh->coast = NODIRECTION; + } + read_attribs(data, &sh->attribs, sh); + return sh; +} + + +int read_game(gamedata *data) { + int p, nread; faction *f, **fp; region *r; - building *b, **bp; + building **bp; ship **shp; unit *u; int rmax = maxregions; - const struct building_type *bt_lighthouse = bt_find("lighthouse"); storage * store = data->store; + const struct building_type *bt_lighthouse = bt_find("lighthouse"); + if (data->version >= SAVEGAMEID_VERSION) { int gameid; READ_INT(store, &gameid); if (gameid != game_id()) { - int c; log_warning("game mismatch: datafile contains game %d, but config is for %d", gameid, game_id()); - printf("WARNING: invalid game id. any key to continue, Ctrl-C to stop\n"); - c = getchar(); - if (c == EOF) { - log_error("aborting."); - abort(); - } } } else { @@ -1644,11 +1647,12 @@ int read_game(gamedata *data) { READ_INT(store, &nread); log_debug(" - Einzulesende Parteien: %d\n", nread); fp = &factions; - while (*fp) + while (*fp) { fp = &(*fp)->next; + } while (--nread >= 0) { - faction *f = readfaction(data); + faction *f = read_faction(data); *fp = f; fp = &f->next; @@ -1664,53 +1668,23 @@ int read_game(gamedata *data) { rmax = nread; } log_debug(" - Einzulesende Regionen: %d/%d\r", rmax, nread); + while (--nread >= 0) { unit **up; - int x, y; - READ_INT(store, &x); - READ_INT(store, &y); - if ((nread & 0x3FF) == 0) { /* das spart extrem Zeit */ - log_debug(" - Einzulesende Regionen: %d/%d * %d,%d \r", rmax, nread, x, y); - } - --rmax; - - r = readregion(data, x, y); + r = read_region(data); /* Burgen */ READ_INT(store, &p); bp = &r->buildings; while (--p >= 0) { - - b = (building *)calloc(1, sizeof(building)); - READ_INT(store, &b->no); - *bp = b; - bp = &b->next; - bhash(b); - READ_STR(store, name, sizeof(name)); - b->name = _strdup(name); - if (lomem) { - READ_STR(store, NULL, 0); - } - else { - READ_STR(store, name, sizeof(name)); - b->display = _strdup(name); - } - READ_INT(store, &b->size); - READ_STR(store, name, sizeof(name)); - b->type = bt_find(name); - b->region = r; - read_attribs(data, &b->attribs, b); + building *b = *bp = read_building(data); if (b->type == bt_lighthouse) { r->flags |= RF_LIGHTHOUSE; } - - // repairs, bug 2221: - if (b->type->maxsize>0 && b->size>b->type->maxsize) { - log_error("building too big: %s (%s size %d of %d), fixing.", buildingname(b), b->type->_name, b->size, b->type->maxsize); - b->size = b->type->maxsize; - } + b->region = r; + bp = &b->next; } /* Schiffe */ @@ -1718,43 +1692,9 @@ int read_game(gamedata *data) { shp = &r->ships; while (--p >= 0) { - ship *sh = (ship *)calloc(1, sizeof(ship)); + ship *sh = *shp = read_ship(data); sh->region = r; - READ_INT(store, &sh->no); - *shp = sh; shp = &sh->next; - shash(sh); - READ_STR(store, name, sizeof(name)); - sh->name = _strdup(name); - if (lomem) { - READ_STR(store, NULL, 0); - } - else { - READ_STR(store, name, sizeof(name)); - sh->display = _strdup(name); - } - READ_STR(store, name, sizeof(name)); - sh->type = st_find(name); - if (sh->type == NULL) { - /* old datafiles */ - sh->type = st_find((const char *)LOC(default_locale, name)); - } - assert(sh->type || !"ship_type not registered!"); - - READ_INT(store, &sh->size); - READ_INT(store, &sh->damage); - if (data->version >= FOSS_VERSION) { - READ_INT(store, &sh->flags); - } - - /* Attribute rekursiv einlesen */ - - READ_INT(store, &n); - sh->coast = (direction_t)n; - if (sh->type->flags & SFL_NOCOAST) { - sh->coast = NODIRECTION; - } - read_attribs(data, &sh->attribs, sh); } *shp = 0; @@ -1779,8 +1719,13 @@ int read_game(gamedata *data) { *up = u; up = &u->next; - update_interval(u->faction, u->region); + update_interval(u->faction, r); } + + if ((nread & 0x3FF) == 0) { /* das spart extrem Zeit */ + log_debug(" - Einzulesende Regionen: %d/%d * %d,%d \r", rmax, nread, r->x, r->y); + } + --rmax; } read_borders(data); @@ -1792,8 +1737,9 @@ int read_game(gamedata *data) { for (r = regions; r; r = r->next) { if (r->flags & RF_LIGHTHOUSE) { building *b; - for (b = r->buildings; b; b = b->next) + for (b = r->buildings; b; b = b->next) { update_lighthouse(b); + } } } log_debug("marking factions as alive."); @@ -1858,12 +1804,6 @@ static void clear_npc_orders(faction *f) } } -int version_no(const char *str) { - int maj = 0, min = 0, bld = 0; - sscanf(str, "%d.%d.%d", &maj, &min, &bld); - return (maj << 16) | (min << 8) | bld; -} - int writegame(const char *filename) { int n; @@ -1877,7 +1817,7 @@ int writegame(const char *filename) join_path(datapath(), filename, path, sizeof(path)); #ifdef HAVE_UNISTD_H /* make sure we don't overwrite an existing file (hard links) */ - if (unlink(path)!=0) { + if (remove(path)!=0) { if (errno==ENOENT) { errno = 0; } @@ -1898,7 +1838,7 @@ int writegame(const char *filename) fstream_init(&strm, F); binstore_init(&store, &strm); - WRITE_INT(&store, version_no(ERESSEA_VERSION)); + WRITE_INT(&store, version_no(eressea_version())); n = write_game(&gdata); binstore_done(&store); fstream_done(&strm); @@ -1935,7 +1875,7 @@ int write_game(gamedata *data) { if (fval(f, FFL_NPC)) { clear_npc_orders(f); } - writefaction(data, f); + write_faction(data, f); WRITE_SECTION(store); } @@ -1955,44 +1895,26 @@ int write_game(gamedata *data) { log_debug(" - Schreibe Regionen: %d", n); } WRITE_SECTION(store); - WRITE_INT(store, r->x); - WRITE_INT(store, r->y); - writeregion(data, r); + write_region(data, r); WRITE_INT(store, listlen(r->buildings)); WRITE_SECTION(store); for (b = r->buildings; b; b = b->next) { - write_building_reference(b, store); - WRITE_STR(store, b->name); - WRITE_STR(store, b->display ? b->display : ""); - WRITE_INT(store, b->size); - WRITE_TOK(store, b->type->_name); - WRITE_SECTION(store); - write_attribs(store, b->attribs, b); - WRITE_SECTION(store); + assert(b->region == r); + write_building(data, b); } WRITE_INT(store, listlen(r->ships)); WRITE_SECTION(store); for (sh = r->ships; sh; sh = sh->next) { assert(sh->region == r); - write_ship_reference(sh, store); - WRITE_STR(store, (const char *)sh->name); - WRITE_STR(store, sh->display ? (const char *)sh->display : ""); - WRITE_TOK(store, sh->type->_name); - WRITE_INT(store, sh->size); - WRITE_INT(store, sh->damage); - WRITE_INT(store, sh->flags & SFL_SAVEMASK); - assert((sh->type->flags & SFL_NOCOAST) == 0 || sh->coast == NODIRECTION); - WRITE_INT(store, sh->coast); - WRITE_SECTION(store); - write_attribs(store, sh->attribs, sh); - WRITE_SECTION(store); + write_ship(data, sh); } WRITE_INT(store, listlen(r->units)); WRITE_SECTION(store); for (u = r->units; u; u = u->next) { + assert(u->region == r); write_unit(data, u); } } @@ -2002,92 +1924,3 @@ int write_game(gamedata *data) { return 0; } - -int a_readint(attrib * a, void *owner, struct gamedata *data) -{ - /* assert(sizeof(int)==sizeof(a->data)); */ - READ_INT(data->store, &a->data.i); - return AT_READ_OK; -} - -void a_writeint(const attrib * a, const void *owner, struct storage *store) -{ - WRITE_INT(store, a->data.i); -} - -int a_readshorts(attrib * a, void *owner, struct gamedata *data) -{ - int n; - READ_INT(data->store, &n); - a->data.sa[0] = (short)n; - READ_INT(data->store, &n); - a->data.sa[1] = (short)n; - return AT_READ_OK; -} - -void a_writeshorts(const attrib * a, const void *owner, struct storage *store) -{ - WRITE_INT(store, a->data.sa[0]); - WRITE_INT(store, a->data.sa[1]); -} - -int a_readchars(attrib * a, void *owner, struct gamedata *data) -{ - int i; - for (i = 0; i != 4; ++i) { - int n; - READ_INT(data->store, &n); - a->data.ca[i] = (char)n; - } - return AT_READ_OK; -} - -void a_writechars(const attrib * a, const void *owner, struct storage *store) -{ - int i; - - for (i = 0; i != 4; ++i) { - WRITE_INT(store, a->data.ca[i]); - } -} - -int a_readvoid(attrib * a, void *owner, struct gamedata *data) -{ - return AT_READ_OK; -} - -void a_writevoid(const attrib * a, const void *owner, struct storage *store) -{ -} - -int a_readstring(attrib * a, void *owner, struct gamedata *data) -{ - char buf[DISPLAYSIZE]; - char * result = 0; - int e; - size_t len = 0; - do { - e = READ_STR(data->store, buf, sizeof(buf)); - if (result) { - result = realloc(result, len + DISPLAYSIZE - 1); - strcpy(result + len, buf); - len += DISPLAYSIZE - 1; - } - else { - result = _strdup(buf); - } - } while (e == ENOMEM); - a->data.v = result; - return AT_READ_OK; -} - -void a_writestring(const attrib * a, const void *owner, struct storage *store) -{ - assert(a->data.v); - WRITE_STR(store, (const char *)a->data.v); -} - -void a_finalizestring(attrib * a) -{ - free(a->data.v); -} diff --git a/src/kernel/save.h b/src/kernel/save.h index 27dd56661..763ff66b6 100644 --- a/src/kernel/save.h +++ b/src/kernel/save.h @@ -30,56 +30,42 @@ extern "C" { struct spell; struct spellbook; struct unit; + struct building; + struct faction; + struct region; + struct ship; struct gamedata; #define MAX_INPUT_SIZE DISPLAYSIZE*2 /* Nach MAX_INPUT_SIZE brechen wir das Einlesen der Zeile ab und nehmen an, * dass hier ein Fehler (fehlende ") vorliegt */ - extern int data_version; + /* TODO: is this *really* still in use? */ extern int enc_gamedata; int readorders(const char *filename); - int creategame(void); - int readgame(const char *filename, bool backup); + int readgame(const char *filename); int writegame(const char *filename); int current_turn(void); - void read_items(struct storage *store, struct item **it); - void write_items(struct storage *store, struct item *it); - - void read_spellbook(struct spellbook **bookp, struct gamedata *data, int(*get_level)(const struct spell * sp, void *), void * cbdata); - void write_spellbook(const struct spellbook *book, struct storage *store); - - void write_attribs(struct storage *store, struct attrib *alist, const void *owner); - int read_attribs(struct gamedata *store, struct attrib **alist, void *owner); - void write_unit(struct gamedata *data, const struct unit *u); struct unit *read_unit(struct gamedata *data); + + void write_faction(struct gamedata *data, const struct faction *f); + struct faction *read_faction(struct gamedata *data); - int a_readint(struct attrib *a, void *owner, struct gamedata *); - void a_writeint(const struct attrib *a, const void *owner, - struct storage *store); - int a_readshorts(struct attrib *a, void *owner, struct gamedata *); - void a_writeshorts(const struct attrib *a, const void *owner, - struct storage *store); - int a_readchars(struct attrib *a, void *owner, struct gamedata *); - void a_writechars(const struct attrib *a, const void *owner, - struct storage *store); - int a_readvoid(struct attrib *a, void *owner, struct gamedata *); - void a_writevoid(const struct attrib *a, const void *owner, - struct storage *); - int a_readstring(struct attrib *a, void *owner, struct gamedata *); - void a_writestring(const struct attrib *a, const void *owner, - struct storage *); - void a_finalizestring(struct attrib *a); + void write_region(struct gamedata *data, const struct region *r); + struct region *read_region(struct gamedata *data); - void create_backup(char *file); + void write_building(struct gamedata *data, const struct building *b); + struct building *read_building(struct gamedata *data); + + void write_ship(struct gamedata *data, const struct ship *sh); + struct ship *read_ship(struct gamedata *data); int write_game(struct gamedata *data); int read_game(struct gamedata *data); - int version_no(const char *str); /* test-only functions that give access to internal implementation details (BAD) */ void _test_write_password(struct gamedata *data, const struct faction *f); diff --git a/src/kernel/save.test.c b/src/kernel/save.test.c index 95acbd4c0..9501df896 100644 --- a/src/kernel/save.test.c +++ b/src/kernel/save.test.c @@ -5,6 +5,9 @@ #include #include "save.h" +#include "version.h" +#include "building.h" +#include "ship.h" #include "unit.h" #include "group.h" #include "ally.h" @@ -26,6 +29,7 @@ #include #include +#include #include static void test_readwrite_data(CuTest * tc) @@ -34,7 +38,7 @@ static void test_readwrite_data(CuTest * tc) char path[MAX_PATH]; test_setup(); CuAssertIntEquals(tc, 0, writegame(filename)); - CuAssertIntEquals(tc, 0, readgame(filename, false)); + CuAssertIntEquals(tc, 0, readgame(filename)); join_path(datapath(), filename, path, sizeof(path)); CuAssertIntEquals(tc, 0, remove(path)); test_cleanup(); @@ -54,7 +58,8 @@ static void test_readwrite_unit(CuTest * tc) f = test_create_faction(0); fno = f->no; u = test_create_unit(f, r); - + unit_setname(u, " Hodor "); + CuAssertStrEquals(tc, " Hodor ", u->_name); mstream_init(&data.strm); gamedata_init(&data, &store, RELEASE_VERSION); write_unit(&data, u); @@ -68,11 +73,135 @@ static void test_readwrite_unit(CuTest * tc) u = read_unit(&data); CuAssertPtrNotNull(tc, u); CuAssertPtrEquals(tc, f, u->faction); + CuAssertStrEquals(tc, "Hodor", u->_name); CuAssertPtrEquals(tc, 0, u->region); mstream_done(&data.strm); gamedata_done(&data); - move_unit(u, r, NULL); // this makes sure that u doesn't leak + move_unit(u, r, NULL); /* this makes sure that u doesn't leak */ + test_cleanup(); +} + +static void test_readwrite_faction(CuTest * tc) +{ + gamedata data; + storage store; + faction *f; + + test_setup(); + f = test_create_faction(0); + free(f->name); + f->name = strdup(" Hodor "); + CuAssertStrEquals(tc, " Hodor ", f->name); + mstream_init(&data.strm); + gamedata_init(&data, &store, RELEASE_VERSION); + write_faction(&data, f); + + data.strm.api->rewind(data.strm.handle); + free_gamedata(); + gamedata_init(&data, &store, RELEASE_VERSION); + f = read_faction(&data); + CuAssertPtrNotNull(tc, f); + CuAssertStrEquals(tc, "Hodor", f->name); + CuAssertPtrEquals(tc, 0, f->units); + factions = f; + + mstream_done(&data.strm); + gamedata_done(&data); + test_cleanup(); +} + +static void test_readwrite_region(CuTest * tc) +{ + gamedata data; + storage store; + region *r; + + test_setup(); + r = test_create_region(0, 0, 0); + free(r->land->name); + r->land->name = strdup(" Hodor "); + CuAssertStrEquals(tc, " Hodor ", r->land->name); + mstream_init(&data.strm); + gamedata_init(&data, &store, RELEASE_VERSION); + write_region(&data, r); + + data.strm.api->rewind(data.strm.handle); + free_gamedata(); + gamedata_init(&data, &store, RELEASE_VERSION); + r = read_region(&data); + CuAssertPtrNotNull(tc, r); + CuAssertStrEquals(tc, "Hodor", r->land->name); + regions = r; + + mstream_done(&data.strm); + gamedata_done(&data); + test_cleanup(); +} + +static void test_readwrite_building(CuTest * tc) +{ + gamedata data; + storage store; + building *b; + region *r; + + test_setup(); + r = test_create_region(0, 0, 0); + b = test_create_building(r, 0); + free(b->name); + b->name = strdup(" Hodor "); + CuAssertStrEquals(tc, " Hodor ", b->name); + mstream_init(&data.strm); + gamedata_init(&data, &store, RELEASE_VERSION); + write_building(&data, b); + + data.strm.api->rewind(data.strm.handle); + free_gamedata(); + r = test_create_region(0, 0, 0); + gamedata_init(&data, &store, RELEASE_VERSION); + b = read_building(&data); + CuAssertPtrNotNull(tc, b); + CuAssertStrEquals(tc, "Hodor", b->name); + CuAssertPtrEquals(tc, 0, b->region); + b->region = r; + r->buildings = b; + + mstream_done(&data.strm); + gamedata_done(&data); + test_cleanup(); +} + +static void test_readwrite_ship(CuTest * tc) +{ + gamedata data; + storage store; + ship *sh; + region *r; + + test_setup(); + r = test_create_region(0, 0, 0); + sh = test_create_ship(r, 0); + free(sh->name); + sh->name = strdup(" Hodor "); + CuAssertStrEquals(tc, " Hodor ", sh->name); + mstream_init(&data.strm); + gamedata_init(&data, &store, RELEASE_VERSION); + write_ship(&data, sh); + + data.strm.api->rewind(data.strm.handle); + free_gamedata(); + r = test_create_region(0, 0, 0); + gamedata_init(&data, &store, RELEASE_VERSION); + sh = read_ship(&data); + CuAssertPtrNotNull(tc, sh); + CuAssertStrEquals(tc, "Hodor", sh->name); + CuAssertPtrEquals(tc, 0, sh->region); + sh->region = r; + r->ships = sh; + + mstream_done(&data.strm); + gamedata_done(&data); test_cleanup(); } @@ -82,8 +211,8 @@ static void test_readwrite_attrib(CuTest *tc) { attrib *a = NULL; test_setup(); - key_set(&a, 41); - key_set(&a, 42); + key_set(&a, 41, 42); + key_set(&a, 42, 43); mstream_init(&data.strm); gamedata_init(&data, &store, RELEASE_VERSION); write_attribs(data.store, a, NULL); @@ -94,8 +223,8 @@ static void test_readwrite_attrib(CuTest *tc) { read_attribs(&data, &a, NULL); mstream_done(&data.strm); gamedata_done(&data); - CuAssertTrue(tc, key_get(a, 41)); - CuAssertTrue(tc, key_get(a, 42)); + CuAssertIntEquals(tc, 42, key_get(a, 41)); + CuAssertIntEquals(tc, 43, key_get(a, 42)); a_removeall(&a, NULL); test_cleanup(); @@ -325,6 +454,10 @@ CuSuite *get_save_suite(void) SUITE_ADD_TEST(suite, test_readwrite_attrib); SUITE_ADD_TEST(suite, test_readwrite_data); SUITE_ADD_TEST(suite, test_readwrite_unit); + SUITE_ADD_TEST(suite, test_readwrite_faction); + SUITE_ADD_TEST(suite, test_readwrite_region); + SUITE_ADD_TEST(suite, test_readwrite_building); + SUITE_ADD_TEST(suite, test_readwrite_ship); SUITE_ADD_TEST(suite, test_readwrite_dead_faction_createunit); SUITE_ADD_TEST(suite, test_readwrite_dead_faction_changefaction); SUITE_ADD_TEST(suite, test_readwrite_dead_faction_regionowner); diff --git a/src/kernel/ship.c b/src/kernel/ship.c index 02a980b68..b9ac0b170 100644 --- a/src/kernel/ship.c +++ b/src/kernel/ship.c @@ -38,7 +38,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include +#include #include #include @@ -51,7 +51,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include -quicklist *shiptypes = NULL; +selist *shiptypes = NULL; static local_names *snames; @@ -66,15 +66,15 @@ const ship_type *findshiptype(const char *name, const struct locale *lang) sn = sn->next; } if (!sn) { - quicklist *ql; + selist *ql; int qi; sn = (local_names *)calloc(sizeof(local_names), 1); sn->next = snames; sn->lang = lang; - for (qi = 0, ql = shiptypes; ql; ql_advance(&ql, &qi, 1)) { - ship_type *stype = (ship_type *)ql_get(ql, qi); + for (qi = 0, ql = shiptypes; ql; selist_advance(&ql, &qi, 1)) { + ship_type *stype = (ship_type *)selist_get(ql, qi); variant var2; const char *n = LOC(lang, stype->_name); var2.v = (void *)stype; @@ -89,11 +89,11 @@ const ship_type *findshiptype(const char *name, const struct locale *lang) static ship_type *st_find_i(const char *name) { - quicklist *ql; + selist *ql; int qi; - for (qi = 0, ql = shiptypes; ql; ql_advance(&ql, &qi, 1)) { - ship_type *stype = (ship_type *)ql_get(ql, qi); + for (qi = 0, ql = shiptypes; ql; selist_advance(&ql, &qi, 1)) { + ship_type *stype = (ship_type *)selist_get(ql, qi); if (strcmp(stype->_name, name) == 0) { return stype; } @@ -109,9 +109,9 @@ ship_type *st_get_or_create(const char * name) { ship_type * st = st_find_i(name); if (!st) { st = (ship_type *)calloc(sizeof(ship_type), 1); - st->_name = _strdup(name); + st->_name = strdup(name); st->storm = 1.0; - ql_push(&shiptypes, (void *)st); + selist_push(&shiptypes, (void *)st); } return st; } @@ -201,8 +201,8 @@ ship *new_ship(const ship_type * stype, region * r, const struct locale *lang) sname = parameters[P_SHIP]; } assert(sname); - slprintf(buffer, sizeof(buffer), "%s %s", sname, shipid(sh)); - sh->name = _strdup(buffer); + slprintf(buffer, sizeof(buffer), "%s %s", sname, itoa36(sh->no)); + sh->name = strdup(buffer); shash(sh); if (r) { addlist(&r->ships, sh); @@ -250,8 +250,8 @@ static void free_shiptype(void *ptr) { } void free_shiptypes(void) { - ql_foreach(shiptypes, free_shiptype); - ql_free(shiptypes); + selist_foreach(shiptypes, free_shiptype); + selist_free(shiptypes); shiptypes = 0; } @@ -297,10 +297,9 @@ int crew_skill(const ship *sh) { int shipspeed(const ship * sh, const unit * u) { - int k = sh->type->range; attrib *a; struct curse *c; - int bonus; + int k, bonus; assert(sh); if (!u) u = ship_owner(sh); @@ -310,6 +309,7 @@ int shipspeed(const ship * sh, const unit * u) assert(sh->type->construction); assert(sh->type->construction->improvement == NULL); /* sonst ist construction::size nicht ship_type::maxsize */ + k = sh->type->range; if (sh->size != sh->type->construction->maxsize) return 0; @@ -333,8 +333,8 @@ int shipspeed(const ship * sh, const unit * u) int crew = crew_skill(sh); int crew_bonus = (crew / sh->type->sumskill / 2) - 1; if (crew_bonus > 0) { - bonus = _min(bonus, crew_bonus); - bonus = _min(bonus, sh->type->range_max - sh->type->range); + bonus = MIN(bonus, crew_bonus); + bonus = MIN(bonus, sh->type->range_max - sh->type->range); } else { bonus = 0; @@ -417,7 +417,7 @@ static unit * ship_owner_ex(const ship * sh, const struct faction * last_owner) { unit *u, *heir = 0; - /* Eigentmer tot oder kein Eigentmer vorhanden. Erste lebende Einheit + /* Eigent�mer tot oder kein Eigent�mer vorhanden. Erste lebende Einheit * nehmen. */ for (u = sh->region->units; u; u = u->next) { if (u->ship == sh) { @@ -458,7 +458,7 @@ void write_ship_reference(const struct ship *sh, struct storage *store) void ship_setname(ship * self, const char *name) { free(self->name); - self->name = name ? _strdup(name) : 0; + self->name = name ? strdup(name) : 0; } const char *ship_getname(const ship * self) diff --git a/src/kernel/ship.h b/src/kernel/ship.h index 73b8a9718..285c29cc0 100644 --- a/src/kernel/ship.h +++ b/src/kernel/ship.h @@ -18,13 +18,16 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #ifndef H_KRNL_SHIP #define H_KRNL_SHIP -#ifdef __cplusplus -extern "C" { -#endif #include "types.h" #include "direction.h" +#include + +#ifdef __cplusplus +extern "C" { +#endif + #define DAMAGE_SCALE 100 /* multiplier for sh->damage */ /* ship_type::flags */ @@ -51,8 +54,8 @@ extern "C" { int minskill; /* min. skill to sail this (crew) */ int sumskill; /* min. sum of crew+captain */ - int at_bonus; /* Verndert den Angriffsskill (default: 0) */ - int df_bonus; /* Verndert den Verteidigungskill (default: 0) */ + int at_bonus; /* Ver�ndert den Angriffsskill (default: 0) */ + int df_bonus; /* Ver�ndert den Verteidigungskill (default: 0) */ float tac_bonus; struct terrain_type ** coasts; /* coast that this ship can land on */ @@ -60,7 +63,7 @@ extern "C" { struct construction *construction; /* how to build a ship */ } ship_type; - extern struct quicklist *shiptypes; + extern struct selist *shiptypes; /* Alte Schiffstypen: */ @@ -70,12 +73,12 @@ extern "C" { #define NOSHIP NULL -#define SF_DRIFTED 1<<0 -#define SF_MOVED 1<<1 -#define SF_DAMAGED 1<<2 /* for use in combat */ -#define SF_SELECT 1<<3 /* previously FL_DH */ -#define SF_FISHING 1<<4 /* was on an ocean, can fish */ -#define SF_FLYING 1<<5 /* the ship can fly */ +#define SF_DRIFTED (1<<0) +#define SF_MOVED (1<<1) +#define SF_DAMAGED (1<<2) /* for use in combat */ +#define SF_SELECT (1<<3) /* previously FL_DH */ +#define SF_FISHING (1<<4) /* was on an ocean, can fish */ +#define SF_FLYING (1<<5) /* the ship can fly */ #define SFL_SAVEMASK (SF_FLYING) #define INCOME_FISHING 10 diff --git a/src/kernel/skills.c b/src/kernel/skills.c index caae7b836..488800115 100644 --- a/src/kernel/skills.c +++ b/src/kernel/skills.c @@ -21,7 +21,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "skill.h" #include "curse.h" -#include "item.h" #include "race.h" #include "region.h" #include "terrain.h" @@ -104,16 +103,22 @@ int value, int flags) int skill_mod(const race * rc, skill_t sk, const struct terrain_type *terrain) { int result = 0; + static int rc_cache; + static const race *rc_dwarf, *rc_insect; + if (rc_changed(&rc_cache)) { + rc_dwarf = get_race(RC_DWARF); + rc_insect = get_race(RC_INSECT); + } result = rc->bonus[sk]; - if (rc == get_race(RC_DWARF)) { + if (rc == rc_dwarf) { if (sk == SK_TACTICS) { if (terrain == newterrain(T_MOUNTAIN) || fval(terrain, ARCTIC_REGION)) ++result; } } - else if (rc == get_race(RC_INSECT)) { + else if (rc == rc_insect) { if (terrain == newterrain(T_MOUNTAIN) || fval(terrain, ARCTIC_REGION)) --result; else if (terrain == newterrain(T_DESERT) || terrain == newterrain(T_SWAMP)) @@ -126,19 +131,25 @@ int skill_mod(const race * rc, skill_t sk, const struct terrain_type *terrain) int rc_skillmod(const struct race *rc, const region * r, skill_t sk) { int mods = 0; - if (!skill_enabled(sk)) { return 0; } if (r) { mods = skill_mod(rc, sk, r->terrain); } - if (rc == get_race(RC_ELF) && r && r_isforest(r)) { - if (sk == SK_PERCEPTION || sk == SK_STEALTH) { - ++mods; + if (r && r_isforest(r)) { + static int rc_cache; + static const race * rc_elf; + if (rc_changed(&rc_cache)) { + rc_elf = get_race(RC_ELF); } - else if (sk == SK_TACTICS) { - mods += 2; + if (rc == rc_elf) { + if (sk == SK_PERCEPTION || sk == SK_STEALTH) { + ++mods; + } + else if (sk == SK_TACTICS) { + mods += 2; + } } } return mods; @@ -172,9 +183,13 @@ void sk_set(skill * sv, int level) sv->level = level; } -static int rule_random_progress(void) +static bool rule_random_progress(void) { - return config_get_int("study.random_progress", 1); + static int rule, config; + if (config_changed(&config)) { + rule = config_get_int("study.random_progress", 1); + } + return rule != 0; } int skill_weeks(int level) diff --git a/src/kernel/spell.c b/src/kernel/spell.c index 8e14ec2c0..212b0a7d2 100644 --- a/src/kernel/spell.c +++ b/src/kernel/spell.c @@ -26,7 +26,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include +#include /* libc includes */ #include @@ -34,7 +34,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include static critbit_tree cb_spells; -quicklist * spells; +selist * spells; static void free_spell(spell *sp) { free(sp->syntax); @@ -50,14 +50,14 @@ static void free_spell_cb(void *cbdata) { void free_spells(void) { cb_clear(&cb_spells); - ql_foreach(spells, free_spell_cb); - ql_free(spells); + selist_foreach(spells, free_spell_cb); + selist_free(spells); spells = 0; } -void add_spell(struct quicklist **slistp, spell * sp) +void add_spell(struct selist **slistp, spell * sp) { - if (!ql_set_insert(slistp, sp)) { + if (!selist_set_insert(slistp, sp, NULL)) { log_error("add_spell: the list already contains the spell '%s'.\n", sp->sname); } } @@ -78,7 +78,7 @@ spell * create_spell(const char * name, unsigned int id) len = cb_new_kv(name, len, &sp, sizeof(sp), buffer); if (cb_insert(&cb_spells, buffer, len) == CB_SUCCESS) { sp->id = id ? id : hashstring(name); - sp->sname = _strdup(name); + sp->sname = strdup(name); add_spell(&spells, sp); return sp; } @@ -123,19 +123,19 @@ spell *find_spell(const char *name) spell *find_spellbyid(unsigned int id) { - quicklist *ql; + selist *ql; int qi; if (id == 0) return NULL; - for (qi = 0, ql = spells; ql; ql_advance(&ql, &qi, 1)) { - spell *sp = (spell *)ql_get(ql, qi); + for (qi = 0, ql = spells; ql; selist_advance(&ql, &qi, 1)) { + spell *sp = (spell *)selist_get(ql, qi); if (sp->id == id) { return sp; } } - for (qi = 0, ql = spells; ql; ql_advance(&ql, &qi, 1)) { - spell *sp = (spell *)ql_get(ql, qi); + for (qi = 0, ql = spells; ql; selist_advance(&ql, &qi, 1)) { + spell *sp = (spell *)selist_get(ql, qi); unsigned int hashid = hashstring(sp->sname); if (hashid == id) { return sp; @@ -145,3 +145,39 @@ spell *find_spellbyid(unsigned int id) log_warning("cannot find spell by id: %u\n", id); return NULL; } + +struct spellref *spellref_create(spell *sp, const char *name) +{ + spellref *spref = malloc(sizeof(spellref)); + + if (sp) { + spref->sp = sp; + spref->name = strdup(sp->sname); + } + else if (name) { + spref->name = strdup(name); + spref->sp = NULL; + } + return spref; +} + +void spellref_free(spellref *spref) +{ + if (spref) { + free(spref->name); + free(spref); + } +} + +struct spell *spellref_get(struct spellref *spref) +{ + if (!spref->sp) { + assert(spref->name); + spref->sp = find_spell(spref->name); + if (spref->sp) { + free(spref->name); + spref->name = NULL; + } + } + return spref->sp; +} diff --git a/src/kernel/spell.h b/src/kernel/spell.h index b447f51d4..e7592f082 100644 --- a/src/kernel/spell.h +++ b/src/kernel/spell.h @@ -27,7 +27,7 @@ extern "C" { struct region; struct spell; struct spell_component; - struct quicklist; + struct selist; struct attrib_type; typedef int(*spell_f)(struct castorder * co); @@ -45,23 +45,32 @@ extern "C" { fumble_f fumble; } spell; + typedef struct spellref { + char * name; + struct spell *sp; + } spellref; + + struct spellref *spellref_create(struct spell *sp, const char *name); + void spellref_free(struct spellref *spref); + struct spell *spellref_get(struct spellref *spref); + int sp_antimagiczone(struct castorder *co); struct spell * create_spell(const char * name, unsigned int id); struct spell * find_spell(const char *name); struct spell * find_spellbyid(unsigned int i); - void add_spell(struct quicklist **slistp, spell * sp); + void add_spell(struct selist **slistp, spell * sp); void free_spells(void); /** globals **/ extern struct attrib_type at_unitdissolve; extern struct attrib_type at_wdwpyramid; - extern struct quicklist * spells; + extern struct selist * spells; #ifdef __cplusplus } #endif #endif -/* ------------------------------------------------------------- *//* Erluterungen zu den Spruchdefinitionen +/* ------------------------------------------------------------- *//* Erl�uterungen zu den Spruchdefinitionen * * Spruchstukturdefinition: * spell{ @@ -79,35 +88,35 @@ extern "C" { * id: * SPL_NOSPELL muss der letzte Spruch in der Liste spelldaten sein, * denn nicht auf die Reihenfolge in der Liste sondern auf die id wird - * geprft + * gepr�ft * * sptyp: * besondere Spruchtypen und Flags * (Regionszauber, Kampfzauber, Farcastbar, Stufe variable, ..) * * rank: - * gibt die Prioritt und damit die Reihenfolge an, in der der Spruch + * gibt die Priorit�t und damit die Reihenfolge an, in der der Spruch * gezaubert wird. - * 1: Aura bertragen + * 1: Aura �bertragen * 2: Antimagie - * 3: Magierverndernde Sprche (Magic Boost, ..) + * 3: Magierver�ndernde Spr�che (Magic Boost, ..) * 4: Monster erschaffen * 5: Standartlevel * 7: Teleport * - * Komponenten[Anzahl mgl. Items][Art:Anzahl:Kostentyp] + * Komponenten[Anzahl m�gl. Items][Art:Anzahl:Kostentyp] * * R_AURA: - * Grundkosten fr einen Zauber. Soviel Mp mssen mindestens investiert - * werden, um den Spruch zu wirken. Zustzliche Mp knnen unterschiedliche + * Grundkosten f�r einen Zauber. Soviel Mp m�ssen mindestens investiert + * werden, um den Spruch zu wirken. Zus�tzliche Mp k�nnen unterschiedliche * Auswirkungen haben, die in der Spruchfunktionsroutine definiert werden. * * R_PERMAURA: * Kosten an permantenter Aura * * Komponenten Kostentyp: - * SPC_LEVEL == Spruch mit Levelabhngigen Magiekosten. Die angegeben - * Kosten mssen fr Stufe 1 berechnet sein. + * SPC_LEVEL == Spruch mit Levelabh�ngigen Magiekosten. Die angegeben + * Kosten m�ssen f�r Stufe 1 berechnet sein. * SPC_FIX == Feste Kosten * * Wenn keine spezielle Syntax angegeben ist, wird die @@ -128,34 +137,34 @@ extern "C" { * * u : eine Einheitennummer * r : hier kommen zwei Regionskoordinaten x y - * b : Gebude- oder Burgnummer + * b : Geb�ude- oder Burgnummer * s : Schiffsnummer - * c : String, wird ohne Weiterverarbeitung bergeben - * i : Zahl (int), wird ohne Weiterverarbeitung bergeben + * c : String, wird ohne Weiterverarbeitung �bergeben + * i : Zahl (int), wird ohne Weiterverarbeitung �bergeben * k : Keywort - dieser String gibt den Paramter an, der folgt. Der * Parameter wird mit findparam() identifiziert. - * k muss immer von einem c als Platzhalter fr das Objekt gefolgt + * k muss immer von einem c als Platzhalter f�r das Objekt gefolgt * werden. - * Ein gutes Beispiel sind hierfr die Sprche zur Magieanalyse. + * Ein gutes Beispiel sind hierf�r die Spr�che zur Magieanalyse. * + : gibt an, das der vorherige Parameter mehrfach vorkommen kann. Da * ein Ende nicht definiert werden kann, muss dies immer am Schluss * kommen. * - * Flags fr das Parsing: + * Flags f�r das Parsing: * TESTRESISTANCE : alle Zielobjekte, also alle Parameter vom Typ Unit, * Burg, Schiff oder Region, werden auf ihre - * Magieresistenz berprft + * Magieresistenz �berpr�ft * TESTCANSEE : jedes Objekt vom Typ Einheit wird auf seine - * Sichtbarkeit berprft + * Sichtbarkeit �berpr�ft * SEARCHLOCAL : die Zielobjekte werden nur regional gesucht * REGIONSPELL : Ziel ist die Region, auch wenn kein Zielobjekt * angegeben wird. Ist TESTRESISTANCE gesetzt, so wird - * die Magieresistenz der Region berprft + * die Magieresistenz der Region �berpr�ft * * Bei fehlendem Ziel oder wenn dieses dem Zauber widersteht, wird die * Spruchfunktion nicht aufgerufen. * Sind zu wenig Parameter vorhanden, wird der Zauber ebenfalls nicht - * ausgefhrt. + * ausgef�hrt. * Ist eins von mehreren Zielobjekten resistent, so wird das Flag * pa->param[n]->flag == TARGET_RESISTS * Ist eins von mehreren Zielobjekten nicht gefunden worden, so ist diff --git a/src/kernel/spell.test.c b/src/kernel/spell.test.c index fa5e9527c..b500f94cc 100644 --- a/src/kernel/spell.test.c +++ b/src/kernel/spell.test.c @@ -1,11 +1,11 @@ #include #include +#include #include #include -#include #include #include @@ -69,9 +69,27 @@ static void test_create_spell_with_id(CuTest * tc) test_cleanup(); } +static void test_spellref(CuTest *tc) +{ + spellref *ref; + spell *sp; + test_setup(); + ref = spellref_create(NULL, "hodor"); + CuAssertPtrNotNull(tc, ref); + CuAssertPtrEquals(tc, NULL, ref->sp); + CuAssertStrEquals(tc, "hodor", ref->name); + CuAssertPtrEquals(tc, NULL, spellref_get(ref)); + sp = create_spell("hodor", 0); + CuAssertPtrNotNull(tc, sp); + CuAssertPtrEquals(tc, sp, spellref_get(ref)); + spellref_free(ref); + test_cleanup(); +} + CuSuite *get_spell_suite(void) { CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_spellref); SUITE_ADD_TEST(suite, test_create_a_spell); SUITE_ADD_TEST(suite, test_create_duplicate_spell); SUITE_ADD_TEST(suite, test_create_spell_with_id); diff --git a/src/kernel/spellbook.c b/src/kernel/spellbook.c index 96410170b..b7f65420c 100644 --- a/src/kernel/spellbook.c +++ b/src/kernel/spellbook.c @@ -1,11 +1,14 @@ #include #include #include -#include +#include #include +#include #include "spellbook.h" +#include + #include #include #include @@ -13,12 +16,62 @@ spellbook * create_spellbook(const char * name) { spellbook *result = (spellbook *)malloc(sizeof(spellbook)); - result->name = name ? _strdup(name) : 0; + result->name = name ? strdup(name) : 0; result->spells = 0; return result; } -void spellbook_add(spellbook *sb, struct spell * sp, int level) +void read_spellbook(spellbook **bookp, gamedata *data, int(*get_level)(const spell * sp, void *), void * cbdata) +{ + for (;;) { + spell *sp = 0; + char spname[64]; + int level = 0; + + READ_TOK(data->store, spname, sizeof(spname)); + if (strcmp(spname, "end") == 0) + break; + if (bookp) { + sp = find_spell(spname); + if (!sp) { + log_error("read_spells: could not find spell '%s'", spname); + } + } + if (data->version >= SPELLBOOK_VERSION) { + READ_INT(data->store, &level); + } + if (sp) { + spellbook * sb = *bookp; + if (level <= 0 && get_level) { + level = get_level(sp, cbdata); + } + if (!sb) { + *bookp = create_spellbook(0); + sb = *bookp; + } + if (level > 0 && (data->version >= SPELLBOOK_VERSION || !spellbook_get(sb, sp))) { + spellbook_add(sb, sp, level); + } + } + } +} + +void write_spellbook(const struct spellbook *book, struct storage *store) +{ + selist *ql; + int qi; + + if (book) { + for (ql = book->spells, qi = 0; ql; selist_advance(&ql, &qi, 1)) { + spellbook_entry *sbe = (spellbook_entry *)selist_get(ql, qi); + WRITE_TOK(store, sbe->sp->sname); + WRITE_INT(store, sbe->level); + } + } + WRITE_TOK(store, "end"); +} + +void spellbook_add(spellbook *sb, spell *sp, int level) { spellbook_entry * sbe; @@ -31,30 +84,30 @@ void spellbook_add(spellbook *sb, struct spell * sp, int level) sbe = (spellbook_entry *)malloc(sizeof(spellbook_entry)); sbe->sp = sp; sbe->level = level; - ql_push(&sb->spells, sbe); + selist_push(&sb->spells, sbe); } void spellbook_clear(spellbook *sb) { - quicklist *ql; + selist *ql; int qi; assert(sb); - for (qi = 0, ql = sb->spells; ql; ql_advance(&ql, &qi, 1)) { - spellbook_entry *sbe = (spellbook_entry *)ql_get(ql, qi); + for (qi = 0, ql = sb->spells; ql; selist_advance(&ql, &qi, 1)) { + spellbook_entry *sbe = (spellbook_entry *)selist_get(ql, qi); free(sbe); } - ql_free(sb->spells); + selist_free(sb->spells); free(sb->name); } int spellbook_foreach(spellbook *sb, int(*callback)(spellbook_entry *, void *), void * data) { - quicklist *ql; + selist *ql; int qi; - for (qi = 0, ql = sb->spells; ql; ql_advance(&ql, &qi, 1)) { - spellbook_entry *sbe = (spellbook_entry *)ql_get(ql, qi); + for (qi = 0, ql = sb->spells; ql; selist_advance(&ql, &qi, 1)) { + spellbook_entry *sbe = (spellbook_entry *)selist_get(ql, qi); int result = callback(sbe, data); if (result) { return result; @@ -63,19 +116,18 @@ int spellbook_foreach(spellbook *sb, int(*callback)(spellbook_entry *, void *), return 0; } -spellbook_entry * spellbook_get(spellbook *sb, const struct spell * sp) +spellbook_entry * spellbook_get(spellbook *sb, const struct spell *sp) { if (sb) { - quicklist *ql; + selist *ql; int qi; - for (qi = 0, ql = sb->spells; ql; ql_advance(&ql, &qi, 1)) { - spellbook_entry *sbe = (spellbook_entry *)ql_get(ql, qi); - if (sp == sbe->sp) { + for (qi = 0, ql = sb->spells; ql; selist_advance(&ql, &qi, 1)) { + spellbook_entry *sbe = (spellbook_entry *)selist_get(ql, qi); + if (sbe->sp==sp) { return sbe; } } } return 0; } - diff --git a/src/kernel/spellbook.h b/src/kernel/spellbook.h index d0e25da23..fb3438a8b 100644 --- a/src/kernel/spellbook.h +++ b/src/kernel/spellbook.h @@ -24,25 +24,30 @@ extern "C" { #endif struct spell; - struct quicklist; + struct storage; + struct gamedata; + struct selist; typedef struct spellbook_entry { - struct spell * sp; + struct spell *sp; int level; } spellbook_entry; typedef struct spellbook { char * name; - struct quicklist * spells; + struct selist * spells; } spellbook; spellbook * create_spellbook(const char * name); - void spellbook_add(spellbook *sbp, struct spell * sp, int level); + void read_spellbook(struct spellbook **bookp, struct gamedata *data, int(*get_level)(const struct spell * sp, void *), void * cbdata); + void write_spellbook(const struct spellbook *book, struct storage *store); + + void spellbook_add(spellbook *sbp, struct spell *sp, int level); int spellbook_foreach(spellbook *sb, int(*callback)(spellbook_entry *, void *), void * data); void spellbook_clear(spellbook *sb); - spellbook_entry * spellbook_get(spellbook *sb, const struct spell * sp); + spellbook_entry * spellbook_get(spellbook *sb, const struct spell *sp); #ifdef __cplusplus } diff --git a/src/kernel/spellbook.test.c b/src/kernel/spellbook.test.c index 2f78fd87d..8b997557b 100644 --- a/src/kernel/spellbook.test.c +++ b/src/kernel/spellbook.test.c @@ -2,7 +2,6 @@ #include #include -#include #include #include diff --git a/src/kernel/terrain.c b/src/kernel/terrain.c index ac4a49fe9..3d6f4c313 100644 --- a/src/kernel/terrain.c +++ b/src/kernel/terrain.c @@ -110,11 +110,11 @@ terrain_type * get_or_create_terrain(const char *name) { if (!terrain) { terrain = (terrain_type *)calloc(sizeof(terrain_type), 1); if (terrain) { - terrain->_name = _strdup(name); + terrain->_name = strdup(name); terrain->next = registered_terrains; registered_terrains = terrain; if (strcmp("plain", name) == 0) { - // TODO: this is awful, it belongs in config + /* TODO: this is awful, it belongs in config */ terrain->name = &plain_name; } } diff --git a/src/kernel/types.h b/src/kernel/types.h index 632dad425..b9faefce7 100644 --- a/src/kernel/types.h +++ b/src/kernel/types.h @@ -19,14 +19,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #ifndef ERESSEA_TYPES_H #define ERESSEA_TYPES_H -/* - * Features enabled: - * If you are lacking the settings.h, create a new file common/settings.h, - * and write #include (or whatever settings you want - * your game to use) in there. - * !!! DO NOT COMMIT THE SETTINGS.H FILE TO CVS !!! - * settings.h should always be the first thing you include (after platform.h). - */ #include #include @@ -51,7 +43,7 @@ struct luxury_type; struct order; struct plane; struct potion_type; -struct quicklist; +struct selist; struct race; struct region; struct region_list; @@ -73,6 +65,17 @@ typedef struct ursprung { int x, y; } ursprung; +/* seen_mode: visibility in the report */ +typedef enum { + seen_none, + seen_neighbour, + seen_lighthouse, + seen_travel, + seen_far, + seen_unit, + seen_battle +} seen_mode; + /* ------------------ Status von Einheiten --------------------- */ typedef unsigned char status_t; @@ -133,7 +136,7 @@ typedef enum { P_TREES, P_ALLIANCE, MAXPARAMS, - NOPARAM = -1 + NOPARAM } param_t; typedef enum { /* Fehler und Meldungen im Report */ @@ -143,9 +146,7 @@ typedef enum { /* Fehler und Meldungen im Report */ MSG_INCOME, MSG_COMMERCE, MSG_PRODUCE, - MSG_ORCVERMEHRUNG, MSG_MESSAGE, - MSG_COMMENT, MSG_MAGIC, MAX_MSG } msg_t; diff --git a/src/kernel/unit.c b/src/kernel/unit.c index fb4723f29..595accba2 100644 --- a/src/kernel/unit.c +++ b/src/kernel/unit.c @@ -34,7 +34,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "region.h" #include "spell.h" #include "spellbook.h" -#include "save.h" #include "ship.h" #include "skill.h" #include "terrain.h" @@ -121,10 +120,10 @@ unit *findunitr(const region * r, int n) return (u && u->region == r) ? u : 0; } -// TODO: deprecated, replace with findunit(n) +/* TODO: deprecated, replace with findunit(n) */ unit *findunitg(int n, const region * hint) { - unused_arg(hint); + UNUSED_ARG(hint); /* Abfangen von Syntaxfehlern. */ if (n <= 0) return NULL; @@ -367,7 +366,7 @@ int gift_items(unit * u, int flags) static unit *deleted_units = NULL; #define DMAXHASH 7919 -#undef DMAXHASH // TODO: makes dfindhash slow! +#undef DMAXHASH /* TODO: makes dfindhash slow! */ #ifdef DMAXHASH typedef struct dead { struct dead *nexthash; @@ -439,6 +438,9 @@ int remove_unit(unit ** ulist, unit * u) *ulist = u->next; } + if (u->faction && u->faction->units == u) { + u->faction->units = u->nextF; + } if (u->prevF) { u->prevF->nextF = u->nextF; } @@ -453,7 +455,6 @@ int remove_unit(unit ** ulist, unit * u) #ifdef DMAXHASH dhash(u->no, u->faction); #endif - // u_setfaction(u, NULL); u->region = NULL; @@ -492,6 +493,10 @@ attrib_type at_alias = { NO_READ }; +/** remember old unit.no (for the creport, mostly) + * if alias is positive, then this unit was a TEMP + * if alias is negative, then this unit has been RENUMBERed + */ int ualias(const unit * u) { attrib *a = a_find(u->attribs, &at_alias); @@ -505,7 +510,7 @@ int a_readprivate(attrib * a, void *owner, gamedata *data) struct storage *store = data->store; char lbuf[DISPLAYSIZE]; READ_STR(store, lbuf, sizeof(lbuf)); - a->data.v = _strdup(lbuf); + a->data.v = strdup(lbuf); return (a->data.v) ? AT_READ_OK : AT_READ_FAIL; } @@ -526,8 +531,15 @@ const char *u_description(const unit * u, const struct locale *lang) if (u->display && u->display[0]) { return u->display; } - else if (u_race(u)->describe) { - return u_race(u)->describe(u->_race, lang); + else { + char zText[64]; + const char * d; + const race * rc = u_race(u); + snprintf(zText, sizeof(zText), "describe_%s", rc->_name); + d = locale_getstring(lang, zText); + if (d) { + return d; + } } return NULL; } @@ -556,7 +568,7 @@ void usetprivate(unit * u, const char *str) if (a->data.v) { free(a->data.v); } - a->data.v = _strdup(str); + a->data.v = strdup(str); } /*********************/ @@ -803,8 +815,8 @@ void set_level(unit * u, skill_t sk, int value) static int leftship_age(struct attrib *a, void *owner) { /* must be aged, so it doesn't affect report generation (cansee) */ - unused_arg(a); - unused_arg(owner); + UNUSED_ARG(a); + UNUSED_ARG(owner); return AT_AGE_REMOVE; /* remove me */ } @@ -880,15 +892,16 @@ void leave_building(unit * u) bool can_leave(unit * u) { - int rule_leave; + static int config; + static bool rule_leave; if (!u->building) { return true; } - - rule_leave = config_get_int("rules.move.owner_leave", 0); - - if (rule_leave != 0 && u->building && u == building_owner(u->building)) { + if (config_changed(&config)) { + rule_leave = config_get_int("rules.move.owner_leave", 0) != 0; + } + if (rule_leave && u->building && u == building_owner(u->building)) { return false; } return true; @@ -910,11 +923,6 @@ bool leave(unit * u, bool force) return true; } -const struct race *urace(const struct unit *u) -{ - return u->_race; -} - bool can_survive(const unit * u, const region * r) { if ((fval(r->terrain, WALK_INTO) && (u_race(u)->flags & RCF_WALK)) @@ -944,7 +952,7 @@ void move_unit(unit * u, region * r, unit ** ulist) if (!ulist) ulist = (&r->units); if (u->region) { - setguard(u, GUARD_NONE); + setguard(u, false); fset(u, UFL_MOVED); if (u->ship || u->building) { /* can_leave must be checked in travel_i */ @@ -961,9 +969,7 @@ void move_unit(unit * u, region * r, unit ** ulist) addlist(ulist, u); } -#ifdef SMART_INTERVALS update_interval(u->faction, r); -#endif u->region = r; } @@ -1082,15 +1088,9 @@ void transfermen(unit * u, unit * dst, int n) else if (r->land) { if ((u_race(u)->ec_flags & ECF_REC_ETHEREAL) == 0) { const race *rc = u_race(u); - if (rc->ec_flags & ECF_REC_HORSES) { /* Zentauren an die Pferde */ - int h = rhorses(r) + n; - rsethorses(r, h); - } - else { - int p = rpeasants(r); - p += (int)(n * rc->recruit_multi); - rsetpeasants(r, p); - } + int p = rpeasants(r); + p += (int)(n * rc->recruit_multi); + rsetpeasants(r, p); } } } @@ -1170,7 +1170,6 @@ void u_setfaction(unit * u, faction * f) } } -/* vorsicht Sprueche koennen u->number == RS_FARVISION haben! */ void set_number(unit * u, int count) { assert(count >= 0); @@ -1252,32 +1251,18 @@ static int item_invis(const unit *u) { + (rsphere ? i_get(u->items, rsphere->itype) * 100 : 0); } -#ifdef NEWATSROI -static int item_modification(const unit * u, skill_t sk, int val) -{ - if (sk == SK_STEALTH) { - if (item_invis(u) >= u->number) { - val += ROIBONUS; - } - } - if (sk == SK_PERCEPTION) { - const struct resource_type *rtype = get_resourcetype(R_AMULET_OF_TRUE_SEEING); - if (i_get(u->items, rtype->itype) >= u->number) { - val += ATSBONUS; - } - } - return val; -} -#endif - static int att_modification(const unit * u, skill_t sk) { double result = 0; if (u->attribs) { curse *c; - const curse_type *skillmod_ct = ct_find("skillmod"); - const curse_type *worse_ct = ct_find("worse"); + static int cache; + static const curse_type *skillmod_ct, *worse_ct; + if (ct_changed(&cache)) { + skillmod_ct = ct_find("skillmod"); + worse_ct = ct_find("worse"); + } c = get_curse(u->attribs, worse_ct); if (c != NULL) result += curse_geteffect(c); @@ -1304,7 +1289,7 @@ static int att_modification(const unit * u, skill_t sk) while (a && a->type == &at_curse) { curse *c = (curse *)a->data.v; - if (curse_active(c) && c->type == gbdream_ct) { + if (c->magician && curse_active(c) && c->type == gbdream_ct) { int effect = curse_geteffect_int(c); bool allied = alliedunit(c->magician, u->faction, HELP_GUARD); if (allied) { @@ -1338,11 +1323,6 @@ int get_modifier(const unit * u, skill_t sk, int level, const region * r, bool n skill += rc_skillmod(u_race(u), r, sk); skill += att_modification(u, sk); -#ifdef NEWATSROI - if (!noitem) { - skill = item_modification(u, sk, skill); - } -#endif skill = skillmod(u->attribs, u, r, sk, skill, SMF_ALWAYS); if (fval(u, UFL_HUNGER)) { @@ -1385,15 +1365,12 @@ int effskill_study(const unit * u, skill_t sk, const region * r) int invisible(const unit * target, const unit * viewer) { -#ifdef NEWATSROI - return 0; -#else if (viewer && viewer->faction == target->faction) return 0; else { int hidden = item_invis(target); if (hidden) { - hidden = _min(hidden, target->number); + hidden = MIN(hidden, target->number); if (viewer) { const resource_type *rtype = get_resourcetype(R_AMULET_OF_TRUE_SEEING); hidden -= i_get(viewer->items, rtype->itype); @@ -1401,7 +1378,6 @@ int invisible(const unit * target, const unit * viewer) } return hidden; } -#endif } /** remove the unit from memory. @@ -1432,6 +1408,26 @@ void free_unit(unit * u) } } +static int newunitid(void) +{ + int random_unit_no; + int start_random_no; + random_unit_no = 1 + (rng_int() % MAX_UNIT_NR); + start_random_no = random_unit_no; + + while (ufindhash(random_unit_no) || dfindhash(random_unit_no) + || forbiddenid(random_unit_no)) { + random_unit_no++; + if (random_unit_no == MAX_UNIT_NR + 1) { + random_unit_no = 1; + } + if (random_unit_no == start_random_no) { + random_unit_no = (int)MAX_UNIT_NR + 1; + } + } + return random_unit_no; +} + static void createunitid(unit * u, int id) { if (id <= 0 || id > MAX_UNIT_NR || ufindhash(id) || dfindhash(id) @@ -1463,15 +1459,12 @@ void default_name(const unit *u, char name[], int len) { void name_unit(unit * u) { - if (u_race(u)->generate_name) { - char *gen_name = race_namegen(u_race(u), u); - if (gen_name) { - free(u->_name); - u->_name = gen_name; - } - else { - unit_setname(u, racename(u->faction->locale, u, u_race(u))); - } + const race *rc = u_race(u); + if (rc->name_unit) { + rc->name_unit(u); + } + else if (u->faction->flags & FFL_NPC) { + unit_setname(u, NULL); } else { char name[32]; @@ -1522,9 +1515,9 @@ unit *create_unit(region * r, faction * f, int number, const struct race *urace, u->hp = unit_max_hp(u) * number; if (dname) { - u->_name = _strdup(dname); + u->_name = strdup(dname); } - else if (urace->generate_name || playerrace(urace)) { + else if (urace->name_unit || playerrace(urace)) { name_unit(u); } @@ -1572,9 +1565,11 @@ unit *create_unit(region * r, faction * f, int number, const struct race *urace, set_group(u, g); } } - a = a_find(creator->attribs, &at_otherfaction); - if (a) { - a_add(&u->attribs, make_otherfaction(get_otherfaction(a))); + if (creator->attribs) { + faction *otherf = get_otherfaction(creator); + if (otherf) { + a_add(&u->attribs, make_otherfaction(otherf)); + } } a = a_add(&u->attribs, a_new(&at_creator)); @@ -1629,7 +1624,7 @@ void unit_setname(unit * u, const char *name) { free(u->_name); if (name && name[0]) - u->_name = _strdup(name); + u->_name = strdup(name); else u->_name = NULL; } @@ -1643,7 +1638,7 @@ void unit_setinfo(unit * u, const char *info) { free(u->display); if (info) - u->display = _strdup(info); + u->display = strdup(info); else u->display = NULL; } @@ -1694,6 +1689,7 @@ int unit_getcapacity(const unit * u) } void renumber_unit(unit *u, int no) { + if (no == 0) no = newunitid(); uunhash(u); if (!ualias(u)) { attrib *a = a_add(&u->attribs, a_new(&at_alias)); @@ -1716,9 +1712,13 @@ int unit_max_hp(const unit * u) { int h; double p; - int rule_stamina = config_get_int("rules.stamina", STAMINA_AFFECTS_HP); + static int config; + static int rule_stamina; h = u_race(u)->hitpoints; + if (config_changed(&config)) { + rule_stamina = config_get_int("rules.stamina", STAMINA_AFFECTS_HP); + } if (rule_stamina & 1) { p = pow(effskill(u, SK_STAMINA, u->region) / 2.0, 1.5) * 0.2; h += (int)(h * p + 0.5); @@ -1726,7 +1726,11 @@ int unit_max_hp(const unit * u) /* der healing curse veraendert die maximalen hp */ if (u->region && u->region->attribs) { - const curse_type *heal_ct = ct_find("healingzone"); + static int cache; + static const curse_type *heal_ct; + if (ct_changed(&cache)) { + heal_ct = ct_find("healingzone"); + } if (heal_ct) { curse *c = get_curse(u->region->attribs, heal_ct); if (c) { @@ -1916,27 +1920,6 @@ bool unit_can_study(const unit *u) { return !((u_race(u)->flags & RCF_NOLEARN) || fval(u, UFL_WERE)); } -/* ID's fr Einheiten und Zauber */ -int newunitid(void) -{ - int random_unit_no; - int start_random_no; - random_unit_no = 1 + (rng_int() % MAX_UNIT_NR); - start_random_no = random_unit_no; - - while (ufindhash(random_unit_no) || dfindhash(random_unit_no) - || forbiddenid(random_unit_no)) { - random_unit_no++; - if (random_unit_no == MAX_UNIT_NR + 1) { - random_unit_no = 1; - } - if (random_unit_no == start_random_no) { - random_unit_no = (int)MAX_UNIT_NR + 1; - } - } - return random_unit_no; -} - static int read_newunitid(const faction * f, const region * r) { int n; @@ -2048,3 +2031,26 @@ bool has_limited_skills(const struct unit * u) return false; } +double u_heal_factor(const unit * u) +{ + const race * rc = u_race(u); + if (rc->healing>0) { + return rc->healing / 100.0; + } + if (r_isforest(u->region)) { + static int rc_cache; + static const race *rc_elf; + if (rc_changed(&rc_cache)) { + rc_elf = get_race(RC_ELF); + } + if (rc == rc_elf) { + static int cache; + static double elf_regen; + if (config_changed(&cache)) { + elf_regen = config_get_flt("healing.forest", 1.0); + } + return elf_regen; + } + } + return 1.0; +} diff --git a/src/kernel/unit.h b/src/kernel/unit.h index 459d0b656..14096c872 100644 --- a/src/kernel/unit.h +++ b/src/kernel/unit.h @@ -22,6 +22,8 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include "types.h" #include "skills.h" +#include + #ifdef __cplusplus extern "C" { #endif @@ -36,7 +38,6 @@ extern "C" { #define UFL_LONGACTION (1<<2) /* 4 */ #define UFL_OWNER (1<<3) /* 8 */ #define UFL_ANON_FACTION (1<<4) /* 16 */ -#define UFL_DISBELIEVES (1<<5) /* 32 */ #define UFL_WARMTH (1<<6) /* 64 */ #define UFL_HERO (1<<7) #define UFL_MOVED (1<<8) @@ -142,8 +143,6 @@ extern "C" { struct unit *utarget(const struct unit *u); void usettarget(struct unit *u, const struct unit *b); - extern const struct race *urace(const struct unit *u); - const char *uprivate(const struct unit *u); void usetprivate(struct unit *u, const char *c); @@ -191,6 +190,7 @@ extern "C" { bool leave(struct unit *u, bool force); bool can_leave(struct unit *u); + double u_heal_factor(const struct unit * u); void u_set_building(struct unit * u, struct building * b); void u_set_ship(struct unit * u, struct ship * sh); void leave_ship(struct unit * u); @@ -259,7 +259,6 @@ extern "C" { #define GET_PEASANTS 2 int getunit(const struct region * r, const struct faction * f, struct unit **uresult); - int newunitid(void); int read_unitid(const struct faction *f, const struct region *r); void setstatus(struct unit *u, int status); diff --git a/src/kernel/unit.test.c b/src/kernel/unit.test.c index 162bf1570..e1654b821 100644 --- a/src/kernel/unit.test.c +++ b/src/kernel/unit.test.c @@ -8,9 +8,11 @@ #include #include #include +#include +#include #include #include -#include +#include #include #include #include @@ -102,7 +104,7 @@ static void test_remove_units_ignores_spells(CuTest *tc) { test_cleanup(); test_create_world(); - u = create_unit(findregion(0, 0), test_create_faction(test_create_race("human")), 1, get_race(RC_SPELL), 0, 0, 0); + u = create_unit(findregion(0, 0), test_create_faction(test_create_race("human")), 1, test_create_race("spell"), 0, 0, 0); uid = u->no; u->number = 0; u->age = 1; @@ -139,37 +141,34 @@ static void test_scale_number(CuTest *tc) { static void test_unit_name(CuTest *tc) { unit *u; - char name[32]; test_cleanup(); test_create_world(); u = test_create_unit(test_create_faction(test_create_race("human")), findregion(0, 0)); + renumber_unit(u, 666); unit_setname(u, "Hodor"); - _snprintf(name, sizeof(name), "Hodor (%s)", itoa36(u->no)); - CuAssertStrEquals(tc, name, unitname(u)); + CuAssertStrEquals(tc, "Hodor (ii)", unitname(u)); test_cleanup(); } static void test_unit_name_from_race(CuTest *tc) { unit *u; - char name[32]; struct locale *lang; test_cleanup(); test_create_world(); u = test_create_unit(test_create_faction(test_create_race("human")), findregion(0, 0)); + renumber_unit(u, 666); unit_setname(u, NULL); lang = get_or_create_locale("de"); locale_setstring(lang, rc_name_s(u->_race, NAME_SINGULAR), "Mensch"); locale_setstring(lang, rc_name_s(u->_race, NAME_PLURAL), "Menschen"); - _snprintf(name, sizeof(name), "Mensch (%s)", itoa36(u->no)); - CuAssertStrEquals(tc, name, unitname(u)); + CuAssertStrEquals(tc, "Mensch (ii)", unitname(u)); CuAssertStrEquals(tc, "Mensch", unit_getname(u)); u->number = 2; - _snprintf(name, sizeof(name), "Menschen (%s)", itoa36(u->no)); - CuAssertStrEquals(tc, name, unitname(u)); + CuAssertStrEquals(tc, "Menschen (ii)", unitname(u)); CuAssertStrEquals(tc, "Menschen", unit_getname(u)); test_cleanup(); @@ -226,12 +225,12 @@ static void test_default_name(CuTest *tc) { struct locale* lang; char buf[32], compare[32]; - test_cleanup(); - test_create_world(); - lang = get_or_create_locale("de"); + test_setup(); + + lang = test_create_locale(); locale_setstring(lang, "unitdefault", "Zweiheit"); - u = test_create_unit(test_create_faction(test_create_race("human")), findregion(0, 0)); + u = test_create_unit(test_create_faction(NULL), test_create_plain(0, 0)); default_name(u, buf, sizeof(buf)); @@ -242,9 +241,9 @@ static void test_default_name(CuTest *tc) { } static int cb_skillmod(const unit *u, const region *r, skill_t sk, int level) { - unused_arg(u); - unused_arg(r); - unused_arg(sk); + UNUSED_ARG(u); + UNUSED_ARG(r); + UNUSED_ARG(sk); return level + 3; } @@ -261,7 +260,7 @@ static void test_skillmod(CuTest *tc) { CuAssertIntEquals(tc, 10, effskill(u, SK_ARMORER, 0)); a_remove(&u->attribs, a); - a_add(&u->attribs, a = make_skillmod(NOSKILL, SMF_ALWAYS, 0, 2.0, 0)); // NOSKILL means any skill + a_add(&u->attribs, a = make_skillmod(NOSKILL, SMF_ALWAYS, 0, 2.0, 0)); /* NOSKILL means any skill */ CuAssertIntEquals(tc, 10, effskill(u, SK_ARMORER, 0)); a_remove(&u->attribs, a); @@ -297,7 +296,7 @@ static void test_skill_familiar(CuTest *tc) { test_cleanup(); - // setup two units + /* setup two units */ mag = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); fam = test_create_unit(mag->faction, test_create_region(0, 0, 0)); set_level(fam, SK_PERCEPTION, 6); @@ -305,14 +304,14 @@ static void test_skill_familiar(CuTest *tc) { set_level(mag, SK_PERCEPTION, 6); CuAssertIntEquals(tc, 6, effskill(mag, SK_PERCEPTION, 0)); - // make them mage and familiar to each other + /* make them mage and familiar to each other */ CuAssertIntEquals(tc, true, create_newfamiliar(mag, fam)); - // when they are in the same region, the mage gets half their skill as a bonus + /* when they are in the same region, the mage gets half their skill as a bonus */ CuAssertIntEquals(tc, 6, effskill(fam, SK_PERCEPTION, 0)); CuAssertIntEquals(tc, 9, effskill(mag, SK_PERCEPTION, 0)); - // when they are further apart, divide bonus by distance + /* when they are further apart, divide bonus by distance */ r = test_create_region(3, 0, 0); move_unit(fam, r, &r->units); CuAssertIntEquals(tc, 7, effskill(mag, SK_PERCEPTION, 0)); @@ -324,7 +323,6 @@ static void test_age_familiar(CuTest *tc) { test_cleanup(); - // setup two units mag = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); fam = test_create_unit(mag->faction, test_create_region(0, 0, 0)); CuAssertPtrEquals(tc, 0, get_familiar(mag)); @@ -392,20 +390,30 @@ static void test_limited_skills(CuTest *tc) { static void test_unit_description(CuTest *tc) { race *rc; unit *u; + struct locale *lang; + test_setup(); + lang = test_create_locale(); rc = test_create_race("hodor"); u = test_create_unit(test_create_faction(rc), test_create_region(0,0,0)); + CuAssertPtrEquals(tc, 0, u->display); - CuAssertStrEquals(tc, 0, u_description(u, u->faction->locale)); - u->display = _strdup("Hodor"); + CuAssertStrEquals(tc, 0, u_description(u, lang)); + u->display = strdup("Hodor"); CuAssertStrEquals(tc, "Hodor", u_description(u, NULL)); - CuAssertStrEquals(tc, "Hodor", u_description(u, u->faction->locale)); + CuAssertStrEquals(tc, "Hodor", u_description(u, lang)); + + free(u->display); + u->display = NULL; + locale_setstring(lang, "describe_hodor", "HODOR"); + CuAssertStrEquals(tc, "HODOR", u_description(u, lang)); + test_cleanup(); } static void test_remove_unit(CuTest *tc) { region *r; - unit *u; + unit *u1, *u2; faction *f; int uno; const resource_type *rtype; @@ -415,19 +423,99 @@ static void test_remove_unit(CuTest *tc) { rtype = get_resourcetype(R_SILVER); r = test_create_region(0, 0, 0); f = test_create_faction(0); - u = test_create_unit(f, r); - uno = u->no; + u2 = test_create_unit(f, r); + u1 = test_create_unit(f, r); + CuAssertPtrEquals(tc, u1, f->units); + CuAssertPtrEquals(tc, u2, u1->nextF); + CuAssertPtrEquals(tc, u1, u2->prevF); + CuAssertPtrEquals(tc, 0, u2->nextF); + uno = u1->no; region_setresource(r, rtype, 0); - i_change(&u->items, rtype->itype, 100); - remove_unit(&r->units, u); - CuAssertIntEquals(tc, 100, region_getresource(r, rtype)); - CuAssertIntEquals(tc, 0, u->number); - CuAssertPtrEquals(tc, 0, u->region); - CuAssertPtrEquals(tc, 0, u->items); - CuAssertPtrEquals(tc, 0, u->nextF); - CuAssertPtrEquals(tc, 0, r->units); + i_change(&u1->items, rtype->itype, 100); + remove_unit(&r->units, u1); + CuAssertIntEquals(tc, 0, u1->number); + CuAssertPtrEquals(tc, 0, u1->region); + /* money is given to a survivor: */ + CuAssertPtrEquals(tc, 0, u1->items); + CuAssertIntEquals(tc, 0, region_getresource(r, rtype)); + CuAssertIntEquals(tc, 100, i_get(u2->items, rtype->itype)); + + /* unit is removed from f->units: */ + CuAssertPtrEquals(tc, 0, u1->nextF); + CuAssertPtrEquals(tc, u2, f->units); + CuAssertPtrEquals(tc, 0, u2->nextF); + CuAssertPtrEquals(tc, 0, u2->prevF); + /* unit is no longer in r->units: */ + CuAssertPtrEquals(tc, u2, r->units); + CuAssertPtrEquals(tc, 0, u2->next); + + /* unit is in deleted_units: */ CuAssertPtrEquals(tc, 0, findunit(uno)); CuAssertPtrEquals(tc, f, dfindhash(uno)); + + remove_unit(&r->units, u2); + /* no survivor, give money to peasants: */ + CuAssertIntEquals(tc, 100, region_getresource(r, rtype)); + /* there are now no more units: */ + CuAssertPtrEquals(tc, 0, r->units); + CuAssertPtrEquals(tc, 0, f->units); + test_cleanup(); +} + +static void test_renumber_unit(CuTest *tc) { + unit *u1, *u2; + test_setup(); + u1 = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); + u2 = test_create_unit(u1->faction, u1->region); + rng_init(0); + renumber_unit(u1, 0); + rng_init(0); + renumber_unit(u2, 0); + CuAssertTrue(tc, u1->no != u2->no); + test_cleanup(); +} + +static void gen_name(unit *u) +{ + unit_setname(u, "Hodor"); +} + +static void test_name_unit(CuTest *tc) { + race *rc; + unit * u; + + test_setup(); + rc = test_create_race("skeleton"); + u = test_create_unit(test_create_faction(rc), test_create_region(0, 0, 0)); + rc->name_unit = gen_name; + name_unit(u); + CuAssertStrEquals(tc, "Hodor", unit_getname(u)); + test_cleanup(); +} + +static void test_heal_factor(CuTest *tc) { + unit * u; + region *r; + race *rc; + terrain_type *t_plain; + + test_setup(); + t_plain = test_create_terrain("plain", LAND_REGION|FOREST_REGION); + rc = rc_get_or_create("human"); + u = test_create_unit(test_create_faction(rc), r = test_create_region(0, 0, t_plain)); + rsettrees(r, 1, r->terrain->size / TREESIZE); + rsettrees(r, 2, 0); + CuAssertTrue(tc, r_isforest(r)); + CuAssertDblEquals(tc, 1.0, u_heal_factor(u), 0.0); + rc->healing = 200; + CuAssertDblEquals(tc, 2.0, u_heal_factor(u), 0.0); + rc->healing = 0; + rc = rc_get_or_create("elf"); + CuAssertPtrEquals(tc, (void *)rc, (void *)get_race(RC_ELF)); + u_setrace(u, get_race(RC_ELF)); + CuAssertDblEquals(tc, 1.0, u_heal_factor(u), 0.0); + config_set("healing.forest", "1.5"); + CuAssertDblEquals(tc, 1.5, u_heal_factor(u), 0.0); test_cleanup(); } @@ -453,5 +541,8 @@ CuSuite *get_unit_suite(void) SUITE_ADD_TEST(suite, test_age_familiar); SUITE_ADD_TEST(suite, test_inside_building); SUITE_ADD_TEST(suite, test_limited_skills); + SUITE_ADD_TEST(suite, test_renumber_unit); + SUITE_ADD_TEST(suite, test_name_unit); + SUITE_ADD_TEST(suite, test_heal_factor); return suite; } diff --git a/src/kernel/version.c b/src/kernel/version.c new file mode 100644 index 000000000..39f4f30e6 --- /dev/null +++ b/src/kernel/version.c @@ -0,0 +1,23 @@ +#include +#include "version.h" + +#include + +#ifndef ERESSEA_VERSION +/* the version number, if it was not passed to make with -D */ +#define ERESSEA_VERSION "3.12.0" +#endif + +const char *eressea_version(void) { +#ifdef ERESSEA_BUILDNO + return ERESSEA_VERSION "-" ERESSEA_BUILDNO; +#else + return ERESSEA_VERSION; +#endif +} + +int version_no(const char *str) { + int maj = 0, min = 0, pat = 0; + sscanf(str, "%d.%d.%d", &maj, &min, &pat); + return (maj << 16) | (min << 8) | pat; +} diff --git a/src/kernel/version.h b/src/kernel/version.h index 5b3bf0cf6..c268e7bac 100644 --- a/src/kernel/version.h +++ b/src/kernel/version.h @@ -1,16 +1,17 @@ +#pragma once /* +-------------------+ | | Enno Rehling | Eressea PBEM host | Katja Zedel - | (c) 1998 - 2007 | Christian Schlittchen - | | + | (c) 1998 - 2016 | Christian Schlittchen + | | https://github.com/eressea/server +-------------------+ - - This program may not be used, modified or distributed - without prior permission by the authors of Eressea. */ -#ifndef ERESSEA_VERSION -// the version number, if it was not passed to make with -D -#define ERESSEA_VERSION "3.10.0-devel" +#ifndef H_KERNEL_VERSION +#define H_KERNEL_VERSION + +const char *eressea_version(void); +int version_no(const char *str); + #endif diff --git a/src/kernel/xmlreader.c b/src/kernel/xmlreader.c index f3f866351..4db528853 100644 --- a/src/kernel/xmlreader.c +++ b/src/kernel/xmlreader.c @@ -15,6 +15,7 @@ without prior permission by the authors of Eressea. #include "xmlreader.h" #include "building.h" +#include "guard.h" #include "equipment.h" #include "item.h" #include "keyword.h" @@ -33,6 +34,7 @@ without prior permission by the authors of Eressea. #include "vortex.h" #include +#include /* util includes */ #include @@ -59,30 +61,38 @@ without prior permission by the authors of Eressea. #include #ifdef USE_LIBXML2 + +static variant xml_fraction(xmlNodePtr node, const char *name) { + xmlChar *propValue = xmlGetProp(node, BAD_CAST name); + if (propValue != NULL) { + int num, den = 100; + double fval = atof((const char *)propValue); + num = (int)(fval * den + 0.5); + xmlFree(propValue); + return frac_make(num, den); + } + return frac_make(0, 1); +} + static void xml_readtext(xmlNodePtr node, struct locale **lang, xmlChar ** text) { xmlChar *propValue = xmlGetProp(node, BAD_CAST "locale"); assert(propValue != NULL); *lang = get_locale((const char *)propValue); -#ifdef MAKE_LOCALES - if (*lang == NULL) - *lang = get_or_create_locale((const char *)propValue); -#endif xmlFree(propValue); *text = xmlNodeListGetString(node->doc, node->children, 1); } -static const spell *xml_spell(xmlNode * node, const char *name) +static spellref *xml_spellref(xmlNode * node, const char *name) { - const spell *sp = NULL; xmlChar *propValue = xmlGetProp(node, BAD_CAST name); if (propValue != NULL) { - sp = find_spell((const char *)propValue); - assert(sp); + spellref *ref = spellref_create(NULL, (const char *)propValue); xmlFree(propValue); + return ref; } - return sp; + return NULL; } static xmlChar *xml_cleanup_string(xmlChar * str) @@ -92,8 +102,8 @@ static xmlChar *xml_cleanup_string(xmlChar * str) while (*read) { /* eat leading whitespace */ - if (*read && isxspace(*read)) { - while (*read && isxspace(*read)) { + if (*read && isspace(*read)) { + while (*read && isspace(*read)) { ++read; } *write++ = ' '; @@ -170,9 +180,6 @@ construction ** consPtr) con->maxsize = xml_ivalue(node, "maxsize", -1); con->minskill = xml_ivalue(node, "minskill", -1); con->reqsize = xml_ivalue(node, "reqsize", 1); - con->defense_bonus = xml_ivalue(node, "defense_bonus", 0); - con->close_combat_bonus = xml_ivalue(node, "close_combat_bonus", 0); - con->ranged_bonus = xml_ivalue(node, "ranged_bonus", 0); propValue = xmlGetProp(node, BAD_CAST "building"); if (propValue != NULL) { @@ -251,7 +258,7 @@ static int parse_buildings(xmlDocPtr doc) btype->maxcapacity = xml_ivalue(node, "maxcapacity", btype->maxcapacity); btype->maxsize = xml_ivalue(node, "maxsize", btype->maxsize); - btype->magres = xml_ivalue(node, "magres", btype->magres); + btype->magres = frac_make(xml_ivalue(node, "magres", 0), 100); btype->magresbonus = xml_ivalue(node, "magresbonus", btype->magresbonus); btype->fumblebonus = xml_ivalue(node, "fumblebonus", btype->fumblebonus); btype->auraregen = xml_fvalue(node, "auraregen", btype->auraregen); @@ -304,9 +311,6 @@ static int parse_buildings(xmlDocPtr doc) else if (strcmp((const char *)propValue, "age") == 0) { btype->age = (void(*)(struct building *))fun; } - else if (strcmp((const char *)propValue, "protection") == 0) { - btype->protection = (int(*)(const struct building *, const struct unit *, building_bonus))fun; - } else if (strcmp((const char *)propValue, "taxes") == 0) { btype->taxes = (double(*)(const struct building *, int))fun; } @@ -338,9 +342,6 @@ static int parse_buildings(xmlDocPtr doc) if (xml_bvalue(node, "variable", false)) mt->flags |= MTF_VARIABLE; - if (xml_bvalue(node, "vital", false)) - mt->flags |= MTF_VITAL; - } xmlXPathFreeObject(result); @@ -360,27 +361,27 @@ static int parse_calendar(xmlDocPtr doc) xmlXPathContextPtr xpath = xmlXPathNewContext(doc); xmlXPathObjectPtr xpathCalendars; xmlNodeSetPtr nsetCalendars; - int c, rv = 0; - /* reading eressea/buildings/building */ xpathCalendars = xmlXPathEvalExpression(BAD_CAST "/eressea/calendar", xpath); nsetCalendars = xpathCalendars->nodesetval; - months_per_year = 0; - if (nsetCalendars == NULL || nsetCalendars->nodeNr == 0) { - rv = -1; - } - else + if (nsetCalendars != NULL && nsetCalendars->nodeNr != 0) { + int c; for (c = 0; c != nsetCalendars->nodeNr; ++c) { xmlNodePtr calendar = nsetCalendars->nodeTab[c]; xmlXPathObjectPtr xpathWeeks, xpathMonths, xpathSeasons; xmlNodeSetPtr nsetWeeks, nsetMonths, nsetSeasons; xmlChar *propValue = xmlGetProp(calendar, BAD_CAST "name"); xmlChar *newyear = xmlGetProp(calendar, BAD_CAST "newyear"); + xmlChar *start; - first_turn = xml_ivalue(calendar, "start", first_turn); + start = xmlGetProp(calendar, BAD_CAST "start"); + if (start && config_get("game.start") == NULL) { + config_set("game.start", (const char *)start); + xmlFree(start); + } if (propValue) { free(agename); - agename = _strdup(mkname("calendar", (const char *)propValue)); + agename = strdup(mkname("calendar", (const char *)propValue)); xmlFree(propValue); } @@ -399,7 +400,7 @@ static int parse_calendar(xmlDocPtr doc) xmlNodePtr week = nsetWeeks->nodeTab[i]; xmlChar *propValue = xmlGetProp(week, BAD_CAST "name"); if (propValue) { - weeknames[i] = _strdup(mkname("calendar", (const char *)propValue)); + weeknames[i] = strdup(mkname("calendar", (const char *)propValue)); weeknames2[i] = malloc(strlen(weeknames[i]) + 3); sprintf(weeknames2[i], "%s_d", weeknames[i]); xmlFree(propValue); @@ -422,7 +423,7 @@ static int parse_calendar(xmlDocPtr doc) xmlChar *propValue = xmlGetProp(season, BAD_CAST "name"); if (propValue) { seasonnames[i] = - _strdup(mkname("calendar", (const char *)propValue)); + strdup(mkname("calendar", (const char *)propValue)); xmlFree(propValue); } } @@ -452,7 +453,7 @@ static int parse_calendar(xmlDocPtr doc) xmlFree(newyear); newyear = NULL; } - monthnames[i] = _strdup(mkname("calendar", (const char *)propValue)); + monthnames[i] = strdup(mkname("calendar", (const char *)propValue)); xmlFree(propValue); } if (nsetSeasons) { @@ -474,10 +475,11 @@ static int parse_calendar(xmlDocPtr doc) xmlFree(newyear); newyear = NULL; } + } xmlXPathFreeObject(xpathCalendars); xmlXPathFreeContext(xpath); - return rv; + return 0; } static int parse_ships(xmlDocPtr doc) @@ -593,7 +595,7 @@ static armor_type *xml_readarmor(xmlXPathContextPtr xpath, item_type * itype) unsigned int flags = ATF_NONE; int ac = xml_ivalue(node, "ac", 0); double penalty = xml_fvalue(node, "penalty", 0.0); - double magres = xml_fvalue(node, "magres", 0.0); + variant magres = xml_fraction(node, "magres"); if (xml_bvalue(node, "laen", false)) flags |= ATF_LAEN; @@ -618,7 +620,7 @@ static weapon_type *xml_readweapon(xmlXPathContextPtr xpath, item_type * itype) int offmod = xml_ivalue(node, "offmod", 0); int defmod = xml_ivalue(node, "defmod", 0); int reload = xml_ivalue(node, "reload", 0); - double magres = xml_fvalue(node, "magres", 0.0); + variant magres = xml_fraction(node, "magres"); if (xml_bvalue(node, "armorpiercing", false)) flags |= WTF_ARMORPIERCING; @@ -664,7 +666,7 @@ static weapon_type *xml_readweapon(xmlXPathContextPtr xpath, item_type * itype) xmlFree(propValue); propValue = xmlGetProp(node, BAD_CAST "value"); - wtype->damage[pos] = _strdup((const char *)propValue); // TODO: this is a memory leak + wtype->damage[pos] = strdup((const char *)propValue); /* TODO: this is a memory leak */ if (k == 0) wtype->damage[1 - pos] = wtype->damage[pos]; xmlFree(propValue); @@ -755,6 +757,28 @@ static weapon_type *xml_readweapon(xmlXPathContextPtr xpath, item_type * itype) return wtype; } +static int race_mask = 1; + +static void mask_races(xmlNodePtr node, const char *key, int *maskp) { + xmlChar *propValue = xmlGetProp(node, BAD_CAST key); + int mask = 0; + assert(maskp); + if (propValue) { + char * tok = strtok((char *)propValue, " ,"); + while (tok) { + race * rc = rc_get_or_create(tok); + if (!rc->mask_item) { + rc->mask_item = race_mask; + race_mask = race_mask << 1; + } + mask |= rc->mask_item; + tok = strtok(NULL, " ,"); + } + xmlFree(propValue); + } + *maskp = mask; +} + static item_type *xml_readitem(xmlXPathContextPtr xpath, resource_type * rtype) { xmlNodePtr node = xpath->node; @@ -765,6 +789,8 @@ static item_type *xml_readitem(xmlXPathContextPtr xpath, resource_type * rtype) if (xml_bvalue(node, "cursed", false)) flags |= ITF_CURSED; + if (xml_bvalue(node, "use", false)) + flags |= ITF_CANUSE; if (xml_bvalue(node, "notlost", false)) flags |= ITF_NOTLOST; if (xml_bvalue(node, "herb", false)) @@ -778,6 +804,8 @@ static item_type *xml_readitem(xmlXPathContextPtr xpath, resource_type * rtype) itype = rtype->itype ? rtype->itype : it_get_or_create(rtype); itype->weight = xml_ivalue(node, "weight", 0); itype->capacity = xml_ivalue(node, "capacity", 0); + mask_races(node, "allow", &itype->mask_allow); + mask_races(node, "deny", &itype->mask_deny); itype->flags |= flags; /* reading item/construction */ @@ -801,6 +829,10 @@ static item_type *xml_readitem(xmlXPathContextPtr xpath, resource_type * rtype) result = xmlXPathEvalExpression(BAD_CAST "potion", xpath); assert(result->nodesetval->nodeNr <= 1); if (result->nodesetval->nodeNr != 0) { + if ((itype->flags & ITF_CANUSE) == 0) { + log_error("potion %s has no use attribute", rtype->_name); + itype->flags |= ITF_CANUSE; + } xpath->node = result->nodesetval->nodeTab[0]; rtype->ptype = xml_readpotion(xpath, itype); } @@ -841,28 +873,7 @@ static item_type *xml_readitem(xmlXPathContextPtr xpath, resource_type * rtype) continue; } assert(propValue != NULL); - if (strcmp((const char *)propValue, "give") == 0) { - itype->give = - (int(*)(struct unit *, struct unit *, const struct item_type *, int, - struct order *))fun; - } - else if (strcmp((const char *)propValue, "use") == 0) { - itype->use = - (int(*)(struct unit *, const struct item_type *, int, - struct order *))fun; - } - else if (strcmp((const char *)propValue, "canuse") == 0) { - itype->canuse = - (bool(*)(const struct unit *, const struct item_type *))fun; - } - else if (strcmp((const char *)propValue, "useonother") == 0) { - itype->useonother = - (int(*)(struct unit *, int, const struct item_type *, int, - struct order *))fun; - } - else { - log_error("unknown function type '%s' for item '%s'\n", (const char *)propValue, rtype->_name); - } + log_error("unknown function type '%s' for item '%s'\n", (const char *)propValue, rtype->_name); xmlFree(propValue); } itype->score = xml_ivalue(node, "score", 0); @@ -931,8 +942,6 @@ static int parse_resources(xmlDocPtr doc) if (xml_bvalue(node, "pooled", true)) flags |= RTF_POOLED; - if (xml_bvalue(node, "limited", false)) - flags |= RTF_LIMITED; name = xmlGetProp(node, BAD_CAST "name"); if (!name) { @@ -944,12 +953,6 @@ static int parse_resources(xmlDocPtr doc) rtype->flags |= flags; xmlFree(name); - name = xmlGetProp(node, BAD_CAST "material"); - if (name) { - rmt_create(rtype, (const char *)name); - xmlFree(name); - } - /* reading eressea/resources/resource/function */ xpath->node = node; result = xmlXPathEvalExpression(BAD_CAST "function", xpath); @@ -969,9 +972,6 @@ static int parse_resources(xmlDocPtr doc) if (strcmp((const char *)propValue, "change") == 0) { rtype->uchange = (rtype_uchange)fun; } - else if (strcmp((const char *)propValue, "get") == 0) { - rtype->uget = (rtype_uget)fun; - } else if (strcmp((const char *)propValue, "name") == 0) { rtype->name = (rtype_name)fun; } @@ -982,129 +982,66 @@ static int parse_resources(xmlDocPtr doc) } xmlXPathFreeObject(result); - /* reading eressea/resources/resource/resourcelimit */ - xpath->node = node; - result = xmlXPathEvalExpression(BAD_CAST "resourcelimit", xpath); - assert(result->nodesetval->nodeNr <= 1); - if (result->nodesetval->nodeNr != 0) { - resource_limit *rdata; - attrib *a = a_find(rtype->attribs, &at_resourcelimit); - xmlNodePtr limit = result->nodesetval->nodeTab[0]; + if (xml_bvalue(node, "material", false)) { + rmt_create(rtype); + } - if (a == NULL) - a = a_add(&rtype->attribs, a_new(&at_resourcelimit)); - rdata = (resource_limit *)a->data.v; + if (xml_bvalue(node, "limited", false)) { rtype->flags |= RTF_LIMITED; - xpath->node = limit; - xmlXPathFreeObject(result); + } + /* reading eressea/resources/resource/modifier */ + xpath->node = node; + result = xmlXPathEvalExpression(BAD_CAST "modifier", xpath); + if (result->nodesetval != NULL && result->nodesetval->nodeNr > 0) { + rtype->modifiers = + calloc(result->nodesetval->nodeNr + 1, sizeof(resource_mod)); + for (k = 0; k != result->nodesetval->nodeNr; ++k) { + xmlNodePtr node = result->nodesetval->nodeTab[k]; + building_type *btype = NULL; + const race *rc = NULL; - result = xmlXPathEvalExpression(BAD_CAST "modifier", xpath); - if (result->nodesetval != NULL) { - rdata->modifiers = - calloc(result->nodesetval->nodeNr + 1, sizeof(resource_mod)); - for (k = 0; k != result->nodesetval->nodeNr; ++k) { - xmlNodePtr node = result->nodesetval->nodeTab[k]; - building_type *btype = NULL; - const race *rc = NULL; - - propValue = xmlGetProp(node, BAD_CAST "race"); - if (propValue != NULL) { - rc = rc_find((const char *)propValue); - if (rc == NULL) - rc = rc_get_or_create((const char *)propValue); - xmlFree(propValue); - } - rdata->modifiers[k].race = rc; - - propValue = xmlGetProp(node, BAD_CAST "building"); - if (propValue != NULL) { - btype = bt_get_or_create((const char *)propValue); - xmlFree(propValue); - } - rdata->modifiers[k].btype = btype; - - propValue = xmlGetProp(node, BAD_CAST "type"); - assert(propValue != NULL); - if (strcmp((const char *)propValue, "skill") == 0) { - rdata->modifiers[k].value.i = xml_ivalue(node, "value", 0); - rdata->modifiers[k].flags = RMF_SKILL; - } - else if (strcmp((const char *)propValue, "material") == 0) { - rdata->modifiers[k].value.f = (float)xml_fvalue(node, "value", 0); - rdata->modifiers[k].flags = RMF_SAVEMATERIAL; - } - else if (strcmp((const char *)propValue, "resource") == 0) { - rdata->modifiers[k].value.f = (float)xml_fvalue(node, "value", 0); - rdata->modifiers[k].flags = RMF_SAVERESOURCE; - } - else if (strcmp((const char *)propValue, "require") == 0) { - xmlChar *propBldg = xmlGetProp(node, BAD_CAST "building"); - if (propBldg != NULL) { - btype = bt_get_or_create((const char *)propBldg); - rdata->modifiers[k].btype = btype; - rdata->modifiers[k].flags = RMF_REQUIREDBUILDING; - xmlFree(propBldg); - } - } - else { - log_error("unknown type '%s' for resourcelimit-modifier '%s'\n", (const char *)propValue, rtype->_name); - } + propValue = xmlGetProp(node, BAD_CAST "race"); + if (propValue != NULL) { + rc = rc_find((const char *)propValue); + if (rc == NULL) + rc = rc_get_or_create((const char *)propValue); xmlFree(propValue); } + rtype->modifiers[k].race = rc; + + propValue = xmlGetProp(node, BAD_CAST "building"); + if (propValue != NULL) { + btype = bt_get_or_create((const char *)propValue); + xmlFree(propValue); + } + rtype->modifiers[k].btype = btype; + + propValue = xmlGetProp(node, BAD_CAST "type"); + assert(propValue != NULL); + if (strcmp((const char *)propValue, "skill") == 0) { + rtype->modifiers[k].value.i = xml_ivalue(node, "value", 0); + rtype->modifiers[k].flags = RMF_SKILL; + } + else if (strcmp((const char *)propValue, "material") == 0) { + rtype->modifiers[k].value = xml_fraction(node, "value"); + rtype->modifiers[k].flags = RMF_SAVEMATERIAL; + } + else if (strcmp((const char *)propValue, "require") == 0) { + xmlChar *propBldg = xmlGetProp(node, BAD_CAST "building"); + if (propBldg != NULL) { + btype = bt_get_or_create((const char *)propBldg); + rtype->modifiers[k].btype = btype; + rtype->modifiers[k].flags = RMF_REQUIREDBUILDING; + xmlFree(propBldg); + } + } + else { + log_error("unknown type '%s' for resourcelimit-modifier '%s'\n", (const char *)propValue, rtype->_name); + } + xmlFree(propValue); } - xmlXPathFreeObject(result); - - result = xmlXPathEvalExpression(BAD_CAST "guard", xpath); - if (result->nodesetval != NULL) - for (k = 0; k != result->nodesetval->nodeNr; ++k) { - xmlNodePtr node = result->nodesetval->nodeTab[k]; - xmlChar *propFlag = xmlGetProp(node, BAD_CAST "flag"); - - if (propFlag != NULL) { - if (strcmp((const char *)propFlag, "logging") == 0) { - rdata->guard |= GUARD_TREES; - } - else if (strcmp((const char *)propFlag, "mining") == 0) { - rdata->guard |= GUARD_MINING; - } - xmlFree(propFlag); - } - } - xmlXPathFreeObject(result); - - /* reading eressea/resources/resource/resourcelimit/function */ - result = xmlXPathEvalExpression(BAD_CAST "function", xpath); - if (result->nodesetval != NULL) - for (k = 0; k != result->nodesetval->nodeNr; ++k) { - xmlNodePtr node = result->nodesetval->nodeTab[k]; - pf_generic fun; - - propValue = xmlGetProp(node, BAD_CAST "value"); - assert(propValue != NULL); - fun = get_function((const char *)propValue); - if (fun == NULL) { - log_error("unknown limit '%s' for resource %s\n", (const char *)propValue, rtype->_name); - xmlFree(propValue); - continue; - } - xmlFree(propValue); - - propValue = xmlGetProp(node, BAD_CAST "name"); - assert(propValue != NULL); - if (strcmp((const char *)propValue, "produce") == 0) { - rdata->produce = (rlimit_produce)fun; - } - else if (strcmp((const char *)propValue, "limit") == 0) { - rdata->limit = (rlimit_limit)fun; - } - else { - log_error("unknown limit '%s' for resource %s\n", (const char *)propValue, rtype->_name); - } - xmlFree(propValue); - } } xmlXPathFreeObject(result); - /* reading eressea/resources/resource/resourcelimit/function */ xpath->node = node; result = xmlXPathEvalExpression(BAD_CAST "resourcelimit/function", xpath); @@ -1132,7 +1069,6 @@ static int parse_resources(xmlDocPtr doc) /* make sure old items (used in requirements) are available */ init_resources(); - init_itemtypes(); return 0; } @@ -1190,22 +1126,18 @@ static void add_spells(equipment * eq, xmlNodeSetPtr nsetItems) for (i = 0; i != nsetItems->nodeNr; ++i) { xmlNodePtr node = nsetItems->nodeTab[i]; xmlChar *propValue; - struct spell *sp; + int level; + const char *name; propValue = xmlGetProp(node, BAD_CAST "name"); assert(propValue != NULL); - sp = find_spell((const char *)propValue); - if (!sp) { - log_error("no spell '%s' for equipment-set '%s'\n", (const char *)propValue, eq->name); + name = (const char *)propValue; + level = xml_ivalue(node, "level", 0); + if (level > 0) { + equipment_addspell(eq, name, level); } else { - int level = xml_ivalue(node, "level", 0); - if (level > 0) { - equipment_addspell(eq, sp, level); - } - else { - log_error("spell '%s' for equipment-set '%s' has no level\n", sp->sname, eq->name); - } + log_error("spell '%s' for equipment-set '%s' has no level\n", name, eq->name); } xmlFree(propValue); } @@ -1284,7 +1216,7 @@ add_subsets(xmlDocPtr doc, equipment * eq, xmlNodeSetPtr nsetSubsets) assert(propValue != NULL); eq->subsets[i].sets[set].chance = chance; eq->subsets[i].sets[set].set = - create_equipment((const char *)propValue); + get_or_create_equipment((const char *)propValue); xmlFree(propValue); } } @@ -1314,7 +1246,7 @@ static int parse_equipment(xmlDocPtr doc) xmlChar *propName = xmlGetProp(node, BAD_CAST "name"); if (propName != NULL) { - equipment *eq = create_equipment((const char *)propName); + equipment *eq = get_or_create_equipment((const char *)propName); xmlXPathObjectPtr xpathResult; xpath->node = node; @@ -1330,7 +1262,7 @@ static int parse_equipment(xmlDocPtr doc) xmlXPathFreeObject(xpathResult); xpathResult = xmlXPathEvalExpression(BAD_CAST "spell", xpath); - assert(!eq->spellbook); + assert(!eq->spells); add_spells(eq, xpathResult->nodesetval); xmlXPathFreeObject(xpathResult); @@ -1449,13 +1381,13 @@ static int parse_spells(xmlDocPtr doc) propValue = xmlGetProp(node, BAD_CAST "parameters"); if (propValue) { - sp->parameter = _strdup((const char *)propValue); + sp->parameter = strdup((const char *)propValue); xmlFree(propValue); } propValue = xmlGetProp(node, BAD_CAST "syntax"); if (propValue) { - sp->syntax = _strdup((const char *)propValue); + sp->syntax = strdup((const char *)propValue); xmlFree(propValue); } #ifdef TODO /* no longer need it, spellbooks! */ @@ -1592,21 +1524,16 @@ static int parse_spells(xmlDocPtr doc) return 0; } -static void parse_param(struct param **params, xmlNodePtr node) -{ - xmlChar *propName = xmlGetProp(node, BAD_CAST "name"); - xmlChar *propValue = xmlGetProp(node, BAD_CAST "value"); - - set_param(params, (const char *)propName, (const char *)propValue); - - xmlFree(propName); - xmlFree(propValue); -} - static void parse_ai(race * rc, xmlNodePtr node) { + xmlChar *propValue; + + propValue = xmlGetProp(node, BAD_CAST "scare"); + if (propValue) { + rc_set_param(rc, "ai.scare", (const char *)propValue); + xmlFree(propValue); + } rc->splitsize = xml_ivalue(node, "splitsize", 0); - rc->aggression = (float)xml_fvalue(node, "aggression", 0.04); if (xml_bvalue(node, "killpeasants", false)) rc->flags |= RCF_KILLPEASANTS; if (xml_bvalue(node, "moverandom", false)) @@ -1643,16 +1570,18 @@ static int parse_races(xmlDocPtr doc) propValue = xmlGetProp(node, BAD_CAST "damage"); assert(propValue != NULL); - rc->def_damage = _strdup((const char *)propValue); + rc->def_damage = strdup((const char *)propValue); xmlFree(propValue); - rc->magres = (float)xml_fvalue(node, "magres", rc->magres); - rc->maxaura = (float)xml_fvalue(node, "maxaura", rc->maxaura); + rc->magres = frac_make(xml_ivalue(node, "magres", 100), 100); + rc->healing = (int)(xml_fvalue(node, "healing", rc->healing) * 100); /* TODO: store as int in XML */ + rc->maxaura = (int)(xml_fvalue(node, "maxaura", rc->maxaura) * 100); /* TODO: store as int in XML */ rc->regaura = (float)xml_fvalue(node, "regaura", rc->regaura); rc->recruitcost = xml_ivalue(node, "recruitcost", rc->recruitcost); rc->maintenance = xml_ivalue(node, "maintenance", rc->maintenance); rc->weight = xml_ivalue(node, "weight", rc->weight); rc->capacity = xml_ivalue(node, "capacity", rc->capacity); + rc->income = xml_ivalue(node, "income", rc->income); rc->speed = (float)xml_fvalue(node, "speed", rc->speed); rc->hitpoints = xml_ivalue(node, "hp", rc->hitpoints); rc->armor = (char)xml_ivalue(node, "ac", rc->armor); @@ -1663,8 +1592,10 @@ static int parse_races(xmlDocPtr doc) rc->at_bonus = (char)xml_ivalue(node, "attackmodifier", rc->at_bonus); rc->df_bonus = (char)xml_ivalue(node, "defensemodifier", rc->df_bonus); - if (!xml_bvalue(node, "playerrace", false)) + if (!xml_bvalue(node, "playerrace", false)) { + assert(rc->recruitcost == 0); rc->flags |= RCF_NPC; + } if (xml_bvalue(node, "scarepeasants", false)) rc->flags |= RCF_SCAREPEASANTS; if (!xml_bvalue(node, "cansteal", true)) @@ -1724,15 +1655,13 @@ static int parse_races(xmlDocPtr doc) rc->ec_flags |= GIVEUNIT; if (xml_bvalue(node, "getitem", false)) rc->ec_flags |= GETITEM; - if (xml_bvalue(node, "recruithorses", false)) - rc->ec_flags |= ECF_REC_HORSES; if (xml_bvalue(node, "recruitethereal", false)) rc->ec_flags |= ECF_REC_ETHEREAL; if (xml_bvalue(node, "recruitunlimited", false)) rc->ec_flags |= ECF_REC_UNLIMITED; if (xml_bvalue(node, "equipment", false)) - rc->battle_flags |= BF_EQUIPMENT; // TODO: invert this flag, so rc_get_or_create gets simpler + rc->battle_flags |= BF_EQUIPMENT; /* TODO: invert this flag, so rc_get_or_create gets simpler */ if (xml_bvalue(node, "noblock", false)) rc->battle_flags |= BF_NOBLOCK; if (xml_bvalue(node, "invinciblenonmagic", false)) @@ -1746,15 +1675,19 @@ static int parse_races(xmlDocPtr doc) if (xml_bvalue(node, "noattack", false)) rc->battle_flags |= BF_NO_ATTACK; + rc->recruit_multi = 1.0; for (child = node->children; child; child = child->next) { if (strcmp((const char *)child->name, "ai") == 0) { parse_ai(rc, child); } else if (strcmp((const char *)child->name, "param") == 0) { - parse_param(&rc->parameters, child); + xmlChar *propName = xmlGetProp(child, BAD_CAST "name"); + xmlChar *propValue = xmlGetProp(child, BAD_CAST "value"); + rc_set_param(rc, (const char *)propName, (const char *)propValue); + xmlFree(propName); + xmlFree(propValue); } } - rc->recruit_multi = get_param_flt(rc->parameters, "recruit_multi", 1.0); /* reading eressea/races/race/skill */ xpath->node = node; @@ -1784,46 +1717,6 @@ static int parse_races(xmlDocPtr doc) } xmlXPathFreeObject(result); - /* reading eressea/races/race/function */ - xpath->node = node; - result = xmlXPathEvalExpression(BAD_CAST "function", xpath); - for (k = 0; k != result->nodesetval->nodeNr; ++k) { - xmlNodePtr node = result->nodesetval->nodeTab[k]; - pf_generic fun; - - parse_function(node, &fun, &propValue); - if (fun == NULL) { - log_error("unknown function name '%s' for race %s\n", (const char *)propValue, rc->_name); - xmlFree(propValue); - continue; - } - assert(propValue != NULL); - if (strcmp((const char *)propValue, "name") == 0) { - rc->generate_name = (race_name_func)fun; - } - else if (strcmp((const char *)propValue, "describe") == 0) { - rc->describe = (race_desc_func)fun; - } - else if (strcmp((const char *)propValue, "age") == 0) { - rc->age = (void(*)(struct unit *))fun; - } - else if (strcmp((const char *)propValue, "move") == 0) { - rc->move_allowed = - (bool(*)(const struct region *, const struct region *))fun; - } - else if (strcmp((const char *)propValue, "itemdrop") == 0) { - rc->itemdrop = (struct item * (*)(const struct race *, int))fun; - } - else if (strcmp((const char *)propValue, "initfamiliar") == 0) { - rc->init_familiar = (void(*)(struct unit *))fun; - } - else { - log_error("unknown function type '%s' for race %s\n", (const char *)propValue, rc->_name); - } - xmlFree(propValue); - } - xmlXPathFreeObject(result); - /* reading eressea/races/race/familiar */ xpath->node = node; result = xmlXPathEvalExpression(BAD_CAST "familiar", xpath); @@ -1838,6 +1731,7 @@ static int parse_races(xmlDocPtr doc) propValue = xmlGetProp(node, BAD_CAST "race"); assert(propValue != NULL); frc = rc_get_or_create((const char *)propValue); + frc->flags |= RCF_FAMILIAR; if (xml_bvalue(node, "default", false)) { rc->familiars[k] = rc->familiars[0]; rc->familiars[0] = frc; @@ -1854,17 +1748,6 @@ static int parse_races(xmlDocPtr doc) } xmlXPathFreeObject(result); - /* reading eressea/races/race/precombatspell */ - xpath->node = node; - result = xmlXPathEvalExpression(BAD_CAST "precombatspell", xpath); - assert(rc->precombatspell == NULL - || !"precombatspell is already initialized"); - for (k = 0; k != result->nodesetval->nodeNr; ++k) { - xmlNodePtr node = result->nodesetval->nodeTab[k]; - rc->precombatspell = xml_spell(node, "spell"); - } - xmlXPathFreeObject(result); - /* reading eressea/races/race/attack */ xpath->node = node; result = xmlXPathEvalExpression(BAD_CAST "attack", xpath); @@ -1882,15 +1765,15 @@ static int parse_races(xmlDocPtr doc) propValue = xmlGetProp(node, BAD_CAST "damage"); if (propValue != NULL) { - attack->data.dice = _strdup((const char *)propValue); + attack->data.dice = strdup((const char *)propValue); xmlFree(propValue); } else { - attack->data.sp = xml_spell(node, "spell"); + attack->data.sp = xml_spellref(node, "spell"); if (attack->data.sp) { attack->level = xml_ivalue(node, "level", 0); if (attack->level <= 0) { - log_error("magical attack '%s' for race '%s' needs a level: %d\n", attack->data.sp->sname, rc->_name, attack->level); + log_error("magical attack '%s' for race '%s' needs a level: %d\n", attack->data.sp->name, rc->_name, attack->level); } } } @@ -1945,7 +1828,7 @@ static int parse_messages(xmlDocPtr doc) (const char *)propType); xmlFree(propName); xmlFree(propType); - argv[k] = _strdup(zBuffer); + argv[k] = strdup(zBuffer); } argv[result->nodesetval->nodeNr] = NULL; } @@ -2077,17 +1960,20 @@ static int parse_strings(xmlDocPtr doc) void register_xmlreader(void) { - xml_register_callback(parse_strings); - xml_register_callback(parse_messages); - xml_register_callback(parse_resources); xml_register_callback(parse_rules); - xml_register_callback(parse_buildings); /* requires resources */ - xml_register_callback(parse_ships); /* requires terrains */ - xml_register_callback(parse_spells); /* requires resources */ - xml_register_callback(parse_spellbooks); /* requires spells */ - xml_register_callback(parse_equipment); /* requires spells */ - xml_register_callback(parse_races); /* requires spells */ + xml_register_callback(parse_races); xml_register_callback(parse_calendar); + xml_register_callback(parse_resources); + + xml_register_callback(parse_buildings); /* requires resources */ + xml_register_callback(parse_ships); /* requires resources, terrains */ + xml_register_callback(parse_equipment); /* requires resources */ + + xml_register_callback(parse_spells); /* requires resources */ + xml_register_callback(parse_spellbooks); /* requires spells */ + + xml_register_callback(parse_strings); + xml_register_callback(parse_messages); } #endif diff --git a/src/kernel/xmlreader.h b/src/kernel/xmlreader.h index 5dfb643f1..290b785c3 100644 --- a/src/kernel/xmlreader.h +++ b/src/kernel/xmlreader.h @@ -12,6 +12,9 @@ without prior permission by the authors of Eressea. #ifndef H_KRNL_XMLREADER_H #define H_KRNL_XMLREADER_H + +struct spell; + #ifdef __cplusplus extern "C" { #endif diff --git a/src/keyword.c b/src/keyword.c index 0bd699836..ba05cbe4b 100644 --- a/src/keyword.c +++ b/src/keyword.c @@ -13,7 +13,10 @@ const char * keyword(keyword_t kwd) { - static char result[32]; // FIXME: static return value + static char result[32]; /* FIXME: static return value */ + if (kwd==NOKEYWORD) { + return NULL; + } if (!result[0]) { strcpy(result, "keyword::"); } diff --git a/src/keyword.h b/src/keyword.h index 9d5e20f64..19e55e88f 100644 --- a/src/keyword.h +++ b/src/keyword.h @@ -2,6 +2,8 @@ #define H_KEYWORD_H #include "kernel/types.h" +#include + #ifdef __cplusplus extern "C" { @@ -70,7 +72,7 @@ extern "C" K_PAY, K_LOOT, MAXKEYWORDS, - NOKEYWORD = -1 + NOKEYWORD } keyword_t; extern const char *keywords[MAXKEYWORDS]; @@ -82,7 +84,6 @@ extern "C" bool keyword_disabled(keyword_t kwd); void enable_keyword(keyword_t kwd, bool enabled); const char *keyword(keyword_t kwd); - // #define keyword(kwd) mkname("keyword", keywords[kwd]) #ifdef __cplusplus #endif diff --git a/src/keyword.test.c b/src/keyword.test.c index 903eb0c13..75c31904a 100644 --- a/src/keyword.test.c +++ b/src/keyword.test.c @@ -11,11 +11,13 @@ static void test_init_keywords(CuTest *tc) { struct locale *lang; - test_cleanup(); + test_setup(); lang = get_or_create_locale("en"); locale_setstring(lang, "keyword::move", "MOVE"); init_keywords(lang); CuAssertIntEquals(tc, K_MOVE, get_keyword("move", lang)); + CuAssertStrEquals(tc, "keyword::move", keyword(K_MOVE)); + CuAssertPtrEquals(tc, NULL, (void *)keyword(NOKEYWORD)); test_cleanup(); } diff --git a/src/laws.c b/src/laws.c old mode 100755 new mode 100644 index 19078353e..5b4c5971b --- a/src/laws.c +++ b/src/laws.c @@ -1,4 +1,4 @@ -/* +/* Copyright (c) 1998-2014, Enno Rehling Katja Zedel #include #include -#include #include #include #include @@ -78,17 +79,17 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include +#include #include #include -#include #include #include #include -#include -#include +#include #include +#include #include /* libc includes */ #include @@ -116,6 +117,33 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. /* - exported global symbols ----------------------------------- */ +int NewbieImmunity(void) +{ + int result = config_get_int("NewbieImmunity", 0); + return result; +} + +bool IsImmune(const faction * f) +{ + return !fval(f, FFL_NPC) && f->age < NewbieImmunity(); +} + +int NMRTimeout(void) +{ + return config_get_int("nmr.timeout", 0); +} + +bool LongHunger(const struct unit *u) +{ + if (u != NULL) { + if (!fval(u, UFL_HUNGER)) + return false; + if (u_race(u) == get_race(RC_DAEMON)) + return false; + } + return config_get_int("hunger.long", 0) != 0; +} + static bool RemoveNMRNewbie(void) { int value = config_get_int("nmr.removenewbie", 0); @@ -124,15 +152,22 @@ static bool RemoveNMRNewbie(void) static void age_unit(region * r, unit * u) { - if (u_race(u) == get_race(RC_SPELL)) { + static int rc_cache; + static const race *rc_spell; + + if (rc_changed(&rc_cache)) { + rc_spell = get_race(RC_SPELL); + } + if (u_race(u) == rc_spell) { if (--u->age <= 0) { remove_unit(&r->units, u); } } else { + const race *rc = u_race(u); ++u->age; - if (u->number > 0 && u_race(u)->age) { - u_race(u)->age(u); + if (u->number > 0 && rc->age_unit) { + rc->age_unit(u); } } if (u->region && is_astral(u->region)) { @@ -176,7 +211,7 @@ static void live(region * r) } /* bestes Talent raussuchen */ if (sb != NULL) { - int weeks = _min(effect, u->number); + int weeks = MIN(effect, u->number); reduce_skill(u, sb, weeks); ADDMSG(&u->faction->msgs, msg_message("dumbeffect", "unit weeks skill", u, weeks, (skill_t)sb->id)); @@ -215,7 +250,7 @@ static void live(region * r) static void calculate_emigration(region * r) { int i; - int maxp = maxworkingpeasants(r); + int maxp = region_maxworkers(r); int rp = rpeasants(r); int max_immigrants = MAX_IMMIGRATION(maxp - rp); @@ -230,11 +265,11 @@ static void calculate_emigration(region * r) if (rc != NULL && fval(rc->terrain, LAND_REGION)) { int rp2 = rpeasants(rc); - int maxp2 = maxworkingpeasants(rc); + int maxp2 = region_maxworkers(rc); int max_emigration = MAX_EMIGRATION(rp2 - maxp2); if (max_emigration > 0) { - max_emigration = _min(max_emigration, max_immigrants); + max_emigration = MIN(max_emigration, max_immigrants); r->land->newpeasants += max_emigration; rc->land->newpeasants -= max_emigration; max_immigrants -= max_emigration; @@ -285,7 +320,7 @@ int peasant_luck_effect(int peasants, int luck, int maxp, double variance) double mean; if (luck == 0) return 0; - mean = peasant_luck_factor() * peasant_growth_factor() * _min(luck, peasants); + mean = peasant_luck_factor() * peasant_growth_factor() * MIN(luck, peasants); mean *= ((peasants / (double)maxp < .9) ? 1 : PEASANTFORCE); births = RAND_ROUND(normalvariate(mean, variance * mean)); @@ -298,7 +333,7 @@ int peasant_luck_effect(int peasants, int luck, int maxp, double variance) #endif -static void peasants(region * r) +static void peasants(region * r, int rule) { int peasants = rpeasants(r); int money = rmoney(r); @@ -306,7 +341,7 @@ static void peasants(region * r) int n, satiated; int dead = 0; - if (peasants > 0 && config_get_int("rules.peasants.growth", 1)) { + if (peasants > 0 && rule > 0) { int luck = 0; double fraction = peasants * peasant_growth_factor(); int births = RAND_ROUND(fraction); @@ -324,7 +359,7 @@ static void peasants(region * r) /* Alle werden satt, oder halt soviele für die es auch Geld gibt */ - satiated = _min(peasants, money / maintenance_cost(NULL)); + satiated = MIN(peasants, money / maintenance_cost(NULL)); rsetmoney(r, money - satiated * maintenance_cost(NULL)); /* Von denjenigen, die nicht satt geworden sind, verhungert der @@ -333,7 +368,7 @@ static void peasants(region * r) /* Es verhungert maximal die unterernährten Bevölkerung. */ - n = _min(peasants - satiated, rpeasants(r)); + n = MIN(peasants - satiated, rpeasants(r)); dead += (int)(0.5 + n * PEASANT_STARVATION_CHANCE); if (dead > 0) { @@ -413,8 +448,8 @@ static void horses(region * r) direction_t n; /* Logistisches Wachstum, Optimum bei halbem Maximalbesatz. */ - maxhorses = maxworkingpeasants(r) / 10; - maxhorses = _max(0, maxhorses); + maxhorses = region_maxworkers(r) / 10; + maxhorses = MAX(0, maxhorses); horses = rhorses(r); if (horses > 0) { if (is_cursed(r->attribs, C_CURSED_BY_THE_GODS, 0)) { @@ -448,7 +483,7 @@ static void horses(region * r) if (r2 && fval(r2->terrain, WALK_INTO)) { int pt = (rhorses(r) * HORSEMOVE) / 100; pt = (int)normalvariate(pt, pt / 4.0); - pt = _max(0, pt); + pt = MAX(0, pt); if (fval(r2, RF_MIGRATION)) rsethorses(r2, rhorses(r2) + pt); else { @@ -561,7 +596,7 @@ growing_trees(region * r, const int current_season, const int last_weeks_season) a = a_find(r->attribs, &at_germs); if (a && last_weeks_season == SEASON_SPRING) { /* ungekeimte Samen bleiben erhalten, Sprößlinge wachsen */ - sprout = _min(a->data.sa[1], rtrees(r, 1)); + sprout = MIN(a->data.sa[1], rtrees(r, 1)); /* aus dem gesamt Sprößlingepool abziehen */ rsettrees(r, 1, rtrees(r, 1) - sprout); /* zu den Bäumen hinzufügen */ @@ -581,7 +616,7 @@ growing_trees(region * r, const int current_season, const int last_weeks_season) /* Grundchance 1.0% */ /* Jeder Elf in der Region erhöht die Chance marginal */ - elves = _min(elves, production(r) / 8); + elves = MIN(elves, production(r) / 8); if (elves) { seedchance += 1.0 - pow(0.99999, elves * RESOURCE_QUANTITY); } @@ -615,7 +650,7 @@ growing_trees(region * r, const int current_season, const int last_weeks_season) * verfügbaren Fläche ab. In Gletschern gibt es weniger * Möglichkeiten als in Ebenen. */ sprout = 0; - seedchance = (1000 * maxworkingpeasants(r2)) / r2->terrain->size; + seedchance = (1000.0 * region_maxworkers(r2)) / r2->terrain->size; for (i = 0; i < seeds / MAXDIRECTIONS; i++) { if (rng_int() % 10000 < seedchance) sprout++; @@ -647,7 +682,7 @@ growing_trees(region * r, const int current_season, const int last_weeks_season) /* Raubbau abfangen, es dürfen nie mehr Samen wachsen, als aktuell * in der Region sind */ - seeds = _min(a->data.sa[0], rtrees(r, 0)); + seeds = MIN(a->data.sa[0], rtrees(r, 0)); sprout = 0; for (i = 0; i < seeds; i++) { @@ -667,7 +702,7 @@ growing_trees(region * r, const int current_season, const int last_weeks_season) * der Region entfernt werden können, da Jungbäume in der gleichen * Runde nachwachsen, wir also nicht mehr zwischen diesjährigen und * 'alten' Jungbäumen unterscheiden könnten */ - sprout = _min(a->data.sa[1], rtrees(r, 1)); + sprout = MIN(a->data.sa[1], rtrees(r, 1)); grownup_trees = 0; for (i = 0; i < sprout; i++) { @@ -702,19 +737,19 @@ growing_herbs(region * r, const int current_season, const int last_weeks_season) void immigration(void) { region *r; - log_info(" - Einwanderung..."); int repopulate = config_get_int("rules.economy.repopulate_maximum", 90); + log_info(" - Einwanderung..."); for (r = regions; r; r = r->next) { if (r->land && r->land->newpeasants) { int rp = rpeasants(r) + r->land->newpeasants; - rsetpeasants(r, _max(0, rp)); + rsetpeasants(r, MAX(0, rp)); } /* Genereate some (0-6 depending on the income) peasants out of nothing */ /* if less than 50 are in the region and there is space and no monster or demon units in the region */ if (repopulate) { int peasants = rpeasants(r); int income = wage(r, NULL, NULL, turn) - maintenance_cost(NULL) + 1; - if (income >= 0 && r->land && (peasants < repopulate) && maxworkingpeasants(r) >(peasants + 30) * 2) { + if (income >= 0 && r->land && (peasants < repopulate) && region_maxworkers(r) >(peasants + 30) * 2) { int badunit = 0; unit *u; for (u = r->units; u; u = u->next) { @@ -777,6 +812,8 @@ void demographics(void) static int last_weeks_season = -1; static int current_season = -1; int plant_rules = config_get_int("rules.grow.formula", 2); + int horse_rules = config_get_int("rules.horses.growth", 1); + int peasant_rules = config_get_int("rules.peasants.growth", 1); const struct building_type *bt_harbour = bt_find("harbour"); if (current_season < 0) { @@ -808,9 +845,10 @@ void demographics(void) * und gewandert sind */ calculate_emigration(r); - peasants(r); + peasants(r, peasant_rules); + if (r->age > 20) { - double mwp = _max(maxworkingpeasants(r), 1); + double mwp = MAX(region_maxworkers(r), 1); double prob = pow(rpeasants(r) / (mwp * wage(r, NULL, NULL, turn) * 0.13), 4.0) * PLAGUE_CHANCE; @@ -819,7 +857,9 @@ void demographics(void) plagues(r); } } - horses(r); + if (horse_rules > 0) { + horses(r); + } if (plant_rules == 2) { /* E2 */ growing_trees(r, current_season, last_weeks_season); growing_herbs(r, current_season, last_weeks_season); @@ -964,7 +1004,7 @@ int quit_cmd(unit * u, struct order *ord) char buffer[64]; write_order(ord, buffer, sizeof(buffer)); cmistake(u, ord, 86, MSG_EVENT); - log_warning("QUIT with illegal password for faction %s: %s\n", factionid(f), buffer); + log_warning("QUIT with illegal password for faction %s: %s\n", itoa36(f->no), buffer); } return 0; } @@ -1236,7 +1276,6 @@ static void remove_idle_players(void) } else { if (fval(f, FFL_NOIDLEOUT)) { f->lastorders = turn; - fp = &f->next; } else if (turn != f->lastorders) { char info[256]; @@ -1248,7 +1287,7 @@ static void remove_idle_players(void) } log_info(" - beseitige Spieler, die sich nach der Anmeldung nicht gemeldet haben..."); - age = calloc(_max(4, turn + 1), sizeof(int)); + age = calloc(MAX(4, turn + 1), sizeof(int)); for (fp = &factions; *fp;) { faction *f = *fp; if (!is_monsters(f)) { @@ -1505,16 +1544,6 @@ int prefix_cmd(unit * u, struct order *ord) return 0; } -static cmp_building_cb get_cmp_region_owner(void) -{ - if (rule_region_owners()) { - return &cmp_current_owner; - } - else { - return &cmp_wage; - } -} - int display_cmd(unit * u, struct order *ord) { char token[128]; @@ -1564,15 +1593,7 @@ int display_cmd(unit * u, struct order *ord) break; case P_REGION: - if (!u->building) { - cmistake(u, ord, 145, MSG_EVENT); - break; - } - if (building_owner(u->building) != u) { - cmistake(u, ord, 148, MSG_EVENT); - break; - } - if (u->building != largestbuilding(r, get_cmp_region_owner(), false)) { + if (u->faction != region_get_owner(r)) { cmistake(u, ord, 147, MSG_EVENT); break; } @@ -1589,7 +1610,7 @@ int display_cmd(unit * u, struct order *ord) free(*s); if (s2) { - *s = _strdup(s2); + *s = strdup(s2); if (strlen(s2) >= DISPLAYSIZE) { (*s)[DISPLAYSIZE] = 0; } @@ -1620,6 +1641,7 @@ bool renamed_building(const building * b) static int rename_cmd(unit * u, order * ord, char **s, const char *s2) { + char name[NAMESIZE]; assert(s2); if (!s2[0]) { cmistake(u, ord, 84, MSG_EVENT); @@ -1628,12 +1650,11 @@ static int rename_cmd(unit * u, order * ord, char **s, const char *s2) /* TODO: Validate to make sure people don't have illegal characters in * names, phishing-style? () come to mind. */ + strlcpy(name, s2, sizeof(name)); + unicode_utf8_trim(name); free(*s); - *s = _strdup(s2); - if (strlen(s2) >= NAMESIZE) { - (*s)[NAMESIZE] = 0; - } + *s = strdup(name); return 0; } @@ -1859,16 +1880,7 @@ int name_cmd(struct unit *u, struct order *ord) break; case P_REGION: - if (!b) { - cmistake(u, ord, 145, MSG_EVENT); - break; - } - if (building_owner(b) != u) { - cmistake(u, ord, 148, MSG_EVENT); - break; - } - - if (b != largestbuilding(r, get_cmp_region_owner(), false)) { + if (u->faction != region_get_owner(r)) { cmistake(u, ord, 147, MSG_EVENT); break; } @@ -2118,11 +2130,12 @@ int mail_cmd(unit * u, struct order *ord) int banner_cmd(unit * u, struct order *ord) { - init_order(ord); - const char * s = getstrtoken(); + const char * s; free(u->faction->banner); - u->faction->banner = s ? _strdup(s) : 0; + init_order(ord); + s = getstrtoken(); + u->faction->banner = s ? strdup(s) : 0; add_message(&u->faction->msgs, msg_message("changebanner", "value", u->faction->banner)); @@ -2182,6 +2195,7 @@ int password_cmd(unit * u, struct order *ord) faction_setpassword(u->faction, password_encode(pwbuf, PASSWORD_DEFAULT)); ADDMSG(&u->faction->msgs, msg_message("changepasswd", "value", pwbuf)); + u->faction->flags |= FFL_PWMSG; return 0; } @@ -2324,23 +2338,23 @@ static void display_race(unit * u, const race * rc) } } if (rc->battle_flags & BF_EQUIPMENT) { - if (wrptr(&bufp, &size, _snprintf(bufp, size, " %s", LOC(f->locale, "stat_equipment"))) != 0) + if (wrptr(&bufp, &size, snprintf(bufp, size, " %s", LOC(f->locale, "stat_equipment"))) != 0) WARN_STATIC_BUFFER(); } if (rc->battle_flags & BF_RES_PIERCE) { - if (wrptr(&bufp, &size, _snprintf(bufp, size, " %s", LOC(f->locale, "stat_pierce"))) != 0) + if (wrptr(&bufp, &size, snprintf(bufp, size, " %s", LOC(f->locale, "stat_pierce"))) != 0) WARN_STATIC_BUFFER(); } if (rc->battle_flags & BF_RES_CUT) { - if (wrptr(&bufp, &size, _snprintf(bufp, size, " %s", LOC(f->locale, "stat_cut"))) != 0) + if (wrptr(&bufp, &size, snprintf(bufp, size, " %s", LOC(f->locale, "stat_cut"))) != 0) WARN_STATIC_BUFFER(); } if (rc->battle_flags & BF_RES_BASH) { - if (wrptr(&bufp, &size, _snprintf(bufp, size, " %s", LOC(f->locale, "stat_bash"))) != 0) + if (wrptr(&bufp, &size, snprintf(bufp, size, " %s", LOC(f->locale, "stat_bash"))) != 0) WARN_STATIC_BUFFER(); } - if (wrptr(&bufp, &size, _snprintf(bufp, size, " %d %s", at_count, LOC(f->locale, (at_count == 1) ? "stat_attack" : "stat_attacks"))) != 0) + if (wrptr(&bufp, &size, snprintf(bufp, size, " %d %s", at_count, LOC(f->locale, (at_count == 1) ? "stat_attack" : "stat_attacks"))) != 0) WARN_STATIC_BUFFER(); for (a = 0; a < RACE_ATTACKS; a++) { @@ -2353,12 +2367,12 @@ static void display_race(unit * u, const race * rc) switch (rc->attack[a].type) { case AT_STANDARD: bytes = - (size_t)_snprintf(bufp, size, "%s (%s)", + (size_t)snprintf(bufp, size, "%s (%s)", LOC(f->locale, "attack_standard"), rc->def_damage); break; case AT_NATURAL: bytes = - (size_t)_snprintf(bufp, size, "%s (%s)", + (size_t)snprintf(bufp, size, "%s (%s)", LOC(f->locale, "attack_natural"), rc->attack[a].data.dice); break; case AT_SPELL: @@ -2366,11 +2380,11 @@ static void display_race(unit * u, const race * rc) case AT_DRAIN_ST: case AT_DRAIN_EXP: case AT_DAZZLE: - bytes = (size_t)_snprintf(bufp, size, "%s", LOC(f->locale, "attack_magical")); + bytes = (size_t)snprintf(bufp, size, "%s", LOC(f->locale, "attack_magical")); break; case AT_STRUCTURAL: bytes = - (size_t)_snprintf(bufp, size, "%s (%s)", + (size_t)snprintf(bufp, size, "%s (%s)", LOC(f->locale, "attack_structural"), rc->attack[a].data.dice); break; default: @@ -2407,12 +2421,12 @@ static void reshow_other(unit * u, struct order *ord, const char *s) { rc = findrace(s, u->faction->locale); if (itype) { - // if this is a potion, we need the right alchemy skill + /* if this is a potion, we need the right alchemy skill */ int i = i_get(u->items, itype); - err = 36; // we do not have this item? + err = 36; /* we do not have this item? */ if (i <= 0) { - // we don't have the item, but it may be a potion that we know + /* we don't have the item, but it may be a potion that we know */ const potion_type *ptype = resource2potion(item2resource(itype)); if (ptype) { if (2 * ptype->level > effskill(u, SK_ALCHEMY, 0)) { @@ -2549,7 +2563,7 @@ int guard_off_cmd(unit * u, struct order *ord) init_order(ord); if (getparam(u->faction->locale) == P_NOT) { - setguard(u, GUARD_NONE); + setguard(u, false); } return 0; } @@ -2638,7 +2652,7 @@ int combatspell_cmd(unit * u, struct order *ord) if (findparam(s, u->faction->locale) == P_LEVEL) { /* Merken, setzen kommt erst später */ level = getint(); - level = _max(0, level); + level = MAX(0, level); s = gettoken(token, sizeof(token)); } @@ -2664,20 +2678,6 @@ int combatspell_cmd(unit * u, struct order *ord) return 0; } -guard_t can_start_guarding(const unit * u) -{ - if (u->status >= ST_FLEE || fval(u, UFL_FLEEING)) - return E_GUARD_FLEEING; - /* Monster der Monsterpartei dürfen immer bewachen */ - if (is_monsters(u->faction) || fval(u_race(u), RCF_UNARMEDGUARD)) - return E_GUARD_OK; - if (!armedmen(u, true)) - return E_GUARD_UNARMED; - if (IsImmune(u->faction)) - return E_GUARD_NEWBIE; - return E_GUARD_OK; -} - int guard_on_cmd(unit * u, struct order *ord) { assert(getkeyword(ord) == K_GUARD); @@ -2691,31 +2691,29 @@ int guard_on_cmd(unit * u, struct order *ord) return 0; } - if (fval(u->region->terrain, SEA_REGION)) { - cmistake(u, ord, 2, MSG_EVENT); + if (fval(u, UFL_MOVED)) { + cmistake(u, ord, 187, MSG_EVENT); + } + else if (fval(u_race(u), RCF_ILLUSIONARY) + || u_race(u) == get_race(RC_SPELL)) { + cmistake(u, ord, 95, MSG_EVENT); } else { - if (fval(u, UFL_MOVED)) { - cmistake(u, ord, 187, MSG_EVENT); + int err = can_start_guarding(u); + if (err == E_GUARD_OK) { + setguard(u, true); } - else if (fval(u_race(u), RCF_ILLUSIONARY) - || u_race(u) == get_race(RC_SPELL)) { - cmistake(u, ord, 95, MSG_EVENT); + else if (err == E_GUARD_TERRAIN) { + cmistake(u, ord, 2, MSG_EVENT); } - else { - int err = can_start_guarding(u); - if (err == E_GUARD_OK) { - guard(u, GUARD_ALL); - } - else if (err == E_GUARD_UNARMED) { - ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "unit_unarmed", "")); - } - else if (err == E_GUARD_FLEEING) { - cmistake(u, ord, 320, MSG_EVENT); - } - else if (err == E_GUARD_NEWBIE) { - cmistake(u, ord, 304, MSG_EVENT); - } + else if (err == E_GUARD_UNARMED) { + ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "unit_unarmed", "")); + } + else if (err == E_GUARD_FLEEING) { + cmistake(u, ord, 320, MSG_EVENT); + } + else if (err == E_GUARD_NEWBIE) { + cmistake(u, ord, 304, MSG_EVENT); } } return 0; @@ -2731,13 +2729,13 @@ void sinkships(struct region * r) if (!sh->type->construction || sh->size >= sh->type->construction->maxsize) { if (fval(r->terrain, SEA_REGION)) { if (!enoughsailors(sh, crew_skill(sh))) { - // ship is at sea, but not enough people to control it + /* ship is at sea, but not enough people to control it */ double dmg = config_get_flt("rules.ship.damage.nocrewocean", 0.3); damage_ship(sh, dmg); } } else if (!ship_owner(sh)) { - // any ship lying around without an owner slowly rots + /* any ship lying around without an owner slowly rots */ double dmg = config_get_flt("rules.ship.damage.nocrew", 0.05); damage_ship(sh, dmg); } @@ -2750,74 +2748,6 @@ void sinkships(struct region * r) } } -static attrib_type at_number = { - "faction_renum", - NULL, NULL, NULL, NULL, NULL, NULL, - ATF_UNIQUE -}; - -void renumber_factions(void) -/* gibt parteien neue nummern */ -{ - struct renum { - struct renum *next; - int want; - faction *faction; - attrib *attrib; - } *renum = NULL, *rp; - faction *f; - for (f = factions; f; f = f->next) { - attrib *a = a_find(f->attribs, &at_number); - int want; - struct renum **rn; - faction *old; - - if (!a) - continue; - want = a->data.i; - if (fval(f, FFL_NEWID)) { - ADDMSG(&f->msgs, msg_message("renumber_twice", "id", want)); - continue; - } - old = findfaction(want); - if (old) { - a_remove(&f->attribs, a); - ADDMSG(&f->msgs, msg_message("renumber_inuse", "id", want)); - continue; - } - if (!faction_id_is_unused(want)) { - a_remove(&f->attribs, a); - ADDMSG(&f->msgs, msg_message("renumber_inuse", "id", want)); - continue; - } - for (rn = &renum; *rn; rn = &(*rn)->next) { - if ((*rn)->want >= want) - break; - } - if (*rn && (*rn)->want == want) { - ADDMSG(&f->msgs, msg_message("renumber_inuse", "id", want)); - } - else { - struct renum *r = calloc(sizeof(struct renum), 1); - r->next = *rn; - r->attrib = a; - r->faction = f; - r->want = want; - *rn = r; - } - } - for (rp = renum; rp; rp = rp->next) { - f = rp->faction; - a_remove(&f->attribs, rp->attrib); - renumber_faction(f, rp->want); - } - while (renum) { - rp = renum->next; - free(renum); - renum = rp; - } -} - void restack_units(void) { region *r; @@ -2905,121 +2835,6 @@ void restack_units(void) } } -int renumber_cmd(unit * u, order * ord) -{ - char token[128]; - const char *s; - int i; - faction *f = u->faction; - - init_order(ord); - s = gettoken(token, sizeof(token)); - switch (findparam_ex(s, u->faction->locale)) { - - case P_FACTION: - s = gettoken(token, sizeof(token)); - if (s && *s) { - int id = atoi36((const char *)s); - attrib *a = a_find(f->attribs, &at_number); - if (!a) - a = a_add(&f->attribs, a_new(&at_number)); - a->data.i = id; - } - break; - - case P_UNIT: - s = gettoken(token, sizeof(token)); - if (s == NULL || *s == 0) { - i = newunitid(); - } - else { - i = atoi36((const char *)s); - if (i <= 0 || i > MAX_UNIT_NR) { - cmistake(u, ord, 114, MSG_EVENT); - break; - } - - if (forbiddenid(i)) { - cmistake(u, ord, 116, MSG_EVENT); - break; - } - - if (findunitg(i, u->region)) { - cmistake(u, ord, 115, MSG_EVENT); - break; - } - } - renumber_unit(u, i); - break; - - case P_SHIP: - if (!u->ship) { - cmistake(u, ord, 144, MSG_EVENT); - break; - } - if (ship_owner(u->ship) != u) { - cmistake(u, ord, 146, MSG_EVENT); - break; - } - if (u->ship->coast != NODIRECTION) { - cmistake(u, ord, 116, MSG_EVENT); - break; - } - s = gettoken(token, sizeof(token)); - if (s == NULL || *s == 0) { - i = newcontainerid(); - } - else { - i = atoi36((const char *)s); - if (i <= 0 || i > MAX_CONTAINER_NR) { - cmistake(u, ord, 114, MSG_EVENT); - break; - } - if (findship(i) || findbuilding(i)) { - cmistake(u, ord, 115, MSG_EVENT); - break; - } - } - sunhash(u->ship); - u->ship->no = i; - shash(u->ship); - break; - case P_BUILDING: - case P_GEBAEUDE: - if (!u->building) { - cmistake(u, ord, 145, MSG_EVENT); - break; - } - if (building_owner(u->building) != u) { - cmistake(u, ord, 148, MSG_EVENT); - break; - } - s = gettoken(token, sizeof(token)); - if (*s == 0) { - i = newcontainerid(); - } - else { - i = atoi36((const char *)s); - if (i <= 0 || i > MAX_CONTAINER_NR) { - cmistake(u, ord, 114, MSG_EVENT); - break; - } - if (findship(i) || findbuilding(i)) { - cmistake(u, ord, 115, MSG_EVENT); - break; - } - } - bunhash(u->building); - u->building->no = i; - bhash(u->building); - break; - - default: - cmistake(u, ord, 239, MSG_EVENT); - } - return 0; -} - /* blesses stone circles create an astral protection in the astral region * above the shield, which prevents chaos suction and other spells. * The shield is created when a magician enters the blessed stone circle, @@ -3068,14 +2883,14 @@ static void age_stonecircle(building *b) { float effect = 100; /* the mage reactivates the circle */ c = create_curse(mage, &rt->attribs, ct_astralblock, - (float)_max(1, sk), _max(1, sk / 2), effect, 0); + (float)MAX(1, sk), MAX(1, sk / 2), effect, 0); ADDMSG(&r->msgs, msg_message("astralshield_activate", "region unit", r, mage)); } else { int sk = effskill(mage, SK_MAGIC, 0); - c->duration = _max(c->duration, sk / 2); - c->vigour = _max(c->vigour, (float)sk); + c->duration = MAX(c->duration, sk / 2); + c->vigour = MAX(c->vigour, (float)sk); } } } @@ -3120,12 +2935,12 @@ static void ageing(void) /* Goliathwasser */ int i = get_effect(u, oldpotiontype[P_STRONG]); if (i > 0) { - change_effect(u, oldpotiontype[P_STRONG], -1 * _min(u->number, i)); + change_effect(u, oldpotiontype[P_STRONG], -1 * MIN(u->number, i)); } /* Berserkerblut */ i = get_effect(u, oldpotiontype[P_BERSERK]); if (i > 0) { - change_effect(u, oldpotiontype[P_BERSERK], -1 * _min(u->number, i)); + change_effect(u, oldpotiontype[P_BERSERK], -1 * MIN(u->number, i)); } if (is_cursed(u->attribs, C_OLDRACE, 0)) { @@ -3159,9 +2974,9 @@ static void ageing(void) for (up = &r->units; *up;) { unit *u = *up; a_age(&u->attribs, u); - if (u == *up) + if (u == *up) handle_event(u->attribs, "timer", u); - if (u == *up) + if (u == *up) /*-V581 */ up = &(*up)->next; } @@ -3171,7 +2986,7 @@ static void ageing(void) a_age(&s->attribs, s); if (s == *sp) handle_event(s->attribs, "timer", s); - if (s == *sp) + if (s == *sp) /*-V581 */ sp = &(*sp)->next; } @@ -3199,7 +3014,7 @@ static int maxunits(const faction * f) if (flimit == 0) { return alimit; } - return _min(alimit, flimit); + return MIN(alimit, flimit); } int checkunitnumber(const faction * f, int add) @@ -3295,11 +3110,11 @@ void new_units(void) s = gettoken(token, sizeof(token)); if (s && s[0]) { - name = _strdup(s); + name = strdup(s); } u2 = create_unit(r, u->faction, 0, u->faction->race, alias, name, u); if (name != NULL) - free(name); // TODO: use a buffer on the stack instead? + free(name); /* TODO: use a buffer on the stack instead? */ fset(u2, UFL_ISNEW); a_add(&u2->attribs, a_new(&at_alias))->data.i = alias; @@ -3348,10 +3163,10 @@ void update_long_order(unit * u) free_orders(&u->old_orders); } - // hungry units do not get long orders: + /* hungry units do not get long orders: */ if (hunger) { if (u->old_orders) { - // keep looking for repeated orders that might clear the old_orders + /* keep looking for repeated orders that might clear the old_orders */ continue; } break; @@ -3359,19 +3174,19 @@ void update_long_order(unit * u) if (is_long(kwd)) { if (thiskwd == NOKEYWORD) { - // we have found the (first) long order - // some long orders can have multiple instances: + /* we have found the (first) long order + * some long orders can have multiple instances: */ switch (kwd) { /* Wenn gehandelt wird, darf kein langer Befehl ausgeführt - * werden. Da Handel erst nach anderen langen Befehlen kommt, - * muss das vorher abgefangen werden. Wir merken uns also - * hier, ob die Einheit handelt. */ + * werden. Da Handel erst nach anderen langen Befehlen kommt, + * muss das vorher abgefangen werden. Wir merken uns also + * hier, ob die Einheit handelt. */ case K_BUY: case K_SELL: case K_CAST: - // non-exclusive orders can be used with others. BUY can be paired with SELL, - // CAST with other CAST orders. compatibility is checked once the second - // long order is analyzed (below). + /* non-exclusive orders can be used with others. BUY can be paired with SELL, + * CAST with other CAST orders. compatibility is checked once the second + * long order is analyzed (below). */ exclusive = false; break; @@ -3382,8 +3197,8 @@ void update_long_order(unit * u) thiskwd = kwd; } else { - // we have found a second long order. this is okay for some, but not all commands. - // u->thisorder is already set, and should not have to be updated. + /* we have found a second long order. this is okay for some, but not all commands. + * u->thisorder is already set, and should not have to be updated. */ switch (kwd) { case K_CAST: if (thiskwd != K_CAST) { @@ -3404,9 +3219,8 @@ void update_long_order(unit * u) } break; default: - // TODO: decide https://bugs.eressea.de/view.php?id=2080#c6011 if (kwd > thiskwd) { - // swap out thisorder for the new one + /* swap out thisorder for the new one */ cmistake(u, u->thisorder, 52, MSG_EVENT); set_order(&u->thisorder, copy_order(ord)); } @@ -3419,11 +3233,11 @@ void update_long_order(unit * u) } } if (hunger) { - // Hungernde Einheiten führen NUR den default-Befehl aus + /* Hungernde Einheiten führen NUR den default-Befehl aus */ set_order(&u->thisorder, default_order(u->faction->locale)); } else if (!exclusive) { - // Wenn die Einheit handelt oder zaubert, muss der Default-Befehl gelöscht werden. + /* Wenn die Einheit handelt oder zaubert, muss der Default-Befehl gelöscht werden. */ set_order(&u->thisorder, NULL); } } @@ -3431,11 +3245,6 @@ void update_long_order(unit * u) static int use_item(unit * u, const item_type * itype, int amount, struct order *ord) { int i; - int target = -1; - - if (itype->useonother) { - target = read_unitid(u->faction, u->region); - } i = get_pooled(u, itype->rtype, GET_DEFAULT, amount); if (amount > i) { @@ -3446,40 +3255,14 @@ static int use_item(unit * u, const item_type * itype, int amount, struct order return ENOITEM; } - if (target == -1) { - if (itype->use) { - int result = itype->use(u, itype, amount, ord); - if (result > 0) { - use_pooled(u, itype->rtype, GET_DEFAULT, result); - } - return result; + if (itype->flags & ITF_CANUSE) { + int result = item_use_fun(u, itype, amount, ord); + if (result > 0) { + use_pooled(u, itype->rtype, GET_DEFAULT, result); } - return EUNUSABLE; - } - else { - return itype->useonother(u, target, itype, amount, ord); - } -} - -static double heal_factor(const unit * u) -{ - double elf_regen; - - switch (old_race(u_race(u))) { - case RC_TROLL: - case RC_DAEMON: - return 1.5; - case RC_GOBLIN: - return 2.0; - case RC_ELF: - elf_regen = get_param_flt(u_race(u)->parameters, "regen.forest", 1.0F); - if (elf_regen != 1.0 && r_isforest(u->region)) { - return elf_regen; - } - return 1.0; - default: - return 1.0; + return result; } + return EUNUSABLE; } void monthly_healing(void) @@ -3521,9 +3304,9 @@ void monthly_healing(void) continue; } - p *= heal_factor(u); + p *= u_heal_factor(u); if (u->hp < umhp) { - double maxheal = _max(u->number, umhp / 20.0); + double maxheal = MAX(u->number, umhp / 20.0); int addhp; if (active_building(u, bt_find("inn"))) { p *= 1.5; @@ -3538,7 +3321,7 @@ void monthly_healing(void) ++addhp; /* Aufaddieren der geheilten HP. */ - u->hp = _min(u->hp + addhp, umhp); + u->hp = MIN(u->hp + addhp, umhp); /* soll man an negativer regeneration sterben können? */ assert(u->hp > 0); @@ -3588,7 +3371,7 @@ void defaultorders(void) free_order(ord); if (!neworders) { /* lange Befehle aus orders und old_orders löschen zu gunsten des neuen */ - // TODO: why only is_exclusive, not is_long? what about CAST, BUY, SELL? + /* TODO: why only is_exclusive, not is_long? what about CAST, BUY, SELL? */ remove_exclusive(&u->orders); remove_exclusive(&u->old_orders); neworders = true; @@ -3640,10 +3423,10 @@ static void copy_spells(const spellbook * src, spellbook * dst, int maxlevel) { assert(dst); if (src && src->spells) { - quicklist *ql; + selist *ql; int qi; - for (qi = 0, ql = src->spells; ql; ql_advance(&ql, &qi, 1)) { - spellbook_entry * sbe = (spellbook_entry *)ql_get(ql, qi); + for (qi = 0, ql = src->spells; ql; selist_advance(&ql, &qi, 1)) { + spellbook_entry * sbe = (spellbook_entry *)selist_get(ql, qi); if (sbe->level <= maxlevel) { if (!spellbook_get(dst, sbe->sp)) { spellbook_add(dst, sbe->sp, sbe->level); @@ -3701,7 +3484,7 @@ int use_cmd(unit * u, struct order *ord) cmistake(u, ord, 43, MSG_PRODUCE); return err; } - n = atoi((const char *)t); + n = atoip((const char *)t); if (n == 0) { if (isparam(t, u->faction->locale, P_ANY)) { /* BENUTZE ALLES Yanxspirit */ @@ -3733,7 +3516,7 @@ int use_cmd(unit * u, struct order *ord) cmistake(u, ord, 50, MSG_PRODUCE); break; default: - // no error + /* no error */ break; } return err; @@ -3745,12 +3528,13 @@ int pay_cmd(unit * u, struct order *ord) cmistake(u, ord, 6, MSG_EVENT); } else { + building *b = NULL; param_t p; int id; + init_order(ord); p = getparam(u->faction->locale); id = getid(); - building *b = NULL; if (p == P_NOT) { unit *owner = building_owner(u->building); /* If the unit is not the owner of the building: error */ @@ -3797,7 +3581,7 @@ int pay_cmd(unit * u, struct order *ord) static int reserve_i(unit * u, struct order *ord, int flags) { char token[128]; - if (u->number > 0 && (urace(u)->ec_flags & GETITEM)) { + if (u->number > 0 && (u_race(u)->ec_flags & GETITEM)) { int use, count, para; const item_type *itype; const char *s; @@ -3849,7 +3633,7 @@ int claim_cmd(unit * u, struct order *ord) t = gettoken(token, sizeof(token)); if (t) { - n = atoi((const char *)t); + n = atoip((const char *)t); if (n == 0) { n = 1; } @@ -3863,7 +3647,7 @@ int claim_cmd(unit * u, struct order *ord) if (itype) { item **iclaim = i_find(&u->faction->items, itype); if (iclaim && *iclaim) { - n = _min(n, (*iclaim)->number); + n = MIN(n, (*iclaim)->number); i_change(iclaim, itype, -n); i_change(&u->items, itype, n); } @@ -4106,7 +3890,7 @@ int armedmen(const unit * u, bool siege_weapons) { item *itm; int n = 0; - if (!(urace(u)->flags & RCF_NOWEAPONS)) { + if (!(u_race(u)->flags & RCF_NOWEAPONS)) { if (effskill(u, SK_WEAPONLESS, 0) >= 1) { /* kann ohne waffen bewachen: fuer drachen */ n = u->number; @@ -4121,10 +3905,10 @@ int armedmen(const unit * u, bool siege_weapons) if (effskill(u, wtype->skill, 0) >= wtype->minskill) n += itm->number; /* if (effskill(u, wtype->skill) >= wtype->minskill) n += itm->number; */ - if (n > u->number) + if (n >= u->number) break; } - n = _min(n, u->number); + n = MIN(n, u->number); } } return n; @@ -4160,9 +3944,9 @@ int siege_cmd(unit * u, order * ord) rt_catapult = rt_find("catapult"); d = i_get(u->items, rt_catapult->itype); - d = _min(u->number, d); + d = MIN(u->number, d); pooled = get_pooled(u, rt_catapultammo, GET_DEFAULT, d); - d = _min(pooled, d); + d = MIN(pooled, d); if (effskill(u, SK_CATAPULT, 0) >= 1) { katapultiere = d; d *= effskill(u, SK_CATAPULT, 0); @@ -4178,7 +3962,7 @@ int siege_cmd(unit * u, order * ord) return 80; } - if (!is_guard(u, GUARD_TRAVELTHRU)) { + if (!is_guard(u)) { /* abbruch, wenn die einheit nicht vorher die region bewacht - als * warnung fuer alle anderen! */ cmistake(u, ord, 81, MSG_EVENT); @@ -4189,11 +3973,11 @@ int siege_cmd(unit * u, order * ord) * einheiten wieder abgesucht werden muessen! */ usetsiege(u, b); - b->besieged += _max(bewaffnete, katapultiere); + b->besieged += MAX(bewaffnete, katapultiere); /* definitiver schaden eingeschraenkt */ - d = _min(d, b->size - 1); + d = MIN(d, b->size - 1); /* meldung, schaden anrichten */ if (d && !curse_active(get_curse(b->attribs, magicwalls_ct))) { @@ -4405,16 +4189,54 @@ void init_processor(void) } } -void processorders(void) +static void reset_game(void) +{ + region *r; + faction *f; + for (r = regions; r; r = r->next) { + unit *u; + building *b; + r->flags &= RF_SAVEMASK; + for (u = r->units; u; u = u->next) { + u->flags &= UFL_SAVEMASK; + } + for (b = r->buildings; b; b = b->next) { + b->flags &= BLD_SAVEMASK; + } + if (r->land && r->land->ownership && r->land->ownership->owner) { + faction *owner = r->land->ownership->owner; + if (owner == get_monsters()) { + /* some compat-fix, i believe. */ + owner = update_owners(r); + } + if (owner) { + fset(r, RF_GUARDED); + } + } + } + for (f = factions; f; f = f->next) { + f->flags &= FFL_SAVEMASK; + } +} + +void turn_begin(void) +{ + ++turn; + reset_game(); +} + +void turn_process(void) { init_processor(); process(); - /*************************************************/ if (config_get_int("modules.markets", 0)) { do_markets(); } +} +void turn_end(void) +{ log_info(" - Attribute altern"); ageing(); remove_empty_units(); @@ -4429,10 +4251,17 @@ void processorders(void) update_spells(); } +void processorders(void) +{ + turn_begin(); + turn_process(); + turn_end(); +} + void update_subscriptions(void) { FILE *F; - char zText[MAX_PATH]; + char zText[4096]; join_path(basepath(), "subscriptions", zText, sizeof(zText)); F = fopen(zText, "r"); @@ -4492,7 +4321,7 @@ cansee(const faction * f, const region * r, const unit * u, int modifier) return false; /* simple visibility, just gotta have a unit in the region to see 'em */ - if (is_guard(u, GUARD_ALL) != 0 || usiege(u) || u->building || u->ship) { + if (is_guard(u) || usiege(u) || u->building || u->ship) { return true; } @@ -4531,7 +4360,7 @@ bool cansee_unit(const unit * u, const unit * target, int modifier) else { int n, rings, o; - if (is_guard(target, GUARD_ALL) != 0 || usiege(target) || target->building + if (is_guard(target) || usiege(target) || target->building || target->ship) { return true; } @@ -4575,7 +4404,7 @@ cansee_durchgezogen(const faction * f, const region * r, const unit * u, else { int rings; - if (is_guard(u, GUARD_ALL) != 0 || usiege(u) || u->building || u->ship) { + if (is_guard(u) || usiege(u) || u->building || u->ship) { return true; } diff --git a/src/laws.h b/src/laws.h index 6c8633536..090d2b978 100755 --- a/src/laws.h +++ b/src/laws.h @@ -20,7 +20,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #define H_GC_LAWS #include -#include "guard.h" +#include #ifdef __cplusplus extern "C" { @@ -53,14 +53,15 @@ extern "C" { int enter_building(struct unit *u, struct order *ord, int id, bool report); int enter_ship(struct unit *u, struct order *ord, int id, bool report); - /* eressea-specific. put somewhere else, please. */ void processorders(void); + void turn_begin(void); + void turn_process(void); + void turn_end(void); void new_units(void); void defaultorders(void); void quit(void); void monthly_healing(void); - void renumber_factions(void); void restack_units(void); void update_long_order(struct unit *u); void sinkships(struct region * r); @@ -84,7 +85,6 @@ extern "C" { int leave_cmd(struct unit *u, struct order *ord); int pay_cmd(struct unit *u, struct order *ord); int promotion_cmd(struct unit *u, struct order *ord); - int renumber_cmd(struct unit *u, struct order *ord); int combatspell_cmd(struct unit *u, struct order *ord); int contact_cmd(struct unit *u, struct order *ord); int guard_on_cmd(struct unit *u, struct order *ord); @@ -111,8 +111,11 @@ extern "C" { #define FORCE_LEAVE_POSTCOMBAT 1 #define FORCE_LEAVE_ALL 2 bool rule_force_leave(int flag); + bool LongHunger(const struct unit *u); + int NMRTimeout(void); + int NewbieImmunity(void); + bool IsImmune(const struct faction *f); bool help_enter(struct unit *uo, struct unit *u); - guard_t can_start_guarding(const struct unit * u); #ifdef __cplusplus } diff --git a/src/laws.test.c b/src/laws.test.c index 66cb5ef10..937754988 100644 --- a/src/laws.test.c +++ b/src/laws.test.c @@ -1,7 +1,8 @@ #include #include "laws.h" #include "battle.h" -#include "monster.h" +#include "guard.h" +#include "monsters.h" #include #include @@ -33,16 +34,14 @@ static void test_new_building_can_be_renamed(CuTest * tc) { region *r; building *b; - building_type *btype; - test_cleanup(); - test_create_world(); + test_setup(); + test_create_locale(); + r = test_create_region(0, 0, 0); - btype = bt_get_or_create("castle"); - r = findregion(-1, 0); - - b = new_building(btype, r, default_locale); + b = test_create_building(r, NULL); CuAssertTrue(tc, !renamed_building(b)); + test_cleanup(); } static void test_rename_building(CuTest * tc) @@ -53,12 +52,10 @@ static void test_rename_building(CuTest * tc) faction *f; building_type *btype; - test_cleanup(); - test_create_world(); - - btype = bt_get_or_create("castle"); - - r = findregion(-1, 0); + test_setup(); + test_create_locale(); + btype = test_create_buildingtype("castle"); + r = test_create_region(0, 0, 0); b = new_building(btype, r, default_locale); f = test_create_faction(NULL); u = test_create_unit(f, r); @@ -67,6 +64,7 @@ static void test_rename_building(CuTest * tc) rename_building(u, NULL, b, "Villa Nagel"); CuAssertStrEquals(tc, "Villa Nagel", b->name); CuAssertTrue(tc, renamed_building(b)); + test_cleanup(); } static void test_rename_building_twice(CuTest * tc) @@ -77,12 +75,10 @@ static void test_rename_building_twice(CuTest * tc) building *b; building_type *btype; - test_cleanup(); - test_create_world(); - - btype = bt_get_or_create("castle"); - - r = findregion(-1, 0); + test_setup(); + test_create_locale(); + btype = test_create_buildingtype("castle"); + r = test_create_region(0, 0, 0); b = new_building(btype, r, default_locale); f = test_create_faction(NULL); u = test_create_unit(f, r); @@ -93,6 +89,7 @@ static void test_rename_building_twice(CuTest * tc) rename_building(u, NULL, b, "Villa Kunterbunt"); CuAssertStrEquals(tc, "Villa Kunterbunt", b->name); + test_cleanup(); } static void test_contact(CuTest * tc) @@ -103,11 +100,10 @@ static void test_contact(CuTest * tc) building_type *btype; ally *al; - test_cleanup(); - test_create_world(); - - btype = bt_get_or_create("castle"); - r = findregion(0, 0); + test_setup(); + test_create_locale(); + btype = test_create_buildingtype("castle"); + r = test_create_region(0, 0, 0); b = new_building(btype, r, default_locale); u1 = test_create_unit(test_create_faction(0), r); u2 = test_create_unit(test_create_faction(0), r); @@ -124,6 +120,7 @@ static void test_contact(CuTest * tc) CuAssertIntEquals(tc, HELP_GIVE, can_contact(r, u1, u2)); u_set_building(u2, b); CuAssertIntEquals(tc, 1, can_contact(r, u1, u2)); + test_cleanup(); } static void test_enter_building(CuTest * tc) @@ -133,13 +130,12 @@ static void test_enter_building(CuTest * tc) building *b; race * rc; - test_cleanup(); - test_create_world(); - - r = findregion(0, 0); - rc = rc_get_or_create("human"); + test_setup(); + test_create_locale(); + r = test_create_region(0, 0, 0); + rc = test_create_race("human"); u = test_create_unit(test_create_faction(rc), r); - b = test_create_building(r, bt_get_or_create("castle")); + b = test_create_building(r, test_create_buildingtype("castle")); rc->flags = RCF_WALK; u->building = 0; @@ -228,10 +224,16 @@ static void test_display_cmd(CuTest *tc) { CuAssertPtrEquals(tc, NULL, u->display); free_order(ord); + ord = create_order(K_DISPLAY, f->locale, "%s Hodor", LOC(f->locale, parameters[P_REGION])); + CuAssertIntEquals(tc, 0, display_cmd(u, ord)); + CuAssertPtrEquals(tc, NULL, r->display); + free_order(ord); + test_cleanup(); } static void test_rule_force_leave(CuTest *tc) { + test_setup(); config_set("rules.owners.force_leave", "0"); CuAssertIntEquals(tc, false, rule_force_leave(FORCE_LEAVE_ALL)); CuAssertIntEquals(tc, false, rule_force_leave(FORCE_LEAVE_POSTCOMBAT)); @@ -244,6 +246,7 @@ static void test_rule_force_leave(CuTest *tc) { config_set("rules.owners.force_leave", "3"); CuAssertIntEquals(tc, true, rule_force_leave(FORCE_LEAVE_ALL)); CuAssertIntEquals(tc, true, rule_force_leave(FORCE_LEAVE_POSTCOMBAT)); + test_cleanup(); } static void test_force_leave_buildings(CuTest *tc) { @@ -252,7 +255,8 @@ static void test_force_leave_buildings(CuTest *tc) { unit *u1, *u2, *u3; building * b; message *msg; - test_cleanup(); + + test_setup(); r = test_create_region(0, 0, test_create_terrain("plain", LAND_REGION)); u1 = test_create_unit(test_create_faction(NULL), r); u2 = test_create_unit(u1->faction, r); @@ -282,7 +286,8 @@ static void test_force_leave_ships(CuTest *tc) { unit *u1, *u2; ship *sh; message *msg; - test_cleanup(); + + test_setup(); r = test_create_region(0, 0, test_create_terrain("plain", LAND_REGION)); u1 = test_create_unit(test_create_faction(NULL), r); u2 = test_create_unit(test_create_faction(NULL), r); @@ -301,7 +306,8 @@ static void test_force_leave_ships_on_ocean(CuTest *tc) { region *r; unit *u1, *u2; ship *sh; - test_cleanup(); + + test_setup(); r = test_create_region(0, 0, test_create_terrain("ocean", SEA_REGION)); u1 = test_create_unit(test_create_faction(NULL), r); u2 = test_create_unit(test_create_faction(NULL), r); @@ -322,7 +328,7 @@ static void test_fishing_feeds_2_people(CuTest * tc) unit *u; ship *sh; - test_cleanup(); + test_setup(); test_create_world(); r = findregion(-1, 0); CuAssertStrEquals(tc, "ocean", r->terrain->_name); /* test_create_world needs coverage */ @@ -347,6 +353,7 @@ static void test_fishing_feeds_2_people(CuTest * tc) sh->flags |= SF_FISHING; get_food(r); CuAssertIntEquals(tc, 32, i_get(u->items, rtype->itype)); + test_cleanup(); } static void test_fishing_does_not_give_goblins_money(CuTest * tc) @@ -357,7 +364,7 @@ static void test_fishing_does_not_give_goblins_money(CuTest * tc) unit *u; ship *sh; - test_cleanup(); + test_setup(); test_create_world(); rtype = get_resourcetype(R_SILVER); @@ -373,6 +380,7 @@ static void test_fishing_does_not_give_goblins_money(CuTest * tc) sh->flags |= SF_FISHING; get_food(r); CuAssertIntEquals(tc, 42, i_get(u->items, rtype->itype)); + test_cleanup(); } static void test_fishing_gets_reset(CuTest * tc) @@ -383,7 +391,7 @@ static void test_fishing_gets_reset(CuTest * tc) unit *u; ship *sh; - test_cleanup(); + test_setup(); test_create_world(); rtype = get_resourcetype(R_SILVER); r = findregion(-1, 0); @@ -402,10 +410,12 @@ static void test_fishing_gets_reset(CuTest * tc) scale_number(u, 1); get_food(r); CuAssertIntEquals(tc, 32, i_get(u->items, rtype->itype)); + test_cleanup(); } static void test_unit_limit(CuTest * tc) { + test_setup(); config_set("rules.limit.faction", "250"); CuAssertIntEquals(tc, 250, rule_faction_limit()); @@ -414,7 +424,7 @@ static void test_unit_limit(CuTest * tc) config_set("rules.limit.alliance", "250"); CuAssertIntEquals(tc, 250, rule_alliance_limit()); - + test_cleanup(); } extern int checkunitnumber(const faction * f, int add); @@ -422,7 +432,7 @@ static void test_cannot_create_unit_above_limit(CuTest * tc) { faction *f; - test_cleanup(); + test_setup(); test_create_world(); f = test_create_faction(NULL); config_set("rules.limit.faction", "4"); @@ -433,6 +443,7 @@ static void test_cannot_create_unit_above_limit(CuTest * tc) config_set("rules.limit.alliance", "3"); CuAssertIntEquals(tc, 0, checkunitnumber(f, 3)); CuAssertIntEquals(tc, 1, checkunitnumber(f, 4)); + test_cleanup(); } static void test_reserve_cmd(CuTest *tc) { @@ -442,7 +453,7 @@ static void test_reserve_cmd(CuTest *tc) { order *ord; const resource_type *rtype; - test_cleanup(); + test_setup(); test_create_world(); rtype = get_resourcetype(R_SILVER); @@ -483,7 +494,7 @@ static void setup_pay_cmd(struct pay_fixture *fix) { f = test_create_faction(NULL); r = findregion(0, 0); assert(r && f); - btcastle = bt_get_or_create("castle"); + btcastle = test_create_buildingtype("castle"); btcastle->taxes = level_taxes; b = test_create_building(r, btcastle); assert(b); @@ -502,7 +513,7 @@ static void test_pay_cmd(CuTest *tc) { faction *f; building *b; - test_cleanup(); + test_setup(); setup_pay_cmd(&fix); b = fix.u1->building; f = fix.u1->faction; @@ -520,18 +531,17 @@ static void test_pay_cmd_other_building(CuTest *tc) { order *ord; faction *f; building *b; - char cmd[32]; test_setup(); setup_pay_cmd(&fix); f = fix.u1->faction; - b = test_create_building(fix.u1->region, bt_get_or_create("lighthouse")); + /* lighthouse is not in the test locale, so we're using castle */ + b = test_create_building(fix.u1->region, test_create_buildingtype("lighthouse")); config_set("rules.region_owners", "1"); config_set("rules.region_owner_pay_building", "lighthouse"); update_owners(b->region); - _snprintf(cmd, sizeof(cmd), "NOT %s", itoa36(b->no)); - ord = create_order(K_PAY, f->locale, cmd); + ord = create_order(K_PAY, f->locale, "NOT %s", itoa36(b->no)); assert(ord); CuAssertPtrEquals(tc, fix.u1, building_owner(b)); CuAssertIntEquals(tc, 0, pay_cmd(fix.u1, ord)); @@ -546,7 +556,7 @@ static void test_pay_cmd_must_be_owner(CuTest *tc) { faction *f; building *b; - test_cleanup(); + test_setup(); setup_pay_cmd(&fix); b = fix.u1->building; f = fix.u1->faction; @@ -565,14 +575,13 @@ static void test_new_units(CuTest *tc) { region *r; const struct locale *loc; - test_cleanup(); - test_create_world(); + test_setup(); f = test_create_faction(NULL); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); assert(r && f); u = test_create_unit(f, r); assert(u && !u->next); - loc = get_locale("de"); + loc = test_create_locale(); assert(loc); u->orders = create_order(K_MAKETEMP, loc, "hurr"); new_units(); @@ -594,11 +603,10 @@ void setup_guard(guard_fixture *fix, bool armed) { faction *f; unit * u; - test_cleanup(); - test_create_world(); + test_setup(); f = test_create_faction(NULL); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); assert(r && f); u = test_create_unit(f, r); fset(u, UFL_GUARD); @@ -607,7 +615,7 @@ void setup_guard(guard_fixture *fix, bool armed) { if (armed) { item_type *itype; itype = it_get_or_create(rt_get_or_create("sword")); - new_weapontype(itype, 0, 0.0, NULL, 0, 0, 0, SK_MELEE, 2); + new_weapontype(itype, 0, frac_zero, NULL, 0, 0, 0, SK_MELEE, 2); i_change(&u->items, itype, 1); set_level(u, SK_MELEE, 2); } @@ -703,18 +711,18 @@ static void test_reserve_self(CuTest *tc) { const resource_type *rtype; const struct locale *loc; - test_cleanup(); - test_create_world(); + test_setup(); + init_resources(); rtype = get_resourcetype(R_SILVER); assert(rtype && rtype->itype); f = test_create_faction(NULL); - r = findregion(0, 0); + r = test_create_region(0, 0, 0); assert(r && f); u1 = test_create_unit(f, r); u2 = test_create_unit(f, r); assert(u1 && u2); - loc = get_locale("de"); + loc = test_create_locale(); assert(loc); ord = create_order(K_RESERVE, loc, "200 SILBER"); assert(ord); @@ -737,7 +745,7 @@ static void statistic_test(CuTest *tc, int peasants, int luck, int maxp, } static void test_peasant_luck_effect(CuTest *tc) { - test_cleanup(); + test_setup(); config_set("rules.peasants.peasantluck.factor", "10"); config_set("rules.peasants.growth.factor", "0.001"); @@ -754,8 +762,9 @@ static void test_peasant_luck_effect(CuTest *tc) { static void test_luck_message(CuTest *tc) { region* r; + attrib *a; - test_cleanup(); + test_setup(); r = test_create_region(0, 0, NULL); rsetpeasants(r, 1); @@ -763,7 +772,7 @@ static void test_luck_message(CuTest *tc) { CuAssertPtrEquals_Msg(tc, "unexpected message", (void *)NULL, r->msgs); - attrib *a = (attrib *)a_find(r->attribs, &at_peasantluck); + a = (attrib *)a_find(r->attribs, &at_peasantluck); if (!a) a = a_add(&r->attribs, a_new(&at_peasantluck)); a->data.i += 10; @@ -778,7 +787,7 @@ static void test_luck_message(CuTest *tc) { static unit * setup_name_cmd(void) { faction *f; - test_cleanup(); + test_setup(); f = test_create_faction(0); return test_create_unit(f, test_create_region(0, 0, 0)); } @@ -813,10 +822,7 @@ static void test_name_region(CuTest *tc) { f = u->faction; ord = create_order(K_NAME, f->locale, "%s Hodor", LOC(f->locale, parameters[P_REGION])); - name_cmd(u, ord); - CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "error145")); - - u->building = test_create_building(u->region, 0); + u_set_building(u, test_create_building(u->region, 0)); name_cmd(u, ord); CuAssertStrEquals(tc, "Hodor", u->region->land->name); free_order(ord); @@ -885,11 +891,11 @@ static void test_name_ship(CuTest *tc) { } static void test_long_order_normal(CuTest *tc) { - // TODO: write more tests + /* TODO: write more tests */ unit *u; order *ord; - test_cleanup(); + test_setup(); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); fset(u, UFL_MOVED); fset(u, UFL_LONGACTION); @@ -905,9 +911,9 @@ static void test_long_order_normal(CuTest *tc) { } static void test_long_order_none(CuTest *tc) { - // TODO: write more tests + /* TODO: write more tests */ unit *u; - test_cleanup(); + test_setup(); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); update_long_order(u); CuAssertPtrEquals(tc, 0, u->thisorder); @@ -917,9 +923,9 @@ static void test_long_order_none(CuTest *tc) { } static void test_long_order_cast(CuTest *tc) { - // TODO: write more tests + /* TODO: write more tests */ unit *u; - test_cleanup(); + test_setup(); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); unit_addorder(u, create_order(K_CAST, u->faction->locale, 0)); unit_addorder(u, create_order(K_CAST, u->faction->locale, 0)); @@ -931,9 +937,9 @@ static void test_long_order_cast(CuTest *tc) { } static void test_long_order_buy_sell(CuTest *tc) { - // TODO: write more tests + /* TODO: write more tests */ unit *u; - test_cleanup(); + test_setup(); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); unit_addorder(u, create_order(K_BUY, u->faction->locale, 0)); unit_addorder(u, create_order(K_SELL, u->faction->locale, 0)); @@ -946,9 +952,9 @@ static void test_long_order_buy_sell(CuTest *tc) { } static void test_long_order_multi_long(CuTest *tc) { - // TODO: write more tests + /* TODO: write more tests */ unit *u; - test_cleanup(); + test_setup(); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); unit_addorder(u, create_order(K_MOVE, u->faction->locale, 0)); unit_addorder(u, create_order(K_DESTROY, u->faction->locale, 0)); @@ -960,9 +966,9 @@ static void test_long_order_multi_long(CuTest *tc) { } static void test_long_order_multi_buy(CuTest *tc) { - // TODO: write more tests + /* TODO: write more tests */ unit *u; - test_cleanup(); + test_setup(); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); unit_addorder(u, create_order(K_BUY, u->faction->locale, 0)); unit_addorder(u, create_order(K_BUY, u->faction->locale, 0)); @@ -974,9 +980,9 @@ static void test_long_order_multi_buy(CuTest *tc) { } static void test_long_order_multi_sell(CuTest *tc) { - // TODO: write more tests + /* TODO: write more tests */ unit *u; - test_cleanup(); + test_setup(); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); unit_addorder(u, create_order(K_SELL, u->faction->locale, 0)); unit_addorder(u, create_order(K_BUY, u->faction->locale, 0)); @@ -989,9 +995,9 @@ static void test_long_order_multi_sell(CuTest *tc) { } static void test_long_order_buy_cast(CuTest *tc) { - // TODO: write more tests + /* TODO: write more tests */ unit *u; - test_cleanup(); + test_setup(); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); unit_addorder(u, create_order(K_BUY, u->faction->locale, 0)); unit_addorder(u, create_order(K_CAST, u->faction->locale, 0)); @@ -1004,7 +1010,7 @@ static void test_long_order_buy_cast(CuTest *tc) { static void test_long_order_hungry(CuTest *tc) { unit *u; - test_cleanup(); + test_setup(); config_set("hunger.long", "1"); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); fset(u, UFL_HUNGER); @@ -1023,7 +1029,7 @@ static void test_ally_cmd_errors(CuTest *tc) { int fid; order *ord; - test_cleanup(); + test_setup(); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); fid = u->faction->no + 1; CuAssertPtrEquals(tc, 0, findfaction(fid)); @@ -1036,12 +1042,81 @@ static void test_ally_cmd_errors(CuTest *tc) { test_cleanup(); } +static void test_name_cmd(CuTest *tc) { + unit *u; + faction *f; + order *ord; + + test_setup(); + u = test_create_unit(f = test_create_faction(0), test_create_region(0, 0, 0)); + + ord = create_order(K_NAME, f->locale, "%s ' Ho\tdor '", LOC(f->locale, parameters[P_UNIT])); + name_cmd(u, ord); + CuAssertStrEquals(tc, "Hodor", u->_name); + free_order(ord); + + ord = create_order(K_NAME, f->locale, "%s ' Ho\tdor '", LOC(f->locale, parameters[P_FACTION])); + name_cmd(u, ord); + CuAssertStrEquals(tc, "Hodor", f->name); + free_order(ord); + + ord = create_order(K_NAME, f->locale, "%s ' Ho\tdor '", LOC(f->locale, parameters[P_SHIP])); + u->ship = test_create_ship(u->region, 0); + name_cmd(u, ord); + CuAssertStrEquals(tc, "Hodor", u->ship->name); + free_order(ord); + + ord = create_order(K_NAME, f->locale, "%s ' Ho\tdor '", LOC(f->locale, parameters[P_BUILDING])); + u_set_building(u, test_create_building(u->region, 0)); + name_cmd(u, ord); + CuAssertStrEquals(tc, "Hodor", u->building->name); + free_order(ord); + + ord = create_order(K_NAME, f->locale, "%s ' Ho\tdor '", LOC(f->locale, parameters[P_REGION])); + name_cmd(u, ord); + CuAssertStrEquals(tc, "Hodor", u->region->land->name); + free_order(ord); + + test_cleanup(); +} + +static void test_name_cmd_2274(CuTest *tc) { + unit *u1, *u2, *u3; + faction *f; + region *r; + + test_setup(); + r = test_create_region(0, 0, 0); + u1 = test_create_unit(test_create_faction(0), r); + u2 = test_create_unit(test_create_faction(0), r); + u3 = test_create_unit(u2->faction, r); + u_set_building(u1, test_create_building(r, NULL)); + u1->building->size = 10; + u_set_building(u2, test_create_building(r, NULL)); + u2->building->size = 20; + + f = u2->faction; + u2->thisorder = create_order(K_NAME, f->locale, "%s Heimat", LOC(f->locale, parameters[P_REGION])); + name_cmd(u2, u2->thisorder); + CuAssertStrEquals(tc, "Heimat", r->land->name); + f = u3->faction; + u3->thisorder = create_order(K_NAME, f->locale, "%s Hodor", LOC(f->locale, parameters[P_REGION])); + name_cmd(u3, u3->thisorder); + CuAssertStrEquals(tc, "Hodor", r->land->name); + f = u1->faction; + u1->thisorder = create_order(K_NAME, f->locale, "%s notallowed", LOC(f->locale, parameters[P_REGION])); + name_cmd(u1, u1->thisorder); + CuAssertStrEquals(tc, "Hodor", r->land->name); + + test_cleanup(); +} + static void test_ally_cmd(CuTest *tc) { unit *u; faction * f; order *ord; - test_cleanup(); + test_setup(); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); f = test_create_faction(0); @@ -1074,7 +1149,7 @@ static void test_ally_cmd(CuTest *tc) { static void test_nmr_warnings(CuTest *tc) { faction *f1, *f2; - test_cleanup(); + test_setup(); config_set("nmr.timeout", "3"); f1 = test_create_faction(0); f2 = test_create_faction(0); @@ -1095,7 +1170,7 @@ static void test_nmr_warnings(CuTest *tc) { static unit * setup_mail_cmd(void) { faction *f; - test_cleanup(); + test_setup(); f = test_create_faction(0); return test_create_unit(f, test_create_region(0, 0, 0)); } @@ -1209,10 +1284,9 @@ static void test_show_without_item(CuTest *tc) unit *u; order *ord; item_type *itype; - item *i; struct locale *loc; - test_cleanup(); + test_setup(); loc = get_or_create_locale("de"); locale_setstring(loc, parameters[P_ANY], "ALLE"); @@ -1222,26 +1296,26 @@ static void test_show_without_item(CuTest *tc) f = test_create_faction(test_create_race("human")); u = test_create_unit(f, r); + itype = it_get_or_create(rt_get_or_create("testitem")); + ord = create_order(K_RESHOW, f->locale, "testname"); - itype = it_get_or_create(rt_get_or_create("testitem")); - i = i_new(itype, 1); - reshow_cmd(u, ord); - CuAssertTrue(tc, test_find_messagetype(f->msgs, "error21") != NULL); + CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "error21")); test_clear_messages(f); locale_setstring(loc, "testitem", "testname"); locale_setstring(loc, "iteminfo::testitem", "testdescription"); + reshow_cmd(u, ord); - CuAssertTrue(tc, test_find_messagetype(f->msgs, "error21") == NULL); - CuAssertTrue(tc, test_find_messagetype(f->msgs, "error36") != NULL); + CuAssertPtrEquals(tc, 0, test_find_messagetype(f->msgs, "error21")); + CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "error36")); test_clear_messages(f); - i_add(&(u->items), i); + i_add(&(u->items), i_new(itype, 1)); reshow_cmd(u, ord); - CuAssertTrue(tc, test_find_messagetype(f->msgs, "error21") == NULL); - CuAssertTrue(tc, test_find_messagetype(f->msgs, "error36") == NULL); + CuAssertPtrEquals(tc, 0, test_find_messagetype(f->msgs, "error21")); + CuAssertPtrEquals(tc, 0, test_find_messagetype(f->msgs, "error36")); test_clear_messages(f); free_order(ord); @@ -1255,13 +1329,13 @@ static void test_show_elf(CuTest *tc) { struct locale *loc; message * msg; - test_cleanup(); + test_setup(); mt_register(mt_new_va("msg_event", "string:string", 0)); rc = test_create_race("elf"); test_create_itemtype("elvenhorse"); - loc = get_or_create_locale("de"); + loc = test_create_locale(); locale_setstring(loc, "elvenhorse", "Elfenpferd"); locale_setstring(loc, "elvenhorse_p", "Elfenpferde"); locale_setstring(loc, "race::elf_p", "Elfen"); @@ -1291,7 +1365,7 @@ static void test_show_race(CuTest *tc) { struct locale *loc; message * msg; - test_cleanup(); + test_setup(); mt_register(mt_new_va("msg_event", "string:string", 0)); test_create_race("human"); @@ -1335,9 +1409,8 @@ static void test_immigration(CuTest * tc) double inject[] = { 1 }; int (*old_wage)(const region*, const faction*, const race*, int) = global.functions.wage; - test_cleanup(); - test_create_world(); - r = findregion(0, 0); + test_setup(); + r = test_create_region(0, 0, 0); rsetpeasants(r, 0); config_set("rules.economy.repopulate_maximum", 0); @@ -1371,9 +1444,9 @@ static void test_demon_hunger(CuTest * tc) unit *u; message* msg; - test_cleanup(); - test_create_world(); - r = findregion(0, 0); + test_setup(); + init_resources(); + r = test_create_region(0, 0, 0); rc = test_create_race("demon"); f = test_create_faction(rc); u = test_create_unit(f, r); @@ -1402,11 +1475,49 @@ static void test_demon_hunger(CuTest * tc) test_cleanup(); } +static void test_armedmen(CuTest *tc) { + /* TODO: test RCF_NOWEAPONS and SK_WEAPONLESS */ + unit *u; + item_type *it_sword; + weapon_type *wtype; + test_setup(); + u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); + it_sword = test_create_itemtype("sword"); + wtype = new_weapontype(it_sword, 0, frac_make(1, 2), 0, 0, 0, 0, SK_MELEE, 1); + CuAssertIntEquals(tc, 0, armedmen(u, false)); + CuAssertIntEquals(tc, 0, armedmen(u, true)); + set_level(u, SK_MELEE, 1); + CuAssertIntEquals(tc, 0, armedmen(u, false)); + i_change(&u->items, it_sword, 1); + CuAssertIntEquals(tc, 1, armedmen(u, false)); + i_change(&u->items, it_sword, 1); + CuAssertIntEquals(tc, 1, armedmen(u, false)); + scale_number(u, 2); + set_level(u, SK_MELEE, 1); + CuAssertIntEquals(tc, 2, armedmen(u, false)); + set_level(u, SK_MELEE, 0); + CuAssertIntEquals(tc, 0, armedmen(u, false)); + set_level(u, SK_MELEE, 1); + i_change(&u->items, it_sword, -1); + CuAssertIntEquals(tc, 1, armedmen(u, false)); + wtype->minskill = 2; + CuAssertIntEquals(tc, 0, armedmen(u, false)); + set_level(u, SK_MELEE, 2); + CuAssertIntEquals(tc, 1, armedmen(u, false)); + CuAssertIntEquals(tc, 1, armedmen(u, true)); + wtype->flags |= WTF_SIEGE; + CuAssertIntEquals(tc, 0, armedmen(u, false)); + CuAssertIntEquals(tc, 1, armedmen(u, true)); + test_cleanup(); +} + CuSuite *get_laws_suite(void) { CuSuite *suite = CuSuiteNew(); SUITE_ADD_TEST(suite, test_nmr_warnings); SUITE_ADD_TEST(suite, test_ally_cmd); + SUITE_ADD_TEST(suite, test_name_cmd); + SUITE_ADD_TEST(suite, test_name_cmd_2274); SUITE_ADD_TEST(suite, test_ally_cmd_errors); SUITE_ADD_TEST(suite, test_long_order_normal); SUITE_ADD_TEST(suite, test_long_order_none); @@ -1464,6 +1575,7 @@ CuSuite *get_laws_suite(void) SUITE_ADD_TEST(suite, test_show_race); SUITE_ADD_TEST(suite, test_immigration); SUITE_ADD_TEST(suite, test_demon_hunger); + SUITE_ADD_TEST(suite, test_armedmen); return suite; } diff --git a/src/lighthouse.c b/src/lighthouse.c index 441eb0458..d29d58b71 100644 --- a/src/lighthouse.c +++ b/src/lighthouse.c @@ -14,9 +14,9 @@ #include #include -static attrib_type at_lighthouse = { +attrib_type at_lighthouse = { "lighthouse" - /* Rest ist NULL; temporres, nicht alterndes Attribut */ + /* Rest ist NULL; tempor�res, nicht alterndes Attribut */ }; /* update_lighthouse: call this function whenever the size of a lighthouse changes @@ -26,36 +26,37 @@ static attrib_type at_lighthouse = { */ void update_lighthouse(building * lh) { - if (lh->size>0 && is_building_type(lh->type, "lighthouse")) { + if (is_building_type(lh->type, "lighthouse")) { region *r = lh->region; - int d = (int)log10(lh->size) + 1; - int x; r->flags |= RF_LIGHTHOUSE; + if (lh->size > 0) { + int d = (int)log10(lh->size) + 1; + int x; + for (x = -d; x <= d; ++x) { + int y; + for (y = -d; y <= d; ++y) { + attrib *a; + region *r2; + int px = r->x + x, py = r->y + y; - for (x = -d; x <= d; ++x) { - int y; - for (y = -d; y <= d; ++y) { - attrib *a; - region *r2; - int px = r->x + x, py = r->y + y; - - pnormalize(&px, &py, rplane(r)); - r2 = findregion(px, py); - if (!r2 || !fval(r2->terrain, SEA_REGION)) - continue; - if (distance(r, r2) > d) - continue; - a = a_find(r2->attribs, &at_lighthouse); - while (a && a->type == &at_lighthouse) { - building *b = (building *)a->data.v; - if (b == lh) - break; - a = a->next; - } - if (!a) { - a = a_add(&r2->attribs, a_new(&at_lighthouse)); - a->data.v = (void *)lh; + pnormalize(&px, &py, rplane(r)); + r2 = findregion(px, py); + if (!r2 || !fval(r2->terrain, SEA_REGION)) + continue; + if (distance(r, r2) > d) + continue; + a = a_find(r2->attribs, &at_lighthouse); + while (a && a->type == &at_lighthouse) { + building *b = (building *)a->data.v; + if (b == lh) + break; + a = a->next; + } + if (!a) { + a = a_add(&r2->attribs, a_new(&at_lighthouse)); + a->data.v = (void *)lh; + } } } } @@ -71,18 +72,19 @@ int lighthouse_range(const building * b, const faction * f) if (skill_enabled(SK_PERCEPTION)) { region *r = b->region; int c = 0; - unit *u; + int cap = buildingcapacity(b); + unit *u, *uown = building_owner(b); + for (u = r->units; u; u = u->next) { - if (u->building == b || u == building_owner(b)) { - if (u->building == b) { - c += u->number; - } - if (c > buildingcapacity(b)) + if (u->building == b || u == uown) { + c += u->number; + if (c > cap) { break; - if (f == NULL || u->faction == f) { + } + else if (f == NULL || u->faction == f) { int sk = effskill(u, SK_PERCEPTION, 0) / 3; - d = _max(d, sk); - d = _min(maxd, d); + d = MAX(d, sk); + d = MIN(maxd, d); if (d == maxd) break; } @@ -125,7 +127,7 @@ bool check_leuchtturm(region * r, faction * f) c += u->number; if (c > buildingcapacity(b)) break; - if (f == NULL || u->faction == f) { + if (u->faction == f) { if (!d) d = distance(r, r2); if (maxd < d) diff --git a/src/lighthouse.h b/src/lighthouse.h index b31c520cb..f2974ddf1 100644 --- a/src/lighthouse.h +++ b/src/lighthouse.h @@ -19,6 +19,8 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #ifndef LIGHTHOUSE_H #define LIGHTHOUSE_H +#include + #ifdef __cplusplus extern "C" { #endif @@ -27,6 +29,9 @@ extern "C" { struct faction; struct region; struct building; + struct attrib; + + extern struct attrib_type at_lighthouse; /* leuchtturm */ bool check_leuchtturm(struct region *r, struct faction *f); void update_lighthouse(struct building *lh); diff --git a/src/lighthouse.test.c b/src/lighthouse.test.c new file mode 100644 index 000000000..e06941bc1 --- /dev/null +++ b/src/lighthouse.test.c @@ -0,0 +1,100 @@ +#include + +#include "lighthouse.h" + +#include +#include +#include +#include +#include +#include +#include + + +#include +#include "tests.h" + +static void test_lighthouse_range(CuTest * tc) +{ + unit *u1, *u2; + region *r; + building *b; + + test_setup(); + r = test_create_region(0, 0, 0); + test_create_region(1, 0, 0); + u1 = test_create_unit(test_create_faction(0), r); + u2 = test_create_unit(test_create_faction(0), r); + b = test_create_building(r, test_create_buildingtype("lighthouse")); + CuAssertIntEquals(tc, 0, lighthouse_range(b, NULL)); + CuAssertIntEquals(tc, 0, lighthouse_range(b, u1->faction)); + b->size = 10; + CuAssertIntEquals(tc, 0, lighthouse_range(b, NULL)); + u1->building = b; + u2->building = b; + u1->number = 10; + set_level(u1, SK_PERCEPTION, 3); + set_level(u2, SK_PERCEPTION, 3); + CuAssertIntEquals(tc, 0, lighthouse_range(b, NULL)); + b->flags |= BLD_MAINTAINED; + CuAssertIntEquals(tc, 1, lighthouse_range(b, NULL)); + set_level(u1, SK_PERCEPTION, 6); + CuAssertIntEquals(tc, 2, lighthouse_range(b, u1->faction)); + CuAssertIntEquals(tc, 0, lighthouse_range(b, u2->faction)); + b->size = 100; + update_lighthouse(b); + CuAssertIntEquals(tc, 2, lighthouse_range(b, NULL)); + set_level(u1, SK_PERCEPTION, 9); + CuAssertIntEquals(tc, 3, lighthouse_range(b, NULL)); + CuAssertIntEquals(tc, 3, lighthouse_range(b, u1->faction)); + CuAssertIntEquals(tc, 1, lighthouse_range(b, u2->faction)); + CuAssertIntEquals(tc, 0, lighthouse_range(b, test_create_faction(0))); + test_cleanup(); +} + +static void test_lighthouse_update(CuTest * tc) +{ + region *r1, *r2, *r3; + building *b; + const struct terrain_type *t_ocean, *t_plain; + + test_setup(); + t_ocean = test_create_terrain("ocean", SEA_REGION); + t_plain = test_create_terrain("plain", LAND_REGION); + r1 = test_create_region(0, 0, t_plain); + r2 = test_create_region(1, 0, t_ocean); + r3 = test_create_region(2, 0, t_ocean); + b = test_create_building(r1, test_create_buildingtype("lighthouse")); + CuAssertIntEquals(tc, RF_LIGHTHOUSE, r1->flags&RF_LIGHTHOUSE); + CuAssertPtrEquals(tc, NULL, r1->attribs); + CuAssertPtrEquals(tc, NULL, r2->attribs); + CuAssertPtrEquals(tc, NULL, r3->attribs); + + r1->flags = 0; + b->size = 1; + update_lighthouse(b); + CuAssertIntEquals(tc, RF_LIGHTHOUSE, r1->flags&RF_LIGHTHOUSE); + CuAssertPtrNotNull(tc, r2->attribs); + CuAssertPtrEquals(tc, (void *)&at_lighthouse, (void *)r2->attribs->type); + CuAssertPtrEquals(tc, NULL, r1->attribs); + CuAssertPtrEquals(tc, NULL, r3->attribs); + + a_removeall(&r2->attribs, NULL); + r1->flags = 0; + b->size = 10; + update_lighthouse(b); + CuAssertIntEquals(tc, RF_LIGHTHOUSE, r1->flags&RF_LIGHTHOUSE); + CuAssertPtrNotNull(tc, r2->attribs); + CuAssertPtrEquals(tc, (void *)&at_lighthouse, (void *)r2->attribs->type); + CuAssertPtrNotNull(tc, r3->attribs); + CuAssertPtrEquals(tc, (void *)&at_lighthouse, (void *)r3->attribs->type); + test_cleanup(); +} + +CuSuite *get_lighthouse_suite(void) +{ + CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_lighthouse_range); + SUITE_ADD_TEST(suite, test_lighthouse_update); + return suite; +} diff --git a/src/listbox.c b/src/listbox.c index 3686cbba1..057240fad 100644 --- a/src/listbox.c +++ b/src/listbox.c @@ -27,7 +27,7 @@ insert_selection(list_selection ** p_sel, list_selection * prev, const char *str, void *payload) { list_selection *sel = calloc(sizeof(list_selection), 1); - sel->str = _strdup(str); + sel->str = strdup(str); sel->data = payload; if (*p_sel) { list_selection *s; @@ -88,7 +88,6 @@ list_selection *do_selection(list_selection * sel, const char *title, width = (int)strlen(s->str); } ++height; - log_debug("s %s w %d h %d\n", s->str, width, height); } if (height == 0 || width == 0) return 0; @@ -97,8 +96,6 @@ list_selection *do_selection(list_selection * sel, const char *title, if (height + 2 > SY) height = SY - 2; - log_debug("w %d h %d\n", width, height); - wn = newwin(height + 2, width + 4, (SY - height - 2) / 2, (SX - width - 4) / 2); diff --git a/src/magic.c b/src/magic.c index 1c4ca2adb..de1336d66 100644 --- a/src/magic.c +++ b/src/magic.c @@ -1,4 +1,4 @@ -/* +/* Copyright (c) 1998-2014, Enno Rehling Katja Zedel #include #include -#include #include #include #include @@ -59,7 +58,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include +#include #include #include #include @@ -119,7 +118,7 @@ static double MagicPower(double force) if (force > 0) { const char *str = config_get("magic.power"); double value = str ? atof(str) : 1.0; - return _max(value * force, 1.0f); + return MAX(value * force, 1.0f); } return 0; } @@ -147,7 +146,7 @@ static void a_writeicastle(const attrib * a, const void *owner, struct storage *store) { icastle_data *data = (icastle_data *)a->data.v; - unused_arg(owner); + UNUSED_ARG(owner); WRITE_TOK(store, data->type->_name); WRITE_INT(store, data->time); } @@ -174,7 +173,7 @@ static void a_initicastle(struct attrib *a) a->data.v = calloc(sizeof(icastle_data), 1); } -static void a_finalizeicastle(struct attrib *a) +static void a_finalizeicastle(struct attrib *a) /*-V524 */ { free(a->data.v); } @@ -225,10 +224,14 @@ static void free_mage(attrib * a) bool FactionSpells(void) { - return config_get_int("rules.magic.factionlist", 0) != 0; + static int config, rule; + if (config_changed(&config)) { + rule = config_get_int("rules.magic.factionlist", 0); + } + return rule != 0; } -void read_spells(struct quicklist **slistp, magic_t mtype, +void read_spells(struct selist **slistp, magic_t mtype, struct storage *store) { for (;;) { @@ -302,13 +305,13 @@ static int read_mage(attrib * a, void *owner, struct gamedata *data) return AT_READ_OK; } -void write_spells(struct quicklist *slist, struct storage *store) +void write_spells(struct selist *slist, struct storage *store) { - quicklist *ql; + selist *ql; int qi; - for (ql = slist, qi = 0; ql; ql_advance(&ql, &qi, 1)) { - spell *sp = (spell *)ql_get(ql, qi); + for (ql = slist, qi = 0; ql; selist_advance(&ql, &qi, 1)) { + spell *sp = (spell *)selist_get(ql, qi); WRITE_TOK(store, sp->sname); } WRITE_TOK(store, "end"); @@ -344,7 +347,7 @@ attrib_type at_mage = { bool is_mage(const unit * u) { - return i2b(get_mage(u) != NULL); + return get_mage(u) != NULL; } sc_mage *get_mage(const unit * u) @@ -373,7 +376,7 @@ static int read_seenspell(attrib * a, void *owner, struct gamedata *data) char token[32]; READ_TOK(store, token, sizeof(token)); - i = atoi(token); + i = atoip(token); if (i != 0) { sp = find_spellbyid((unsigned int)i); } @@ -421,13 +424,12 @@ static bool already_seen(const faction * f, const spell * sp) void show_new_spells(faction * f, int level, const spellbook *book) { if (book) { - quicklist *ql = book->spells; + selist *ql = book->spells; int qi; - for (qi = 0; ql; ql_advance(&ql, &qi, 1)) { - spellbook_entry *sbe = (spellbook_entry *)ql_get(ql, qi); + for (qi = 0; ql; selist_advance(&ql, &qi, 1)) { + spellbook_entry *sbe = (spellbook_entry *)selist_get(ql, qi); if (sbe->level <= level) { - if (!already_seen(f, sbe->sp)) { attrib * a = a_new(&at_reportspell); spellbook_entry * entry = (spellbook_entry *)a->data.v; @@ -448,14 +450,14 @@ void pick_random_spells(faction * f, int level, spellbook * book, int num_spells { spellbook_entry *commonspells[MAXSPELLS]; int qi, numspells = 0; - quicklist *ql; + selist *ql; if (level <= f->max_spelllevel) { return; } - for (qi = 0, ql = book->spells; ql; ql_advance(&ql, &qi, 1)) { - spellbook_entry * sbe = (spellbook_entry *)ql_get(ql, qi); + for (qi = 0, ql = book->spells; ql; selist_advance(&ql, &qi, 1)) { + spellbook_entry * sbe = (spellbook_entry *)selist_get(ql, qi); if (sbe->level <= level) { commonspells[numspells++] = sbe; } @@ -473,18 +475,20 @@ void pick_random_spells(faction * f, int level, spellbook * book, int num_spells spellno = rng_int() % maxspell; sbe = commonspells[spellno]; if (sbe->level > f->max_spelllevel) { - // not going to pick it in this round, move it to the end for later + /* not going to pick it in this round, move it to the end for later */ commonspells[spellno] = commonspells[--maxspell]; commonspells[maxspell] = sbe; sbe = 0; } - else if (f->spellbook && spellbook_get(f->spellbook, sbe->sp)) { - // already have this spell, remove it from the list of candidates - commonspells[spellno] = commonspells[--numspells]; - if (maxspell > numspells) { - maxspell = numspells; + else { + if (f->spellbook && spellbook_get(f->spellbook, sbe->sp)) { + /* already have this spell, remove it from the list of candidates */ + commonspells[spellno] = commonspells[--numspells]; + if (maxspell > numspells) { + maxspell = numspells; + } + sbe = 0; } - sbe = 0; } } @@ -540,7 +544,7 @@ int get_combatspelllevel(const unit * u, int nr) assert(nr < MAXCOMBATSPELLS); if (m) { int level = effskill(u, SK_MAGIC, 0); - return _min(m->combatspells[nr].level, level); + return MIN(m->combatspells[nr].level, level); } return -1; } @@ -557,10 +561,6 @@ const spell *get_combatspell(const unit * u, int nr) if (m) { return m->combatspells[nr].sp; } - else if (u_race(u)->precombatspell != NULL) { - return u_race(u)->precombatspell; - } - return NULL; } @@ -676,7 +676,7 @@ int change_spellpoints(unit * u, int mp) } /* verhindere negative Magiepunkte */ - sp = _max(m->spellpoints + mp, 0); + sp = MAX(m->spellpoints + mp, 0); m->spellpoints = sp; return sp; @@ -712,7 +712,7 @@ static int use_item_aura(const region * r, const unit * u) int sk, n; sk = effskill(u, SK_MAGIC, r); - n = (int)(sk * sk * u_race(u)->maxaura / 4); + n = (int)(sk * sk * rc_maxaura(u_race(u)) / 4); return n; } @@ -720,13 +720,13 @@ static int use_item_aura(const region * r, const unit * u) int max_spellpoints(const region * r, const unit * u) { int sk; - double n, msp; + double n, msp = 0; double potenz = 2.1; double divisor = 1.2; const struct resource_type *rtype; sk = effskill(u, SK_MAGIC, r); - msp = u_race(u)->maxaura * (pow(sk, potenz) / divisor + 1) + get_spchange(u); + msp = rc_maxaura(u_race(u)) * (pow(sk, potenz) / divisor + 1) + get_spchange(u); rtype = rt_find("aurafocus"); if (rtype && i_get(u->items, rtype->itype) > 0) { @@ -736,7 +736,7 @@ int max_spellpoints(const region * r, const unit * u) if (n > 0) { msp = (msp * n) / 100; } - return _max((int)msp, 0); + return MAX((int)msp, 0); } int change_maxspellpoints(unit * u, int csp) @@ -771,7 +771,7 @@ int countspells(unit * u, int step) count = m->spellcount + step; /* negative Werte abfangen. */ - m->spellcount = _max(0, count); + m->spellcount = MAX(0, count); return m->spellcount; } @@ -864,7 +864,7 @@ int eff_spelllevel(unit * u, const spell * sp, int cast_level, int range) } else if (sp->components[k].cost == SPC_LEVEL) { costtyp = SPC_LEVEL; - cast_level = _min(cast_level, maxlevel); + cast_level = MIN(cast_level, maxlevel); /* bei Typ Linear müssen die Kosten in Höhe der Stufe vorhanden * sein, ansonsten schlägt der Spruch fehl */ } @@ -882,7 +882,7 @@ int eff_spelllevel(unit * u, const spell * sp, int cast_level, int range) if (sb) { spellbook_entry * sbe = spellbook_get(sb, sp); if (sbe) { - return _min(cast_level, sbe->level); + return MIN(cast_level, sbe->level); } } log_error("spell %s is not in the spellbook for %s\n", sp->sname, unitname(u)); @@ -1027,9 +1027,8 @@ cancast(unit * u, const spell * sp, int level, int range, struct order * ord) double spellpower(region * r, unit * u, const spell * sp, int cast_level, struct order *ord) { - curse *c; double force = cast_level; - int elf_power; + static int elf_power, config; const struct resource_type *rtype; if (sp == NULL) { @@ -1042,55 +1041,66 @@ spellpower(region * r, unit * u, const spell * sp, int cast_level, struct order if (btype && btype->flags & BTF_MAGIC) ++force; } - elf_power = config_get_int("rules.magic.elfpower", 0); - - if (elf_power && u_race(u) == get_race(RC_ELF) && r_isforest(r)) { - ++force; + if (config_changed(&config)) { + elf_power = config_get_int("rules.magic.elfpower", 0); + } + if (elf_power) { + static int rc_cache; + static const race *rc_elf; + if (rc_changed(&rc_cache)) { + rc_elf = get_race(RC_ELF); + } + if (u_race(u) == rc_elf && r_isforest(r)) { + ++force; + } } rtype = rt_find("rop"); if (rtype && i_get(u->items, rtype->itype) > 0) { ++force; } - /* Antimagie in der Zielregion */ - c = get_curse(r->attribs, ct_find("antimagiczone")); - if (curse_active(c)) { - unit *mage = c->magician; - force -= curse_geteffect(c); - curse_changevigour(&r->attribs, c, -cast_level); - cmistake(u, ord, 185, MSG_MAGIC); - if (mage != NULL && mage->faction != NULL) { - if (force > 0) { - ADDMSG(&mage->faction->msgs, msg_message("reduce_spell", - "self mage region", mage, u, r)); + if (r->attribs) { + curse *c; + + /* Antimagie in der Zielregion */ + c = get_curse(r->attribs, ct_find("antimagiczone")); + if (curse_active(c)) { + unit *mage = c->magician; + force -= curse_geteffect(c); + curse_changevigour(&r->attribs, c, -cast_level); + cmistake(u, ord, 185, MSG_MAGIC); + if (mage != NULL && mage->faction != NULL) { + if (force > 0) { + ADDMSG(&mage->faction->msgs, msg_message("reduce_spell", + "self mage region", mage, u, r)); + } + else { + ADDMSG(&mage->faction->msgs, msg_message("block_spell", + "self mage region", mage, u, r)); + } } - else { - ADDMSG(&mage->faction->msgs, msg_message("block_spell", - "self mage region", mage, u, r)); + } + + /* Patzerfluch-Effekt: */ + c = get_curse(r->attribs, ct_find("fumble")); + if (curse_active(c)) { + unit *mage = c->magician; + force -= curse_geteffect(c); + curse_changevigour(&u->attribs, c, -1); + cmistake(u, ord, 185, MSG_MAGIC); + if (mage != NULL && mage->faction != NULL) { + if (force > 0) { + ADDMSG(&mage->faction->msgs, msg_message("reduce_spell", + "self mage region", mage, u, r)); + } + else { + ADDMSG(&mage->faction->msgs, msg_message("block_spell", + "self mage region", mage, u, r)); + } } } } - - /* Patzerfluch-Effekt: */ - c = get_curse(r->attribs, ct_find("fumble")); - if (curse_active(c)) { - unit *mage = c->magician; - force -= curse_geteffect(c); - curse_changevigour(&u->attribs, c, -1); - cmistake(u, ord, 185, MSG_MAGIC); - if (mage != NULL && mage->faction != NULL) { - if (force > 0) { - ADDMSG(&mage->faction->msgs, msg_message("reduce_spell", - "self mage region", mage, u, r)); - } - else { - ADDMSG(&mage->faction->msgs, msg_message("block_spell", - "self mage region", mage, u, r)); - } - } - } - - return _max(force, 0); + return MAX(force, 0); } /* ------------------------------------------------------------- */ @@ -1125,27 +1135,29 @@ static int farcasting(unit * magician, region * r) /* allgemeine Magieresistenz einer Einheit, * reduziert magischen Schaden */ -double magic_resistance(unit * target) +variant magic_resistance(unit * target) { attrib *a; curse *c; const curse_type * ct_goodresist = 0, *ct_badresist = 0; const resource_type *rtype; const race *rc = u_race(target); - double probability = rc->magres; + variant v, prob = rc_magres(rc); const plane *pl = rplane(target->region); if (rc == get_race(RC_HIRNTOETER) && !pl) { - probability /= 2; + prob.sa[1] *= 2; } assert(target->number > 0); /* Magier haben einen Resistenzbonus vom Magietalent * 5% */ - probability += effskill(target, SK_MAGIC, 0) * 0.05; + prob = frac_add(prob, frac_make(effskill(target, SK_MAGIC, 0), 20)); /* Auswirkungen von Zaubern auf der Einheit */ c = get_curse(target->attribs, ct_find("magicresistance")); if (c) { - probability += 0.01 * curse_geteffect(c) * get_cursedmen(target, c); + /* TODO: legacy. magicresistance-effect is an integer-percentage stored in a double */ + int effect = curse_geteffect_int(c) * get_cursedmen(target, c); + prob = frac_add(prob, frac_make(effect, 100)); } /* Unicorn +10 */ @@ -1153,7 +1165,7 @@ double magic_resistance(unit * target) if (rtype) { int n = i_get(target->items, rtype->itype); if (n) { - probability += n * 0.1 / target->number; + prob = frac_add(prob, frac_make(n, target->number * 10)); } } @@ -1170,13 +1182,15 @@ double magic_resistance(unit * target) if (mage != NULL) { if (ct_goodresist && c->type == ct_goodresist) { if (alliedunit(mage, target->faction, HELP_GUARD)) { - probability += curse_geteffect(c) * 0.01; + /* TODO: legacy. magicresistance-effect is an integer-percentage stored in a double */ + prob = frac_add(prob, frac_make(curse_geteffect_int(c), 100)); ct_goodresist = 0; /* only one effect per region */ } } else if (ct_badresist && c->type == ct_badresist) { if (!alliedunit(mage, target->faction, HELP_GUARD)) { - probability -= curse_geteffect(c) * 0.01; + /* TODO: legacy. magicresistance-effect is an integer-percentage stored in a double */ + prob = frac_sub(prob, frac_make(curse_geteffect_int(c), 100)); ct_badresist = 0; /* only one effect per region */ } } @@ -1192,11 +1206,18 @@ double magic_resistance(unit * target) const struct building_type *btype = building_is_active(b) ? b->type : NULL; /* gesegneter Steinkreis gibt 30% dazu */ - if (btype) - probability += btype->magresbonus * 0.01; + if (btype) { + /* TODO: legacy. building-bonus is an integer-percentage */ + prob = frac_add(prob, frac_make(btype->magresbonus, 100)); + } } - return (probability<0.9) ? probability : 0.9; + /* resistance must never be more than 90% */ + v = frac_make(9, 10); + if (frac_sign(frac_sub(prob, v)) > 0) { /* prob < 90% */ + return v; /* at most 90% */ + } + return prob; } /* ------------------------------------------------------------- */ @@ -1213,12 +1234,12 @@ double magic_resistance(unit * target) bool target_resists_magic(unit * magician, void *obj, int objtyp, int t_bonus) { - double probability = 0.0; + variant v02p, v98p, prob = frac_make(t_bonus, 100); + attrib *a = NULL; - if (magician == NULL) - return true; - if (obj == NULL) + if (magician == NULL || obj == NULL) { return true; + } switch (objtyp) { case TYP_UNIT: @@ -1227,6 +1248,9 @@ target_resists_magic(unit * magician, void *obj, int objtyp, int t_bonus) skill *sv; unit *u = (unit *)obj; + if (u_race(u)==get_race(RC_SPELL)) { + return true; + } at = effskill(magician, SK_MAGIC, 0); for (sv = u->skills; sv != u->skills + u->skill_size; ++sv) { @@ -1235,43 +1259,56 @@ target_resists_magic(unit * magician, void *obj, int objtyp, int t_bonus) pa = sk; } - /* Contest */ - probability = 0.05 * (10 + pa - at); - - probability += magic_resistance((unit *)obj); + /* Contest, probability = 0.05 * (10 + pa - at); */ + prob = frac_add(prob, frac_make(10 + pa - at, 20)); + prob = frac_add(prob, magic_resistance((unit *)obj)); break; } case TYP_REGION: - /* Bonus durch Zauber */ + /* Bonus durch Zauber probability += - 0.01 * get_curseeffect(((region *)obj)->attribs, C_RESIST_MAGIC, 0); + 0.01 * get_curseeffect(((region *)obj)->attribs, C_RESIST_MAGIC, 0); */ + a = ((region *)obj)->attribs; break; case TYP_BUILDING: - /* Bonus durch Zauber */ + /* Bonus durch Zauber probability += - 0.01 * get_curseeffect(((building *)obj)->attribs, C_RESIST_MAGIC, 0); - - /* Bonus durch Typ */ - probability += 0.01 * ((building *)obj)->type->magres; - + 0.01 * get_curseeffect(((building *)obj)->attribs, C_RESIST_MAGIC, 0); */ + a = ((building *)obj)->attribs; + /* Bonus durch Typ + probability += 0.01 * ((building *)obj)->type->magres; */ + prob = frac_add(prob, ((building *)obj)->type->magres); break; case TYP_SHIP: /* Bonus durch Zauber */ - probability += - 0.01 * get_curseeffect(((ship *)obj)->attribs, C_RESIST_MAGIC, 0); + a = ((ship *)obj)->attribs; break; } - probability = _max(0.02, probability + t_bonus * 0.01); - probability = _min(0.98, probability); + if (a) { + const struct curse_type *ct_resist = ct_find(oldcursename(C_RESIST_MAGIC)); + curse * c = get_curse(a, ct_resist); + int effect = curse_geteffect_int(c); + prob = frac_add(prob, frac_make(effect, 100)); + } + + /* ignore results < 2% and > 98% */ + v02p = frac_make(1, 50); + v98p = frac_make(49, 50); + if (frac_sign(frac_sub(prob, v02p)) < 0) { + prob = v02p; + } + else if (frac_sign(frac_sub(prob, v98p)) > 0) { + prob = v98p; + } /* gibt true, wenn die Zufallszahl kleiner als die chance ist und * false, wenn sie gleich oder größer ist, dh je größer die * Magieresistenz (chance) desto eher gibt die Funktion true zurück */ - return chance(probability); + return rng_int() % prob.sa[1] < prob.sa[0]; } /* ------------------------------------------------------------- */ @@ -1363,7 +1400,9 @@ static void do_fumble(castorder * co) int level = co->level; int duration; double effect; - + static const race *rc_toad; + static int rc_cache; + ADDMSG(&u->faction->msgs, msg_message("patzer", "unit region spell", u, r, sp)); switch (rng_int() % 10) { @@ -1394,7 +1433,10 @@ static void do_fumble(castorder * co) duration = rng_int() % level / 2; if (duration < 2) duration = 2; add_trigger(&u->attribs, "timer", trigger_timeout(duration, trestore)); - u_setrace(u, get_race(RC_TOAD)); + if (rc_changed(&rc_cache)) { + rc_toad = get_race(RC_TOAD); + } + u_setrace(u, rc_toad); u->irace = NULL; ADDMSG(&r->msgs, msg_message("patzer6", "unit region spell", u, r, sp)); break; @@ -1403,7 +1445,7 @@ static void do_fumble(castorder * co) case 2: /* temporary skill loss */ - duration = _max(rng_int() % level / 2, 2); + duration = MAX(rng_int() % level / 2, 2); effect = level / -2.0; c = create_curse(u, &u->attribs, ct_find("skillmod"), level, duration, effect, 1); @@ -1511,14 +1553,14 @@ void regenerate_aura(void) reg_aura -= regen; if (chance(reg_aura)) ++regen; - regen = _max(1, regen); - regen = _min((auramax - aura), regen); + regen = MAX(1, regen); + regen = MIN((auramax - aura), regen); aura += regen; ADDMSG(&u->faction->msgs, msg_message("regenaura", "unit region amount", u, r, regen)); } - set_spellpoints(u, _min(aura, auramax)); + set_spellpoints(u, MIN(aura, auramax)); } } } @@ -1835,7 +1877,7 @@ static int addparam_string(const char *const param[], spllprm ** spobjp) spobj->flag = 0; spobj->typ = SPP_STRING; - spobj->data.xs = _strdup(param[0]); + spobj->data.xs = strdup(param[0]); return 1; } @@ -2149,7 +2191,7 @@ typedef struct familiar_data { bool is_familiar(const unit * u) { attrib *a = a_find(u->attribs, &at_familiarmage); - return i2b(a != NULL); + return a != NULL; } static void @@ -2410,7 +2452,7 @@ static int age_unit(attrib * a, void *owner) /* if unit is gone or dead, remove the attribute */ { unit *u = (unit *)a->data.v; - unused_arg(owner); + UNUSED_ARG(owner); return (u != NULL && u->number > 0) ? AT_AGE_KEEP : AT_AGE_REMOVE; } @@ -2549,7 +2591,7 @@ static castorder *cast_cmd(unit * u, order * ord) /* für Syntax ' STUFE x REGION y z ' */ if (param == P_LEVEL) { int p = getint(); - level = _min(p, level); + level = MIN(p, level); if (level < 1) { /* Fehler "Das macht wenig Sinn" */ syntax_error(u, ord); @@ -2579,7 +2621,7 @@ static castorder *cast_cmd(unit * u, order * ord) * hier nach REGION nochmal auf STUFE prüfen */ if (param == P_LEVEL) { int p = getint(); - level = _min(p, level); + level = MIN(p, level); if (level < 1) { /* Fehler "Das macht wenig Sinn" */ syntax_error(u, ord); @@ -2710,7 +2752,7 @@ static castorder *cast_cmd(unit * u, order * ord) * löschen, zaubern kann er noch */ range *= 2; set_order(&caster->thisorder, NULL); - level = _min(level, effskill(caster, SK_MAGIC, 0) / 2); + level = MIN(level, effskill(caster, SK_MAGIC, 0) / 2); } } /* Weitere Argumente zusammenbasteln */ @@ -2733,7 +2775,7 @@ static castorder *cast_cmd(unit * u, order * ord) break; } } - params[p++] = _strdup(s); + params[p++] = strdup(s); } params[p] = 0; args = @@ -2775,6 +2817,8 @@ void magic(void) int rank; castorder *co; spellrank spellranks[MAX_SPELLRANK]; + const race *rc_spell = get_race(RC_SPELL); + const race *rc_insect = get_race(RC_INSECT); memset(spellranks, 0, sizeof(spellranks)); @@ -2783,10 +2827,10 @@ void magic(void) for (u = r->units; u; u = u->next) { order *ord; - if (u->number <= 0 || u_race(u) == get_race(RC_SPELL)) + if (u->number <= 0 || u_race(u) == rc_spell) continue; - if (u_race(u) == get_race(RC_INSECT) && r_insectstalled(r) && + if (u_race(u) == rc_insect && r_insectstalled(r) && !is_cursed(u->attribs, C_KAELTESCHUTZ, 0)) continue; @@ -2925,6 +2969,7 @@ const char *spell_info(const spell * sp, const struct locale *lang) return LOC(lang, mkname("spellinfo", sp->sname)); } +/* TODO: should take the name, not the spell (spellref optimizations) */ const char *spell_name(const spell * sp, const struct locale *lang) { return LOC(lang, mkname("spell", sp->sname)); @@ -2936,23 +2981,22 @@ const char *curse_name(const curse_type * ctype, const struct locale *lang) } static void select_spellbook(void **tokens, spellbook *sb, const struct locale * lang) { - quicklist * ql; + selist * ql; int qi; assert(sb); assert(lang); - for (qi = 0, ql = sb->spells; ql; ql_advance(&ql, &qi, 1)) { - spellbook_entry *sbe = (spellbook_entry *)ql_get(ql, qi); - spell *sp = sbe->sp; + for (qi = 0, ql = sb->spells; ql; selist_advance(&ql, &qi, 1)) { + spellbook_entry *sbe = (spellbook_entry *)selist_get(ql, qi); - const char *n = spell_name(sp, lang); + const char *n = spell_name(sbe->sp, lang); if (!n) { - log_error("no translation in locale %s for spell %s\n", locale_name(lang), sp->sname); + log_error("no translation in locale %s for spell %s\n", locale_name(lang), sbe->sp->sname); } else { variant token; - token.v = sp; + token.v = sbe->sp; addtoken((struct tnode **)tokens, n, token); } } @@ -2967,7 +3011,7 @@ spell *unit_getspell(struct unit *u, const char *name, const struct locale * lan if (sb) { select_spellbook(&tokens, sb, lang); } -#if 0 // TODO: some familiars can cast spells from the mage's spellbook? +#if 0 /* TODO: some familiars can cast spells from the mage's spellbook? */ u = get_familiar_mage(u); if (u) { sb = unit_get_spellbook(u); diff --git a/src/magic.h b/src/magic.h index 257ba11c4..37fe33eae 100644 --- a/src/magic.h +++ b/src/magic.h @@ -20,6 +20,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #define H_KRNL_MAGIC #include +#include #ifdef __cplusplus extern "C" { @@ -58,7 +59,7 @@ extern "C" { sppobj_t typ; int flag; union { - struct region *r; //TODO: V117 http://www.viva64.com/en/V117 Memsize type is used in the union. + struct region *r; struct unit *u; struct building *b; struct ship *sh; @@ -184,12 +185,6 @@ extern "C" { SPC_LINEAR /* Komponenten pro Level und mssen vorhanden sein */ }; - enum { - RS_DUMMY, - RS_FARVISION, - MAX_REGIONSPELLS - }; - /* ------------------------------------------------------------- */ /* Prototypen */ @@ -320,7 +315,7 @@ extern "C" { bool is_magic_resistant(struct unit *magician, struct unit *target, int resist_bonus); /* Mapperfunktion fr target_resists_magic() vom Typ struct unit. */ - extern double magic_resistance(struct unit *target); + variant magic_resistance(struct unit *target); /* gibt die Chance an, mit der einem Zauber widerstanden wird. Je * grer, desto resistenter ist da Opfer */ bool target_resists_magic(struct unit *magician, void *obj, int objtyp, @@ -354,8 +349,8 @@ extern "C" { struct order *ord, const struct spllprm *spobj); bool FactionSpells(void); - void write_spells(struct quicklist *slist, struct storage *store); - void read_spells(struct quicklist **slistp, magic_t mtype, + void write_spells(struct selist *slist, struct storage *store); + void read_spells(struct selist **slistp, magic_t mtype, struct storage *store); struct spellbook * get_spellbook(const char * name); diff --git a/src/magic.test.c b/src/magic.test.c index 4ba867b96..a3a199e42 100644 --- a/src/magic.test.c +++ b/src/magic.test.c @@ -2,6 +2,7 @@ #include "magic.h" #include "teleport.h" +#include "give.h" #include #include @@ -13,7 +14,7 @@ #include #include #include -#include +#include #include #include @@ -41,7 +42,7 @@ void test_updatespells(CuTest * tc) CuAssertPtrEquals(tc, 0, f->spellbook); pick_random_spells(f, 1, book, 1); CuAssertPtrNotNull(tc, f->spellbook); - CuAssertIntEquals(tc, 1, ql_length(f->spellbook->spells)); + CuAssertIntEquals(tc, 1, selist_length(f->spellbook->spells)); CuAssertPtrNotNull(tc, spellbook_get(f->spellbook, sp)); free_spellbook(book); test_cleanup(); @@ -86,8 +87,8 @@ void test_pay_spell(CuTest * tc) int level; test_setup(); - test_create_world(); - r = findregion(0, 0); + init_resources(); + r = test_create_region(0, 0, NULL); f = test_create_faction(0); u = test_create_unit(f, r); CuAssertPtrNotNull(tc, u); @@ -120,8 +121,8 @@ void test_pay_spell_failure(CuTest * tc) int level; test_setup(); - test_create_world(); - r = findregion(0, 0); + init_resources(); + r = test_create_region(0, 0, NULL); f = test_create_faction(0); u = test_create_unit(f, r); CuAssertPtrNotNull(tc, u); @@ -158,8 +159,7 @@ void test_getspell_unit(CuTest * tc) struct locale * lang; test_setup(); - test_create_world(); - r = findregion(0, 0); + r = test_create_region(0, 0, 0); f = test_create_faction(0); u = test_create_unit(f, r); create_mage(u, M_GRAY); @@ -167,7 +167,7 @@ void test_getspell_unit(CuTest * tc) set_level(u, SK_MAGIC, 1); - lang = get_locale("de"); + lang = test_create_locale(); sp = create_spell("testspell", 0); locale_setstring(lang, mkname("spell", sp->sname), "Herp-a-derp"); @@ -187,8 +187,7 @@ void test_getspell_faction(CuTest * tc) struct locale * lang; test_setup(); - test_create_world(); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); f = test_create_faction(0); f->magiegebiet = M_TYBIED; u = test_create_unit(f, r); @@ -197,7 +196,7 @@ void test_getspell_faction(CuTest * tc) set_level(u, SK_MAGIC, 1); - lang = get_locale("de"); + lang = test_create_locale(); sp = create_spell("testspell", 0); locale_setstring(lang, mkname("spell", sp->sname), "Herp-a-derp"); @@ -219,8 +218,7 @@ void test_getspell_school(CuTest * tc) struct spellbook * book; test_setup(); - test_create_world(); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); f = test_create_faction(0); f->magiegebiet = M_TYBIED; u = test_create_unit(f, r); @@ -228,7 +226,7 @@ void test_getspell_school(CuTest * tc) enable_skill(SK_MAGIC, true); set_level(u, SK_MAGIC, 1); - lang = get_locale("de"); + lang = test_create_locale(); sp = create_spell("testspell", 0); locale_setstring(lang, mkname("spell", sp->sname), "Herp-a-derp"); @@ -250,8 +248,7 @@ void test_set_pre_combatspell(CuTest * tc) const int index = 0; test_setup(); - test_create_world(); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); f = test_create_faction(0); f->magiegebiet = M_TYBIED; u = test_create_unit(f, r); @@ -283,8 +280,7 @@ void test_set_main_combatspell(CuTest * tc) const int index = 1; test_setup(); - test_create_world(); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); f = test_create_faction(0); f->magiegebiet = M_TYBIED; u = test_create_unit(f, r); @@ -316,8 +312,7 @@ void test_set_post_combatspell(CuTest * tc) const int index = 2; test_setup(); - test_create_world(); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); f = test_create_faction(0); f->magiegebiet = M_TYBIED; u = test_create_unit(f, r); @@ -348,8 +343,7 @@ void test_hasspell(CuTest * tc) struct region * r; test_setup(); - test_create_world(); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); f = test_create_faction(0); f->magiegebiet = M_TYBIED; u = test_create_unit(f, r); @@ -370,10 +364,10 @@ void test_hasspell(CuTest * tc) test_cleanup(); } -static quicklist * casts; +static selist * casts; static int cast_fireball(struct castorder * co) { - ql_push(&casts, co); + selist_push(&casts, co); return 0; } @@ -401,8 +395,8 @@ void test_multi_cast(CuTest *tc) { CuAssertPtrEquals(tc, casts, 0); magic(); CuAssertPtrNotNull(tc, casts); - CuAssertIntEquals(tc, 2, ql_length(casts)); - ql_free(casts); + CuAssertIntEquals(tc, 2, selist_length(casts)); + selist_free(casts); test_cleanup(); } @@ -413,15 +407,56 @@ static void test_magic_resistance(CuTest *tc) { test_setup(); rc = test_create_race("human"); u = test_create_unit(test_create_faction(rc), test_create_region(0, 0, 0)); - CuAssertDblEquals(tc, rc->magres, magic_resistance(u), 0.01); - rc->magres = 1.0; - CuAssertDblEquals_Msg(tc, "magic resistance is capped at 0.9", 0.9, magic_resistance(u), 0.01); + CuAssertTrue(tc, frac_equal(rc->magres, magic_resistance(u))); + rc->magres = frac_one; + CuAssert(tc, "magic resistance is capped at 0.9", frac_equal(magic_resistance(u), frac_make(9, 10))); rc = test_create_race("braineater"); - rc->magres = 1.0; + rc->magres = frac_one; u_setrace(u, rc); - CuAssertDblEquals_Msg(tc, "brain eaters outside astral space have 50% magres", 0.5, magic_resistance(u), 0.01); + CuAssert(tc, "brain eaters outside astral space have 50% magres", frac_equal(magic_resistance(u), frac_make(1, 2))); u->region->_plane = get_astralplane(); - CuAssertDblEquals_Msg(tc, "brain eaters in astral space have full magres", 0.9, magic_resistance(u), 0.01); + CuAssert(tc, "brain eaters in astral space have full magres", frac_equal(magic_resistance(u), frac_make(9, 10))); + test_cleanup(); +} + +static void test_max_spellpoints(CuTest *tc) { + unit *u; + race *rc; + + test_setup(); + rc = test_create_race("human"); + u = test_create_unit(test_create_faction(rc), test_create_region(0, 0, 0)); + CuAssertIntEquals(tc, 1, max_spellpoints(u->region, u)); + rc->maxaura = 100; + CuAssertIntEquals(tc, 1, max_spellpoints(u->region, u)); + rc->maxaura = 200; + CuAssertIntEquals(tc, 2, max_spellpoints(u->region, u)); + create_mage(u, M_GRAY); + set_level(u, SK_MAGIC, 1); + CuAssertIntEquals(tc, 3, max_spellpoints(u->region, u)); + set_level(u, SK_MAGIC, 2); + CuAssertIntEquals(tc, 9, max_spellpoints(u->region, u)); + /* permanent aura loss: */ + CuAssertIntEquals(tc, 7, change_maxspellpoints(u, -2)); + CuAssertIntEquals(tc, 7, max_spellpoints(u->region, u)); + test_cleanup(); +} + +static void test_familiar_mage(CuTest *tc) { + unit *um, *uf, *ut; + test_setup(); + um = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); + uf = test_create_unit(um->faction, um->region); + ut = test_create_unit(um->faction, um->region); + set_number(ut, 0); + CuAssertTrue(tc, create_newfamiliar(um, uf)); + CuAssertTrue(tc, is_familiar(uf)); + CuAssertTrue(tc, !is_familiar(um)); + CuAssertPtrEquals(tc, um, get_familiar_mage(uf)); + CuAssertPtrEquals(tc, uf, get_familiar(um)); + + CuAssertPtrEquals(tc, NULL, give_men(1, um, ut, NULL)); + CuAssertPtrEquals(tc, ut, get_familiar_mage(uf)); test_cleanup(); } @@ -441,5 +476,7 @@ CuSuite *get_magic_suite(void) SUITE_ADD_TEST(suite, test_set_post_combatspell); SUITE_ADD_TEST(suite, test_hasspell); SUITE_ADD_TEST(suite, test_magic_resistance); + SUITE_ADD_TEST(suite, test_max_spellpoints); + DISABLE_TEST(suite, test_familiar_mage); return suite; } diff --git a/src/main.c b/src/main.c index d3d2cbe50..dd65ec9e1 100644 --- a/src/main.c +++ b/src/main.c @@ -54,50 +54,52 @@ static void load_inifile(dictionary * d) assert(d); - str = iniparser_getstring(d, "eressea:base", basedir); + str = iniparser_getstring(d, "game:base", basedir); if (str != basedir) { set_basepath(str); } - str = iniparser_getstring(d, "eressea:report", reportdir); + str = iniparser_getstring(d, "game:report", reportdir); if (str != reportdir) { set_reportpath(str); } - str = iniparser_getstring(d, "eressea:data", datadir); + str = iniparser_getstring(d, "game:data", datadir); if (str != datadir) { set_datapath(str); } - lomem = iniparser_getint(d, "eressea:lomem", lomem) ? 1 : 0; + lomem = iniparser_getint(d, "game:lomem", lomem) ? 1 : 0; - str = iniparser_getstring(d, "eressea:encoding", NULL); - if (str && (_strcmpl(str, "utf8") == 0 || _strcmpl(str, "utf-8") == 0)) { - enc_gamedata = ENCODING_UTF8; - } - - verbosity = iniparser_getint(d, "eressea:verbose", 2); - battledebug = iniparser_getint(d, "eressea:debug", battledebug) ? 1 : 0; - - str = iniparser_getstring(d, "eressea:locales", "de,en"); - make_locales(str); - - if (global.inifile) iniparser_freedict(global.inifile); - global.inifile = d; + verbosity = iniparser_getint(d, "game:verbose", 2); } -static void parse_config(const char *filename) +static dictionary *parse_config(const char *filename) { - dictionary *d = iniparser_load(filename); + char path[MAX_PATH]; + dictionary *d; + const char *str, *cfgpath = config_get("config.path"); + + if (cfgpath) { + join_path(cfgpath, filename, path, sizeof(path)); + log_debug("reading from configuration file %s\n", path); + d = iniparser_load(path); + } else { + log_debug("reading from configuration file %s\n", filename); + d = iniparser_load(filename); + } if (d) { load_inifile(d); - log_debug("reading from configuration file %s\n", filename); + config_set_from(d); - memdebug = iniparser_getint(d, "eressea:memcheck", memdebug); + memdebug = iniparser_getint(d, "game:memcheck", memdebug); #ifdef USE_CURSES /* only one value in the [editor] section */ force_color = iniparser_getint(d, "editor:color", force_color); gm_codepage = iniparser_getint(d, "editor:codepage", gm_codepage); #endif } + str = config_get("game.locales"); + make_locales(str ? str : "de,en"); + return d; } static int usage(const char *prog, const char *arg) @@ -166,7 +168,7 @@ static int parse_args(int argc, char **argv, int *exitcode) printf("\n%s PBEM host\n" "Copyright (C) 1996-2005 C. Schlittchen, K. Zedel, E. Rehling, H. Peters.\n\n" "Compilation: " __DATE__ " at " __TIME__ "\nVersion: %s\n\n", - game_name(), ERESSEA_VERSION); + game_name(), eressea_version()); #ifdef USE_CURSES } else if (strcmp(argi + 2, "color") == 0) { @@ -184,6 +186,10 @@ static int parse_args(int argc, char **argv, int *exitcode) else { const char *arg; switch (argi[1]) { + case 'c': + i = get_arg(argc, argv, 2, i, &arg, 0); + config_set("config.path", arg); + break; case 'r': i = get_arg(argc, argv, 2, i, &arg, 0); config_set("config.rules", arg); @@ -217,11 +223,11 @@ static int parse_args(int argc, char **argv, int *exitcode) } } - // open logfile on disk: + /* open logfile on disk: */ log_flags = verbosity_to_flags(log_flags); log_open(logfile, log_flags); - // also log to stderr: + /* also log to stderr: */ log_stderr = verbosity_to_flags(verbosity); if (log_stderr) { log_to_file(log_stderr | LOG_FLUSH | LOG_BRIEF, stderr); @@ -262,27 +268,6 @@ static int setup_signal_handler(void) } #endif -#undef CRTDBG -#ifdef CRTDBG -#include -void init_crtdbg(void) -{ -#if (defined(_MSC_VER)) - int flags = _CrtSetDbgFlag(_CRTDBG_REPORT_FLAG); - if (memdebug == 1) { - flags |= _CRTDBG_CHECK_ALWAYS_DF; /* expensive */ - } else if (memdebug == 2) { - flags = (flags & 0x0000FFFF) | _CRTDBG_CHECK_EVERY_16_DF; - } else if (memdebug == 3) { - flags = (flags & 0x0000FFFF) | _CRTDBG_CHECK_EVERY_128_DF; - } else if (memdebug == 4) { - flags = (flags & 0x0000FFFF) | _CRTDBG_CHECK_EVERY_1024_DF; - } - _CrtSetDbgFlag(flags); -#endif -} -#endif - void locale_init(void) { setlocale(LC_CTYPE, ""); @@ -299,22 +284,19 @@ int main(int argc, char **argv) { int err = 0; lua_State *L; + dictionary *d = 0; setup_signal_handler(); - /* ini file sets defaults for arguments*/ - parse_config(inifile); - if (!global.inifile) { - log_error("could not open ini configuration %s\n", inifile); - } /* parse arguments again, to override ini file */ parse_args(argc, argv, &err); + d = parse_config(inifile); + if (!d) { + log_error("could not open ini configuration %s\n", inifile); + } + locale_init(); -#ifdef CRTDBG - init_crtdbg(); -#endif - - L = lua_init(); + L = lua_init(d); game_init(); bind_monsters(L); err = eressea_run(L, luafile); @@ -325,8 +307,8 @@ int main(int argc, char **argv) game_done(); lua_done(L); log_close(); - if (global.inifile) { - iniparser_freedict(global.inifile); + if (d) { + iniparser_freedict(d); } return 0; } diff --git a/src/market.c b/src/market.c index efcaf0d98..8fd4e3f0d 100644 --- a/src/market.c +++ b/src/market.c @@ -17,7 +17,7 @@ without prior permission by the authors of Eressea. #include #include -#include +#include #include #include @@ -66,28 +66,17 @@ attrib_type at_market = { NULL, NULL, NULL, ATF_UNIQUE }; -static int rc_luxury_trade(const struct race *rc) -{ - if (rc) { - return get_param_int(rc->parameters, "luxury_trade", 1000); - } - return 1000; -} - -static int rc_herb_trade(const struct race *rc) -{ - if (rc) { - return get_param_int(rc->parameters, "herb_trade", 500); - } - return 500; -} - #define MAX_MARKETS 128 #define MIN_PEASANTS 50 /* if there are at least this many peasants, you will get 1 good */ +bool markets_module(void) +{ + return (bool)config_get_int("modules.markets", 0); +} + void do_markets(void) { - quicklist *traders = 0; + selist *traders = 0; unit *markets[MAX_MARKETS]; region *r; for (r = regions; r; r = r->next) { @@ -119,7 +108,7 @@ void do_markets(void) attrib *a = a_find(u->attribs, &at_market); if (a == NULL) { a = a_add(&u->attribs, a_new(&at_market)); - ql_push(&traders, u); + selist_push(&traders, u); } items = (item *)a->data.v; i_change(&items, lux, 1); @@ -133,7 +122,7 @@ void do_markets(void) attrib *a = a_find(u->attribs, &at_market); if (a == NULL) { a = a_add(&u->attribs, a_new(&at_market)); - ql_push(&traders, u); + selist_push(&traders, u); } items = (item *)a->data.v; i_change(&items, herb, 1); @@ -146,10 +135,10 @@ void do_markets(void) } if (traders) { - quicklist *qliter = traders; + selist *qliter = traders; int qli = 0; - for (qli = 0; qliter; ql_advance(&qliter, &qli, 1)) { - unit *u = (unit *)ql_get(qliter, qli); + for (qli = 0; qliter; selist_advance(&qliter, &qli, 1)) { + unit *u = (unit *)selist_get(qliter, qli); attrib *a = a_find(u->attribs, &at_market); item *items = (item *)a->data.v; @@ -171,6 +160,6 @@ void do_markets(void) a_remove(&u->attribs, a); } - ql_free(traders); + selist_free(traders); } } diff --git a/src/market.h b/src/market.h index dd15253ef..8f1d39eb4 100644 --- a/src/market.h +++ b/src/market.h @@ -12,12 +12,20 @@ without prior permission by the authors of Eressea. */ #ifndef H_GC_MARKET #define H_GC_MARKET + +#include + #ifdef __cplusplus extern "C" { #endif struct building; + struct race; - extern void do_markets(void); + bool markets_module(void); + void do_markets(void); + + int rc_luxury_trade(const struct race *rc); + int rc_herb_trade(const struct race *rc); #ifdef __cplusplus } diff --git a/src/market.test.c b/src/market.test.c index 43e070b5e..a631dbcb7 100644 --- a/src/market.test.c +++ b/src/market.test.c @@ -31,9 +31,7 @@ static void test_market_curse(CuTest * tc) luxury_type *lux; building_type *btype; - free_gamedata(); - test_cleanup(); - test_create_world(); + test_setup(); htype = test_create_itemtype("herb"); htype->flags |= ITF_HERB; @@ -46,7 +44,7 @@ static void test_market_curse(CuTest * tc) config_set("rules.region_owners", "1"); btype = (building_type *)calloc(1, sizeof(building_type)); - btype->_name = _strdup("market"); + btype->_name = strdup("market"); bt_register(btype); terrain = get_terrain("plain"); @@ -78,11 +76,26 @@ static void test_market_curse(CuTest * tc) CuAssertIntEquals(tc, 70, i_get(u->items, htype)); CuAssertIntEquals(tc, 35, i_get(u->items, ltype)); + test_cleanup(); +} + +static void test_rc_trade(CuTest *tc) { + race *rc; + test_setup(); + rc = test_create_race("human"); + CuAssertIntEquals(tc, 1000, rc_luxury_trade(rc)); + CuAssertIntEquals(tc, 500, rc_herb_trade(rc)); + rc_set_param(rc, "luxury_trade", "100"); + rc_set_param(rc, "herb_trade", "50"); + CuAssertIntEquals(tc, 100, rc_luxury_trade(rc)); + CuAssertIntEquals(tc, 50, rc_herb_trade(rc)); + test_cleanup(); } CuSuite *get_market_suite(void) { CuSuite *suite = CuSuiteNew(); SUITE_ADD_TEST(suite, test_market_curse); + SUITE_ADD_TEST(suite, test_rc_trade); return suite; } diff --git a/src/modules/CMakeLists.txt b/src/modules/CMakeLists.txt index 633c486f5..82dee9ec4 100644 --- a/src/modules/CMakeLists.txt +++ b/src/modules/CMakeLists.txt @@ -1,6 +1,5 @@ PROJECT(modules C) SET(_FILES -arena.c autoseed.c gmcmd.c museum.c diff --git a/src/modules/arena.c b/src/modules/arena.c deleted file mode 100644 index 97488218a..000000000 --- a/src/modules/arena.c +++ /dev/null @@ -1,565 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#include -#include - -#if ARENA_MODULE -#include "arena.h" - -/* modules include */ -#include "score.h" - -/* items include */ -#include - -/* kernel includes */ -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#include - -/* util include */ -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#include - -/* libc include */ -#include -#include -#include -#include - -/* exports: */ -plane *arena = NULL; - -/* local vars */ -#define CENTRAL_VOLCANO 1 - -#ifdef ARENA_CREATION -static unsigned int arena_id = 0; -static region *arena_center = NULL; -static int newarena = 0; -#endif -static region *tower_region[6]; -static region *start_region[6]; - -static region *arena_region(int school) -{ - return tower_region[school]; -} - -static building *arena_tower(int school) -{ - return arena_region(school)->buildings; -} - -static int leave_fail(unit * u) -{ - ADDMSG(&u->faction->msgs, msg_message("arena_leave_fail", "unit", u)); - return 1; -} - -static int -leave_arena(struct unit *u, const struct item_type *itype, int amount, -order * ord) -{ - if (!u->building && leave_fail(u)) { - return -1; - } - if (u->building != arena_tower(u->faction->magiegebiet) && leave_fail(u)) { - return -1; - } - unused_arg(amount); - unused_arg(ord); - unused_arg(itype); - assert(!"not implemented"); - return 0; -} - -static int enter_fail(unit * u) -{ - ADDMSG(&u->faction->msgs, msg_message("arena_enter_fail", "region unit", - u->region, u)); - return 1; -} - -static int -enter_arena(unit * u, const item_type * itype, int amount, order * ord) -{ - skill_t sk; - region *r = u->region; - unit *u2; - int fee = 2000; - unused_arg(ord); - unused_arg(amount); - unused_arg(itype); - if (u->faction->score > fee * 5) { - score_t score = u->faction->score / 5; - if (score < INT_MAX) { - fee = (int)score; - } - else { - fee = INT_MAX; - } - } - if (getplane(r) == arena) - return -1; - if (u->number != 1 && enter_fail(u)) - return -1; - if (get_pooled(u, get_resourcetype(R_SILVER), GET_DEFAULT, fee) < fee - && enter_fail(u)) - return -1; - for (sk = 0; sk != MAXSKILLS; ++sk) { - if (get_level(u, sk) > 1 && enter_fail(u)) - return -1; - } - for (u2 = r->units; u2; u2 = u2->next) - if (u2->faction == u->faction) - break; - - assert(!"not implemented"); - /* - for (res=0;res!=MAXRESOURCES;++res) if (res!=R_SILVER && res!=R_ARENA_GATE && (is_item(res) || is_herb(res) || is_potion(res))) { - int x = get_resource(u, res); - if (x) { - if (u2) { - change_resource(u2, res, x); - change_resource(u, res, -x); - } - else if (enter_fail(u)) return -1; - } - } - */ - if (get_money(u) > fee) { - if (u2) - change_money(u2, get_money(u) - fee); - else if (enter_fail(u)) - return -1; - } - ADDMSG(&u->faction->msgs, msg_message("arena_enter_fail", "region unit", - u->region, u)); - use_pooled(u, itype->rtype, GET_SLACK | GET_RESERVE, 1); - use_pooled(u, get_resourcetype(R_SILVER), GET_DEFAULT, fee); - set_money(u, 109); - fset(u, UFL_ANON_FACTION); - move_unit(u, start_region[rng_int() % 6], NULL); - return 0; -} - -/*** - ** Szepter der Trnen, Demo-Item - ***/ - -static int -use_wand_of_tears(unit * user, const struct item_type *itype, int amount, -order * ord) -{ - int n; - unused_arg(ord); - for (n = 0; n != amount; ++n) { - unit *u; - for (u = user->region->units; u; u = u->next) { - if (u->faction != user->faction) { - int i; - - for (i = 0; i != u->skill_size; ++i) { - if (rng_int() % 3) - reduce_skill(u, u->skills + i, 1); - } - ADDMSG(&u->faction->msgs, msg_message("wand_of_tears_effect", - "unit", u)); - } - } - } - ADDMSG(&user->region->msgs, msg_message("wand_of_tears_usage", "unit", user)); - return 0; -} - -/** - * Tempel der Schreie, Demo-Gebude **/ - -static int age_hurting(attrib * a, void *owner) -{ - building *b = (building *)a->data.v; - unit *u; - int active = 0; - assert(owner == b); - if (b == NULL) - return AT_AGE_REMOVE; - for (u = b->region->units; u; u = u->next) { - if (u->building == b) { - if (u->faction->magiegebiet == M_DRAIG) { - active++; - ADDMSG(&b->region->msgs, msg_message("praytoigjarjuk", "unit", u)); - } - } - } - if (active) - for (u = b->region->units; u; u = u->next) - if (playerrace(u->faction->race)) { - int i; - if (u->faction->magiegebiet != M_DRAIG) { - for (i = 0; i != active; ++i) - u->hp = (u->hp + 1) / 2; /* make them suffer, but not die */ - ADDMSG(&b->region->msgs, msg_message("cryinpain", "unit", u)); - } - } - return AT_AGE_KEEP; -} - -static void -write_hurting(const attrib * a, const void *owner, struct storage *store) -{ - building *b = a->data.v; - WRITE_INT(store, b->no); -} - -static int read_hurting(attrib * a, void *owner, struct gamedata *data) -{ - int i; - READ_INT(data->store, &i); - a->data.v = (void *)findbuilding(i); - if (a->data.v == NULL) { - log_error("temple of pain is broken\n"); - return AT_READ_FAIL; - } - return AT_READ_OK; -} - -static attrib_type at_hurting = { - "hurting", NULL, NULL, age_hurting, write_hurting, read_hurting -}; - -#ifdef ARENA_CREATION -static void make_temple(region * r) -{ - const building_type *btype = bt_find("temple"); - building *b; - if (btype == NULL) { - log_error("could not find buildingtype 'temple'\n"); - return; - } - - b = r->buildings; - while (b != NULL && b->type != btype) - b = b->next; - if (b != NULL) - return; /* gibt schon einen */ - - b = new_building(btype, r, NULL); - b->size = btype->maxsize; - b->name = _strdup("Igjarjuk's Tempel der Schreie"); - b->display = - _strdup - ("Ein Schrein aus spitzen Knochen und lodernden Flammen, gewidmet dem Wyrm der Wyrme"); - a_add(&b->attribs, a_new(&at_hurting))->data.v = b; -} -#endif - -/** - * Initialisierung Trme */ - -#ifdef ARENA_CREATION -static void tower_init(void) -{ - int i, first = newarena; - item_type *it_demonseye = it_find("demonseye"); - item_type *it_griphonwing = it_find("griphonwing"); - assert(it_griphonwing && it_demonseye); - for (i = 0; i != 6; ++i) { - region *r = tower_region[i] = - findregion(arena_center->x + delta_x[i] * 3, - arena_center->y + delta_y[i] * 3); - if (r) { - start_region[i] = - findregion(arena_center->x + delta_x[i] * 2, - arena_center->y + delta_y[i] * 2); - if (rterrain(r) != T_DESERT) - terraform(r, T_DESERT); - if (!r->buildings) { - building *b = new_building(bt_find("castle"), r, NULL); - b->size = 10; - if (i != 0) { - sprintf(buf, "Turm des %s", - LOC(default_locale, mkname("school", magic_school[i]))); - } else - sprintf(buf, "Turm der Ahnungslosen"); - set_string(&b->name, buf); - } - } - } - if (first && !arena_center->buildings) { - building *b = new_building(bt_find("castle"), arena_center, NULL); - attrib *a; - item *items; - - i_add(&items, i_new(it_griphonwing, 1)); - i_add(&items, i_new(it_demonseye, 1)); - a = a_add(&b->attribs, make_giveitem(b, items)); - - b->size = 10; - set_string(&b->name, "Hhle des Greifen"); - } -} -#endif - -#ifdef ARENA_CREATION -static void guardian_faction(plane * pl, int id) -{ - region *r; - faction *f = findfaction(id); - - if (!f) { - f = calloc(1, sizeof(faction)); - f->banner = _strdup("Sie dienen dem groen Wyrm"); - f->passw = _strdup(itoa36(rng_int())); - set_email(&f->email, "igjarjuk@eressea.de"); - f->name = _strdup("Igjarjuks Kundschafter"); - f->race = get_race(RC_ILLUSION); - f->age = turn; - f->locale = get_locale("de"); - f->options = - want(O_COMPRESS) | want(O_REPORT) | want(O_COMPUTER) | want(O_ADRESSEN) | - want(O_DEBUG); - - f->no = id; - addlist(&factions, f); - fhash(f); - } - if (f->race != get_race(RC_ILLUSION)) { - assert(!"guardian id vergeben"); - exit(0); - } - f->lastorders = turn; - f->alive = true; - for (r = regions; r; r = r->next) - if (getplane(r) == pl && rterrain(r) != T_FIREWALL) { - unit *u; - freset(r, RF_ENCOUNTER); - for (u = r->units; u; u = u->next) { - if (u->faction == f) - break; - } - if (u) - continue; - u = create_unit(r, f, 1, get_race(RC_GOBLIN), 0, NULL, NULL); - set_string(&u->name, "Igjarjuks Auge"); - i_change(&u->items, it_find("roi"), 1); - set_order(&u->thisorder, NULL); - fset(u, UFL_ANON_FACTION); - set_money(u, 1000); - } -} -#endif - -#define BLOCKSIZE 9 - -#ifdef ARENA_CREATION -static void block_create(int x1, int y1, char terrain) -{ - int x, y; - for (x = 0; x != BLOCKSIZE; ++x) { - for (y = 0; y != BLOCKSIZE; ++y) { - region *r = new_region(x1 + x, y1 + y, 0); - terraform(r, terrain); - } - } -} -#endif - -#ifdef CENTRAL_VOLCANO - -static int caldera_handle(trigger * t, void *data) -{ - /* call an event handler on caldera. - * data.v -> ( variant event, int timer ) - */ - building *b = (building *)t->data.v; - if (b != NULL) { - unit **up = &b->region->units; - while (*up) { - unit *u = *up; - if (u->building == b) { - message *msg; - if (u->items) { - item **ip = &u->items; - msg = msg_message("caldera_handle_1", "unit items", u, u->items); - while (*ip) { - item *i = *ip; - i_remove(ip, i); - if (*ip == i) - ip = &i->next; - } - } - else { - msg = msg_message("caldera_handle_0", "unit", u); - } - add_message(&u->region->msgs, msg); - set_number(u, 0); - } - if (*up == u) - up = &u->next; - } - } - else { - log_error("could not perform caldera::handle()\n"); - } - unused_arg(data); - return 0; -} - -static void caldera_write(const trigger * t, struct storage *store) -{ - building *b = (building *)t->data.v; - write_building_reference(b, store); -} - -static int caldera_read(trigger * t, struct gamedata *data) -{ - int rb = - read_reference(&t->data.v, data, read_building_reference, - resolve_building); - if (rb == 0 && !t->data.v) { - return AT_READ_FAIL; - } - return AT_READ_OK; -} - -struct trigger_type tt_caldera = { - "caldera", - NULL, - NULL, - caldera_handle, - caldera_write, - caldera_read -}; - -#ifdef ARENA_CREATION -static trigger *trigger_caldera(building * b) -{ - trigger *t = t_new(&tt_caldera); - t->data.v = b; - return t; -} -#endif - -#ifdef ARENA_CREATION -static void init_volcano(void) -{ - building *b; - region *r = arena_center; - assert(arena_center); - if (rterrain(r) != T_DESERT) - return; /* been done before */ - terraform(arena_center, T_VOLCANO_SMOKING); - b = new_building(bt_find("caldera"), r, NULL); - b->size = 1; - b->name = _strdup("Igjarjuk's Schlund"); - b->display = - _strdup - ("Feurige Lava fliet aus dem Krater des groen Vulkans. Alles wird von ihr verschlungen."); - add_trigger(&b->attribs, "timer", trigger_caldera(b)); - tt_register(&tt_caldera); -} -#endif -#endif - -#ifdef ARENA_CREATION -void create_arena(void) -{ - int x; - arena_id = hashstring("arena"); - arena = getplanebyid(arena_id); - if (arena != NULL) - return; - score(); /* ist wichtig, damit alle Parteien einen score haben, wenn sie durchs Tor wollen. */ - guardian_faction(arena, 999); - if (arena) - arena_center = findregion(plane_center_x(arena), plane_center_y(arena)); - if (!arena_center) { - newarena = 1; - arena = - create_new_plane(arena_id, "Arena", -10000, -10000, 0, BLOCKSIZE - 1, - PFL_LOWSTEALING | PFL_NORECRUITS | PFL_NOALLIANCES); - block_create(arena->minx, arena->miny, T_OCEAN); - arena_center = findregion(plane_center_x(arena), plane_center_y(arena)); - for (x = 0; x != BLOCKSIZE; ++x) { - int y; - for (y = 0; y != BLOCKSIZE; ++y) { - region *r = findregion(arena->minx + x, arena->miny + y); - freset(r, RF_ENCOUNTER); - r->planep = arena; - switch (distance(r, arena_center)) { - case 4: - terraform(r, T_FIREWALL); - break; - case 0: - terraform(r, T_GLACIER); - break; - case 1: - terraform(r, T_SWAMP); - break; - case 2: - terraform(r, T_MOUNTAIN); - break; - } - } - } - } - make_temple(arena_center); -#ifdef CENTRAL_VOLCANO - init_volcano(); -#else - if (arena_center->terrain != T_DESERT) - terraform(arena_center, T_DESERT); -#endif - rsetmoney(arena_center, 0); - rsetpeasants(arena_center, 0); - tower_init(); -} -#endif -void register_arena(void) -{ - at_register(&at_hurting); - register_item_use(use_wand_of_tears, "use_wand_of_tears"); - register_function((pf_generic)enter_arena, "enter_arena"); - register_function((pf_generic)leave_arena, "leave_arena"); - tt_register(&tt_caldera); -} - -#endif /* def ARENA_MODULE */ diff --git a/src/modules/arena.h b/src/modules/arena.h deleted file mode 100644 index 64bfc7e87..000000000 --- a/src/modules/arena.h +++ /dev/null @@ -1,39 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#ifndef ARENA_H -#define ARENA_H -#ifdef __cplusplus -extern "C" { -#endif - -#if ARENA_MODULE == 0 -#error "must define ARENA_MODULE to use this module" -#endif - /* exports: */ - extern struct plane *arena; - - extern void register_arena(void); -#ifdef ARENA_CREATION - extern void create_arena(void); -#endif - -#ifdef __cplusplus -} -#endif -#endif diff --git a/src/modules/autoseed.c b/src/modules/autoseed.c index e8855683e..1e2d2d23f 100644 --- a/src/modules/autoseed.c +++ b/src/modules/autoseed.c @@ -14,6 +14,8 @@ #include #include "autoseed.h" +#include "market.h" + /* kernel includes */ #include #include @@ -36,7 +38,7 @@ #include #include #include -#include +#include #include #include @@ -132,20 +134,6 @@ static bool f_nolux(const region * r) return (r->land && count_demand(r) != get_maxluxuries()); } -int fix_demand(region * rd) { - luxury_type * ltype; - int maxluxuries = get_maxluxuries(); - if (maxluxuries > 0) { - int sale = rng_int() % maxluxuries; - for (ltype = luxurytypes; sale != 0 && ltype; ltype = ltype->next) { - --sale; - } - setluxuries(rd, ltype); - return 0; - } - return -1; -} - int fix_all_demand(region *rd) { region_list *rl, *rlist = NULL; recurse_regions(rd, &rlist, f_nolux); @@ -211,7 +199,7 @@ newfaction *read_newfactions(const char *filename) free(nf); continue; } - nf->password = _strdup(password); + nf->password = strdup(password); nf->race = rc_find(race); nf->subscription = subscription; if (alliances != NULL) { @@ -307,17 +295,17 @@ static bool virgin_region(const region * r) return true; } -static quicklist * get_island(region * root) +static selist * get_island(region * root) { - quicklist * ql, *result = 0; + selist * ql, *result = 0; int qi = 0; fset(root, RF_MARK); - ql_push(&result, root); + selist_push(&result, root); - for (ql = result, qi = 0; ql; ql_advance(&ql, &qi, 1)) { + for (ql = result, qi = 0; ql; selist_advance(&ql, &qi, 1)) { int dir; - region *r = (region *)ql_get(ql, qi); + region *r = (region *)selist_get(ql, qi); region * next[MAXDIRECTIONS]; get_neighbours(r, next); @@ -326,13 +314,13 @@ static quicklist * get_island(region * root) region *rn = next[dir]; if (rn != NULL && rn->land && !fval(rn, RF_MARK)) { fset(rn, RF_MARK); - ql_push(&result, rn); + selist_push(&result, rn); } } } - for (ql = result, qi = 0; ql; ql_advance(&ql, &qi, 1)) { - region *r = (region *)ql_get(ql, qi); + for (ql = result, qi = 0; ql; selist_advance(&ql, &qi, 1)) { + region *r = (region *)selist_get(ql, qi); freset(r, RF_MARK); } return result; @@ -342,14 +330,14 @@ static void get_island_info(region * root, int *size_p, int *inhabited_p, int *maxage_p) { int qi, size = 0, maxage = 0, inhabited = 0; - quicklist *ql, *island = NULL; + selist *ql, *island = NULL; - ql_push(&island, root); + selist_push(&island, root); fset(root, RF_MARK); - for (ql = island, qi = 0; ql; ql_advance(&ql, &qi, 1)) { + for (ql = island, qi = 0; ql; selist_advance(&ql, &qi, 1)) { int d; - region *r = (region *)ql_get(ql, qi); + region *r = (region *)selist_get(ql, qi); if (r->units) { unit *u; for (u = r->units; u; u = u->next) { @@ -363,16 +351,16 @@ get_island_info(region * root, int *size_p, int *inhabited_p, int *maxage_p) for (d = 0; d != MAXDIRECTIONS; ++d) { region *rn = rconnect(r, d); if (rn && !fval(rn, RF_MARK) && rn->land) { - ql_push(&island, rn); + selist_push(&island, rn); fset(rn, RF_MARK); } } } - for (ql = island, qi = 0; ql; ql_advance(&ql, &qi, 1)) { - region *r = (region *)ql_get(ql, qi); + for (ql = island, qi = 0; ql; selist_advance(&ql, &qi, 1)) { + region *r = (region *)selist_get(ql, qi); freset(r, RF_MARK); } - ql_free(island); + selist_free(island); if (size_p) *size_p = size; if (inhabited_p) @@ -514,11 +502,11 @@ int autoseed(newfaction ** players, int nsize, int max_agediff) } if (rmin != NULL) { faction *f; - quicklist *ql, *rlist = get_island(rmin); + selist *ql, *rlist = get_island(rmin); int qi; - for (ql = rlist, qi = 0; ql; ql_advance(&ql, &qi, 1)) { - region *r = (region *)ql_get(ql, qi); + for (ql = rlist, qi = 0; ql; selist_advance(&ql, &qi, 1)) { + region *r = (region *)selist_get(ql, qi); unit *u; for (u = r->units; u; u = u->next) { f = u->faction; @@ -528,7 +516,7 @@ int autoseed(newfaction ** players, int nsize, int max_agediff) } } } - ql_free(rlist); + selist_free(rlist); if (psize > 0) { for (f = factions; f; f = f->next) { freset(f, FFL_MARK); @@ -974,8 +962,8 @@ int build_island_e3(newfaction ** players, int x, int y, int numfactions, int mi q = region_quality(r, rn); if (q >= MIN_QUALITY && nfactions < numfactions && *players) { starting_region(players, r, rn); - minq = _min(minq, q); - maxq = _max(maxq, q); + minq = MIN(minq, q); + maxq = MAX(maxq, q); ++nfactions; } } @@ -989,8 +977,8 @@ int build_island_e3(newfaction ** players, int x, int y, int numfactions, int mi q = region_quality(r, rn); if (q >= MIN_QUALITY * 4 / 3 && nfactions < numfactions && *players) { starting_region(players, r, rn); - minq = _min(minq, q); - maxq = _max(maxq, q); + minq = MIN(minq, q); + maxq = MAX(maxq, q); ++nfactions; } } diff --git a/src/modules/autoseed.h b/src/modules/autoseed.h index 3cfe6225c..06ce646c2 100644 --- a/src/modules/autoseed.h +++ b/src/modules/autoseed.h @@ -35,7 +35,6 @@ extern "C" { extern int autoseed(newfaction ** players, int nsize, int max_agediff); extern newfaction *read_newfactions(const char *filename); - extern int fix_demand(struct region *r); extern const struct terrain_type *random_terrain(const struct terrain_type *terrains[], int distribution[], int size); diff --git a/src/modules/gmcmd.c b/src/modules/gmcmd.c index b9e1bc342..c911e3de4 100644 --- a/src/modules/gmcmd.c +++ b/src/modules/gmcmd.c @@ -16,10 +16,8 @@ #include /* misc includes */ -#include #include #include -#include /* kernel includes */ #include @@ -29,7 +27,6 @@ #include #include #include -#include #include #include #include diff --git a/src/modules/museum.c b/src/modules/museum.c index 5ad9092a4..1eee3529f 100644 --- a/src/modules/museum.c +++ b/src/modules/museum.c @@ -32,7 +32,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include #include #include #include @@ -311,7 +310,7 @@ order * ord) unit *warden = findunit(atoi36("mwar")); int unit_cookie; - unused_arg(amount); + UNUSED_ARG(amount); /* Prfen ob in Eingangshalle */ if (u->region->x != 9525 || u->region->y != 9525) { @@ -366,7 +365,7 @@ order * ord) region *r = u->region; plane *pl = rplane(r); - unused_arg(amount); + UNUSED_ARG(amount); /* Pruefen ob in normaler Plane und nur eine Person */ if (pl != get_homeplane()) { @@ -418,8 +417,8 @@ static const char *b_namequestportal(const connection * b, const region * r, { const char *bname; int lock = b->data.i; - unused_arg(b); - unused_arg(r); + UNUSED_ARG(b); + UNUSED_ARG(r); if (gflags & GF_ARTICLE) { if (lock > 0) { @@ -498,9 +497,10 @@ void register_museum(void) at_register(&at_museumgivebackcookie); at_register(&at_museumgiveback); - register_item_use(use_museumticket, "use_museumticket"); - register_item_use(use_museumkey, "use_museumkey"); register_item_use(use_museumexitticket, "use_museumexitticket"); + register_item_use(use_museumticket, "use_museumticket"); + register_item_use(use_museumkey, "use_questkey1"); + register_item_use(use_museumkey, "use_questkey2"); } #endif diff --git a/src/modules/score.c b/src/modules/score.c index 2fd3cf230..0776d6507 100644 --- a/src/modules/score.c +++ b/src/modules/score.c @@ -38,6 +38,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include /* libc includes */ +#include #include #include @@ -66,7 +67,7 @@ void score(void) region *r; faction *fc; score_t allscores = 0; - char path[MAX_PATH]; + char path[4096]; for (fc = factions; fc; fc = fc->next) fc->score = 0; @@ -105,14 +106,14 @@ void score(void) int itemscore = 0; int i; faction *f = u->faction; + const race *rc = u_race(u); - if (f == NULL || u_race(u) == get_race(RC_SPELL) - || u_race(u) == get_race(RC_BIRTHDAYDRAGON)) { + if (f == NULL) { continue; } - - if (old_race(u_race(u)) <= RC_AQUARIAN) { - f->score += (u_race(u)->recruitcost * u->number) / 50; + else if (rc->recruitcost>0) { + assert(playerrace(rc)); + f->score += (rc->recruitcost * u->number) / 50; } f->score += get_money(u) / 50; for (itm = u->items; itm; itm = itm->next) { @@ -168,7 +169,7 @@ void score(void) fprintf(scoreFP, "%30.30s (%3.3s) %5s (%3d)\n", f->name, f->race->_name, - factionid(f), + itoa36(f->no), f->age); } fclose(scoreFP); diff --git a/src/modules/score.h b/src/modules/score.h index b0f1b2a91..4fc1f52bb 100644 --- a/src/modules/score.h +++ b/src/modules/score.h @@ -18,6 +18,8 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #ifndef SCORE_H #define SCORE_H + +#include #ifdef __cplusplus extern "C" { #endif diff --git a/src/monster.c b/src/monster.c deleted file mode 100644 index 5eafba1ea..000000000 --- a/src/monster.c +++ /dev/null @@ -1,243 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#include -#include -#include "monster.h" - -/* gamecode includes */ -#include "economy.h" -#include "give.h" -#include "move.h" - -/* attributes includes */ -#include -#include - -/* kernel includes */ -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -/* util includes */ -#include -#include -#include -#include -#include -#include -#include -#include -#include - -/* libc includes */ -#include -#include -#include - -#define MOVECHANCE 25 /* chance fuer bewegung */ - -#define MAXILLUSION_TEXTS 3 - -bool monster_is_waiting(const unit * u) -{ - int test = fval(u_race(u), RCF_ATTACK_MOVED) ? UFL_ISNEW : UFL_ISNEW | UFL_MOVED; - if (fval(u, test)) - return true; - return false; -} - -static void eaten_by_monster(unit * u) -{ - /* adjustment for smaller worlds */ - static double multi = 0.0; - int n = 0; - int horse = -1; - const resource_type *rhorse = get_resourcetype(R_HORSE); - if (multi == 0.0) { - multi = RESOURCE_QUANTITY * newterrain(T_PLAIN)->size / 10000.0; - } - - switch (old_race(u_race(u))) { - case RC_FIREDRAGON: - n = rng_int() % 80 * u->number; - break; - case RC_DRAGON: - n = rng_int() % 200 * u->number; - break; - case RC_WYRM: - n = rng_int() % 500 * u->number; - break; - default: - n = rng_int() % (u->number / 20 + 1); - horse = 0; - } - horse = horse ? i_get(u->items, rhorse->itype) : 0; - - n = (int)(n * multi); - if (n > 0) { - n = lovar(n); - n = _min(rpeasants(u->region), n); - - if (n > 0) { - deathcounts(u->region, n); - rsetpeasants(u->region, rpeasants(u->region) - n); - ADDMSG(&u->region->msgs, msg_message("eatpeasants", "unit amount", u, n)); - } - } - if (horse > 0) { - i_change(&u->items, rhorse->itype, -horse); - ADDMSG(&u->region->msgs, msg_message("eathorse", "unit amount", u, horse)); - } -} - -static void absorbed_by_monster(unit * u) -{ - int n; - - switch (old_race(u_race(u))) { - default: - n = rng_int() % (u->number / 20 + 1); - } - - if (n > 0) { - n = lovar(n); - n = _min(rpeasants(u->region), n); - if (n > 0) { - rsetpeasants(u->region, rpeasants(u->region) - n); - scale_number(u, u->number + n); - ADDMSG(&u->region->msgs, msg_message("absorbpeasants", - "unit race amount", u, u_race(u), n)); - } - } -} - -static int scareaway(region * r, int anzahl) -{ - int n, p, diff = 0, emigrants[MAXDIRECTIONS]; - direction_t d; - - anzahl = _min(_max(1, anzahl), rpeasants(r)); - - /* Wandern am Ende der Woche (normal) oder wegen Monster. Die - * Wanderung wird erst am Ende von demographics () ausgefuehrt. - * emigrants[] ist local, weil r->newpeasants durch die Monster - * vielleicht schon hochgezaehlt worden ist. */ - - for (d = 0; d != MAXDIRECTIONS; d++) - emigrants[d] = 0; - - p = rpeasants(r); - assert(p >= 0 && anzahl >= 0); - for (n = _min(p, anzahl); n; n--) { - direction_t dir = (direction_t)(rng_int() % MAXDIRECTIONS); - region *rc = rconnect(r, dir); - - if (rc && fval(rc->terrain, LAND_REGION)) { - ++diff; - rc->land->newpeasants++; - emigrants[dir]++; - } - } - rsetpeasants(r, p - diff); - assert(p >= diff); - return diff; -} - -static void scared_by_monster(unit * u) -{ - int n; - - switch (old_race(u_race(u))) { - case RC_FIREDRAGON: - n = rng_int() % 160 * u->number; - break; - case RC_DRAGON: - n = rng_int() % 400 * u->number; - break; - case RC_WYRM: - n = rng_int() % 1000 * u->number; - break; - default: - n = rng_int() % (u->number / 4 + 1); - } - - if (n > 0) { - n = lovar(n); - n = _min(rpeasants(u->region), n); - if (n > 0) { - n = scareaway(u->region, n); - if (n > 0) { - ADDMSG(&u->region->msgs, msg_message("fleescared", - "amount unit", n, u)); - } - } - } -} - -void monster_kills_peasants(unit * u) -{ - if (!monster_is_waiting(u)) { - if (u_race(u)->flags & RCF_SCAREPEASANTS) { - scared_by_monster(u); - } - if (u_race(u)->flags & RCF_KILLPEASANTS) { - eaten_by_monster(u); - } - if (u_race(u)->flags & RCF_ABSORBPEASANTS) { - absorbed_by_monster(u); - } - } -} - -faction *get_or_create_monsters(void) -{ - faction *f = findfaction(MONSTER_ID); - if (!f) { - const race *rc = rc_get_or_create("dragon"); - const char *email = config_get("monster.email"); - f = addfaction(email ? email : "noreply@eressea.de", NULL, rc, default_locale, 0); - renumber_faction(f, MONSTER_ID); - faction_setname(f, "Monster"); - fset(f, FFL_NPC | FFL_NOIDLEOUT); - } - return f; -} - -faction *get_monsters(void) { - return get_or_create_monsters(); -} - -void make_zombie(unit * u) -{ - u_setfaction(u, get_monsters()); - scale_number(u, 1); - u->hp = unit_max_hp(u) * u->number; - u_setrace(u, get_race(RC_ZOMBIE)); - u->irace = NULL; -} diff --git a/src/monster.h b/src/monster.h deleted file mode 100644 index 476bcb73e..000000000 --- a/src/monster.h +++ /dev/null @@ -1,39 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#ifndef H_GC_MONSTER -#define H_GC_MONSTER -#ifdef __cplusplus -extern "C" { -#endif - - struct unit; - - void monster_kills_peasants(struct unit *u); - bool monster_is_waiting(const struct unit *u); - struct faction *get_monsters(void); - struct faction *get_or_create_monsters(void); - void make_zombie(struct unit * u); - -#define MONSTER_ID 666 -#define is_monsters(f) (fval(f, FFL_NPC) && f==get_monsters()) - -#ifdef __cplusplus -} -#endif -#endif diff --git a/src/monsters.c b/src/monsters.c index 0da4947f2..0d9857024 100644 --- a/src/monsters.c +++ b/src/monsters.c @@ -25,7 +25,7 @@ #include "economy.h" #include "chaos.h" #include "give.h" -#include "monster.h" +#include "guard.h" #include "laws.h" #include "keyword.h" #include "study.h" @@ -64,15 +64,15 @@ #include #include -#include +#include /* libc includes */ #include #include #include -#define MOVECHANCE .25 /* chance fuer bewegung */ -#define DRAGON_RANGE 20 /* Max. Distanz zum nchsten Drachenziel */ +#define DRAGON_RANGE 20 /* max. Distanz zum nchsten Drachenziel */ +#define MOVE_PERCENT 25 /* chance fuer bewegung */ #define MAXILLUSION_TEXTS 3 static double attack_chance; /* rules.monsters.attack_chance, or default 0.4 */ @@ -84,7 +84,12 @@ static void give_peasants(unit *u, const item_type *itype, int reduce) { } static double random_move_chance(void) { - return config_get_flt("rules.monsters.random_move_chance", MOVECHANCE); + static int rule; + static int config; + if (config_changed(&config)) { + rule = config_get_int("rules.monsters.random_move_percent", MOVE_PERCENT); + } + return rule * 0.01; } static void reduce_weight(unit * u) @@ -94,7 +99,7 @@ static void reduce_weight(unit * u) int horses = get_resource(u, get_resourcetype(R_HORSE)); if (horses > 0) { - horses = _min(horses, (u->number * 2)); + horses = MIN(horses, (u->number * 2)); change_resource(u, get_resourcetype(R_HORSE), -horses); } @@ -123,7 +128,7 @@ static void reduce_weight(unit * u) if (itype->weight >= 10 && itype->rtype->wtype == 0 && itype->rtype->atype == 0) { if (itype->capacity < itype->weight) { - int reduce = _min(itm->number, -((capacity - weight) / itype->weight)); + int reduce = MIN(itm->number, -((capacity - weight) / itype->weight)); give_peasants(u, itm->type, reduce); weight -= reduce * itype->weight; } @@ -138,7 +143,7 @@ static void reduce_weight(unit * u) const item_type *itype = itm->type; weight += itm->number * itype->weight; if (itype->capacity < itype->weight) { - int reduce = _min(itm->number, -((capacity - weight) / itype->weight)); + int reduce = MIN(itm->number, -((capacity - weight) / itype->weight)); give_peasants(u, itm->type, reduce); weight -= reduce * itype->weight; } @@ -159,6 +164,29 @@ static order *monster_attack(unit * u, const unit * target) return create_order(K_ATTACK, u->faction->locale, "%i", target->no); } +void monsters_desert(struct faction *monsters) +{ + region *r; + + assert(monsters!=NULL); + for (r = regions; r; r = r->next) { + unit *u; + + for (u = r->units; u; u = u->next) { + if (u->faction!=monsters + && (u_race(u)->flags & RCF_DESERT)) { + if (fval(u, UFL_ISNEW)) + continue; + if (rng_int() % 100 < 5) { + ADDMSG(&u->faction->msgs, msg_message("desertion", + "unit region", u, r)); + u_setfaction(u, monsters); + } + } + } + } +} + int monster_attacks(unit * monster, bool respect_buildings, bool rich_only) { region *r = monster->region; @@ -188,7 +216,7 @@ static order *get_money_for_dragon(region * r, unit * udragon, int wanted) /* falls genug geld in der region ist, treiben wir steuern ein. */ if (rmoney(r) >= wanted) { /* 5% chance, dass der drache aus einer laune raus attackiert */ - if (!attacks || chance(1.0 - u_race(udragon)->aggression)) { + if (!attacks) { /* Drachen haben in E3 und E4 keine Einnahmen. Neuer Befehl Pluendern erstmal nur fuer Monster?*/ return create_order(K_LOOT, default_locale, NULL); } @@ -197,7 +225,7 @@ static order *get_money_for_dragon(region * r, unit * udragon, int wanted) /* falls der drache launisch ist, oder das regionssilber knapp, greift er alle an * und holt sich Silber von Einheiten, vorausgesetzt er bewacht bereits */ money = 0; - if (attacks && is_guard(udragon, GUARD_TAX)) { + if (attacks && is_guard(udragon)) { money += monster_attacks(udragon, true, true); } @@ -264,47 +292,57 @@ static direction_t richest_neighbour(region * r, faction * f, int absolut) static bool room_for_race_in_region(region * r, const race * rc) { - unit *u; - int c = 0; + if (rc->splitsize > 0) { + unit *u; + int c = 0; - for (u = r->units; u; u = u->next) { - if (u_race(u) == rc) - c += u->number; + for (u = r->units; u; u = u->next) { + if (u_race(u) == rc) { + c += u->number; + if (c > rc->splitsize * 2) { + return false; + } + } + } } - - if (c > (rc->splitsize * 2)) - return false; - return true; } static direction_t random_neighbour(region * r, unit * u) { int i; - region *rc; - region * next[MAXDIRECTIONS]; + region *next[MAXDIRECTIONS], *backup[MAXDIRECTIONS]; + region **pick; int rr, c = 0, c2 = 0; + const race *rc = u_race(u); get_neighbours(r, next); /* Nachsehen, wieviele Regionen in Frage kommen */ for (i = 0; i != MAXDIRECTIONS; i++) { - rc = next[i]; - if (rc && can_survive(u, rc)) { - if (room_for_race_in_region(rc, u_race(u))) { + region *rn = next[i]; + if (rn && can_survive(u, rn)) { + if (room_for_race_in_region(rn, rc)) { c++; + } else { + next[i] = NULL; } + backup[i] = rn; c2++; + } else { + next[i] = NULL; + backup[i] = NULL; } } + pick = next; if (c == 0) { if (c2 == 0) { return NODIRECTION; } else { + pick = backup; c = c2; - c2 = 0; /* c2 == 0 -> room_for_race nicht beachten */ } } @@ -314,18 +352,14 @@ static direction_t random_neighbour(region * r, unit * u) /* Durchzhlen */ - c = -1; + c = 0; for (i = 0; i != MAXDIRECTIONS; i++) { - rc = next[i]; - if (rc && can_survive(u, rc)) { - if (c2 == 0) { - c++; - } - else if (room_for_race_in_region(rc, u_race(u))) { - c++; - } - if (c == rr) + region *rn = pick[i]; + if (rn) { + if (c == rr) { return (direction_t)i; + } + c++; } } @@ -380,20 +414,15 @@ static order *monster_move(region * r, unit * u) if (monster_is_waiting(u)) { return NULL; } - switch (old_race(u_race(u))) { - case RC_FIREDRAGON: - case RC_DRAGON: - case RC_WYRM: + if (fval(u_race(u), RCF_DRAGON)) { d = richest_neighbour(r, u->faction, 1); - break; - case RC_TREEMAN: - d = treeman_neighbour(r); - break; - default: - d = random_neighbour(r, u); - break; } - + else if (get_race(RC_TREEMAN)==u_race(u)) { + d = treeman_neighbour(r); + } + else { + d = random_neighbour(r, u); + } /* falls kein geld gefunden wird, zufaellig verreisen, aber nicht in * den ozean */ @@ -421,11 +450,11 @@ static attrib *set_new_dragon_target(unit * u, region * r, int range) { int max_affinity = 0; region *max_region = NULL; - quicklist *ql, *rlist = regions_in_range(r, range, allowed_dragon); + selist *ql, *rlist = regions_in_range(r, range, allowed_dragon); int qi; - for (qi = 0, ql = rlist; ql; ql_advance(&ql, &qi, 1)) { - region *r2 = (region *)ql_get(ql, qi); + for (qi = 0, ql = rlist; ql; selist_advance(&ql, &qi, 1)) { + region *r2 = (region *)selist_get(ql, qi); int affinity = dragon_affinity_value(r2, u); if (affinity > max_affinity) { max_affinity = affinity; @@ -433,7 +462,7 @@ static attrib *set_new_dragon_target(unit * u, region * r, int range) } } - ql_free(rlist); + selist_free(rlist); if (max_region && max_region != r) { attrib *a = a_find(u->attribs, &at_targetregion); @@ -490,65 +519,6 @@ static order *make_movement_order(unit * u, const region * target, int moves, return parse_order(zOrder, u->faction->locale); } -#ifdef TODO_ALP -static order *monster_seeks_target(region * r, unit * u) -{ - direction_t d; - unit *target = NULL; - int dist, dist2; - direction_t i; - region *nr; - - /* Das Monster sucht ein bestimmtes Opfer. Welches, steht - * in einer Referenz/attribut - * derzeit gibt es nur den alp - */ - - switch (old_race(u_race(u))) { - case RC_ALP: - target = alp_target(u); - break; - default: - assert(!"Seeker-Monster gibt kein Ziel an"); - } - - /* TODO: prfen, ob target berhaupt noch existiert... */ - if (!target) { - log_error("Monster '%s' hat kein Ziel!\n", unitname(u)); - return NULL; /* this is a bug workaround! remove!! */ - } - - if (r == target->region) { /* Wir haben ihn! */ - if (u_race(u) == get_race(RC_ALP)) { - alp_findet_opfer(u, r); - } else { - assert(!"Seeker-Monster hat keine Aktion fuer Ziel"); - } - return NULL; - } - - /* Simpler Ansatz: Nachbarregion mit gerinster Distanz suchen. - * Sinnvoll momentan nur bei Monstern, die sich nicht um das - * Terrain kmmern. Nebelwnde & Co machen derzeit auch nix... - */ - dist2 = distance(r, target->region); - d = NODIRECTION; - for (i = 0; i < MAXDIRECTIONS; i++) { - nr = rconnect(r, i); - assert(nr); - dist = distance(nr, target->region); - if (dist < dist2) { - dist2 = dist; - d = i; - } - } - assert(d != NODIRECTION); - - return create_order(K_MOVE, u->faction->locale, "%s", - LOC(u->faction->locale, directions[d])); -} -#endif - void random_growl(const unit *u, region *target, int rand) { const struct locale *lang = u->faction->locale; @@ -605,19 +575,21 @@ static order *monster_learn(unit * u) return NULL; } -static bool check_overpopulated(unit * u) +static bool check_overpopulated(const unit * u) { - unit *u2; - int c = 0; + const race *rc = u_race(u); + if (rc->splitsize > 0) { + unit *u2; + int c = 0; - for (u2 = u->region->units; u2; u2 = u2->next) { - if (u_race(u2) == u_race(u) && u != u2) - c += u2->number; + for (u2 = u->region->units; u2; u2 = u2->next) { + if (u != u2 && u_race(u2) == rc) { + c += u2->number; + if (c > rc->splitsize * 2) + return true; + } + } } - - if (c > u_race(u)->splitsize * 2) - return true; - return false; } @@ -657,6 +629,13 @@ static order *plan_dragon(unit * u) region *tr = NULL; bool move = false; order *long_order = NULL; + static int rc_cache; + static const race *rc_wyrm; + const race * rc = u_race(u); + + if (rc_changed(&rc_cache)) { + rc_wyrm = get_race(RC_WYRM); + } if (ta == NULL) { move |= (rpeasants(r) == 0); /* when no peasants, move */ @@ -664,7 +643,7 @@ static order *plan_dragon(unit * u) } move |= chance(0.04); /* 4% chance to change your mind */ - if (u_race(u) == get_race(RC_WYRM) && !move) { + if (rc == rc_wyrm && !move) { unit *u2; for (u2 = r->units; u2; u2 = u2->next) { /* wyrme sind einzelgnger */ @@ -694,18 +673,21 @@ static order *plan_dragon(unit * u) } if (tr != NULL) { assert(long_order == NULL); - switch (old_race(u_race(u))) { - case RC_FIREDRAGON: - long_order = make_movement_order(u, tr, 4, allowed_dragon); - break; - case RC_DRAGON: - long_order = make_movement_order(u, tr, 3, allowed_dragon); - break; - case RC_WYRM: + /* TODO: per-race planning functions? */ + if (rc == rc_wyrm) { long_order = make_movement_order(u, tr, 1, allowed_dragon); - break; - default: - break; + } + else { + switch (old_race(rc)) { + case RC_FIREDRAGON: + long_order = make_movement_order(u, tr, 4, allowed_dragon); + break; + case RC_DRAGON: + long_order = make_movement_order(u, tr, 3, allowed_dragon); + break; + default: + break; + } } if (long_order) { reduce_weight(u); @@ -735,7 +717,7 @@ static order *plan_dragon(unit * u) int attempts = 0; skill_t sk = SK_PERCEPTION; /* study perception (or a random useful skill) */ - while ((!skill_enabled(sk) || (attempts < MAXSKILLS && u_race(u)->bonus[sk] < (++attempts < 10?1:-5 )))) { + while (!skill_enabled(sk) || (attempts < MAXSKILLS && u_race(u)->bonus[sk] < (++attempts < 10?1:-5 ))) { sk = (skill_t)(rng_int() % MAXSKILLS); } long_order = create_order(K_STUDY, u->faction->locale, "'%s'", @@ -757,6 +739,7 @@ void plan_monsters(faction * f) bool attacking = chance(attack_chance); for (u = r->units; u; u = u->next) { + const race *rc = u_race(u); attrib *ta; order *long_order = NULL; @@ -775,7 +758,7 @@ void plan_monsters(faction * f) setstatus(u, ST_FIGHT); /* all monsters fight */ } - if (attacking && (!r->land || is_guard(u, GUARD_TAX))) { + if (attacking && (!r->land || is_guard(u))) { monster_attacks(u, true, false); } @@ -812,7 +795,7 @@ void plan_monsters(faction * f) a_remove(&u->attribs, ta); } } - else if (u_race(u)->flags & RCF_MOVERANDOM) { + else if (rc->flags & RCF_MOVERANDOM) { if (chance(random_move_chance()) || check_overpopulated(u)) { long_order = monster_move(r, u); } @@ -826,31 +809,24 @@ void plan_monsters(faction * f) handle_event(u->attribs, "ai_move", u); } - switch (old_race(u_race(u))) { - case RC_SEASERPENT: - long_order = create_order(K_PIRACY, f->locale, NULL); - break; -#ifdef TODO_ALP - case RC_ALP: - long_order = monster_seeks_target(r, u); - break; -#endif - case RC_FIREDRAGON: - case RC_DRAGON: - case RC_WYRM: + if (fval(rc, RCF_DRAGON)) { long_order = plan_dragon(u); - break; - default: - if (u_race(u)->flags & RCF_LEARN) { - long_order = monster_learn(u); + } + else { + if (rc == get_race(RC_SEASERPENT)) { + long_order = create_order(K_PIRACY, f->locale, NULL); + } + else { + if (rc->flags & RCF_LEARN) { + long_order = monster_learn(u); + } } - break; } } if (long_order == NULL && unit_can_study(u)) { /* Einheiten, die Waffenlosen Kampf lernen knnten, lernen es um * zu bewachen: */ - if (u_race(u)->bonus[SK_WEAPONLESS] != -99) { + if (rc->bonus[SK_WEAPONLESS] != -99) { if (effskill(u, SK_WEAPONLESS, 0) < 1) { long_order = create_order(K_STUDY, f->locale, "'%s'", @@ -1019,3 +995,162 @@ void spawn_undead(void) } } } + +bool monster_is_waiting(const unit * u) +{ + int test = fval(u_race(u), RCF_ATTACK_MOVED) ? UFL_ISNEW : UFL_ISNEW | UFL_MOVED; + if (fval(u, test)) + return true; + return false; +} + +static void eaten_by_monster(unit * u) +{ + /* adjustment for smaller worlds */ + double multi = RESOURCE_QUANTITY * newterrain(T_PLAIN)->size / 10000.0; + int n = 0; + int horse = -1; + const resource_type *rhorse = get_resourcetype(R_HORSE); + const race *rc = u_race(u); + int scare; + + scare = rc_scare(rc); + if (scare>0) { + n = rng_int() % scare * u->number; + } else { + n = rng_int() % (u->number / 20 + 1); + horse = 0; + } + horse = horse ? i_get(u->items, rhorse->itype) : 0; + + n = (int)(n * multi); + if (n > 0) { + n = lovar(n); + n = MIN(rpeasants(u->region), n); + + if (n > 0) { + deathcounts(u->region, n); + rsetpeasants(u->region, rpeasants(u->region) - n); + ADDMSG(&u->region->msgs, msg_message("eatpeasants", "unit amount", u, n)); + } + } + if (horse > 0) { + i_change(&u->items, rhorse->itype, -horse); + ADDMSG(&u->region->msgs, msg_message("eathorse", "unit amount", u, horse)); + } +} + +static void absorbed_by_monster(unit * u) +{ + int n = rng_int() % (u->number / 20 + 1); + + if (n > 0) { + n = lovar(n); + n = MIN(rpeasants(u->region), n); + if (n > 0) { + rsetpeasants(u->region, rpeasants(u->region) - n); + scale_number(u, u->number + n); + ADDMSG(&u->region->msgs, msg_message("absorbpeasants", + "unit race amount", u, u_race(u), n)); + } + } +} + +static int scareaway(region * r, int anzahl) +{ + int n, p, diff = 0, emigrants[MAXDIRECTIONS]; + direction_t d; + + anzahl = MIN(MAX(1, anzahl), rpeasants(r)); + + /* Wandern am Ende der Woche (normal) oder wegen Monster. Die + * Wanderung wird erst am Ende von demographics () ausgefuehrt. + * emigrants[] ist local, weil r->newpeasants durch die Monster + * vielleicht schon hochgezaehlt worden ist. */ + + for (d = 0; d != MAXDIRECTIONS; d++) + emigrants[d] = 0; + + p = rpeasants(r); + assert(p >= 0 && anzahl >= 0); + for (n = MIN(p, anzahl); n; n--) { + direction_t dir = (direction_t)(rng_int() % MAXDIRECTIONS); + region *rc = rconnect(r, dir); + + if (rc && fval(rc->terrain, LAND_REGION)) { + ++diff; + rc->land->newpeasants++; + emigrants[dir]++; + } + } + rsetpeasants(r, p - diff); + assert(p >= diff); + return diff; +} + +static void scared_by_monster(unit * u) +{ + int n; + const race *rc = u_race(u); + int scare; + + scare = rc_scare(rc); + if (scare>0) { + n = rng_int() % scare * u->number; + } else { + n = rng_int() % (u->number / 4 + 1); + } + if (n > 0) { + n = lovar(n); + n = MIN(rpeasants(u->region), n); + if (n > 0) { + n = scareaway(u->region, n); + if (n > 0) { + ADDMSG(&u->region->msgs, msg_message("fleescared", + "amount unit", n, u)); + } + } + } +} + +void monster_kills_peasants(unit * u) +{ + if (!monster_is_waiting(u)) { + if (u_race(u)->flags & RCF_SCAREPEASANTS) { + scared_by_monster(u); + } + if (u_race(u)->flags & RCF_KILLPEASANTS) { + eaten_by_monster(u); + } + if (u_race(u)->flags & RCF_ABSORBPEASANTS) { + absorbed_by_monster(u); + } + } +} + +faction *get_or_create_monsters(void) +{ + faction *f = findfaction(MONSTER_ID); + if (!f) { + const race *rc = rc_get_or_create("dragon"); + const char *email = config_get("monster.email"); + f = addfaction(email ? email : "noreply@eressea.de", NULL, rc, default_locale, 0); + renumber_faction(f, MONSTER_ID); + faction_setname(f, "Monster"); + fset(f, FFL_NPC | FFL_NOIDLEOUT); + } + return f; +} + +faction *get_monsters(void) { + return get_or_create_monsters(); +} + +void make_zombie(unit * u) +{ + u_setfaction(u, get_monsters()); + scale_number(u, 1); + u->hp = unit_max_hp(u) * u->number; + u_setrace(u, get_race(RC_ZOMBIE)); + u->irace = NULL; +} diff --git a/src/monsters.h b/src/monsters.h index 02e41c0a4..a5a3ccd15 100644 --- a/src/monsters.h +++ b/src/monsters.h @@ -1,8 +1,48 @@ -#pragma once +/* +Copyright (c) 1998-2015, Enno Rehling +Katja Zedel -struct unit; -struct region; -struct faction; +Permission to use, copy, modify, and/or distribute this software for any +purpose with or without fee is hereby granted, provided that the above +copyright notice and this permission notice appear in all copies. -struct unit *spawn_seaserpent(struct region *r, struct faction *f); -void spawn_dragons(void); +THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES +WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR +ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES +WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN +ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF +OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. +**/ + +#ifndef H_GC_MONSTER +#define H_GC_MONSTER + +#include + +#ifdef __cplusplus +extern "C" { +#endif + + struct unit; + struct region; + struct faction; + + struct unit *spawn_seaserpent(struct region *r, struct faction *f); + void spawn_dragons(void); + void monsters_desert(struct faction *monsters); + + void monster_kills_peasants(struct unit *u); + bool monster_is_waiting(const struct unit *u); + struct faction *get_monsters(void); + struct faction *get_or_create_monsters(void); + void make_zombie(struct unit * u); + +#define MONSTER_ID 666 +#define is_monsters(f) ((f->flags & FFL_NPC) && f==get_monsters()) + +#ifdef __cplusplus +} +#endif +#endif diff --git a/src/monsters.test.c b/src/monsters.test.c index a44a354d9..3f2782173 100644 --- a/src/monsters.test.c +++ b/src/monsters.test.c @@ -10,7 +10,6 @@ #include #include -#include "monster.h" #include "monsters.h" #include "guard.h" #include "reports.h" @@ -54,8 +53,7 @@ static void create_monsters(faction **player, faction **monsters, unit **u, unit *monsters = get_or_create_monsters(); assert(rc_find((*monsters)->race->_name)); rc = rc_get_or_create((*monsters)->race->_name); - fset(rc, RCF_UNARMEDGUARD); - fset(rc, RCF_NPC); + fset(rc, RCF_UNARMEDGUARD|RCF_NPC|RCF_DRAGON); fset(*monsters, FFL_NOIDLEOUT); assert(fval(*monsters, FFL_NPC) && fval((*monsters)->race, RCF_UNARMEDGUARD) && fval((*monsters)->race, RCF_NPC) && fval(*monsters, FFL_NOIDLEOUT)); @@ -75,7 +73,7 @@ static void test_monsters_attack(CuTest * tc) create_monsters(&f, &f2, &u, &m); - guard(m, GUARD_TAX); + setguard(m, true); config_set("rules.monsters.attack_chance", "1"); @@ -92,7 +90,7 @@ static void test_monsters_attack_ocean(CuTest * tc) unit *u, *m; create_monsters(&f, &f2, &u, &m); - r = findregion(-1, 0); // ocean + r = findregion(-1, 0); /* ocean */ u = test_create_unit(u->faction, r); unit_setid(u, 2); m = test_create_unit(m->faction, r); @@ -112,7 +110,7 @@ static void test_monsters_waiting(CuTest * tc) unit *u, *m; create_monsters(&f, &f2, &u, &m); - guard(m, GUARD_TAX); + setguard(m, true); fset(m, UFL_ISNEW); monster_attacks(m, false, false); CuAssertPtrEquals(tc, 0, find_order("attack 1", m)); @@ -127,7 +125,7 @@ static void test_seaserpent_piracy(CuTest * tc) race *rc; create_monsters(&f, &f2, &u, &m); - r = findregion(-1, 0); // ocean + r = findregion(-1, 0); /* ocean */ u = test_create_unit(u->faction, r); unit_setid(u, 2); m = test_create_unit(m->faction, r); @@ -151,8 +149,8 @@ static void test_monsters_attack_not(CuTest * tc) create_monsters(&f, &f2, &u, &m); - guard(m, GUARD_TAX); - guard(u, GUARD_TAX); + setguard(m, true); + setguard(u, true); config_set("rules.monsters.attack_chance", "0"); @@ -171,7 +169,7 @@ static void test_dragon_attacks_the_rich(CuTest * tc) create_monsters(&f, &f2, &u, &m); init_resources(); - guard(m, GUARD_TAX); + setguard(m, true); set_level(m, SK_WEAPONLESS, 10); rsetmoney(findregion(0, 0), 1); @@ -200,7 +198,7 @@ static void test_dragon_moves(CuTest * tc) create_monsters(&f, &f2, &u, &m); rsetmoney(findregion(1, 0), 1000); - r = findregion(0, 0); // plain + r = findregion(0, 0); /* plain */ rsetpeasants(r, 0); rsetmoney(r, 0); diff --git a/src/morale.c b/src/morale.c index 8dc22ccb5..67108333e 100644 --- a/src/morale.c +++ b/src/morale.c @@ -31,10 +31,9 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include -static double rc_popularity(const struct race *rc) +static double popularity(void) { - int pop = get_param_int(rc->parameters, "morale", MORALE_AVERAGE); - return 1.0 / (pop - MORALE_COOLDOWN); /* 10 turns average */ + return 1.0 / (MORALE_AVERAGE - MORALE_COOLDOWN); /* 10 turns average */ } void morale_update(region *r) { @@ -52,7 +51,7 @@ void morale_update(region *r) { if (morale < maxmorale) { if (stability > MORALE_COOLDOWN && r->land->ownership->owner && morale < MORALE_MAX) { - double ch = rc_popularity(r->land->ownership->owner->race); + double ch = popularity(); if (is_cursed(r->attribs, C_GENEROUS, 0)) { ch *= 1.2; /* 20% improvement */ } @@ -73,7 +72,7 @@ void morale_update(region *r) { void morale_change(region *r, int value) { int morale = region_get_morale(r); if (morale > 0) { - morale = _max(0, morale - value); + morale = MAX(0, morale - value); region_set_morale(r, morale, turn); } } diff --git a/src/move.c b/src/move.c index c95775b5a..8ad25bc5a 100644 --- a/src/move.c +++ b/src/move.c @@ -1,4 +1,4 @@ -/* +/* Copyright (c) 1998-2014, Enno Rehling Katja Zedel #include #include "move.h" +#include "guard.h" #include "laws.h" #include "reports.h" #include "study.h" #include "alchemy.h" #include "travelthru.h" #include "vortex.h" -#include "monster.h" +#include "monsters.h" #include "lighthouse.h" #include "piracy.h" @@ -43,7 +44,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include #include #include #include @@ -151,8 +151,8 @@ static void shiptrail_finalize(attrib * a) static int shiptrail_age(attrib * a, void *owner) { traveldir *t = (traveldir *)(a->data.v); - unused_arg(owner); + (void)owner; t->age--; return (t->age > 0) ? AT_AGE_KEEP : AT_AGE_REMOVE; } @@ -163,6 +163,7 @@ static int shiptrail_read(attrib * a, void *owner, struct gamedata *data) int n; traveldir *t = (traveldir *)(a->data.v); + UNUSED_ARG(owner); READ_INT(store, &t->no); READ_INT(store, &n); t->dir = (direction_t)n; @@ -174,6 +175,8 @@ static void shiptrail_write(const attrib * a, const void *owner, struct storage *store) { traveldir *t = (traveldir *)(a->data.v); + + UNUSED_ARG(owner); WRITE_INT(store, t->no); WRITE_INT(store, t->dir); WRITE_INT(store, t->age); @@ -204,6 +207,8 @@ static bool entrance_allowed(const struct unit *u, const struct region *r) return true; return false; #else + UNUSED_ARG(u); + UNUSED_ARG(r); return true; #endif } @@ -267,12 +272,12 @@ static int ridingcapacity(unit * u) ** tragen nichts (siehe walkingcapacity). Ein Wagen zählt nur, wenn er ** von zwei Pferden gezogen wird */ - animals = _min(animals, effskill(u, SK_RIDING, 0) * u->number * 2); + animals = MIN(animals, effskill(u, SK_RIDING, 0) * u->number * 2); if (fval(u_race(u), RCF_HORSE)) animals += u->number; /* maximal diese Pferde können zum Ziehen benutzt werden */ - vehicles = _min(animals / HORSESNEEDED, vehicles); + vehicles = MIN(animals / HORSESNEEDED, vehicles); return vehicles * vcap + animals * acap; } @@ -291,7 +296,7 @@ int walkingcapacity(const struct unit *u) /* Das Gewicht, welches die Pferde tragen, plus das Gewicht, welches * die Leute tragen */ - pferde_fuer_wagen = _min(animals, effskill(u, SK_RIDING, 0) * u->number * 4); + pferde_fuer_wagen = MIN(animals, effskill(u, SK_RIDING, 0) * u->number * 4); if (fval(u_race(u), RCF_HORSE)) { animals += u->number; people = 0; @@ -301,7 +306,7 @@ int walkingcapacity(const struct unit *u) } /* maximal diese Pferde können zum Ziehen benutzt werden */ - wagen_mit_pferden = _min(vehicles, pferde_fuer_wagen / HORSESNEEDED); + wagen_mit_pferden = MIN(vehicles, pferde_fuer_wagen / HORSESNEEDED); n = wagen_mit_pferden * vcap; @@ -311,7 +316,7 @@ int walkingcapacity(const struct unit *u) wagen_ohne_pferde = vehicles - wagen_mit_pferden; /* Genug Trolle, um die Restwagen zu ziehen? */ - wagen_mit_trollen = _min(u->number / 4, wagen_ohne_pferde); + wagen_mit_trollen = MIN(u->number / 4, wagen_ohne_pferde); /* Wagenkapazität hinzuzählen */ n += wagen_mit_trollen * vcap; @@ -335,7 +340,7 @@ int walkingcapacity(const struct unit *u) int belts = i_get(u->items, rbelt->itype); if (belts) { int multi = config_get_int("rules.trollbelt.multiplier", STRENGTHMULTIPLIER); - n += _min(people, belts) * (multi - 1) * u_race(u)->capacity; + n += MIN(people, belts) * (multi - 1) * u_race(u)->capacity; } } @@ -366,7 +371,7 @@ static int canwalk(unit * u) effsk = effskill(u, SK_RIDING, 0); maxwagen = effsk * u->number * 2; if (u_race(u) == get_race(RC_TROLL)) { - maxwagen = _max(maxwagen, u->number / 4); + maxwagen = MAX(maxwagen, u->number / 4); } maxpferde = effsk * u->number * 4 + u->number; @@ -466,6 +471,8 @@ static int canride(unit * u) static bool cansail(const region * r, ship * sh) { + UNUSED_ARG(r); + /* sonst ist construction:: size nicht ship_type::maxsize */ assert(!sh->type->construction || sh->type->construction->improvement == NULL); @@ -490,6 +497,8 @@ static bool cansail(const region * r, ship * sh) static double overload(const region * r, ship * sh) { + UNUSED_ARG(r); + /* sonst ist construction:: size nicht ship_type::maxsize */ assert(!sh->type->construction || sh->type->construction->improvement == NULL); @@ -500,12 +509,12 @@ static double overload(const region * r, ship * sh) else { int n = 0, p = 0; int mcabins = sh->type->cabins; + double ovl; getshipweight(sh, &n, &p); - - double ovl = n / (double)sh->type->cargo; + ovl = n / (double)sh->type->cargo; if (mcabins) - ovl = _max(ovl, p / (double)mcabins); + ovl = MAX(ovl, p / (double)mcabins); return ovl; } } @@ -571,7 +580,7 @@ direction_t reldirection(const region * from, const region * to) return NODIRECTION; } -static void leave_trail(ship * sh, region * from, region_list * route) +void leave_trail(ship * sh, region * from, region_list * route) { region *r = from; @@ -595,7 +604,7 @@ static void leave_trail(ship * sh, region * from, region_list * route) a = a->next; } - if (a == NULL) { + if (a == NULL || a->type != &at_shiptrail) { a = a_add(&(r->attribs), a_new(&at_shiptrail)); td = (traveldir *)a->data.v; td->no = sh->no; @@ -752,7 +761,7 @@ double damage_overload(double overload) badness = overload - overload_worse(); if (badness >= 0) { assert(overload_worst() > overload_worse() || !"overload.worst must be > overload.worse"); - damage += _min(badness, overload_worst() - overload_worse()) * + damage += MIN(badness, overload_worst() - overload_worse()) * (overload_max_damage() - damage) / (overload_worst() - overload_worse()); } @@ -792,7 +801,7 @@ region * drift_target(ship *sh) { if (rn != NULL && check_ship_allowed(sh, rn) >= 0) { rnext = rn; if (!fval(rnext->terrain, SEA_REGION)) { - // prefer drifting towards non-ocean regions + /* prefer drifting towards non-ocean regions */ break; } } @@ -934,7 +943,7 @@ static unit *bewegung_blockiert_von(unit * reisender, region * r) if (fval(u_race(reisender), RCF_ILLUSIONARY)) return NULL; for (u = r->units; u; u = u->next) { - if (is_guard(u, GUARD_TRAVELTHRU)) { + if (is_guard(u)) { int sk = effskill(u, SK_PERCEPTION, r); if (invisible(reisender, u) >= reisender->number) continue; @@ -943,10 +952,10 @@ static unit *bewegung_blockiert_von(unit * reisender, region * r) if ((u->faction == reisender->faction) || (ucontact(u, reisender)) || (alliedunit(u, reisender->faction, HELP_GUARD))) guard_count = guard_count - u->number; else if (sk >= stealth) { - guard_count += u->number; double prob_u = (sk - stealth) * skill_prob; + guard_count += u->number; /* amulet counts at most once */ - prob_u += _min(1, _min(u->number, i_get(u->items, ramulet->itype))) * amulet_prob; + prob_u += MIN(1, MIN(u->number, i_get(u->items, ramulet->itype))) * amulet_prob; if (u->building && (u->building->type == castle_bt) && u == building_owner(u->building)) prob_u += castle_prob*buildingeffsize(u->building, 0); if (prob_u >= prob) { @@ -977,82 +986,6 @@ static unit *bewegung_blockiert_von(unit * reisender, region * r) return NULL; } -static bool is_guardian_u(const unit * guard, unit * u, unsigned int mask) -{ - if (guard->faction == u->faction) - return false; - if (is_guard(guard, mask) == 0) - return false; - if (alliedunit(guard, u->faction, HELP_GUARD)) - return false; - if (ucontact(guard, u)) - return false; - if (!cansee(guard->faction, u->region, u, 0)) - return false; - if (!(u_race(guard)->flags & RCF_FLY) && u_race(u)->flags & RCF_FLY) - return false; - - return true; -} - -static bool is_guardian_r(const unit * guard) -{ - if (guard->number == 0) - return false; - if (besieged(guard)) - return false; - - /* if region_owners exist then they may be guardians: */ - if (guard->building && rule_region_owners() && guard == building_owner(guard->building)) { - faction *owner = region_get_owner(guard->region); - if (owner == guard->faction) { - building *bowner = largestbuilding(guard->region, &cmp_taxes, false); - if (bowner == guard->building) { - return true; - } - } - } - - if ((guard->flags & UFL_GUARD) == 0) - return false; - return armedmen(guard, true) > 0 || fval(u_race(guard), RCF_UNARMEDGUARD); -} - -bool is_guard(const struct unit * u, unsigned int mask) -{ - return is_guardian_r(u) && (getguard(u) & mask) != 0; -} - -unit *is_guarded(region * r, unit * u, unsigned int mask) -{ - unit *u2; - int noguards = 1; - - if (!fval(r, RF_GUARDED)) { - return NULL; - } - - /* at this point, u2 is the last unit we tested to - * be a guard (and failed), or NULL - * i is the position of the first free slot in the cache */ - - for (u2 = r->units; u2; u2 = u2->next) { - if (is_guardian_r(u2)) { - noguards = 0; - if (is_guardian_u(u2, u, mask)) { - /* u2 is our guard. stop processing (we might have to go further next time) */ - return u2; - } - } - } - - if (noguards) { - /* you are mistaken, sir. there are no guards in these lands */ - freset(r, RF_GUARDED); - } - return NULL; -} - bool move_blocked(const unit * u, const region * r, const region * r2) { connection *b; @@ -1316,9 +1249,9 @@ static bool roadto(const region * r, direction_t dir) if (!r || dir >= MAXDIRECTIONS || dir < 0) return false; r2 = rconnect(r, dir); - if (r == NULL || r2 == NULL) + if (!r2) { return false; - + } if (r->attribs || r2->attribs) { const curse_type *roads_ct = ct_find("magicstreet"); if (roads_ct != NULL) { @@ -1465,16 +1398,15 @@ static void make_route(unit * u, order * ord, region_list ** routep) static int movement_speed(unit * u) { int mp = BP_WALKING; - double dk = u_race(u)->speed; - + const race *rc = u_race(u); + double dk = rc->speed; assert(u->number); /* dragons have a fixed speed, and no other effects work on them: */ - switch (old_race(u_race(u))) { - case RC_DRAGON: - case RC_WYRM: - case RC_FIREDRAGON: + if (fval(rc, RCF_DRAGON)) { return BP_DRAGON; - case RC_BIRTHDAYDRAGON: + } + switch (old_race(u_race(u))) { + case RC_BIRTHDAYDRAGON: /* FIXME: catdragon has RCF_DRAGON, so this cannot happen */ case RC_SONGDRAGON: mp = BP_DRAGON; break; @@ -1541,9 +1473,9 @@ static arg_regions *var_copy_regions(const region_list * begin, int size) if (size > 0) { int i = 0; + arg_regions *dst; assert(size > 0); - arg_regions *dst = - (arg_regions *)malloc(sizeof(arg_regions) + sizeof(region *) * (size_t)size); + dst = (arg_regions *)malloc(sizeof(arg_regions) + sizeof(region *) * (size_t)size); assert_alloc(dst); dst->nregions = size; dst->regions = (region **)(dst + 1); @@ -1692,7 +1624,7 @@ static const region_list *travel_route(unit * u, /* the unit has moved at least one region */ int walkmode; - setguard(u, GUARD_NONE); + setguard(u, false); cycle_route(ord, u, steps); if (mode == TRAVEL_RUNNING) { @@ -1720,7 +1652,7 @@ static const region_list *travel_route(unit * u, /* make orders for the followers */ } fset(u, UFL_LONGACTION | UFL_NOTMOVING); - setguard(u, GUARD_NONE); + setguard(u, false); assert(u->region == current); return iroute; } @@ -1791,7 +1723,7 @@ bool can_takeoff(const ship * sh, const region * from, const region * to) return true; } -static void sail(unit * u, order * ord, region_list ** routep) +static void sail(unit * u, order * ord, region_list ** routep, bool drifting) { region *starting_point = u->region; region *current_point, *last_point; @@ -1801,8 +1733,8 @@ static void sail(unit * u, order * ord, region_list ** routep) faction *f = u->faction; region *next_point = NULL; int error; - double damage_storm = config_get_flt("rules.ship.damage_storm", 0.02); - bool storms_enabled = config_get_int("rules.ship.storms", 1) != 0; + bool storms_enabled = drifting && (config_get_int("rules.ship.storms", 1) != 0); + double damage_storm = storms_enabled ? config_get_flt("rules.ship.damage_storm", 0.02) : 0.0; int lighthouse_div = config_get_int("rules.storm.lighthouse.divisor", 0); const char *token = getstrtoken(); @@ -1838,8 +1770,6 @@ static void sail(unit * u, order * ord, region_list ** routep) * befahrene Region. */ while (next_point && current_point != next_point && step < k) { - const char *token; - int error; const terrain_type *tthis = current_point->terrain; /* these values need to be updated if next_point changes (due to storms): */ const terrain_type *tnext = next_point->terrain; @@ -1910,7 +1840,7 @@ static void sail(unit * u, order * ord, region_list ** routep) } } } - } // storms_enabled + } /* storms_enabled */ if (!fval(tthis, SEA_REGION)) { if (!fval(tnext, SEA_REGION)) { /* check that you're not traveling from one land region to another. */ @@ -2062,7 +1992,7 @@ static void sail(unit * u, order * ord, region_list ** routep) const luxury_type *ltype = resource2luxury(itm->type->rtype); if (ltype != NULL && itm->number > 0) { int st = itm->number * effskill(harbourmaster, SK_TRADE, 0) / 50; - st = _min(itm->number, st); + st = MIN(itm->number, st); if (st > 0) { i_change(&u2->items, itm->type, -st); @@ -2131,7 +2061,9 @@ static const region_list *travel_i(unit * u, const region_list * route_begin, route_end = cap_route(r, route_begin, route_end, movement_speed(u)); route_end = travel_route(u, route_begin, route_end, ord, mode); - get_followers(u, r, route_end, followers); + if (u->flags&UFL_FOLLOWED) { + get_followers(u, r, route_end, followers); + } /* transportation */ for (ord = u->orders; ord; ord = ord->next) { @@ -2218,7 +2150,7 @@ static void travel(unit * u, region_list ** routep) sh = NULL; } if (sh) { - unit *guard = is_guarded(r, u, GUARD_LANDING); + unit *guard = is_guarded(r, u); if (guard) { ADDMSG(&u->faction->msgs, msg_feedback(u, u->thisorder, "region_guarded", "guard", guard)); @@ -2278,7 +2210,8 @@ void move_cmd(unit * u, order * ord) assert(u->number); if (u->ship && u == ship_owner(u->ship)) { - sail(u, ord, &route); + bool drifting = (getkeyword(ord) == K_MOVE); + sail(u, ord, &route, drifting); } else { travel(u, &route); diff --git a/src/move.h b/src/move.h index 70dddbb0b..4d0b4e9f2 100644 --- a/src/move.h +++ b/src/move.h @@ -16,11 +16,12 @@ ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ +#include "direction.h" +#include + #ifndef H_KRNL_MOVEMENT #define H_KRNL_MOVEMENT -#include "direction.h" - #ifdef __cplusplus extern "C" { #endif @@ -60,11 +61,11 @@ extern "C" { int personcapacity(const struct unit *u); void movement(void); void run_to(struct unit *u, struct region *to); - struct unit *is_guarded(struct region *r, struct unit *u, unsigned int mask); - bool is_guard(const struct unit *u, unsigned int mask); int enoughsailors(const struct ship *sh, int sumskill); bool canswim(struct unit *u); bool canfly(struct unit *u); + void leave_trail(struct ship *sh, struct region *from, + struct region_list *route); struct ship *move_ship(struct ship *sh, struct region *from, struct region *to, struct region_list *route); int walkingcapacity(const struct unit *u); diff --git a/src/move.test.c b/src/move.test.c index 2ce9cccda..ab30300e8 100644 --- a/src/move.test.c +++ b/src/move.test.c @@ -2,8 +2,8 @@ #include #include "move.h" -#include "guard.h" #include "keyword.h" +#include "lighthouse.h" #include #include @@ -158,16 +158,14 @@ static void test_ship_has_harbormaster_ally(CuTest * tc) { } static void test_walkingcapacity(CuTest *tc) { - region *r; unit *u; int cap; const struct item_type *itype; - test_cleanup(); - test_create_world(); + test_setup(); + init_resources(); - r = findregion(0, 0); - u = test_create_unit(test_create_faction(0), r); + u = test_create_unit(test_create_faction(NULL), test_create_region(0, 0, NULL)); cap = u->number * (u->_race->capacity + u->_race->weight); CuAssertIntEquals(tc, cap, walkingcapacity(u)); scale_number(u, 2); @@ -183,7 +181,7 @@ static void test_walkingcapacity(CuTest *tc) { cap += itype->capacity; CuAssertIntEquals(tc, cap, walkingcapacity(u)); - itype = it_find("cart"); + itype = test_create_itemtype("cart"); assert(itype); i_change(&u->items, itype, 1); CuAssertIntEquals(tc, cap, walkingcapacity(u)); @@ -201,30 +199,6 @@ static void test_walkingcapacity(CuTest *tc) { test_cleanup(); } -static void test_is_guarded(CuTest *tc) { - unit *u1, *u2; - region *r; - race *rc; - - test_cleanup(); - rc = rc_get_or_create("dragon"); - rc->flags |= RCF_UNARMEDGUARD; - r = test_create_region(0, 0, 0); - u1 = test_create_unit(test_create_faction(0), r); - u2 = test_create_unit(test_create_faction(rc), r); - CuAssertPtrEquals(tc, 0, is_guarded(r, u1, GUARD_TRAVELTHRU)); - CuAssertPtrEquals(tc, 0, is_guarded(r, u1, GUARD_PRODUCE)); - CuAssertPtrEquals(tc, 0, is_guarded(r, u1, GUARD_TREES)); - CuAssertPtrEquals(tc, 0, is_guarded(r, u1, GUARD_MINING)); - guard(u2, GUARD_MINING | GUARD_PRODUCE); - CuAssertIntEquals(tc, GUARD_CREWS | GUARD_LANDING | GUARD_TRAVELTHRU | GUARD_TAX | GUARD_PRODUCE | GUARD_RECRUIT, guard_flags(u2)); - CuAssertPtrEquals(tc, 0, is_guarded(r, u1, GUARD_TRAVELTHRU)); - CuAssertPtrEquals(tc, 0, is_guarded(r, u1, GUARD_TREES)); - CuAssertPtrEquals(tc, 0, is_guarded(r, u1, GUARD_MINING)); - CuAssertPtrEquals(tc, u2, is_guarded(r, u1, GUARD_PRODUCE)); - test_cleanup(); -} - static void test_ship_trails(CuTest *tc) { ship *sh; region *r1, *r2, *r3; @@ -289,19 +263,19 @@ struct drift_fixture { }; void setup_drift (struct drift_fixture *fix) { - test_cleanup(); + test_setup(); + test_create_locale(); config_set("rules.ship.storms", "0"); - test_create_world(); - test_create_shiptype("drifter"); - fix->st_boat = st_get_or_create("drifter"); + fix->st_boat = test_create_shiptype("boat"); fix->st_boat->cabins = 20000; - fix->u = test_create_unit(fix->f = test_create_faction(0), fix->r=findregion(-1,0)); - assert(fix->r); + test_create_ocean(0, 0); + fix->u = test_create_unit(fix->f = test_create_faction(0), fix->r = test_create_ocean(-1, 0)); + assert(fix->r && fix->u && fix->f); set_level(fix->u, SK_SAILING, fix->st_boat->sumskill); u_set_ship(fix->u, fix->sh = test_create_ship(fix->u->region, fix->st_boat)); - assert(fix->f && fix->u && fix->sh); + assert(fix->sh); } static void test_ship_no_overload(CuTest *tc) { @@ -458,11 +432,14 @@ static void test_follow_ship_msg(CuTest * tc) { order *ord; traveldir *td = NULL; attrib *a; + void *p; + + test_setup(); + init_resources(); - test_cleanup(); - test_create_world(); f = test_create_faction(0); - r = findregion(0, 0); + r = test_create_plain(0, 0); + test_create_ocean(-1, 1); /* D_NORTHWEST */ stype = st_find("boat"); sh = test_create_ship(r, stype); @@ -475,7 +452,7 @@ static void test_follow_ship_msg(CuTest * tc) { assert(ord); unit_addorder(u, ord); - set_money(u, 999999); + set_money(u, 999999); /* overloaded ship */ a = a_add(&(r->attribs), a_new(&at_shiptrail)); td = (traveldir *)a->data.v; @@ -491,7 +468,7 @@ static void test_follow_ship_msg(CuTest * tc) { follow_ship(u, ord); CuAssertPtrNotNull(tc, msg = test_find_messagetype(u->faction->msgs, "error18")); - void *p = msg->parameters[2].v; + p = msg->parameters[2].v; CuAssertPtrNotNull(tc, p); CuAssertIntEquals(tc, K_FOLLOW, getkeyword((order *)p)); @@ -503,7 +480,7 @@ static void test_drifting_ships(CuTest *tc) { region *r1, *r2, *r3; terrain_type *t_ocean, *t_plain; ship_type *st_boat; - test_cleanup(); + test_setup(); t_ocean = test_create_terrain("ocean", SEA_REGION); t_plain = test_create_terrain("plain", LAND_REGION); r1 = test_create_region(0, 0, t_ocean); @@ -516,17 +493,46 @@ static void test_drifting_ships(CuTest *tc) { test_cleanup(); } +static void test_ship_leave_trail(CuTest *tc) { + ship *s1, *s2; + region *r1, *r2; + terrain_type *t_ocean; + ship_type *st_boat; + region_list *route = NULL; + + test_setup(); + t_ocean = test_create_terrain("ocean", SEA_REGION); + r1 = test_create_region(0, 0, t_ocean); + add_regionlist(&route, test_create_region(2, 0, t_ocean)); + add_regionlist(&route, r2 = test_create_region(1, 0, t_ocean)); + st_boat = test_create_shiptype("boat"); + s1 = test_create_ship(r1, st_boat); + s2 = test_create_ship(r1, st_boat); + leave_trail(s1, r1, route); + a_add(&r1->attribs, a_new(&at_lighthouse)); + leave_trail(s2, r1, route); + a_add(&r2->attribs, a_new(&at_lighthouse)); + CuAssertPtrEquals(tc, &at_shiptrail, (void *)r1->attribs->type); + CuAssertPtrEquals(tc, &at_shiptrail, (void *)r1->attribs->next->type); + CuAssertPtrEquals(tc, &at_lighthouse, (void *)r1->attribs->next->next->type); + CuAssertPtrEquals(tc, &at_shiptrail, (void *)r2->attribs->type); + CuAssertPtrEquals(tc, &at_shiptrail, (void *)r2->attribs->next->type); + CuAssertPtrEquals(tc, &at_lighthouse, (void *)r2->attribs->next->next->type); + free_regionlist(route); + test_cleanup(); +} + CuSuite *get_move_suite(void) { CuSuite *suite = CuSuiteNew(); SUITE_ADD_TEST(suite, test_walkingcapacity); SUITE_ADD_TEST(suite, test_ship_not_allowed_in_coast); + SUITE_ADD_TEST(suite, test_ship_leave_trail); SUITE_ADD_TEST(suite, test_ship_allowed_without_harbormaster); SUITE_ADD_TEST(suite, test_ship_blocked_by_harbormaster); SUITE_ADD_TEST(suite, test_ship_has_harbormaster_contact); SUITE_ADD_TEST(suite, test_ship_has_harbormaster_ally); SUITE_ADD_TEST(suite, test_ship_has_harbormaster_same_faction); - SUITE_ADD_TEST(suite, test_is_guarded); SUITE_ADD_TEST(suite, test_ship_trails); SUITE_ADD_TEST(suite, test_age_trails); SUITE_ADD_TEST(suite, test_ship_no_overload); diff --git a/src/names.c b/src/names.c index 99c21a05e..bc740a704 100644 --- a/src/names.c +++ b/src/names.c @@ -45,13 +45,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include -static const char *describe_race(const race * rc, const struct locale *lang) -{ - char zText[32]; - sprintf(zText, "describe_%s", rc->_name); - return locale_getstring(lang, zText); -} - static void count_particles(const char *monster, int *num_prefix, int *num_name, int *num_postfix) { char zText[32]; @@ -219,15 +212,6 @@ const char *silbe3[SIL3] = { "bus", }; -static void generic_name(unit * u) -{ - const char * name = rc_name_s(u_race(u), (u->number == 1) ? NAME_SINGULAR : NAME_PLURAL); - name = LOC(u->faction->locale, name); - if (name) { - unit_setname(u, name); - } -} - static void dragon_name(unit * u) { char name[NAMESIZE + 1]; @@ -284,7 +268,7 @@ static void dragon_name(unit * u) if (u->number > 1) { const char *no_article = strchr((const char *)str, ' '); assert(no_article); - // TODO: localization + /* TODO: localization */ sprintf(name, "Die %sn von %s", no_article + 1, rname(u->region, default_locale)); } @@ -369,7 +353,7 @@ static void dracoid_name(unit * u) size_t sz; /* ignore u */ - unused_arg(u); + UNUSED_ARG(u); /* Wieviele Mittelteile? */ mid_syllabels = rng_int() % 4; @@ -398,30 +382,30 @@ const char *abkz(const char *s, char *buf, size_t buflen, size_t maxchars) size_t size; int result; - /* Prfen, ob Kurz genug */ - + UNUSED_ARG(buflen); + /* Pr�fen, ob Kurz genug */ if (strlen(s) <= maxchars) { return s; } - /* Anzahl der Wrter feststellen */ + /* Anzahl der W�rter feststellen */ while (*p != 0) { result = unicode_utf8_to_ucs4(&ucs, p, &size); assert(result == 0 || "damnit, we're not handling invalid input here!"); - /* Leerzeichen berspringen */ + /* Leerzeichen �berspringen */ while (*p != 0 && !iswalnum((wint_t)ucs)) { p += size; result = unicode_utf8_to_ucs4(&ucs, p, &size); assert(result == 0 || "damnit, we're not handling invalid input here!"); } - /* Counter erhhen */ + /* Counter erh�hen */ if (*p != 0) ++c; - /* alnums berspringen */ + /* alnums �berspringen */ while (*p != 0 && iswalnum((wint_t)ucs)) { p += size; result = unicode_utf8_to_ucs4(&ucs, p, &size); @@ -429,10 +413,10 @@ const char *abkz(const char *s, char *buf, size_t buflen, size_t maxchars) } } - /* Buchstaben pro Teilkrzel = _max(1,max/AnzWort) */ - bpt = (c > 0) ? _max(1, maxchars / c) : 1; + /* Buchstaben pro Teilk�rzel = MAX(1,max/AnzWort) */ + bpt = (c > 0) ? MAX(1, maxchars / c) : 1; - /* Einzelne Wrter anspringen und jeweils die ersten BpT kopieren */ + /* Einzelne W�rter anspringen und jeweils die ersten BpT kopieren */ p = s; c = 0; @@ -442,7 +426,7 @@ const char *abkz(const char *s, char *buf, size_t buflen, size_t maxchars) assert(result == 0 || "damnit, we're not handling invalid input here!"); while (*p != 0 && c < maxchars) { - /* Leerzeichen berspringen */ + /* Leerzeichen �berspringen */ while (*p != 0 && !iswalnum((wint_t)ucs)) { p += size; @@ -450,7 +434,7 @@ const char *abkz(const char *s, char *buf, size_t buflen, size_t maxchars) assert(result == 0 || "damnit, we're not handling invalid input here!"); } - /* alnums bertragen */ + /* alnums �bertragen */ for (i = 0; i < bpt && *p != 0 && iswalnum((wint_t)ucs); ++i) { memcpy(bufp, p, size); @@ -462,7 +446,7 @@ const char *abkz(const char *s, char *buf, size_t buflen, size_t maxchars) assert(result == 0 || "damnit, we're not handling invalid input here!"); } - /* Bis zum nchsten Leerzeichen */ + /* Bis zum n�chsten Leerzeichen */ while (c < maxchars && *p != 0 && iswalnum((wint_t)ucs)) { p += size; @@ -478,15 +462,16 @@ const char *abkz(const char *s, char *buf, size_t buflen, size_t maxchars) void register_names(void) { - register_race_description_function(describe_race, "describe_race"); /* function name * generate a name for a nonplayerunit - * race->generate_name() */ - register_race_name_function(undead_name, "nameundead"); - register_race_name_function(skeleton_name, "nameskeleton"); - register_race_name_function(zombie_name, "namezombie"); - register_race_name_function(ghoul_name, "nameghoul"); - register_race_name_function(dracoid_name, "namedracoid"); - register_race_name_function(dragon_name, "namedragon"); - register_race_name_function(generic_name, "namegeneric"); + * race->name_unit() */ + + register_race_function(undead_name, "name_undead"); + register_race_function(skeleton_name, "name_skeleton"); + register_race_function(zombie_name, "name_zombie"); + register_race_function(ghoul_name, "name_ghoul"); + register_race_function(dracoid_name, "name_dracoid"); + register_race_function(dragon_name, "name_dragon"); + register_race_function(dragon_name, "name_youngdragon"); + register_race_function(dragon_name, "name_wyrm"); } diff --git a/src/names.h b/src/names.h index 63e9c8628..d7ab417c1 100644 --- a/src/names.h +++ b/src/names.h @@ -18,6 +18,9 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #ifndef H_KRNL_NAMES #define H_KRNL_NAMES + +#include + #ifdef __cplusplus extern "C" { #endif diff --git a/src/names.test.c b/src/names.test.c index f50937f17..7d62d4752 100644 --- a/src/names.test.c +++ b/src/names.test.c @@ -4,6 +4,7 @@ #include #include +#include #include #include @@ -12,27 +13,51 @@ static void test_names(CuTest * tc) { - race_name_func foo; unit *u; race *rc; test_cleanup(); register_names(); + CuAssertPtrNotNull(tc, get_function("name_undead")); + CuAssertPtrNotNull(tc, get_function("name_skeleton")); + CuAssertPtrNotNull(tc, get_function("name_zombie")); + CuAssertPtrNotNull(tc, get_function("name_ghoul")); + CuAssertPtrNotNull(tc, get_function("name_dragon")); + CuAssertPtrNotNull(tc, get_function("name_youngdragon")); + CuAssertPtrNotNull(tc, get_function("name_wyrm")); + CuAssertPtrNotNull(tc, get_function("name_dracoid")); default_locale = test_create_locale(); - u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); rc = test_create_race("undead"); + u = test_create_unit(test_create_faction(rc), test_create_region(0, 0, 0)); locale_setstring(default_locale, "undead_name_0", "Graue"); locale_setstring(default_locale, "undead_postfix_0", "Kobolde"); - CuAssertPtrNotNull(tc, foo = (race_name_func)get_function("nameundead")); - rc->generate_name = foo; - race_namegen(rc, u); + CuAssertPtrNotNull(tc, rc->name_unit); + CuAssertTrue(tc, rc->name_unit == (race_func)get_function("name_undead")); + name_unit(u); CuAssertStrEquals(tc, "Graue Kobolde", u->_name); - CuAssertPtrNotNull(tc, get_function("nameskeleton")); - CuAssertPtrNotNull(tc, get_function("namezombie")); - CuAssertPtrNotNull(tc, get_function("nameghoul")); - CuAssertPtrNotNull(tc, get_function("namedragon")); - CuAssertPtrNotNull(tc, get_function("namedracoid")); - CuAssertPtrNotNull(tc, get_function("namegeneric")); - CuAssertPtrNotNull(tc, get_function("describe_race")); + test_cleanup(); +} + +static void test_monster_names(CuTest *tc) { + unit *u; + faction *f; + race *rc; + + test_setup(); + register_names(); + default_locale = test_create_locale(); + locale_setstring(default_locale, "race::irongolem", "Eisengolem"); + locale_setstring(default_locale, "race::irongolem_p", "Eisengolems"); + rc = test_create_race("irongolem"); + f = test_create_faction(rc); + f->flags |= FFL_NPC; + u = test_create_unit(f, test_create_region(0, 0, 0)); + unit_setname(u, "Hodor"); + CuAssertPtrNotNull(tc, u->_name); + name_unit(u); + CuAssertPtrEquals(tc, NULL, u->_name); + CuAssertStrEquals(tc, "Eisengolem", unit_getname(u)); + u->number = 2; + CuAssertStrEquals(tc, "Eisengolems", unit_getname(u)); test_cleanup(); } @@ -40,5 +65,6 @@ CuSuite *get_names_suite(void) { CuSuite *suite = CuSuiteNew(); SUITE_ADD_TEST(suite, test_names); + SUITE_ADD_TEST(suite, test_monster_names); return suite; } diff --git a/src/piracy.c b/src/piracy.c index b2f96c596..80b1dd47a 100644 --- a/src/piracy.c +++ b/src/piracy.c @@ -149,8 +149,8 @@ void piracy_cmd(unit * u) region *rc = rconnect(r, dir); aff[dir].value = 0; aff[dir].target = 0; - // TODO this could still result in an illegal movement order (through a wall or whatever) - // which will be prevented by move_cmd below + /* TODO this could still result in an illegal movement order (through a wall or whatever) + * which will be prevented by move_cmd below */ if (rc && ((sh && !fval(rc->terrain, FORBIDDEN_REGION) && can_takeoff(sh, r, rc)) || (canswim(u) && fval(rc->terrain, SWIM_INTO) && fval(rc->terrain, SEA_REGION)))) { @@ -161,7 +161,8 @@ void piracy_cmd(unit * u) faction *f = visible_faction(cap->faction, cap); if (alliedunit(u, f, HELP_FIGHT)) continue; - if (!il || intlist_find(il, cap->faction->no)) { // TODO: shouldn't this be f->no? + if (!il || intlist_find(il, cap->faction->no)) { + /* TODO: shouldn't this be f->no? */ ++aff[dir].value; if (rng_int() % aff[dir].value == 0) { aff[dir].target = f; @@ -202,8 +203,8 @@ void piracy_cmd(unit * u) "ship unit region dir", sh, u, r, target_dir)); /* Befehl konstruieren */ - // TODO: why change u->thisorder? - // FIXME: when u->thisorder == ord, set_order calls free, destroys both. + /* TODO: why change u->thisorder? */ + /* FIXME: when u->thisorder == ord, set_order calls free, destroys both. */ ord = create_order(K_MOVE, u->faction->locale, "%s", LOC(u->faction->locale, directions[target_dir])); /* Bewegung ausfhren */ diff --git a/src/piracy.test.c b/src/piracy.test.c index affb6f5c4..40e66af18 100644 --- a/src/piracy.test.c +++ b/src/piracy.test.c @@ -83,12 +83,12 @@ static void test_piracy_cmd(CuTest * tc) { t_ocean = get_or_create_terrain("ocean"); st_boat = st_get_or_create("boat"); u2 = test_create_unit(test_create_faction(0), test_create_region(1, 0, t_ocean)); - u_set_ship(u2, test_create_ship(u2->region, st_boat)); assert(u2); + u_set_ship(u2, test_create_ship(u2->region, st_boat)); u = test_create_unit(f = test_create_faction(0), r = test_create_region(0, 0, t_ocean)); + assert(f && u); set_level(u, SK_SAILING, st_boat->sumskill); u_set_ship(u, test_create_ship(u->region, st_boat)); - assert(f && u); f->locale = get_or_create_locale("de"); u->thisorder = create_order(K_PIRACY, f->locale, "%s", itoa36(u2->faction->no)); @@ -97,7 +97,7 @@ static void test_piracy_cmd(CuTest * tc) { CuAssertTrue(tc, u->region != r); CuAssertPtrEquals(tc, u2->region, u->region); CuAssertPtrEquals(tc, u2->region, u->ship->region); - CuAssertPtrNotNullMsg(tc, "successful PIRACY sets attribute", r->attribs); // FIXME: this is testing implementation, not interface + CuAssertPtrNotNullMsg(tc, "successful PIRACY sets attribute", r->attribs); /* FIXME: this is testing implementation, not interface */ CuAssertPtrNotNullMsg(tc, "successful PIRACY message", test_find_messagetype(f->msgs, "piratesawvictim")); CuAssertPtrNotNullMsg(tc, "successful PIRACY movement", test_find_messagetype(f->msgs, "shipsail")); @@ -116,7 +116,7 @@ static void test_piracy_cmd_errors(CuTest * tc) { st_boat = st_get_or_create("boat"); r = test_create_race("pirates"); u = test_create_unit(f = test_create_faction(r), test_create_region(0, 0, get_or_create_terrain("ocean"))); - f->locale = get_or_create_locale("de"); + f->locale = test_create_locale(); u->thisorder = create_order(K_PIRACY, f->locale, ""); assert(u && u->thisorder); @@ -183,14 +183,14 @@ static void test_piracy_cmd_land_to_land(CuTest * tc) { t_plain = get_or_create_terrain("plain"); stype = test_create_shiptype("boat"); - // create a target: + /* create a target: */ r = test_create_region(0, 0, t_plain); f = test_create_faction(0); u = test_create_unit(f, r); u->ship = test_create_ship(r, stype); target = f->no; - // create a pirate: + /* create a pirate: */ r = test_create_region(1, 0, t_plain); f = test_create_faction(0); u = test_create_unit(f, r); diff --git a/src/platform.h b/src/platform.h index 77a767875..6ccbb8d6d 100644 --- a/src/platform.h +++ b/src/platform.h @@ -1,133 +1,46 @@ -/* -Copyright (c) 1998-2015, Enno Rehling - Katja Zedel +#pragma once -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#ifndef CONFIG_H -#define CONFIG_H - -#ifdef NDEBUG -#define LOMEM -#endif +#ifndef UNILIB_H +#define UNILIB_H #ifdef _MSC_VER -# define VC_EXTRALEAN -# define WIN32_LEAN_AND_MEAN -#pragma warning(push) -#pragma warning(disable:4820 4255 4668) -# include -# include -#pragma warning(pop) -# undef MOUSE_MOVED -# define STDIO_CP 1252 /* log.c, convert to console character set */ -# pragma warning (disable: 4201 4214 4514 4115 4711) -#if _MSC_VER >= 1900 -# pragma warning(disable: 4710) -/* warning C4710: function not inlined */ -# pragma warning(disable: 4456) -/* warning C4456 : declaration of hides previous local declaration */ -# pragma warning(disable: 4457) -/* warning C4457: declaration of hides function parameter */ -# pragma warning(disable: 4459) -/* warning C4459: declaration of hides global declaration */ +#ifndef __STDC__ +#define __STDC__ 1 // equivalent to /Za #endif -# pragma warning(disable: 4056) -/* warning C4056: overflow in floating point constant arithmetic */ -# pragma warning(disable: 4201) -/* warning C4201: nonstandard extension used : nameless struct/union */ -# pragma warning(disable: 4214) -/* warning C4214: nonstandard extension used : bit field types other than int */ -# pragma warning(disable: 4100) -/* warning C4100: : unreferenced formal parameter */ -# pragma warning(disable: 4996) -/* is not defined as a preprocessor macro, replacing with '0' for '#if/#elif' */ -# pragma warning(disable: 4668) -/* : bytes padding after data member */ -# pragma warning(disable: 4820) - -/* warning C4100: was declared deprecated */ -#ifndef _CRT_SECURE_NO_DEPRECATE -# define _CRT_SECURE_NO_DEPRECATE +#define NO_STRDUP +#define NO_MKDIR +#define _CRT_SECURE_NO_WARNINGS +#pragma warning(disable: 4710 4820) +#pragma warning(disable: 4100) // unreferenced formal parameter +#pragma warning(disable: 4456) // declaration hides previous +#pragma warning(disable: 4457) // declaration hides function parameter +#pragma warning(disable: 4459) // declaration hides global +#else /* assume gcc */ +#if !defined(__STDC_VERSION__) || __STDC_VERSION__ < 199901L +# define va_copy(a,b) __va_copy(a,b) #endif -/* - * http://msdn2.microsoft.com/en-us/library/ms235505(VS.80).aspx - * Defining _CRT_DISABLE_PERFCRIT_LOCKS forces all I/O operations to assume a - * single-threaded I/O model and use the _nolock forms of the functions. - */ -#ifndef _CRT_DISABLE_PERFCRIT_LOCKS -# define _CRT_DISABLE_PERFCRIT_LOCKS #endif -/* define CRTDBG to enable MSVC CRT Debug library functions */ -#if defined(_DEBUG) && defined(CRTDBG) -# include -# define _CRTDBG_MAP_ALLOC +#define _POSIX_C_SOURCE 200809L + +#ifndef MAX_PATH +# define MAX_PATH 4096 #endif -#endif /* _MSC_VER_ */ +#define UNUSED_ARG(a) (void)(a) -#if defined __GNUC__ -# undef _BSD_SOURCE -# define _BSD_SOURCE -# undef __USE_BSD -# define __USE_BSD -#endif - -#ifdef _BSD_SOURCE -# undef __EXTENSIONS__ -# define __EXTENSIONS__ -#endif - -#ifdef SOLARIS -# define _SYS_PROCSET_H -#undef _XOPEN_SOURCE -# define _XOPEN_SOURCE -#endif - -#define unused_arg (void) - -#ifndef INLINE_FUNCTION -# define INLINE_FUNCTION -#endif - -#define iswxspace(c) (c==160 || iswspace(c)) -#define isxspace(c) (c==160 || isspace(c)) +#define MIN(a, b) (((a) < (b)) ? (a) : (b)) +#define MAX(a, b) (((a) > (b)) ? (a) : (b)) #define TOLUA_CAST (char*) -#ifdef USE_AUTOCONF -# include +#ifdef NO_STRDUP +char * strdup(const char *s); #endif -#if !defined(MAX_PATH) -#if defined(PATH_MAX) -# define MAX_PATH PATH_MAX -#else -# define MAX_PATH 256 -#endif -#endif - -#ifdef HAVE_UNISTD_H -#include -#endif - -#ifdef HAVE_STRINGS_H -#include +#ifdef NO_MKDIR +int mkdir(const char *pathname, int mode); #endif #endif - diff --git a/src/prefix.c b/src/prefix.c index b6adb7c02..1a22e6982 100644 --- a/src/prefix.c +++ b/src/prefix.c @@ -1,6 +1,8 @@ #include #include "prefix.h" +#include + #include #include #include @@ -10,7 +12,7 @@ char **race_prefixes = NULL; static size_t size = 4; static unsigned int next = 0; -void add_raceprefix(const char *prefix) +int add_raceprefix(const char *prefix) { assert(prefix); if (race_prefixes == NULL) { @@ -19,11 +21,18 @@ void add_raceprefix(const char *prefix) race_prefixes = malloc(size * sizeof(char *)); } if (next + 1 == size) { + char **tmp; + tmp = realloc(race_prefixes, 2 * size * sizeof(char *)); + if (!tmp) { + log_fatal("allocation failure"); + return 1; + } + race_prefixes = tmp; size *= 2; - race_prefixes = realloc(race_prefixes, size * sizeof(char *)); } - race_prefixes[next++] = _strdup(prefix); + race_prefixes[next++] = strdup(prefix); race_prefixes[next] = NULL; + return 0; } void free_prefixes(void) { diff --git a/src/prefix.h b/src/prefix.h index 9c5b84907..96d07aa02 100644 --- a/src/prefix.h +++ b/src/prefix.h @@ -7,8 +7,8 @@ extern "C" { #endif - void add_raceprefix(const char *); - char **race_prefixes; // zero-terminated array of valid prefixes + int add_raceprefix(const char *); + char **race_prefixes; /* zero-terminated array of valid prefixes */ void free_prefixes(void); #ifdef __cplusplus diff --git a/src/prefix.test.c b/src/prefix.test.c index 222c19f85..a914426fa 100644 --- a/src/prefix.test.c +++ b/src/prefix.test.c @@ -8,11 +8,11 @@ static void test_add_prefix(CuTest *tc) { test_setup(); CuAssertPtrEquals(tc, 0, race_prefixes); - add_raceprefix("sea"); + CuAssertIntEquals(tc, 0, add_raceprefix("sea")); CuAssertPtrNotNull(tc, race_prefixes); CuAssertStrEquals(tc, "sea", race_prefixes[0]); CuAssertPtrEquals(tc, 0, race_prefixes[1]); - add_raceprefix("moon"); + CuAssertIntEquals(tc, 0, add_raceprefix("moon")); CuAssertStrEquals(tc, "sea", race_prefixes[0]); CuAssertStrEquals(tc, "moon", race_prefixes[1]); CuAssertPtrEquals(tc, 0, race_prefixes[2]); diff --git a/src/process.pkg b/src/process.pkg index 5db5c7344..a81917293 100755 --- a/src/process.pkg +++ b/src/process.pkg @@ -25,7 +25,6 @@ module eressea { void process_leave @ leave(void); /* LEAVE */ void process_maintenance @ maintenance(void); /* PAY */ void process_promote @ promote(void); /* PROMOTE */ - void process_renumber @ renumber(void); /* RENUMBER */ void process_restack @ restack(void); /* SORT */ void process_setspells @ set_spells(void); /* COMBATSPELL */ void process_sethelp @ set_help(void); /* HELP */ diff --git a/src/process.pkg.c b/src/process.pkg.c index 787258a96..42dff20ff 100644 --- a/src/process.pkg.c +++ b/src/process.pkg.c @@ -531,30 +531,6 @@ static int tolua_process_eressea_process_promote00(lua_State* tolua_S) #endif } -/* function: process_renumber */ -static int tolua_process_eressea_process_renumber00(lua_State* tolua_S) -{ -#ifndef TOLUA_RELEASE - tolua_Error tolua_err; - if ( - !tolua_isnoobj(tolua_S,1,&tolua_err) - ) - goto tolua_lerror; - else -#endif - { - { - process_renumber(); - } - } - return 0; -#ifndef TOLUA_RELEASE - tolua_lerror: - tolua_error(tolua_S,"#ferror in function 'renumber'.",&tolua_err); - return 0; -#endif -} - /* function: process_restack */ static int tolua_process_eressea_process_restack00(lua_State* tolua_S) { @@ -1021,7 +997,6 @@ LUALIB_API int luaopen_process (lua_State* tolua_S) tolua_function(tolua_S,"leave",tolua_process_eressea_process_leave00); tolua_function(tolua_S,"maintenance",tolua_process_eressea_process_maintenance00); tolua_function(tolua_S,"promote",tolua_process_eressea_process_promote00); - tolua_function(tolua_S,"renumber",tolua_process_eressea_process_renumber00); tolua_function(tolua_S,"restack",tolua_process_eressea_process_restack00); tolua_function(tolua_S,"set_spells",tolua_process_eressea_process_set_spells00); tolua_function(tolua_S,"set_help",tolua_process_eressea_process_set_help00); diff --git a/src/races/CMakeLists.txt b/src/races/CMakeLists.txt index 1f3044e3a..ff6025581 100644 --- a/src/races/CMakeLists.txt +++ b/src/races/CMakeLists.txt @@ -1,7 +1,6 @@ PROJECT(races C) SET(_FILES dragons.c -illusion.c races.c zombies.c ) diff --git a/src/races/dragons.c b/src/races/dragons.c index 828e68c64..aa79a783a 100644 --- a/src/races/dragons.c +++ b/src/races/dragons.c @@ -13,7 +13,6 @@ */ #include -#include /* kernel includes */ #include @@ -23,7 +22,7 @@ /* util includes */ #include -#define age_chance(a,b,p) (_max(0,a-b)*p) +#define age_chance(a,b,p) (MAX(0,a-b)*p) #define DRAGONAGE 27 #define WYRMAGE 68 diff --git a/src/races/illusion.c b/src/races/illusion.c deleted file mode 100644 index e2a05cfd3..000000000 --- a/src/races/illusion.c +++ /dev/null @@ -1,39 +0,0 @@ -/* - * Eressea PB(E)M host Copyright (C) 1998-2015 - * Christian Schlittchen (corwin@amber.kn-bremen.de) - * Katja Zedel (katze@felidae.kn-bremen.de) - * Henning Peters (faroul@beyond.kn-bremen.de) - * Enno Rehling (enno@eressea.de) - * Ingo Wilken (Ingo.Wilken@informatik.uni-oldenburg.de) - * - * This program may not be used, modified or distributed without - * prior permission by the authors of Eressea. - */ - -#include -#include - -/* kernel includes */ -#include -#include -#include -#include - -/* libc includes */ -#include -#include - -#define ILLUSIONMAX 6 - -void age_illusion(unit * u) -{ - if (u->faction->race != get_race(RC_ILLUSION)) { - if (u->age == ILLUSIONMAX) { - ADDMSG(&u->faction->msgs, msg_message("warnillusiondissolve", "unit", u)); - } - else if (u->age > ILLUSIONMAX) { - set_number(u, 0); - ADDMSG(&u->faction->msgs, msg_message("illusiondissolve", "unit", u)); - } - } -} diff --git a/src/races/races.c b/src/races/races.c index 38d69ac3e..92a3d3e3d 100644 --- a/src/races/races.c +++ b/src/races/races.c @@ -9,7 +9,6 @@ */ #include -#include #include "races.h" #include @@ -32,22 +31,11 @@ void age_firedragon(struct unit *u); void age_dragon(struct unit *u); -void age_illusion(struct unit *u); void age_undead(struct unit *u); void age_skeleton(struct unit *u); void age_zombie(struct unit *u); void age_ghoul(struct unit *u); -static void oldfamiliars(unit * u) -{ - char fname[64]; - /* these familiars have no special skills. - */ - _snprintf(fname, sizeof(fname), "%s_familiar", u_race(u)->_name); - create_mage(u, M_GRAY); - equip_unit(u, get_equipment(fname)); -} - static void equip_newunits(const struct equipment *eq, struct unit *u) { struct region *r = u->region; @@ -84,38 +72,22 @@ static void equip_newunits(const struct equipment *eq, struct unit *u) u_set_ship(u, sh); } break; - case RC_CENTAUR: - rsethorses(r, 250 + rng_int() % 51 + rng_int() % 51); - break; default: break; } } -/* Die Funktionen werden ber den hier registrierten Namen in races.xml +/* Die Funktionen werden �ber den hier registrierten Namen in races.xml * in die jeweilige Rassendefiniton eingebunden */ void register_races(void) { - /* function initfamiliar */ - register_function((pf_generic)oldfamiliars, "oldfamiliars"); - - register_function((pf_generic)allowed_dragon, "movedragon"); - - register_function((pf_generic)allowed_swim, "moveswimming"); - register_function((pf_generic)allowed_fly, "moveflying"); - register_function((pf_generic)allowed_walk, "movewalking"); + register_function((pf_generic)equip_newunits, "equip_newunits"); /* function age for race->age() */ - register_function((pf_generic)age_undead, "ageundead"); - register_function((pf_generic)age_illusion, "ageillusion"); - register_function((pf_generic)age_skeleton, "ageskeleton"); - register_function((pf_generic)age_zombie, "agezombie"); - register_function((pf_generic)age_ghoul, "ageghoul"); - register_function((pf_generic)age_dragon, "agedragon"); - register_function((pf_generic)age_firedragon, "agefiredragon"); - - /* function itemdrop - * to generate battle spoils - * race->itemdrop() */ - register_function((pf_generic)equip_newunits, "equip_newunits"); + register_function((pf_generic)age_undead, "age_undead"); + register_function((pf_generic)age_skeleton, "age_skeleton"); + register_function((pf_generic)age_zombie, "age_zombie"); + register_function((pf_generic)age_ghoul, "age_ghoul"); + register_function((pf_generic)age_dragon, "age_dragon"); + register_function((pf_generic)age_firedragon, "age_youngdragon"); } diff --git a/src/races/races.h b/src/races/races.h index c0a516430..ea7be1337 100644 --- a/src/races/races.h +++ b/src/races/races.h @@ -14,6 +14,7 @@ #ifdef __cplusplus extern "C" { #endif + struct unit; void register_races(void); void make_undead_unit(struct unit *); diff --git a/src/races/zombies.c b/src/races/zombies.c index d86074d26..ea26298b2 100644 --- a/src/races/zombies.c +++ b/src/races/zombies.c @@ -13,7 +13,6 @@ */ #include -#include /* kernel includes */ #include @@ -25,7 +24,7 @@ /* util iclude */ #include -#include "monster.h" +#include "monsters.h" /* libc includes */ #include @@ -34,13 +33,13 @@ #define UNDEAD_BREAKUP 25 /* chance dafuer */ #define UNDEAD_BREAKUP_FRACTION (25+rng_int()%70) /* anteil der weg geht */ -#define age_chance(a,b,p) (_max(0,a-b)*p) +#define age_chance(a,b,p) (MAX(0,a-b)*p) void make_undead_unit(unit * u) { free_orders(&u->orders); name_unit(u); - fset(u, UFL_ISNEW); + u->flags |= UFL_ISNEW; } void age_undead(unit * u) @@ -71,7 +70,7 @@ void age_undead(unit * u) void age_skeleton(unit * u) { if (is_monsters(u->faction) && rng_int() % 100 < age_chance(u->age, 27, 1)) { - int n = _max(1, u->number / 2); + int n = MAX(1, u->number / 2); double q = (double)u->hp / (double)(unit_max_hp(u) * u->number); u_setrace(u, get_race(RC_SKELETON_LORD)); u->irace = NULL; @@ -83,7 +82,7 @@ void age_skeleton(unit * u) void age_zombie(unit * u) { if (is_monsters(u->faction) && rng_int() % 100 < age_chance(u->age, 27, 1)) { - int n = _max(1, u->number / 2); + int n = MAX(1, u->number / 2); double q = (double)u->hp / (double)(unit_max_hp(u) * u->number); u_setrace(u, get_race(RC_ZOMBIE_LORD)); u->irace = NULL; @@ -95,7 +94,7 @@ void age_zombie(unit * u) void age_ghoul(unit * u) { if (is_monsters(u->faction) && rng_int() % 100 < age_chance(u->age, 27, 1)) { - int n = _max(1, u->number / 2); + int n = MAX(1, u->number / 2); double q = (double)u->hp / (double)(unit_max_hp(u) * u->number); u_setrace(u, get_race(RC_GHOUL_LORD)); u->irace = NULL; diff --git a/src/randenc.c b/src/randenc.c index 85c3dd8d3..ab51d64b1 100644 --- a/src/randenc.c +++ b/src/randenc.c @@ -22,7 +22,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "volcano.h" #include "economy.h" -#include "monster.h" +#include "monsters.h" #include "move.h" #include "chaos.h" #include "study.h" @@ -67,10 +67,9 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include extern struct attrib_type at_unitdissolve; -extern struct attrib_type at_orcification; /* In a->data.ca[1] steht der Prozentsatz mit dem sich die Einheit - * auflst, in a->data.ca[0] kann angegeben werden, wohin die Personen + * aufl�st, in a->data.ca[0] kann angegeben werden, wohin die Personen * verschwinden. Passiert bereits in der ersten Runde! */ static void dissolve_units(void) { @@ -443,12 +442,12 @@ static void melt_iceberg(region * r) ADDMSG(&u->faction->msgs, msg_message("iceberg_melt", "region", r)); } - /* driftrichtung lschen */ + /* driftrichtung l�schen */ a = a_find(r->attribs, &at_iceberg); if (a) a_remove(&r->attribs, a); - /* Gebude lschen */ + /* Geb�ude l�schen */ while (r->buildings) { remove_building(&r->buildings, r->buildings); } @@ -456,7 +455,7 @@ static void melt_iceberg(region * r) /* in Ozean wandeln */ terraform_region(r, newterrain(T_OCEAN)); - /* Einheiten, die nicht schwimmen knnen oder in Schiffen sind, + /* Einheiten, die nicht schwimmen k�nnen oder in Schiffen sind, * ertrinken */ drown(r); } @@ -520,13 +519,13 @@ static void move_iceberg(region * r) freset(sh, SF_SELECT); for (sh = r->ships; sh; sh = sh->next) { - /* Meldung an Kapitn */ + /* Meldung an Kapit�n */ double dmg = config_get_flt("rules.ship.damage.intoiceberg", 0.1); damage_ship(sh, dmg); fset(sh, SF_SELECT); } - /* Personen, Schiffe und Gebude verschieben */ + /* Personen, Schiffe und Geb�ude verschieben */ while (rc->buildings) { rc->buildings->region = r; translist(&rc->buildings, &r->buildings, rc->buildings); @@ -545,7 +544,7 @@ static void move_iceberg(region * r) u_set_building(u, b); /* undo leave-prevention */ } - /* Beschdigte Schiffe knnen sinken */ + /* Besch�digte Schiffe k�nnen sinken */ for (sh = r->ships; sh;) { shn = sh->next; @@ -726,16 +725,21 @@ static void orc_growth(void) } } -/** Talente von Dmonen verschieben sich. +/** Talente von D�monen verschieben sich. */ static void demon_skillchanges(void) { region *r; + static const race *rc_demon; + static int rc_cache; + if (rc_changed(&rc_cache)) { + rc_demon = get_race(RC_DAEMON); + } for (r = regions; r; r = r->next) { unit *u; for (u = r->units; u; u = u->next) { - if (u_race(u) == get_race(RC_DAEMON)) { + if (u_race(u) == rc_demon) { demon_skillchange(u); } } @@ -756,7 +760,7 @@ static void icebergs(void) } #define HERBS_ROT /* herbs owned by units have a chance to rot. */ -#define HERBROTCHANCE 5 /* Verrottchance fr Kruter (ifdef HERBS_ROT) */ +#define HERBROTCHANCE 5 /* Verrottchance f�r Kr�uter (ifdef HERBS_ROT) */ #ifdef HERBS_ROT static void rotting_herbs(void) { @@ -781,7 +785,7 @@ static void rotting_herbs(void) if (fval(itm->type, ITF_HERB)) { double nv = normalvariate(k, k / 4); int inv = (int)nv; - int delta = _min(n, inv); + int delta = MIN(n, inv); if (!i_change(itmp, itm->type, -delta)) { continue; } @@ -802,44 +806,6 @@ void randomevents(void) godcurse(); orc_growth(); demon_skillchanges(); - - /* Orkifizierte Regionen mutieren und mutieren zurck */ - - for (r = regions; r; r = r->next) { - if (fval(r, RF_ORCIFIED)) { - direction_t dir; - double probability = 0.0; - for (dir = 0; dir < MAXDIRECTIONS; dir++) { - region *rc = rconnect(r, dir); - if (rc && rpeasants(rc) > 0 && !fval(rc, RF_ORCIFIED)) - probability += 0.02; - } - if (chance(probability)) { - ADDMSG(&r->msgs, msg_message("deorcified", "region", r)); - freset(r, RF_ORCIFIED); - } - } - else { - attrib *a = a_find(r->attribs, &at_orcification); - if (a != NULL) { - double probability = 0.0; - if (rpeasants(r) <= 0) - continue; - probability = a->data.i / (double)rpeasants(r); - if (chance(probability)) { - fset(r, RF_ORCIFIED); - a_remove(&r->attribs, a); - ADDMSG(&r->msgs, msg_message("orcified", "region", r)); - } - else { - a->data.i -= _max(10, a->data.i / 10); - if (a->data.i <= 0) - a_remove(&r->attribs, a); - } - } - } - } - volcano_update(); /* Monumente zerfallen, Schiffe verfaulen */ @@ -848,7 +814,7 @@ void randomevents(void) while (*blist) { building *b = *blist; if (fval(b->type, BTF_DECAY) && !building_owner(b)) { - b->size -= _max(1, (b->size * 20) / 100); + b->size -= MAX(1, (b->size * 20) / 100); if (b->size == 0) { remove_building(blist, r->buildings); } @@ -860,22 +826,7 @@ void randomevents(void) /* monster-einheiten desertieren */ if (monsters) { - for (r = regions; r; r = r->next) { - unit *u; - - for (u = r->units; u; u = u->next) { - if (u->faction && !is_monsters(u->faction) - && (u_race(u)->flags & RCF_DESERT)) { - if (fval(u, UFL_ISNEW)) - continue; - if (rng_int() % 100 < 5) { - ADDMSG(&u->faction->msgs, msg_message("desertion", - "unit region", u, r)); - u_setfaction(u, monsters); - } - } - } - } + monsters_desert(monsters); } chaos_update(); diff --git a/src/renumber.c b/src/renumber.c new file mode 100644 index 000000000..de2b5a490 --- /dev/null +++ b/src/renumber.c @@ -0,0 +1,191 @@ +#include +#include "renumber.h" + +#include +#include +#include +#include +#include +#include +#include + +#include +#include +#include + +#include +#include + +static attrib_type at_number = { + "faction_renum", + NULL, NULL, NULL, NULL, NULL, NULL, + ATF_UNIQUE +}; + +void renumber_factions(void) +/* gibt parteien neue nummern */ +{ + struct renum { + struct renum *next; + int want; + faction *faction; + attrib *attrib; + } *renum = NULL, *rp; + faction *f; + for (f = factions; f; f = f->next) { + attrib *a = a_find(f->attribs, &at_number); + int want; + struct renum **rn; + + if (!a) + continue; + want = a->data.i; + if (fval(f, FFL_NEWID)) { + ADDMSG(&f->msgs, msg_message("renumber_twice", "id", want)); + continue; + } + if (!faction_id_is_unused(want)) { + a_remove(&f->attribs, a); + ADDMSG(&f->msgs, msg_message("renumber_inuse", "id", want)); + continue; + } + for (rn = &renum; *rn; rn = &(*rn)->next) { + if ((*rn)->want >= want) + break; + } + if (*rn && (*rn)->want == want) { + ADDMSG(&f->msgs, msg_message("renumber_inuse", "id", want)); + } + else { + struct renum *r = calloc(sizeof(struct renum), 1); + r->next = *rn; + r->attrib = a; + r->faction = f; + r->want = want; + *rn = r; + } + } + for (rp = renum; rp; rp = rp->next) { + f = rp->faction; + a_remove(&f->attribs, rp->attrib); + renumber_faction(f, rp->want); + } + while (renum) { + rp = renum->next; + free(renum); + renum = rp; + } +} + +int renumber_cmd(unit * u, order * ord) +{ + char token[128]; + const char *s; + int i = 0; + faction *f = u->faction; + + init_order(ord); + s = gettoken(token, sizeof(token)); + switch (findparam_ex(s, u->faction->locale)) { + + case P_FACTION: + s = gettoken(token, sizeof(token)); + if (s && *s) { + int id = atoi36((const char *)s); + attrib *a = a_find(f->attribs, &at_number); + if (!a) + a = a_add(&f->attribs, a_new(&at_number)); + a->data.i = id; + } + break; + + case P_UNIT: + s = gettoken(token, sizeof(token)); + if (s && *s) { + i = atoi36((const char *)s); + if (i <= 0 || i > MAX_UNIT_NR) { + cmistake(u, ord, 114, MSG_EVENT); + break; + } + + if (forbiddenid(i)) { + cmistake(u, ord, 116, MSG_EVENT); + break; + } + + if (findunitg(i, u->region)) { + cmistake(u, ord, 115, MSG_EVENT); + break; + } + } + renumber_unit(u, i); + break; + + case P_SHIP: + if (!u->ship) { + cmistake(u, ord, 144, MSG_EVENT); + break; + } + if (ship_owner(u->ship) != u) { + cmistake(u, ord, 146, MSG_EVENT); + break; + } + if (u->ship->coast != NODIRECTION) { + cmistake(u, ord, 116, MSG_EVENT); + break; + } + s = gettoken(token, sizeof(token)); + if (s == NULL || *s == 0) { + i = newcontainerid(); + } + else { + i = atoi36((const char *)s); + if (i <= 0 || i > MAX_CONTAINER_NR) { + cmistake(u, ord, 114, MSG_EVENT); + break; + } + if (findship(i)) { + cmistake(u, ord, 115, MSG_EVENT); + break; + } + } + sunhash(u->ship); + u->ship->no = i; + shash(u->ship); + break; + case P_BUILDING: + case P_GEBAEUDE: + if (!u->building) { + cmistake(u, ord, 145, MSG_EVENT); + break; + } + if (building_owner(u->building) != u) { + cmistake(u, ord, 148, MSG_EVENT); + break; + } + s = gettoken(token, sizeof(token)); + if (*s == 0) { + i = newcontainerid(); + } + else { + i = atoi36((const char *)s); + if (i <= 0 || i > MAX_CONTAINER_NR) { + cmistake(u, ord, 114, MSG_EVENT); + break; + } + if (findbuilding(i)) { + cmistake(u, ord, 115, MSG_EVENT); + break; + } + } + bunhash(u->building); + u->building->no = i; + bhash(u->building); + break; + + default: + cmistake(u, ord, 239, MSG_EVENT); + } + return 0; +} + diff --git a/src/renumber.h b/src/renumber.h new file mode 100644 index 000000000..244b8043f --- /dev/null +++ b/src/renumber.h @@ -0,0 +1,12 @@ +#pragma once + +#ifndef H_RENUMBER +#define H_RENUMBER + + struct unit; + struct order; + + void renumber_factions(void); + int renumber_cmd(struct unit *u, struct order *ord); + +#endif diff --git a/src/renumber.test.c b/src/renumber.test.c new file mode 100644 index 000000000..8f6f91a59 --- /dev/null +++ b/src/renumber.test.c @@ -0,0 +1,234 @@ +#include +#include "renumber.h" + +#include +#include +#include +#include +#include +#include +#include +#include + +#include +#include + +static void test_renumber_faction(CuTest *tc) { + unit *u; + int uno, no; + const struct locale *lang; + + test_setup_ex(tc); + u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); + no = u->faction->no; + uno = (no > 1) ? no - 1 : no + 1; + lang = u->faction->locale; + u->thisorder = create_order(K_NUMBER, lang, "%s %s", LOC(lang, parameters[P_FACTION]), itoa36(uno)); + renumber_cmd(u, u->thisorder); + renumber_factions(); + CuAssertIntEquals(tc, uno, u->faction->no); + test_cleanup(); +} + +static void test_renumber_faction_duplicate(CuTest *tc) { + unit *u; + faction *f, *f2; + int no; + const struct locale *lang; + + test_setup_ex(tc); + f2 = test_create_faction(0); + u = test_create_unit(f = test_create_faction(0), test_create_region(0, 0, 0)); + no = f->no; + lang = f->locale; + u->thisorder = create_order(K_NUMBER, lang, "%s %s", LOC(lang, parameters[P_FACTION]), itoa36(f2->no)); + renumber_cmd(u, u->thisorder); + renumber_factions(); + CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "renumber_inuse")); + CuAssertIntEquals(tc, no, u->faction->no); + test_cleanup(); +} + +static void test_renumber_building(CuTest *tc) { + unit *u; + int uno, no; + const struct locale *lang; + + test_setup_ex(tc); + u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); + u->building = test_create_building(u->region, 0); + no = u->building->no; + uno = (no > 1) ? no - 1 : no + 1; + lang = u->faction->locale; + u->thisorder = create_order(K_NUMBER, lang, "%s %s", LOC(lang, parameters[P_BUILDING]), itoa36(uno)); + renumber_cmd(u, u->thisorder); + CuAssertIntEquals(tc, uno, u->building->no); + test_cleanup(); +} + +static void test_renumber_building_duplicate(CuTest *tc) { + unit *u; + faction *f; + int uno, no; + const struct locale *lang; + + test_setup_ex(tc); + u = test_create_unit(f = test_create_faction(0), test_create_region(0, 0, 0)); + u->building = test_create_building(u->region, 0); + uno = u->building->no; + u->building = test_create_building(u->region, 0); + no = u->building->no; + lang = f->locale; + u->thisorder = create_order(K_NUMBER, lang, "%s %s", LOC(lang, parameters[P_BUILDING]), itoa36(uno)); + renumber_cmd(u, u->thisorder); + CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "error115")); + CuAssertIntEquals(tc, no, u->building->no); + test_cleanup(); +} + +static void test_renumber_ship(CuTest *tc) { + unit *u; + int uno, no; + const struct locale *lang; + + test_setup_ex(tc); + u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); + u->ship = test_create_ship(u->region, 0); + no = u->ship->no; + uno = (no > 1) ? no - 1 : no + 1; + lang = u->faction->locale; + u->thisorder = create_order(K_NUMBER, lang, "%s %s", LOC(lang, parameters[P_SHIP]), itoa36(uno)); + renumber_cmd(u, u->thisorder); + CuAssertIntEquals(tc, uno, u->ship->no); + test_cleanup(); +} + +static void test_renumber_ship_twice(CuTest *tc) { + unit *u; + int uno, no; + const struct locale *lang; + + test_setup_ex(tc); + u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); + u->ship = test_create_ship(u->region, 0); + no = u->ship->no; + uno = (no > 1) ? no - 1 : no + 1; + lang = u->faction->locale; + u->thisorder = create_order(K_NUMBER, lang, "%s %s", LOC(lang, parameters[P_SHIP]), itoa36(uno)); + renumber_cmd(u, u->thisorder); + CuAssertIntEquals(tc, uno, u->ship->no); + free_order(u->thisorder); + u->thisorder = create_order(K_NUMBER, lang, "%s %s", LOC(lang, parameters[P_SHIP]), itoa36(no)); + renumber_cmd(u, u->thisorder); + CuAssertIntEquals(tc, no, u->ship->no); + test_cleanup(); +} + +static void test_renumber_ship_duplicate(CuTest *tc) { + unit *u; + faction *f; + int uno, no; + const struct locale *lang; + + test_setup_ex(tc); + u = test_create_unit(f = test_create_faction(0), test_create_region(0, 0, 0)); + u->ship = test_create_ship(u->region, 0); + uno = u->ship->no; + u->ship = test_create_ship(u->region, 0); + no = u->ship->no; + lang = f->locale; + u->thisorder = create_order(K_NUMBER, lang, "%s %s", LOC(lang, parameters[P_SHIP]), itoa36(uno)); + renumber_cmd(u, u->thisorder); + CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "error115")); + CuAssertIntEquals(tc, no, u->ship->no); + test_cleanup(); +} + +static void test_renumber_unit(CuTest *tc) { + unit *u; + int uno, no; + const struct locale *lang; + + test_setup_ex(tc); + u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); + no = u->no; + uno = (no > 1) ? no - 1 : no + 1; + lang = u->faction->locale; + u->thisorder = create_order(K_NUMBER, lang, "%s %s", LOC(lang, parameters[P_UNIT]), itoa36(uno)); + renumber_cmd(u, u->thisorder); + CuAssertIntEquals(tc, uno, u->no); + CuAssertIntEquals(tc, -no, ualias(u)); + test_cleanup(); +} + +static void test_renumber_unit_duplicate(CuTest *tc) { + unit *u, *u2; + faction *f; + int no; + const struct locale *lang; + + test_setup_ex(tc); + u = test_create_unit(f = test_create_faction(0), test_create_region(0, 0, 0)); + no = u->no; + u2 = test_create_unit(f, u->region); + lang = f->locale; + u->thisorder = create_order(K_NUMBER, lang, "%s %s", LOC(lang, parameters[P_UNIT]), itoa36(u2->no)); + renumber_cmd(u, u->thisorder); + CuAssertIntEquals(tc, no, u->no); + CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "error115")); + CuAssertIntEquals(tc, 0, ualias(u)); + test_cleanup(); +} + +static void test_renumber_unit_limit(CuTest *tc) { + unit *u; + faction *f; + int no; + const struct locale *lang; + + test_setup_ex(tc); + u = test_create_unit(f = test_create_faction(0), test_create_region(0, 0, 0)); + no = u->no; + lang = f->locale; + u->thisorder = create_order(K_NUMBER, lang, "%s 10000", LOC(lang, parameters[P_UNIT])); + renumber_cmd(u, u->thisorder); + CuAssertIntEquals(tc, no, u->no); + CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "error114")); + CuAssertIntEquals(tc, 0, ualias(u)); + test_cleanup(); +} + +static void test_renumber_unit_invalid(CuTest *tc) { + unit *u; + faction *f; + int no; + const struct locale *lang; + + test_setup_ex(tc); + u = test_create_unit(f = test_create_faction(0), test_create_region(0, 0, 0)); + no = u->no; + lang = f->locale; + u->thisorder = create_order(K_NUMBER, lang, "%s TEMP", LOC(lang, parameters[P_UNIT])); + renumber_cmd(u, u->thisorder); + CuAssertIntEquals(tc, no, u->no); + CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "error116")); + CuAssertIntEquals(tc, 0, ualias(u)); + test_cleanup(); +} + +CuSuite *get_renumber_suite(void) +{ + CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_renumber_unit); + SUITE_ADD_TEST(suite, test_renumber_unit_limit); + SUITE_ADD_TEST(suite, test_renumber_unit_duplicate); + SUITE_ADD_TEST(suite, test_renumber_unit_invalid); + SUITE_ADD_TEST(suite, test_renumber_building); + SUITE_ADD_TEST(suite, test_renumber_building_duplicate); + SUITE_ADD_TEST(suite, test_renumber_ship); + SUITE_ADD_TEST(suite, test_renumber_ship_twice); + SUITE_ADD_TEST(suite, test_renumber_ship_duplicate); + SUITE_ADD_TEST(suite, test_renumber_faction); + SUITE_ADD_TEST(suite, test_renumber_faction_duplicate); + return suite; +} diff --git a/src/report.c b/src/report.c index 2c79209b9..2f8ba7bce 100644 --- a/src/report.c +++ b/src/report.c @@ -1,4 +1,4 @@ -/* +/* Copyright (c) 1998-2015, Enno Rehling Katja Zedel @@ -21,11 +21,13 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include +#include "report.h" #include "reports.h" -#include "seen.h" +#include "guard.h" #include "laws.h" +#include "market.h" +#include "monsters.h" #include "travelthru.h" -#include "monster.h" /* modules includes */ #include @@ -62,7 +64,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include #include #include #include @@ -81,9 +82,10 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include +#include #include #include +#include /* libc includes */ #include @@ -98,7 +100,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #if defined(_MSC_VER) && _MSC_VER >= 1900 -# pragma warning(disable: 4774) // TODO: remove this +# pragma warning(disable: 4774) /* TODO: remove this */ #endif extern int *storms; @@ -118,7 +120,7 @@ static void check_errno(const char * file, int line) { static char *gamedate_season(const struct locale *lang) { - static char buf[256]; // FIXME: static return value + static char buf[256]; /* FIXME: static return value */ gamedate gd; get_gamedate(turn, &gd); @@ -132,11 +134,11 @@ static char *gamedate_season(const struct locale *lang) return buf; } -void newline(stream *out) { +void newline(struct stream *out) { sputs("", out); } -void write_spaces(stream *out, size_t num) { +void write_spaces(struct stream *out, size_t num) { static const char spaces[REPORTWIDTH] = " "; while (num > 0) { size_t bytes = (num > REPORTWIDTH) ? REPORTWIDTH : num; @@ -145,8 +147,7 @@ void write_spaces(stream *out, size_t num) { } } - -static void centre(stream *out, const char *s, bool breaking) +static void centre(struct stream *out, const char *s, bool breaking) { /* Bei Namen die genau 80 Zeichen lang sind, kann es hier Probleme * geben. Seltsamerweise wird i dann auf MAXINT oder aehnlich @@ -170,8 +171,8 @@ static void centre(stream *out, const char *s, bool breaking) } static void -paragraph(stream *out, const char *str, ptrdiff_t indent, int hanging_indent, -char marker) +paragraph(struct stream *out, const char *str, ptrdiff_t indent, int hanging_indent, + char marker) { size_t length = REPORTWIDTH; const char *end, *begin, *mark = 0; @@ -233,7 +234,7 @@ char marker) } while (*begin); } -static size_t write_spell_modifier(spell * sp, int flag, const char * str, bool cont, char * bufp, size_t size) { +static size_t write_spell_modifier(const spell * sp, int flag, const char * str, bool cont, char * bufp, size_t size) { if (sp->sptyp & flag) { size_t bytes = 0; if (cont) { @@ -248,15 +249,203 @@ static size_t write_spell_modifier(spell * sp, int flag, const char * str, bool return 0; } -void nr_spell_syntax(struct stream *out, struct spellbook_entry * sbe, const struct locale *lang); +void nr_spell_syntax(struct stream *out, spellbook_entry * sbe, const struct locale *lang) +{ + int bytes; + char buf[4096]; + char *bufp = buf; + size_t size = sizeof(buf) - 1; + const spell * sp = sbe->sp; + const char *params = sp->parameter; -void nr_spell(stream *out, spellbook_entry * sbe, const struct locale *lang) + if (sp->sptyp & ISCOMBATSPELL) { + bytes = (int)strlcpy(bufp, LOC(lang, keyword(K_COMBATSPELL)), size); + } + else { + bytes = (int)strlcpy(bufp, LOC(lang, keyword(K_CAST)), size); + } + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + + /* Reihenfolge beachten: Erst REGION, dann STUFE! */ + if (sp->sptyp & FARCASTING) { + bytes = snprintf(bufp, size, " [%s x y]", LOC(lang, parameters[P_REGION])); + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + } + if (sp->sptyp & SPELLLEVEL) { + bytes = snprintf(bufp, size, " [%s n]", LOC(lang, parameters[P_LEVEL])); + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + } + + bytes = (int)snprintf(bufp, size, " \"%s\"", spell_name(sp, lang)); + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + + while (params && *params) { + typedef struct starget { + param_t param; + int flag; + const char *vars; + } starget; + starget targets[] = { + { P_REGION, REGIONSPELL, NULL }, + { P_UNIT, UNITSPELL, "par_unit" }, + { P_SHIP, SHIPSPELL, "par_ship" }, + { P_BUILDING, BUILDINGSPELL, "par_building" }, + { 0, 0, NULL } + }; + starget *targetp; + char cp = *params++; + int i, maxparam = 0; + const char *locp; + const char *syntaxp = sp->syntax; + + if (cp == 'u') { + targetp = targets + 1; + locp = LOC(lang, targetp->vars); + bytes = (int)snprintf(bufp, size, " <%s>", locp); + if (*params == '+') { + ++params; + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + bytes = (int)snprintf(bufp, size, " [<%s> ...]", locp); + } + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + } + else if (cp == 's') { + targetp = targets + 2; + locp = LOC(lang, targetp->vars); + bytes = (int)snprintf(bufp, size, " <%s>", locp); + if (*params == '+') { + ++params; + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + bytes = (int)snprintf(bufp, size, " [<%s> ...]", locp); + } + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + } + else if (cp == 'r') { + bytes = (int)strlcpy(bufp, " ", size); + if (*params == '+') { + ++params; + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + bytes = (int)strlcpy(bufp, " [ ...]", size); + } + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + } + else if (cp == 'b') { + targetp = targets + 3; + locp = LOC(lang, targetp->vars); + bytes = (int)snprintf(bufp, size, " <%s>", locp); + if (*params == '+') { + ++params; + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + bytes = (int)snprintf(bufp, size, " [<%s> ...]", locp); + } + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + } + else if (cp == 'k') { + bool multi = false; + if (params && *params == 'c') { + /* skip over a potential id */ + ++params; + } + if (params && *params == '+') { + ++params; + multi = true; + } + for (targetp = targets; targetp->flag; ++targetp) { + if (sp->sptyp & targetp->flag) + ++maxparam; + } + if (!maxparam || maxparam > 1) { + bytes = (int)strlcpy(bufp, " (", size); + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + } + i = 0; + for (targetp = targets; targetp->flag; ++targetp) { + if (!maxparam || sp->sptyp & targetp->flag) { + if (i++ != 0) { + bytes = (int)strlcpy(bufp, " |", size); + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + } + if (targetp->param && targetp->vars) { + locp = LOC(lang, targetp->vars); + bytes = + (int)snprintf(bufp, size, " %s <%s>", parameters[targetp->param], + locp); + if (multi) { + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + bytes = (int)snprintf(bufp, size, " [<%s> ...]", locp); + } + } + else { + bytes = + (int)snprintf(bufp, size, " %s", parameters[targetp->param]); + } + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + } + } + if (!maxparam || maxparam > 1) { + bytes = (int)strlcpy(bufp, " )", size); + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + } + } + else if (cp == 'i' || cp == 'c') { + const char *cstr; + assert(syntaxp); + cstr = strchr(syntaxp, ':'); + if (!cstr) { + locp = LOC(lang, mkname("spellpar", syntaxp)); + } + else { + char substr[32]; + size_t len = cstr - syntaxp; + assert(sizeof(substr) > len); + memcpy(substr, syntaxp, len); + substr[len] = 0; + locp = LOC(lang, mkname("spellpar", substr)); + syntaxp = substr + 1; + } + if (*params == '?') { + ++params; + bytes = (int)snprintf(bufp, size, " [<%s>]", locp); + } + else { + bytes = (int)snprintf(bufp, size, " <%s>", locp); + } + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + } + else { + log_error("unknown spell parameter %c for spell %s", cp, sp->sname); + } + } + *bufp = 0; + paragraph(out, buf, 2, 0, 0); + +} + +void nr_spell(struct stream *out, spellbook_entry * sbe, const struct locale *lang) { int bytes, k, itemanz, costtyp; char buf[4096]; char *startp, *bufp = buf; size_t size = sizeof(buf) - 1; - spell * sp = sbe->sp; + const spell * sp = sbe->sp; newline(out); centre(out, spell_name(sp, lang), true); @@ -305,18 +494,18 @@ void nr_spell(stream *out, spellbook_entry * sbe, const struct locale *lang) bufp = buf; if (sp->sptyp & SPELLLEVEL) { bytes = - _snprintf(bufp, size, " %d %s", itemanz, LOC(lang, resourcename(rtype, + snprintf(bufp, size, " %d %s", itemanz, LOC(lang, resourcename(rtype, itemanz != 1))); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); if (costtyp == SPC_LEVEL || costtyp == SPC_LINEAR) { - bytes = _snprintf(bufp, size, " * %s", LOC(lang, "nr_level")); + bytes = snprintf(bufp, size, " * %s", LOC(lang, "nr_level")); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); } } else { - bytes = _snprintf(bufp, size, "%d %s", itemanz, LOC(lang, resourcename(rtype, itemanz != 1))); + bytes = snprintf(bufp, size, "%d %s", itemanz, LOC(lang, resourcename(rtype, itemanz != 1))); if (wrptr(&bufp, &size, bytes) != 0) { WARN_STATIC_BUFFER(); } @@ -367,195 +556,8 @@ void nr_spell(stream *out, spellbook_entry * sbe, const struct locale *lang) newline(out); } -void nr_spell_syntax(stream *out, spellbook_entry * sbe, const struct locale *lang) -{ - int bytes; - char buf[4096]; - char *bufp = buf; - size_t size = sizeof(buf) - 1; - spell * sp = sbe->sp; - const char *params = sp->parameter; - - if (sp->sptyp & ISCOMBATSPELL) { - bytes = (int)strlcpy(bufp, LOC(lang, keyword(K_COMBATSPELL)), size); - } - else { - bytes = (int)strlcpy(bufp, LOC(lang, keyword(K_CAST)), size); - } - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - - /* Reihenfolge beachten: Erst REGION, dann STUFE! */ - if (sp->sptyp & FARCASTING) { - bytes = _snprintf(bufp, size, " [%s x y]", LOC(lang, parameters[P_REGION])); - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - } - if (sp->sptyp & SPELLLEVEL) { - bytes = _snprintf(bufp, size, " [%s n]", LOC(lang, parameters[P_LEVEL])); - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - } - - bytes = (int)_snprintf(bufp, size, " \"%s\"", spell_name(sp, lang)); - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - - while (params && *params) { - typedef struct starget { - param_t param; - int flag; - const char *vars; - } starget; - starget targets[] = { - { P_REGION, REGIONSPELL, NULL }, - { P_UNIT, UNITSPELL, "par_unit" }, - { P_SHIP, SHIPSPELL, "par_ship" }, - { P_BUILDING, BUILDINGSPELL, "par_building" }, - { 0, 0, NULL } - }; - starget *targetp; - char cp = *params++; - int i, maxparam = 0; - const char *locp; - const char *syntaxp = sp->syntax; - - if (cp == 'u') { - targetp = targets + 1; - locp = LOC(lang, targetp->vars); - bytes = (int)_snprintf(bufp, size, " <%s>", locp); - if (*params == '+') { - ++params; - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - bytes = (int)_snprintf(bufp, size, " [<%s> ...]", locp); - } - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - } - else if (cp == 's') { - targetp = targets + 2; - locp = LOC(lang, targetp->vars); - bytes = (int)_snprintf(bufp, size, " <%s>", locp); - if (*params == '+') { - ++params; - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - bytes = (int)_snprintf(bufp, size, " [<%s> ...]", locp); - } - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - } - else if (cp == 'r') { - bytes = (int)strlcpy(bufp, " ", size); - if (*params == '+') { - ++params; - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - bytes = (int)strlcpy(bufp, " [ ...]", size); - } - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - } - else if (cp == 'b') { - targetp = targets + 3; - locp = LOC(lang, targetp->vars); - bytes = (int)_snprintf(bufp, size, " <%s>", locp); - if (*params == '+') { - ++params; - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - bytes = (int)_snprintf(bufp, size, " [<%s> ...]", locp); - } - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - } - else if (cp == 'k') { - bool multi = false; - if (params && *params == 'c') { - /* skip over a potential id */ - ++params; - } - if (params && *params == '+') { - ++params; - multi = true; - } - for (targetp = targets; targetp->flag; ++targetp) { - if (sp->sptyp & targetp->flag) - ++maxparam; - } - if (!maxparam || maxparam > 1) { - bytes = (int)strlcpy(bufp, " (", size); - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - } - i = 0; - for (targetp = targets; targetp->flag; ++targetp) { - if (!maxparam || sp->sptyp & targetp->flag) { - if (i++ != 0) { - bytes = (int)strlcpy(bufp, " |", size); - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - } - if (targetp->param && targetp->vars) { - locp = LOC(lang, targetp->vars); - bytes = - (int)_snprintf(bufp, size, " %s <%s>", parameters[targetp->param], - locp); - if (multi) { - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - bytes = (int)_snprintf(bufp, size, " [<%s> ...]", locp); - } - } - else { - bytes = - (int)_snprintf(bufp, size, " %s", parameters[targetp->param]); - } - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - } - } - if (!maxparam || maxparam > 1) { - bytes = (int)strlcpy(bufp, " )", size); - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - } - } - else if (cp == 'i' || cp == 'c') { - const char *cstr; - assert(syntaxp); - cstr = strchr(syntaxp, ':'); - if (!cstr) { - locp = LOC(lang, mkname("spellpar", syntaxp)); - } - else { - char substr[32]; - strncpy(substr, syntaxp, cstr - syntaxp); - substr[cstr - syntaxp] = 0; - locp = LOC(lang, mkname("spellpar", substr)); - syntaxp = substr + 1; - } - if (*params == '?') { - ++params; - bytes = (int)_snprintf(bufp, size, " [<%s>]", locp); - } - else { - bytes = (int)_snprintf(bufp, size, " <%s>", locp); - } - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - } else { - log_error("unknown spell parameter %c for spell %s", cp, sp->sname); - } - } - *bufp = 0; - paragraph(out, buf, 2, 0, 0); - -} - static void -nr_curses_i(stream *out, int indent, const faction *viewer, objtype_t typ, const void *obj, attrib *a, int self) +nr_curses_i(struct stream *out, int indent, const faction *viewer, objtype_t typ, const void *obj, attrib *a, int self) { for (; a; a = a->next) { char buf[4096]; @@ -583,7 +585,7 @@ nr_curses_i(stream *out, int indent, const faction *viewer, objtype_t typ, const } } -static void nr_curses(stream *out, int indent, const faction *viewer, objtype_t typ, const void *obj) +static void nr_curses(struct stream *out, int indent, const faction *viewer, objtype_t typ, const void *obj) { int self = 0; attrib *a = NULL; @@ -653,7 +655,7 @@ static void nr_curses(stream *out, int indent, const faction *viewer, objtype_t nr_curses_i(out, indent, viewer, typ, obj, a, self); } -static void rps_nowrap(stream *out, const char *s) +static void rps_nowrap(struct stream *out, const char *s) { const char *x = s; size_t indent = 0; @@ -676,12 +678,11 @@ static void rps_nowrap(stream *out, const char *s) } static void -nr_unit(stream *out, const faction * f, const unit * u, int indent, int mode) +nr_unit(struct stream *out, const faction * f, const unit * u, int indent, seen_mode mode) { - attrib *a_otherfaction; char marker; int dh; - bool isbattle = (bool)(mode == see_battle); + bool isbattle = (bool)(mode == seen_battle); char buf[8192]; if (fval(u_race(u), RCF_INVISIBLE)) @@ -690,16 +691,14 @@ nr_unit(stream *out, const faction * f, const unit * u, int indent, int mode) newline(out); dh = bufunit(f, u, indent, mode, buf, sizeof(buf)); - a_otherfaction = a_find(u->attribs, &at_otherfaction); - if (u->faction == f) { marker = '*'; } else if (is_allied(u->faction, f)) { marker = 'o'; } - else if (a_otherfaction && f != u->faction - && get_otherfaction(a_otherfaction) == f && !fval(u, UFL_ANON_FACTION)) { + else if (u->attribs && f != u->faction + && !fval(u, UFL_ANON_FACTION) && get_otherfaction(u) == f) { marker = '!'; } else { @@ -718,8 +717,8 @@ nr_unit(stream *out, const faction * f, const unit * u, int indent, int mode) } static void -rp_messages(stream *out, message_list * msgs, faction * viewer, int indent, -bool categorized) +rp_messages(struct stream *out, message_list * msgs, faction * viewer, int indent, + bool categorized) { nrsection *section; @@ -754,7 +753,7 @@ bool categorized) } } -static void rp_battles(stream *out, faction * f) +static void rp_battles(struct stream *out, faction * f) { if (f->battles != NULL) { struct bmsg *bm = f->battles; @@ -774,7 +773,7 @@ static void rp_battles(stream *out, faction * f) } } -static void prices(stream *out, const region * r, const faction * f) +static void prices(struct stream *out, const region * r, const faction * f) { const luxury_type *sale = NULL; struct demand *dmd; @@ -812,7 +811,7 @@ static void prices(stream *out, const region * r, const faction * f) if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); - for (dmd = r->land->demands; dmd; dmd = dmd->next){ + for (dmd = r->land->demands; dmd; dmd = dmd->next) { if (dmd->value > 0) { m = msg_message("nr_market_price", "product price", dmd->type->itype->rtype, dmd->value * dmd->type->price); @@ -876,9 +875,8 @@ bool see_border(const connection * b, const faction * f, const region * r) return cs; } -static void describe(stream *out, const seen_region * sr, faction * f) +void report_region(struct stream *out, const region * r, faction * f) { - const region *r; int n; bool dh; direction_t d; @@ -902,9 +900,8 @@ static void describe(stream *out, const seen_region * sr, faction * f) assert(out); assert(f); - assert(sr); + assert(r); - r = sr->r; for (d = 0; d != MAXDIRECTIONS; d++) { /* Nachbarregionen, die gesehen werden, ermitteln */ region *r2 = rconnect(r, d); @@ -917,17 +914,19 @@ static void describe(stream *out, const seen_region * sr, faction * f) bool transparent = b->type->transparent(b, f); const char *name = border_name(b, r, f, GF_DETAILED | GF_ARTICLE); - if (!transparent) + if (!transparent) { see[d] = false; + } if (!see_border(b, f, r)) { b = b->next; continue; } - while (e && (e->transparent != transparent || strcmp(name, e->name))) + while (e && (e->transparent != transparent || strcmp(name, e->name)!=0)) { e = e->next; + } if (!e) { e = calloc(sizeof(struct edge), 1); - e->name = _strdup(name); + e->name = strdup(name); e->transparent = transparent; e->next = edges; edges = e; @@ -942,14 +941,14 @@ static void describe(stream *out, const seen_region * sr, faction * f) if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); - if (sr->mode == see_travel) { - bytes = _snprintf(bufp, size, " (%s)", LOC(f->locale, "see_travel")); + if (r->seen.mode == seen_travel) { + bytes = snprintf(bufp, size, " (%s)", LOC(f->locale, "see_travel")); } - else if (sr->mode == see_neighbour) { - bytes = _snprintf(bufp, size, " (%s)", LOC(f->locale, "see_neighbour")); + else if (r->seen.mode == seen_neighbour) { + bytes = snprintf(bufp, size, " (%s)", LOC(f->locale, "see_neighbour")); } - else if (sr->mode == see_lighthouse) { - bytes = _snprintf(bufp, size, " (%s)", LOC(f->locale, "see_lighthouse")); + else if (r->seen.mode == seen_lighthouse) { + bytes = snprintf(bufp, size, " (%s)", LOC(f->locale, "see_lighthouse")); } else { bytes = 0; @@ -972,7 +971,7 @@ static void describe(stream *out, const seen_region * sr, faction * f) saplings = rtrees(r, 1); if (production(r)) { if (trees > 0 || saplings > 0) { - bytes = _snprintf(bufp, size, ", %d/%d ", trees, saplings); + bytes = snprintf(bufp, size, ", %d/%d ", trees, saplings); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); @@ -985,10 +984,10 @@ static void describe(stream *out, const seen_region * sr, faction * f) } } else if (trees == 1) { - bytes = (int)strlcpy(bufp, LOC(f->locale, "nr_tree"), size); + bytes = (int)strlcpy(bufp, LOC(f->locale, "tree"), size); } else { - bytes = (int)strlcpy(bufp, LOC(f->locale, "nr_tree_p"), size); + bytes = (int)strlcpy(bufp, LOC(f->locale, "tree_p"), size); } if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); @@ -996,14 +995,15 @@ static void describe(stream *out, const seen_region * sr, faction * f) } /* iron & stone */ - if (sr->mode == see_unit) { + if (r->seen.mode == seen_unit) { resource_report result[MAX_RAWMATERIALS]; - int n, numresults = report_resources(sr, result, MAX_RAWMATERIALS, f); + int n, numresults = report_resources(r, result, MAX_RAWMATERIALS, f, true); for (n = 0; n < numresults; ++n) { if (result[n].number >= 0 && result[n].level >= 0) { - bytes = _snprintf(bufp, size, ", %d %s/%d", result[n].number, - LOC(f->locale, result[n].name), result[n].level); + const char * name = resourcename(result[n].rtype, result[n].number!=1); + bytes = snprintf(bufp, size, ", %d %s/%d", result[n].number, + LOC(f->locale, name), result[n].level); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); } @@ -1013,34 +1013,23 @@ static void describe(stream *out, const seen_region * sr, faction * f) /* peasants & silver */ if (rpeasants(r)) { int n = rpeasants(r); - bytes = _snprintf(bufp, size, ", %d", n); + bytes = snprintf(bufp, size, ", %d", n); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); if (r->land->ownership) { const char *str = LOC(f->locale, mkname("morale", itoa10(region_get_morale(r)))); - bytes = _snprintf(bufp, size, " %s", str); + bytes = snprintf(bufp, size, " %s", str); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); } - if (fval(r, RF_ORCIFIED)) { - bytes = (int)strlcpy(bufp, " ", size); - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - - bytes = - (int)strlcpy(bufp, LOC(f->locale, n == 1 ? "rc_orc" : "rc_orc_p"), + bytes = (int)strlcpy(bufp, " ", size); + if (wrptr(&bufp, &size, bytes) != 0) + WARN_STATIC_BUFFER(); + bytes = + (int)strlcpy(bufp, LOC(f->locale, n == 1 ? "peasant" : "peasant_p"), size); - } - else { - bytes = (int)strlcpy(bufp, " ", size); - if (wrptr(&bufp, &size, bytes) != 0) - WARN_STATIC_BUFFER(); - bytes = - (int)strlcpy(bufp, LOC(f->locale, n == 1 ? "peasant" : "peasant_p"), - size); - } if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); if (is_mourning(r, turn + 1)) { @@ -1049,20 +1038,20 @@ static void describe(stream *out, const seen_region * sr, faction * f) WARN_STATIC_BUFFER(); } } - if (rmoney(r) && sr->mode >= see_travel) { - bytes = _snprintf(bufp, size, ", %d ", rmoney(r)); + if (rmoney(r) && r->seen.mode >= seen_travel) { + bytes = snprintf(bufp, size, ", %d ", rmoney(r)); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); bytes = (int)strlcpy(bufp, LOC(f->locale, resourcename(get_resourcetype(R_SILVER), - rmoney(r) != 1)), size); + rmoney(r) != 1)), size); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); } /* Pferde */ if (rhorses(r)) { - bytes = _snprintf(bufp, size, ", %d ", rhorses(r)); + bytes = snprintf(bufp, size, ", %d ", rhorses(r)); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); bytes = @@ -1150,7 +1139,7 @@ static void describe(stream *out, const seen_region * sr, faction * f) if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); f_regionid(r2, f, regname, sizeof(regname)); - bytes = _snprintf(bufp, size, trailinto(r2, f->locale), regname); + bytes = snprintf(bufp, size, trailinto(r2, f->locale), regname); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); } @@ -1190,11 +1179,10 @@ static void describe(stream *out, const seen_region * sr, faction * f) dh = 1; } } - newline(out); *bufp = 0; paragraph(out, buf, 0, 0, 0); - if (sr->mode == see_unit && is_astral(r) && + if (r->seen.mode == seen_unit && is_astral(r) && !is_cursed(r->attribs, C_ASTRALBLOCK, 0)) { /* Sonderbehandlung Teleport-Ebene */ region_list *rl = astralregions(r, inhabitable); @@ -1204,7 +1192,7 @@ static void describe(stream *out, const seen_region * sr, faction * f) bufp = buf; size = sizeof(buf) - 1; - // this localization might not work for every language but is fine for de and en + /* this localization might not work for every language but is fine for de and en */ bytes = (int)strlcpy(bufp, LOC(f->locale, "nr_schemes_prefix"), size); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); @@ -1246,7 +1234,7 @@ static void describe(stream *out, const seen_region * sr, faction * f) for (d = 0; d != MAXDIRECTIONS; ++d) { if (!e->exist[d]) continue; - // this localization might not work for every language but is fine for de and en + /* this localization might not work for every language but is fine for de and en */ if (first) bytes = (int)strlcpy(bufp, LOC(f->locale, "nr_borderlist_prefix"), size); else if (e->lastd == d) @@ -1260,8 +1248,8 @@ static void describe(stream *out, const seen_region * sr, faction * f) WARN_STATIC_BUFFER(); first = false; } - // TODO name is localized? Works for roads anyway... - // TODO: creating messages during reporting makes them not show up in CR? + /* TODO name is localized? Works for roads anyway... */ + /* TODO: creating messages during reporting makes them not show up in CR? */ msg = msg_message("nr_borderlist_postfix", "transparent object", e->transparent, e->name); bytes = (int)nr_render(msg, f->locale, bufp, size, f); @@ -1282,7 +1270,7 @@ static void describe(stream *out, const seen_region * sr, faction * f) } } -static void statistics(stream *out, const region * r, const faction * f) +static void statistics(struct stream *out, const region * r, const faction * f) { const unit *u; int number = 0, p = rpeasants(r); @@ -1390,18 +1378,16 @@ static int buildingmaintenance(const building * b, const resource_type * rtype) } static int -report_template(const char *filename, report_context * ctx, const char *charset) +report_template(const char *filename, report_context * ctx, const char *bom) { const resource_type *rsilver = get_resourcetype(R_SILVER); faction *f = ctx->f; region *r; FILE *F = fopen(filename, "w"); stream strm = { 0 }, *out = &strm; - seen_region *sr = NULL; char buf[8192], *bufp; size_t size; int bytes; - bool utf8 = _strcmpl(charset, "utf8") == 0 || _strcmpl(charset, "utf-8") == 0; const curse_type *nocost_ct = ct_find("nocostbuilding"); if (F == NULL) { @@ -1410,9 +1396,8 @@ report_template(const char *filename, report_context * ctx, const char *charset) } fstream_init(&strm, F); - if (utf8) { - const unsigned char utf8_bom[4] = { 0xef, 0xbb, 0xbf, 0 }; - swrite(utf8_bom, 1, 3, out); + if (bom) { + swrite(bom, 1, strlen(bom), out); } newline(out); @@ -1420,7 +1405,7 @@ report_template(const char *filename, report_context * ctx, const char *charset) newline(out); newline(out); - sprintf(buf, "%s %s \"password\"", LOC(f->locale, "ERESSEA"), factionid(f)); + sprintf(buf, "%s %s \"password\"", LOC(f->locale, parameters[P_FACTION]), itoa36(f->no)); rps_nowrap(out, buf); newline(out); newline(out); @@ -1429,16 +1414,11 @@ report_template(const char *filename, report_context * ctx, const char *charset) rps_nowrap(out, buf); newline(out); - for (r = ctx->first; sr == NULL && r != ctx->last; r = r->next) { - sr = find_seen(ctx->f->seen, r); - } - - for (; sr != NULL; sr = sr->next) { - region *r = sr->r; + for (r = ctx->first; r != ctx->last; r = r->next) { unit *u; int dh = 0; - if (sr->mode < see_unit) + if (r->seen.mode < seen_unit) continue; for (u = r->units; u; u = u->next) { @@ -1470,9 +1450,9 @@ report_template(const char *filename, report_context * ctx, const char *charset) bufp = buf; size = sizeof(buf) - 1; - bytes = _snprintf(bufp, size, "%s %s; %s [%d,%d$", + bytes = snprintf(bufp, size, "%s %s; %s [%d,%d$", LOC(u->faction->locale, parameters[P_UNIT]), - unitid(u), unit_getname(u), u->number, get_money(u)); + itoa36(u->no), unit_getname(u), u->number, get_money(u)); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); if (u->building && building_owner(u->building) == u) { @@ -1498,7 +1478,7 @@ report_template(const char *filename, report_context * ctx, const char *charset) } if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); - bytes = (int)strlcpy(bufp, shipid(u->ship), size); + bytes = (int)strlcpy(bufp, itoa36(u->ship->no), size); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); } @@ -1640,7 +1620,7 @@ show_allies(const faction * f, const ally * allies, char *buf, size_t size) *bufp = 0; } -static void allies(stream *out, const faction * f) +static void allies(struct stream *out, const faction * f) { const group *g = f->groups; char buf[16384]; @@ -1648,7 +1628,7 @@ static void allies(stream *out, const faction * f) if (f->allies) { int bytes; size_t size = sizeof(buf); - bytes = _snprintf(buf, size, "%s ", LOC(f->locale, "faction_help")); + bytes = snprintf(buf, size, "%s ", LOC(f->locale, "faction_help")); size -= bytes; show_allies(f, f->allies, buf + bytes, size); paragraph(out, buf, 0, 0, 0); @@ -1659,7 +1639,7 @@ static void allies(stream *out, const faction * f) if (g->allies) { int bytes; size_t size = sizeof(buf); - bytes = _snprintf(buf, size, "%s %s ", g->name, LOC(f->locale, "group_help")); + bytes = snprintf(buf, size, "%s %s ", g->name, LOC(f->locale, "group_help")); size -= bytes; show_allies(f, g->allies, buf + bytes, size); paragraph(out, buf, 0, 0, 0); @@ -1669,7 +1649,7 @@ static void allies(stream *out, const faction * f) } } -static void guards(stream *out, const region * r, const faction * see) +static void guards(struct stream *out, const region * r, const faction * see) { /* die Partei see sieht dies; wegen * "unbekannte Partei", wenn man es selbst ist... */ @@ -1681,7 +1661,7 @@ static void guards(stream *out, const region * r, const faction * see) /* Bewachung */ for (u = r->units; u; u = u->next) { - if (is_guard(u, GUARD_ALL) != 0) { + if (is_guard(u) != 0) { faction *f = u->faction; faction *fv = visible_faction(see, u); @@ -1742,26 +1722,26 @@ static void guards(stream *out, const region * r, const faction * see) } } -static void rpline(stream *out) +static void rpline(struct stream *out) { static char line[REPORTWIDTH + 1]; if (line[0] != '-') { memset(line, '-', sizeof(line)); line[REPORTWIDTH] = '\n'; } - swrite(line, sizeof(char), sizeof(line), out); + swrite(line, sizeof(line), 1, out); } -static void list_address(stream *out, const faction * uf, quicklist * seenfactions) +static void list_address(struct stream *out, const faction * uf, selist * seenfactions) { int qi = 0; - quicklist *flist = seenfactions; + selist *flist = seenfactions; centre(out, LOC(uf->locale, "nr_addresses"), false); newline(out); while (flist != NULL) { - const faction *f = (const faction *)ql_get(flist, qi); + const faction *f = (const faction *)selist_get(flist, qi); if (!is_monsters(f)) { char buf[8192]; char label = '-'; @@ -1776,17 +1756,16 @@ static void list_address(stream *out, const faction * uf, quicklist * seenfactio label = '+'; paragraph(out, buf, 4, 0, label); } - ql_advance(&flist, &qi, 1); + selist_advance(&flist, &qi, 1); } newline(out); rpline(out); } static void -nr_ship(stream *out, const seen_region * sr, const ship * sh, const faction * f, -const unit * captain) +nr_ship(struct stream *out, const region *r, const ship * sh, const faction * f, + const unit * captain) { - const region *r = sr->r; char buffer[8192], *bufp = buffer; size_t size = sizeof(buffer) - 1; int bytes; @@ -1799,20 +1778,20 @@ const unit * captain) getshipweight(sh, &n, &p); n = (n + 99) / 100; /* 1 Silber = 1 GE */ - bytes = _snprintf(bufp, size, "%s, %s, (%d/%d)", shipname(sh), + bytes = snprintf(bufp, size, "%s, %s, (%d/%d)", shipname(sh), LOC(f->locale, sh->type->_name), n, shipcapacity(sh) / 100); } else { bytes = - _snprintf(bufp, size, "%s, %s", shipname(sh), LOC(f->locale, - sh->type->_name)); + snprintf(bufp, size, "%s, %s", shipname(sh), LOC(f->locale, + sh->type->_name)); } if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); assert(sh->type->construction->improvement == NULL); /* sonst ist construction::size nicht ship_type::maxsize */ if (sh->size != sh->type->construction->maxsize) { - bytes = _snprintf(bufp, size, ", %s (%d/%d)", + bytes = snprintf(bufp, size, ", %s (%d/%d)", LOC(f->locale, "nr_undercons"), sh->size, sh->type->construction->maxsize); if (wrptr(&bufp, &size, bytes) != 0) @@ -1821,7 +1800,7 @@ const unit * captain) if (sh->damage) { int percent = ship_damage_percent(sh); bytes = - _snprintf(bufp, size, ", %d%% %s", percent, LOC(f->locale, "nr_damaged")); + snprintf(bufp, size, ", %d%% %s", percent, LOC(f->locale, "nr_damaged")); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); } @@ -1857,8 +1836,7 @@ const unit * captain) } static void -nr_building(stream *out, const seen_region * sr, const building * b, -const faction * f) +nr_building(struct stream *out, const region *r, const building *b, const faction *f) { int i, bytes; const char *name, *bname, *billusion = NULL; @@ -1871,8 +1849,8 @@ const faction * f) lang = f->locale; newline(out); bytes = - _snprintf(bufp, size, "%s, %s %d, ", buildingname(b), LOC(lang, - "nr_size"), b->size); + snprintf(bufp, size, "%s, %s %d, ", buildingname(b), LOC(lang, + "nr_size"), b->size); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); @@ -1886,7 +1864,7 @@ const faction * f) if (owner && owner->faction == f) { /* illusion. report real type */ name = LOC(lang, bname); - bytes = _snprintf(bufp, size, " (%s)", name); + bytes = snprintf(bufp, size, " (%s)", name); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); } @@ -1898,7 +1876,7 @@ const faction * f) WARN_STATIC_BUFFER(); } - if (b->besieged > 0 && sr->mode >= see_lighthouse) { + if (b->besieged > 0 && r->seen.mode >= seen_lighthouse) { msg = msg_message("nr_building_besieged", "soldiers diff", b->besieged, b->besieged - b->size * SIEGEFACTOR); bytes = (int)nr_render(msg, lang, bufp, size, f); @@ -1925,14 +1903,12 @@ const faction * f) *bufp = 0; paragraph(out, buffer, 2, 0, 0); - if (sr->mode < see_lighthouse) - return; - - i = 0; - nr_curses(out, 4, f, TYP_BUILDING, b); + if (r->seen.mode >= seen_lighthouse) { + nr_curses(out, 4, f, TYP_BUILDING, b); + } } -static void nr_paragraph(stream *out, message * m, faction * f) +static void nr_paragraph(struct stream *out, message * m, faction * f) { int bytes; char buf[4096], *bufp = buf; @@ -1948,14 +1924,14 @@ static void nr_paragraph(stream *out, message * m, faction * f) } typedef struct cb_data { - stream *out; + struct stream *out; char *start, *writep; size_t size; const faction *f; int maxtravel, counter; } cb_data; -static void init_cb(cb_data *data, stream *out, char *buffer, size_t size, const faction *f) { +static void init_cb(cb_data *data, struct stream *out, char *buffer, size_t size, const faction *f) { data->out = out; data->writep = buffer; data->start = buffer; @@ -2008,7 +1984,7 @@ static void cb_write_travelthru(region *r, unit *u, void *cbdata) { } } if (len >= size || data->counter == data->maxtravel) { - // buffer is full + /* buffer is full */ *writep = 0; paragraph(data->out, data->start, 0, 0, 0); data->writep = data->start; @@ -2020,7 +1996,7 @@ static void cb_write_travelthru(region *r, unit *u, void *cbdata) { } } -void write_travelthru(stream *out, region * r, const faction * f) +void report_travelthru(struct stream *out, region *r, const faction *f) { int maxtravel; char buf[8192]; @@ -2038,7 +2014,7 @@ void write_travelthru(stream *out, region * r, const faction * f) init_cb(&cbdata, out, buf, sizeof(buf), f); cbdata.maxtravel = maxtravel; - cbdata.writep += + cbdata.writep += strlcpy(buf, LOC(f->locale, "travelthru_header"), sizeof(buf)); travelthru_map(r, cb_write_travelthru, &cbdata); return; @@ -2047,12 +2023,12 @@ void write_travelthru(stream *out, region * r, const faction * f) int report_plaintext(const char *filename, report_context * ctx, -const char *charset) + const char *bom) { int flag = 0; char ch; int anyunits, no_units, no_people; - const struct region *r; + region *r; faction *f = ctx->f; unit *u; char pzTime[64]; @@ -2063,15 +2039,13 @@ const char *charset) int wants_stats = (f->options & ix); FILE *F = fopen(filename, "w"); stream strm = { 0 }, *out = &strm; - seen_region *sr = NULL; char buf[8192]; char *bufp; - bool utf8 = _strcmpl(charset, "utf8") == 0 || _strcmpl(charset, "utf-8") == 0; size_t size; int thisseason; int nextseason; gamedate date; - + get_gamedate(turn + 1, &date); thisseason = date.season; get_gamedate(turn + 2, &date); @@ -2083,9 +2057,8 @@ const char *charset) } fstream_init(&strm, F); - if (utf8) { - const unsigned char utf8_bom[4] = { 0xef, 0xbb, 0xbf, 0 }; - fwrite(utf8_bom, 1, 3, F); + if (bom) { + fwrite(bom, 1, strlen(bom), F); } strftime(pzTime, 64, "%A, %d. %B %Y, %H:%M", localtime(&ctx->report_time)); @@ -2105,19 +2078,24 @@ const char *charset) } if (f->age <= 2) { - const char *s; - s = locale_getstring(f->locale, "newbie_info_game"); - if (s) { - newline(out); - centre(out, s, true); + const char *email; + const char *subject; + email = config_get("game.email"); + subject = get_mailcmd(f->locale); + m = msg_message("newbie_info_game", "email subject", email, subject); + if (m) { + nr_render(m, f->locale, buf, sizeof(buf), f); + msg_release(m); + centre(out, buf, true); } if ((f->options & want(O_COMPUTER)) == 0) { - f->options |= want(O_COMPUTER); + const char *s; s = locale_getstring(f->locale, "newbie_info_cr"); if (s) { newline(out); centre(out, s, true); } + f->options |= want(O_COMPUTER); } } newline(out); @@ -2153,8 +2131,8 @@ const char *charset) if (f_get_alliance(f)) { m = msg_message("nr_alliance", "leader name id age", - alliance_get_leader(f->alliance), f->alliance->name, f->alliance->id, - turn - f->alliance_joindate); + alliance_get_leader(f->alliance), f->alliance->name, f->alliance->id, + turn - f->alliance_joindate); nr_render(m, f->locale, buf, sizeof(buf), f); msg_release(m); centre(out, buf, true); @@ -2192,7 +2170,7 @@ const char *charset) bufp = buf; size = sizeof(buf) - 1; - bytes = _snprintf(buf, size, "%s:", LOC(f->locale, "nr_options")); + bytes = snprintf(buf, size, "%s:", LOC(f->locale, "nr_options")); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); for (op = 0; op != MAXOPTIONS; op++) { @@ -2244,14 +2222,14 @@ const char *charset) newline(out); centre(out, LOC(f->locale, pname), true); - _snprintf(buf, sizeof(buf), "%s %d", LOC(f->locale, "nr_level"), + snprintf(buf, sizeof(buf), "%s %d", LOC(f->locale, "nr_level"), ptype->level); centre(out, buf, true); newline(out); bufp = buf; size = sizeof(buf) - 1; - bytes = _snprintf(bufp, size, "%s: ", LOC(f->locale, "nr_herbsrequired")); + bytes = snprintf(bufp, size, "%s: ", LOC(f->locale, "nr_herbsrequired")); if (wrptr(&bufp, &size, bytes) != 0) WARN_STATIC_BUFFER(); @@ -2272,10 +2250,8 @@ const char *charset) *bufp = 0; centre(out, buf, true); newline(out); - if (description == NULL) { - const char *potiontext = mkname("potion", pname); - description = LOC(f->locale, potiontext); - } + description = mkname("potion", pname); + description = LOC(f->locale, description); centre(out, description, true); } } @@ -2291,22 +2267,19 @@ const char *charset) CHECK_ERRNO(); anyunits = 0; - for (r = ctx->first; sr == NULL && r != ctx->last; r = r->next) { - sr = find_seen(ctx->f->seen, r); - } - for (; sr != NULL; sr = sr->next) { - region *r = sr->r; - int stealthmod = stealth_modifier(sr->mode); + for (r = ctx->first; r != ctx->last; r = r->next) { + int stealthmod = stealth_modifier(r->seen.mode); building *b = r->buildings; ship *sh = r->ships; - if (sr->mode < see_lighthouse) + if (r->seen.mode < seen_lighthouse) continue; /* Beschreibung */ - if (sr->mode == see_unit) { + if (r->seen.mode == seen_unit) { anyunits = 1; - describe(out, sr, f); + newline(out); + report_region(out, r, f); if (markets_module() && r->land) { const item_type *lux = r_luxury(r); const item_type *herb = r->land->herbtype; @@ -2333,31 +2306,32 @@ const char *charset) } guards(out, r, f); newline(out); - write_travelthru(out, r, f); + report_travelthru(out, r, f); } else { - if (sr->mode == see_far) { - describe(out, sr, f); + if (r->seen.mode == seen_far) { + newline(out); + report_region(out, r, f); newline(out); guards(out, r, f); newline(out); - write_travelthru(out, r, f); + report_travelthru(out, r, f); } else { - describe(out, sr, f); newline(out); - write_travelthru(out, r, f); + report_region(out, r, f); + newline(out); + report_travelthru(out, r, f); } } /* Statistik */ - if (wants_stats && sr->mode == see_unit) + if (wants_stats && r->seen.mode == seen_unit) statistics(out, r, f); /* Nachrichten an REGION in der Region */ - if (sr->mode == see_unit || sr->mode == see_travel) { - // TODO: Bug 2073 + if (r->seen.mode == seen_unit || r->seen.mode == seen_travel) { message_list *mlist = r_getmessages(r, f); if (mlist) { struct mlist **split = merge_messages(mlist, r->msgs); @@ -2373,13 +2347,13 @@ const char *charset) u = r->units; while (b) { while (b && (!u || u->building != b)) { - nr_building(out, sr, b, f); + nr_building(out, r, b, f); b = b->next; } if (b) { - nr_building(out, sr, b, f); + nr_building(out, r, b, f); while (u && u->building == b) { - nr_unit(out, f, u, 6, sr->mode); + nr_unit(out, f, u, 6, r->seen.mode); u = u->next; } b = b->next; @@ -2388,7 +2362,7 @@ const char *charset) while (u && !u->ship) { if (stealthmod > INT_MIN) { if (u->faction == f || cansee(f, r, u, stealthmod)) { - nr_unit(out, f, u, 4, sr->mode); + nr_unit(out, f, u, 4, r->seen.mode); } } assert(!u->building); @@ -2396,13 +2370,13 @@ const char *charset) } while (sh) { while (sh && (!u || u->ship != sh)) { - nr_ship(out, sr, sh, f, NULL); + nr_ship(out, r, sh, f, NULL); sh = sh->next; } if (sh) { - nr_ship(out, sr, sh, f, u); + nr_ship(out, r, sh, f, u); while (u && u->ship == sh) { - nr_unit(out, f, u, 6, sr->mode); + nr_unit(out, f, u, 6, r->seen.mode); u = u->next; } sh = sh->next; @@ -2464,7 +2438,7 @@ unit *can_find(faction * f, faction * f2) if (ss) { /* bei TARNE PARTEI yxz muss die Partei von unit proof nicht * wirklich Partei f2 sein! */ - /* assert(ss->proof->faction==f2); */ + /* assert(ss->proof->faction==f2); */ return ss->proof; } return NULL; diff --git a/src/report.h b/src/report.h index 66eb4a4b9..45c620562 100644 --- a/src/report.h +++ b/src/report.h @@ -23,10 +23,12 @@ extern "C" { struct spellbook_entry; struct region; struct faction; + struct locale; void register_nr(void); void report_cleanup(void); void write_spaces(struct stream *out, size_t num); - void write_travelthru(struct stream *out, const struct region * r, const struct faction * f); + void report_travelthru(struct stream *out, struct region * r, const struct faction * f); + void report_region(struct stream *out, const struct region * r, struct faction * f); void nr_spell_syntax(struct stream *out, struct spellbook_entry * sbe, const struct locale *lang); void nr_spell(struct stream *out, struct spellbook_entry * sbe, const struct locale *lang); diff --git a/src/report.test.c b/src/report.test.c new file mode 100644 index 000000000..3c6a09ae1 --- /dev/null +++ b/src/report.test.c @@ -0,0 +1,327 @@ +#include +#include "report.h" +#include "move.h" +#include "travelthru.h" +#include "keyword.h" + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#include +#include +#include + +#include +#include + +#include +#include + +#include + +static void test_write_spaces(CuTest *tc) { + stream out = { 0 }; + char buf[1024]; + size_t len; + + mstream_init(&out); + write_spaces(&out, 4); + out.api->rewind(out.handle); + len = out.api->read(out.handle, buf, sizeof(buf)); + buf[len] = '\0'; + CuAssertStrEquals(tc, " ", buf); + CuAssertIntEquals(tc, ' ', buf[3]); + mstream_done(&out); +} + +static void test_write_many_spaces(CuTest *tc) { + stream out = { 0 }; + char buf[1024]; + size_t len; + + mstream_init(&out); + write_spaces(&out, 100); + out.api->rewind(out.handle); + len = out.api->read(out.handle, buf, sizeof(buf)); + buf[len] = '\0'; + CuAssertIntEquals(tc, 100, (int)len); + CuAssertIntEquals(tc, ' ', buf[99]); + mstream_done(&out); +} + +static void test_report_region(CuTest *tc) { + char buf[1024]; + region *r; + faction *f; + unit *u; + stream out = { 0 }; + size_t len; + struct locale *lang; + struct resource_type *rt_stone; + construction *cons; + + test_setup(); + init_resources(); + rt_stone = rt_get_or_create("stone"); + rt_stone->itype = it_get_or_create(rt_stone); + cons = rt_stone->itype->construction = calloc(1, sizeof(construction)); + cons->minskill = 1; + cons->skill = SK_QUARRYING; + rmt_create(rt_stone); + + lang = get_or_create_locale("de"); /* CR tags are translated from this */ + locale_setstring(lang, "money", "Silber"); + locale_setstring(lang, "money_p", "Silber"); + locale_setstring(lang, "horse", "Pferd"); + locale_setstring(lang, "horse_p", "Pferde"); + locale_setstring(lang, "peasant", "Bauer"); + locale_setstring(lang, "peasant_p", "Bauern"); + locale_setstring(lang, "tree", "Blume"); + locale_setstring(lang, "tree_p", "Blumen"); + locale_setstring(lang, "stone", "Stein"); + locale_setstring(lang, "stone_p", "Steine"); + locale_setstring(lang, "sapling", "Schoessling"); + locale_setstring(lang, "sapling_p", "Schoesslinge"); + locale_setstring(lang, "plain", "Ebene"); + locale_setstring(lang, "see_travel", "durchgereist"); + + mstream_init(&out); + r = test_create_region(0, 0, 0); + add_resource(r, 1, 100, 10, rt_stone); + r->resources->amount = 135; + CuAssertIntEquals(tc, 1, r->resources->level); + r->land->peasants = 5; + r->land->horses = 7; + r->land->money = 2; + rsettrees(r, 0, 1); + rsettrees(r, 1, 2); + rsettrees(r, 2, 3); + region_setname(r, "Hodor"); + f = test_create_faction(0); + f->locale = lang; + u = test_create_unit(f, r); + set_level(u, SK_QUARRYING, 1); + + r->seen.mode = seen_travel; + report_region(&out, r, f); + out.api->rewind(out.handle); + len = out.api->read(out.handle, buf, sizeof(buf)); + buf[len] = '\0'; + CuAssertStrEquals(tc, "Hodor (0,0) (durchgereist), Ebene, 3/2 Blumen, 5 Bauern, 2 Silber, 7 Pferde.\n", buf); + + r->seen.mode = seen_unit; + out.api->rewind(out.handle); + report_region(&out, r, f); + out.api->rewind(out.handle); + len = out.api->read(out.handle, buf, sizeof(buf)); + buf[len] = '\0'; + CuAssertStrEquals(tc, "Hodor (0,0), Ebene, 3/2 Blumen, 135 Steine/1, 5 Bauern, 2 Silber, 7 Pferde.\n", buf); + + r->resources->amount = 1; + r->land->peasants = 1; + r->land->horses = 1; + r->land->money = 1; + + r->seen.mode = seen_unit; + out.api->rewind(out.handle); + report_region(&out, r, f); + out.api->rewind(out.handle); + len = out.api->read(out.handle, buf, sizeof(buf)); + buf[len] = '\0'; + CuAssertStrEquals(tc, "Hodor (0,0), Ebene, 3/2 Blumen, 1 Stein/1, 1 Bauer, 1 Silber, 1 Pferd.\n", buf); + + mstream_done(&out); + test_cleanup(); +} + +static void test_report_travelthru(CuTest *tc) { + stream out = { 0 }; + char buf[1024]; + size_t len; + region *r; + faction *f; + unit *u; + struct locale *lang; + + test_setup(); + lang = get_or_create_locale("de"); + locale_setstring(lang, "travelthru_header", "Durchreise: "); + mstream_init(&out); + r = test_create_region(0, 0, 0); + r->flags |= RF_TRAVELUNIT; + f = test_create_faction(0); + f->locale = lang; + u = test_create_unit(f, test_create_region(0, 1, 0)); + unit_setname(u, "Hodor"); + unit_setid(u, 1); + + report_travelthru(&out, r, f); + out.api->rewind(out.handle); + len = out.api->read(out.handle, buf, sizeof(buf)); + CuAssertIntEquals_Msg(tc, "no travelers, no report", 0, (int)len); + mstream_done(&out); + + mstream_init(&out); + travelthru_add(r, u); + report_travelthru(&out, r, f); + out.api->rewind(out.handle); + len = out.api->read(out.handle, buf, sizeof(buf)); + buf[len] = '\0'; + CuAssertStrEquals_Msg(tc, "list one unit", "Durchreise: Hodor (1).\n", buf); + mstream_done(&out); + + mstream_init(&out); + move_unit(u, r, 0); + report_travelthru(&out, r, f); + out.api->rewind(out.handle); + len = out.api->read(out.handle, buf, sizeof(buf)); + CuAssertIntEquals_Msg(tc, "do not list units that stopped in the region", 0, (int)len); + + mstream_done(&out); + test_cleanup(); +} + +typedef struct { + struct locale *lang; + spell *sp; + spellbook *spb; + spellbook_entry * sbe; +} spell_fixture; + +static void setup_spell_fixture(spell_fixture * spf) { + spf->lang = test_create_locale(); + locale_setstring(spf->lang, mkname("spell", "testspell"), "Testzauber"); + locale_setstring(spf->lang, "nr_spell_type", "Typ:"); + locale_setstring(spf->lang, "sptype_normal", "Normal"); + locale_setstring(spf->lang, "nr_spell_modifiers", "Modifier:"); + locale_setstring(spf->lang, "smod_none", "Keine"); + locale_setstring(spf->lang, keyword(K_CAST), "ZAUBERE"); + locale_setstring(spf->lang, parameters[P_REGION], "REGION"); + locale_setstring(spf->lang, parameters[P_LEVEL], "STUFE"); + locale_setstring(spf->lang, "par_unit", "enr"); + locale_setstring(spf->lang, "par_ship", "snr"); + locale_setstring(spf->lang, "par_building", "bnr"); + locale_setstring(spf->lang, "spellpar::hodor", "Hodor"); + + spf->spb = create_spellbook("testbook"); + spf->sp = test_create_spell(); + spellbook_add(spf->spb, spf->sp, 1); + spf->sbe = spellbook_get(spf->spb, spf->sp); +} + +static void cleanup_spell_fixture(spell_fixture *spf) { + spellbook_clear(spf->spb); + free(spf->spb); + test_cleanup(); +} + +static void set_parameter(spell_fixture spell, char *value) { + free(spell.sp->parameter); + spell.sp->parameter = strdup(value); +} + +static void check_spell_syntax(CuTest *tc, char *msg, spell_fixture *spell, char *syntax) { + stream strm; + char buf[1024]; + char *linestart, *newline; + size_t len; + + mstream_init(&strm); + nr_spell_syntax(&strm, spell->sbe, spell->lang); + strm.api->rewind(strm.handle); + len = strm.api->read(strm.handle, buf, sizeof(buf)); + buf[len] = '\0'; + + linestart = strtok(buf, "\n"); + while (linestart && !strstr(linestart, "ZAUBERE")) + linestart = strtok(NULL, "\n"); + + CuAssertPtrNotNull(tc, linestart); + + newline = strtok(NULL, "\n"); + while (newline) { + *(newline - 1) = '\n'; + newline = strtok(NULL, "\n"); + } + + CuAssertStrEquals_Msg(tc, msg, syntax, linestart); + + mstream_done(&strm); +} + +static void test_write_spell_syntax(CuTest *tc) { + spell_fixture spell; + + test_cleanup(); + setup_spell_fixture(&spell); + + check_spell_syntax(tc, "vanilla", &spell, " ZAUBERE \"Testzauber\""); + + spell.sp->sptyp |= FARCASTING; + check_spell_syntax(tc, "far", &spell, " ZAUBERE [REGION x y] \"Testzauber\""); + + spell.sp->sptyp |= SPELLLEVEL; + check_spell_syntax(tc, "farlevel", &spell, " ZAUBERE [REGION x y] [STUFE n] \"Testzauber\""); + spell.sp->sptyp = 0; + + set_parameter(spell, "kc"); + check_spell_syntax(tc, "kc", &spell, " ZAUBERE \"Testzauber\" ( REGION | EINHEIT | SCHIFF | BURG )"); + + spell.sp->sptyp |= BUILDINGSPELL; + check_spell_syntax(tc, "kc typed", &spell, " ZAUBERE \"Testzauber\" BURG "); + spell.sp->sptyp = 0; + + set_parameter(spell, "b"); + check_spell_syntax(tc, "b", &spell, " ZAUBERE \"Testzauber\" "); + + set_parameter(spell, "s"); + check_spell_syntax(tc, "s", &spell, " ZAUBERE \"Testzauber\" "); + + set_parameter(spell, "s+"); + check_spell_syntax(tc, "s+", &spell, " ZAUBERE \"Testzauber\" [ ...]"); + + set_parameter(spell, "u"); + check_spell_syntax(tc, "u", &spell, " ZAUBERE \"Testzauber\" "); + + set_parameter(spell, "r"); + check_spell_syntax(tc, "r", &spell, " ZAUBERE \"Testzauber\" "); + + set_parameter(spell, "bc"); + free(spell.sp->syntax); + spell.sp->syntax = strdup("hodor"); + check_spell_syntax(tc, "bc hodor", &spell, " ZAUBERE \"Testzauber\" "); + free(spell.sp->syntax); + spell.sp->syntax = 0; + + set_parameter(spell, "c?"); + free(spell.sp->syntax); + spell.sp->syntax = strdup("hodor"); + check_spell_syntax(tc, "c?", &spell, " ZAUBERE \"Testzauber\" []"); + free(spell.sp->syntax); + spell.sp->syntax = 0; + + set_parameter(spell, "kc+"); + check_spell_syntax(tc, "kc+", &spell, + " ZAUBERE \"Testzauber\" ( REGION | EINHEIT [ ...] | SCHIFF \n [ ...] | BURG [ ...] )"); + + cleanup_spell_fixture(&spell); +} + +CuSuite *get_report_suite(void) +{ + CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_write_spaces); + SUITE_ADD_TEST(suite, test_write_many_spaces); + SUITE_ADD_TEST(suite, test_report_travelthru); + SUITE_ADD_TEST(suite, test_report_region); + SUITE_ADD_TEST(suite, test_write_spell_syntax); + return suite; +} diff --git a/src/reports.c b/src/reports.c index 06408d96e..c23809a32 100644 --- a/src/reports.c +++ b/src/reports.c @@ -19,8 +19,8 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include "reports.h" +#include "guard.h" #include "laws.h" -#include "seen.h" #include "travelthru.h" #include "lighthouse.h" #include "donations.h" @@ -57,7 +57,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include +#include /* libc includes */ #include @@ -77,7 +77,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include "move.h" #if defined(_MSC_VER) && _MSC_VER >= 1900 -# pragma warning(disable: 4774) // TODO: remove this +# pragma warning(disable: 4774) /* TODO: remove this */ #endif #define SCALEWEIGHT 100 /* Faktor, um den die Anzeige von Gewichten skaliert wird */ @@ -105,13 +105,41 @@ const char *coasts[MAXDIRECTIONS] = { "coast::w" }; +const char *options[MAXOPTIONS] = { + "AUSWERTUNG", + "COMPUTER", + "ZUGVORLAGE", + NULL, + "STATISTIK", + "DEBUG", + "ZIPPED", + "ZEITUNG", /* Option hat Sonderbehandlung! */ + NULL, + "ADRESSEN", + "BZIP2", + "PUNKTE", + "SHOWSKCHANGE" +}; + +bool omniscient(const faction *f) +{ + static const race *rc_template; + static int cache; + if (rc_changed(&cache)) { + rc_template = get_race(RC_TEMPLATE); + } + return (f->race == rc_template); +} + + + static char *groupid(const struct group *g, const struct faction *f) { typedef char name[OBJECTIDSIZE + 1]; static name idbuf[8]; static int nextbuf = 0; char *buf = idbuf[(++nextbuf) % 8]; - sprintf(buf, "%s (%s)", g->name, factionid(f)); + sprintf(buf, "%s (%s)", g->name, itoa36(f->no)); return buf; } @@ -128,10 +156,10 @@ size_t report_status(const unit * u, const struct locale *lang, char *fsbuf, siz if (!status) { const char *lname = locale_name(lang); - struct locale *wloc = get_or_create_locale(lname); - log_error("no translation for combat status %s in %s", combatstatus[u->status], lname); - locale_setstring(wloc, combatstatus[u->status], combatstatus[u->status]); - len = strlcpy(fsbuf, combatstatus[u->status], buflen); + struct locale *wloc = get_locale(lname); + log_warning("no translation for combat status %s in %s", combatstatus[u->status], lname); + locale_setstring(wloc, combatstatus[u->status], combatstatus[u->status]+7); + len = strlcpy(fsbuf, combatstatus[u->status]+7, buflen); } else { len = strlcpy(fsbuf, status, buflen); @@ -318,11 +346,11 @@ report_items(const unit *u, item * result, int size, const unit * owner, return n; } -static void -report_resource(resource_report * result, const char *name, int number, -int level) +static void report_resource(resource_report * result, const resource_type *rtype, + int number, int level) { - result->name = name; + assert(rtype); + result->rtype = rtype; result->number = number; result->level = level; } @@ -368,10 +396,9 @@ const char **illusion) } int -report_resources(const seen_region * sr, resource_report * result, int size, -const faction * viewer) +report_resources(const region * r, resource_report * result, int size, +const faction * viewer, bool see_unit) { - const region *r = sr->r; int n = 0; if (r->land) { @@ -381,57 +408,60 @@ const faction * viewer) int trees = rtrees(r, 2); int saplings = rtrees(r, 1); bool mallorn = fval(r, RF_MALLORN) != 0; + const resource_type *rtype; - if (money) { - if (n >= size) - return -1; - report_resource(result + n, "rm_money", money, -1); - ++n; - } - if (peasants) { - if (n >= size) - return -1; - report_resource(result + n, "rm_peasant", peasants, -1); - ++n; - } - if (horses) { - if (n >= size) - return -1; - report_resource(result + n, "rm_horse", horses, -1); - ++n; - } if (saplings) { if (n >= size) return -1; - report_resource(result + n, mallorn ? "rm_mallornsapling" : "rm_sapling", - saplings, -1); + rtype = get_resourcetype(mallorn ? R_MALLORN_SAPLING : R_SAPLING); + report_resource(result + n, rtype, saplings, -1); ++n; } if (trees) { if (n >= size) return -1; - report_resource(result + n, mallorn ? "rm_mallorn" : "rm_tree", trees, - -1); + rtype = get_resourcetype(mallorn ? R_MALLORN_TREE : R_TREE); + report_resource(result + n, rtype, trees, -1); + ++n; + } + if (money) { + if (n >= size) + return -1; + report_resource(result + n, get_resourcetype(R_SILVER), money, -1); + ++n; + } + if (peasants) { + if (n >= size) + return -1; + report_resource(result + n, get_resourcetype(R_PEASANT), peasants, -1); + ++n; + } + if (horses) { + if (n >= size) + return -1; + report_resource(result + n, get_resourcetype(R_HORSE), horses, -1); ++n; } } - if (sr->mode >= see_unit) { + if (see_unit) { rawmaterial *res = r->resources; while (res) { int maxskill = 0; const item_type *itype = resource2item(res->type->rtype); - int level = res->level + itype->construction->minskill - 1; + int minskill = itype->construction->minskill; + skill_t skill = itype->construction->skill; + int level = res->level + minskill - 1; int visible = -1; if (res->type->visible == NULL) { visible = res->amount; - level = res->level + itype->construction->minskill - 1; + level = res->level + minskill - 1; } else { const unit *u; for (u = r->units; visible != res->amount && u != NULL; u = u->next) { if (u->faction == viewer) { - int s = effskill(u, itype->construction->skill, 0); + int s = effskill(u, skill, 0); if (s > maxskill) { maxskill = s; visible = res->type->visible(res, maxskill); @@ -442,7 +472,7 @@ const faction * viewer) if (level >= 0 && visible >= 0) { if (n >= size) return -1; - report_resource(result + n, res->type->name, visible, level); + report_resource(result + n, res->type->rtype, visible, level); n++; } res = res->next; @@ -452,24 +482,24 @@ const faction * viewer) } int -bufunit(const faction * f, const unit * u, unsigned int indent, int mode, char *buf, +bufunit(const faction * f, const unit * u, unsigned int indent, seen_mode mode, char *buf, size_t size) { int i, dh; int getarnt = fval(u, UFL_ANON_FACTION); const char *pzTmp, *str; building *b; - bool isbattle = (bool)(mode == see_battle); + bool isbattle = (bool)(mode == seen_battle); item *itm, *show = NULL; - faction *fv = visible_faction(f, u); + faction *fv; char *bufp = buf; int result = 0; item results[MAX_INVENTORY]; + assert(f); bufp = STRLCPY(bufp, unitname(u), size); - + fv = visible_faction(f, u); if (!isbattle) { - attrib *a_otherfaction = a_find(u->attribs, &at_otherfaction); if (u->faction == f) { if (fval(u, UFL_GROUP)) { attrib *a = a_find(u->attribs, &at_group); @@ -483,11 +513,11 @@ size_t size) bufp = STRLCPY(bufp, ", ", size); bufp = STRLCPY(bufp, LOC(f->locale, "anonymous"), size); } - else if (a_otherfaction) { - faction *otherfaction = get_otherfaction(a_otherfaction); - if (otherfaction) { + else if (u->attribs) { + faction *otherf = get_otherfaction(u); + if (otherf) { bufp = STRLCPY(bufp, ", ", size); - bufp = STRLCPY(bufp, factionname(otherfaction), size); + bufp = STRLCPY(bufp, factionname(otherf), size); } } } @@ -497,13 +527,19 @@ size_t size) bufp = STRLCPY(bufp, LOC(f->locale, "anonymous"), size); } else { - if (a_otherfaction && alliedunit(u, f, HELP_FSTEALTH)) { - faction *f = get_otherfaction(a_otherfaction); - int result = - _snprintf(bufp, size, ", %s (%s)", factionname(f), - factionname(u->faction)); - if (wrptr(&bufp, &size, result) != 0) - WARN_STATIC_BUFFER(); + if (u->attribs && alliedunit(u, f, HELP_FSTEALTH)) { + faction *otherf = get_otherfaction(u); + if (otherf) { + int result = + snprintf(bufp, size, ", %s (%s)", factionname(otherf), + factionname(u->faction)); + if (wrptr(&bufp, &size, result) != 0) + WARN_STATIC_BUFFER(); + } + else { + bufp = STRLCPY(bufp, ", ", size); + bufp = STRLCPY(bufp, factionname(fv), size); + } } else { bufp = STRLCPY(bufp, ", ", size); @@ -515,7 +551,7 @@ size_t size) bufp = STRLCPY(bufp, ", ", size); - if (wrptr(&bufp, &size, _snprintf(bufp, size, "%d ", u->number))) + if (wrptr(&bufp, &size, snprintf(bufp, size, "%d ", u->number))) WARN_STATIC_BUFFER(); pzTmp = get_racename(u->attribs); @@ -571,7 +607,7 @@ size_t size) } } } - if (is_guard(u, GUARD_ALL) != 0) { + if (is_guard(u)) { bufp = STRLCPY(bufp, ", ", size); bufp = STRLCPY(bufp, LOC(f->locale, "unit_guards"), size); } @@ -596,7 +632,7 @@ size_t size) if (f == u->faction || omniscient(f)) { show = u->items; } - else if (mode >= see_unit) { + else if (mode >= seen_unit) { int n = report_items(u, results, MAX_INVENTORY, u, f); assert(n >= 0); if (n > 0) { @@ -612,7 +648,7 @@ size_t size) bufp = STRLCPY(bufp, ", ", size); if (!dh) { - result = _snprintf(bufp, size, "%s: ", LOC(f->locale, "nr_inventory")); + result = snprintf(bufp, size, "%s: ", LOC(f->locale, "nr_inventory")); if (wrptr(&bufp, &size, result) != 0) WARN_STATIC_BUFFER(); dh = 1; @@ -621,7 +657,7 @@ size_t size) bufp = STRLCPY(bufp, ic, size); } else { - if (wrptr(&bufp, &size, _snprintf(bufp, size, "%d %s", in, ic))) + if (wrptr(&bufp, &size, snprintf(bufp, size, "%d %s", in, ic))) WARN_STATIC_BUFFER(); } } @@ -630,19 +666,19 @@ size_t size) spellbook *book = unit_get_spellbook(u); if (book) { - quicklist *ql = book->spells; + selist *ql = book->spells; int qi, header, maxlevel = effskill(u, SK_MAGIC, 0); - int result = _snprintf(bufp, size, ". Aura %d/%d", get_spellpoints(u), max_spellpoints(u->region, u)); + int result = snprintf(bufp, size, ". Aura %d/%d", get_spellpoints(u), max_spellpoints(u->region, u)); if (wrptr(&bufp, &size, result) != 0) { WARN_STATIC_BUFFER(); } - for (header = 0, qi = 0; ql; ql_advance(&ql, &qi, 1)) { - spellbook_entry * sbe = (spellbook_entry *)ql_get(ql, qi); + for (header = 0, qi = 0; ql; selist_advance(&ql, &qi, 1)) { + spellbook_entry * sbe = (spellbook_entry *)selist_get(ql, qi); if (sbe->level <= maxlevel) { int result = 0; if (!header) { - result = _snprintf(bufp, size, ", %s: ", LOC(f->locale, "nr_spells")); + result = snprintf(bufp, size, ", %s: ", LOC(f->locale, "nr_spells")); header = 1; } else { @@ -651,6 +687,7 @@ size_t size) if (wrptr(&bufp, &size, result) != 0) { WARN_STATIC_BUFFER(); } + /* TODO: no need to deref the spellref here (spref->name is good) */ bufp = STRLCPY(bufp, spell_name(sbe->sp, f->locale), size); } } @@ -661,7 +698,7 @@ size_t size) } if (i != MAXCOMBATSPELLS) { int result = - _snprintf(bufp, size, ", %s: ", LOC(f->locale, "nr_combatspells")); + snprintf(bufp, size, ", %s: ", LOC(f->locale, "nr_combatspells")); if (wrptr(&bufp, &size, result) != 0) WARN_STATIC_BUFFER(); @@ -679,7 +716,7 @@ size_t size) int sl = get_combatspelllevel(u, i); bufp = STRLCPY(bufp, spell_name(sp, u->faction->locale), size); if (sl > 0) { - result = _snprintf(bufp, size, " (%d)", sl); + result = snprintf(bufp, size, " (%d)", sl); if (wrptr(&bufp, &size, result) != 0) WARN_STATIC_BUFFER(); } @@ -691,7 +728,7 @@ size_t size) } } if (!isbattle) { - bool printed = 0; + int printed = 0; order *ord;; for (ord = u->old_orders; ord; ord = ord->next) { keyword_t kwd = getkeyword(ord); @@ -742,7 +779,7 @@ size_t size) } dh = 0; - if (!getarnt && f) { + if (!getarnt) { if (alliedfaction(rplane(u->region), f, fv, HELP_ALL)) { dh = 1; } @@ -790,13 +827,13 @@ const struct unit * u, struct skill * sv, int *dh, int days) if (sv->id == SK_STEALTH && fval(u, UFL_STEALTH)) { i = u_geteffstealth(u); if (i >= 0) { - if (wrptr(&bufp, &size, _snprintf(bufp, size, "%d/", i)) != 0) + if (wrptr(&bufp, &size, snprintf(bufp, size, "%d/", i)) != 0) WARN_STATIC_BUFFER(); } } effsk = eff_skill(u, sv, 0); - if (wrptr(&bufp, &size, _snprintf(bufp, size, "%d", effsk)) != 0) + if (wrptr(&bufp, &size, snprintf(bufp, size, "%d", effsk)) != 0) WARN_STATIC_BUFFER(); if (u->faction->options & want(O_SHOWSKCHANGE)) { @@ -807,11 +844,11 @@ const struct unit * u, struct skill * sv, int *dh, int days) oldeff = sv->old + get_modifier(u, sv->id, sv->old, u->region, false); } - oldeff = _max(0, oldeff); + oldeff = MAX(0, oldeff); diff = effsk - oldeff; if (diff != 0) { - if (wrptr(&bufp, &size, _snprintf(bufp, size, " (%s%d)", (diff > 0) ? "+" : "", diff)) != 0) + if (wrptr(&bufp, &size, snprintf(bufp, size, " (%s%d)", (diff > 0) ? "+" : "", diff)) != 0) WARN_STATIC_BUFFER(); } } @@ -820,12 +857,8 @@ const struct unit * u, struct skill * sv, int *dh, int days) void split_paragraph(strlist ** SP, const char *s, unsigned int indent, unsigned int width, char mark) { - - /* Die Liste SP wird mit dem String s aufgefuellt, mit indent und einer - * mark, falls angegeben. SP wurde also auf 0 gesetzt vor dem Aufruf. - * Vgl. spunit (). */ bool firstline; - static char buf[REPORTWIDTH + 1]; // FIXME: static buffer, artificial limit + static char buf[REPORTWIDTH + 1]; /* FIXME: static buffer, artificial limit */ size_t len = strlen(s); assert(width <= REPORTWIDTH); @@ -852,11 +885,11 @@ void split_paragraph(strlist ** SP, const char *s, unsigned int indent, unsigned firstline = false; } if (!cut) { - cut = s + _min(len, REPORTWIDTH); + cut = s + MIN(len, REPORTWIDTH); } - strncpy(buf + indent, s, cut - s); + memcpy(buf + indent, s, cut - s); buf[indent + (cut - s)] = 0; - addstrlist(SP, buf); // TODO: too much string copying, cut out this function + addstrlist(SP, buf); /* TODO: too much string copying, cut out this function */ while (*cut == ' ') { ++cut; } @@ -890,7 +923,7 @@ void lparagraph(struct strlist **SP, char *s, unsigned int indent, char mark) void spunit(struct strlist **SP, const struct faction *f, const unit * u, unsigned int indent, -int mode) +seen_mode mode) { char buf[DISPLAYSIZE]; int dh = bufunit(f, u, indent, mode, buf, sizeof(buf)); @@ -929,23 +962,22 @@ const struct unit *ucansee(const struct faction *f, const struct unit *u, return x; } -int stealth_modifier(int seen_mode) +int stealth_modifier(seen_mode mode) { - switch (seen_mode) { - case see_unit: + switch (mode) { + case seen_unit: return 0; - case see_far: - case see_lighthouse: + case seen_far: + case seen_lighthouse: return -2; - case see_travel: + case seen_travel: return -1; default: return INT_MIN; } } -void transfer_seen(quicklist ** dst, quicklist ** src) -{ +static void transfer_seen(selist ** dst, selist ** src) { assert(!*dst); *dst = *src; *src = NULL; @@ -959,8 +991,8 @@ int cmp_faction(const void *lhs, const void *rhs) { return -1; } -static void add_seen_faction_i(struct quicklist **flist, faction *f) { - ql_set_insert_ex(flist, f, cmp_faction); +static void add_seen_faction_i(struct selist **flist, faction *f) { + selist_set_insert(flist, f, cmp_faction); } void add_seen_faction(faction *self, faction *seen) { @@ -969,7 +1001,7 @@ void add_seen_faction(faction *self, faction *seen) { typedef struct address_data { faction *f, *lastf; - quicklist **flist; + selist **flist; int stealthmod; } address_data; @@ -982,7 +1014,7 @@ static void cb_add_address(region *r, unit *ut, void *cbdata) { for (u = r->units; u; u = u->next) { faction *sf = visible_faction(f, u); assert(u->faction != f); /* if this is see_travel only, then I shouldn't be here. */ - if (data->lastf != sf && cansee_unit(u, ut, data->stealthmod)) { + if (data->lastf != sf && cansee_unit(ut, u, data->stealthmod)) { add_seen_faction_i(data->flist, sf); data->lastf = sf; break; @@ -991,8 +1023,8 @@ static void cb_add_address(region *r, unit *ut, void *cbdata) { } } -static void add_travelthru_addresses(region *r, faction *f, quicklist **flist, int stealthmod) { - // for each traveling unit: add the faction of any unit is can see +static void add_travelthru_addresses(region *r, faction *f, selist **flist, int stealthmod) { + /* for each traveling unit: add the faction of any unit is can see */ address_data cbdata = { 0 }; cbdata.f = f; cbdata.flist = flist; @@ -1000,36 +1032,34 @@ static void add_travelthru_addresses(region *r, faction *f, quicklist **flist, i travelthru_map(r, cb_add_address, &cbdata); } -static void get_addresses(report_context * ctx) +void get_addresses(report_context * ctx) { /* "TODO: travelthru" */ - seen_region *sr = NULL; region *r; const faction *lastf = NULL; - quicklist *flist = 0; + selist *flist = 0; transfer_seen(&flist, &ctx->f->seen_factions); ctx->f->seen_factions = NULL; /* do not delete it twice */ - ql_push(&flist, ctx->f); + selist_push(&flist, ctx->f); if (f_get_alliance(ctx->f)) { - quicklist *ql = ctx->f->alliance->members; + selist *ql = ctx->f->alliance->members; int qi; - for (qi = 0; ql; ql_advance(&ql, &qi, 1)) { - add_seen_faction_i(&flist, (faction *)ql_get(ql, qi)); + for (qi = 0; ql; selist_advance(&ql, &qi, 1)) { + add_seen_faction_i(&flist, (faction *)selist_get(ql, qi)); } } /* find the first region that this faction can see */ - for (r = ctx->first; sr == NULL && r != ctx->last; r = r->next) { - sr = find_seen(ctx->f->seen, r); + for (r = ctx->first; r != ctx->last; r = r->next) { + if (r->seen.mode > seen_none) break; } - for (; sr != NULL; sr = sr->next) { - int stealthmod = stealth_modifier(sr->mode); - r = sr->r; - if (sr->mode == see_lighthouse) { + for (; r != NULL; r = r->next) { + int stealthmod = stealth_modifier(r->seen.mode); + if (r->seen.mode == seen_lighthouse) { unit *u = r->units; for (; u; u = u->next) { faction *sf = visible_faction(ctx->f, u); @@ -1042,12 +1072,12 @@ static void get_addresses(report_context * ctx) } } } - else if (sr->mode == see_travel) { + else if (r->seen.mode == seen_travel) { /* when we travel through a region, then we must add * the factions of any units we saw */ add_travelthru_addresses(r, ctx->f, &flist, stealthmod); } - else if (sr->mode > see_travel) { + else if (r->seen.mode > seen_travel) { const unit *u = r->units; while (u != NULL) { if (u->faction != ctx->f) { @@ -1103,163 +1133,76 @@ void reports_done(void) { } } -static quicklist *get_regions_distance(region * root, int radius) +static selist *get_regions_distance(region * root, int radius) { - quicklist *ql, *rlist = NULL; + selist *ql, *rlist = NULL; int qi = 0; - ql_push(&rlist, root); + selist_push(&rlist, root); fset(root, RF_MARK); ql = rlist; while (ql) { - region *r = (region *)ql_get(ql, qi); + region *r = (region *)selist_get(ql, qi); region * next[MAXDIRECTIONS]; int d; get_neighbours(r, next); for (d = 0; d != MAXDIRECTIONS; ++d) { if (next[d] && !fval(next[d], RF_MARK) && distance(next[d], root) <= radius) { - ql_push(&rlist, next[d]); + selist_push(&rlist, next[d]); fset(next[d], RF_MARK); } } - ql_advance(&ql, &qi, 1); + selist_advance(&ql, &qi, 1); } - for (ql = rlist, qi = 0; ql; ql_advance(&ql, &qi, 1)) { - region *r = (region *)ql_get(ql, qi); + for (ql = rlist, qi = 0; ql; selist_advance(&ql, &qi, 1)) { + region *r = (region *)selist_get(ql, qi); freset(r, RF_MARK); } return rlist; } -void view_default(struct seen_region **seen, region * r, faction * f) -{ - int dir; - for (dir = 0; dir != MAXDIRECTIONS; ++dir) { - region *r2 = rconnect(r, dir); - if (r2) { - connection *b = get_borders(r, r2); - while (b) { - if (!b->type->transparent(b, f)) - break; - b = b->next; - } - if (!b) - add_seen(seen, r2, see_neighbour, false); - } +static void add_seen(region *r, seen_mode mode) { + if (r->seen.mode < mode) { + r->seen.mode = mode; } } -void view_neighbours(struct seen_region **seen, region * r, faction * f) -{ - int d; - region * nb[MAXDIRECTIONS]; - - get_neighbours(r, nb); - for (d = 0; d != MAXDIRECTIONS; ++d) { - region *r2 = nb[d]; - if (r2) { - connection *b = get_borders(r, r2); - while (b) { - if (!b->type->transparent(b, f)) - break; - b = b->next; - } - if (!b) { - if (add_seen(seen, r2, see_far, false)) { - if (!(fval(r2->terrain, FORBIDDEN_REGION))) { - int dir; - for (dir = 0; dir != MAXDIRECTIONS; ++dir) { - region *r3 = rconnect(r2, dir); - if (r3) { - connection *b = get_borders(r2, r3); - while (b) { - if (!b->type->transparent(b, f)) - break; - b = b->next; - } - if (!b) - add_seen(seen, r3, see_neighbour, false); - } - } - } - } +static void add_seen_nb(faction *f, region *r, seen_mode mode) { + region *first = r, *last = r; + add_seen(r, mode); + if (mode > seen_neighbour) { + region *next[MAXDIRECTIONS]; + int d; + get_neighbours(r, next); + for (d = 0; d != MAXDIRECTIONS; ++d) { + region *rn = next[d]; + if (rn && rn->seen.modeindex>rn->index) first = rn; + if (last->indexindex) last = rn; } } } + update_interval(f, first); + update_interval(f, last); } -static void -recurse_regatta(struct seen_region **seen, region * center, region * r, -faction * f, int maxdist) +/** mark all regions seen by the lighthouse. + */ +static void prepare_lighthouse(faction *f, region *r, int range) { - int d; - int dist = distance(center, r); - region * nb[MAXDIRECTIONS]; - - get_neighbours(r, nb); - for (d = 0; d != MAXDIRECTIONS; ++d) { - region *r2 = nb[d]; - if (r2) { - int ndist = distance(center, r2); - if (ndist > dist && fval(r2->terrain, SEA_REGION)) { - connection *b = get_borders(r, r2); - while (b) { - if (!b->type->transparent(b, f)) - break; - b = b->next; - } - if (!b) { - if (ndist < maxdist) { - if (add_seen(seen, r2, see_far, false)) { - recurse_regatta(seen, center, r2, f, maxdist); - } - } - else - add_seen(seen, r2, see_neighbour, false); - } - } - } - } -} - -static void view_regatta(struct seen_region **seen, region * r, faction * f) -{ - unit *u; - int skill = 0; - for (u = r->units; u; u = u->next) { - if (u->faction == f) { - int es = effskill(u, SK_PERCEPTION, 0); - if (es > skill) - skill = es; - } - } - recurse_regatta(seen, r, r, f, skill / 2); -} - -static void prepare_lighthouse(building * b, faction * f) -{ - int range = lighthouse_range(b, f); - quicklist *ql, *rlist = get_regions_distance(b->region, range); + selist *ql, *rlist = get_regions_distance(r, range); int qi; - for (ql = rlist, qi = 0; ql; ql_advance(&ql, &qi, 1)) { - region *rl = (region *)ql_get(ql, qi); + for (ql = rlist, qi = 0; ql; selist_advance(&ql, &qi, 1)) { + region *rl = (region *)selist_get(ql, qi); if (!fval(rl->terrain, FORBIDDEN_REGION)) { - region * next[MAXDIRECTIONS]; - int d; - - get_neighbours(rl, next); - faction_add_seen(f, rl, see_lighthouse); - for (d = 0; d != MAXDIRECTIONS; ++d) { - if (next[d]) { - faction_add_seen(f, next[d], see_neighbour); - } - } + add_seen_nb(f, rl, seen_lighthouse); } } - ql_free(rlist); + selist_free(rlist); } void reorder_units(region * r) @@ -1360,116 +1303,13 @@ void reorder_units(region * r) } } -static void cb_add_seen(region *r, unit *u, void *cbdata) { - unused_arg(cbdata); - if (u->faction) { - faction_add_seen(u->faction, r, see_travel); - } -} - -static void prepare_reports(void) -{ - region *r; - faction *f; - building *b; - const struct building_type *bt_lighthouse = bt_find("lighthouse"); - - for (f = factions; f; f = f->next) { - if (f->seen) seen_done(f->seen); - f->seen = seen_init(); - } - - for (r = regions; r; r = r->next) { - unit *u; - - reorder_units(r); - - /* Region owner get always the Lighthouse report */ - if (bt_lighthouse && config_token("rules.region_owner_pay_building", bt_lighthouse->_name)) { - for (b = rbuildings(r); b; b = b->next) { - if (b && b->type == bt_lighthouse) { - u = building_owner(b); - if (u) { - prepare_lighthouse(b, u->faction); - if (u_race(u) != get_race(RC_SPELL) || u->number == RS_FARVISION) { - seen_region *sr = faction_add_seen(u->faction, r, see_unit); - if (fval(u, UFL_DISBELIEVES)) { - sr->disbelieves = true; - } - } - } - } - } - } - - for (u = r->units; u; u = u->next) { - if (u->building && u->building->type == bt_lighthouse) { - /* we are in a lighthouse. add the regions we can see from here! */ - prepare_lighthouse(u->building, u->faction); - } - - if (u_race(u) != get_race(RC_SPELL) || u->number == RS_FARVISION) { - seen_region *sr = faction_add_seen(u->faction, r, see_unit); - if (fval(u, UFL_DISBELIEVES)) { - sr->disbelieves = true; - } - } - } - - - if (fval(r, RF_TRAVELUNIT)) { - travelthru_map(r, cb_add_seen, r); - } - } -} - -static void cb_set_last(region *r, unit *u, void *cbdata) { - faction *f = (faction *)cbdata; - if (u->faction == f) { - f->last = r; - } -} - static region *lastregion(faction * f) { -#ifdef SMART_INTERVALS - unit *u = f->units; - region *r = f->last; - - if (u == NULL) - return NULL; - if (r != NULL) - return r->next; - - /* it is safe to start in the region of the first unit. */ - f->last = u->region; - /* if regions have indices, we can skip ahead: */ - for (u = u->nextF; u != NULL; u = u->nextF) { - r = u->region; - if (r->index > f->last->index) - f->last = r; - } - - /* we continue from the best region and look for travelthru etc. */ - for (r = f->last->next; r; r = r->next) { - /* search the region for travelthru-attributes: */ - if (fval(r, RF_TRAVELUNIT)) { - travelthru_map(r, cb_set_last, f); - } - if (f->last == r) - continue; - if (check_leuchtturm(r, f)) - f->last = r; - } - return f->last->next; -#else - return NULL; -#endif + return f->last ? f->last->next : NULL; } static region *firstregion(faction * f) { -#ifdef SMART_INTERVALS region *r = f->first; if (f->units == NULL) @@ -1478,59 +1318,104 @@ static region *firstregion(faction * f) return r; return f->first = regions; -#else - return regions; -#endif } -static void cb_view_neighbours(seen_region *sr, void *cbdata) { +static void cb_add_seen(region *r, unit *u, void *cbdata) { faction *f = (faction *)cbdata; - if (sr->mode > see_neighbour) { - region *r = sr->r; - plane *p = rplane(r); - void(*view) (struct seen_region **, region *, faction *) = view_default; - - if (p && fval(p, PFL_SEESPECIAL)) { - /* TODO: this is not very customizable */ - view = (strcmp(p->name, "Regatta") == 0) ? view_regatta : view_neighbours; - } - view(f->seen, r, f); + if (u->faction==f) { + add_seen_nb(f, r, seen_travel); } } -void prepare_seen(faction *f) +/** set region.seen based on visibility by one faction. + * + * this function may also update ctx->last and ctx->first for potential + * lighthouses and travelthru reports + */ +void prepare_report(report_context *ctx, faction *f) { region *r; - struct seen_region *sr; + static int config; + static bool rule_region_owners; + const struct building_type *bt_lighthouse = bt_find("lighthouse"); - for (r = f->first, sr = NULL; sr == NULL && r != f->last; r = r->next) { - sr = find_seen(f->seen, r); + if (bt_lighthouse && config_changed(&config)) { + rule_region_owners = config_token("rules.region_owner_pay_building", bt_lighthouse->_name); } - seenhash_map(f->seen, cb_view_neighbours, f); - get_seen_interval(f->seen, &f->first, &f->last); - link_seen(f->seen, f->first, f->last); -} + if (f->age<=2) { + if ((f->flags&FFL_PWMSG)==0) { + /* TODO: this assumes unencrypted passwords */ + f->flags |= FFL_PWMSG; + ADDMSG(&f->msgs, msg_message("changepasswd", "value", f->_password)); + } + } -static void prepare_report(struct report_context *ctx, faction *f) -{ - prepare_seen(f); ctx->f = f; ctx->report_time = time(NULL); ctx->addresses = NULL; ctx->userdata = NULL; + /* [first,last) interval of regions with a unit in it: */ + ctx->first = firstregion(f); + ctx->last = lastregion(f); + + for (r = ctx->first; r!=ctx->last; r = r->next) { + int range = 0; + unit *u; + if (fval(r, RF_LIGHTHOUSE) && bt_lighthouse) { + if (rule_region_owners && f == region_get_owner(r)) { + /* region owners get the report from lighthouses */ + building *b; + + for (b = r->buildings; b; b = b->next) { + if (b->type == bt_lighthouse) { + int br = lighthouse_range(b, NULL); + if (br > range) range = br; + } + } + } + } + for (u = r->units; u; u = u->next) { + if (u->faction == f) { + add_seen_nb(f, r, seen_unit); + if (fval(r, RF_LIGHTHOUSE) && bt_lighthouse) { + if (u->building && u->building->type == bt_lighthouse && inside_building(u)) { + int br = lighthouse_range(u->building, f); + if (br > range) range = br; + } + } + } + } + if (range > 0) { + /* we are in at least one lighthouse. add the regions we can see from here! */ + prepare_lighthouse(f, r, range); + } + + if (fval(r, RF_TRAVELUNIT) && r->seen.modefirst = firstregion(f); ctx->last = lastregion(f); } +void finish_reports(report_context *ctx) { + region *r; + selist_free(ctx->addresses); + for (r = ctx->first; r != ctx->last; r = r->next) { + r->seen.mode = seen_none; + } +} + int write_reports(faction * f, time_t ltime) { - unsigned int backup = 1, maxbackup = 128 * 1000; bool gotit = false; struct report_context ctx; - const char *encoding = "UTF-8"; + const unsigned char utf8_bom[4] = { 0xef, 0xbb, 0xbf, 0 }; report_type *rtype; - if (noreports) { return false; } @@ -1542,36 +1427,26 @@ int write_reports(faction * f, time_t ltime) int error = 0; do { char filename[32]; - char path[MAX_PATH]; - sprintf(filename, "%d-%s.%s", turn, factionid(f), + char path[4096]; + sprintf(filename, "%d-%s.%s", turn, itoa36(f->no), rtype->extension); join_path(reportpath(), filename, path, sizeof(path)); errno = 0; - if (rtype->write(path, &ctx, encoding) == 0) { + if (rtype->write(path, &ctx, (const char *)utf8_bom) == 0) { gotit = true; } if (errno) { - char zText[64]; - log_warning("retrying, error %d during %s report for faction %s", errno, rtype->extension, factionname(f)); - sprintf(zText, "waiting %u seconds before we retry", backup); - perror(zText); - _sleep(backup); - if (backup < maxbackup) { - backup *= 2; - } error = errno; + log_fatal("error %d during %s report for faction %s: %s", errno, rtype->extension, factionname(f), strerror(error)); errno = 0; } } while (error); } } if (!gotit) { - log_warning("No report for faction %s!", factionid(f)); - } - ql_free(ctx.addresses); - if (ctx.f->seen) { - seen_done(ctx.f->seen); + log_warning("No report for faction %s!", itoa36(f->no)); } + finish_reports(&ctx); return 0; } @@ -1580,7 +1455,7 @@ static void write_script(FILE * F, const faction * f) report_type *rtype; char buf[1024]; - fprintf(F, "faction=%s:email=%s:lang=%s", factionid(f), f->email, + fprintf(F, "faction=%s:email=%s:lang=%s", itoa36(f->no), f->email, locale_name(f->locale)); if (f->options & (1 << O_BZIP2)) fputs(":compression=bz2", F); @@ -1607,9 +1482,12 @@ static void check_messages_exist(void) { int init_reports(void) { + region *r; check_messages_exist(); create_directories(); - prepare_reports(); + for (r = regions; r; r = r->next) { + reorder_units(r); + } return 0; } @@ -1619,7 +1497,7 @@ int reports(void) FILE *mailit; time_t ltime = time(NULL); int retval = 0; - char path[MAX_PATH]; + char path[4096]; const char * rpath = reportpath(); log_info("Writing reports for turn %d:", turn); @@ -1641,13 +1519,12 @@ int reports(void) } if (mailit) fclose(mailit); - free_seen(); return retval; } static variant var_copy_string(variant x) { - x.v = x.v ? _strdup((const char *)x.v) : 0; + x.v = x.v ? strdup((const char *)x.v) : 0; return x; } @@ -1712,7 +1589,7 @@ static void var_free_resources(variant x) x.v = 0; } -static void var_free_regions(variant x) +static void var_free_regions(variant x) /*-V524 */ { free(x.v); } @@ -1751,7 +1628,7 @@ f_regionid(const region * r, const faction * f, char *buffer, size_t size) pnormalize(&nx, &ny, pl); adjust_coordinates(f, &nx, &ny, pl); len = strlcpy(buffer, rname(r, f ? f->locale : 0), size); - _snprintf(buffer + len, size - len, " (%d,%d%s%s)", nx, ny, named ? "," : "", (named) ? name : ""); + snprintf(buffer + len, size - len, " (%d,%d%s%s)", nx, ny, named ? "," : "", (named) ? name : ""); buffer[size - 1] = 0; len = strlen(buffer); } @@ -1760,7 +1637,7 @@ f_regionid(const region * r, const faction * f, char *buffer, size_t size) static char *f_regionid_s(const region * r, const faction * f) { - static char buf[NAMESIZE + 20]; // FIXME: static return value + static char buf[NAMESIZE + 20]; /* FIXME: static return value */ f_regionid(r, f, buf, sizeof(buf)); return buf; @@ -1819,11 +1696,10 @@ static void eval_spell(struct opstack **stack, const void *userdata) const struct spell *sp = (const struct spell *)opop(stack).v; const char *c = sp ? spell_name(sp, f->locale) : LOC(f->locale, "an_unknown_spell"); - assert(c || !"spell without description!"); - size_t len = strlen(c); variant var; - var.v = strcpy(balloc(len + 1), c); + assert(c || !"spell without description!"); + var.v = strcpy(balloc(strlen(c) + 1), c); opush(stack, var); } @@ -1833,23 +1709,10 @@ static void eval_curse(struct opstack **stack, const void *userdata) const struct curse_type *sp = (const struct curse_type *)opop(stack).v; const char *c = sp ? curse_name(sp, f->locale) : LOC(f->locale, "an_unknown_curse"); + variant var; + assert(c || !"spell effect without description!"); - size_t len = strlen(c); - variant var; - - var.v = strcpy(balloc(len + 1), c); - opush(stack, var); -} - -static void eval_unitname(struct opstack **stack, const void *userdata) -{ /* unit -> string */ - const struct faction *f = (const struct faction *)userdata; - const struct unit *u = (const struct unit *)opop(stack).v; - const char *c = u ? unit_getname(u) : LOC(f->locale, "an_unknown_unit"); - size_t len = strlen(c); - variant var; - - var.v = strcpy(balloc(len + 1), c); + var.v = strcpy(balloc(strlen(c) + 1), c); opush(stack, var); } @@ -1961,16 +1824,16 @@ static void eval_weight(struct opstack **stack, const void *userdata) sprintf(buffer, "1 %s", LOC(lang, "weight_unit")); } else { - sprintf(buffer, "%u %s", weight / SCALEWEIGHT, LOC(lang, + sprintf(buffer, "%d %s", weight / SCALEWEIGHT, LOC(lang, "weight_unit_p")); } } else { if (weight == 1) { - sprintf(buffer, "1 %s %u", LOC(lang, "weight_per"), SCALEWEIGHT); + sprintf(buffer, "1 %s %d", LOC(lang, "weight_per"), SCALEWEIGHT); } else { - sprintf(buffer, "%u %s %u", weight, LOC(lang, "weight_per_p"), + sprintf(buffer, "%d %s %d", weight, LOC(lang, "weight_per_p"), SCALEWEIGHT); } } @@ -2014,7 +1877,7 @@ static void eval_order(struct opstack **stack, const void *userdata) size_t len; variant var; - unused_arg(userdata); + UNUSED_ARG(userdata); write_order(ord, buf, sizeof(buf)); len = strlen(buf); var.v = strcpy(balloc(len + 1), buf); @@ -2034,7 +1897,7 @@ static void eval_resources(struct opstack **stack, const void *userdata) while (res != NULL && size > 4) { const char *rname = resourcename(res->type, (res->number != 1) ? NMF_PLURAL : 0); - int result = _snprintf(bufp, size, "%d %s", res->number, LOC(lang, rname)); + int result = snprintf(bufp, size, "%d %s", res->number, LOC(lang, rname)); if (wrptr(&bufp, &size, result) != 0 || size < sizeof(buf) / 2) { WARN_STATIC_BUFFER(); break; @@ -2057,23 +1920,23 @@ static void eval_regions(struct opstack **stack, const void *userdata) const faction *report = (const faction *)userdata; int i = opop(stack).i; int end, begin = opop(stack).i; - const arg_regions *regions = (const arg_regions *)opop(stack).v; + const arg_regions *aregs = (const arg_regions *)opop(stack).v; char buf[256]; size_t size = sizeof(buf) - 1; variant var; char *bufp = buf; - if (regions == NULL) { + if (aregs == NULL) { end = begin; } else { if (i >= 0) end = begin + i; else - end = regions->nregions + i; + end = aregs->nregions + i; } for (i = begin; i < end; ++i) { - const char *rname = (const char *)regionname(regions->regions[i], report); + const char *rname = (const char *)regionname(aregs->regions[i], report); bufp = STRLCPY(bufp, rname, size); if (i + 1 < end && size > 2) { @@ -2087,29 +1950,36 @@ static void eval_regions(struct opstack **stack, const void *userdata) opush(stack, var); } +const char *get_mailcmd(const struct locale *loc) +{ + static char result[64]; /* FIXME: static return buffer */ + snprintf(result, sizeof(result), "%s %d %s", game_mailcmd(), game_id(), LOC(loc, "mailcmd")); + return result; +} + static void eval_trail(struct opstack **stack, const void *userdata) { /* order -> string */ const faction *report = (const faction *)userdata; const struct locale *lang = report ? report->locale : default_locale; int i, end = 0, begin = 0; - const arg_regions *regions = (const arg_regions *)opop(stack).v; + const arg_regions *aregs = (const arg_regions *)opop(stack).v; char buf[512]; size_t size = sizeof(buf) - 1; variant var; char *bufp = buf; #ifdef _SECURECRT_ERRCODE_VALUES_DEFINED - /* stupid MS broke _snprintf */ + /* stupid MS broke snprintf */ int eold = errno; #endif - if (regions != NULL) { - end = regions->nregions; + if (aregs != NULL) { + end = aregs->nregions; for (i = begin; i < end; ++i) { - region *r = regions->regions[i]; + region *r = aregs->regions[i]; const char *trail = trailinto(r, lang); const char *rn = f_regionid_s(r, report); - if (wrptr(&bufp, &size, _snprintf(bufp, size, trail, rn)) != 0) + if (wrptr(&bufp, &size, snprintf(bufp, size, trail, rn)) != 0) WARN_STATIC_BUFFER(); if (i + 2 < end) { @@ -2165,7 +2035,7 @@ static void eval_int36(struct opstack **stack, const void *userdata) var.v = strcpy(balloc(len + 1), c); opush(stack, var); - unused_arg(userdata); + UNUSED_ARG(userdata); } /*** END MESSAGE RENDERING ***/ @@ -2187,17 +2057,18 @@ static void log_orders(const struct message *msg) } } -int stream_printf(struct stream * out, const char *format, ...) { +int stream_printf(struct stream * out, const char *format, ...) +{ va_list args; int result; char buffer[4096]; size_t bytes = sizeof(buffer); - // TODO: should be in storage/stream.c (doesn't exist yet) + /* TODO: should be in storage/stream.c (doesn't exist yet) */ va_start(args, format); result = vsnprintf(buffer, bytes, format, args); if (result >= 0 && (size_t)result < bytes) { bytes = (size_t)result; - // TODO: else = buffer too small + /* TODO: else = buffer too small */ } out->api->write(out->handle, buffer, bytes); va_end(args); @@ -2261,7 +2132,6 @@ void register_reports(void) add_function("ship", &eval_ship); add_function("unit", &eval_unit); add_function("unit.dative", &eval_unit_dative); - add_function("unit.name", &eval_unitname); add_function("unit.id", &eval_unitid); add_function("unit.size", &eval_unitsize); add_function("building", &eval_building); @@ -2276,8 +2146,4 @@ void register_reports(void) add_function("resources", &eval_resources); add_function("regions", &eval_regions); add_function("trail", &eval_trail); - - /* register alternative visibility functions */ - register_function((pf_generic)view_neighbours, "view_neighbours"); - register_function((pf_generic)view_regatta, "view_regatta"); } diff --git a/src/reports.h b/src/reports.h index 584fe7d4a..6ce14e775 100644 --- a/src/reports.h +++ b/src/reports.h @@ -20,17 +20,19 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #ifndef H_KRNL_REPORTS #define H_KRNL_REPORTS -#include #include #include #include +#include -struct stream; -struct seen_region; #ifdef __cplusplus extern "C" { #endif + struct selist; + struct stream; + struct seen_region; + /* Alter, ab dem der Score angezeigt werden soll: */ #define DISPLAYSCORE 12 /* Breite einer Reportzeile: */ @@ -43,20 +45,22 @@ extern "C" { extern bool nocr; extern bool noreports; extern const char *visibility[]; + extern const char *options[MAXOPTIONS]; /* report options */ void reports_done(void); struct unit *can_find(struct faction *, struct faction *); + bool omniscient(const struct faction *f); + /* funktionen zum schreiben eines reports */ void sparagraph(struct strlist **SP, const char *s, unsigned int indent, char mark); void lparagraph(struct strlist **SP, char *s, unsigned int indent, char mark); const char *hp_status(const struct unit *u); size_t spskill(char *pbuf, size_t siz, const struct locale *lang, const struct unit *u, struct skill *sv, int *dh, int days); /* mapper */ void spunit(struct strlist **SP, const struct faction *f, - const struct unit *u, unsigned int indent, int mode); + const struct unit *u, unsigned int indent, seen_mode mode); - void prepare_seen(struct faction *f); int reports(void); int write_reports(struct faction *f, time_t ltime); int init_reports(void); @@ -65,23 +69,27 @@ extern "C" { const struct unit *ucansee(const struct faction *f, const struct unit *u, const struct unit *x); - int stealth_modifier(int seen_mode); + int stealth_modifier(seen_mode seen_mode); typedef struct report_context { struct faction *f; - struct quicklist *addresses; + struct selist *addresses; struct region *first, *last; void *userdata; time_t report_time; } report_context; + void prepare_report(report_context *ctx, struct faction *f); + void finish_reports(report_context *ctx); + void get_addresses(report_context * ctx); + typedef int(*report_fun) (const char *filename, report_context * ctx, const char *charset); void register_reporttype(const char *extension, report_fun write, int flag); int bufunit(const struct faction *f, const struct unit *u, unsigned int indent, - int mode, char *buf, size_t size); + seen_mode mode, char *buf, size_t size); const char *trailinto(const struct region *r, const struct locale *lang); @@ -99,14 +107,12 @@ extern "C" { } arg_regions; typedef struct resource_report { - const char *name; + const struct resource_type *rtype; int number; int level; } resource_report; - void view_default(struct seen_region **seen, struct region * r, struct faction * f); - void view_neighbours(struct seen_region **seen, struct region * r, struct faction * f); - int report_resources(const struct seen_region *sr, - struct resource_report *result, int size, const struct faction *viewer); + int report_resources(const struct region *r, struct resource_report *res, + int size, const struct faction *viewer, bool see_unit); int report_items(const struct unit *u, struct item *result, int size, const struct unit *owner, const struct faction *viewer); void report_item(const struct unit *owner, const struct item *i, @@ -126,6 +132,7 @@ extern "C" { int stream_printf(struct stream * out, const char *format, ...); int count_travelthru(struct region *r, const struct faction *f); + const char *get_mailcmd(const struct locale *loc); #define GR_PLURAL 0x01 /* grammar: plural */ #define MAX_INVENTORY 128 /* maimum number of different items in an inventory */ diff --git a/src/reports.test.c b/src/reports.test.c index c27a0f6f9..f66d94684 100644 --- a/src/reports.test.c +++ b/src/reports.test.c @@ -1,28 +1,35 @@ #include -#include #include "reports.h" -#include "report.h" -#include "creport.h" + #include "move.h" -#include "seen.h" +#include "spy.h" +#include "lighthouse.h" #include "travelthru.h" #include "keyword.h" +#include +#include #include #include #include #include #include #include +#include #include #include #include +#include +#include #include #include #include -#include +#include +#include + +#include #include #include @@ -38,18 +45,11 @@ static void test_reorder_units(CuTest * tc) ship * s; unit *u0, *u1, *u2, *u3, *u4; struct faction * f; - const building_type *btype; - const ship_type *stype; - test_cleanup(); - test_create_world(); - - btype = bt_find("castle"); - stype = st_find("boat"); - - r = findregion(-1, 0); - b = test_create_building(r, btype); - s = test_create_ship(r, stype); + test_setup(); + r = test_create_region(0, 0, NULL); + b = test_create_building(r, NULL); + s = test_create_ship(r, NULL); f = test_create_faction(0); u0 = test_create_unit(f, r); @@ -107,48 +107,18 @@ static void test_seen_faction(CuTest *tc) { f1 = test_create_faction(rc); f2 = test_create_faction(rc); add_seen_faction(f1, f2); - CuAssertPtrEquals(tc, f2, ql_get(f1->seen_factions, 0)); - CuAssertIntEquals(tc, 1, ql_length(f1->seen_factions)); + CuAssertPtrEquals(tc, f2, selist_get(f1->seen_factions, 0)); + CuAssertIntEquals(tc, 1, selist_length(f1->seen_factions)); add_seen_faction(f1, f2); - CuAssertIntEquals(tc, 1, ql_length(f1->seen_factions)); + CuAssertIntEquals(tc, 1, selist_length(f1->seen_factions)); add_seen_faction(f1, f1); - CuAssertIntEquals(tc, 2, ql_length(f1->seen_factions)); - f2 = (faction *)ql_get(f1->seen_factions, 1); - f1 = (faction *)ql_get(f1->seen_factions, 0); + CuAssertIntEquals(tc, 2, selist_length(f1->seen_factions)); + f2 = (faction *)selist_get(f1->seen_factions, 1); + f1 = (faction *)selist_get(f1->seen_factions, 0); CuAssertTrue(tc, f1->no < f2->no); test_cleanup(); } -static void test_write_spaces(CuTest *tc) { - stream out = { 0 }; - char buf[1024]; - size_t len; - - mstream_init(&out); - write_spaces(&out, 4); - out.api->rewind(out.handle); - len = out.api->read(out.handle, buf, sizeof(buf)); - buf[len] = '\0'; - CuAssertStrEquals(tc, " ", buf); - CuAssertIntEquals(tc, ' ', buf[3]); - mstream_done(&out); -} - -static void test_write_many_spaces(CuTest *tc) { - stream out = { 0 }; - char buf[1024]; - size_t len; - - mstream_init(&out); - write_spaces(&out, 100); - out.api->rewind(out.handle); - len = out.api->read(out.handle, buf, sizeof(buf)); - buf[len] = '\0'; - CuAssertIntEquals(tc, 100, (int)len); - CuAssertIntEquals(tc, ' ', buf[99]); - mstream_done(&out); -} - static void test_sparagraph(CuTest *tc) { strlist *sp = 0; @@ -181,83 +151,97 @@ static void test_sparagraph(CuTest *tc) { freestrlist(sp); } -static void test_cr_unit(CuTest *tc) { - stream strm; - char line[1024]; - faction *f; +static void test_bufunit_fstealth(CuTest *tc) { + faction *f1, *f2; region *r; unit *u; - - test_cleanup(); - f = test_create_faction(0); - r = test_create_region(0, 0, 0); - u = test_create_unit(f, r); - renumber_unit(u, 1234); - - mstream_init(&strm); - cr_output_unit(&strm, r, f, u, see_unit); - strm.api->rewind(strm.handle); - CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line))); - CuAssertStrEquals(tc, line, "EINHEIT 1234"); - mstream_done(&strm); - test_cleanup(); -} - -static void test_write_travelthru(CuTest *tc) { - stream out = { 0 }; - char buf[1024]; - size_t len; - region *r; - faction *f; - unit *u; + ally *al; + char buf[256]; struct locale *lang; - test_cleanup(); + test_setup(); lang = get_or_create_locale("de"); - locale_setstring(lang, "travelthru_header", "Durchreise: "); - mstream_init(&out); + locale_setstring(lang, "status_aggressive", "aggressive"); + locale_setstring(lang, "anonymous", "anonymous"); + f1 = test_create_faction(0); + f1->locale = lang; + f2 = test_create_faction(0); + f2->locale = lang; r = test_create_region(0, 0, 0); - r->flags |= RF_TRAVELUNIT; - f = test_create_faction(0); - f->locale = lang; - u = test_create_unit(f, test_create_region(0, 1, 0)); + u = test_create_unit(f1, r); + faction_setname(f1, "UFO"); + renumber_faction(f1, 1); + faction_setname(f2, "TWW"); + renumber_faction(f2, 2); unit_setname(u, "Hodor"); unit_setid(u, 1); + key_set(&u->attribs, 42, 42); - write_travelthru(&out, r, f); - out.api->rewind(out.handle); - len = out.api->read(out.handle, buf, sizeof(buf)); - CuAssertIntEquals_Msg(tc, "no travelers, no report", 0, (int)len); - mstream_done(&out); - - mstream_init(&out); - travelthru_add(r, u); - write_travelthru(&out, r, f); - out.api->rewind(out.handle); - len = out.api->read(out.handle, buf, sizeof(buf)); - buf[len] = '\0'; - CuAssertStrEquals_Msg(tc, "list one unit", "Durchreise: Hodor (1).\n", buf); - mstream_done(&out); + /* report to ourselves */ + bufunit(f1, u, 0, seen_unit, buf, sizeof(buf)); + CuAssertStrEquals(tc, "Hodor (1), 1 human, aggressive.", buf); - mstream_init(&out); - move_unit(u, r, 0); - write_travelthru(&out, r, f); - out.api->rewind(out.handle); - len = out.api->read(out.handle, buf, sizeof(buf)); - CuAssertIntEquals_Msg(tc, "do not list units that stopped in the region", 0, (int)len); + /* ... also when we are anonymous */ + u->flags |= UFL_ANON_FACTION; + bufunit(f1, u, 0, seen_unit, buf, sizeof(buf)); + CuAssertStrEquals(tc, "Hodor (1), anonymous, 1 human, aggressive.", buf); + u->flags &= ~UFL_ANON_FACTION; + + /* we see that our unit is cloaked */ + set_factionstealth(u, f2); + CuAssertPtrNotNull(tc, u->attribs); + bufunit(f1, u, 0, seen_unit, buf, sizeof(buf)); + CuAssertStrEquals(tc, "Hodor (1), TWW (2), 1 human, aggressive.", buf); + + /* ... also when we are anonymous */ + u->flags |= UFL_ANON_FACTION; + bufunit(f1, u, 0, seen_unit, buf, sizeof(buf)); + CuAssertStrEquals(tc, "Hodor (1), anonymous, 1 human, aggressive.", buf); + u->flags &= ~UFL_ANON_FACTION; + + /* we can see that someone is presenting as us */ + bufunit(f2, u, 0, seen_unit, buf, sizeof(buf)); + CuAssertStrEquals(tc, "Hodor (1), TWW (2), 1 human.", buf); + + /* ... but not if they are anonymous */ + u->flags |= UFL_ANON_FACTION; + bufunit(f2, u, 0, seen_unit, buf, sizeof(buf)); + CuAssertStrEquals(tc, "Hodor (1), anonymous, 1 human.", buf); + u->flags &= ~UFL_ANON_FACTION; + + /* we see the same thing as them when we are an ally */ + al = ally_add(&f1->allies, f2); + al->status = HELP_FSTEALTH; + bufunit(f2, u, 0, seen_unit, buf, sizeof(buf)); + CuAssertStrEquals(tc, "Hodor (1), TWW (2) (UFO (1)), 1 human.", buf); + + /* ... also when they are anonymous */ + u->flags |= UFL_ANON_FACTION; + bufunit(f2, u, 0, seen_unit, buf, sizeof(buf)); + CuAssertStrEquals(tc, "Hodor (1), anonymous, 1 human.", buf); + u->flags &= ~UFL_ANON_FACTION; + + /* fstealth has no influence when we are allies, same results again */ + set_factionstealth(u, NULL); + bufunit(f2, u, 0, seen_unit, buf, sizeof(buf)); + CuAssertStrEquals(tc, "Hodor (1), UFO (1), 1 human.", buf); + + u->flags |= UFL_ANON_FACTION; + bufunit(f2, u, 0, seen_unit, buf, sizeof(buf)); + CuAssertStrEquals(tc, "Hodor (1), anonymous, 1 human.", buf); + u->flags &= ~UFL_ANON_FACTION; - mstream_done(&out); test_cleanup(); } -static void test_write_unit(CuTest *tc) { +static void test_bufunit(CuTest *tc) { unit *u; faction *f; race *rc; struct locale *lang; - char buffer[1024]; + char buffer[256]; - test_cleanup(); + test_setup(); rc = rc_get_or_create("human"); rc->bonus[SK_ALCHEMY] = 1; lang = get_or_create_locale("de"); @@ -288,133 +272,8 @@ static void test_write_unit(CuTest *tc) { f->locale = get_or_create_locale("de"); bufunit(f, u, 0, 0, buffer, sizeof(buffer)); CuAssertStrEquals(tc, "Hodor (1), UFO (1), 1 human.", buffer); - test_cleanup(); -} - -typedef struct { - struct locale *lang; - spell *sp; - spellbook *spb; - spellbook_entry * sbe; -} spell_fixture; - -static void setup_spell_fixture(spell_fixture * spf) { - spf->lang = get_or_create_locale("de"); - locale_setstring(spf->lang, mkname("spell", "testspell"), "Testzauber"); - locale_setstring(spf->lang, "nr_spell_type", "Typ:"); - locale_setstring(spf->lang, "sptype_normal", "Normal"); - locale_setstring(spf->lang, "nr_spell_modifiers", "Modifier:"); - locale_setstring(spf->lang, "smod_none", "Keine"); - locale_setstring(spf->lang, keyword(K_CAST), "ZAUBERE"); - locale_setstring(spf->lang, parameters[P_REGION], "REGION"); - locale_setstring(spf->lang, parameters[P_LEVEL], "STUFE"); - locale_setstring(spf->lang, "par_unit", "enr"); - locale_setstring(spf->lang, "par_ship", "snr"); - locale_setstring(spf->lang, "par_building", "bnr"); - locale_setstring(spf->lang, "spellpar::hodor", "Hodor"); - - spf->spb = create_spellbook("testbook"); - spf->sp = test_create_spell(); - spellbook_add(spf->spb, spf->sp, 1); - spf->sbe = spellbook_get(spf->spb, spf->sp); -} - -static void cleanup_spell_fixture(spell_fixture *spf) { - spellbook_clear(spf->spb); - free(spf->spb); - test_cleanup(); -} - -static void check_spell_syntax(CuTest *tc, char *msg, spell_fixture *spell, char *syntax) { - stream strm; - char buf[1024]; - char *linestart, *newline; - size_t len; - - mstream_init(&strm); - nr_spell_syntax(&strm, spell->sbe, spell->lang); - strm.api->rewind(strm.handle); - len = strm.api->read(strm.handle, buf, sizeof(buf)); - buf[len] = '\0'; - - linestart = strtok(buf, "\n"); - while (linestart && !strstr(linestart, "ZAUBERE")) - linestart = strtok(NULL, "\n") ; - - CuAssertPtrNotNull(tc, linestart); - - newline = strtok(NULL, "\n"); - while (newline) { - *(newline - 1) = '\n'; - newline = strtok(NULL, "\n"); - } - - CuAssertStrEquals_Msg(tc, msg, syntax, linestart); - - mstream_done(&strm); -} - -static void set_parameter(spell_fixture spell, char *value) { - free(spell.sp->parameter); - spell.sp->parameter = _strdup(value); -} - -static void test_write_spell_syntax(CuTest *tc) { - spell_fixture spell; test_cleanup(); - setup_spell_fixture(&spell); - - check_spell_syntax(tc, "vanilla", &spell, " ZAUBERE \"Testzauber\""); - - spell.sp->sptyp |= FARCASTING; - check_spell_syntax(tc, "far", &spell, " ZAUBERE [REGION x y] \"Testzauber\""); - - spell.sp->sptyp |= SPELLLEVEL; - check_spell_syntax(tc, "farlevel", &spell, " ZAUBERE [REGION x y] [STUFE n] \"Testzauber\""); - spell.sp->sptyp = 0; - - set_parameter(spell, "kc"); - check_spell_syntax(tc, "kc", &spell, " ZAUBERE \"Testzauber\" ( REGION | EINHEIT | SCHIFF | BURG )"); - - spell.sp->sptyp |= BUILDINGSPELL; - check_spell_syntax(tc, "kc typed", &spell, " ZAUBERE \"Testzauber\" BURG "); - spell.sp->sptyp = 0; - - set_parameter(spell, "b"); - check_spell_syntax(tc, "b", &spell, " ZAUBERE \"Testzauber\" "); - - set_parameter(spell, "s"); - check_spell_syntax(tc, "s", &spell, " ZAUBERE \"Testzauber\" "); - - set_parameter(spell, "s+"); - check_spell_syntax(tc, "s+", &spell, " ZAUBERE \"Testzauber\" [ ...]"); - - set_parameter(spell, "u"); - check_spell_syntax(tc, "u", &spell, " ZAUBERE \"Testzauber\" "); - - set_parameter(spell, "r"); - check_spell_syntax(tc, "r", &spell, " ZAUBERE \"Testzauber\" "); - - set_parameter(spell, "bc"); - free(spell.sp->syntax); - spell.sp->syntax = _strdup("hodor"); - check_spell_syntax(tc, "bc hodor", &spell, " ZAUBERE \"Testzauber\" "); - free(spell.sp->syntax); - spell.sp->syntax = 0; - - set_parameter(spell, "c?"); - free(spell.sp->syntax); - spell.sp->syntax = _strdup("hodor"); - check_spell_syntax(tc, "c?", &spell, " ZAUBERE \"Testzauber\" []"); - free(spell.sp->syntax); - spell.sp->syntax = 0; - - set_parameter(spell, "kc+"); - check_spell_syntax(tc, "kc+", &spell, - " ZAUBERE \"Testzauber\" ( REGION | EINHEIT [ ...] | SCHIFF \n [ ...] | BURG [ ...] )"); - - cleanup_spell_fixture(&spell); } static void test_arg_resources(CuTest *tc) { @@ -450,19 +309,361 @@ static void test_arg_resources(CuTest *tc) { test_cleanup(); } +static void test_newbie_password_message(CuTest *tc) { + report_context ctx; + faction *f; + test_setup(); + f = test_create_faction(0); + f->age = 5; + f->flags = 0; + prepare_report(&ctx, f); + CuAssertIntEquals(tc, 0, f->flags&FFL_PWMSG); + CuAssertPtrEquals(tc, 0, test_find_messagetype(f->msgs, "changepasswd")); + f->age=2; + prepare_report(&ctx, f); + CuAssertIntEquals(tc, FFL_PWMSG, f->flags&FFL_PWMSG); + CuAssertPtrNotNull(tc, test_find_messagetype(f->msgs, "changepasswd")); + test_cleanup(); +} + +static void test_prepare_travelthru(CuTest *tc) { + report_context ctx; + faction *f, *f2; + region *r1, *r2, *r3; + unit *u; + + test_setup(); + f = test_create_faction(0); + f2 = test_create_faction(0); + r1 = test_create_region(0, 0, 0); + r2 = test_create_region(1, 0, 0); + r3 = test_create_region(3, 0, 0); + test_create_unit(f2, r1); + test_create_unit(f2, r3); + u = test_create_unit(f, r1); + travelthru_add(r2, u); + prepare_report(&ctx, f); + CuAssertPtrEquals(tc, r1, ctx.first); + CuAssertPtrEquals(tc, r3, ctx.last); + CuAssertPtrEquals(tc, f, ctx.f); + CuAssertIntEquals(tc, seen_unit, r1->seen.mode); + CuAssertIntEquals(tc, seen_travel, r2->seen.mode); + CuAssertIntEquals(tc, seen_none, r3->seen.mode); + finish_reports(&ctx); + CuAssertIntEquals(tc, seen_none, r2->seen.mode); + + prepare_report(&ctx, f2); + CuAssertIntEquals(tc, seen_unit, r1->seen.mode); + CuAssertIntEquals(tc, seen_neighbour, r2->seen.mode); + CuAssertIntEquals(tc, seen_unit, r3->seen.mode); + CuAssertPtrEquals(tc, f2, ctx.f); + CuAssertPtrEquals(tc, r1, ctx.first); + CuAssertPtrEquals(tc, NULL, ctx.last); + test_cleanup(); +} + +static void test_get_addresses(CuTest *tc) { + report_context ctx; + faction *f, *f2, *f1; + region *r; + + test_setup(); + f = test_create_faction(0); + f1 = test_create_faction(0); + f2 = test_create_faction(0); + r = test_create_region(0, 0, 0); + test_create_unit(f, r); + test_create_unit(f1, r); + test_create_unit(f2, r); + prepare_report(&ctx, f); + CuAssertPtrEquals(tc, r, ctx.first); + CuAssertPtrEquals(tc, NULL, ctx.last); + get_addresses(&ctx); + CuAssertPtrNotNull(tc, ctx.addresses); + CuAssertTrue(tc, selist_contains(ctx.addresses, f, NULL)); + CuAssertTrue(tc, selist_contains(ctx.addresses, f1, NULL)); + CuAssertTrue(tc, selist_contains(ctx.addresses, f2, NULL)); + CuAssertIntEquals(tc, 3, selist_length(ctx.addresses)); + test_cleanup(); +} + +static void test_get_addresses_fstealth(CuTest *tc) { + report_context ctx; + faction *f, *f2, *f1; + region *r; + unit *u; + + test_setup(); + f = test_create_faction(0); + f1 = test_create_faction(0); + f2 = test_create_faction(0); + r = test_create_region(0, 0, 0); + test_create_unit(f, r); + u = test_create_unit(f1, r); + set_factionstealth(u, f2); + + prepare_report(&ctx, f); + CuAssertPtrEquals(tc, r, ctx.first); + CuAssertPtrEquals(tc, NULL, ctx.last); + get_addresses(&ctx); + CuAssertPtrNotNull(tc, ctx.addresses); + CuAssertTrue(tc, selist_contains(ctx.addresses, f, NULL)); + CuAssertTrue(tc, !selist_contains(ctx.addresses, f1, NULL)); + CuAssertTrue(tc, selist_contains(ctx.addresses, f2, NULL)); + CuAssertIntEquals(tc, 2, selist_length(ctx.addresses)); + test_cleanup(); +} + +static void test_get_addresses_travelthru(CuTest *tc) { + report_context ctx; + faction *f, *f2, *f1; + region *r1, *r2; + unit *u; + + test_setup(); + f = test_create_faction(0); + f1 = test_create_faction(0); + f2 = test_create_faction(0); + r1 = test_create_region(0, 0, 0); + r2 = test_create_region(1, 0, 0); + u = test_create_unit(f, r2); + travelthru_add(r1, u); + u = test_create_unit(f1, r1); + set_factionstealth(u, f2); + u->building = test_create_building(u->region, test_create_buildingtype("tower")); + + prepare_report(&ctx, f); + CuAssertPtrEquals(tc, r1, ctx.first); + CuAssertPtrEquals(tc, NULL, ctx.last); + get_addresses(&ctx); + CuAssertPtrNotNull(tc, ctx.addresses); + CuAssertTrue(tc, selist_contains(ctx.addresses, f, NULL)); + CuAssertTrue(tc, !selist_contains(ctx.addresses, f1, NULL)); + CuAssertTrue(tc, selist_contains(ctx.addresses, f2, NULL)); + CuAssertIntEquals(tc, 2, selist_length(ctx.addresses)); + test_cleanup(); +} + +void test_prepare_lighthouse_capacity(CuTest *tc) { + building *b; + building_type *btype; + unit *u1, *u2; + region *r1, *r2; + faction *f; + const struct terrain_type *t_ocean, *t_plain; + report_context ctx; + + test_setup(); + f = test_create_faction(0); + t_ocean = test_create_terrain("ocean", SEA_REGION); + t_plain = test_create_terrain("plain", LAND_REGION); + btype = test_create_buildingtype("lighthouse"); + btype->maxcapacity = 4; + r1 = test_create_region(0, 0, t_plain); + r2 = test_create_region(1, 0, t_ocean); + b = test_create_building(r1, btype); + b->flags |= BLD_MAINTAINED; + b->size = 10; + update_lighthouse(b); + u1 = test_create_unit(test_create_faction(0), r1); + u1->number = 4; + u1->building = b; + set_level(u1, SK_PERCEPTION, 3); + CuAssertIntEquals(tc, 1, lighthouse_range(b, u1->faction)); + CuAssertPtrEquals(tc, b, inside_building(u1)); + u2 = test_create_unit(f, r1); + u2->building = b; + set_level(u2, SK_PERCEPTION, 3); + CuAssertIntEquals(tc, 0, lighthouse_range(b, u2->faction)); + CuAssertPtrEquals(tc, NULL, inside_building(u2)); + prepare_report(&ctx, u1->faction); + CuAssertPtrEquals(tc, r1, ctx.first); + CuAssertPtrEquals(tc, NULL, ctx.last); + CuAssertIntEquals(tc, seen_unit, r1->seen.mode); + CuAssertIntEquals(tc, seen_lighthouse, r2->seen.mode); + finish_reports(&ctx); + + prepare_report(&ctx, u2->faction); + CuAssertPtrEquals(tc, r1, ctx.first); + CuAssertPtrEquals(tc, 0, ctx.last); + CuAssertIntEquals(tc, seen_unit, r1->seen.mode); + CuAssertIntEquals(tc, seen_neighbour, r2->seen.mode); + finish_reports(&ctx); + + test_cleanup(); +} + +static void test_prepare_lighthouse(CuTest *tc) { + report_context ctx; + faction *f; + region *r1, *r2, *r3; + unit *u; + building *b; + building_type *btype; + const struct terrain_type *t_ocean, *t_plain; + + test_setup(); + t_ocean = test_create_terrain("ocean", SEA_REGION); + t_plain = test_create_terrain("plain", LAND_REGION); + f = test_create_faction(0); + r1 = test_create_region(0, 0, t_plain); + r2 = test_create_region(1, 0, t_ocean); + r3 = test_create_region(2, 0, t_ocean); + btype = test_create_buildingtype("lighthouse"); + b = test_create_building(r1, btype); + b->flags |= BLD_MAINTAINED; + b->size = 10; + update_lighthouse(b); + u = test_create_unit(f, r1); + u->building = b; + set_level(u, SK_PERCEPTION, 3); + prepare_report(&ctx, f); + CuAssertPtrEquals(tc, r1, ctx.first); + CuAssertPtrEquals(tc, NULL, ctx.last); + CuAssertIntEquals(tc, seen_unit, r1->seen.mode); + CuAssertIntEquals(tc, seen_lighthouse, r2->seen.mode); + CuAssertIntEquals(tc, seen_neighbour, r3->seen.mode); + test_cleanup(); +} + +static void test_prepare_lighthouse_owners(CuTest *tc) { + report_context ctx; + faction *f; + region *r1, *r2, *r3; + unit *u; + building *b; + building_type *btype; + const struct terrain_type *t_ocean, *t_plain; + + test_setup(); + config_set("rules.region_owner_pay_building", "lighthouse"); + config_set("rules.region_owners", "1"); + t_ocean = test_create_terrain("ocean", SEA_REGION); + t_plain = test_create_terrain("plain", LAND_REGION); + f = test_create_faction(0); + r1 = test_create_region(0, 0, t_plain); + r2 = test_create_region(1, 0, t_ocean); + r3 = test_create_region(2, 0, t_ocean); + btype = test_create_buildingtype("lighthouse"); + b = test_create_building(r1, btype); + b->flags |= BLD_MAINTAINED; + b->size = 10; + update_lighthouse(b); + u = test_create_unit(f, r1); + u = test_create_unit(test_create_faction(0), r1); + u->building = b; + set_level(u, SK_PERCEPTION, 3); + region_set_owner(b->region, f, 0); + prepare_report(&ctx, f); + CuAssertPtrEquals(tc, r1, ctx.first); + CuAssertPtrEquals(tc, NULL, ctx.last); + CuAssertIntEquals(tc, seen_unit, r1->seen.mode); + CuAssertIntEquals(tc, seen_lighthouse, r2->seen.mode); + CuAssertIntEquals(tc, seen_neighbour, r3->seen.mode); + test_cleanup(); +} + +static void test_prepare_report(CuTest *tc) { + report_context ctx; + faction *f; + region *r; + + test_setup(); + f = test_create_faction(0); + r = test_create_region(0, 0, 0); + + prepare_report(&ctx, f); + CuAssertPtrEquals(tc, 0, ctx.first); + CuAssertPtrEquals(tc, 0, ctx.last); + CuAssertIntEquals(tc, seen_none, r->seen.mode); + finish_reports(&ctx); + + test_create_unit(f, r); + prepare_report(&ctx, f); + CuAssertPtrEquals(tc, r, ctx.first); + CuAssertPtrEquals(tc, 0, ctx.last); + CuAssertIntEquals(tc, seen_unit, r->seen.mode); + finish_reports(&ctx); + CuAssertIntEquals(tc, seen_none, r->seen.mode); + finish_reports(&ctx); + + r = test_create_region(2, 0, 0); + CuAssertPtrEquals(tc, r, regions->next); + prepare_report(&ctx, f); + CuAssertPtrEquals(tc, regions, ctx.first); + CuAssertPtrEquals(tc, r, ctx.last); + CuAssertIntEquals(tc, seen_none, r->seen.mode); + test_cleanup(); +} + +static void test_seen_neighbours(CuTest *tc) { + report_context ctx; + faction *f; + region *r1, *r2; + + test_setup(); + f = test_create_faction(0); + r1 = test_create_region(0, 0, 0); + r2 = test_create_region(1, 0, 0); + + test_create_unit(f, r1); + prepare_report(&ctx, f); + CuAssertPtrEquals(tc, r1, ctx.first); + CuAssertPtrEquals(tc, 0, ctx.last); + CuAssertIntEquals(tc, seen_unit, r1->seen.mode); + CuAssertIntEquals(tc, seen_neighbour, r2->seen.mode); + finish_reports(&ctx); + test_cleanup(); +} + +static void test_seen_travelthru(CuTest *tc) { + report_context ctx; + faction *f; + unit *u; + region *r1, *r2, *r3; + + test_setup(); + f = test_create_faction(0); + r1 = test_create_region(0, 0, 0); + r2 = test_create_region(1, 0, 0); + r3 = test_create_region(2, 0, 0); + + u = test_create_unit(f, r1); + CuAssertPtrEquals(tc, r1, f->first); + CuAssertPtrEquals(tc, r1, f->last); + travelthru_add(r2, u); + CuAssertPtrEquals(tc, r1, f->first); + CuAssertPtrEquals(tc, r3, f->last); + prepare_report(&ctx, f); + CuAssertPtrEquals(tc, r1, ctx.first); + CuAssertPtrEquals(tc, 0, ctx.last); + CuAssertIntEquals(tc, seen_unit, r1->seen.mode); + CuAssertIntEquals(tc, seen_travel, r2->seen.mode); + CuAssertIntEquals(tc, seen_neighbour, r3->seen.mode); + finish_reports(&ctx); + test_cleanup(); +} + CuSuite *get_reports_suite(void) { CuSuite *suite = CuSuiteNew(); - SUITE_ADD_TEST(suite, test_cr_unit); + SUITE_ADD_TEST(suite, test_newbie_password_message); + SUITE_ADD_TEST(suite, test_prepare_report); + SUITE_ADD_TEST(suite, test_seen_neighbours); + SUITE_ADD_TEST(suite, test_seen_travelthru); + SUITE_ADD_TEST(suite, test_prepare_lighthouse); + SUITE_ADD_TEST(suite, test_prepare_lighthouse_owners); + SUITE_ADD_TEST(suite, test_prepare_lighthouse_capacity); + SUITE_ADD_TEST(suite, test_prepare_travelthru); + SUITE_ADD_TEST(suite, test_get_addresses); + SUITE_ADD_TEST(suite, test_get_addresses_fstealth); + SUITE_ADD_TEST(suite, test_get_addresses_travelthru); SUITE_ADD_TEST(suite, test_reorder_units); SUITE_ADD_TEST(suite, test_seen_faction); SUITE_ADD_TEST(suite, test_regionid); - SUITE_ADD_TEST(suite, test_write_spaces); - SUITE_ADD_TEST(suite, test_write_many_spaces); SUITE_ADD_TEST(suite, test_sparagraph); - SUITE_ADD_TEST(suite, test_write_travelthru); - SUITE_ADD_TEST(suite, test_write_unit); - SUITE_ADD_TEST(suite, test_write_spell_syntax); + SUITE_ADD_TEST(suite, test_bufunit); + SUITE_ADD_TEST(suite, test_bufunit_fstealth); SUITE_ADD_TEST(suite, test_arg_resources); return suite; } diff --git a/src/seen.c b/src/seen.c deleted file mode 100644 index 928b3f55e..000000000 --- a/src/seen.c +++ /dev/null @@ -1,168 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#include -#include -#include "seen.h" - -#include -#include - -#include -#include - -#define MAXSEEHASH 0x1000 -seen_region *reuse; - -seen_region **seen_init(void) -{ - return (seen_region **)calloc(MAXSEEHASH, sizeof(seen_region *)); -} - -void seen_done(seen_region * seehash[]) -{ - int i; - for (i = 0; i != MAXSEEHASH; ++i) { - seen_region *sd = seehash[i]; - if (sd == NULL) - continue; - while (sd->nextHash != NULL) - sd = sd->nextHash; - sd->nextHash = reuse; - reuse = seehash[i]; - seehash[i] = NULL; - } - free(seehash); -} - -void free_seen(void) -{ - while (reuse) { - seen_region *r = reuse; - reuse = reuse->nextHash; - free(r); - } -} - -void -link_seen(seen_region * seehash[], const region * first, const region * last) -{ - const region *r = first; - seen_region *sr = NULL; - - if (first == last) - return; - - do { - sr = find_seen(seehash, r); - r = r->next; - } while (sr == NULL && r != last); - - while (r != last) { - seen_region *sn = find_seen(seehash, r); - if (sn != NULL) { - sr->next = sn; - sr = sn; - } - r = r->next; - } - if (sr) sr->next = 0; -} - -seen_region *find_seen(struct seen_region *seehash[], const region * r) -{ - unsigned int index = reg_hashkey(r) & (MAXSEEHASH - 1); - seen_region *find = seehash[index]; - while (find) { - if (find->r == r) { - return find; - } - find = find->nextHash; - } - return NULL; -} - -void seenhash_map(struct seen_region *seen[], void(*cb)(seen_region *, void *), void *cbdata) { - int i; - for (i = 0; i != MAXSEEHASH; ++i) { - seen_region *sr = seen[i]; - while (sr != NULL) { - cb(sr, cbdata); - sr = sr->nextHash; - } - } -} - -typedef struct cb_interval { - region *first; - region *last; -} cb_interval; - -static void cb_get_interval(seen_region *sr, void *cbdata) { - cb_interval *iv = (cb_interval *)cbdata; - region *r = sr->r; - if (iv->first == NULL || r->index < iv->first->index) { - iv->first = r; - } - if (iv->last != NULL && r->index >= iv->last->index) { - iv->last = r->next; - } -} - -/* this function adds the neighbour regions of the ones we have seen - * to the interval, which may be outside of [faction.first, faction.last) - */ -void get_seen_interval(struct seen_region *seen[], struct region **firstp, struct region **lastp) -{ - cb_interval interval; - - interval.first = *firstp; - interval.last = *lastp; - seenhash_map(seen, cb_get_interval, &interval); - *firstp = interval.first; - *lastp = interval.last; -} - -seen_region *add_seen(struct seen_region *seehash[], struct region *r, seen_t mode, bool dis) -{ - seen_region *find = find_seen(seehash, r); - if (find == NULL) { - unsigned int index = reg_hashkey(r) & (MAXSEEHASH - 1); - if (!reuse) - reuse = (seen_region *)calloc(1, sizeof(struct seen_region)); - find = reuse; - reuse = reuse->nextHash; - find->nextHash = seehash[index]; - find->mode = mode; - seehash[index] = find; - find->r = r; - } - else if (find->mode < mode) { - find->mode = mode; - } - find->disbelieves |= dis; - return find; -} - -seen_region *faction_add_seen(faction *f, region *r, seen_t mode) { - assert(f->seen); -#ifdef SMART_INTERVALS - update_interval(f, r); -#endif - return add_seen(f->seen, r, mode, false); -} diff --git a/src/seen.h b/src/seen.h deleted file mode 100644 index 1f0197cc7..000000000 --- a/src/seen.h +++ /dev/null @@ -1,62 +0,0 @@ -#pragma once -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#ifndef H_SEEN_REGION -#define H_SEEN_REGION - -struct region; -struct faction; -struct seen_region; - -#ifdef __cplusplus -extern "C" { -#endif - - typedef enum { - see_none, - see_neighbour, - see_lighthouse, - see_travel, - see_far, - see_unit, - see_battle - } seen_t; - - typedef struct seen_region { - struct seen_region *nextHash; - struct seen_region *next; - struct region *r; - seen_t mode; - bool disbelieves; /* potion of truth */ - } seen_region; - -struct seen_region **seen_init(void); -void seen_done(struct seen_region *seehash[]); -void free_seen(void); -void link_seen(struct seen_region *seehash[], const struct region * first, const struct region * last); -struct seen_region *find_seen(struct seen_region *seehash[], const struct region * r); -void get_seen_interval(struct seen_region *seen[], struct region **firstp, struct region **lastp); -seen_region *add_seen(struct seen_region *seehash[], struct region *r, seen_t mode, bool dis); -void link_seen(struct seen_region *seehash[], const struct region *first, const struct region *last); -void seenhash_map(struct seen_region *seen[], void(*cb)(struct seen_region *, void *), void *cbdata); -struct seen_region *faction_add_seen(struct faction *f, struct region *r, seen_t mode); -#ifdef __cplusplus -} -#endif -#endif diff --git a/src/seen.test.c b/src/seen.test.c deleted file mode 100644 index e3e1265bd..000000000 --- a/src/seen.test.c +++ /dev/null @@ -1,202 +0,0 @@ -#include -#include -#include "seen.h" -#include "reports.h" -#include "travelthru.h" - -#include -#include -#include - -#include -#include - -static void setup_seen(int x, int y) { - int dir; - - for (dir = 0; dir != MAXDIRECTIONS; ++dir) { - test_create_region(x+delta_x[dir], y+delta_y[dir], 0); - } -} - -static void test_add_seen(CuTest *tc) { - region *r; - seen_region **seen, *sr; - - test_setup(); - seen = seen_init(); - r = test_create_region(0, 0, 0); - sr = add_seen(seen, r, see_travel, false); - CuAssertPtrEquals(tc, r, sr->r); - CuAssertIntEquals(tc, see_travel, sr->mode); - CuAssertIntEquals(tc, false, sr->disbelieves); - CuAssertPtrEquals(tc, 0, sr->next); - CuAssertPtrEquals(tc, 0, sr->nextHash); - CuAssertPtrEquals(tc, sr, find_seen(seen, r)); - sr = add_seen(seen, r, see_neighbour, true); - CuAssertIntEquals(tc, true, sr->disbelieves); - CuAssertIntEquals(tc, see_travel, sr->mode); - sr = add_seen(seen, r, see_unit, false); - CuAssertIntEquals(tc, true, sr->disbelieves); - CuAssertIntEquals(tc, see_unit, sr->mode); - seen_done(seen); - test_cleanup(); -} - -static void test_faction_add_seen(CuTest *tc) { - faction *f; - seen_region *sr; - - test_setup(); - f = test_create_faction(0); - f->seen = seen_init(); - test_create_region(0, 0, 0); - test_create_region(0, 1, 0); - sr = faction_add_seen(f, regions, see_unit); - CuAssertIntEquals(tc, false, sr->disbelieves); - CuAssertPtrEquals(tc, regions, f->first); - CuAssertPtrEquals(tc, regions, f->last); - seen_done(f->seen); - test_cleanup(); -} - -static void test_prepare_seen(CuTest *tc) { - region *r; - faction *f; - unit *u; - - test_setup(); - f = test_create_faction(0); - r = test_create_region(0, 0, 0); - u = test_create_unit(f, r); - f->seen = seen_init(); - faction_add_seen(f, r, see_unit); - setup_seen(0, 0); - r = test_create_region(2, 2, 0); - setup_seen(2, 2); - travelthru_add(r, u); - - init_reports(); - prepare_seen(f); - CuAssertPtrEquals(tc, regions, f->first); - CuAssertPtrEquals(tc, 0, f->last); - seen_done(f->seen); - test_cleanup(); -} - -static void test_seen_travelthru(CuTest *tc) { - seen_region *sr; - region *r; - faction *f; - unit *u; - - test_setup(); - setup_seen(0, 0); - f = test_create_faction(0); - u = test_create_unit(f, test_create_region(0, 0, 0)); - r = test_create_region(0, 1, 0); - travelthru_add(r, u); - init_reports(); - view_default(f->seen, r, f); - get_seen_interval(f->seen, &f->first, &f->last); - link_seen(f->seen, f->first, f->last); - CuAssertPtrEquals(tc, regions, f->first); - CuAssertPtrEquals(tc, 0, f->last); - sr = find_seen(f->seen, regions); - CuAssertPtrEquals(tc, regions, sr->r); - CuAssertIntEquals(tc, see_neighbour, sr->mode); - sr = find_seen(f->seen, r); - CuAssertPtrEquals(tc, r, sr->r); - CuAssertIntEquals(tc, see_travel, sr->mode); - seen_done(f->seen); - test_cleanup(); -} - -static void test_seen_region(CuTest *tc) { - seen_region **seen, *sr; - region *r; - - test_setup(); - setup_seen(0, 0); - r = test_create_region(0, 0, 0); - seen = seen_init(); - add_seen(seen, r, see_unit, false); - sr = find_seen(seen, r); - CuAssertPtrEquals(tc, r, sr->r); - seen_done(seen); - test_cleanup(); -} - -static void test_seen_interval_backward(CuTest *tc) { - region *r, *first, *last; - seen_region **seen; - - test_setup(); - r = test_create_region(0, 0, 0); - setup_seen(0, 0); - seen = seen_init(); - add_seen(seen, r, see_unit, false); - view_default(seen, r, 0); - first = r; - last = 0; - get_seen_interval(seen, &first, &last); - CuAssertPtrEquals(tc, regions, first); - CuAssertPtrEquals(tc, 0, last); - seen_done(seen); - test_cleanup(); -} - -static void test_seen_interval_forward(CuTest *tc) { - region *r, *first, *last; - seen_region **seen; - - test_setup(); - setup_seen(0, 0); - r = test_create_region(0, 0, 0); - seen = seen_init(); - add_seen(seen, r, see_unit, true); - view_default(seen, r, 0); - first = r; - last = 0; - get_seen_interval(seen, &first, &last); - CuAssertPtrEquals(tc, regions, first); - CuAssertPtrEquals(tc, 0, last); - seen_done(seen); - test_cleanup(); -} - -static void cb_testmap(seen_region *sr, void *cbdata) { - int *ip = (int *)cbdata; - *ip += sr->r->y; -} - -static void test_seenhash_map(CuTest *tc) { - region *r; - seen_region **seen; - int i = 0; - - test_setup(); - seen = seen_init(); - r = test_create_region(1, 1, 0); - add_seen(seen, r, see_unit, false); - r = test_create_region(2, 2, 0); - add_seen(seen, r, see_unit, false); - seenhash_map(seen, cb_testmap, &i); - CuAssertIntEquals(tc, 3, i); - seen_done(seen); - test_cleanup(); -} - -CuSuite *get_seen_suite(void) -{ - CuSuite *suite = CuSuiteNew(); - SUITE_ADD_TEST(suite, test_prepare_seen); - SUITE_ADD_TEST(suite, test_seen_travelthru); - SUITE_ADD_TEST(suite, test_add_seen); - SUITE_ADD_TEST(suite, test_faction_add_seen); - SUITE_ADD_TEST(suite, test_seen_region); - SUITE_ADD_TEST(suite, test_seen_interval_backward); - SUITE_ADD_TEST(suite, test_seen_interval_forward); - SUITE_ADD_TEST(suite, test_seenhash_map); - return suite; -} diff --git a/src/settings.h b/src/settings.h index c44bc0f2a..e7ec39305 100644 --- a/src/settings.h +++ b/src/settings.h @@ -10,10 +10,6 @@ without prior permission by the authors of Eressea. */ -/* - * Contains defines for the "free" game (Eressea) . - * Include this file from settings.h to make eressea work. - */ #define ENTERTAINFRACTION 20 #define TEACHDIFFERENCE 2 #define GUARD_DISABLES_RECRUIT 1 @@ -24,7 +20,7 @@ #undef NEWATSROI /* Vermehrungsrate Bauern in 1/10000. -* TODO: Evt. Berechnungsfehler, reale Vermehrungsraten scheinen hher. */ +* TODO: Evt. Berechnungsfehler, reale Vermehrungsraten scheinen hoeher. */ #define PEASANTGROWTH 10 #define PEASANTLUCK 10 @@ -35,28 +31,26 @@ * or both. We don't want separate binaries for different games */ #define MUSEUM_MODULE 1 -#define ARENA_MODULE 1 #undef REGIONOWNERS /* (WIP) region-owner uses HELP_TRAVEL to control entry to region */ /* experimental gameplay features (that don't affect the savefile) */ /* TODO: move these settings to settings.h or into configuration files */ -#define GOBLINKILL /* Goblin-Spezialklau kann tdlich enden */ -#define INSECT_POTION /* Spezialtrank fr Insekten */ -#define ORCIFICATION /* giving snotlings to the peasants gets counted */ +#define GOBLINKILL /* Goblin-Spezialklau kann toedlich enden */ +#define INSECT_POTION /* Spezialtrank fuer Insekten */ #define TREESIZE (8) /* space used by trees (in #peasants) */ #define PEASANTFORCE 0.75 /* Chance einer Vermehrung trotz 90% Auslastung */ - /* Gebudegre = Minimalbelagerer */ + /* Gebaeudegroesse = Minimalbelagerer */ #define SIEGEFACTOR 2 /** Magic */ #define MAXMAGICIANS 3 #define MAXALCHEMISTS 3 -#define ENCCHANCE 10 /* %-Chance fr einmalige Zufallsbegegnung */ -#define BAGCAPACITY 20000 /* soviel pat in einen Bag of Holding */ +#define ENCCHANCE 10 /* %-Chance fuer einmalige Zufallsbegegnung */ +#define BAGCAPACITY 20000 /* soviel passt in einen Bag of Holding */ #define PERSON_WEIGHT 1000 /* weight of a "normal" human unit */ #define STAMINA_AFFECTS_HP 1<<0 diff --git a/src/skill.h b/src/skill.h index 8b0c0c155..24f96a844 100644 --- a/src/skill.h +++ b/src/skill.h @@ -3,7 +3,7 @@ #ifndef H_SKILL_H #define H_SKILL_H -#include +#include struct locale; typedef enum { diff --git a/src/spells.c b/src/spells.c index ab4d6dd6d..fcee1b51b 100644 --- a/src/spells.c +++ b/src/spells.c @@ -15,13 +15,14 @@ #include #include +#include "guard.h" #include "spy.h" #include "vortex.h" #include "laws.h" #include "spells.h" #include "direction.h" #include "randenc.h" -#include "monster.h" +#include "monsters.h" #include "teleport.h" #include @@ -33,10 +34,10 @@ #include /* kernel includes */ -#include -#include #include #include +#include +#include #include #include #include @@ -46,7 +47,6 @@ #include #include #include -#include #include #include #include @@ -60,6 +60,7 @@ #include #include #include +#include #include #include #include @@ -94,7 +95,6 @@ #include #include #include -#include /* attributes includes */ #include @@ -107,10 +107,6 @@ static double zero_effect = 0.0; -attrib_type at_wdwpyramid = { - "wdwpyramid", NULL, NULL, NULL, a_writevoid, a_readvoid -}; - /* ----------------------------------------------------------------------- */ static void report_spell(unit * mage, region * r, message * msg) @@ -153,7 +149,7 @@ static void magicanalyse_region(region * r, unit * mage, double force) * mehr als 100% probability und damit immer ein Erfolg. */ probability = curse_chance(c, force); mon = c->duration + (rng_int() % 10) - 5; - mon = _max(1, mon); + mon = MAX(1, mon); found = true; if (chance(probability)) { /* Analyse geglueckt */ @@ -194,7 +190,7 @@ static void magicanalyse_unit(unit * u, unit * mage, double force) * mehr als 100% probability und damit immer ein Erfolg. */ probability = curse_chance(c, force); mon = c->duration + (rng_int() % 10) - 5; - mon = _max(1, mon); + mon = MAX(1, mon); if (chance(probability)) { /* Analyse geglueckt */ if (c_flags(c) & CURSE_NOAGE) { @@ -235,7 +231,7 @@ static void magicanalyse_building(building * b, unit * mage, double force) * mehr als 100% probability und damit immer ein Erfolg. */ probability = curse_chance(c, force); mon = c->duration + (rng_int() % 10) - 5; - mon = _max(1, mon); + mon = MAX(1, mon); if (chance(probability)) { /* Analyse geglueckt */ if (c_flags(c) & CURSE_NOAGE) { @@ -276,7 +272,7 @@ static void magicanalyse_ship(ship * sh, unit * mage, double force) * mehr als 100% probability und damit immer ein Erfolg. */ probability = curse_chance(c, force); mon = c->duration + (rng_int() % 10) - 5; - mon = _max(1, mon); + mon = MAX(1, mon); if (chance(probability)) { /* Analyse geglueckt */ if (c_flags(c) & CURSE_NOAGE) { @@ -401,6 +397,7 @@ static void report_effect(region * r, unit * mage, message * seen, message * unseen) { int err = report_action(r, mage, seen, ACTION_RESET | ACTION_CANSEE); + UNUSED_ARG(unseen); if (err) { report_action(r, mage, seen, ACTION_CANNOTSEE); } @@ -450,7 +447,7 @@ report_effect(region * r, unit * mage, message * seen, message * unseen) * Vertrauten sehen, und durch den Vertrauten zaubern, allerdings nur * mit seiner halben Stufe. Je nach Vertrautem erhaelt der Magier * evtl diverse Skillmodifikationen. Der Typ des Vertrauten ist - * zufaellig bestimmt, wird aber durch Magiegebiet und Rasse beeinflut. + * zufaellig bestimmt, wird aber durch Magiegebiet und Rasse beeinflu�t. * "Tierische" Vertraute brauchen keinen Unterhalt. * * Ein paar Moeglichkeiten: @@ -517,11 +514,16 @@ static const race *select_familiar(const race * magerace, magic_t magiegebiet) static void make_familiar(unit * familiar, unit * mage) { /* skills and spells: */ - if (u_race(familiar)->init_familiar != NULL) { - u_race(familiar)->init_familiar(familiar); + const struct equipment *eq; + char eqname[64]; + const race * rc = u_race(familiar); + snprintf(eqname, sizeof(eqname), "%s_familiar", rc->_name); + eq = get_equipment(eqname); + if (eq != NULL) { + equip_items(&familiar->items, eq); } else { - log_error("could not perform initialization for familiar %s.\n", familiar->faction->race->_name); + log_error("could not perform initialization for familiar %s.\n", rc->_name); } /* triggers: */ @@ -708,7 +710,7 @@ static int sp_destroy_magic(castorder * co) "unit region command", mage, mage->region, co->order)); } - return _max(succ, 1); + return MAX(succ, 1); } /* ------------------------------------------------------------- */ @@ -777,7 +779,7 @@ static int sp_transferaura(castorder * co) return 0; } - gain = _min(aura, scm_src->spellpoints) / multi; + gain = MIN(aura, scm_src->spellpoints) / multi; scm_src->spellpoints -= gain * multi; scm_dst->spellpoints += gain; @@ -916,7 +918,7 @@ static int sp_summonent(castorder * co) return 0; } - ents = _min((int)(power * power), rtrees(r, 2)); + ents = MIN((int)(power * power), rtrees(r, 2)); u = create_unit(r, mage->faction, ents, get_race(RC_TREEMAN), 0, NULL, mage); @@ -1308,7 +1310,7 @@ static int sp_rosthauch(castorder * co) for (; iweapon != NULL; iweapon = iweapon->next) { item **ip = i_find(&u->items, iweapon->type); if (*ip) { - float chance = (float)_min((*ip)->number, force); + float chance = (float)MIN((*ip)->number, force); if (iweapon->chance < 1.0) { chance *= iweapon->chance; } @@ -1347,7 +1349,7 @@ static int sp_rosthauch(castorder * co) * unguenstigsten Fall kann pro Stufe nur eine Waffe verzaubert werden, * darum wird hier nur fuer alle Faelle in denen noch weniger Waffen * betroffen wurden ein Kostennachlass gegeben */ - return _min(success, cast_level); + return MIN(success, cast_level); } /* ------------------------------------------------------------- */ @@ -1377,7 +1379,7 @@ static int sp_kaelteschutz(castorder * co) unit *mage = co->magician.u; int cast_level = co->level; double force = co->force; - int duration = _max(cast_level, (int)force) + 1; + int duration = MAX(cast_level, (int)force) + 1; spellparameter *pa = co->par; double effect; @@ -1501,16 +1503,23 @@ static int sp_create_irongolem(castorder * co) int cast_level = co->level; double force = co->force; int number = lovar(force * 8 * RESOURCE_QUANTITY); - if (number < 1) + static int cache; + static const race * golem_rc; + + if (rc_changed(&cache)) { + golem_rc = rc_find("irongolem"); + } + + if (number < 1) { number = 1; + } if (r->terrain == newterrain(T_SWAMP)) { cmistake(mage, co->order, 188, MSG_MAGIC); return 0; } - u2 = - create_unit(r, mage->faction, number, rc_find("irongolem"), 0, NULL, mage); + u2 = create_unit(r, mage->faction, number, golem_rc, 0, NULL, mage); set_level(u2, SK_ARMORER, 1); set_level(u2, SK_WEAPONSMITH, 1); @@ -1523,7 +1532,7 @@ static int sp_create_irongolem(castorder * co) ADDMSG(&mage->faction->msgs, msg_message("magiccreate_effect", "region command unit amount object", mage->region, co->order, mage, number, - LOC(mage->faction->locale, rc_name_s(rc_find("irongolem"), (u2->number == 1) ? NAME_SINGULAR : NAME_PLURAL)))); + LOC(mage->faction->locale, rc_name_s(golem_rc, (u2->number == 1) ? NAME_SINGULAR : NAME_PLURAL)))); return cast_level; } @@ -1563,6 +1572,12 @@ static int sp_create_stonegolem(castorder * co) unit *mage = co->magician.u; int cast_level = co->level; int number = lovar(co->force * 5 * RESOURCE_QUANTITY); + static int cache; + static const race * golem_rc; + + if (rc_changed(&cache)) { + golem_rc = rc_find("stonegolem"); + } if (number < 1) number = 1; @@ -1572,7 +1587,7 @@ static int sp_create_stonegolem(castorder * co) } u2 = - create_unit(r, mage->faction, number, rc_find("stonegolem"), 0, NULL, mage); + create_unit(r, mage->faction, number, golem_rc, 0, NULL, mage); set_level(u2, SK_ROAD_BUILDING, 1); set_level(u2, SK_BUILDING, 1); @@ -1584,13 +1599,13 @@ static int sp_create_stonegolem(castorder * co) ADDMSG(&mage->faction->msgs, msg_message("magiccreate_effect", "region command unit amount object", mage->region, co->order, mage, number, - LOC(mage->faction->locale, rc_name_s(rc_find("stonegolem"), (u2->number == 1) ? NAME_SINGULAR : NAME_PLURAL)))); + LOC(mage->faction->locale, rc_name_s(golem_rc, (u2->number == 1) ? NAME_SINGULAR : NAME_PLURAL)))); return cast_level; } /* ------------------------------------------------------------- */ -/* Name: Groe Duerre +/* Name: Gro�e Duerre * Stufe: 17 * Kategorie: Region, negativ * Gebiet: Gwyrrd @@ -1898,7 +1913,7 @@ static int sp_treewalkexit(castorder * co) return 0; } - /* Koordinaten setzen und Region loeschen fuer berpruefung auf + /* Koordinaten setzen und Region loeschen fuer �berpruefung auf * Gueltigkeit */ rt = pa->param[0]->data.r; tax = rt->x; @@ -2128,8 +2143,8 @@ static int sp_drought(castorder * co) */ c = get_curse(r->attribs, ct_find("drought")); if (c) { - c->vigour = _max(c->vigour, power); - c->duration = _max(c->duration, (int)power); + c->vigour = MAX(c->vigour, power); + c->duration = MAX(c->duration, (int)power); } else { double effect = 4.0; @@ -2183,9 +2198,9 @@ static int sp_ironkeeper(castorder * co) /*keeper->age = cast_level + 2; */ setstatus(keeper, ST_AVOID); /* kaempft nicht */ - guard(keeper, GUARD_MINING); + setguard(keeper, true); fset(keeper, UFL_ISNEW); - /* Parteitarnen, damit man nicht sofort wei, wer dahinter steckt */ + /* Parteitarnen, damit man nicht sofort wei�, wer dahinter steckt */ if (rule_stealth_anon()) { fset(keeper, UFL_ANON_FACTION); } @@ -2326,8 +2341,8 @@ static int sp_earthquake(castorder * co) if (burg->size != 0 && !is_cursed(burg->attribs, C_MAGICWALLS, 0)) { /* Magieresistenz */ if (!target_resists_magic(mage, burg, TYP_BUILDING, 0)) { - kaputt = _min(10 * cast_level, burg->size / 4); - kaputt = _max(kaputt, 1); + kaputt = MIN(10 * cast_level, burg->size / 4); + kaputt = MAX(kaputt, 1); burg->size -= kaputt; if (burg->size == 0) { /* TODO: sollten die Insassen nicht Schaden nehmen? */ @@ -2373,7 +2388,6 @@ void patzer_peasantmob(const castorder * co) create_unit(r, f, n, get_race(RC_PEASANT), 0, LOC(f->locale, "angry_mob"), NULL); fset(u, UFL_ISNEW); - /* guard(u, GUARD_ALL); hier zu frueh! Befehl BEWACHE setzten */ addlist(&u->orders, create_order(K_GUARD, lang, NULL)); set_order(&u->thisorder, default_order(lang)); a = a_new(&at_unitdissolve); @@ -2493,7 +2507,7 @@ static int sp_forest_fire(castorder * co) * das Zaubern. Patzer werden warscheinlicher. * Jeder Zauber muss erst gegen den Wiederstand des Fluchs gezaubert * werden und schwaecht dessen Antimagiewiederstand um 1. - * Wirkt _max(Stufe(Magier) - Stufe(Ziel), rand(3)) Wochen + * Wirkt MAX(Stufe(Magier) - Stufe(Ziel), rand(3)) Wochen * Patzer: * Magier wird selbst betroffen * @@ -2521,7 +2535,7 @@ static int sp_fumblecurse(castorder * co) rx = rng_int() % 3; sx = cast_level - effskill(target, SK_MAGIC, 0); - duration = _max(sx, rx) + 1; + duration = MAX(sx, rx) + 1; effect = force / 2; c = create_curse(mage, &target->attribs, ct_find("fumble"), @@ -2564,7 +2578,7 @@ void patzer_fumblecurse(const castorder * co) * * Wirkung: * In einer Wueste, Sumpf oder Gletscher gezaubert kann innerhalb der - * naechsten 6 Runden ein bis 6 Dracheneinheiten bis Groee Wyrm + * naechsten 6 Runden ein bis 6 Dracheneinheiten bis Groe�e Wyrm * entstehen. * * Mit Stufe 12-15 erscheinen Jung- oder normaler Drachen, mit Stufe @@ -2687,8 +2701,8 @@ static int sp_firewall(castorder * co) } else { fd = (wall_data *)b->data.v; - fd->force = (int)_max(fd->force, force / 2 + 0.5); - fd->countdown = _max(fd->countdown, cast_level + 1); + fd->force = (int)MAX(fd->force, force / 2 + 0.5); + fd->countdown = MAX(fd->countdown, cast_level + 1); } /* melden, 1x pro Partei */ @@ -2717,6 +2731,26 @@ static int sp_firewall(castorder * co) * (SPELLLEVEL | TESTCANSEE) */ +static const race *unholy_race(const race *rc) { + static int cache; + static const race * rc_skeleton, *rc_zombie, *rc_ghoul; + if (rc_changed(&cache)) { + rc_skeleton = get_race(RC_SKELETON); + rc_zombie = get_race(RC_ZOMBIE); + rc_ghoul = get_race(RC_GHOUL); + } + if (rc == rc_skeleton) { + return get_race(RC_SKELETON_LORD); + } + if (rc == rc_zombie) { + return get_race(RC_ZOMBIE_LORD); + } + if (rc == rc_ghoul) { + return get_race(RC_GHOUL_LORD); + } + return NULL; +} + static int sp_unholypower(castorder * co) { region * r = co_get_region(co); @@ -2739,17 +2773,8 @@ static int sp_unholypower(castorder * co) u = pa->param[i]->data.u; - switch (old_race(u_race(u))) { - case RC_SKELETON: - target_race = get_race(RC_SKELETON_LORD); - break; - case RC_ZOMBIE: - target_race = get_race(RC_ZOMBIE_LORD); - break; - case RC_GHOUL: - target_race = get_race(RC_GHOUL_LORD); - break; - default: + target_race = unholy_race(u_race(u)); + if (!target_race) { cmistake(mage, co->order, 284, MSG_MAGIC); continue; } @@ -2798,7 +2823,7 @@ static int change_hitpoints(unit * u, int value) hp += value; - /* Jede Person bentigt mindestens 1 HP */ + /* Jede Person ben�tigt mindestens 1 HP */ if (hp < u->number) { if (hp < 0) { /* Einheit tot */ hp = 0; @@ -2826,7 +2851,8 @@ static int dc_age(struct curse *c) while (*up != NULL) { unit *u = *up; int hp; - double damage = c->effect * u->number; + variant dmg = frac_make(u->number, 1); + double damage = c->effect; if (u->number <= 0 || target_resists_magic(mage, u, TYP_UNIT, 0)) { up = &u->next; @@ -2834,7 +2860,9 @@ static int dc_age(struct curse *c) } /* Reduziert durch Magieresistenz */ - damage *= (1.0 - magic_resistance(u)); + dmg = frac_mul(dmg, frac_sub(frac_make(1,1), magic_resistance(u))); + damage *= dmg.sa[0]; + damage /= dmg.sa[1]; hp = change_hitpoints(u, -(int)damage); ADDMSG(&u->faction->msgs, msg_message((hp>0)?"poison_damage":"poison_death", "region unit", r, u)); @@ -2875,6 +2903,8 @@ static int dc_read_compat(struct attrib *a, void *target, gamedata *data) float strength; int rx, ry; + UNUSED_ARG(a); + UNUSED_ARG(target); READ_INT(store, &duration); READ_FLT(store, &strength); READ_INT(store, &var.i); @@ -2919,7 +2949,7 @@ attrib_type at_deathcloud_compat = { * Ruestung wirkt nicht * Patzer: * Magier geraet in den Staub und verliert zufaellige Zahl von HP bis -* auf _max(hp,2) +* auf MAX(hp,2) * Besonderheiten: * Nicht als curse implementiert, was schlecht ist - man kann dadurch * kein dispell machen. Wegen fix unter Zeitdruck erstmal nicht zu @@ -3099,8 +3129,10 @@ static bool chaosgate_valid(const connection * b) } static struct region *chaosgate_move(const connection * b, struct unit *u, -struct region *from, struct region *to, bool routing) + struct region *from, struct region *to, bool routing) { + UNUSED_ARG(from); + UNUSED_ARG(b); if (!routing) { int maxhp = u->hp / 4; if (maxhp < u->number) @@ -3218,8 +3250,7 @@ static int sp_magicboost(castorder * co) } effect = 6; - c = create_curse(mage, &mage->attribs, ct_magicboost, power, 10, effect, 1); - + create_curse(mage, &mage->attribs, ct_magicboost, power, 10, effect, 1); /* one aura boost with 200% aura now: */ effect = 200; c = create_curse(mage, &mage->attribs, ct_auraboost, power, 4, effect, 1); @@ -3343,7 +3374,7 @@ static int sp_summonundead(castorder * co) return 0; } - undead = _min(deathcount(r), 2 + lovar(force)); + undead = MIN(deathcount(r), 2 + lovar(force)); if (cast_level <= 8) { race = get_race(RC_SKELETON); @@ -3391,7 +3422,7 @@ static int sp_auraleak(castorder * co) int cast_level = co->level; message *msg; - lost = _min(0.95, cast_level * 0.05); + lost = MIN(0.95, cast_level * 0.05); for (u = r->units; u; u = u->next) { if (is_mage(u)) { @@ -3722,7 +3753,7 @@ static int sp_rallypeasantmob(castorder * co) rsetpeasants(r, rpeasants(r) + u->number); rsetmoney(r, rmoney(r) + get_money(u)); set_money(u, 0); - setguard(u, GUARD_NONE); + setguard(u, false); set_number(u, 0); erfolg = cast_level; } @@ -3745,7 +3776,7 @@ static int sp_rallypeasantmob(castorder * co) * Gebiet: Cerddor * Wirkung: * Wiegelt 60% bis 90% der Bauern einer Region auf. Bauern werden ein - * groer Mob, der zur Monsterpartei gehoert und die Region bewacht. + * gro�er Mob, der zur Monsterpartei gehoert und die Region bewacht. * Regionssilber sollte auch nicht durch Unterhaltung gewonnen werden * koennen. * @@ -3774,8 +3805,8 @@ static int sp_raisepeasantmob(castorder * co) anteil = 6 + (rng_int() % 4); n = rpeasants(r) * anteil / 10; - n = _max(0, n); - n = _min(n, rpeasants(r)); + n = MAX(0, n); + n = MIN(n, rpeasants(r)); if (n <= 0) { report_failure(mage, co->order); @@ -3789,7 +3820,7 @@ static int sp_raisepeasantmob(castorder * co) create_unit(r, monsters, n, get_race(RC_PEASANT), 0, LOC(monsters->locale, "furious_mob"), NULL); fset(u, UFL_ISNEW); - guard(u, GUARD_ALL); + setguard(u, true); a = a_new(&at_unitdissolve); a->data.ca[0] = 1; /* An rpeasants(r). */ a->data.ca[1] = 15; /* 15% */ @@ -4006,21 +4037,21 @@ static int sp_recruit(castorder * co) return 0; } /* Immer noch zuviel auf niedrigen Stufen. Deshalb die Rekrutierungskosten - * mit einfliessen lassen und dafuer den Exponenten etwas groeer. + * mit einfliessen lassen und dafuer den Exponenten etwas groe�er. * Wenn die Rekrutierungskosten deutlich hoeher sind als der Faktor, * ist das Verhaeltniss von ausgegebene Aura pro Bauer bei Stufe 2 * ein mehrfaches von Stufe 1, denn in beiden Faellen gibt es nur 1 * Bauer, nur die Kosten steigen. */ n = (pow(force, 1.6) * 100) / f->race->recruitcost; - if (rc->recruit_multi != 0) { + if (rc->recruit_multi > 0) { double multp = (double)maxp / rc->recruit_multi; - n = _min(multp, n); - n = _max(n, 1); + n = MIN(multp, n); + n = MAX(n, 1); rsetpeasants(r, maxp - (int)(n * rc->recruit_multi)); } else { - n = _min(maxp, n); - n = _max(n, 1); + n = MIN(maxp, n); + n = MAX(n, 1); rsetpeasants(r, maxp - (int)n); } @@ -4037,7 +4068,7 @@ static int sp_recruit(castorder * co) } /* ------------------------------------------------------------- */ -/* Name: Wanderprediger - Groe Anwerbung +/* Name: Wanderprediger - Gro�e Anwerbung * Stufe: 14 * Gebiet: Cerddor * Wirkung: @@ -4065,13 +4096,13 @@ static int sp_bigrecruit(castorder * co) n = (int)force + lovar((force * force * 1000) / (float)f->race->recruitcost); if (f->race == get_race(RC_ORC)) { - n = _min(2 * maxp, n); - n = _max(n, 1); + n = MIN(2 * maxp, n); + n = MAX(n, 1); rsetpeasants(r, maxp - (n + 1) / 2); } else { - n = _min(maxp, n); - n = _max(n, 1); + n = MIN(maxp, n); + n = MAX(n, 1); rsetpeasants(r, maxp - n); } @@ -4093,8 +4124,8 @@ static int sp_bigrecruit(castorder * co) * Gebiet: Cerddor * Wirkung: * Erliegt die Einheit dem Zauber, so wird sie dem Magier alles - * erzaehlen, was sie ueber die gefragte Region wei. Ist in der Region - * niemand ihrer Partei, so wei sie nichts zu berichten. Auch kann + * erzaehlen, was sie ueber die gefragte Region wei�. Ist in der Region + * niemand ihrer Partei, so wei� sie nichts zu berichten. Auch kann * sie nur das erzaehlen, was sie selber sehen koennte. * Flags: * (UNITSPELL | TESTCANSEE) @@ -4144,7 +4175,7 @@ static int sp_pump(castorder * co) } u = - create_unit(rt, mage->faction, RS_FARVISION, get_race(RC_SPELL), 0, + create_unit(rt, mage->faction, 1, get_race(RC_SPELL), 0, "spell/pump", NULL); u->age = 2; set_level(u, SK_PERCEPTION, effskill(target, SK_PERCEPTION, 0)); @@ -4157,10 +4188,10 @@ static int sp_pump(castorder * co) * Stufe: 6 * Gebiet: Cerddor * Wirkung: - * Betoert eine Einheit, so das sie ihm den groeten Teil ihres Bargelds + * Betoert eine Einheit, so das sie ihm den groe�ten Teil ihres Bargelds * und 50% ihres Besitzes schenkt. Sie behaelt jedoch immer soviel, wie * sie zum ueberleben braucht. Wirkt gegen Magieresistenz. - * _min(Stufe*1000$, u->money - maintenace) + * MIN(Stufe*1000$, u->money - maintenace) * Von jedem Item wird 50% abgerundet ermittelt und uebergeben. Dazu * kommt Itemzahl%2 mit 50% chance * @@ -4171,7 +4202,7 @@ static int sp_seduce(castorder * co) { const resource_type *rsilver = get_resourcetype(R_SILVER); unit *target; - item **itmp, *items = 0;; + item **itmp, *items = 0; unit *mage = co->magician.u; spellparameter *pa = co->par; int cast_level = co->level; @@ -4197,8 +4228,8 @@ static int sp_seduce(castorder * co) int loot; if (itm->type->rtype == rsilver) { loot = - _min(cast_level * 1000, get_money(target) - (maintenance_cost(target))); - loot = _max(loot, 0); + MIN(cast_level * 1000, get_money(target) - (maintenance_cost(target))); + loot = MAX(loot, 0); } else { loot = itm->number / 2; @@ -4206,7 +4237,7 @@ static int sp_seduce(castorder * co) loot += rng_int() % 2; } if (loot > 0) { - loot = _min(loot, (int)(force * 5)); + loot = MIN(loot, (int)(force * 5)); } } if (loot > 0) { @@ -4314,7 +4345,7 @@ static int sp_headache(castorder * co) if (target->number == 0 || pa->param[0]->flag == TARGET_NOTFOUND) return 0; - /* finde das groete Talent: */ + /* finde das groe�te Talent: */ for (i = 0; i != target->skill_size; ++i) { skill *sv = target->skills + i; if (smax == NULL || skill_compare(sv, smax) > 0) { @@ -4323,7 +4354,7 @@ static int sp_headache(castorder * co) } if (smax != NULL) { /* wirkt auf maximal 10 Personen */ - unsigned int change = _min(10, target->number) * (rng_uint() % 2 + 1) / target->number; + unsigned int change = MIN(10, target->number) * (rng_uint() % 2 + 1) / target->number; reduce_skill(target, smax, change); } set_order(&target->thisorder, NULL); @@ -4367,7 +4398,7 @@ static int sp_raisepeasants(castorder * co) "error_nopeasants", "")); return 0; } - bauern = _min(rpeasants(r), (int)(power * 250)); + bauern = MIN(rpeasants(r), (int)(power * 250)); rsetpeasants(r, rpeasants(r) - bauern); u2 = @@ -4450,7 +4481,7 @@ int sp_puttorest(castorder * co) message *seen = msg_message("puttorest", "mage", mage); message *unseen = msg_message("puttorest", "mage", NULL); - laid_to_rest = _max(laid_to_rest, dead); + laid_to_rest = MAX(laid_to_rest, dead); deathcounts(r, -laid_to_rest); @@ -4460,7 +4491,7 @@ int sp_puttorest(castorder * co) return co->level; } -/* Name: Traumschloechen +/* Name: Traumschloe�chen * Stufe: 3 * Kategorie: Region, Gebaeude, positiv * Gebiet: Illaun @@ -4495,7 +4526,7 @@ int sp_icastle(castorder * co) b = new_building(bt_illusion, r, mage->faction->locale); - /* Groee festlegen. */ + /* Groe�e festlegen. */ if (type == bt_illusion) { b->size = (rng_int() % (int)((power * power) + 1) * 10); } @@ -4673,7 +4704,7 @@ int sp_baddreams(castorder * co) * Kategorie: * Wirkung: * Dieser Zauber ermoeglicht es dem Traeumer, den Schlaf aller aliierten - * Einheiten in der Region so zu beeinflussen, da sie fuer einige Zeit + * Einheiten in der Region so zu beeinflussen, da� sie fuer einige Zeit * einen Bonus von 1 Talentstufe in allen Talenten * bekommen. Der Zauber wirkt erst im Folgemonat. * Flags: @@ -4691,19 +4722,18 @@ static int sp_gbdreams(castorder * co, const char *curse_name, int effect) int cast_level = co->level; double power = co->force; region *r = co_get_region(co); - curse *c; /* wirkt erst in der Folgerunde, soll mindestens eine Runde wirken, * also duration+2 */ - duration = (int)_max(1, power / 2); /* Stufe 1 macht sonst mist */ + duration = (int)MAX(1, power / 2); /* Stufe 1 macht sonst mist */ duration = 2 + rng_int() % duration; /* Nichts machen als ein entsprechendes Attribut in die Region legen. */ - c = create_curse(mage, &r->attribs, ct_find(curse_name), power, duration, effect, 0); - + create_curse(mage, &r->attribs, ct_find(curse_name), power, duration, effect, 0); + /* Erfolg melden */ ADDMSG(&mage->faction->msgs, msg_message("regionmagic_effect", - "unit region command", c->magician, mage->region, co->order)); + "unit region command", mage, mage->region, co->order)); return cast_level; } @@ -4734,7 +4764,7 @@ int sp_clonecopy(castorder * co) return 0; } - _snprintf(name, sizeof(name), (const char *)LOC(mage->faction->locale, + slprintf(name, sizeof(name), (const char *)LOC(mage->faction->locale, "clone_of"), unitname(mage)); clone = create_unit(target_region, mage->faction, 1, get_race(RC_CLONE), 0, name, @@ -4788,7 +4818,7 @@ int sp_dreamreading(castorder * co) } u2 = - create_unit(u->region, mage->faction, RS_FARVISION, get_race(RC_SPELL), 0, + create_unit(u->region, mage->faction, 1, get_race(RC_SPELL), 0, "spell/dreamreading", NULL); set_number(u2, 1); u2->age = 2; /* Nur fuer diese Runde. */ @@ -4818,7 +4848,6 @@ int sp_sweetdreams(castorder * co) /* Schleife ueber alle angegebenen Einheiten */ for (n = 0; n < pa->length; n++) { - curse *c; unit *u; double effect; message *msg; @@ -4837,14 +4866,14 @@ int sp_sweetdreams(castorder * co) cmistake(mage, co->order, 40, MSG_EVENT); continue; } - men = _min(opfer, u->number); + men = MIN(opfer, u->number); opfer -= men; /* Nichts machen als ein entsprechendes Attribut an die Einheit legen. */ effect = 0.05f; - c = create_curse(mage, &u->attribs, ct_find("orcish"), power, duration, effect, men); + create_curse(mage, &u->attribs, ct_find("orcish"), power, duration, effect, men); - msg = msg_message("sp_sweetdreams_effect", "mage unit region", c->magician, u, r); + msg = msg_message("sp_sweetdreams_effect", "mage unit region", mage, u, r); r_addmessage(r, mage->faction, msg); if (u->faction != mage->faction) { r_addmessage(r, u->faction, msg); @@ -4863,13 +4892,12 @@ int sp_disturbingdreams(castorder * co) double power = co->force; int duration = 1 + (int)(power / 6); double effect; - curse *c; effect = 10; - c = create_curse(mage, &r->attribs, ct_find("badlearn"), power, duration, effect, 0); + create_curse(mage, &r->attribs, ct_find("badlearn"), power, duration, effect, 0); ADDMSG(&mage->faction->msgs, msg_message("sp_disturbingdreams_effect", - "mage region", c->magician, r)); + "mage region", mage, r)); return cast_level; } @@ -4951,7 +4979,7 @@ int sp_itemcloak(castorder * co) spellparameter *pa = co->par; int cast_level = co->level; double power = co->force; - int duration = (int)_max(2.0, power + 1); /* works in the report, and ageing this round would kill it if it's <=1 */ + int duration = (int)MAX(2.0, power + 1); /* works in the report, and ageing this round would kill it if it's <=1 */ /* wenn kein Ziel gefunden, Zauber abbrechen */ if (pa->param[0]->flag == TARGET_NOTFOUND) @@ -5009,7 +5037,7 @@ int sp_resist_magic_bonus(castorder * co) u = pa->param[n]->data.u; - m = _min(u->number, victims); + m = MIN(u->number, victims); victims -= m; create_curse(mage, &u->attribs, ct_find("magicresistance"), @@ -5025,8 +5053,8 @@ int sp_resist_magic_bonus(castorder * co) msg_release(msg); } - cast_level = _min(cast_level, (int)(cast_level * (victims + 4) / maxvictims)); - return _max(cast_level, 1); + cast_level = MIN(cast_level, (int)(cast_level * (victims + 4) / maxvictims)); + return MAX(cast_level, 1); } /** spell 'Astraler Weg'. @@ -5638,7 +5666,7 @@ int sp_showastral(castorder * co) free_regionlist(rl); return cast_level; - unused_arg(co); + UNUSED_ARG(co); return 0; } #endif @@ -5667,7 +5695,7 @@ int sp_viewreality(castorder * co) region *rt = rl2->data; if (!is_cursed(rt->attribs, C_ASTRALBLOCK, 0)) { u = - create_unit(rt, mage->faction, RS_FARVISION, get_race(RC_SPELL), 0, + create_unit(rt, mage->faction, 1, get_race(RC_SPELL), 0, "spell/viewreality", NULL); set_level(u, SK_PERCEPTION, co->level / 2); u->age = 2; @@ -5889,7 +5917,7 @@ int sp_permtransfer(castorder * co) return 0; } - aura = _min(get_spellpoints(mage) - spellcost(mage, sp), aura); + aura = MIN(get_spellpoints(mage) - spellcost(mage, sp), aura); change_maxspellpoints(mage, -aura); change_spellpoints(mage, -aura); @@ -6198,7 +6226,7 @@ int sp_speed2(castorder * co) spellparameter *pa = co->par; maxmen = 2 * cast_level * cast_level; - dur = _max(1, cast_level / 2); + dur = MAX(1, cast_level / 2); for (n = 0; n < pa->length; n++) { double effect; @@ -6212,7 +6240,7 @@ int sp_speed2(castorder * co) u = pa->param[n]->data.u; - men = _min(maxmen, u->number); + men = MIN(maxmen, u->number); effect = 2; create_curse(mage, &u->attribs, ct_find("speed"), force, dur, effect, men); maxmen -= men; @@ -6223,7 +6251,7 @@ int sp_speed2(castorder * co) "unit region amount", mage, mage->region, used)); /* Effektiv benoetigten cast_level (mindestens 1) zurueckgeben */ used = (int)sqrt(used / 2); - return _max(1, used); + return MAX(1, used); } /* ------------------------------------------------------------- */ @@ -6272,21 +6300,21 @@ int sp_q_antimagie(castorder * co) { unit *u = pa->param[0]->data.u; ap = &u->attribs; - ts = unitid(u); + ts = itoa36(u->no); break; } case SPP_BUILDING: { building *b = pa->param[0]->data.b; ap = &b->attribs; - ts = buildingid(b); + ts = itoa36(b->no); break; } case SPP_SHIP: { ship *sh = pa->param[0]->data.sh; ap = &sh->attribs; - ts = shipid(sh); + ts = itoa36(sh->no); break; } default: @@ -6306,7 +6334,7 @@ int sp_q_antimagie(castorder * co) ADDMSG(&mage->faction->msgs, msg_message("destroy_magic_noeffect", "unit region command", mage, mage->region, co->order)); } - return _max(succ, 1); + return MAX(succ, 1); } /* ------------------------------------------------------------- */ @@ -6365,21 +6393,21 @@ int sp_break_curse(castorder * co) { unit *u = pa->param[0]->data.u; ap = &u->attribs; - ts = unitid(u); + ts = itoa36(u->no); break; } case SPP_BUILDING: { building *b = pa->param[0]->data.b; ap = &b->attribs; - ts = buildingid(b); + ts = itoa36(b->no); break; } case SPP_SHIP: { ship *sh = pa->param[0]->data.sh; ap = &sh->attribs; - ts = shipid(sh); + ts = itoa36(sh->no); break; } default: @@ -6419,6 +6447,7 @@ int sp_break_curse(castorder * co) /* ------------------------------------------------------------- */ int sp_becomewyrm(castorder * co) { + UNUSED_ARG(co); return 0; } @@ -6575,7 +6604,6 @@ static spelldata spell_functions[] = { { "powerful_dragonbreath", sp_dragonodem, 0 }, { "drain_skills", sp_dragonodem, 0 }, { "aura_of_fear", sp_flee, 0 }, - { "shadowcall", sp_shadowcall, 0 }, { "immolation", sp_immolation, 0 }, { "firestorm", sp_immolation, 0 }, { "coldfront", sp_immolation, 0 }, @@ -6699,7 +6727,6 @@ void register_spells(void) { register_borders(); - at_register(&at_wdwpyramid); at_register(&at_deathcloud_compat); /* init_firewall(); */ diff --git a/src/spells.test.c b/src/spells.test.c index 3c773d489..07a980e03 100644 --- a/src/spells.test.c +++ b/src/spells.test.c @@ -25,8 +25,9 @@ static void test_good_dreams(CuTest *tc) { unit *u1, *u2; int level; castorder co; - - test_cleanup(); + curse *curse; + + test_setup(); test_create_world(); r = findregion(0, 0); f1 = test_create_faction(0); @@ -38,7 +39,7 @@ static void test_good_dreams(CuTest *tc) { level = sp_gooddreams(&co); CuAssertIntEquals(tc, 10, level); - curse *curse = get_curse(r->attribs, ct_find("gbdream")); + curse = get_curse(r->attribs, ct_find("gbdream")); CuAssertTrue(tc, curse && curse->duration > 1); CuAssertTrue(tc, curse->effect == 1); @@ -81,8 +82,9 @@ static void test_bad_dreams(CuTest *tc) { unit *u1, *u2; int level; castorder co; - - test_cleanup(); + curse *curse; + + test_setup(); test_create_world(); r = findregion(0, 0); f1 = test_create_faction(0); @@ -94,7 +96,7 @@ static void test_bad_dreams(CuTest *tc) { level = sp_baddreams(&co); CuAssertIntEquals(tc, 10, level); - curse *curse = get_curse(r->attribs, ct_find("gbdream")); + curse = get_curse(r->attribs, ct_find("gbdream")); CuAssertTrue(tc, curse && curse->duration > 1); CuAssertTrue(tc, curse->effect == -1); diff --git a/src/spells/borders.c b/src/spells/borders.c index 474d37796..00019e92c 100644 --- a/src/spells/borders.c +++ b/src/spells/borders.c @@ -8,7 +8,6 @@ #include #include #include -#include #include #include @@ -207,7 +206,7 @@ struct region *from, struct region *to, bool routing) wall_data *fd = (wall_data *)b->data.v; if (!routing && fd->active) { int hp = dice(3, fd->force) * u->number; - hp = _min(u->hp, hp); + hp = MIN(u->hp, hp); u->hp -= hp; if (u->hp) { ADDMSG(&u->faction->msgs, msg_message("firewall_damage", @@ -228,9 +227,9 @@ static const char *b_namefirewall(const connection * b, const region * r, const faction * f, int gflags) { const char *bname; - unused_arg(f); - unused_arg(r); - unused_arg(b); + UNUSED_ARG(f); + UNUSED_ARG(r); + UNUSED_ARG(b); if (gflags & GF_ARTICLE) bname = "a_firewall"; else diff --git a/src/spells/borders.h b/src/spells/borders.h index 31823df94..b14661b9f 100644 --- a/src/spells/borders.h +++ b/src/spells/borders.h @@ -1,5 +1,8 @@ #ifndef H_KRNL_CURSES #define H_KRNL_CURSES + +#include + #ifdef __cplusplus extern "C" { #endif diff --git a/src/spells/buildingcurse.c b/src/spells/buildingcurse.c index d3b5ddf36..158383fd2 100644 --- a/src/spells/buildingcurse.c +++ b/src/spells/buildingcurse.c @@ -12,7 +12,6 @@ */ #include -#include #include "buildingcurse.h" /* kernel includes */ @@ -37,7 +36,7 @@ message *cinfo_building(const void *obj, objtype_t typ, const curse * c, int self) { const building *b = (const building *)obj; - unused_arg(typ); + UNUSED_ARG(typ); assert(typ == TYP_BUILDING); assert(obj); assert(c); diff --git a/src/spells/combatspells.c b/src/spells/combatspells.c index bcbbb1b52..37191d177 100644 --- a/src/spells/combatspells.c +++ b/src/spells/combatspells.c @@ -10,7 +10,6 @@ without prior permission by the authors of Eressea. */ #include -#include #include "combatspells.h" /* kernel includes */ @@ -39,7 +38,7 @@ #include #include -#include +#include /* libc includes */ #include @@ -48,8 +47,9 @@ #define EFFECT_HEALING_SPELL 5 -// Some spells with a fixed, known ID (in XML). -// TODO: this method of identifying spells is error-prone, do not use it for new spells. +/* Some spells with a fixed, known ID (in XML). + * TODO: this method of identifying spells is error-prone, + * do not use it for new spells. */ enum { SPL_FIREBALL = 4, SPL_HAGEL = 5, @@ -81,7 +81,7 @@ static const char *spell_damage(int sp) { switch (sp) { case 0: - /* meist tdlich 20-65 HP */ + /* meist t�dlich 20-65 HP */ return "5d10+15"; case 1: /* sehr variabel 4-48 HP */ @@ -90,7 +90,7 @@ static const char *spell_damage(int sp) /* leicht verwundet 4-18 HP */ return "2d8+2"; case 3: - /* fast immer tdlich 30-50 HP */ + /* fast immer t�dlich 30-50 HP */ return "5d5+25"; case 4: /* verwundet 11-26 HP */ @@ -296,15 +296,15 @@ int sp_stun(struct castorder * co) /** randomly shuffle an array * for correctness, see Donald E. Knuth, The Art of Computer Programming */ -static void scramble_fighters(quicklist * ql) +static void scramble_fighters(selist * ql) { - int qi, qlen = ql_length(ql); + int qi, qlen = selist_length(ql); for (qi = 0; qi != qlen; ++qi) { int qj = qi + (rng_int() % (qlen - qi)); - void *a = ql_get(ql, qi); - void *b = ql_replace(ql, qj, a); - ql_replace(ql, qi, b); + void *a = selist_get(ql, qi); + void *b = selist_replace(ql, qj, a); + selist_replace(ql, qi, b); } } @@ -315,7 +315,7 @@ int sp_combatrosthauch(struct castorder * co) int level = co->level; double power = co->force; battle *b = fi->side->battle; - quicklist *ql, *fgs; + selist *ql, *fgs; int force = lovar(power * 15); int qi, k = 0; @@ -330,22 +330,22 @@ int sp_combatrosthauch(struct castorder * co) fgs = fighters(b, fi->side, FIGHT_ROW, BEHIND_ROW - 1, FS_ENEMY); scramble_fighters(fgs); - for (qi = 0, ql = fgs; ql; ql_advance(&ql, &qi, 1)) { - fighter *df = (fighter *)ql_get(ql, qi); + for (qi = 0, ql = fgs; ql; selist_advance(&ql, &qi, 1)) { + fighter *df = (fighter *)selist_get(ql, qi); if (df->alive == 0) continue; if (force <= 0) break; - /* da n _min(force, x), sollte force maximal auf 0 sinken */ + /* da n MIN(force, x), sollte force maximal auf 0 sinken */ assert(force >= 0); if (df->weapons) { int w; for (w = 0; df->weapons[w].type != NULL; ++w) { weapon *wp = df->weapons; - int n = _min(force, wp->used); + int n = MIN(force, wp->used); if (n) { requirement *mat = wp->type->itype->construction->materials; bool iron = false; @@ -379,14 +379,14 @@ int sp_combatrosthauch(struct castorder * co) } } } - ql_free(fgs); + selist_free(fgs); if (k == 0) { - /* keine Waffen mehr da, die zerstrt werden knnten */ + /* keine Waffen mehr da, die zerst�rt werden k�nnten */ message *msg = msg_message("rust_effect_1", "mage", fi->unit); message_all(b, msg); msg_release(msg); - fi->magic = 0; /* kmpft nichtmagisch weiter */ + fi->magic = 0; /* k�mpft nichtmagisch weiter */ level = 0; } else { @@ -453,7 +453,7 @@ int sp_speed(struct castorder * co) allies = count_allies(fi->side, FIGHT_ROW, BEHIND_ROW, SELECT_ADVANCE, ALLY_ANY); - /* maximal 2*allies Versuche ein Opfer zu finden, ansonsten bestnde + /* maximal 2*allies Versuche ein Opfer zu finden, ansonsten best�nde * die Gefahr eine Endlosschleife*/ allies *= 2; @@ -546,7 +546,7 @@ int sp_mindblast_temp(struct castorder * co) assert(dt.fighter); du = dt.fighter->unit; - if (fval(du, UFL_MARK)) { + if (du->flags & UFL_MARK) { /* not this one again */ continue; } @@ -564,7 +564,7 @@ int sp_mindblast_temp(struct castorder * co) } force -= du->number; } - fset(du, UFL_MARK); + du->flags |= UFL_MARK; reset = 1; enemies -= du->number; } @@ -572,7 +572,7 @@ int sp_mindblast_temp(struct castorder * co) if (reset) { unit *u; for (u = b->region->units; u; u = u->next) { - freset(u, UFL_MARK); + u->flags &= ~UFL_MARK; } } @@ -612,7 +612,7 @@ int sp_mindblast(struct castorder * co) assert(dt.fighter); du = dt.fighter->unit; - if (fval(du, UFL_MARK)) { + if (du->flags & UFL_MARK) { /* not this one again */ continue; } @@ -640,7 +640,7 @@ int sp_mindblast(struct castorder * co) else { /* only works against humanoids, don't try others. but do remove them * from 'force' once or we may never terminate. */ - fset(du, UFL_MARK); + du->flags |= UFL_MARK; reset = 1; } enemies -= du->number; @@ -649,7 +649,7 @@ int sp_mindblast(struct castorder * co) if (reset) { unit *u; for (u = b->region->units; u; u = u->next) { - freset(u, UFL_MARK); + u->flags &= ~UFL_MARK; } } @@ -721,7 +721,7 @@ int sp_immolation(struct castorder * co) troop at; int force, qi, killed = 0; const char *damage; - quicklist *fgs, *ql; + selist *fgs, *ql; message *m; /* 2d4 HP */ @@ -741,8 +741,8 @@ int sp_immolation(struct castorder * co) at.index = 0; fgs = fighters(b, fi->side, FIGHT_ROW, AVOID_ROW, FS_ENEMY); - for (qi = 0, ql = fgs; ql; ql_advance(&ql, &qi, 1)) { - fighter *df = (fighter *)ql_get(ql, qi); + for (qi = 0, ql = fgs; ql; selist_advance(&ql, &qi, 1)) { + fighter *df = (fighter *)selist_get(ql, qi); int n = df->alive - df->removed; troop dt; @@ -756,7 +756,7 @@ int sp_immolation(struct castorder * co) if (force == 0) break; } - ql_free(fgs); + selist_free(fgs); m = msg_message("battle::combatspell", "mage spell killed", fi->unit, sp, @@ -816,42 +816,6 @@ int sp_drainodem(fighter * fi, int level, double power, spell * sp) /* ------------------------------------------------------------- */ /* PRECOMBAT */ -int sp_shadowcall(struct castorder * co) -{ - fighter * fi = co->magician.fig; - int level = co->level; - double power = co->force; - battle *b = fi->side->battle; - region *r = b->region; - unit *mage = fi->unit; - attrib *a; - int force = (int)(get_force(power, 3) / 2); - unit *u; - const char *races[3] = { "shadowbat", "nightmare", "vampunicorn" }; - const race *rc = rc_find(races[rng_int() % 3]); - message *msg; - - u = create_unit(r, mage->faction, force, rc, 0, NULL, mage); - setstatus(u, ST_FIGHT); - - set_level(u, SK_WEAPONLESS, (int)(power / 2)); - set_level(u, SK_STAMINA, (int)(power / 2)); - u->hp = u->number * unit_max_hp(u); - - a = a_new(&at_unitdissolve); - a->data.ca[0] = 0; - a->data.ca[1] = 100; - a_add(&u->attribs, a); - - make_fighter(b, u, fi->side, is_attacker(fi)); - msg = - msg_message("sp_shadowcall_effect", "mage amount race", mage, u->number, - u_race(u)); - message_all(b, msg); - msg_release(msg); - return level; -} - static fighter *summon_allies(const fighter *fi, const race *rc, int number) { attrib *a; unit *mage = fi->unit; @@ -866,8 +830,8 @@ static fighter *summon_allies(const fighter *fi, const race *rc, int number) { u->hp = u->number * unit_max_hp(u); - if (fval(mage, UFL_ANON_FACTION)) { - fset(u, UFL_ANON_FACTION); + if (mage->flags & UFL_ANON_FACTION) { + u->flags |= UFL_ANON_FACTION; } a = a_new(&at_unitdissolve); @@ -922,7 +886,7 @@ int sp_shadowknights(struct castorder * co) region *r = b->region; unit *mage = fi->unit; attrib *a; - int force = _max(1, (int)get_force(power, 3)); + int force = MAX(1, (int)get_force(power, 3)); message *msg; u = @@ -932,8 +896,8 @@ int sp_shadowknights(struct castorder * co) u->hp = u->number * unit_max_hp(u); - if (fval(mage, UFL_ANON_FACTION)) { - fset(u, UFL_ANON_FACTION); + if (mage->flags & UFL_ANON_FACTION) { + u->flags |= UFL_ANON_FACTION; } a = a_new(&at_unitdissolve); @@ -988,7 +952,7 @@ int sp_chaosrow(struct castorder * co) const spell * sp = co->sp; battle *b = fi->side->battle; unit *mage = fi->unit; - quicklist *fgs, *ql; + selist *fgs, *ql; message *m; const char *mtype; int qi, k = 0; @@ -1008,15 +972,15 @@ int sp_chaosrow(struct castorder * co) fgs = fighters(b, fi->side, FIGHT_ROW, NUMROWS, FS_ENEMY); scramble_fighters(fgs); - for (qi = 0, ql = fgs; ql; ql_advance(&ql, &qi, 1)) { - fighter *df = (fighter *)ql_get(ql, qi); + for (qi = 0, ql = fgs; ql; selist_advance(&ql, &qi, 1)) { + fighter *df = (fighter *)selist_get(ql, qi); int n = df->unit->number; if (df->alive == 0) continue; if (power <= 0.0) break; - /* force sollte wegen des _max(0,x) nicht unter 0 fallen knnen */ + /* force sollte wegen des MAX(0,x) nicht unter 0 fallen k�nnen */ if (is_magic_resistant(mage, df->unit, 0)) continue; @@ -1051,9 +1015,9 @@ int sp_chaosrow(struct castorder * co) } k += df->alive; } - power = _max(0, power - n); + power = MAX(0, power - n); } - ql_free(fgs); + selist_free(fgs); if (sp->id == SPL_CHAOSROW) { mtype = (k > 0) ? "sp_chaosrow_effect_1" : "sp_chaosrow_effect_0"; @@ -1068,7 +1032,7 @@ int sp_chaosrow(struct castorder * co) } /* Gesang der Furcht (Kampfzauber) */ -/* Panik (Prkampfzauber) */ +/* Panik (Pr�kampfzauber) */ int sp_flee(struct castorder * co) { @@ -1078,7 +1042,7 @@ int sp_flee(struct castorder * co) const spell * sp = co->sp; battle *b = fi->side->battle; unit *mage = fi->unit; - quicklist *fgs, *ql; + selist *fgs, *ql; int force, n, qi; int panik = 0; message *msg; @@ -1107,20 +1071,20 @@ int sp_flee(struct castorder * co) fgs = fighters(b, fi->side, FIGHT_ROW, AVOID_ROW, FS_ENEMY); scramble_fighters(fgs); - for (qi = 0, ql = fgs; ql; ql_advance(&ql, &qi, 1)) { - fighter *df = (fighter *)ql_get(ql, qi); + for (qi = 0, ql = fgs; ql; selist_advance(&ql, &qi, 1)) { + fighter *df = (fighter *)selist_get(ql, qi); for (n = 0; n != df->alive; ++n) { if (force < 0) break; - if (df->person[n].flags & FL_PANICED) { /* bei SPL_SONG_OF_FEAR mglich */ + if (df->person[n].flags & FL_PANICED) { /* bei SPL_SONG_OF_FEAR m�glich */ df->person[n].attack -= 1; --force; ++panik; } else if (!(df->person[n].flags & FL_COURAGE) - || !fval(u_race(df->unit), RCF_UNDEAD)) { + || !(u_race(df->unit)->flags & RCF_UNDEAD)) { if (!is_magic_resistant(mage, df->unit, 0)) { df->person[n].flags |= FL_PANICED; ++panik; @@ -1129,7 +1093,7 @@ int sp_flee(struct castorder * co) } } } - ql_free(fgs); + selist_free(fgs); msg = msg_message("sp_flee_effect_1", "mage spell amount", mage, sp, panik); message_all(b, msg); @@ -1155,17 +1119,17 @@ int sp_hero(struct castorder * co) switch (sp->id) { case SPL_HERO: df_bonus = (int)(power / 5); - force = _max(1, lovar(get_force(power, 4))); + force = MAX(1, lovar(get_force(power, 4))); break; default: df_bonus = 1; - force = _max(1, (int)power); + force = MAX(1, (int)power); } allies = count_allies(fi->side, FIGHT_ROW, BEHIND_ROW, SELECT_ADVANCE, ALLY_ANY); - /* maximal 2*allies Versuche ein Opfer zu finden, ansonsten bestnde + /* maximal 2*allies Versuche ein Opfer zu finden, ansonsten best�nde * die Gefahr eine Endlosschleife*/ allies *= 2; @@ -1209,7 +1173,7 @@ int sp_berserk(struct castorder * co) switch (sp->id) { case SPL_BERSERK: case SPL_BLOODTHIRST: - at_bonus = _max(1, level / 3); + at_bonus = MAX(1, level / 3); df_malus = 2; force = (int)get_force(power, 2); break; @@ -1222,7 +1186,7 @@ int sp_berserk(struct castorder * co) allies = count_allies(fi->side, FIGHT_ROW, BEHIND_ROW - 1, SELECT_ADVANCE, ALLY_ANY); - /* maximal 2*allies Versuche ein Opfer zu finden, ansonsten bestnde + /* maximal 2*allies Versuche ein Opfer zu finden, ansonsten best�nde * die Gefahr eine Endlosschleife*/ allies *= 2; @@ -1265,7 +1229,7 @@ int sp_frighten(struct castorder * co) int targets = 0; message *m; - at_malus = _max(1, level - 4); + at_malus = MAX(1, level - 4); df_malus = 2; force = (int)get_force(power, 2); @@ -1419,7 +1383,7 @@ int sp_reeling_arrows(struct castorder * co) } /* Magier weicht dem Kampf aus. Wenn er sich bewegen kann, zieht er in - * eine Nachbarregion, wobei ein NACH bercksichtigt wird. Ansonsten + * eine Nachbarregion, wobei ein NACH ber�cksichtigt wird. Ansonsten * bleibt er stehen und nimmt nicht weiter am Kampf teil. */ int sp_denyattack(struct castorder * co) { @@ -1432,17 +1396,16 @@ int sp_denyattack(struct castorder * co) region *r = b->region; message *m; - /* Fliehende Einheiten verlassen auf jeden Fall Gebude und Schiffe. */ - if (!fval(r->terrain, SEA_REGION)) { + /* Fliehende Einheiten verlassen auf jeden Fall Geb�ude und Schiffe. */ + if (!(r->terrain->flags & SEA_REGION)) { leave(mage, false); } /* und bewachen nicht */ - setguard(mage, GUARD_NONE); + setguard(mage, false); /* irgendwie den langen befehl sperren */ - /* fset(fi, FIG_ATTACKED); */ - /* wir tun so, als wre die Person geflohen */ - fset(fi, FIG_NOLOOT); + /* wir tun so, als w�re die Person geflohen */ + fi->flags |= FIG_NOLOOT; fi->run.hp = mage->hp; fi->run.number = mage->number; /* fighter leeren */ @@ -1459,7 +1422,7 @@ static void do_meffect(fighter * af, int typ, int effect, int duration) { battle *b = af->side->battle; meffect *me = (meffect *)malloc(sizeof(struct meffect)); - ql_push(&b->meffects, me); + selist_push(&b->meffects, me); me->magician = af; me->typ = typ; me->effect = effect; @@ -1480,7 +1443,7 @@ int sp_armorshield(struct castorder * co) message_all(b, m); msg_release(m); - /* gibt Rstung +effect fr duration Treffer */ + /* gibt R�stung +effect f�r duration Treffer */ switch (sp->id) { case SPL_ARMORSHIELD: @@ -1539,7 +1502,7 @@ int sp_fumbleshield(struct castorder * co) message_all(b, m); msg_release(m); - /* der erste Zauber schlgt mit 100% fehl */ + /* der erste Zauber schl�gt mit 100% fehl */ switch (sp->id) { case SPL_DRAIG_FUMBLESHIELD: @@ -1547,7 +1510,7 @@ int sp_fumbleshield(struct castorder * co) case SPL_CERDDOR_FUMBLESHIELD: case SPL_TYBIED_FUMBLESHIELD: duration = 100; - effect = _max(1, 25 - level); + effect = MAX(1, 25 - level); break; default: @@ -1598,14 +1561,14 @@ int sp_reanimate(struct castorder * co) } healable = count_healable(b, fi); - healable = (int)_min(k, healable); + healable = (int)MIN(k, healable); while (healable--) { fighter *tf = select_corpse(b, fi); if (tf != NULL && tf->side->casualties > 0 && u_race(tf->unit) != get_race(RC_DAEMON) && (chance(c))) { assert(tf->alive < tf->unit->number); - /* t.fighter->person[].hp beginnt mit t.index = 0 zu zhlen, + /* t.fighter->person[].hp beginnt mit t.index = 0 zu z�hlen, * t.fighter->alive ist jedoch die Anzahl lebender in der Einheit, * also sind die hp von t.fighter->alive * t.fighter->hitpoints[t.fighter->alive-1] und der erste Tote @@ -1651,24 +1614,24 @@ int sp_keeploot(struct castorder * co) message_all(b, m); msg_release(m); - b->keeploot = (int)_max(25, b->keeploot + 5 * power); + b->keeploot = (int)MAX(25, b->keeploot + 5 * power); return level; } -static int heal_fighters(quicklist * fgs, int *power, bool heal_monsters) +static int heal_fighters(selist * fgs, int *power, bool heal_monsters) { int healhp = *power, healed = 0, qi; - quicklist *ql; + selist *ql; - for (qi = 0, ql = fgs; ql; ql_advance(&ql, &qi, 1)) { - fighter *df = (fighter *)ql_get(ql, qi); + for (qi = 0, ql = fgs; ql; selist_advance(&ql, &qi, 1)) { + fighter *df = (fighter *)selist_get(ql, qi); if (healhp <= 0) break; /* Untote kann man nicht heilen */ - if (df->unit->number == 0 || fval(u_race(df->unit), RCF_NOHEAL)) + if (df->unit->number == 0 || (u_race(df->unit)->flags & RCF_NOHEAL)) continue; /* wir heilen erstmal keine Monster */ @@ -1682,10 +1645,10 @@ static int heal_fighters(quicklist * fgs, int *power, bool heal_monsters) ++wound; if (wound > 0 && wound < hp) { - int heal = _min(healhp, wound); + int heal = MIN(healhp, wound); assert(heal >= 0); df->person[n].hp += heal; - healhp = _max(0, healhp - heal); + healhp = MAX(0, healhp - heal); ++healed; if (healhp <= 0) break; @@ -1707,12 +1670,12 @@ int sp_healing(struct castorder * co) unit *mage = fi->unit; int j = 0; int healhp = (int)power * 200; - quicklist *fgs; + selist *fgs; message *msg; bool use_item = has_ao_healing(mage); - /* bis zu 11 Personen pro Stufe (einen HP mssen sie ja noch - * haben, sonst wren sie tot) knnen geheilt werden */ + /* bis zu 11 Personen pro Stufe (einen HP m�ssen sie ja noch + * haben, sonst w�ren sie tot) k�nnen geheilt werden */ if (use_item) { healhp *= 2; @@ -1725,7 +1688,7 @@ int sp_healing(struct castorder * co) scramble_fighters(fgs); j += heal_fighters(fgs, &healhp, false); j += heal_fighters(fgs, &healhp, true); - ql_free(fgs); + selist_free(fgs); if (j <= 0) { level = j; @@ -1752,18 +1715,18 @@ int sp_undeadhero(struct castorder * co) battle *b = fi->side->battle; unit *mage = fi->unit; region *r = b->region; - quicklist *fgs, *ql; + selist *fgs, *ql; int qi, n, undead = 0; message *msg; int force = (int)get_force(power, 0); double c = 0.50 + 0.02 * power; - /* Liste aus allen Kmpfern */ + /* Liste aus allen K�mpfern */ fgs = fighters(b, fi->side, FIGHT_ROW, AVOID_ROW, FS_ENEMY | FS_HELP); scramble_fighters(fgs); - for (qi = 0, ql = fgs; ql; ql_advance(&ql, &qi, 1)) { - fighter *df = (fighter *)ql_get(ql, qi); + for (qi = 0, ql = fgs; ql; selist_advance(&ql, &qi, 1)) { + fighter *df = (fighter *)selist_get(ql, qi); unit *du = df->unit; if (force <= 0) @@ -1776,7 +1739,7 @@ int sp_undeadhero(struct castorder * co) if (df->alive + df->run.number < du->number) { int j = 0; - /* Wieviele Untote knnen wir aus dieser Einheit wecken? */ + /* Wieviele Untote k�nnen wir aus dieser Einheit wecken? */ for (n = df->alive + df->run.number; n != du->number; n++) { if (chance(c)) { ++j; @@ -1800,7 +1763,7 @@ int sp_undeadhero(struct castorder * co) unit_setinfo(u, NULL); } setstatus(u, du->status); - setguard(u, GUARD_NONE); + setguard(u, false); for (ilist = &du->items; *ilist;) { item *itm = *ilist; int loot = itm->number * j / du->number; @@ -1818,8 +1781,8 @@ int sp_undeadhero(struct castorder * co) } /* inherit stealth from magician */ - if (fval(mage, UFL_ANON_FACTION)) { - fset(u, UFL_ANON_FACTION); + if (mage->flags & UFL_ANON_FACTION) { + u->flags |= UFL_ANON_FACTION; } /* transfer dead people to new unit, set hitpoints to those of old unit */ @@ -1834,9 +1797,9 @@ int sp_undeadhero(struct castorder * co) } } } - ql_free(fgs); + selist_free(fgs); - level = _min(level, undead); + level = MIN(level, undead); if (undead == 0) { msg = msg_message("summonundead_effect_0", "mage region", mage, mage->region); diff --git a/src/spells/combatspells.h b/src/spells/combatspells.h index 4e3173a66..cf07c2a89 100644 --- a/src/spells/combatspells.h +++ b/src/spells/combatspells.h @@ -49,7 +49,6 @@ extern "C" { int sp_armorshield(struct castorder * co); int sp_stun(struct castorder * co); int sp_undeadhero(struct castorder * co); - int sp_shadowcall(struct castorder * co); int sp_immolation(struct castorder * co); #ifdef __cplusplus diff --git a/src/spells/flyingship.c b/src/spells/flyingship.c index 4a3c62e5e..2057b72e0 100644 --- a/src/spells/flyingship.c +++ b/src/spells/flyingship.c @@ -1,5 +1,4 @@ #include -#include #include "flyingship.h" #include @@ -27,8 +26,8 @@ * Stufe: 6 * * Wirkung: -* Laet ein Schiff eine Runde lang fliegen. Wirkt nur auf Boote -* bis Kapazitt 50. +* Lae�t ein Schiff eine Runde lang fliegen. Wirkt nur auf Boote +* bis Kapazit�t 50. * Kombinierbar mit "Guenstige Winde", aber nicht mit "Sturmwind". * * Flag: @@ -81,18 +80,20 @@ int sp_flying_ship(castorder * co) /* melden, 1x pro Partei */ for (u = r->units; u; u = u->next) - freset(u->faction, FFL_SELECT); + u->faction->flags &= ~FFL_SELECT; for (u = r->units; u; u = u->next) { /* das sehen natuerlich auch die Leute an Land */ - if (!fval(u->faction, FFL_SELECT)) { - fset(u->faction, FFL_SELECT); - if (!m) + if (!(u->faction->flags & FFL_SELECT)) { + u->faction->flags |= FFL_SELECT; + if (!m) { m = msg_message("flying_ship_result", "mage ship", mage, sh); + } add_message(&u->faction->msgs, m); } } - if (m) + if (m) { msg_release(m); + } return cast_level; } @@ -120,7 +121,7 @@ static int flyingship_age(curse * c) { ship *sh = (ship *)c->data.v; if (sh && c->duration == 1) { - freset(sh, SF_FLYING); + sh->flags &= ~SF_FLYING; return 1; } return 0; diff --git a/src/spells/flyingship.h b/src/spells/flyingship.h index 087357b9e..52013ac13 100644 --- a/src/spells/flyingship.h +++ b/src/spells/flyingship.h @@ -3,6 +3,8 @@ #ifndef FLYINGSHIP_H #define FLYINGSHIP_H +#include + #ifdef __cplusplus extern "C" { #endif @@ -22,4 +24,5 @@ extern "C" { } #endif -#endif \ No newline at end of file +#endif + diff --git a/src/spells/magicresistance.c b/src/spells/magicresistance.c index 3587a1be6..7b0c1413d 100644 --- a/src/spells/magicresistance.c +++ b/src/spells/magicresistance.c @@ -1,9 +1,10 @@ #include -#include #include #include #include +#include + static struct message *cinfo_magicresistance(const void *obj, objtype_t typ, const struct curse * c, int self) { if (typ == TYP_UNIT) { diff --git a/src/spells/magicresistance.test.c b/src/spells/magicresistance.test.c index 4b0d69388..621d2c3b4 100644 --- a/src/spells/magicresistance.test.c +++ b/src/spells/magicresistance.test.c @@ -1,5 +1,4 @@ #include -#include #include #include #include @@ -29,13 +28,12 @@ static void test_magicresistance_unit(CuTest *tc) { message *msg; curse *c; - test_cleanup(); - test_create_world(); - r=findregion(0, 0); - f1 = test_create_faction(test_create_race("human")); + test_setup(); + r = test_create_plain(0, 0); + f1 = test_create_faction(NULL); u1 = test_create_unit(f1, r); - f2 = test_create_faction(test_create_race("human")); + f2 = test_create_faction(NULL); u2 = test_create_unit(f2, r); c = create_curse(u1, &u2->attribs, ct_find("magicresistance"), 10, 20, 30, u2->number); @@ -57,13 +55,12 @@ static void test_magicresistance_building(CuTest *tc) { message *msg; curse *c; - test_cleanup(); - test_create_world(); - r = findregion(0, 0); - f1 = test_create_faction(test_create_race("human")); + test_setup(); + r = test_create_plain(0, 0); + f1 = test_create_faction(NULL); u1 = test_create_unit(f1, r); - b1 = test_create_building(r, test_create_buildingtype("castle")); + b1 = test_create_building(r, NULL); c = create_curse(u1, &b1->attribs, ct_find("magicresistance"), 10, 20, 30, 0); CuAssertPtrNotNull(tc, b1->attribs); diff --git a/src/spells/regioncurse.c b/src/spells/regioncurse.c index 382b13b86..b10f3046f 100644 --- a/src/spells/regioncurse.c +++ b/src/spells/regioncurse.c @@ -12,7 +12,6 @@ */ #include -#include #include "regioncurse.h" #include "magic.h" @@ -46,11 +45,11 @@ static message *cinfo_cursed_by_the_gods(const void *obj, objtype_t typ, { region *r = (region *)obj; - unused_arg(typ); - unused_arg(self); + UNUSED_ARG(typ); + UNUSED_ARG(self); assert(typ == TYP_REGION); - if (fval(r->terrain, SEA_REGION)) { + if (r->terrain->flags & SEA_REGION) { return msg_message("curseinfo::godcurseocean", "id", c->no); } return msg_message("curseinfo::godcurse", "id", c->no); @@ -69,9 +68,9 @@ static struct curse_type ct_godcursezone = { static message *cinfo_dreamcurse(const void *obj, objtype_t typ, const curse * c, int self) { - unused_arg(self); - unused_arg(typ); - unused_arg(obj); + UNUSED_ARG(self); + UNUSED_ARG(typ); + UNUSED_ARG(obj); assert(typ == TYP_REGION); if (c->effect > 0) { @@ -95,9 +94,9 @@ static struct curse_type ct_gbdream = { static message *cinfo_magicstreet(const void *obj, objtype_t typ, const curse * c, int self) { - unused_arg(typ); - unused_arg(self); - unused_arg(obj); + UNUSED_ARG(typ); + UNUSED_ARG(self); + UNUSED_ARG(obj); assert(typ == TYP_REGION); /* Warnung vor Auflsung */ @@ -118,9 +117,9 @@ static struct curse_type ct_magicstreet = { static message *cinfo_antimagiczone(const void *obj, objtype_t typ, const curse * c, int self) { - unused_arg(typ); - unused_arg(self); - unused_arg(obj); + UNUSED_ARG(typ); + UNUSED_ARG(self); + UNUSED_ARG(obj); assert(typ == TYP_REGION); /* Magier spren eine Antimagiezone */ @@ -140,7 +139,7 @@ const curse * c, int self) unit *u = NULL; unit *mage = c->magician; - unused_arg(typ); + UNUSED_ARG(typ); assert(typ == TYP_REGION); r = (region *)obj; @@ -168,8 +167,8 @@ static struct curse_type ct_antimagiczone = { static message *cinfo_farvision(const void *obj, objtype_t typ, const curse * c, int self) { - unused_arg(typ); - unused_arg(obj); + UNUSED_ARG(typ); + UNUSED_ARG(obj); assert(typ == TYP_REGION); diff --git a/src/spells/shipcurse.c b/src/spells/shipcurse.c index 8da3c7c89..b6a722ad3 100644 --- a/src/spells/shipcurse.c +++ b/src/spells/shipcurse.c @@ -12,7 +12,6 @@ */ #include -#include #include "shipcurse.h" /* kernel includes */ @@ -39,8 +38,8 @@ message *cinfo_ship(const void *obj, objtype_t typ, const curse * c, int self) { message *msg; - unused_arg(typ); - unused_arg(obj); + UNUSED_ARG(typ); + UNUSED_ARG(obj); assert(typ == TYP_SHIP); if (self != 0) { /* owner or inside */ @@ -63,7 +62,7 @@ static message *cinfo_shipnodrift(const void *obj, objtype_t typ, const curse * { ship *sh = (ship *)obj; - unused_arg(typ); + UNUSED_ARG(typ); assert(typ == TYP_SHIP); if (self != 0) { diff --git a/src/spells/unitcurse.c b/src/spells/unitcurse.c index 944db2032..ded4a1676 100644 --- a/src/spells/unitcurse.c +++ b/src/spells/unitcurse.c @@ -12,7 +12,6 @@ */ #include -#include #include "unitcurse.h" /* kernel includes */ @@ -47,7 +46,7 @@ static message *cinfo_auraboost(const void *obj, objtype_t typ, const curse * c, int self) { struct unit *u = (struct unit *)obj; - unused_arg(typ); + UNUSED_ARG(typ); assert(typ == TYP_UNIT); if (self != 0) { @@ -81,7 +80,7 @@ static message *cinfo_slave(const void *obj, objtype_t typ, const curse * c, int self) { unit *u; - unused_arg(typ); + UNUSED_ARG(typ); assert(typ == TYP_UNIT); u = (unit *)obj; @@ -105,7 +104,7 @@ cinfo_slave static message *cinfo_calm(const void *obj, objtype_t typ, const curse * c, int self) { - unused_arg(typ); + UNUSED_ARG(typ); assert(typ == TYP_UNIT); if (c->magician && c->magician->faction) { @@ -134,7 +133,7 @@ static struct curse_type ct_calmmonster = { static message *cinfo_speed(const void *obj, objtype_t typ, const curse * c, int self) { - unused_arg(typ); + UNUSED_ARG(typ); assert(typ == TYP_UNIT); if (self != 0) { @@ -157,7 +156,7 @@ static struct curse_type ct_speed = { */ message *cinfo_unit(const void *obj, objtype_t typ, const curse * c, int self) { - unused_arg(typ); + UNUSED_ARG(typ); assert(typ == TYP_UNIT); assert(obj); @@ -182,7 +181,7 @@ static struct curse_type ct_orcish = { static message *cinfo_kaelteschutz(const void *obj, objtype_t typ, const curse * c, int self) { - unused_arg(typ); + UNUSED_ARG(typ); assert(typ == TYP_UNIT); if (self != 0) { @@ -234,7 +233,7 @@ static message *cinfo_sparkle(const void *obj, objtype_t typ, const curse * c, }; int m, begin = 0, end = 0; unit *u; - unused_arg(typ); + UNUSED_ARG(typ); assert(typ == TYP_UNIT); u = (unit *)obj; @@ -325,7 +324,7 @@ write_skill(struct storage *store, const curse * c, const void *target) static message *cinfo_skillmod(const void *obj, objtype_t typ, const curse * c, int self) { - unused_arg(typ); + UNUSED_ARG(typ); if (self != 0) { unit *u = (unit *)obj; diff --git a/src/spy.c b/src/spy.c index 9b8fe4601..c9667f7ee 100644 --- a/src/spy.c +++ b/src/spy.c @@ -1,4 +1,4 @@ -/* +/* Copyright (c) 1998-2015, Enno Rehling Katja Zedel @@ -17,14 +17,15 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include #include "spy.h" +#include "guard.h" #include "laws.h" #include "move.h" #include "reports.h" #include "study.h" /* kernel includes */ +#include #include #include #include @@ -43,8 +44,8 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. /* util includes */ #include #include +#include #include -#include #include #include @@ -97,13 +98,13 @@ void spy_message(int spy, const unit * u, const unit * target) first = 0; } else { - strncat(buf, ", ", sizeof(buf) - 1); + strlcat(buf, ", ", sizeof(buf)); } - strncat(buf, (const char *)skillname((skill_t)sv->id, u->faction->locale), - sizeof(buf) - 1); - strncat(buf, " ", sizeof(buf) - 1); - strncat(buf, itoa10(eff_skill(target, sv, target->region)), - sizeof(buf) - 1); + strlcat(buf, (const char *)skillname((skill_t)sv->id, u->faction->locale), + sizeof(buf)); + strlcat(buf, " ", sizeof(buf)); + strlcat(buf, itoa10(eff_skill(target, sv, target->region)), + sizeof(buf)); } } if (found) { @@ -145,7 +146,7 @@ int spy_cmd(unit * u, struct order *ord) * Fuer jeden Talentpunkt, den das Spionagetalent das Tarnungstalent * des Opfers uebersteigt, erhoeht sich dieses um 5%*/ spy = effskill(u, SK_SPY, 0) - effskill(target, SK_STEALTH, r); - spychance = 0.1 + _max(spy * 0.05, 0.0); + spychance = 0.1 + MAX(spy * 0.05, 0.0); if (chance(spychance)) { produceexp(u, SK_SPY, u->number); @@ -161,7 +162,7 @@ int spy_cmd(unit * u, struct order *ord) - (effskill(u, SK_STEALTH, 0) + effskill(u, SK_SPY, 0) / 2); if (invisible(u, target) >= u->number) { - observe = _min(observe, 0); + observe = MIN(observe, 0); } /* Anschliessend wird - unabhaengig vom Erfolg - gewuerfelt, ob der @@ -177,7 +178,7 @@ int spy_cmd(unit * u, struct order *ord) return 0; } -void set_factionstealth(unit * u, faction * f) +static bool can_set_factionstealth(const unit * u, const faction * f) { region *lastr = NULL; /* for all units mu of our faction, check all the units in the region @@ -193,7 +194,7 @@ void set_factionstealth(unit * u, faction * f) faction *fv = visible_faction(f, ru); if (fv == f) { if (cansee(f, lastr, ru, 0)) - break; + return true; } } ru = ru->next; @@ -203,13 +204,15 @@ void set_factionstealth(unit * u, faction * f) } mu = mu->nextF; } - if (mu != NULL) { - attrib *a = a_find(u->attribs, &at_otherfaction); - if (!a) - a = a_add(&u->attribs, make_otherfaction(f)); - else - a->data.v = f; - } + return true; +} + +void set_factionstealth(unit *u, faction *f) { + attrib *a = a_find(u->attribs, &at_otherfaction); + if (!a) + a = a_add(&u->attribs, make_otherfaction(f)); + else + a->data.v = f; } int setstealth_cmd(unit * u, struct order *ord) @@ -228,7 +231,7 @@ int setstealth_cmd(unit * u, struct order *ord) return 0; } - if (isdigit(s[0])) { + if (isdigit(*(const unsigned char *)s)) { /* Tarnungslevel setzen */ level = atoi((const char *)s); if (level > effskill(u, SK_STEALTH, 0)) { @@ -292,19 +295,19 @@ int setstealth_cmd(unit * u, struct order *ord) s = gettoken(token, sizeof(token)); if (rule_stealth_anon()) { if (!s || *s == 0) { - fset(u, UFL_ANON_FACTION); + u->flags |= UFL_ANON_FACTION; break; } else if (findparam(s, u->faction->locale) == P_NOT) { - freset(u, UFL_ANON_FACTION); + u->flags &= ~UFL_ANON_FACTION; break; } } if (rule_stealth_other()) { if (get_keyword(s, u->faction->locale) == K_NUMBER) { - s = gettoken(token, sizeof(token)); int nr = -1; + s = gettoken(token, sizeof(token)); if (s) { nr = atoi36(s); } @@ -314,7 +317,7 @@ int setstealth_cmd(unit * u, struct order *ord) } else { struct faction *f = findfaction(nr); - if (f == NULL) { + if (f == NULL || !can_set_factionstealth(u, f)) { cmistake(u, ord, 66, MSG_EVENT); break; } @@ -351,7 +354,7 @@ static int top_skill(region * r, faction * f, ship * sh, skill_t sk) for (u = r->units; u; u = u->next) { if (u->ship == sh && u->faction == f) { int s = effskill(u, sk, 0); - value = _max(s, value); + value = MAX(s, value); } } return value; @@ -413,18 +416,18 @@ static void sink_ship(region * r, ship * sh, unit * saboteur) /* slight optimization to avoid dereferencing u->faction each time */ if (f != u->faction) { f = u->faction; - freset(f, FFL_SELECT); + f->flags &= ~FFL_SELECT; } } /* figure out what a unit's chances of survival are: */ - if (!fval(r->terrain, SEA_REGION)) { + if (!(r->terrain->flags & SEA_REGION)) { probability = CANAL_SWIMMER_CHANCE; } else { for (d = 0; d != MAXDIRECTIONS; ++d) { region *rn = rconnect(r, d); - if (rn && !fval(rn->terrain, SEA_REGION) && !move_blocked(NULL, r, rn)) { + if (rn && !(rn->terrain->flags & SEA_REGION) && !move_blocked(NULL, r, rn)) { safety = rn; probability = OCEAN_SWIMMER_CHANCE; break; @@ -435,7 +438,7 @@ static void sink_ship(region * r, ship * sh, unit * saboteur) unit *u = *ui; /* inform this faction about the sinking ship: */ - if (!fval(u->faction, FFL_SELECT)) { + if (!(u->faction->flags & FFL_SELECT)) { fset(u->faction, FFL_SELECT); if (sink_msg == NULL) { sink_msg = msg_message("sink_msg", "ship region", sh, r); @@ -463,7 +466,7 @@ static void sink_ship(region * r, ship * sh, unit * saboteur) } leave_ship(u); if (r != safety) { - setguard(u, GUARD_NONE); + setguard(u, false); } while (u->items) { i_remove(&u->items, u->items); diff --git a/src/spy.h b/src/spy.h index 72694d4b1..665595ef4 100644 --- a/src/spy.h +++ b/src/spy.h @@ -25,12 +25,16 @@ extern "C" { struct unit; struct region; struct strlist; + struct order; + struct faction; - extern int setstealth_cmd(struct unit *u, struct order *ord); - extern int spy_cmd(struct unit *u, struct order *ord); - extern int sabotage_cmd(struct unit *u, struct order *ord); - extern void spy_message(int spy, const struct unit *u, + int setstealth_cmd(struct unit *u, struct order *ord); + int spy_cmd(struct unit *u, struct order *ord); + int sabotage_cmd(struct unit *u, struct order *ord); + void spy_message(int spy, const struct unit *u, const struct unit *target); + void set_factionstealth(struct unit * u, struct faction * f); + #define OCEAN_SWIMMER_CHANCE 0.1 #define CANAL_SWIMMER_CHANCE 0.9 diff --git a/src/spy.test.c b/src/spy.test.c index 299e4b3a6..190cb09a5 100644 --- a/src/spy.test.c +++ b/src/spy.test.c @@ -50,16 +50,9 @@ static void test_simple_spy_message(CuTest *tc) { test_cleanup(); } -static void set_factionstealth(unit *u, faction *f) { - attrib *a = a_find(u->attribs, &at_otherfaction); - if (!a) - a = a_add(&u->attribs, make_otherfaction(f)); - else - a->data.v = f; -} - static void test_all_spy_message(CuTest *tc) { spy_fixture fix; + item_type *itype; setup_spy(&fix); @@ -69,9 +62,8 @@ static void test_all_spy_message(CuTest *tc) { create_mage(fix.victim, M_DRAIG); set_factionstealth(fix.victim, fix.spy->faction); - item_type *itype; itype = it_get_or_create(rt_get_or_create("sword")); - new_weapontype(itype, 0, 0.0, NULL, 0, 0, 0, SK_MELEE, 2); + new_weapontype(itype, 0, frac_zero, NULL, 0, 0, 0, SK_MELEE, 2); i_change(&fix.victim->items, itype, 1); spy_message(99, fix.spy, fix.victim); @@ -85,23 +77,12 @@ static void test_all_spy_message(CuTest *tc) { test_cleanup(); } -static void setup_sabotage(void) { - struct locale *lang; - - test_setup(); - lang = get_or_create_locale("de"); - locale_setstring(lang, parameters[P_SHIP], "SCHIFF"); - locale_setstring(lang, parameters[P_ANY], "ALLE"); - init_parameters(lang); - init_locales(); -} - static void test_sabotage_self(CuTest *tc) { unit *u; region *r; order *ord; - setup_sabotage(); + test_setup(); r = test_create_region(0, 0, 0); assert(r); u = test_create_unit(test_create_faction(NULL), r); @@ -123,7 +104,7 @@ static void test_sabotage_other_fail(CuTest *tc) { order *ord; message *msg; - setup_sabotage(); + test_setup(); r = test_create_region(0, 0, 0); assert(r); u = test_create_unit(test_create_faction(NULL), r); @@ -146,13 +127,33 @@ static void test_sabotage_other_fail(CuTest *tc) { test_cleanup(); } +static void test_setstealth_cmd(CuTest *tc) { + unit *u; + const struct locale *lang; + + test_setup(); + u = test_create_unit(test_create_faction(0), test_create_region(0,0,0)); + lang = u->faction->locale; + u->flags = UFL_ANON_FACTION|UFL_SIEGE; + u->thisorder = create_order(K_SETSTEALTH, lang, "%s %s", + LOC(lang, parameters[P_FACTION]), + LOC(lang, parameters[P_NOT])); + setstealth_cmd(u, u->thisorder); + CuAssertIntEquals(tc, UFL_SIEGE, u->flags); + free_order(u->thisorder); + u->thisorder = create_order(K_SETSTEALTH, lang, "%s", + LOC(lang, parameters[P_FACTION])); + setstealth_cmd(u, u->thisorder); + CuAssertIntEquals(tc, UFL_SIEGE|UFL_ANON_FACTION, u->flags); + test_cleanup(); +} static void test_sabotage_other_success(CuTest *tc) { unit *u, *u2; region *r; order *ord; - setup_sabotage(); + test_setup(); r = test_create_region(0, 0, 0); assert(r); u = test_create_unit(test_create_faction(NULL), r); @@ -178,6 +179,7 @@ CuSuite *get_spy_suite(void) SUITE_ADD_TEST(suite, test_simple_spy_message); SUITE_ADD_TEST(suite, test_all_spy_message); SUITE_ADD_TEST(suite, test_sabotage_self); + SUITE_ADD_TEST(suite, test_setstealth_cmd); SUITE_ADD_TEST(suite, test_sabotage_other_fail); SUITE_ADD_TEST(suite, test_sabotage_other_success); return suite; diff --git a/src/sqlite.c b/src/sqlite.c index 37535c9d1..edb5bfc62 100644 --- a/src/sqlite.c +++ b/src/sqlite.c @@ -3,11 +3,10 @@ #include #include #include -#include #include #include #include -#include +#include #include #include #include @@ -73,10 +72,10 @@ typedef struct db_faction { char *name; } db_faction; -static struct quicklist * +static struct selist * read_factions(sqlite3 * db, int game_id) { int res; - quicklist *result = 0; + selist *result = 0; const char * sql = "SELECT f.id, fd.code, fd.name, fd.email FROM faction f" " LEFT OUTER JOIN faction_data fd" @@ -95,10 +94,10 @@ read_factions(sqlite3 * db, int game_id) { text = (const char *)sqlite3_column_text(stmt, 1); if (text) dbf->no = atoi36(text); text = (const char *)sqlite3_column_text(stmt, 2); - if (text) dbf->name = _strdup(text); + if (text) dbf->name = strdup(text); text = (const char *)sqlite3_column_text(stmt, 3); - if (text) dbf->email = _strdup(text); - ql_push(&result, dbf); + if (text) dbf->email = strdup(text); + selist_push(&result, dbf); res = sqlite3_step(stmt); } sqlite3_finalize(stmt); @@ -134,54 +133,71 @@ static void update_faction(sqlite3 *db, const faction *f) { sqlite3_finalize(stmt); } -int db_update_factions(sqlite3 * db, bool force, int game_id) { - quicklist *ql = read_factions(db, game_id); - faction *f; - sqlite3_exec(db, "BEGIN", 0, 0, 0); - for (f = factions; f; f = f->next) { - bool update = force; - db_faction *dbf = 0; - ql_iter it = qli_init(&ql); - while (qli_more(it)) { - db_faction *df = (db_faction*)qli_next(&it); - if (f->no == df->no || strcmp(f->email, df->email) == 0 || strcmp(f->name, df->name) == 0) { - dbf = df; - } - if (f->subscription == df->uid) { - dbf = df; - break; - } - } - if (dbf) { - if (dbf->uid != f->subscription) { - log_warning("faction %s(%d) not found in database, but matches %d\n", itoa36(f->no), f->subscription, dbf->uid); - f->subscription = dbf->uid; - } - update = (dbf->no != f->no) || (strcmp(f->email, dbf->email) != 0) || (strcmp(f->name, dbf->name) != 0); - } - else { - f->subscription = insert_faction(db, game_id, f); - log_warning("faction %s not found in database, created as %d\n", itoa36(f->no), f->subscription); - update = true; - } - if (update) { - update_faction(db, f); - log_debug("faction %s updated\n", itoa36(f->no)); - } +struct cb_data { + const faction *f; + sqlite3 *db; + db_faction *dbf; +}; + +static bool db_faction_cb(void *el, void *arg) { + db_faction *df = (db_faction *)el; + struct cb_data *cb = (struct cb_data *)arg; + const faction *f = cb->f; + + if (f->no == df->no || strcmp(f->email, df->email) == 0 || strcmp(f->name, df->name) == 0) { + cb->dbf = df; + } + if (f->subscription == df->uid) { + cb->dbf = df; + return false; + } + return true; +} + +int db_update_factions(sqlite3 * db, bool force, int game_id) { + selist *ql = read_factions(db, game_id); + if (ql) { + faction *f; + struct cb_data cbdata; + cbdata.db = db; + cbdata.dbf = NULL; + sqlite3_exec(db, "BEGIN", 0, 0, 0); + for (f = factions; f; f = f->next) { + bool update = force; + cbdata.f = f; + selist_foreach_ex(ql, db_faction_cb, &cbdata); + if (cbdata.dbf) { + const db_faction *dbf = cbdata.dbf; + if (dbf->uid != f->subscription) { + log_warning("faction %s(%d) not found in database, but matches %d\n", itoa36(f->no), f->subscription, dbf->uid); + f->subscription = dbf->uid; + } + update = (dbf->no != f->no) || (strcmp(f->email, dbf->email) != 0) || (strcmp(f->name, dbf->name) != 0); + } + else { + f->subscription = insert_faction(db, game_id, f); + log_warning("faction %s not found in database, created as %d\n", itoa36(f->no), f->subscription); + update = true; + } + if (update) { + update_faction(db, f); + log_debug("faction %s updated\n", itoa36(f->no)); + } + } + sqlite3_exec(db, "COMMIT", 0, 0, 0); } - sqlite3_exec(db, "COMMIT", 0, 0, 0); return SQLITE_OK; } int db_update_scores(sqlite3 * db, bool force) { /* - const char *sql_ins = + const char *sselist_ins = "INSERT OR FAIL INTO score (value,faction_id,turn) VALUES (?,?,?)"; - sqlite3_stmt *stmt_ins = stmt_cache_get(db, sql_ins); - const char *sql_upd = + sqlite3_stmt *stmt_ins = stmt_cache_get(db, sselist_ins); + const char *sselist_upd = "UPDATE score set value=? WHERE faction_id=? AND turn=?"; - sqlite3_stmt *stmt_upd = stmt_cache_get(db, sql_upd); + sqlite3_stmt *stmt_upd = stmt_cache_get(db, sselist_upd); faction *f; sqlite3_exec(db, "BEGIN", 0, 0, 0); for (f = factions; f; f = f->next) { diff --git a/src/study.c b/src/study.c index 58cbde94a..27443e996 100644 --- a/src/study.c +++ b/src/study.c @@ -1,4 +1,4 @@ -/* +/* Copyright (c) 1998-2015, Enno Rehling Katja Zedel @@ -22,8 +22,9 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include "study.h" +#include "laws.h" #include "move.h" -#include "monster.h" +#include "monsters.h" #include "alchemy.h" #include "academy.h" @@ -51,6 +52,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include +#include /* libc includes */ #include @@ -94,6 +96,9 @@ magic_t getmagicskill(const struct locale * lang) /* familiars and toads are not migrants */ bool is_migrant(unit * u) { + static int cache; + static const race *toad_rc; + if (u_race(u) == u->faction->race) return false; @@ -101,16 +106,21 @@ bool is_migrant(unit * u) return false; if (is_familiar(u)) return false; - if (u_race(u) == get_race(RC_TOAD)) - return false; - - return true; + if (rc_changed(&cache)) { + toad_rc = get_race(RC_TOAD); + } + return u_race(u) != toad_rc; } /* ------------------------------------------------------------- */ bool magic_lowskill(unit * u) { - return (u_race(u) == get_race(RC_TOAD)) ? true : false; + static const race *toad_rc; + static int cache; + if (rc_changed(&cache)) { + toad_rc = get_race(RC_TOAD); + } + return u_race(u) == toad_rc; } /* ------------------------------------------------------------- */ @@ -190,7 +200,7 @@ teach_unit(unit * teacher, unit * student, int nteaching, skill_t sk, * steigen. * * n ist die Anzahl zusaetzlich gelernter Tage. n darf max. die Differenz - * von schon gelernten Tagen zum _max(30 Tage pro Mann) betragen. */ + * von schon gelernten Tagen zum MAX(30 Tage pro Mann) betragen. */ if (magic_lowskill(student)) { cmistake(teacher, teacher->thisorder, 292, MSG_EVENT); @@ -204,27 +214,14 @@ teach_unit(unit * teacher, unit * student, int nteaching, skill_t sk, n -= teach->value; } - n = _min(n, nteaching); + n = MIN(n, nteaching); if (n != 0) { - int index = 0; - if (teach == NULL) { a = a_add(&student->attribs, a_new(&at_learning)); teach = (teaching_info *)a->data.v; } - else { - while (teach->teachers[index] && index != MAXTEACHERS) - ++index; - } - if (index < MAXTEACHERS) - teach->teachers[index++] = teacher; - if (index < MAXTEACHERS) { - teach->teachers[index] = NULL; - } - else { - log_error("MAXTEACHERS=%d is too low for student %s, teacher %s", MAXTEACHERS, unitname(student), unitname(teacher)); - } + selist_push(&teach->teachers, teacher); teach->value += n; if (student->building && teacher->building == student->building) { @@ -269,7 +266,7 @@ teach_unit(unit * teacher, unit * student, int nteaching, skill_t sk, * die Talentaenderung (enno). */ - nteaching = _max(0, nteaching - student->number * 30); + nteaching = MAX(0, nteaching - student->number * 30); } return n; @@ -305,7 +302,7 @@ int teach_cmd(unit * u, struct order *ord) teaching = u->number * 30 * TEACHNUMBER; if ((i = get_effect(u, oldpotiontype[P_FOOL])) > 0) { /* Trank "Dumpfbackenbrot" */ - i = _min(i, u->number * TEACHNUMBER); + i = MIN(i, u->number * TEACHNUMBER); /* Trank wirkt pro Schueler, nicht pro Lehrer */ teaching -= i * 30; change_effect(u, oldpotiontype[P_FOOL], -i); @@ -430,7 +427,7 @@ int teach_cmd(unit * u, struct order *ord) strncat(zOrder, " ", sz - 1); --sz; } - sz -= strlcpy(zOrder + 4096 - sz, unitid(u2), sz); + sz -= strlcpy(zOrder + 4096 - sz, itoa36(u2->no), sz); if (getkeyword(u2->thisorder) != K_STUDY) { ADDMSG(&u->faction->msgs, @@ -464,8 +461,8 @@ int teach_cmd(unit * u, struct order *ord) * Lehrer seines Gebietes */ sc_mage *mage1 = get_mage(u); sc_mage *mage2 = get_mage(u2); - if (!mage2 || !mage1 || (mage2->magietyp != M_GRAY - && mage1->magietyp != mage2->magietyp)) { + if (mage2 && mage1 && mage2->magietyp != M_GRAY + && mage1->magietyp != mage2->magietyp) { if (feedback) { ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "error_different_magic", "target", u2)); @@ -523,6 +520,46 @@ static double study_speedup(unit * u, skill_t s, study_rule_t rule) return 1.0; } +static bool ExpensiveMigrants(void) +{ + static bool rule; + static int cache; + if (config_changed(&cache)) { + rule = config_get_int("study.expensivemigrants", 0) != 0; + } + return rule; +} + +struct teach_data { + unit *u; + skill_t sk; +}; + +static bool cb_msg_teach(void *el, void *arg) { + struct teach_data *td = (struct teach_data *)arg; + unit *ut = (unit *)el; + unit * u = td->u; + skill_t sk = td->sk; + if (ut->faction != u->faction) { + bool feedback = alliedunit(u, ut->faction, HELP_GUARD); + if (feedback) { + ADDMSG(&ut->faction->msgs, msg_message("teach_teacher", + "teacher student skill level", ut, u, sk, + effskill(u, sk, 0))); + } + ADDMSG(&u->faction->msgs, msg_message("teach_student", + "teacher student skill", ut, u, sk)); + } + return true; +} + +static void msg_teachers(struct selist *teachers, struct unit *u, skill_t sk) { + struct teach_data cbdata; + cbdata.sk = sk; + cbdata.u = u; + selist_foreach_ex(teachers, cb_msg_teach, &cbdata); +} + int study_cmd(unit * u, order * ord) { region *r = u->region; @@ -538,6 +575,12 @@ int study_cmd(unit * u, order * ord) int maxalchemy = 0; int speed_rule = (study_rule_t)config_get_int("study.speedup", 0); bool learn_newskills = config_get_int("study.newskills", 1) != 0; + static const race *rc_snotling; + static int rc_cache; + + if (rc_changed(&rc_cache)) { + rc_snotling = get_race(RC_SNOTLING); + } if (!unit_can_study(u)) { ADDMSG(&u->faction->msgs, msg_feedback(u, ord, "error_race_nolearn", "race", @@ -567,7 +610,7 @@ int study_cmd(unit * u, order * ord) } /* snotlings koennen Talente nur bis T8 lernen */ - if (u_race(u) == get_race(RC_SNOTLING)) { + if (u_race(u) == rc_snotling) { if (get_level(u, sk) >= 8) { cmistake(u, ord, 308, MSG_EVENT); return 0; @@ -590,7 +633,7 @@ int study_cmd(unit * u, order * ord) } /* Akademie: */ if (active_building(u, bt_find("academy"))) { - studycost = _max(50, studycost * 2); + studycost = MAX(50, studycost * 2); } if (sk == SK_MAGIC) { @@ -677,11 +720,11 @@ int study_cmd(unit * u, order * ord) if (studycost) { int cost = studycost * u->number; money = get_pooled(u, get_resourcetype(R_SILVER), GET_DEFAULT, cost); - money = _min(money, cost); + money = MIN(money, cost); } if (money < studycost * u->number) { studycost = p; /* Ohne Univertreurung */ - money = _min(money, studycost); + money = MIN(money, studycost); if (p > 0 && money < studycost * u->number) { cmistake(u, ord, 65, MSG_EVENT); multi = money / (double)(studycost * u->number); @@ -692,7 +735,7 @@ int study_cmd(unit * u, order * ord) a = a_add(&u->attribs, a_new(&at_learning)); teach = (teaching_info *)a->data.v; assert(teach); - teach->teachers[0] = 0; + teach->teachers = NULL; } if (money > 0) { use_pooled(u, get_resourcetype(R_SILVER), GET_DEFAULT, money); @@ -701,12 +744,12 @@ int study_cmd(unit * u, order * ord) } if (get_effect(u, oldpotiontype[P_WISE])) { - l = _min(u->number, get_effect(u, oldpotiontype[P_WISE])); + l = MIN(u->number, get_effect(u, oldpotiontype[P_WISE])); teach->value += l * 10; change_effect(u, oldpotiontype[P_WISE], -l); } if (get_effect(u, oldpotiontype[P_FOOL])) { - l = _min(u->number, get_effect(u, oldpotiontype[P_FOOL])); + l = MIN(u->number, get_effect(u, oldpotiontype[P_FOOL])); teach->value -= l * 30; change_effect(u, oldpotiontype[P_FOOL], -l); } @@ -741,24 +784,13 @@ int study_cmd(unit * u, order * ord) learn_skill(u, sk, days); if (a != NULL) { - int index = 0; - while (teach->teachers[index] && index != MAXTEACHERS) { - unit *teacher = teach->teachers[index++]; - if (teacher->faction != u->faction) { - bool feedback = alliedunit(u, teacher->faction, HELP_GUARD); - if (feedback) { - ADDMSG(&teacher->faction->msgs, msg_message("teach_teacher", - "teacher student skill level", teacher, u, sk, - effskill(u, sk, 0))); - } - ADDMSG(&u->faction->msgs, msg_message("teach_student", - "teacher student skill", teacher, u, sk)); - } + if (teach->teachers) { + msg_teachers(teach->teachers, u, sk); } a_remove(&u->attribs, a); a = NULL; } - fset(u, UFL_LONGACTION | UFL_NOTMOVING); + u->flags |= (UFL_LONGACTION | UFL_NOTMOVING); /* Anzeigen neuer Traenke */ /* Spruchlistenaktualiesierung ist in Regeneration */ @@ -792,7 +824,11 @@ int study_cmd(unit * u, order * ord) } static int produceexp_days(void) { - return config_get_int("study.produceexp", 10); + static int config, rule; + if (config_changed(&config)) { + rule = config_get_int("study.produceexp", 10); + } + return rule; } void produceexp_ex(struct unit *u, skill_t sk, int n, learn_fun learn) @@ -855,7 +891,11 @@ void demon_skillchange(unit *u) if (fval(u, UFL_HUNGER)) { /* hungry demons only go down, never up in skill */ - int rule_hunger = config_get_int("hunger.demon.skill", 0) != 0; + static int config; + static bool rule_hunger; + if (config_changed(&config)) { + rule_hunger = config_get_int("hunger.demon.skill", 0) != 0; + } if (rule_hunger) { upchance = 0; downchance = 15; diff --git a/src/study.h b/src/study.h index e136d7345..0f8ae70f5 100644 --- a/src/study.h +++ b/src/study.h @@ -27,6 +27,7 @@ extern "C" { #endif struct unit; + struct selist; int teach_cmd(struct unit *u, struct order *ord); int study_cmd(struct unit *u, struct order *ord); @@ -45,10 +46,9 @@ extern "C" { void demon_skillchange(struct unit *u); -#define MAXTEACHERS 20 #define TEACHNUMBER 10 typedef struct teaching_info { - struct unit *teachers[MAXTEACHERS]; + struct selist *teachers; int value; } teaching_info; diff --git a/src/study.test.c b/src/study.test.c index 1bab404d8..74104704b 100644 --- a/src/study.test.c +++ b/src/study.test.c @@ -2,6 +2,7 @@ #include "study.h" +#include #include #include #include @@ -10,15 +11,18 @@ #include #include #include +#include #include #include #include #include #include +#include +#include + #include -#include #define MAXLOG 4 typedef struct log_entry { @@ -59,8 +63,6 @@ static void setup_locale(struct locale *lang) { if (!locale_getstring(lang, mkname("skill", skillnames[i]))) locale_setstring(lang, mkname("skill", skillnames[i]), skillnames[i]); } - locale_setstring(lang, parameters[P_ANY], "ALLE"); - init_parameters(lang); init_skills(lang); } @@ -72,10 +74,9 @@ static void setup_study(study_fixture *fix, skill_t sk) { assert(fix); test_setup(); config_set("study.random_progress", "0"); - test_create_world(); - r = findregion(0, 0); + r = test_create_region(0, 0, 0); f = test_create_faction(0); - lang = get_or_create_locale(locale_name(f->locale)); + f->locale = lang = test_create_locale(); setup_locale(lang); fix->u = test_create_unit(f, r); assert(fix->u); @@ -141,7 +142,7 @@ static void test_study_bug_2194(CuTest *tc) { test_setup(); random_source_inject_constant(0.0); init_resources(); - loc = get_or_create_locale("de"); + loc = test_create_locale(); setup_locale(loc); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); scale_number(u, 2); @@ -215,7 +216,7 @@ static void test_academy_building(CuTest *tc) { random_source_inject_constant(0.0); init_resources(); - loc = get_or_create_locale("de"); + loc = test_create_locale(); setup_locale(loc); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); scale_number(u, 2); @@ -291,15 +292,15 @@ void test_learn_skill_multi(CuTest *tc) { static void test_demon_skillchanges(CuTest *tc) { unit * u; - race * rc; + const race * rc; test_setup(); rc = test_create_race("demon"); - CuAssertPtrEquals(tc, rc, get_race(RC_DAEMON)); + CuAssertPtrEquals(tc, (void *)rc, (void *)get_race(RC_DAEMON)); u = test_create_unit(test_create_faction(rc), test_create_region(0, 0, 0)); CuAssertPtrNotNull(tc, u); set_level(u, SK_CROSSBOW, 1); demon_skillchange(u); - // TODO: sensing here + /* TODO: sensing here */ test_cleanup(); } @@ -381,6 +382,34 @@ static void test_study_cost(CuTest *tc) { test_cleanup(); } +static void test_teach_magic(CuTest *tc) { + unit *u, *ut; + faction *f; + const struct item_type *itype; + + test_setup(); + init_resources(); + itype = get_resourcetype(R_SILVER)->itype; + f = test_create_faction(0); + f->magiegebiet = M_GWYRRD; + u = test_create_unit(f, test_create_region(0, 0, 0)); + u->thisorder = create_order(K_STUDY, f->locale, "%s", skillnames[SK_MAGIC]); + i_change(&u->items, itype, study_cost(u, SK_MAGIC)); + ut = test_create_unit(f, u->region); + set_level(ut, SK_MAGIC, TEACHDIFFERENCE); + create_mage(ut, M_GWYRRD); + ut->thisorder = create_order(K_TEACH, f->locale, "%s", itoa36(u->no)); + learn_inject(); + teach_cmd(ut, ut->thisorder); + study_cmd(u, u->thisorder); + learn_reset(); + CuAssertPtrEquals(tc, u, log_learners[0].u); + CuAssertIntEquals(tc, SK_MAGIC, log_learners[0].sk); + CuAssertIntEquals(tc, STUDYDAYS*2, log_learners[0].days); + CuAssertIntEquals(tc, 0, i_get(u->items, itype)); + test_cleanup(); +} + static void test_teach_cmd(CuTest *tc) { unit *u, *ut; test_setup(); @@ -483,6 +512,7 @@ static void test_teach_one_to_many(CuTest *tc) { static void test_teach_many_to_one(CuTest *tc) { unit *u, *u1, *u2; + test_setup(); init_resources(); u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); @@ -505,6 +535,47 @@ static void test_teach_many_to_one(CuTest *tc) { test_cleanup(); } +static void test_teach_message(CuTest *tc) { + unit *u, *u1, *u2; + attrib *a; + ally *al; + teaching_info *teach; + + test_setup(); + init_resources(); + u = test_create_unit(test_create_faction(0), test_create_region(0, 0, 0)); + scale_number(u, 20); + u->thisorder = create_order(K_STUDY, u->faction->locale, "CROSSBOW"); + u1 = test_create_unit(test_create_faction(0), u->region); + set_level(u1, SK_CROSSBOW, TEACHDIFFERENCE); + u1->thisorder = create_order(K_TEACH, u->faction->locale, itoa36(u->no)); + u2 = test_create_unit(test_create_faction(0), u->region); + al = ally_add(&u->faction->allies, u2->faction); + al->status = HELP_GUARD; + set_level(u2, SK_CROSSBOW, TEACHDIFFERENCE); + u2->thisorder = create_order(K_TEACH, u->faction->locale, itoa36(u->no)); + CuAssertTrue(tc, !alliedunit(u, u1->faction, HELP_GUARD)); + CuAssertTrue(tc, alliedunit(u, u2->faction, HELP_GUARD)); + teach_cmd(u1, u1->thisorder); + teach_cmd(u2, u2->thisorder); + a = a_find(u->attribs, &at_learning); + CuAssertPtrNotNull(tc, a); + CuAssertPtrNotNull(tc, a->data.v); + teach = (teaching_info *)a->data.v; + CuAssertPtrNotNull(tc, teach->teachers); + CuAssertIntEquals(tc, 600, teach->value); + CuAssertIntEquals(tc, 2, selist_length(teach->teachers)); + CuAssertPtrEquals(tc, u1, selist_get(teach->teachers, 0)); + CuAssertPtrEquals(tc, u2, selist_get(teach->teachers, 1)); + study_cmd(u, u->thisorder); + CuAssertPtrEquals(tc, NULL, test_find_messagetype(u1->faction->msgs, "teach_teacher")); + CuAssertPtrNotNull(tc, test_find_messagetype(u2->faction->msgs, "teach_teacher")); + CuAssertPtrNotNull(tc, test_find_messagetype(u->faction->msgs, "teach_student")); + a = a_find(u->attribs, &at_learning); + CuAssertPtrEquals(tc, NULL, a); + test_cleanup(); +} + static void test_teach_many_to_many(CuTest *tc) { unit *s1, *s2, *t1, *t2; region *r; @@ -550,10 +621,12 @@ CuSuite *get_study_suite(void) SUITE_ADD_TEST(suite, test_study_cost); SUITE_ADD_TEST(suite, test_study_magic); SUITE_ADD_TEST(suite, test_teach_cmd); + SUITE_ADD_TEST(suite, test_teach_magic); SUITE_ADD_TEST(suite, test_teach_two); SUITE_ADD_TEST(suite, test_teach_one_to_many); SUITE_ADD_TEST(suite, test_teach_many_to_one); SUITE_ADD_TEST(suite, test_teach_many_to_many); + SUITE_ADD_TEST(suite, test_teach_message); SUITE_ADD_TEST(suite, test_teach_two_skills); SUITE_ADD_TEST(suite, test_learn_skill_single); SUITE_ADD_TEST(suite, test_learn_skill_multi); diff --git a/src/summary.c b/src/summary.c index cbc998b4a..32416a263 100644 --- a/src/summary.c +++ b/src/summary.c @@ -1,4 +1,4 @@ -/* +/* * +-------------------+ Christian Schlittchen * | | Enno Rehling * | Eressea PBEM host | Katja Zedel @@ -14,7 +14,7 @@ #include "summary.h" #include "laws.h" -#include "monster.h" +#include "monsters.h" #include "calendar.h" #include @@ -22,7 +22,6 @@ #include #include #include -#include #include #include #include @@ -59,7 +58,6 @@ typedef struct summary { int landregionen; int regionen_mit_spielern; int landregionen_mit_spielern; - int orkifizierte_regionen; int inactive_volcanos; int active_volcanos; int spielerpferde; @@ -98,12 +96,12 @@ int update_nmrs(void) int nmr = turn - f->lastorders + 1; if (timeout>0) { if (nmr < 0 || nmr > timeout) { - log_error("faction %s has %d NMR", factionid(f), nmr); - nmr = _max(0, nmr); - nmr = _min(nmr, timeout); + log_error("faction %s has %d NMR", itoa36(f->no), nmr); + nmr = MAX(0, nmr); + nmr = MIN(nmr, timeout); } if (nmr > 0) { - log_debug("faction %s has %d NMR", factionid(f), nmr); + log_debug("faction %s has %d NMR", itoa36(f->no), nmr); } ++nmrs[nmr]; } @@ -166,7 +164,7 @@ static char *gamedate2(const struct locale *lang) static void writeturn(void) { - char zText[MAX_PATH]; + char zText[4096]; FILE *f; join_path(basepath(), "datum", zText, sizeof(zText)); @@ -192,7 +190,7 @@ void report_summary(summary * s, summary * o, bool full) FILE *F = NULL; int i, newplayers = 0; faction *f; - char zText[MAX_PATH]; + char zText[4096]; int timeout = NMRTimeout(); if (full) { @@ -222,12 +220,11 @@ void report_summary(summary * s, summary * o, bool full) fprintf(F, " Helden: %s\n", pcomp(s->heroes, o->heroes)); if (full) { - fprintf(F, "Regionen: %d\n", listlen(regions)); + fprintf(F, "Regionen: %d\n", (int)listlen(regions)); fprintf(F, "Bewohnte Regionen: %d\n", s->inhabitedregions); fprintf(F, "Landregionen: %d\n", s->landregionen); fprintf(F, "Spielerregionen: %d\n", s->regionen_mit_spielern); fprintf(F, "Landspielerregionen: %d\n", s->landregionen_mit_spielern); - fprintf(F, "Orkifizierte Regionen: %d\n", s->orkifizierte_regionen); fprintf(F, "Inaktive Vulkane: %d\n", s->inactive_volcanos); fprintf(F, "Aktive Vulkane: %d\n\n", s->active_volcanos); } @@ -422,9 +419,6 @@ summary *make_summary(void) if (r->units) { s->landregionen_mit_spielern++; } - if (fval(r, RF_ORCIFIED)) { - s->orkifizierte_regionen++; - } if (r->terrain == newterrain(T_VOLCANO)) { s->inactive_volcanos++; } diff --git a/src/summary.h b/src/summary.h index ea8daeee1..b12d74009 100644 --- a/src/summary.h +++ b/src/summary.h @@ -11,6 +11,8 @@ #ifndef H_GC_SUMMARY #define H_GC_SUMMARY +#include + #ifdef __cplusplus extern "C" { #endif diff --git a/src/summary.test.c b/src/summary.test.c index 33dc874b3..93c4d4c84 100644 --- a/src/summary.test.c +++ b/src/summary.test.c @@ -17,6 +17,8 @@ static void test_summary(CuTest * tc) sum = make_summary(); report_summary(sum, sum, true); CuAssertIntEquals(tc, 0, remove("parteien.full")); + CuAssertIntEquals(tc, 0, remove("datum")); + CuAssertIntEquals(tc, 0, remove("turn")); free_summary(sum); test_cleanup(); } diff --git a/src/teleport.c b/src/teleport.c index 5b7f71831..f81f2f9f0 100644 --- a/src/teleport.c +++ b/src/teleport.c @@ -34,7 +34,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include "skill.h" -#include "monster.h" +#include "monsters.h" /* libc includes */ #include @@ -176,14 +176,16 @@ bool is_astral(const region * r) plane *get_astralplane(void) { plane *astralspace = 0; - int rule_astralplane = config_get_int("modules.astralspace", 1); - + static int config; + static bool rule_astralplane; + + if (config_changed(&config)) { + rule_astralplane = config_get_int("modules.astralspace", 1) != 0; + } if (!rule_astralplane) { return NULL; } - if (!astralspace) { - astralspace = getplanebyname("Astralraum"); - } + astralspace = getplanebyname("Astralraum"); if (!astralspace) { astralspace = create_new_plane(1, "Astralraum", TE_CENTER_X - 500, TE_CENTER_X + 500, diff --git a/src/test_eressea.c b/src/test_eressea.c index 0f6fc3522..1d991725f 100644 --- a/src/test_eressea.c +++ b/src/test_eressea.c @@ -6,6 +6,7 @@ #include #include #include +#include #pragma warning(disable: 4210) @@ -33,7 +34,7 @@ static void add_suite(CuSuite *(*csuite)(void), const char *name, int argc, char } if (s) { s->next = suites; - s->name = _strdup(name); + s->name = strdup(name); s->csuite = csuite(); suites = s; } @@ -52,21 +53,23 @@ void RunTests(CuSuite * suite, const char *name) { bool list = false; #define ADD_SUITE(name) \ - CuSuite *get_##name##_suite(void); \ - if (list) printf("%s\n", #name); \ - if (!list || argc>0) add_suite(get_##name##_suite, #name, argc, argv) + do { \ + CuSuite *get_##name##_suite(void); \ + if (list) printf("%s\n", #name); \ + if (!list || argc>0) add_suite(get_##name##_suite, #name, argc, argv); \ + } while (0) + int RunAllTests(int argc, char *argv[]) { /* self-test */ ADD_SUITE(tests); - ADD_SUITE(callback); - ADD_SUITE(seen); ADD_SUITE(json); ADD_SUITE(jsonconf); ADD_SUITE(direction); ADD_SUITE(skill); ADD_SUITE(keyword); + ADD_SUITE(message); ADD_SUITE(order); ADD_SUITE(race); /* util */ @@ -83,6 +86,7 @@ int RunAllTests(int argc, char *argv[]) ADD_SUITE(unicode); ADD_SUITE(strings); ADD_SUITE(log); + ADD_SUITE(variant); ADD_SUITE(rng); /* items */ ADD_SUITE(xerewards); @@ -101,6 +105,7 @@ int RunAllTests(int argc, char *argv[]) ADD_SUITE(magic); ADD_SUITE(alchemy); ADD_SUITE(reports); + ADD_SUITE(region); ADD_SUITE(save); ADD_SUITE(ship); ADD_SUITE(spellbook); @@ -111,7 +116,9 @@ int RunAllTests(int argc, char *argv[]) ADD_SUITE(ally); ADD_SUITE(messages); /* gamecode */ - ADD_SUITE(prefix); + ADD_SUITE(guard); + ADD_SUITE(report); + ADD_SUITE(creport); ADD_SUITE(summary); ADD_SUITE(names); ADD_SUITE(battle); @@ -122,10 +129,13 @@ int RunAllTests(int argc, char *argv[]) ADD_SUITE(flyingship); ADD_SUITE(give); ADD_SUITE(laws); + ADD_SUITE(lighthouse); ADD_SUITE(market); ADD_SUITE(monsters); ADD_SUITE(move); ADD_SUITE(piracy); + ADD_SUITE(prefix); + ADD_SUITE(renumber); ADD_SUITE(key); ADD_SUITE(stealth); ADD_SUITE(otherfaction); diff --git a/src/tests.c b/src/tests.c index 85aafd211..faa8f6e2e 100644 --- a/src/tests.c +++ b/src/tests.c @@ -1,7 +1,6 @@ #include #include "tests.h" #include "keyword.h" -#include "seen.h" #include "prefix.h" #include "reports.h" @@ -41,7 +40,7 @@ struct race *test_create_race(const char *name) race *rc = rc_get_or_create(name); rc->maintenance = 10; rc->hitpoints = 20; - rc->maxaura = 1.0; + rc->maxaura = 100; rc->ec_flags |= GETITEM; rc->battle_flags = BF_EQUIPMENT; return rc; @@ -54,9 +53,7 @@ struct region *test_create_region(int x, int y, const terrain_type *terrain) r = new_region(x, y, findplane(x, y), 0); } if (!terrain) { - terrain_type *t = get_or_create_terrain("plain"); - t->size = 1000; - fset(t, LAND_REGION|CAVALRY_REGION|FOREST_REGION|FLY_INTO|WALK_INTO); + terrain_type *t = test_create_terrain("plain", LAND_REGION | CAVALRY_REGION | FOREST_REGION | FLY_INTO | WALK_INTO); terraform_region(r, t); } else { @@ -70,12 +67,37 @@ struct region *test_create_region(int x, int y, const terrain_type *terrain) return r; } +region *test_create_ocean(int x, int y) +{ + terrain_type *ter = test_create_terrain("ocean", SEA_REGION | FLY_INTO | SWIM_INTO); + return test_create_region(x, y, ter); +} + +region *test_create_plain(int x, int y) { + return test_create_region(x, y, NULL); +} + struct locale * test_create_locale(void) { struct locale *loc = get_locale("test"); if (!loc) { int i; loc = get_or_create_locale("test"); locale_setstring(loc, "factiondefault", parameters[P_FACTION]); + locale_setstring(loc, "unitdefault", parameters[P_UNIT]); + locale_setstring(loc, "money", "Silber"); + locale_setstring(loc, "money_p", "Silber"); + locale_setstring(loc, "cart", "Wagen"); + locale_setstring(loc, "cart_p", "Wagen"); + locale_setstring(loc, "horse", "Pferd"); + locale_setstring(loc, "horse_p", "Pferde"); + locale_setstring(loc, "iron", "Eisen"); + locale_setstring(loc, "iron_p", "Eisen"); + locale_setstring(loc, "stone", "Stein"); + locale_setstring(loc, "stone_p", "Steine"); + locale_setstring(loc, "plain", "Ebene"); + locale_setstring(loc, "ocean", "Ozean"); + locale_setstring(loc, "race::human", "Mensch"); + locale_setstring(loc, "race::human_p", "Menschen"); for (i = 0; i < MAXSKILLS; ++i) { if (!locale_getstring(loc, mkname("skill", skillnames[i]))) locale_setstring(loc, mkname("skill", skillnames[i]), skillnames[i]); @@ -180,7 +202,6 @@ static void test_reset(void) { free_shiptypes(); free_races(); free_spellbooks(); - free_seen(); free_prefixes(); mt_clear(); for (i = 0; i != MAXSKILLS; ++i) { @@ -198,9 +219,15 @@ static void test_reset(void) { } } -void test_setup(void) { +void test_setup_test(CuTest *tc, const char *file, int line) { test_log_stderr(LOG_CPERROR); test_reset(); + if (tc) { + log_debug("start test: %s", tc->name); + } + else { + log_debug("start test in %s:%d", file, line); + } } void test_cleanup(void) @@ -213,14 +240,24 @@ terrain_type * test_create_terrain(const char * name, unsigned int flags) { terrain_type * t = get_or_create_terrain(name); + if (flags & LAND_REGION) { + t->size = 1000; + } t->flags = flags; return t; } building * test_create_building(region * r, const building_type * btype) { - building * b = new_building(btype ? btype : test_create_buildingtype("castle"), r, default_locale); - b->size = b->type->maxsize > 0 ? b->type->maxsize : 1; + building * b; + assert(r); + if (!btype) { + building_type *bt_castle = test_create_buildingtype("castle"); + bt_castle->flags |= BTF_FORTIFICATION; + btype = bt_castle; + } + b = new_building(btype, r, default_locale); + b->size = btype->maxsize > 0 ? btype->maxsize : 1; return b; } @@ -300,7 +337,7 @@ void test_create_castorder(castorder *co, unit *u, int level, float force, int r struct locale * lang; order *ord; - lang = get_or_create_locale("en"); + lang = test_create_locale(); create_castorder(co, u, NULL, NULL, u->region, level, force, range, ord = create_order(K_CAST, lang, ""), par); free_order(ord); } @@ -359,7 +396,7 @@ void test_create_world(void) item_type * itype; struct locale * loc; - loc = get_or_create_locale("de"); + loc = test_create_locale(); locale_setstring(loc, parameters[P_SHIP], "SCHIFF"); locale_setstring(loc, parameters[P_ANY], "ALLE"); @@ -367,7 +404,18 @@ void test_create_world(void) locale_setstring(loc, "status_aggressive", "aggressiv"); locale_setstring(loc, keyword(K_RESERVE), "RESERVIEREN"); - locale_setstring(loc, "money", "SILBER"); + locale_setstring(loc, "money", "Silber"); + locale_setstring(loc, "money_p", "Silber"); + locale_setstring(loc, "cart", "Wagen"); + locale_setstring(loc, "cart_p", "Wagen"); + locale_setstring(loc, "horse", "Pferd"); + locale_setstring(loc, "horse_p", "Pferde"); + locale_setstring(loc, "iron", "Eisen"); + locale_setstring(loc, "iron_p", "Eisen"); + locale_setstring(loc, "stone", "Stein"); + locale_setstring(loc, "stone_p", "Steine"); + locale_setstring(loc, "plain", "Ebene"); + locale_setstring(loc, "ocean", "Ozean"); init_resources(); get_resourcetype(R_SILVER)->itype->weight = 1; @@ -454,6 +502,14 @@ struct message * test_find_messagetype(struct message_list *msgs, const char *na return test_find_messagetype_ex(msgs, name, NULL); } +void test_clear_messagelist(message_list **msgs) { + if (*msgs) { + free_messagelist((*msgs)->begin); + free(*msgs); + *msgs = NULL; + } +} + void test_clear_messages(faction *f) { if (f->msgs) { free_messagelist(f->msgs->begin); diff --git a/src/tests.h b/src/tests.h index 10934c3d7..669318d99 100644 --- a/src/tests.h +++ b/src/tests.h @@ -31,7 +31,10 @@ extern "C" { struct CuTest; - void test_setup(void); + void test_setup_test(struct CuTest *tc, const char *file, int line); +#define test_setup() test_setup_test(NULL, __FILE__, __LINE__) +#define test_setup_ex(tc) test_setup_test(tc, __FILE__, __LINE__) + void test_cleanup(void); void test_log_stderr(int on); struct log_t * test_log_start(int flags, struct strlist **slist); @@ -40,8 +43,9 @@ extern "C" { struct locale * test_create_locale(void); struct terrain_type * test_create_terrain(const char * name, unsigned int flags); struct race *test_create_race(const char *name); - struct region *test_create_region(int x, int y, - const struct terrain_type *terrain); + struct region *test_create_region(int x, int y, const struct terrain_type *terrain); + struct region *test_create_ocean(int x, int y); + struct region *test_create_plain(int x, int y); struct faction *test_create_faction(const struct race *rc); struct unit *test_create_unit(struct faction *f, struct region *r); void test_create_world(void); @@ -61,6 +65,7 @@ extern "C" { struct message * test_find_messagetype(struct message_list *msgs, const char *name); struct message * test_get_last_message(struct message_list *mlist); void test_clear_messages(struct faction *f); + void test_clear_messagelist(struct message_list **msgs); void assert_message(struct CuTest * tc, struct message *msg, char *name, int numpar); void assert_pointer_parameter(struct CuTest * tc, struct message *msg, int index, void *arg); diff --git a/src/tests.test.c b/src/tests.test.c index 9dd47e4d1..880956e8b 100644 --- a/src/tests.test.c +++ b/src/tests.test.c @@ -34,46 +34,9 @@ static void test_resources(CuTest *tc) { CuAssertPtrEquals(tc, (void *)rtype, (void *)get_resourcetype(R_STONE)); } -static void test_recreate_world(CuTest * tc) -{ - test_setup(); - CuAssertPtrEquals(tc, 0, get_locale("de")); - CuAssertPtrEquals(tc, 0, (void *)rt_find("horse")); - - test_create_world(); - CuAssertPtrEquals(tc, default_locale, get_locale("de")); - CuAssertPtrNotNull(tc, default_locale); - CuAssertPtrNotNull(tc, findregion(0, 0)); - CuAssertPtrNotNull(tc, get_terrain("plain")); - CuAssertPtrNotNull(tc, get_terrain("ocean")); - CuAssertPtrNotNull(tc, (void *)rt_find("horse")); - CuAssertPtrNotNull(tc, get_resourcetype(R_HORSE)); - CuAssertPtrNotNull(tc, (void *)rt_find("money")); - CuAssertPtrNotNull(tc, get_resourcetype(R_LIFE)); - CuAssertPtrNotNull(tc, get_resourcetype(R_SILVER)); - CuAssertPtrNotNull(tc, get_resourcetype(R_AURA)); - CuAssertPtrNotNull(tc, get_resourcetype(R_PERMAURA)); - CuAssertPtrNotNull(tc, get_resourcetype(R_PEASANT)); - - test_cleanup(); - CuAssertPtrEquals(tc, 0, get_locale("de")); - CuAssertPtrEquals(tc, 0, (void*)get_terrain("plain")); - CuAssertPtrEquals(tc, 0, (void*)get_terrain("ocean")); - CuAssertPtrEquals(tc, 0, (void*)rt_find("horse")); - CuAssertPtrEquals(tc, 0, (void*)get_resourcetype(R_HORSE)); - CuAssertPtrEquals(tc, 0, (void *)rt_find("money")); - CuAssertPtrEquals(tc, 0, (void *)get_resourcetype(R_LIFE)); - CuAssertPtrEquals(tc, 0, (void *)get_resourcetype(R_SILVER)); - CuAssertPtrEquals(tc, 0, (void *)get_resourcetype(R_AURA)); - CuAssertPtrEquals(tc, 0, (void *)get_resourcetype(R_PERMAURA)); - CuAssertPtrEquals(tc, 0, (void *)get_resourcetype(R_PEASANT)); - CuAssertPtrEquals(tc, 0, findregion(0, 0)); -} - CuSuite *get_tests_suite(void) { CuSuite *suite = CuSuiteNew(); SUITE_ADD_TEST(suite, test_resources); - SUITE_ADD_TEST(suite, test_recreate_world); return suite; } diff --git a/src/travelthru.c b/src/travelthru.c index 32607ae5c..73aa97757 100644 --- a/src/travelthru.c +++ b/src/travelthru.c @@ -1,4 +1,4 @@ -/* +/* Copyright (c) 1998-2015, Enno Rehling Katja Zedel @@ -33,14 +33,14 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include -#include +#include #include #include static void travel_done(attrib *a) { - quicklist *ql = (quicklist *)a->data.v; - ql_free(ql); + selist *ql = (selist *)a->data.v; + selist_free(ql); } /*********************/ @@ -64,8 +64,10 @@ attrib_type at_travelunit = { */ void travelthru_add(region * r, unit * u) { + region *next[MAXDIRECTIONS]; + int d; attrib *a; - quicklist *ql; + selist *ql; assert(r); assert(u); @@ -74,18 +76,20 @@ void travelthru_add(region * r, unit * u) if (!a) { a = a_add(&r->attribs, a_new(&at_travelunit)); } - ql = (quicklist *)a->data.v; + ql = (selist *)a->data.v; fset(r, RF_TRAVELUNIT); - ql_push(&ql, u); + selist_push(&ql, u); a->data.v = ql; -#ifdef SMART_INTERVALS /* the first and last region of the faction gets reset, because travelthrough * could be in regions that are located before the [first, last] interval, * and recalculation is needed */ update_interval(u->faction, r); -#endif + get_neighbours(r, next); + for (d=0;d!=MAXDIRECTIONS;++d) { + update_interval(u->faction, next[d]); + } } bool travelthru_cansee(const struct region *r, const struct faction *f, const struct unit *u) { @@ -95,18 +99,31 @@ bool travelthru_cansee(const struct region *r, const struct faction *f, const st return false; } -void travelthru_map(region * r, void(*cb)(region *, struct unit *, void *), void *cbdata) +struct cb_data { + void(*call)(region *, struct unit *, void *); + void *data; + struct region *r; +}; + +static bool cb_map(void *data, void *ex) { + struct cb_data *cb = (struct cb_data *)ex; + struct unit *u = (struct unit *)data; + cb->call(cb->r, u, cb->data); + return true; +} + +void travelthru_map(region * r, void(*cb)(region *, struct unit *, void *), void *data) { attrib *a; + struct cb_data cbdata; + assert(r); + cbdata.call = cb; + cbdata.data = data; + cbdata.r = r; a = a_find(r->attribs, &at_travelunit); if (a) { - quicklist *ql; - ql_iter qi; - ql = (quicklist *)a->data.v; - for (qi = qli_init(&ql); qli_more(qi);) { - unit *u = (unit *)qli_next(&qi); - cb(r, u, cbdata); - } + selist *ql = (selist *)a->data.v; + selist_foreach_ex(ql, cb_map, &cbdata); } } diff --git a/src/travelthru.h b/src/travelthru.h index 4e43dd25a..16452869a 100644 --- a/src/travelthru.h +++ b/src/travelthru.h @@ -1,4 +1,4 @@ -#pragma once +#pragma once #ifndef H_TRAVELTHRU #define H_TRAVELTHRU diff --git a/src/travelthru.test.c b/src/travelthru.test.c index 74ab29b7e..09d807674 100644 --- a/src/travelthru.test.c +++ b/src/travelthru.test.c @@ -1,4 +1,4 @@ -#include +#include #include #include #include @@ -15,7 +15,7 @@ struct attrib; static void count_travelers(region *r, unit *u, void *cbdata) { int *n = (int *)cbdata; - unused_arg(r); + UNUSED_ARG(r); *n += u->number; } diff --git a/src/triggers/CMakeLists.txt b/src/triggers/CMakeLists.txt index 18561f521..e123698d6 100644 --- a/src/triggers/CMakeLists.txt +++ b/src/triggers/CMakeLists.txt @@ -11,8 +11,6 @@ killunit.c shock.c timeout.c triggers.c -unguard.c -unitmessage.c ) FOREACH(_FILE ${_FILES}) LIST(APPEND _SOURCES ${PROJECT_NAME}/${_FILE}) diff --git a/src/triggers/changefaction.c b/src/triggers/changefaction.c index 13785dfb9..e8b6a4879 100644 --- a/src/triggers/changefaction.c +++ b/src/triggers/changefaction.c @@ -17,12 +17,10 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include #include "changefaction.h" /* kernel includes */ #include -#include #include /* util includes */ @@ -72,7 +70,7 @@ static int changefaction_handle(trigger * t, void *data) else { log_error("could not perform changefaction::handle()\n"); } - unused_arg(data); + UNUSED_ARG(data); return 0; } @@ -94,7 +92,6 @@ static int changefaction_read(trigger * t, gamedata *data) return AT_READ_FAIL; } ur_add(var, &td->faction, resolve_faction); - // read_reference(&td->faction, store, read_faction_reference, resolve_faction); return AT_READ_OK; } diff --git a/src/triggers/changerace.c b/src/triggers/changerace.c index 0e7fc997e..a9f282698 100644 --- a/src/triggers/changerace.c +++ b/src/triggers/changerace.c @@ -17,7 +17,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include #include "changerace.h" /* kernel includes */ @@ -75,7 +74,7 @@ static int changerace_handle(trigger * t, void *data) else { log_error("could not perform changerace::handle()\n"); } - unused_arg(data); + UNUSED_ARG(data); return 0; } diff --git a/src/triggers/changerace.h b/src/triggers/changerace.h index 1b08110b3..e6b19dcb0 100644 --- a/src/triggers/changerace.h +++ b/src/triggers/changerace.h @@ -26,6 +26,7 @@ extern "C" { struct trigger_type; struct trigger; struct unit; + struct race; extern struct trigger_type tt_changerace; diff --git a/src/triggers/clonedied.c b/src/triggers/clonedied.c index 37693fdbf..f3d1fc00b 100644 --- a/src/triggers/clonedied.c +++ b/src/triggers/clonedied.c @@ -17,7 +17,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include #include "clonedied.h" #include "magic.h" @@ -59,7 +58,7 @@ static int clonedied_handle(trigger * t, void *data) } else log_error("could not perform clonedied::handle()\n"); - unused_arg(data); + UNUSED_ARG(data); return 0; } diff --git a/src/triggers/createcurse.c b/src/triggers/createcurse.c index fe39e8b7f..3eb0891ca 100644 --- a/src/triggers/createcurse.c +++ b/src/triggers/createcurse.c @@ -17,7 +17,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include #include "createcurse.h" /* kernel includes */ @@ -77,7 +76,7 @@ static int createcurse_handle(trigger * t, void *data) else { log_error("could not perform createcurse::handle()\n"); } - unused_arg(data); + UNUSED_ARG(data); return 0; } diff --git a/src/triggers/createunit.c b/src/triggers/createunit.c index 2fec00ade..1148b1d5a 100644 --- a/src/triggers/createunit.c +++ b/src/triggers/createunit.c @@ -17,7 +17,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include #include "createunit.h" /* kernel includes */ @@ -75,7 +74,7 @@ static int createunit_handle(trigger * t, void *data) else { log_error("could not perform createunit::handle()\n"); } - unused_arg(data); + UNUSED_ARG(data); return 0; } @@ -103,7 +102,6 @@ static int createunit_read(trigger * t, gamedata *data) else { result = AT_READ_FAIL; } - // read_reference(&td->f, store, read_faction_reference, resolve_faction); read_reference(&td->r, data, read_region_reference, RESOLVE_REGION(data->version)); diff --git a/src/triggers/createunit.h b/src/triggers/createunit.h index 31649b868..d2337d306 100644 --- a/src/triggers/createunit.h +++ b/src/triggers/createunit.h @@ -28,6 +28,7 @@ extern "C" { struct region; struct faction; struct unit; + struct race; extern struct trigger_type tt_createunit; diff --git a/src/triggers/gate.c b/src/triggers/gate.c index acf2bb5d4..c70163a14 100644 --- a/src/triggers/gate.c +++ b/src/triggers/gate.c @@ -10,7 +10,6 @@ without prior permission by the authors of Eressea. */ #include -#include #include "gate.h" /* kernel includes */ @@ -58,7 +57,7 @@ static int gate_handle(trigger * t, void *data) log_error("could not perform gate::handle()\n"); return -1; } - unused_arg(data); + UNUSED_ARG(data); return 0; } diff --git a/src/triggers/giveitem.c b/src/triggers/giveitem.c index d4a56162b..9bc2c56e1 100644 --- a/src/triggers/giveitem.c +++ b/src/triggers/giveitem.c @@ -17,7 +17,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include #include "giveitem.h" /* kernel includes */ @@ -71,7 +70,7 @@ static int giveitem_handle(trigger * t, void *data) else { log_error("could not perform giveitem::handle()\n"); } - unused_arg(data); + UNUSED_ARG(data); return 0; } diff --git a/src/triggers/killunit.c b/src/triggers/killunit.c index 23275a6af..3e6c9defe 100644 --- a/src/triggers/killunit.c +++ b/src/triggers/killunit.c @@ -17,7 +17,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include #include "killunit.h" #include @@ -49,7 +48,7 @@ static int killunit_handle(trigger * t, void *data) /* we can't remove_unit() here, because that's what's calling us. */ set_number(u, 0); } - unused_arg(data); + UNUSED_ARG(data); return 0; } diff --git a/src/triggers/shock.c b/src/triggers/shock.c index 75904e346..31424e979 100644 --- a/src/triggers/shock.c +++ b/src/triggers/shock.c @@ -17,7 +17,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include #include "shock.h" #include "magic.h" @@ -61,8 +60,8 @@ static void do_shock(unit * u, const char *reason) if (u->number > 0) { /* HP - Verlust */ int hp = (unit_max_hp(u) * u->number) / 10; - hp = _min(u->hp, hp); - u->hp = _max(1, hp); + hp = MIN(u->hp, hp); + u->hp = MAX(1, hp); } /* Aura - Verlust */ @@ -84,7 +83,7 @@ static void do_shock(unit * u, const char *reason) } /* Dies ist ein Hack, um das skillmod und familiar-Attribut beim Mage - * zu lschen wenn der Familiar gettet wird. Da sollten wir ber eine + * zu l�schen wenn der Familiar get�tet wird. Da sollten wir �ber eine * saubere Implementation nachdenken. */ if (strcmp(reason, "trigger") == 0) { @@ -103,7 +102,7 @@ static int shock_handle(trigger * t, void *data) if (u && u->number) { do_shock(u, "trigger"); } - unused_arg(data); + UNUSED_ARG(data); return 0; } @@ -118,7 +117,7 @@ static void shock_write(const trigger * t, struct storage *store) next = next->next; } if (next && u) { - log_error("more than one shock-attribut for %s on a unit. FIXED.\n", unitid(u)); + log_error("more than one shock-attribut for %s on a unit. FIXED.\n", itoa36(u->no)); write_unit_reference(NULL, store); } else { diff --git a/src/triggers/timeout.c b/src/triggers/timeout.c index 06fa18363..43bb061c8 100644 --- a/src/triggers/timeout.c +++ b/src/triggers/timeout.c @@ -17,7 +17,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include #include "timeout.h" /* util includes */ @@ -62,7 +61,7 @@ static int timeout_handle(trigger * t, void *data) handle_triggers(&td->triggers, NULL); return -1; } - unused_arg(data); + UNUSED_ARG(data); return 0; } diff --git a/src/triggers/triggers.c b/src/triggers/triggers.c index 152fdcb58..8826fcba2 100644 --- a/src/triggers/triggers.c +++ b/src/triggers/triggers.c @@ -17,7 +17,6 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. **/ #include -#include /* triggers includes */ #include @@ -25,12 +24,10 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include -#include #include #include #include #include -#include #include /* util includes */ @@ -46,11 +43,9 @@ void register_triggers(void) tt_register(&tt_createcurse); tt_register(&tt_createunit); tt_register(&tt_gate); - tt_register(&tt_unguard); tt_register(&tt_giveitem); tt_register(&tt_killunit); tt_register(&tt_shock); - tt_register(&tt_unitmessage); tt_register(&tt_timeout); tt_register(&tt_clonedied); } diff --git a/src/triggers/unguard.c b/src/triggers/unguard.c deleted file mode 100644 index e6471f977..000000000 --- a/src/triggers/unguard.c +++ /dev/null @@ -1,76 +0,0 @@ -/* - +-------------------+ Christian Schlittchen - | | Enno Rehling - | Eressea PBEM host | Katja Zedel - | (c) 1998 - 2003 | Henning Peters - | | Ingo Wilken - +-------------------+ Stefan Reich - - This program may not be used, modified or distributed - without prior permission by the authors of Eressea. - */ -#include -#include -#include "unguard.h" - -/* kernel includes */ -#include -#include -#include -#include - -/* util includes */ -#include -#include -#include -#include -#include - -/* libc includes */ -#include - -static int unguard_handle(trigger * t, void *data) -{ - building *b = (building *)t->data.v; - - if (b) { - fset(b, BLD_UNGUARDED); - } - else { - log_error("could not perform unguard::handle()\n"); - return -1; - } - unused_arg(data); - return 0; -} - -static void unguard_write(const trigger * t, struct storage *store) -{ - write_building_reference((building *)t->data.v, store); -} - -static int unguard_read(trigger * t, gamedata *data) -{ - int rb = read_reference(&t->data.v, data, read_building_reference, - resolve_building); - if (rb == 0 && !t->data.v) { - return AT_READ_FAIL; - } - return AT_READ_OK; -} - -struct trigger_type tt_unguard = { - "building", - NULL, - NULL, - unguard_handle, - unguard_write, - unguard_read -}; - -trigger *trigger_unguard(building * b) -{ - trigger *t = t_new(&tt_unguard); - t->data.v = (void *)b; - return t; -} diff --git a/src/triggers/unguard.h b/src/triggers/unguard.h deleted file mode 100644 index f36f527f8..000000000 --- a/src/triggers/unguard.h +++ /dev/null @@ -1,32 +0,0 @@ -/* - +-------------------+ Christian Schlittchen - | | Enno Rehling - | Eressea PBEM host | Katja Zedel - | (c) 1998 - 2003 | Henning Peters - | | Ingo Wilken - +-------------------+ Stefan Reich - - This program may not be used, modified or distributed - without prior permission by the authors of Eressea. -*/ - -#ifndef UNGUARD_H -#define UNGUARD_H -#ifdef __cplusplus -extern "C" { -#endif - -/* all types we use are defined here to reduce dependencies */ - struct trigger_type; - struct trigger; - struct region; - struct building; - - extern struct trigger_type tt_unguard; - - extern struct trigger *trigger_unguard(struct building *b); - -#ifdef __cplusplus -} -#endif -#endif diff --git a/src/triggers/unitmessage.c b/src/triggers/unitmessage.c deleted file mode 100644 index 2d869fc49..000000000 --- a/src/triggers/unitmessage.c +++ /dev/null @@ -1,125 +0,0 @@ -/* -+-------------------+ Enno Rehling -| Eressea PBEM host | Christian Schlittchen -| (c) 1998 - 2008 | Katja Zedel -+-------------------+ -This program may not be used, modified or distributed -without prior permission by the authors of Eressea. -*/ - -#include -#include -#include "unitmessage.h" - -/* kernel includes */ -#include -#include -#include - -/* util includes */ -#include -#include -#include -#include -#include -#include -#include -#include - -#include - -/* ansi includes */ -#include -#include -#include -#include - -/*** -** give an item to someone -**/ - -typedef struct unitmessage_data { - struct unit *target; - char *string; - int type; - int level; -} unitmessage_data; - -static void unitmessage_init(trigger * t) -{ - t->data.v = calloc(sizeof(unitmessage_data), 1); -} - -static void unitmessage_free(trigger * t) -{ - unitmessage_data *sd = (unitmessage_data *)t->data.v; - free(sd->string); - free(t->data.v); -} - -static int unitmessage_handle(trigger * t, void *data) -{ - /* call an event handler on unitmessage. - * data.v -> ( variant event, int timer ) - */ - unitmessage_data *td = (unitmessage_data *)t->data.v; - if (td->target && td->target->no) { - struct faction *f = td->target->faction; - const char * str = LOC(f->locale, td->string); - /* bug found in turn 733: sometimes, alps have f*cked up messages */ - if (td->string && td->string[0]) { - addmessage(td->target->region, f, str, td->type, - td->level); - } - } - unused_arg(data); - return 0; -} - -static void unitmessage_write(const trigger * t, struct storage *store) -{ - unitmessage_data *td = (unitmessage_data *)t->data.v; - write_unit_reference(td->target, store); - WRITE_TOK(store, td->string); - WRITE_INT(store, td->type); - WRITE_INT(store, td->level); -} - -static int unitmessage_read(trigger * t, gamedata *data) -{ - unitmessage_data *td = (unitmessage_data *)t->data.v; - char zText[256]; - - int result = read_reference(&td->target, data, read_unit_reference, - resolve_unit); - READ_TOK(data->store, zText, sizeof(zText)); - td->string = _strdup(zText); - READ_INT(data->store, &td->type); - READ_INT(data->store, &td->level); - - if (result == 0 && td->target == NULL) { - return AT_READ_FAIL; - } - return AT_READ_OK; -} - -trigger_type tt_unitmessage = { - "unitmessage", - unitmessage_init, - unitmessage_free, - unitmessage_handle, - unitmessage_write, - unitmessage_read -}; - -trigger *trigger_unitmessage(unit * target, const char *string, int type, - int level) -{ - trigger *t = t_new(&tt_unitmessage); - unitmessage_data *td = (unitmessage_data *)t->data.v; - td->target = target; - td->string = _strdup(string); - td->type = type; - td->level = level; - return t; -} diff --git a/src/triggers/unitmessage.h b/src/triggers/unitmessage.h deleted file mode 100644 index 5b5b0793b..000000000 --- a/src/triggers/unitmessage.h +++ /dev/null @@ -1,37 +0,0 @@ -/* -Copyright (c) 1998-2015, Enno Rehling -Katja Zedel - -Permission to use, copy, modify, and/or distribute this software for any -purpose with or without fee is hereby granted, provided that the above -copyright notice and this permission notice appear in all copies. - -THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR -ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN -ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF -OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -**/ - -#ifndef UNITMESSAGE_H -#define UNITMESSAGE_H -#ifdef __cplusplus -extern "C" { -#endif - - /* all types we use are defined here to reduce dependencies */ - struct trigger_type; - struct trigger; - struct unit; - - extern struct trigger_type tt_unitmessage; - extern struct trigger *trigger_unitmessage(struct unit *target, - const char *string, int type, int level); - -#ifdef __cplusplus -} -#endif -#endif diff --git a/src/upkeep.c b/src/upkeep.c index a9feca37a..8494d7f25 100644 --- a/src/upkeep.c +++ b/src/upkeep.c @@ -16,7 +16,7 @@ #include "alchemy.h" #include "economy.h" -#include "monster.h" +#include "monsters.h" #include "donations.h" #include @@ -47,7 +47,7 @@ static void help_feed(unit * donor, unit * u, int *need_p) { int need = *need_p; int give = get_money(donor) - lifestyle(donor); - give = _min(need, give); + give = MIN(need, give); if (give > 0) { change_money(donor, -give); @@ -59,7 +59,7 @@ static void help_feed(unit * donor, unit * u, int *need_p) } static const char *hunger_damage(const race *rc) { - const char * damage = get_param(rc->parameters, "hunger.damage"); + const char * damage = rc_hungerdamage(rc); if (!damage) { damage = config_get("hunger.damage"); } @@ -98,11 +98,11 @@ static bool hunger(int number, unit * u) deathcounts(r, dead); } if (hpsub > 0) { - /* Jetzt die Schden der nicht gestorbenen abziehen. */ + /* Jetzt die Sch�den der nicht gestorbenen abziehen. */ u->hp -= hpsub; - /* Meldung nur, wenn noch keine fr Tote generiert. */ + /* Meldung nur, wenn noch keine f�r Tote generiert. */ if (dead == 0) { - /* Durch unzureichende Ernhrung wird %s geschwcht */ + /* Durch unzureichende Ern�hrung wird %s geschw�cht */ ADDMSG(&u->faction->msgs, msg_message("malnourish", "unit region", u, r)); } } @@ -115,18 +115,23 @@ void get_food(region * r) unit *u; int peasantfood = rpeasants(r) * 10; int food_rules = config_get_int("rules.food.flags", 0); - + static const race *rc_demon; + static int rc_cache; + + if (rc_changed(&rc_cache)) { + rc_demon = get_race(RC_DAEMON); + } if (food_rules & FOOD_IS_FREE) { return; } /* 1. Versorgung von eigenen Einheiten. Das vorhandene Silber - * wird zunchst so auf die Einheiten aufgeteilt, dass idealerweise - * jede Einheit genug Silber fr ihren Unterhalt hat. */ + * wird zun�chst so auf die Einheiten aufgeteilt, dass idealerweise + * jede Einheit genug Silber f�r ihren Unterhalt hat. */ for (u = r->units; u; u = u->next) { int need = lifestyle(u); - /* Erstmal zurcksetzen */ + /* Erstmal zur�cksetzen */ freset(u, UFL_HUNGER); if (u->ship && (u->ship->flags & SF_FISHING)) { @@ -156,7 +161,7 @@ void get_food(region * r) * food from the peasants - should not be used with WORK */ if (owner != NULL && (get_alliance(owner, u->faction) & HELP_MONEY)) { int rm = rmoney(r); - int use = _min(rm, need); + int use = MIN(rm, need); rsetmoney(r, rm - use); need -= use; } @@ -169,7 +174,7 @@ void get_food(region * r) for (v = r->units; need && v; v = v->next) { if (v->faction == u->faction && help_money(v)) { int give = get_money(v) - lifestyle(v); - give = _min(need, give); + give = MIN(need, give); if (give > 0) { change_money(v, -give); change_money(u, give); @@ -186,7 +191,7 @@ void get_food(region * r) int need = lifestyle(u); faction *f = u->faction; - need -= _max(0, get_money(u)); + need -= MAX(0, get_money(u)); if (need > 0) { unit *v; @@ -225,10 +230,10 @@ void get_food(region * r) } /* 3. bestimmen, wie viele Bauern gefressen werden. - * bei fehlenden Bauern den Dmon hungern lassen + * bei fehlenden Bauern den D�mon hungern lassen */ for (u = r->units; u; u = u->next) { - if (u_race(u) == get_race(RC_DAEMON)) { + if (u_race(u) == rc_demon) { int hungry = u->number; /* use peasantblood before eating the peasants themselves */ @@ -242,7 +247,7 @@ void get_food(region * r) unit *donor = u; while (donor != NULL && hungry > 0) { int blut = get_effect(donor, pt_blood); - blut = _min(blut, hungry); + blut = MIN(blut, hungry); if (blut) { change_effect(donor, pt_blood, -blut); hungry -= blut; @@ -250,7 +255,7 @@ void get_food(region * r) if (donor == u) donor = r->units; while (donor != NULL) { - if (u_race(donor) == get_race(RC_DAEMON) && donor != u) { + if (u_race(donor) == rc_demon && donor != u) { if (get_effect(donor, pt_blood)) { /* if he's in our faction, drain him: */ if (donor->faction == u->faction) @@ -288,9 +293,9 @@ void get_food(region * r) } rsetpeasants(r, peasantfood / 10); - /* 3. Von den berlebenden das Geld abziehen: */ + /* 3. Von den �berlebenden das Geld abziehen: */ for (u = r->units; u; u = u->next) { - int need = _min(get_money(u), lifestyle(u)); + int need = MIN(get_money(u), lifestyle(u)); change_money(u, -need); } } diff --git a/src/upkeep.test.c b/src/upkeep.test.c index 1013314aa..bc53d5bbc 100644 --- a/src/upkeep.test.c +++ b/src/upkeep.test.c @@ -1,4 +1,4 @@ -#include +#include #include "upkeep.h" #include @@ -20,11 +20,10 @@ void test_upkeep_default(CuTest * tc) const item_type *i_silver; test_setup(); - test_create_world(); - + init_resources(); i_silver = it_find("money"); assert(i_silver); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); f1 = test_create_faction(test_create_race("human")); f2 = test_create_faction(test_create_race("human")); assert(f1 && f2); @@ -35,7 +34,7 @@ void test_upkeep_default(CuTest * tc) config_set("rules.food.flags", "0"); i_change(&u1->items, i_silver, 20); get_food(r); - // since u1 and u2 are not allied, u1 should not help u2 with upkeep + /* since u1 and u2 are not allied, u1 should not help u2 with upkeep */ CuAssertIntEquals(tc, 10, i_get(u1->items, i_silver)); CuAssertIntEquals(tc, 0, fval(u1, UFL_HUNGER)); CuAssertIntEquals(tc, UFL_HUNGER, fval(u2, UFL_HUNGER)); @@ -51,11 +50,11 @@ void test_upkeep_hunger_damage(CuTest * tc) const item_type *i_silver; test_setup(); - test_create_world(); + init_resources(); i_silver = it_find("money"); assert(i_silver); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); f1 = test_create_faction(test_create_race("human")); u1 = test_create_unit(f1, r); assert(r && u1); @@ -63,7 +62,7 @@ void test_upkeep_hunger_damage(CuTest * tc) config_set("rules.food.flags", "0"); u1->hp = 100; get_food(r); - // since u1 and u2 are not allied, u1 should not help u2 with upkeep + /* since u1 and u2 are not allied, u1 should not help u2 with upkeep */ CuAssertTrue(tc, u1->hp < 100); test_cleanup(); @@ -76,15 +75,16 @@ void test_upkeep_from_pool(CuTest * tc) const item_type *i_silver; test_setup(); - test_create_world(); + init_resources(); i_silver = it_find("money"); assert(i_silver); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); + assert(r); u1 = test_create_unit(test_create_faction(test_create_race("human")), r); assert(u1); u2 = test_create_unit(u1->faction, r); - assert(r && u1 && u2); + assert(u2); config_set("rules.food.flags", "0"); i_change(&u1->items, i_silver, 30); @@ -109,11 +109,11 @@ void test_upkeep_from_friend(CuTest * tc) const item_type *i_silver; test_setup(); - test_create_world(); + init_resources(); i_silver = it_find("money"); assert(i_silver); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); f1 = test_create_faction(test_create_race("human")); f2 = test_create_faction(test_create_race("human")); assert(f1 && f2); @@ -143,15 +143,15 @@ void test_upkeep_free(CuTest * tc) const item_type *i_silver; test_setup(); - test_create_world(); + init_resources(); i_silver = it_find("money"); assert(i_silver); - r = findregion(0, 0); + r = test_create_region(0, 0, NULL); u = test_create_unit(test_create_faction(test_create_race("human")), r); assert(r && u); - config_set("rules.food.flags", "4"); // FOOD_IS_FREE + config_set("rules.food.flags", "4"); /* FOOD_IS_FREE */ get_food(r); CuAssertIntEquals(tc, 0, i_get(u->items, i_silver)); CuAssertIntEquals(tc, 0, fval(u, UFL_HUNGER)); diff --git a/src/util/CMakeLists.txt b/src/util/CMakeLists.txt index 7eda87132..91ed118ae 100644 --- a/src/util/CMakeLists.txt +++ b/src/util/CMakeLists.txt @@ -14,7 +14,7 @@ gamedata.test.c language.test.c # lists.test.c # log.test.c -# message.test.c +message.test.c # nrmessage.test.c parser.test.c password.test.c @@ -28,6 +28,7 @@ log.test.c # translation.test.c umlaut.test.c unicode.test.c +variant.test.c # xml.test.c ) @@ -56,6 +57,7 @@ strings.c translation.c umlaut.c unicode.c +variant.c xml.c ) FOREACH(_FILE ${_FILES}) diff --git a/src/util/attrib.c b/src/util/attrib.c index e6392aeeb..b3b9c0a6e 100644 --- a/src/util/attrib.c +++ b/src/util/attrib.c @@ -28,6 +28,119 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include #include +#include + +int read_attribs(gamedata *data, attrib **alist, void *owner) { + int result; + if (data->version < ATHASH_VERSION) { + result = a_read_orig(data, alist, owner); + } + else { + result = a_read(data, alist, owner); + } + if (result == AT_READ_DEPR) { + /* handle deprecated attributes */ + attrib *a = *alist; + while (a) { + if (a->type->upgrade) { + a->type->upgrade(alist, a); + } + a = a->nexttype; + } + } + return result; +} + +void write_attribs(storage *store, attrib *alist, const void *owner) +{ +#if RELEASE_VERSION < ATHASH_VERSION + a_write_orig(store, alist, owner); +#else + a_write(store, alist, owner); +#endif +} + +int a_readint(attrib * a, void *owner, struct gamedata *data) +{ + int n; + READ_INT(data->store, &n); + if (a) a->data.i = n; + return AT_READ_OK; +} + +void a_writeint(const attrib * a, const void *owner, struct storage *store) +{ + WRITE_INT(store, a->data.i); +} + +int a_readshorts(attrib * a, void *owner, struct gamedata *data) +{ + int n; + READ_INT(data->store, &n); + a->data.sa[0] = (short)n; + READ_INT(data->store, &n); + a->data.sa[1] = (short)n; + return AT_READ_OK; +} + +void a_writeshorts(const attrib * a, const void *owner, struct storage *store) +{ + WRITE_INT(store, a->data.sa[0]); + WRITE_INT(store, a->data.sa[1]); +} + +int a_readchars(attrib * a, void *owner, struct gamedata *data) +{ + int i; + for (i = 0; i != 4; ++i) { + int n; + READ_INT(data->store, &n); + a->data.ca[i] = (char)n; + } + return AT_READ_OK; +} + +void a_writechars(const attrib * a, const void *owner, struct storage *store) +{ + int i; + + for (i = 0; i != 4; ++i) { + WRITE_INT(store, a->data.ca[i]); + } +} + +#define DISPLAYSIZE 8192 +int a_readstring(attrib * a, void *owner, struct gamedata *data) +{ + char buf[DISPLAYSIZE]; + char * result = 0; + int e; + size_t len = 0; + do { + e = READ_STR(data->store, buf, sizeof(buf)); + if (result) { + result = realloc(result, len + DISPLAYSIZE - 1); + strcpy(result + len, buf); + len += DISPLAYSIZE - 1; + } + else { + result = strdup(buf); + } + } while (e == ENOMEM); + a->data.v = result; + return AT_READ_OK; +} + +void a_writestring(const attrib * a, const void *owner, struct storage *store) +{ + assert(a->data.v); + WRITE_STR(store, (const char *)a->data.v); +} + +void a_finalizestring(attrib * a) +{ + free(a->data.v); +} #define MAXATHASH 61 static attrib_type *at_hash[MAXATHASH]; @@ -40,7 +153,7 @@ static unsigned int __at_hashkey(const char *s) while (i > 0) { key = (s[--i] + key * 37); } - return key & 0x7fffffff; //TODO: V112 http://www.viva64.com/en/V112 Dangerous magic number 0x7fffffff used: return key & 0x7fffffff;. + return key & 0x7fffffff; } void at_register(attrib_type * at) @@ -48,7 +161,7 @@ void at_register(attrib_type * at) attrib_type *find; if (at->read == NULL) { - log_warning("registering non-persistent attribute %s.\n", at->name); //TODO: V111 http://www.viva64.com/en/V111 Call of function 'log_warning' with variable number of arguments. Second argument has memsize type. + log_warning("registering non-persistent attribute %s.\n", at->name); } at->hashkey = __at_hashkey(at->name); find = at_hash[at->hashkey % MAXATHASH]; @@ -56,7 +169,7 @@ void at_register(attrib_type * at) find = find->nexthash; } if (find && find == at) { - log_warning("attribute '%s' was registered more than once\n", at->name); //TODO: V111 http://www.viva64.com/en/V111 Call of function 'log_warning' with variable number of arguments. Second argument has memsize type. + log_warning("attribute '%s' was registered more than once\n", at->name); return; } else { @@ -66,7 +179,7 @@ void at_register(attrib_type * at) at_hash[at->hashkey % MAXATHASH] = at; } -static attrib_type *at_find(unsigned int hk) +static attrib_type *at_find_key(unsigned int hk) { const char *translate[3][2] = { { "zielregion", "targetregion" }, /* remapping: from 'zielregion, heute targetregion */ @@ -80,13 +193,18 @@ static attrib_type *at_find(unsigned int hk) int i = 0; while (translate[i][0]) { if (__at_hashkey(translate[i][0]) == hk) - return at_find(__at_hashkey(translate[i][1])); + return at_find_key(__at_hashkey(translate[i][1])); ++i; } } return find; } +struct attrib_type *at_find(const char *name) { + unsigned int hash = __at_hashkey(name); + return at_find_key(hash); +} + attrib *a_select(attrib * a, const void *data, bool(*compare) (const attrib *, const void *)) { @@ -97,6 +215,7 @@ attrib *a_select(attrib * a, const void *data, attrib *a_find(attrib * a, const attrib_type * at) { + assert(at); while (a && a->type != at) a = a->nexttype; return a; @@ -295,7 +414,7 @@ void at_deprecate(const char * name, int(*reader)(attrib *, void *, struct gamed static int a_read_i(gamedata *data, attrib ** attribs, void *owner, unsigned int key) { int retval = AT_READ_OK; int(*reader)(attrib *, void *, struct gamedata *) = 0; - attrib_type *at = at_find(key); + attrib_type *at = at_find_key(key); attrib * na = 0; if (at) { diff --git a/src/util/attrib.h b/src/util/attrib.h index b9378ab55..6043a960f 100644 --- a/src/util/attrib.h +++ b/src/util/attrib.h @@ -19,6 +19,8 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #ifndef ATTRIB_H #define ATTRIB_H +#include + #ifdef __cplusplus extern "C" { #endif @@ -30,14 +32,14 @@ extern "C" { typedef struct attrib { const struct attrib_type *type; union { - afun f; //TODO: V117 http://www.viva64.com/en/V117 Memsize type is used in the union. - void *v; //TODO: V117 http://www.viva64.com/en/V117 Memsize type is used in the union. + afun f; + void *v; int i; float flt; char c; short s; short sa[2]; - char ca[4]; //TODO: V112 http://www.viva64.com/en/V112 Dangerous magic number 4 used: char ca[4];. + char ca[4]; } data; /* internal data, do not modify: */ struct attrib *next; /* next attribute in the list */ @@ -63,16 +65,19 @@ extern "C" { unsigned int hashkey; } attrib_type; - extern void at_register(attrib_type * at); - extern void at_deprecate(const char * name, int(*reader)(attrib *, void *, struct gamedata *)); + void at_register(attrib_type * at); + void at_deprecate(const char * name, int(*reader)(attrib *, void *, struct gamedata *)); + struct attrib_type *at_find(const char *name); - extern attrib *a_select(attrib * a, const void *data, - bool(*compare) (const attrib *, const void *)); - extern attrib *a_find(attrib * a, const attrib_type * at); - extern attrib *a_add(attrib ** pa, attrib * at); - extern int a_remove(attrib ** pa, attrib * at); - extern void a_removeall(attrib ** a, const attrib_type * at); - extern attrib *a_new(const attrib_type * at); + void write_attribs(struct storage *store, struct attrib *alist, const void *owner); + int read_attribs(struct gamedata *store, struct attrib **alist, void *owner); + + attrib *a_select(attrib * a, const void *data, bool(*compare) (const attrib *, const void *)); + attrib *a_find(attrib * a, const attrib_type * at); + attrib *a_add(attrib ** pa, attrib * at); + int a_remove(attrib ** pa, attrib * at); + void a_removeall(attrib ** a, const attrib_type * at); + attrib *a_new(const attrib_type * at); int a_age(attrib ** attribs, void *owner); int a_read_orig(struct gamedata *data, attrib ** attribs, void *owner); @@ -81,6 +86,20 @@ extern "C" { int a_read(struct gamedata *data, attrib ** attribs, void *owner); void a_write(struct storage *store, const attrib * attribs, const void *owner); + int a_readint(struct attrib *a, void *owner, struct gamedata *); + void a_writeint(const struct attrib *a, const void *owner, + struct storage *store); + int a_readshorts(struct attrib *a, void *owner, struct gamedata *); + void a_writeshorts(const struct attrib *a, const void *owner, + struct storage *store); + int a_readchars(struct attrib *a, void *owner, struct gamedata *); + void a_writechars(const struct attrib *a, const void *owner, + struct storage *store); + int a_readstring(struct attrib *a, void *owner, struct gamedata *); + void a_writestring(const struct attrib *a, const void *owner, + struct storage *); + void a_finalizestring(struct attrib *a); + void attrib_done(void); #define DEFAULT_AGE NULL diff --git a/src/util/attrib.test.c b/src/util/attrib.test.c index 0f189015a..b44afeec2 100644 --- a/src/util/attrib.test.c +++ b/src/util/attrib.test.c @@ -1,8 +1,13 @@ #include #include "attrib.h" +#include + +#include +#include #include #include +#include static void test_attrib_new(CuTest * tc) { @@ -16,7 +21,6 @@ static void test_attrib_new(CuTest * tc) CuAssertPtrEquals(tc, 0, a); } - static void test_attrib_add(CuTest * tc) { attrib_type at_foo = { "foo" }; @@ -52,7 +56,6 @@ static void test_attrib_remove_self(CuTest * tc) { a_removeall(&alist, NULL); } - static void test_attrib_removeall(CuTest * tc) { const attrib_type at_foo = { "foo" }; const attrib_type at_bar = { "bar" }; @@ -110,6 +113,86 @@ static void test_attrib_nexttype(CuTest * tc) a_removeall(&alist, &at_bar); } +static void test_attrib_rwstring(CuTest *tc) { + gamedata data; + storage store; + attrib a = { 0 }; + + test_setup(); + a.data.v = strdup("Hello World"); + mstream_init(&data.strm); + gamedata_init(&data, &store, RELEASE_VERSION); + a_writestring(&a, NULL, &store); + a_finalizestring(&a); + data.strm.api->rewind(data.strm.handle); + a_readstring(&a, NULL, &data); + CuAssertStrEquals(tc, "Hello World", (const char *)a.data.v); + mstream_done(&data.strm); + gamedata_done(&data); + test_cleanup(); +} + +static void test_attrib_rwint(CuTest *tc) { + gamedata data; + storage store; + attrib a = { 0 }; + + test_setup(); + a.data.i = 42; + mstream_init(&data.strm); + gamedata_init(&data, &store, RELEASE_VERSION); + a_writeint(&a, NULL, &store); + a.data.i = 0; + data.strm.api->rewind(data.strm.handle); + a_readint(&a, NULL, &data); + CuAssertIntEquals(tc, 42, a.data.i); + mstream_done(&data.strm); + gamedata_done(&data); + test_cleanup(); +} + +static void test_attrib_rwchars(CuTest *tc) { + gamedata data; + storage store; + attrib a = { 0 }; + + test_setup(); + a.data.ca[0] = 1; + a.data.ca[3] = 42; + mstream_init(&data.strm); + gamedata_init(&data, &store, RELEASE_VERSION); + a_writeint(&a, NULL, &store); + memset(a.data.ca, 0, 4); + data.strm.api->rewind(data.strm.handle); + a_readint(&a, NULL, &data); + CuAssertIntEquals(tc, 1, a.data.ca[0]); + CuAssertIntEquals(tc, 42, a.data.ca[3]); + mstream_done(&data.strm); + gamedata_done(&data); + test_cleanup(); +} + +static void test_attrib_rwshorts(CuTest *tc) { + gamedata data; + storage store; + attrib a = { 0 }; + a.data.sa[0] = -4; + a.data.sa[1] = 42; + + test_setup(); + mstream_init(&data.strm); + gamedata_init(&data, &store, RELEASE_VERSION); + a_writeint(&a, NULL, &store); + memset(a.data.ca, 0, 4); + data.strm.api->rewind(data.strm.handle); + a_readint(&a, NULL, &data); + CuAssertIntEquals(tc, -4, a.data.sa[0]); + CuAssertIntEquals(tc, 42, a.data.sa[1]); + mstream_done(&data.strm); + gamedata_done(&data); + test_cleanup(); +} + CuSuite *get_attrib_suite(void) { CuSuite *suite = CuSuiteNew(); @@ -119,5 +202,9 @@ CuSuite *get_attrib_suite(void) SUITE_ADD_TEST(suite, test_attrib_removeall); SUITE_ADD_TEST(suite, test_attrib_remove_self); SUITE_ADD_TEST(suite, test_attrib_nexttype); + SUITE_ADD_TEST(suite, test_attrib_rwstring); + SUITE_ADD_TEST(suite, test_attrib_rwint); + SUITE_ADD_TEST(suite, test_attrib_rwchars); + SUITE_ADD_TEST(suite, test_attrib_rwshorts); return suite; } diff --git a/src/util/base36.c b/src/util/base36.c index 7edb46027..285e9760e 100644 --- a/src/util/base36.c +++ b/src/util/base36.c @@ -39,9 +39,9 @@ int atoi36(const char *str) while (isalnum(*(unsigned char *)s)) { if (isupper(*(unsigned char *)s)) i = i * 36 + (*s) - 'A' + 10; - else if (islower(*(unsigned char *)s)) + else if (islower(*s)) i = i * 36 + (*s) - 'a' + 10; - else if (isdigit(*(unsigned char *)s)) + else if (isdigit(*s)) i = i * 36 + (*s) - '0'; else break; diff --git a/src/util/bsdstring.c b/src/util/bsdstring.c index 98d2d00f5..0f3d49801 100644 --- a/src/util/bsdstring.c +++ b/src/util/bsdstring.c @@ -13,7 +13,7 @@ int wrptr(char **ptr, size_t * size, int result) { size_t bytes = (size_t)result; if (result < 0) { - // _snprintf buffer was too small + /* buffer was too small */ if (*size > 0) { **ptr = 0; *size = 0; diff --git a/src/util/bsdstring.test.c b/src/util/bsdstring.test.c index 0fffd187c..d4276ef61 100644 --- a/src/util/bsdstring.test.c +++ b/src/util/bsdstring.test.c @@ -32,7 +32,7 @@ static void test_strlcpy(CuTest * tc) CuAssertIntEquals(tc, 4, (int)strlcpy(buffer, "herp", 4)); CuAssertStrEquals(tc, "her", buffer); - CuAssertIntEquals(tc, 4, (int)strlcpy(buffer, "herp", 8)); + CuAssertIntEquals(tc, 4, (int)strlcpy(buffer, "herp", 8)); /*-V666 */ CuAssertStrEquals(tc, "herp", buffer); CuAssertIntEquals(tc, 0x7f, buffer[5]); diff --git a/src/util/crmessage.c b/src/util/crmessage.c index 56f1e5dcd..dd400bf3d 100644 --- a/src/util/crmessage.c +++ b/src/util/crmessage.c @@ -145,21 +145,21 @@ int cr_render(const message * msg, char *buffer, const void *userdata) int cr_string(variant var, char *buffer, const void *userdata) { sprintf(buffer, "\"%s\"", (const char *)var.v); - unused_arg(userdata); + UNUSED_ARG(userdata); return 0; } int cr_int(variant var, char *buffer, const void *userdata) { sprintf(buffer, "%d", var.i); - unused_arg(userdata); + UNUSED_ARG(userdata); return 0; } int cr_ignore(variant var, char *buffer, const void *userdata) { - unused_arg(var); - unused_arg(buffer); - unused_arg(userdata); + UNUSED_ARG(var); + UNUSED_ARG(buffer); + UNUSED_ARG(userdata); return -1; } diff --git a/src/util/dice.c b/src/util/dice.c index e28a4bccd..6fa50261d 100644 --- a/src/util/dice.c +++ b/src/util/dice.c @@ -49,7 +49,7 @@ static int term_eval(const char **sptr) int state = 1; for (;;) { - if (isdigit(*(unsigned char *)c)) { + if (isdigit(*(const unsigned char *)c)) { k = k * 10 + (*c - '0'); } else if (*c == '+' || *c == '-' || *c == 0 || *c == '*' || *c == ')' diff --git a/src/util/event.c b/src/util/event.c index ad5a9e725..78a6d6fbc 100644 --- a/src/util/event.c +++ b/src/util/event.c @@ -153,7 +153,7 @@ static int read_handler(attrib * a, void *owner, gamedata *data) handler_info *hi = (handler_info *)a->data.v; READ_TOK(store, zText, sizeof(zText)); - hi->event = _strdup(zText); + hi->event = strdup(zText); read_triggers(data, &hi->triggers); if (hi->triggers != NULL) { return AT_READ_OK; @@ -200,7 +200,7 @@ void add_trigger(struct attrib **ap, const char *eventname, struct trigger *t) if (a == NULL || a->type != &at_eventhandler) { a = a_add(ap, a_new(&at_eventhandler)); td = (handler_info *)a->data.v; - td->event = _strdup(eventname); + td->event = strdup(eventname); } tp = &td->triggers; while (*tp) @@ -244,7 +244,7 @@ void tt_register(trigger_type * tt) trigger_type *tt_find(const char *name) { trigger_type *tt = triggertypes; - while (tt && strcmp(tt->name, name)) + while (tt && strcmp(tt->name, name)!=0) tt = tt->next; return tt; } diff --git a/src/util/filereader.c b/src/util/filereader.c index ee5ec398c..d36d3ca71 100644 --- a/src/util/filereader.c +++ b/src/util/filereader.c @@ -4,6 +4,7 @@ #include #include +#include #include #include @@ -18,7 +19,7 @@ static void unicode_warning(const char *bp) log_warning("invalid sequence in UTF-8 string: %s\n", bp); } -INLINE_FUNCTION int eatwhite(const char *ptr, size_t * total_size) +static int eatwhite(const char *ptr, size_t * total_size) { int ret = 0; @@ -30,7 +31,7 @@ INLINE_FUNCTION int eatwhite(const char *ptr, size_t * total_size) ret = unicode_utf8_to_ucs4(&ucs, ptr, &size); if (ret != 0) break; - if (!iswxspace((wint_t)ucs)) + if (!iswspace((wint_t)ucs)) break; *total_size += size; ptr += size; @@ -52,7 +53,7 @@ static const char *getbuf_latin1(FILE * F) if (bp == NULL) return NULL; - while (*bp && isxspace(*(unsigned char *)bp)) + while (*bp && isspace(*(unsigned char *)bp)) ++bp; /* eatwhite */ comment = (bool)(comment && cont); @@ -113,15 +114,15 @@ static const char *getbuf_latin1(FILE * F) if (iscntrl(c)) { if (!comment && cp < fbuf + MAXLINE) { - *cp++ = isxspace(c) ? ' ' : '?'; + *cp++ = isspace(c) ? ' ' : '?'; } ++bp; continue; } - else if (isxspace(c)) { + else if (isspace(c)) { if (!quote) { ++bp; - while (*bp && isxspace(*(unsigned char *)bp)) + while (*bp && isspace(*(unsigned char *)bp)) ++bp; /* eatwhite */ if (!comment && *bp && *bp != COMMENT_CHAR && cp < fbuf + MAXLINE) *(cp++) = ' '; @@ -136,7 +137,7 @@ static const char *getbuf_latin1(FILE * F) } else if (c == CONTINUE_CHAR) { const char *end = ++bp; - while (*end && isxspace(*(unsigned char *)end)) + while (*end && isspace(*(unsigned char *)end)) ++end; /* eatwhite */ if (*end == '\0') { bp = end; @@ -269,7 +270,7 @@ static const char *getbuf_utf8(FILE * F) break; } - if (iswxspace((wint_t)ucs)) { + if (iswspace((wint_t)ucs)) { if (!quote) { bp += size; ret = eatwhite(bp, &size); diff --git a/src/util/functions.c b/src/util/functions.c index 82792faaf..3776820eb 100644 --- a/src/util/functions.c +++ b/src/util/functions.c @@ -51,4 +51,5 @@ void register_function(pf_generic fun, const char *name) void free_functions(void) { cb_clear(&cb_functions); -} \ No newline at end of file +} + diff --git a/src/util/gamedata.h b/src/util/gamedata.h index bb1632838..75a750452 100644 --- a/src/util/gamedata.h +++ b/src/util/gamedata.h @@ -32,10 +32,11 @@ #define NOCRYPT_VERSION 352 /* passwords are plaintext again */ #define ATHASH_VERSION 353 /* attribute-type hash, not name */ #define NOWATCH_VERSION 354 /* plane->watchers is gone */ +#define KEYVAL_VERSION 355 /* at_keys has values */ /* unfinished: */ #define CRYPT_VERSION 400 /* passwords are encrypted */ -#define RELEASE_VERSION NOWATCH_VERSION /* current datafile */ +#define RELEASE_VERSION KEYVAL_VERSION /* current datafile */ #define MIN_VERSION INTPAK_VERSION /* minimal datafile we support */ #define MAX_VERSION RELEASE_VERSION /* change this if we can need to read the future datafile, and we can do so */ diff --git a/src/util/goodies.c b/src/util/goodies.c index 2444d0f47..c478bcf83 100644 --- a/src/util/goodies.c +++ b/src/util/goodies.c @@ -113,7 +113,7 @@ int set_email(char **pemail, const char *newmail) free(*pemail); *pemail = 0; if (newmail) { - *pemail = _strdup(newmail); + *pemail = strdup(newmail); } return 0; } diff --git a/src/util/language.c b/src/util/language.c index d8b899742..b3cce61af 100644 --- a/src/util/language.c +++ b/src/util/language.c @@ -86,7 +86,7 @@ locale *get_or_create_locale(const char *name) *lp = l = (locale *)calloc(sizeof(locale), 1); assert_alloc(l); l->hashkey = hkey; - l->name = _strdup(name); + l->name = strdup(name); l->index = nextlocaleindex++; assert(nextlocaleindex <= MAXLOCALES); if (default_locale == NULL) default_locale = l; @@ -101,16 +101,23 @@ locale *get_or_create_locale(const char *name) void make_locales(const char *str) { const char *tok = str; - while (*tok) { - char zText[32]; - while (*tok && *tok != ',') - ++tok; - strncpy(zText, str, tok - str); - zText[tok - str] = 0; - get_or_create_locale(zText); - if (*tok) { - str = ++tok; + while (tok) { + char zText[16]; + size_t len; + + tok = strchr(str, ','); + if (tok) { + len = tok - str; + assert(sizeof(zText) > len); + memcpy(zText, str, len); + str = tok + 1; } + else { + len = strlen(str); + memcpy(zText, str, len); + } + zText[len] = 0; + get_or_create_locale(zText); } } @@ -202,15 +209,15 @@ void locale_setstring(locale * lang, const char *key, const char *value) find->nexthash = lang->strings[id]; lang->strings[id] = find; find->hashkey = hkey; - find->key = _strdup(key); - find->str = _strdup(value); + find->key = strdup(key); + find->str = strdup(value); } else { if (strcmp(find->str, value) != 0) { log_warning("multiple translations for key %s\n", key); } free(find->str); - find->str = _strdup(value); + find->str = strdup(value); } } @@ -232,7 +239,7 @@ char *mkname_buf(const char *space, const char *name, char *buffer) const char *mkname(const char *space, const char *name) { - static char zBuffer[128]; // FIXME: static return value + static char zBuffer[128]; /* FIXME: static return value */ return mkname_buf(space, name, zBuffer); } @@ -265,7 +272,7 @@ void add_translation(struct critbit_tree **cbp, const char *key, int i) { if (str) { size_t len = strlen(str); if (!cb) { - // TODO: this will leak, because we do not know how to clean it up */ + /* TODO: this will leak, because we do not know how to clean it up */ *cbp = cb = (struct critbit_tree *)calloc(1, sizeof(struct critbit_tree)); } len = cb_new_kv(str, len, &i, sizeof(int), buffer); @@ -285,13 +292,17 @@ void init_translations(const struct locale *lang, int ut, const char * (*string_ assert(maxstrings > 0); tokens = get_translations(lang, ut); for (i = 0; i != maxstrings; ++i) { - // TODO: swap the name of s and key + /* TODO: swap the name of s and key */ const char * s = string_cb(i); if (s) { - struct critbit_tree ** cb = (struct critbit_tree **)tokens; const char * key = locale_string(lang, s, false); - if (!key) key = s; - add_translation(cb, key, i); + if (key) { + struct critbit_tree ** cb = (struct critbit_tree **)tokens; + add_translation(cb, key, i); + } + else { + log_warning("no translation for %s in locale %s", s, lang->name); + } } } } @@ -316,10 +327,10 @@ static int locale_init = 0; void init_locales(void) { - int l; + locale * lang; if (locale_init) return; - for (l = 0; localenames[l]; ++l) { - struct locale *lang = get_or_create_locale(localenames[l]); + assert(locales); + for (lang = locales; lang; lang = lang->next) { init_locale(lang); } locale_init = 1; @@ -338,7 +349,7 @@ void free_locales(void) { for (i = UT_PARAMS; i != UT_RACES; ++i) { struct critbit_tree ** cb = (struct critbit_tree **)get_translations(locales, i); if (*cb) { - // TODO: this crashes? + /* TODO: this crashes? */ cb_clear(*cb); free(*cb); } @@ -362,5 +373,5 @@ void free_locales(void) { free(locales); locales = next; } - memset(lstrs, 0, sizeof(lstrs)); // TODO: does this data need to be free'd? + memset(lstrs, 0, sizeof(lstrs)); /* TODO: does this data need to be free'd? */ } diff --git a/src/util/language.h b/src/util/language.h index a8d9096e7..36bc58378 100644 --- a/src/util/language.h +++ b/src/util/language.h @@ -19,7 +19,7 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #ifndef MY_LOCALE_H #define MY_LOCALE_H -#include +#include #ifdef __cplusplus extern "C" { @@ -30,33 +30,34 @@ extern "C" { struct locale; struct critbit_tree; + extern const char *localenames[]; + extern struct locale *default_locale; + extern struct locale *locales; + extern struct locale *nextlocale(const struct locale *lang); + /** managing multiple locales: **/ - extern struct locale *get_locale(const char *name); - extern struct locale *get_or_create_locale(const char *key); + struct locale *get_locale(const char *name); + struct locale *get_or_create_locale(const char *key); void init_locales(void); void free_locales(void); void reset_locales(void); /** operations on locales: **/ - extern void locale_setstring(struct locale *lang, const char *key, + void locale_setstring(struct locale *lang, const char *key, const char *value); - extern const char *locale_getstring(const struct locale *lang, + const char *locale_getstring(const struct locale *lang, const char *key); - extern const char *locale_string(const struct locale *lang, const char *key, bool warn); /* does fallback */ - extern unsigned int locale_index(const struct locale *lang); - extern const char *locale_name(const struct locale *lang); + const char *locale_string(const struct locale *lang, const char *key, bool warn); /* does fallback */ + unsigned int locale_index(const struct locale *lang); + const char *locale_name(const struct locale *lang); - extern const char *mkname(const char *namespc, const char *key); - extern char *mkname_buf(const char *namespc, const char *key, char *buffer); + const char *mkname(const char *namespc, const char *key); + char *mkname_buf(const char *namespc, const char *key, char *buffer); - extern void make_locales(const char *str); + void make_locales(const char *str); #define LOC(lang, s) (lang?locale_string(lang, s, true):s) - extern struct locale *default_locale; - extern struct locale *locales; - extern struct locale *nextlocale(const struct locale *lang); - enum { UT_PARAMS, UT_KEYWORDS, diff --git a/src/util/language.test.c b/src/util/language.test.c index d86f1b2a7..40a6775fa 100644 --- a/src/util/language.test.c +++ b/src/util/language.test.c @@ -1,5 +1,4 @@ #include -#include #include "language.h" #include @@ -17,9 +16,20 @@ static void test_language(CuTest *tc) test_cleanup(); } +static void test_make_locales(CuTest *tc) +{ + test_setup(); + make_locales("aa,bb,cc"); + CuAssertPtrNotNull(tc, get_locale("aa")); + CuAssertPtrNotNull(tc, get_locale("bb")); + CuAssertPtrNotNull(tc, get_locale("cc")); + test_cleanup(); +} + CuSuite *get_language_suite(void) { CuSuite *suite = CuSuiteNew(); SUITE_ADD_TEST(suite, test_language); + SUITE_ADD_TEST(suite, test_make_locales); return suite; } diff --git a/src/util/lists.c b/src/util/lists.c index d61327fa0..be3deeffd 100644 --- a/src/util/lists.c +++ b/src/util/lists.c @@ -127,7 +127,7 @@ void addstrlist(strlist ** SP, const char *s) { strlist *slist = malloc(sizeof(strlist)); slist->next = NULL; - slist->s = _strdup(s); + slist->s = strdup(s); addlist(SP, slist); } diff --git a/src/util/log.c b/src/util/log.c index f61d50848..24ddce757 100644 --- a/src/util/log.c +++ b/src/util/log.c @@ -64,11 +64,11 @@ void log_destroy(log_t *handle) { #define LOG_MAXBACKUPS 5 static int -cp_convert(const char *format, char *buffer, size_t length, int codepage) +cp_convert(const char *format, unsigned char *buffer, size_t length, int codepage) { /* when console output on MSDOS, convert to codepage */ const char *input = format; - char *pos = buffer; + unsigned char *pos = buffer; while (pos + 1 < buffer + length && *input) { size_t size = 0; @@ -137,7 +137,7 @@ static int check_dupe(const char *format, int level) static char last_message[32]; /* STATIC_XCALL: used across calls */ static int dupes = 0; /* STATIC_XCALL: used across calls */ if (strncmp(last_message, format, sizeof(last_message)) == 0) { - // TODO: C6054: String 'last_message' might not be zero - terminated. + /* TODO: C6054: String 'last_message' might not be zero - terminated. */ ++dupes; return 1; } @@ -157,10 +157,10 @@ static void _log_write(FILE * stream, int codepage, const char *format, va_list { if (codepage) { char buffer[MAXLENGTH]; - char converted[MAXLENGTH]; + unsigned char converted[MAXLENGTH]; vsnprintf(buffer, sizeof(buffer), format, args); if (cp_convert(buffer, converted, MAXLENGTH, codepage) == 0) { - fputs(converted, stream); + fputs((char *)converted, stream); } else { /* fall back to non-converted output */ @@ -197,16 +197,16 @@ static void log_write(int flags, const char *module, const char *format, va_list int level = flags & LOG_LEVELS; if (lg->flags & level) { int dupe = 0; - va_list copy; - - va_copy(copy, args); if (lg->flags & LOG_BRIEF) { dupe = check_dupe(format, level); } if (dupe == 0) { + va_list copy; + + va_copy(copy, args); lg->log(lg->data, level, NULL, format, copy); + va_end(copy); } - va_end(copy); } } } @@ -220,7 +220,7 @@ void log_fatal(const char *format, ...) va_end(args); } -void log_error(const char *format, ...) +void log_error(const char *format, ...) /*-V524 */ { va_list args; va_start(args, format); diff --git a/src/util/log.test.c b/src/util/log.test.c index 95cbefa96..1558ee3e3 100644 --- a/src/util/log.test.c +++ b/src/util/log.test.c @@ -9,10 +9,10 @@ void log_string(void *data, int level, const char *module, const char *format, va_list args) { char *str = (char *)data; const char *arg = va_arg(args, const char *); - unused_arg(format); - unused_arg(module); - unused_arg(level); - strncpy(str, arg, 32); + UNUSED_ARG(format); + UNUSED_ARG(module); + UNUSED_ARG(level); + strcpy(str, arg); } static void test_logging(CuTest * tc) diff --git a/src/util/message.c b/src/util/message.c index f19fc3313..c5285835e 100644 --- a/src/util/message.c +++ b/src/util/message.c @@ -16,7 +16,7 @@ #include "strings.h" #include "log.h" -#include "quicklist.h" +#include "selist.h" /* libc includes */ #include @@ -73,7 +73,7 @@ message_type *mt_new(const char *name, const char *args[]) while (args[nparameters]) ++nparameters; } mtype->key = 0; - mtype->name = _strdup(name); + mtype->name = strdup(name); mtype->nparameters = nparameters; if (nparameters > 0) { mtype->pnames = (char **)malloc(sizeof(char *) * nparameters); @@ -87,19 +87,21 @@ message_type *mt_new(const char *name, const char *args[]) for (i = 0; args[i]; ++i) { const char *x = args[i]; const char *spos = strchr(x, ':'); - if (spos == NULL) { - mtype->pnames[i] = _strdup(x); - mtype->types[i] = NULL; + struct arg_type *atype = NULL; + if (spos != NULL) { + atype = find_argtype(spos + 1); + } + if (!atype) { + log_error("unknown argument type %s for message type %s\n", spos + 1, mtype->name); + assert(atype); } else { - char *cp = strncpy((char *)malloc(spos - x + 1), x, spos - x); + char *cp; + cp = malloc(spos - x + 1); + memcpy(cp, x, spos - x); cp[spos - x] = '\0'; mtype->pnames[i] = cp; - mtype->types[i] = find_argtype(spos + 1); - if (mtype->types[i] == NULL) { - log_error("unknown argument type %s for message type %s\n", spos + 1, mtype->name); - } - assert(mtype->types[i]); + mtype->types[i] = atype; } } } @@ -160,7 +162,7 @@ message *msg_create(const struct message_type *mtype, variant args[]) } #define MT_MAXHASH 1021 -static quicklist *messagetypes[MT_MAXHASH]; +static selist *messagetypes[MT_MAXHASH]; static void mt_free(void *val) { message_type *mtype = (message_type *)val; @@ -177,9 +179,9 @@ static void mt_free(void *val) { void mt_clear(void) { int i; for (i = 0; i != MT_MAXHASH; ++i) { - quicklist *ql = messagetypes[i]; - ql_foreach(ql, mt_free); - ql_free(ql); + selist *ql = messagetypes[i]; + selist_foreach(ql, mt_free); + selist_free(ql); messagetypes[i] = 0; } } @@ -187,11 +189,11 @@ void mt_clear(void) { const message_type *mt_find(const char *name) { unsigned int hash = hashstring(name) % MT_MAXHASH; - quicklist *ql = messagetypes[hash]; + selist *ql = messagetypes[hash]; int qi; - for (qi = 0; ql; ql_advance(&ql, &qi, 1)) { - message_type *data = (message_type *)ql_get(ql, qi); + for (qi = 0; ql; selist_advance(&ql, &qi, 1)) { + message_type *data = (message_type *)selist_get(ql, qi); if (strcmp(data->name, name) == 0) { return data; } @@ -213,9 +215,9 @@ static unsigned int mt_id(const message_type * mtype) const message_type *mt_register(message_type * type) { unsigned int hash = hashstring(type->name) % MT_MAXHASH; - quicklist **qlp = messagetypes + hash; + selist **qlp = messagetypes + hash; - if (ql_set_insert(qlp, type)) { + if (selist_set_insert(qlp, type, NULL)) { type->key = mt_id(type); } return type; diff --git a/src/util/message.test.c b/src/util/message.test.c new file mode 100644 index 000000000..d114e33f2 --- /dev/null +++ b/src/util/message.test.c @@ -0,0 +1,29 @@ +#include +#include "message.h" + +#include +#include + +static void test_mt_new(CuTest *tc) +{ + message_type *mt; + test_setup(); + mt = mt_new_va("test", "name:string", "number:int", NULL); + CuAssertPtrNotNull(tc, mt); + CuAssertStrEquals(tc, "test", mt->name); + CuAssertIntEquals(tc, 2, mt->nparameters); + CuAssertPtrNotNull(tc, mt->pnames); + CuAssertStrEquals(tc, "name", mt->pnames[0]); + CuAssertStrEquals(tc, "number", mt->pnames[1]); + CuAssertPtrNotNull(tc, mt->types); + CuAssertStrEquals(tc, "string", mt->types[0]->name); + CuAssertStrEquals(tc, "int", mt->types[1]->name); + test_cleanup(); +} + +CuSuite *get_message_suite(void) +{ + CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_mt_new); + return suite; +} diff --git a/src/util/nrmessage.c b/src/util/nrmessage.c index 79638ec30..4b7c5ea75 100644 --- a/src/util/nrmessage.c +++ b/src/util/nrmessage.c @@ -91,7 +91,7 @@ const nrsection *section_add(const char *name) } if (!*mcp) { nrsection *mc = calloc(sizeof(nrsection), 1); - mc->name = _strdup(name); + mc->name = strdup(name); *mcp = mc; } return *mcp; @@ -130,14 +130,14 @@ const char *string, int level, const char *section) nrt->section = NULL; nrtypes[hash] = nrt; assert(string && *string); - nrt->string = _strdup(string); + nrt->string = strdup(string); *c = '\0'; for (i = 0; i != mtype->nparameters; ++i) { if (i != 0) *c++ = ' '; c += strlcpy(c, mtype->pnames[i], sizeof(zNames)-(c-zNames)); } - nrt->vars = _strdup(zNames); + nrt->vars = strdup(zNames); } } @@ -178,3 +178,16 @@ const char *nrt_section(const nrmessage_type * nrt) { return nrt ? nrt->section : NULL; } + +void free_nrmesssages(void) { + int i; + for (i = 0; i != NRT_MAXHASH; ++i) { + while (nrtypes[i]) { + nrmessage_type *nr = nrtypes[i]; + nrtypes[i] = nr->next; + free(nr->string); + free(nr->vars); + free(nr); + } + } +} diff --git a/src/util/nrmessage.h b/src/util/nrmessage.h index 5d775be9e..6cc02bfe2 100644 --- a/src/util/nrmessage.h +++ b/src/util/nrmessage.h @@ -12,6 +12,9 @@ #ifndef H_UTIL_NRMESSAGE #define H_UTIL_NRMESSAGE + +#include + #ifdef __cplusplus extern "C" { #endif @@ -28,18 +31,20 @@ extern "C" { extern nrsection *sections; - extern void nrt_register(const struct message_type *mtype, + void free_nrmesssages(void); + + void nrt_register(const struct message_type *mtype, const struct locale *lang, const char *script, int level, const char *section); - extern struct nrmessage_type *nrt_find(const struct locale *, + struct nrmessage_type *nrt_find(const struct locale *, const struct message_type *); - extern const char *nrt_string(const struct nrmessage_type *type); - extern const char *nrt_section(const struct nrmessage_type *mt); + const char *nrt_string(const struct nrmessage_type *type); + const char *nrt_section(const struct nrmessage_type *mt); - extern size_t nr_render(const struct message *msg, const struct locale *lang, + size_t nr_render(const struct message *msg, const struct locale *lang, char *buffer, size_t size, const void *userdata); - extern int nr_level(const struct message *msg); - extern const char *nr_section(const struct message *msg); + int nr_level(const struct message *msg); + const char *nr_section(const struct message *msg); /* before: * fogblock;movement:0;de;{unit} konnte von {region} nicht nach {$dir direction} ausreisen, der Nebel war zu dicht. diff --git a/src/util/nrmessage_struct.h b/src/util/nrmessage_struct.h index 6a3a1d9b0..57f8e644d 100644 --- a/src/util/nrmessage_struct.h +++ b/src/util/nrmessage_struct.h @@ -8,8 +8,8 @@ typedef struct nrmessage_type { const struct message_type *mtype; const struct locale *lang; - const char *string; - const char *vars; + char *string; + char *vars; struct nrmessage_type *next; int level; const char *section; diff --git a/src/util/parser.c b/src/util/parser.c index 741fd573f..fca066cb1 100644 --- a/src/util/parser.c +++ b/src/util/parser.c @@ -31,7 +31,7 @@ static int eatwhitespace_c(const char **str_p) for (;;) { unsigned char utf8_character = (unsigned char)*str; if (~utf8_character & 0x80) { - if (!iswxspace(utf8_character)) + if (!iswspace(utf8_character)) break; ++str; } @@ -41,7 +41,7 @@ static int eatwhitespace_c(const char **str_p) log_warning("illegal character sequence in UTF8 string: %s\n", str); break; } - if (!iswxspace((wint_t)ucs)) + if (!iswspace((wint_t)ucs)) break; str += len; } @@ -105,7 +105,7 @@ void skip_token(void) log_warning("illegal character sequence in UTF8 string: %s\n", states->current_token); } } - if (iswxspace((wint_t)ucs) && quotechar == 0) { + if (iswspace((wint_t)ucs) && quotechar == 0) { return; } else { @@ -162,7 +162,7 @@ char *parse_token(const char **str, char *lbuf, size_t buflen) copy = true; escape = false; } - else if (iswxspace((wint_t)ucs)) { + else if (iswspace((wint_t)ucs)) { if (quotechar == 0) break; copy = true; @@ -250,7 +250,8 @@ unsigned int atoip(const char *s) int n; assert(s); - n = atoi(s); + n = (s[0] >='0' && s[0]<='9'); + n = n ? atoi(s) : 0; if (n < 0) n = 0; diff --git a/src/util/parser.h b/src/util/parser.h index 839968480..0c8306931 100644 --- a/src/util/parser.h +++ b/src/util/parser.h @@ -10,6 +10,10 @@ #ifndef UTIL_PARSER_H #define UTIL_PARSER_H + +#include +#include + #ifdef __cplusplus extern "C" { #endif diff --git a/src/util/parser.test.c b/src/util/parser.test.c index da0d8dacb..942aa1866 100644 --- a/src/util/parser.test.c +++ b/src/util/parser.test.c @@ -2,8 +2,16 @@ #include "parser.h" #include +#include #include +static void test_atoip(CuTest *tc) { + CuAssertIntEquals(tc, 0, atoip("ALLES")); + CuAssertIntEquals(tc, 0, errno); + CuAssertIntEquals(tc, 42, atoip("42")); + CuAssertIntEquals(tc, 0, atoip("-1")); +} + static void test_parse_token(CuTest *tc) { char lbuf[8]; const char *tok; @@ -41,11 +49,11 @@ static void test_parse_token_limit_utf8(CuTest *tc) { tok = parse_token(&str, lbuf, sizeof(lbuf)); CuAssertPtrEquals(tc, (void *)(orig + strlen(orig)), (void *)str); - CuAssertStrEquals(tc, tok, "\xc3\xa4\xc3\xb6\xc3\xbc"); // just three letters fit, 6 bytes long + CuAssertStrEquals(tc, tok, "\xc3\xa4\xc3\xb6\xc3\xbc"); /* just three letters fit, 6 bytes long */ tok = parse_token(&str, lbuf, sizeof(lbuf)); CuAssertPtrEquals(tc, NULL, (void *)tok); - str = orig; // now with an extra byte in the front, maxing out lbuf exactly + str = orig; /* now with an extra byte in the front, maxing out lbuf exactly */ tok = parse_token(&str, lbuf, sizeof(lbuf)); CuAssertPtrEquals(tc, (void *)(orig + strlen(orig)), (void *)str); CuAssertStrEquals(tc, tok, "a\xc3\xa4\xc3\xb6\xc3\xbc"); @@ -103,12 +111,6 @@ static void test_getstrtoken(CuTest *tc) { CuAssertPtrEquals(tc, NULL, (void *)getstrtoken()); } -static void test_atoip(CuTest *tc) { - CuAssertIntEquals(tc, 42, atoip("42")); - CuAssertIntEquals(tc, 0, atoip("-42")); - CuAssertIntEquals(tc, 0, atoip("NOPE")); -} - CuSuite *get_parser_suite(void) { CuSuite *suite = CuSuiteNew(); diff --git a/src/util/password.h b/src/util/password.h index e1d49fb6d..ba55f6cb9 100644 --- a/src/util/password.h +++ b/src/util/password.h @@ -1,11 +1,12 @@ #pragma once +#include #define PASSWORD_PLAINTEXT 0 #define PASSWORD_DEFAULT PASSWORD_PLAINTEXT -#define VERIFY_OK 0 // password matches hash -#define VERIFY_FAIL 1 // password is wrong -#define VERIFY_UNKNOWN 2 // hashing algorithm not supported +#define VERIFY_OK 0 +#define VERIFY_FAIL 1 +#define VERIFY_UNKNOWN 2 int password_verify(const char *hash, const char *passwd); const char * password_encode(const char *passwd, int algo); bool password_is_implemented(int algo); diff --git a/src/util/rand.c b/src/util/rand.c index d98b9b8f9..f5c8a28bc 100644 --- a/src/util/rand.c +++ b/src/util/rand.c @@ -28,6 +28,14 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include #include +int lovar(double xpct_x2) +{ + int n = (int)(xpct_x2 * 500) + 1; + if (n == 0) + return 0; + return (rng_int() % n + rng_int() % n) / 1000; +} + /* NormalRand aus python, random.py geklaut, dort ist Referenz auf * den Algorithmus. mu = Mittelwert, sigma = Standardabweichung. * http://de.wikipedia.org/wiki/Standardabweichung#Diskrete_Gleichverteilung.2C_W.C3.BCrfel @@ -95,13 +103,13 @@ void random_source_inject_constant(double value) { r_source = &constant_provider; } -static int i = 0; static double *values; -static int value_size = 0; +static int value_size; +static int value_index; static double array_source (void) { - assert(i 0); value_size = size; if (values) @@ -117,7 +126,7 @@ void random_source_inject_array(double inject[], int size) { for (i=0; i < size; ++i) { values[i] = inject[i]; } - i = 0; + value_index = 0; r_source = &array_provider; } diff --git a/src/util/rand.h b/src/util/rand.h index e9e5d19ee..e9d9062b7 100644 --- a/src/util/rand.h +++ b/src/util/rand.h @@ -1,3 +1,4 @@ +#pragma once /* Copyright (c) 1998-2015, Enno Rehling Katja Zedel + #ifdef __cplusplus extern "C" { #endif /* in dice.c: */ - extern int dice_rand(const char *str); - extern int dice(int count, int value); + int dice_rand(const char *str); + int dice(int count, int value); /* in rand.c: */ - extern double normalvariate(double mu, double sigma); - extern int ntimespprob(int n, double p, double mod); - extern bool chance(double x); + int lovar(double xpct_x2); + double normalvariate(double mu, double sigma); + int ntimespprob(int n, double p, double mod); + bool chance(double x); /* a random source that generates numbers in [0, 1). By calling the random_source_inject... functions you can set a special random source, diff --git a/src/util/strings.h b/src/util/strings.h index 7178cf179..05a435e2c 100644 --- a/src/util/strings.h +++ b/src/util/strings.h @@ -18,6 +18,9 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #ifndef STRINGS_H #define STRINGS_H + +#include + #ifdef __cplusplus extern "C" { #endif diff --git a/src/util/translation.c b/src/util/translation.c index 829a1fe05..fb89a5af9 100644 --- a/src/util/translation.c +++ b/src/util/translation.c @@ -21,6 +21,7 @@ /* libc includes */ #include #include +#include #include #include @@ -353,7 +354,7 @@ static const char *parse(opstack ** stack, const char *inn, return parse_symbol(stack, ++b, userdata); break; default: - if (isdigit(*(unsigned char *)b) || *b == '-' || *b == '+') { + if (isdigit(*(const unsigned char *)b) || *b == '-' || *b == '+') { return parse_int(stack, b); } else @@ -414,7 +415,7 @@ static void eval_lt(opstack ** stack, const void *userdata) int b = opop_i(stack); int rval = (b < a) ? 1 : 0; opush_i(stack, rval); - unused_arg(userdata); + UNUSED_ARG(userdata); } static void eval_eq(opstack ** stack, const void *userdata) @@ -423,7 +424,7 @@ static void eval_eq(opstack ** stack, const void *userdata) int b = opop_i(stack); int rval = (a == b) ? 1 : 0; opush_i(stack, rval); - unused_arg(userdata); + UNUSED_ARG(userdata); } static void eval_add(opstack ** stack, const void *userdata) @@ -431,14 +432,14 @@ static void eval_add(opstack ** stack, const void *userdata) int a = opop_i(stack); int b = opop_i(stack); opush_i(stack, a + b); - unused_arg(userdata); + UNUSED_ARG(userdata); } static void eval_isnull(opstack ** stack, const void *userdata) { /* (int, int) -> int */ void *a = opop_v(stack); opush_i(stack, (a == NULL) ? 1 : 0); - unused_arg(userdata); + UNUSED_ARG(userdata); } static void eval_if(opstack ** stack, const void *userdata) @@ -447,14 +448,14 @@ static void eval_if(opstack ** stack, const void *userdata) void *b = opop_v(stack); int cond = opop_i(stack); opush_v(stack, cond ? b : a); - unused_arg(userdata); + UNUSED_ARG(userdata); } static void eval_strlen(opstack ** stack, const void *userdata) { /* string -> int */ const char *c = (const char *)opop_v(stack); opush_i(stack, c ? (int)strlen(c) : 0); - unused_arg(userdata); + UNUSED_ARG(userdata); } #include "base36.h" diff --git a/src/util/translation.h b/src/util/translation.h index 01c19a72d..76206021b 100644 --- a/src/util/translation.h +++ b/src/util/translation.h @@ -12,6 +12,9 @@ #ifndef H_UTIL_TRANSLATION #define H_UTIL_TRANSLATION + +#include + #ifdef __cplusplus extern "C" { #endif diff --git a/src/util/umlaut.c b/src/util/umlaut.c index 6be0bdde5..d29cb78ac 100644 --- a/src/util/umlaut.c +++ b/src/util/umlaut.c @@ -168,7 +168,7 @@ void addtoken(tnode ** root, const char *str, variant id) next = next->nexthash; if (!next) { tref *ref; - tnode *node = mknode(); // TODO: what is the reason for this empty node to exist? + tnode *node = mknode(); /* TODO: what is the reason for this empty node to exist? */ if (ucs < 'a' || ucs > 'z') { lcs = towlower((wint_t)ucs); diff --git a/src/util/unicode.c b/src/util/unicode.c index 94b6e3d5a..161983ba7 100644 --- a/src/util/unicode.c +++ b/src/util/unicode.c @@ -1,4 +1,4 @@ -/* +/* * +-------------------+ Christian Schlittchen * | | Enno Rehling * | Eressea PBEM host | Katja Zedel @@ -14,6 +14,7 @@ #include #include #include +#include #define B00000000 0x00 #define B10000000 0x80 @@ -31,6 +32,50 @@ #define B00000011 0x03 #define B00000001 0x01 +int unicode_utf8_trim(utf8_t *buf) +{ + int result = 0, ts = 0; + utf8_t *op = buf, *ip = buf, *lc = buf; + while (*ip) { + size_t size = 1; + wint_t wc = *ip; + if (wc & 0x80) { + ucs4_t ucs = 0; + if (ip[1]) { + int ret = unicode_utf8_to_ucs4(&ucs, ip, &size); + if (ret != 0) { + return ret; + } + wc = (wint_t)ucs; + } + else { + wc = *op = '?'; + size = 1; + ++result; + } + } + if (op == buf && iswspace(wc)) { + ++result; + } + else if (iswprint(wc)) { + if (op != ip) { + memmove(op, ip, size); + } + op += size; + if (iswspace(wc)) ++ts; + else { + lc = op; + ts = 0; + } + } else { + ++result; + } + ip += size; + } + *lc = '\0'; + return result + ts; +} + int unicode_utf8_tolower(utf8_t * op, size_t outlen, const utf8_t * ip) { while (*ip) { @@ -49,7 +94,7 @@ int unicode_utf8_tolower(utf8_t * op, size_t outlen, const utf8_t * ip) } low = towlower((wint_t)ucs); if (low == ucs) { - memcpy(op, ip, size); + memmove(op, ip, size); ip += size; op += size; outlen -= size; @@ -71,7 +116,7 @@ int unicode_utf8_tolower(utf8_t * op, size_t outlen, const utf8_t * ip) int unicode_latin1_to_utf8(utf8_t * dst, size_t * outlen, const char *in, -size_t * inlen) + size_t * inlen) { int is = (int)*inlen; int os = (int)*outlen; @@ -104,7 +149,7 @@ size_t * inlen) return (int)*outlen; } -int unicode_utf8_strcasecmp(const utf8_t * a, const char *b) +int unicode_utf8_strcasecmp(const utf8_t * a, const utf8_t *b) { while (*a && *b) { int ret; @@ -147,7 +192,7 @@ int unicode_utf8_strcasecmp(const utf8_t * a, const char *b) /* Convert a UCS-4 character to UTF-8. */ int unicode_ucs4_to_utf8(utf8_t * utf8_character, size_t * size, -ucs4_t ucs4_character) + ucs4_t ucs4_character) { int utf8_bytes; @@ -214,7 +259,7 @@ ucs4_t ucs4_character) /* Convert a UTF-8 encoded character to UCS-4. */ int unicode_utf8_to_ucs4(ucs4_t * ucs4_character, const utf8_t * utf8_string, -size_t * length) + size_t * length) { utf8_t utf8_character = utf8_string[0]; @@ -317,8 +362,8 @@ size_t * length) /** Convert a UTF-8 encoded character to CP437. */ int -unicode_utf8_to_cp437(char *cp_character, const utf8_t * utf8_string, -size_t * length) +unicode_utf8_to_cp437(unsigned char *cp_character, const utf8_t * utf8_string, + size_t * length) { ucs4_t ucs4_character; int result; @@ -330,174 +375,173 @@ size_t * length) } if (ucs4_character < 0x7F) { - *cp_character = (char)ucs4_character; + *cp_character = (unsigned char)ucs4_character; } else { struct { ucs4_t ucs4; unsigned char cp437; } xref[160] = { - { - 0x00A0, 255 }, { - 0x00A1, 173 }, { - 0x00A2, 155 }, { - 0x00A3, 156 }, { - 0x00A5, 157 }, { - 0x00A7, 21 }, { - 0x00AA, 166 }, { - 0x00AB, 174 }, { - 0x00AC, 170 }, { - 0x00B0, 248 }, { - 0x00B1, 241 }, { - 0x00B2, 253 }, { - 0x00B5, 230 }, { - 0x00B6, 20 }, { - 0x00B7, 250 }, { - 0x00BA, 167 }, { - 0x00BB, 175 }, { - 0x00BC, 172 }, { - 0x00BD, 171 }, { - 0x00BF, 168 }, { - 0x00C4, 142 }, { - 0x00C5, 143 }, { - 0x00C6, 146 }, { - 0x00C7, 128 }, { - 0x00C9, 144 }, { - 0x00D1, 165 }, { - 0x00D6, 153 }, { - 0x00DC, 154 }, { - 0x00DF, 225 }, { - 0x00E0, 133 }, { - 0x00E1, 160 }, { - 0x00E2, 131 }, { - 0x00E4, 132 }, { - 0x00E5, 134 }, { - 0x00E6, 145 }, { - 0x00E7, 135 }, { - 0x00E8, 138 }, { - 0x00E9, 130 }, { - 0x00EA, 136 }, { - 0x00EB, 137 }, { - 0x00EC, 141 }, { - 0x00ED, 161 }, { - 0x00EE, 140 }, { - 0x00EF, 139 }, { - 0x00F1, 164 }, { - 0x00F2, 149 }, { - 0x00F3, 162 }, { - 0x00F4, 147 }, { - 0x00F6, 148 }, { - 0x00F7, 246 }, { - 0x00F9, 151 }, { - 0x00FA, 163 }, { - 0x00FB, 150 }, { - 0x00FC, 129 }, { - 0x00FF, 152 }, { - 0x0192, 159 }, { - 0x0393, 226 }, { - 0x0398, 233 }, { - 0x03A3, 228 }, { - 0x03A6, 232 }, { - 0x03A9, 234 }, { - 0x03B1, 224 }, { - 0x03B4, 235 }, { - 0x03B5, 238 }, { - 0x03C0, 227 }, { - 0x03C3, 229 }, { - 0x03C4, 231 }, { - 0x03C6, 237 }, { - 0x2022, 7 }, { - 0x203C, 19 }, { - 0x207F, 252 }, { - 0x20A7, 158 }, { - 0x2190, 27 }, { - 0x2191, 24 }, { - 0x2192, 26 }, { - 0x2193, 25 }, { - 0x2194, 29 }, { - 0x2195, 18 }, { - 0x21A8, 23 }, { - 0x2219, 249 }, { - 0x221A, 251 }, { - 0x221E, 236 }, { - 0x221F, 28 }, { - 0x2229, 239 }, { - 0x2248, 247 }, { - 0x2261, 240 }, { - 0x2264, 243 }, { - 0x2265, 242 }, { - 0x2302, 127 }, { - 0x2310, 169 }, { - 0x2320, 244 }, { - 0x2321, 245 }, { - 0x2500, 196 }, { - 0x2502, 179 }, { - 0x250C, 218 }, { - 0x2510, 191 }, { - 0x2514, 192 }, { - 0x2518, 217 }, { - 0x251C, 195 }, { - 0x2524, 180 }, { - 0x252C, 194 }, { - 0x2534, 193 }, { - 0x253C, 197 }, { - 0x2550, 205 }, { - 0x2551, 186 }, { - 0x2552, 213 }, { - 0x2553, 214 }, { - 0x2554, 201 }, { - 0x2555, 184 }, { - 0x2556, 183 }, { - 0x2557, 187 }, { - 0x2558, 212 }, { - 0x2559, 211 }, { - 0x255A, 200 }, { - 0x255B, 190 }, { - 0x255C, 189 }, { - 0x255D, 188 }, { - 0x255E, 198 }, { - 0x255F, 199 }, { - 0x2560, 204 }, { - 0x2561, 181 }, { - 0x2562, 182 }, { - 0x2563, 185 }, { - 0x2564, 209 }, { - 0x2565, 210 }, { - 0x2566, 203 }, { - 0x2567, 207 }, { - 0x2568, 208 }, { - 0x2569, 202 }, { - 0x256A, 216 }, { - 0x256B, 215 }, { - 0x256C, 206 }, { - 0x2580, 223 }, { - 0x2584, 220 }, { - 0x2588, 219 }, { - 0x258C, 221 }, { - 0x2590, 222 }, { - 0x2591, 176 }, { - 0x2592, 177 }, { - 0x2593, 178 }, { - 0x25A0, 254 }, { - 0x25AC, 22 }, { - 0x25B2, 30 }, { - 0x25BA, 16 }, { - 0x25BC, 31 }, { - 0x25C4, 17 }, { - 0x25CB, 9 }, { - 0x25D8, 8 }, { - 0x25D9, 10 }, { - 0x263A, 1 }, { - 0x263B, 2 }, { - 0x263C, 15 }, { - 0x2640, 12 }, { - 0x2642, 11 }, { - 0x2660, 6 }, { - 0x2663, 5 }, { - 0x2665, 3 }, { - 0x2666, 4 }, { - 0x266A, 13 }, { - 0x266B, 14 } + { 0x00A0, 255 }, + { 0x00A1, 173 }, + { 0x00A2, 155 }, + { 0x00A3, 156 }, + { 0x00A5, 157 }, + { 0x00A7, 21 }, + { 0x00AA, 166 }, + { 0x00AB, 174 }, + { 0x00AC, 170 }, + { 0x00B0, 248 }, + { 0x00B1, 241 }, + { 0x00B2, 253 }, + { 0x00B5, 230 }, + { 0x00B6, 20 }, + { 0x00B7, 250 }, + { 0x00BA, 167 }, + { 0x00BB, 175 }, + { 0x00BC, 172 }, + { 0x00BD, 171 }, + { 0x00BF, 168 }, + { 0x00C4, 142 }, + { 0x00C5, 143 }, + { 0x00C6, 146 }, + { 0x00C7, 128 }, + { 0x00C9, 144 }, + { 0x00D1, 165 }, + { 0x00D6, 153 }, + { 0x00DC, 154 }, + { 0x00DF, 225 }, + { 0x00E0, 133 }, + { 0x00E1, 160 }, + { 0x00E2, 131 }, + { 0x00E4, 132 }, + { 0x00E5, 134 }, + { 0x00E6, 145 }, + { 0x00E7, 135 }, + { 0x00E8, 138 }, + { 0x00E9, 130 }, + { 0x00EA, 136 }, + { 0x00EB, 137 }, + { 0x00EC, 141 }, + { 0x00ED, 161 }, + { 0x00EE, 140 }, + { 0x00EF, 139 }, + { 0x00F1, 164 }, + { 0x00F2, 149 }, + { 0x00F3, 162 }, + { 0x00F4, 147 }, + { 0x00F6, 148 }, + { 0x00F7, 246 }, + { 0x00F9, 151 }, + { 0x00FA, 163 }, + { 0x00FB, 150 }, + { 0x00FC, 129 }, + { 0x00FF, 152 }, + { 0x0192, 159 }, + { 0x0393, 226 }, + { 0x0398, 233 }, + { 0x03A3, 228 }, + { 0x03A6, 232 }, + { 0x03A9, 234 }, + { 0x03B1, 224 }, + { 0x03B4, 235 }, + { 0x03B5, 238 }, + { 0x03C0, 227 }, + { 0x03C3, 229 }, + { 0x03C4, 231 }, + { 0x03C6, 237 }, + { 0x2022, 7 }, + { 0x203C, 19 }, + { 0x207F, 252 }, + { 0x20A7, 158 }, + { 0x2190, 27 }, + { 0x2191, 24 }, + { 0x2192, 26 }, + { 0x2193, 25 }, + { 0x2194, 29 }, + { 0x2195, 18 }, + { 0x21A8, 23 }, + { 0x2219, 249 }, + { 0x221A, 251 }, + { 0x221E, 236 }, + { 0x221F, 28 }, + { 0x2229, 239 }, + { 0x2248, 247 }, + { 0x2261, 240 }, + { 0x2264, 243 }, + { 0x2265, 242 }, + { 0x2302, 127 }, + { 0x2310, 169 }, + { 0x2320, 244 }, + { 0x2321, 245 }, + { 0x2500, 196 }, + { 0x2502, 179 }, + { 0x250C, 218 }, + { 0x2510, 191 }, + { 0x2514, 192 }, + { 0x2518, 217 }, + { 0x251C, 195 }, + { 0x2524, 180 }, + { 0x252C, 194 }, + { 0x2534, 193 }, + { 0x253C, 197 }, + { 0x2550, 205 }, + { 0x2551, 186 }, + { 0x2552, 213 }, + { 0x2553, 214 }, + { 0x2554, 201 }, + { 0x2555, 184 }, + { 0x2556, 183 }, + { 0x2557, 187 }, + { 0x2558, 212 }, + { 0x2559, 211 }, + { 0x255A, 200 }, + { 0x255B, 190 }, + { 0x255C, 189 }, + { 0x255D, 188 }, + { 0x255E, 198 }, + { 0x255F, 199 }, + { 0x2560, 204 }, + { 0x2561, 181 }, + { 0x2562, 182 }, + { 0x2563, 185 }, + { 0x2564, 209 }, + { 0x2565, 210 }, + { 0x2566, 203 }, + { 0x2567, 207 }, + { 0x2568, 208 }, + { 0x2569, 202 }, + { 0x256A, 216 }, + { 0x256B, 215 }, + { 0x256C, 206 }, + { 0x2580, 223 }, + { 0x2584, 220 }, + { 0x2588, 219 }, + { 0x258C, 221 }, + { 0x2590, 222 }, + { 0x2591, 176 }, + { 0x2592, 177 }, + { 0x2593, 178 }, + { 0x25A0, 254 }, + { 0x25AC, 22 }, + { 0x25B2, 30 }, + { 0x25BA, 16 }, + { 0x25BC, 31 }, + { 0x25C4, 17 }, + { 0x25CB, 9 }, + { 0x25D8, 8 }, + { 0x25D9, 10 }, + { 0x263A, 1 }, + { 0x263B, 2 }, + { 0x263C, 15 }, + { 0x2640, 12 }, + { 0x2642, 11 }, + { 0x2660, 6 }, + { 0x2663, 5 }, + { 0x2665, 3 }, + { 0x2666, 4 }, + { 0x266A, 13 }, + { 0x266B, 14 } }; int l = 0, r = 160; while (l != r) { @@ -506,10 +550,14 @@ size_t * length) *cp_character = (char)xref[m].cp437; break; } - else if (xref[m].ucs4 < ucs4_character) - l = m; - else - r = m; + else if (xref[m].ucs4 < ucs4_character) { + if (l == m) l = r; + else l = m; + } + else { + if (r == m) r = l; + else r = m; + } } if (l == r) { *cp_character = '?'; @@ -519,7 +567,7 @@ size_t * length) } /** Convert a UTF-8 encoded character to ASCII, with '?' replacements. */ -int unicode_utf8_to_ascii(char *cp_character, const utf8_t * utf8_string, +int unicode_utf8_to_ascii(unsigned char *cp_character, const utf8_t * utf8_string, size_t *length) { int result = unicode_utf8_to_cp437(cp_character, utf8_string, length); @@ -532,7 +580,7 @@ int unicode_utf8_to_ascii(char *cp_character, const utf8_t * utf8_string, } /** Convert a UTF-8 encoded character to CP1252. */ -int unicode_utf8_to_cp1252(char *cp_character, const utf8_t * utf8_string, +int unicode_utf8_to_cp1252(unsigned char *cp_character, const utf8_t * utf8_string, size_t * length) { ucs4_t ucs4_character; @@ -552,39 +600,38 @@ int unicode_utf8_to_cp1252(char *cp_character, const utf8_t * utf8_string, ucs4_t ucs4; unsigned char cp; } xref[] = { - { - 0x20ac, 0x80 }, { - 0x0081, 0x81 }, { - 0x201a, 0x82 }, { - 0x0192, 0x83 }, { - 0x201e, 0x84 }, { - 0x2026, 0x85 }, { - 0x2020, 0x86 }, { - 0x2021, 0x87 }, { - 0x02c6, 0x88 }, { - 0x2030, 0x89 }, { - 0x0160, 0x8a }, { - 0x2039, 0x8b }, { - 0x0152, 0x8c }, { - 0x008d, 0x8d }, { - 0x017d, 0x8e }, { - 0x008f, 0x8f }, { - 0x0090, 0x90 }, { - 0x2018, 0x91 }, { - 0x2019, 0x92 }, { - 0x201c, 0x93 }, { - 0x201d, 0x94 }, { - 0x2022, 0x95 }, { - 0x2013, 0x96 }, { - 0x2014, 0x97 }, { - 0x02dc, 0x98 }, { - 0x2122, 0x99 }, { - 0x0161, 0x9a }, { - 0x203a, 0x9b }, { - 0x0153, 0x9c }, { - 0x009d, 0x9d }, { - 0x017e, 0x9e }, { - 0x0178, 0x9f } + { 0x0081, 0x81 }, + { 0x008d, 0x8d }, + { 0x008f, 0x8f }, + { 0x0090, 0x90 }, + { 0x009d, 0x9d }, + { 0x0152, 0x8c }, + { 0x0153, 0x9c }, + { 0x0160, 0x8a }, + { 0x0161, 0x9a }, + { 0x0178, 0x9f }, + { 0x017d, 0x8e }, + { 0x017e, 0x9e }, + { 0x0192, 0x83 }, + { 0x02c6, 0x88 }, + { 0x02dc, 0x98 }, + { 0x2013, 0x96 }, + { 0x2014, 0x97 }, + { 0x2018, 0x91 }, + { 0x2019, 0x92 }, + { 0x201a, 0x82 }, + { 0x201c, 0x93 }, + { 0x201d, 0x94 }, + { 0x201e, 0x84 }, + { 0x2022, 0x95 }, + { 0x2026, 0x85 }, + { 0x2020, 0x86 }, + { 0x2021, 0x87 }, + { 0x2030, 0x89 }, + { 0x203a, 0x9b }, + { 0x2039, 0x8b }, + { 0x20ac, 0x80 }, + { 0x2122, 0x99 } }; int l = 0, r = sizeof(xref) / sizeof(xref[0]); while (l != r) { diff --git a/src/util/unicode.h b/src/util/unicode.h index b061cd6fb..4fd860e45 100644 --- a/src/util/unicode.h +++ b/src/util/unicode.h @@ -25,24 +25,24 @@ extern "C" { #include #define USE_UNICODE - typedef unsigned long ucs4_t; + typedef long ucs4_t; typedef char utf8_t; - int unicode_utf8_to_cp437(char *result, const utf8_t * utf8_string, + int unicode_utf8_to_cp437(unsigned char *result, const utf8_t * utf8_string, size_t * length); - int unicode_utf8_to_cp1252(char *result, const utf8_t * utf8_string, + int unicode_utf8_to_cp1252(unsigned char *result, const utf8_t * utf8_string, size_t * length); int unicode_utf8_to_ucs4(ucs4_t * result, const utf8_t * utf8_string, size_t * length); int unicode_ucs4_to_utf8(utf8_t * result, size_t * size, ucs4_t ucs4_character); - int unicode_utf8_to_ascii(char *cp_character, const utf8_t * utf8_string, + int unicode_utf8_to_ascii(unsigned char *cp_character, const utf8_t * utf8_string, size_t *length); int unicode_utf8_strcasecmp(const utf8_t * a, const utf8_t * b); int unicode_latin1_to_utf8(utf8_t * out, size_t * outlen, const char *in, size_t * inlen); - int unicode_utf8_tolower(utf8_t * out, size_t outlen, - const utf8_t * in); + int unicode_utf8_tolower(utf8_t *op, size_t outlen, const utf8_t *ip); + int unicode_utf8_trim(utf8_t *ip); #ifdef __cplusplus } diff --git a/src/util/unicode.test.c b/src/util/unicode.test.c index 958b695e2..7c1c1031a 100644 --- a/src/util/unicode.test.c +++ b/src/util/unicode.test.c @@ -5,6 +5,35 @@ #include #include +static void test_unicode_trim(CuTest * tc) +{ + char buffer[32]; + + strcpy(buffer, "Hello Word"); + CuAssertIntEquals(tc, 0, unicode_utf8_trim(buffer)); + CuAssertStrEquals(tc, "Hello Word", buffer); + + strcpy(buffer, " Hello Word "); + CuAssertIntEquals(tc, 4, unicode_utf8_trim(buffer)); + CuAssertStrEquals(tc, "Hello Word", buffer); + + strcpy(buffer, "Hello Word\n"); + CuAssertIntEquals(tc, 1, unicode_utf8_trim(buffer)); + CuAssertStrEquals(tc, "Hello Word", buffer); + + strcpy(buffer, " Hello Word\t\n"); + CuAssertIntEquals(tc, 4, unicode_utf8_trim(buffer)); + CuAssertStrEquals(tc, "Hello Word", buffer); + + strcpy(buffer, " \t Hello Word"); + CuAssertIntEquals(tc, 3, unicode_utf8_trim(buffer)); + CuAssertStrEquals(tc, "Hello Word", buffer); + + buffer[9] = -61; + CuAssertIntEquals(tc, 1, unicode_utf8_trim(buffer)); + CuAssertStrEquals(tc, "Hello Wor?", buffer); +} + static void test_unicode_tolower(CuTest * tc) { char buffer[32]; @@ -16,9 +45,92 @@ static void test_unicode_tolower(CuTest * tc) CuAssertStrEquals(tc, "helloX", buffer); } +static void test_unicode_utf8_to_other(CuTest *tc) +{ + const unsigned char uchar_str[] = { 0xc3, 0x98, 0xc5, 0xb8, 0xc2, 0x9d, 'l', 0 }; /* ØŸl */ + utf8_t *utf8_str = (utf8_t *)uchar_str; + unsigned char ch; + size_t sz; + CuAssertIntEquals(tc, 0, unicode_utf8_to_cp437(&ch, utf8_str, &sz)); + CuAssertIntEquals(tc, 2, (int)sz); + CuAssertIntEquals(tc, '?', ch); + CuAssertIntEquals(tc, 0, unicode_utf8_to_cp437(&ch, utf8_str+2, &sz)); + CuAssertIntEquals(tc, 2, (int)sz); + CuAssertIntEquals(tc, '?', ch); + CuAssertIntEquals(tc, 0, unicode_utf8_to_cp437(&ch, utf8_str+4, &sz)); + CuAssertIntEquals(tc, 2, (int)sz); + CuAssertIntEquals(tc, '?', ch); + CuAssertIntEquals(tc, 0, unicode_utf8_to_cp437(&ch, utf8_str + 6, &sz)); + CuAssertIntEquals(tc, 1, (int)sz); + CuAssertIntEquals(tc, 'l', ch); + + CuAssertIntEquals(tc, 0, unicode_utf8_to_cp1252(&ch, utf8_str, &sz)); + CuAssertIntEquals(tc, 2, (int)sz); + CuAssertIntEquals(tc, 216, ch); + CuAssertIntEquals(tc, 0, unicode_utf8_to_cp1252(&ch, utf8_str+2, &sz)); + CuAssertIntEquals(tc, 2, (int)sz); + CuAssertIntEquals(tc, 120, ch); + CuAssertIntEquals(tc, 0, unicode_utf8_to_cp1252(&ch, utf8_str + 4, &sz)); + CuAssertIntEquals(tc, 2, (int)sz); + CuAssertIntEquals(tc, 0x9d, ch); + CuAssertIntEquals(tc, 0, unicode_utf8_to_cp1252(&ch, utf8_str + 6, &sz)); + CuAssertIntEquals(tc, 1, (int)sz); + CuAssertIntEquals(tc, 'l', ch); + + CuAssertIntEquals(tc, 0, unicode_utf8_to_ascii(&ch, utf8_str, &sz)); + CuAssertIntEquals(tc, 2, (int)sz); + CuAssertIntEquals(tc, '?', ch); + CuAssertIntEquals(tc, 0, unicode_utf8_to_ascii(&ch, utf8_str + 2, &sz)); + CuAssertIntEquals(tc, 2, (int)sz); + CuAssertIntEquals(tc, '?', ch); + CuAssertIntEquals(tc, 0, unicode_utf8_to_ascii(&ch, utf8_str + 4, &sz)); + CuAssertIntEquals(tc, 2, (int)sz); + CuAssertIntEquals(tc, '?', ch); + CuAssertIntEquals(tc, 0, unicode_utf8_to_ascii(&ch, utf8_str + 6, &sz)); + CuAssertIntEquals(tc, 1, (int)sz); + CuAssertIntEquals(tc, 'l', ch); +} + +static void test_unicode_utf8_to_ucs(CuTest *tc) { + ucs4_t ucs; + size_t sz; + + CuAssertIntEquals(tc, 0, unicode_utf8_to_ucs4(&ucs, "a", &sz)); + CuAssertIntEquals(tc, 'a', ucs); + CuAssertIntEquals(tc, 1, sz); +} + +static void test_unicode_bug2262(CuTest *tc) { + char name[7]; + ucs4_t ucs; + size_t sz; + + strcpy(name, "utende"); + CuAssertIntEquals(tc, 0, unicode_utf8_to_ucs4(&ucs, name, &sz)); + CuAssertIntEquals(tc, 1, sz); + CuAssertIntEquals(tc, 'u', ucs); + CuAssertIntEquals(tc, 0, unicode_utf8_trim(name)); + + name[0] = -4; /* latin1: ü should fail to decode */ + CuAssertIntEquals(tc, EILSEQ, unicode_utf8_to_ucs4(&ucs, name, &sz)); + CuAssertIntEquals(tc, EILSEQ, unicode_utf8_trim(name)); +} + +static void test_unicode_compare(CuTest *tc) +{ + CuAssertIntEquals(tc, 0, unicode_utf8_strcasecmp("ABCDEFG", "abcdefg")); + CuAssertIntEquals(tc, 0, unicode_utf8_strcasecmp("abcdefg123", "ABCDEFG123")); + CuAssertIntEquals(tc, 1, unicode_utf8_strcasecmp("bacdefg123", "ABCDEFG123")); +} + CuSuite *get_unicode_suite(void) { CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_unicode_bug2262); SUITE_ADD_TEST(suite, test_unicode_tolower); + SUITE_ADD_TEST(suite, test_unicode_trim); + SUITE_ADD_TEST(suite, test_unicode_utf8_to_other); + SUITE_ADD_TEST(suite, test_unicode_utf8_to_ucs); + SUITE_ADD_TEST(suite, test_unicode_compare); return suite; } diff --git a/src/util/variant.c b/src/util/variant.c new file mode 100644 index 000000000..af5d690f4 --- /dev/null +++ b/src/util/variant.c @@ -0,0 +1,86 @@ +#include +#include "variant.h" + +#include +#include +#include + +const variant frac_zero = { .sa = { 0, 1 } }; +const variant frac_one = { .sa = { 1, 1 } }; + +static int gcd(int a, int b) { + const int primes[] = { 3, 5, 7, 11, 13, 17, 19, 23, 0 }; + int i = 0, g = 1, p = 2; + while (p && p <= a && p <= b) { + if (a % p == 0 && b % p == 0) { + a /= p; + b /= p; + g *= p; + } + else { + p = primes[i++]; + } + } + return g; +} + +static int lcm(int a, int b) { + int x; + if (a == b) return a; + x = (a * b); + x = (x > 0 ? x : -x) / gcd(a, b); + return x; +} + +bool frac_equal(variant a, variant b) { + return frac_sign(frac_sub(a, b)) == 0; +} + +variant frac_make(int num, int den) +{ + variant v; + int g = gcd(num, den); + num /= g; + den /= g; + if (num < SHRT_MIN || num > SHRT_MAX || den < SHRT_MIN || den > SHRT_MAX) { + int a = abs(num/SHRT_MIN) + 1; + int b = abs(den/SHRT_MIN) + 1; + if (b>a) a = b; + num /= a; + den /= a; + } + v.sa[0] = (short)num; + v.sa[1] = (short)den; + return v; +} + +variant frac_add(variant a, variant b) +{ + int num, den; + den = lcm(a.sa[1], b.sa[1]); + num = a.sa[0] * den / a.sa[1] + b.sa[0] * den / b.sa[1]; + return frac_make(num, den); +} + +variant frac_sub(variant a, variant b) +{ + b.sa[0] = -b.sa[0]; + return frac_add(a, b); +} + +variant frac_mul(variant a, variant b) +{ + return frac_make(a.sa[0] * b.sa[0], a.sa[1] * b.sa[1]); +} + +variant frac_div(variant a, variant b) +{ + return frac_make(a.sa[0] * b.sa[1], a.sa[1] * b.sa[0]); +} + +int frac_sign(variant a) { + if (a.sa[0] == 0) return 0; + if (a.sa[0] > 0 && a.sa[1] > 0) return 1; + if (a.sa[0] < 0 && a.sa[1] < 0) return 1; + return -1; +} diff --git a/src/util/variant.h b/src/util/variant.h index 4559264ed..ae75c5cda 100644 --- a/src/util/variant.h +++ b/src/util/variant.h @@ -1,16 +1,21 @@ +#pragma once + #ifndef STRUCT_VARIANT_H #define STRUCT_VARIANT_H + +#include + #ifdef __cplusplus extern "C" { #endif typedef union variant { - void *v; //TODO: V117 http://www.viva64.com/en/V117 Memsize type is used in the union. + void *v; int i; char c; short s; short sa[2]; - char ca[4]; //TODO: V112 http://www.viva64.com/en/V112 Dangerous magic number 4 used: char ca[4];. + char ca[4]; float f; } variant; @@ -19,6 +24,17 @@ extern "C" { VAR_FLOAT } variant_type; + extern const variant frac_zero; + extern const variant frac_one; + + variant frac_make(int num, int den); + variant frac_add(variant a, variant b); + variant frac_sub(variant a, variant b); + variant frac_mul(variant a, variant b); + variant frac_div(variant a, variant b); + int frac_sign(variant a); + bool frac_equal(variant a, variant b); + #ifdef __cplusplus } #endif diff --git a/src/util/variant.test.c b/src/util/variant.test.c new file mode 100644 index 000000000..37aa3f77e --- /dev/null +++ b/src/util/variant.test.c @@ -0,0 +1,50 @@ +#include +#include "variant.h" + +#include + +static void test_fractions(CuTest *tc) { + variant a, b; + a = frac_make(120, 12000); + CuAssertIntEquals(tc, 1, a.sa[0]); + CuAssertIntEquals(tc, 100, a.sa[1]); + b = frac_make(23, 2300); + a = frac_add(a, b); + CuAssertIntEquals(tc, 1, a.sa[0]); + CuAssertIntEquals(tc, 50, a.sa[1]); + a = frac_mul(a, b); + CuAssertIntEquals(tc, 1, a.sa[0]); + CuAssertIntEquals(tc, 5000, a.sa[1]); + a = frac_div(b, b); + CuAssertIntEquals(tc, 1, a.sa[0]); + CuAssertIntEquals(tc, 1, a.sa[1]); + a = frac_sub(a, a); + CuAssertIntEquals(tc, 0, a.sa[0]); + a = frac_sub(frac_one, a); + CuAssertIntEquals(tc, 1, a.sa[0]); + CuAssertIntEquals(tc, 1, a.sa[1]); + a = frac_mul(a, frac_zero); + CuAssertIntEquals(tc, 0, a.sa[0]); + CuAssertIntEquals(tc, 1, frac_sign(frac_make(-1, -1))); + CuAssertIntEquals(tc, 1, frac_sign(frac_make(1, 1))); + CuAssertIntEquals(tc, -1, frac_sign(frac_make(-1, 1))); + CuAssertIntEquals(tc, -1, frac_sign(frac_make(1, -1))); + CuAssertIntEquals(tc, 0, frac_sign(frac_make(0, 1))); + + /* we reduce large integers by calculating the gcd */ + a = frac_make(480000, 3000); + CuAssertIntEquals(tc, 160, a.sa[0]); + CuAssertIntEquals(tc, 1, a.sa[1]); + + /* if num is too big for a short, and the gcd is 1, we cheat: */ + a = frac_make(480001, 3000); + CuAssertIntEquals(tc, 32000, a.sa[0]); + CuAssertIntEquals(tc, 200, a.sa[1]); +} + +CuSuite *get_variant_suite(void) +{ + CuSuite *suite = CuSuiteNew(); + SUITE_ADD_TEST(suite, test_fractions); + return suite; +} diff --git a/src/util/xml.h b/src/util/xml.h index 921cd3f53..bd22e3e0a 100644 --- a/src/util/xml.h +++ b/src/util/xml.h @@ -13,6 +13,8 @@ #ifndef H_UTIL_XML #define H_UTIL_XML +#include + #ifdef __cplusplus extern "C" { #endif diff --git a/src/volcano.c b/src/volcano.c index 910bd8775..9734bb2cd 100644 --- a/src/volcano.c +++ b/src/volcano.c @@ -55,7 +55,7 @@ static int nb_armor(const unit * u, int index) if (!(u_race(u)->battle_flags & BF_EQUIPMENT)) return 0; - /* Normale Rstung */ + /* Normale R�stung */ for (itm = u->items; itm; itm = itm->next) { const armor_type *atype = itm->type->rtype->atype; @@ -80,7 +80,6 @@ damage_unit(unit * u, const char *dam, bool physical, bool magic) int *hp, hpstack[20]; int h; int i, dead = 0, hp_rem = 0, heiltrank; - double magres = magic_resistance(u); assert(u->number); if (fval(u_race(u), RCF_ILLUSIONARY) || u_race(u) == get_race(RC_SPELL)) { @@ -105,10 +104,14 @@ damage_unit(unit * u, const char *dam, bool physical, bool magic) /* Schaden */ for (i = 0; i < u->number; i++) { int damage = dice_rand(dam); - if (magic) - damage = (int)(damage * (1.0 - magres)); - if (physical) + if (magic) { + variant magres = magic_resistance(u); + magres = frac_sub(frac_make(1, 1), magres); + damage = damage * magres.sa[0] / magres.sa[1]; + } + if (physical) { damage -= nb_armor(u, i); + } hp[i] -= damage; } @@ -118,7 +121,7 @@ damage_unit(unit * u, const char *dam, bool physical, bool magic) heiltrank = 0; /* Sieben Leben */ - if (old_race(u_race(u)) == RC_CAT && (chance(1.0 / 7))) { + if (u_race(u) == get_race(RC_CAT) && (chance(1.0 / 7))) { hp[i] = u->hp / u->number; hp_rem += hp[i]; continue; @@ -169,11 +172,11 @@ static region *rrandneighbour(region * r) for (i = 0; i != MAXDIRECTIONS; i++) { c++; } - /* Zufllig eine auswhlen */ + /* Zuf�llig eine ausw�hlen */ rr = rng_int() % c; - /* Durchzhlen */ + /* Durchz�hlen */ c = -1; for (i = 0; i != MAXDIRECTIONS; i++) { @@ -204,7 +207,7 @@ volcano_destruction(region * volcano, region * r, const char *damage) else { /* Produktion vierteln ... */ a->data.sa[0] = (short)percent; - /* Fr 6-17 Runden */ + /* F�r 6-17 Runden */ a->data.sa[1] = (short)(a->data.sa[1] + time); } @@ -255,6 +258,22 @@ void volcano_outbreak(region * r, region *rn) } } +static bool stop_smoke_chance(void) { + static int cache, percent = 0; + if (config_changed(&cache)) { + percent = config_get_int("volcano.stop.percent", 12); + } + return percent!=0 && (rng_int() % 100) < percent; +} + +static bool outbreak_chance(void) { + static int cache, percent = 0; + if (config_changed(&cache)) { + percent = config_get_int("volcano.outbreak.percent", 8); + } + return percent!=0 && (rng_int() % 100) < percent; +} + void volcano_update(void) { region *r; @@ -270,13 +289,16 @@ void volcano_update(void) r->terrain = t_volcano; } else { - if (rng_int() % 100 < 12) { + if (stop_smoke_chance()) { ADDMSG(&r->msgs, msg_message("volcanostopsmoke", "region", r)); r->terrain = t_volcano; } - else if (r->uid == 1246051340 || (r->age > 20 && rng_int() % 100 < 8)) { + else if (r->uid == 1246051340 || outbreak_chance()) { + /* HACK: a fixed E4-only region-uid in Code. + * FIXME: In E4 gibt es eine Ebene #1246051340, die Smalland heisst. + * da das kein aktiver Vulkan ist, ist dieser Test da nicht idiotisch? + * das sollte bestimmt rn betreffen? */ region *rn; - /* Zufllige Nachbarregion verwsten */ rn = rrandneighbour(r); volcano_outbreak(r, rn); r->terrain = t_volcano; @@ -284,7 +306,8 @@ void volcano_update(void) } } else if (r->terrain == t_volcano) { - if (rng_int() % 100 < 4) { + int volcano_chance = config_get_int("volcano.active.percent", 4); + if (rng_int() % 100 < volcano_chance) { ADDMSG(&r->msgs, msg_message("volcanostartsmoke", "region", r)); r->terrain = t_active; } diff --git a/src/vortex.c b/src/vortex.c index 244c83a29..7b6206d03 100644 --- a/src/vortex.c +++ b/src/vortex.c @@ -14,8 +14,9 @@ #include #include -#include #include +#include + typedef struct dir_lookup { char *name; @@ -32,7 +33,7 @@ void register_special_direction(struct locale *lang, const char *name) if (token) { void **tokens = get_translations(lang, UT_SPECDIR); variant var; - char *str = _strdup(name); + char *str = strdup(name); var.v = str; addtoken((struct tnode **)tokens, token, var); @@ -69,7 +70,7 @@ static void a_freedirection(attrib * a) static int a_agedirection(attrib * a, void *owner) { spec_direction *d = (spec_direction *)(a->data.v); - unused_arg(owner); + (void)owner; --d->duration; return (d->duration > 0) ? AT_AGE_KEEP : AT_AGE_REMOVE; } @@ -80,14 +81,14 @@ static int a_readdirection(attrib * a, void *owner, struct gamedata *data) spec_direction *d = (spec_direction *)(a->data.v); char lbuf[32]; - unused_arg(owner); + (void)owner; READ_INT(store, &d->x); READ_INT(store, &d->y); READ_INT(store, &d->duration); READ_TOK(store, lbuf, sizeof(lbuf)); - d->desc = _strdup(lbuf); + d->desc = strdup(lbuf); READ_TOK(store, lbuf, sizeof(lbuf)); - d->keyword = _strdup(lbuf); + d->keyword = strdup(lbuf); d->active = true; return AT_READ_OK; } @@ -97,7 +98,7 @@ a_writedirection(const attrib * a, const void *owner, struct storage *store) { spec_direction *d = (spec_direction *)(a->data.v); - unused_arg(owner); + (void)owner; WRITE_INT(store, d->x); WRITE_INT(store, d->y); WRITE_INT(store, d->duration); @@ -142,8 +143,8 @@ attrib *create_special_direction(region * r, region * rt, int duration, d->x = rt->x; d->y = rt->y; d->duration = duration; - d->desc = _strdup(desc); - d->keyword = _strdup(keyword); + d->desc = strdup(desc); + d->keyword = strdup(keyword); return a; } diff --git a/src/vortex.h b/src/vortex.h index af41b6111..993f5cdab 100644 --- a/src/vortex.h +++ b/src/vortex.h @@ -1,5 +1,10 @@ +#pragma once + #ifndef H_VORTEX #define H_VORTEX + +#include + #ifdef __cplusplus extern "C" { #endif diff --git a/src/vortex.test.c b/src/vortex.test.c index 21ea6596c..b4940b6bc 100644 --- a/src/vortex.test.c +++ b/src/vortex.test.c @@ -23,7 +23,7 @@ static void test_move_to_vortex(CuTest *tc) { struct locale *lang; test_setup(); - lang = get_or_create_locale("en"); + lang = test_create_locale(); locale_setstring(lang, "vortex", "wirbel"); init_locale(lang); t_plain = test_create_terrain("plain", LAND_REGION | FOREST_REGION | WALK_INTO | CAVALRY_REGION); diff --git a/src/wormhole.c b/src/wormhole.c index 6a115a9f7..462f4e637 100644 --- a/src/wormhole.c +++ b/src/wormhole.c @@ -30,7 +30,7 @@ #include #include #include -#include +#include #include @@ -63,7 +63,7 @@ static int wormhole_age(struct attrib *a, void *owner) region *r = entry->region; unit *u = r->units; - unused_arg(owner); + UNUSED_ARG(owner); for (; u != NULL && maxtransport != 0; u = u->next) { if (u->building == entry) { message *m = NULL; @@ -155,8 +155,8 @@ make_wormhole(const building_type * bt_wormhole, region * r1, region * r2) #define WORMHOLE_CHANCE 10000 -static void select_wormhole_regions(quicklist **rlistp, int *countp) { - quicklist *rlist = 0; +static void select_wormhole_regions(selist **rlistp, int *countp) { + selist *rlist = 0; region *r = regions; int count = 0; @@ -170,7 +170,7 @@ static void select_wormhole_regions(quicklist **rlistp, int *countp) { } if (r == NULL) break; - ql_push(&rlist, r); + selist_push(&rlist, r); ++count; r = r->next; } @@ -179,12 +179,12 @@ static void select_wormhole_regions(quicklist **rlistp, int *countp) { *rlistp = rlist; } -void sort_wormhole_regions(quicklist *rlist, region **match, int count) { - quicklist *ql; +void sort_wormhole_regions(selist *rlist, region **match, int count) { + selist *ql; int qi, i = 0; - for (ql = rlist, qi = 0; i != count; ql_advance(&ql, &qi, 1)) { - match[i++] = (region *)ql_get(ql, qi); + for (ql = rlist, qi = 0; i != count; selist_advance(&ql, &qi, 1)) { + match[i++] = (region *)selist_get(ql, qi); } qsort(match, count, sizeof(region *), cmp_age); } @@ -200,7 +200,7 @@ void make_wormholes(region **match, int count, const building_type *bt_wormhole) void wormholes_update(void) { const building_type *bt_wormhole = bt_find("wormhole"); - quicklist *rlist = 0; + selist *rlist = 0; int count = 0; region **match; @@ -214,7 +214,7 @@ void wormholes_update(void) } match = (region **)malloc(sizeof(region *) * count); sort_wormhole_regions(rlist, match, count); - ql_free(rlist); + selist_free(rlist); make_wormholes(match, count, bt_wormhole); free(match); } diff --git a/src/wormhole.test.c b/src/wormhole.test.c index ec93c5b4c..4f3036200 100644 --- a/src/wormhole.test.c +++ b/src/wormhole.test.c @@ -10,11 +10,11 @@ #include -#include +#include #include -void sort_wormhole_regions(quicklist *rlist, region **match, int count); +void sort_wormhole_regions(selist *rlist, region **match, int count); void make_wormholes(region **match, int count, const building_type *bt_wormhole); static void test_make_wormholes(CuTest *tc) { @@ -42,7 +42,7 @@ static void test_make_wormholes(CuTest *tc) { static void test_sort_wormhole_regions(CuTest *tc) { region *r1, *r2, *match[2]; terrain_type *t_plain; - quicklist *rlist = 0; + selist *rlist = 0; test_setup(); t_plain = test_create_terrain("plain", LAND_REGION); @@ -50,12 +50,12 @@ static void test_sort_wormhole_regions(CuTest *tc) { r2 = test_create_region(1, 0, t_plain); r1->age = 4; r2->age = 2; - ql_push(&rlist, r1); - ql_push(&rlist, r2); + selist_push(&rlist, r1); + selist_push(&rlist, r2); sort_wormhole_regions(rlist, match, 2); CuAssertPtrEquals(tc, r2, match[0]); CuAssertPtrEquals(tc, r1, match[1]); - ql_free(rlist); + selist_free(rlist); test_cleanup(); } diff --git a/src/xmlreport.c b/src/xmlreport.c deleted file mode 100644 index 43d7cc55b..000000000 --- a/src/xmlreport.c +++ /dev/null @@ -1,801 +0,0 @@ -/* -+-------------------+ Enno Rehling -| Eressea PBEM host | Christian Schlittchen -| (c) 1998 - 2008 | Katja Zedel -+-------------------+ -This program may not be used, modified or distributed -without prior permission by the authors of Eressea. -*/ - -#include -#include -#include "xmlreport.h" - -#define XML_ATL_NAMESPACE (const xmlChar *) "http://www.eressea.de/XML/2008/atlantis" -#define XML_XML_LANG (const xmlChar *) "lang" - -/* modules include */ -#include - -/* attributes include */ -#include -#include -#include -#include -#include - -/* gamecode includes */ -#include "laws.h" -#include "economy.h" -#include "move.h" - -/* kernel includes */ -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -/* util includes */ -#include -#include -#include -#include -#include -#include -#include -#include - -#ifdef USE_LIBXML2 -/* libxml2 includes */ -#include -#include -#ifdef USE_ICONV -#include -#endif -#endif - -/* libc includes */ -#include -#include -#include -#include -#include -#include - -#define L10N(x) x - -typedef struct xml_context { - xmlDocPtr doc; - xmlNsPtr ns_atl; - xmlNsPtr ns_xml; -} xml_context; - -static xmlNodePtr -xml_link(report_context * ctx, const xmlChar * rel, const xmlChar * ref) -{ - xml_context *xct = (xml_context *) ctx->userdata; - xmlNodePtr node = xmlNewNode(xct->ns_atl, BAD_CAST "link"); - - xmlNewNsProp(node, xct->ns_atl, BAD_CAST "rel", rel); - xmlNewNsProp(node, xct->ns_atl, BAD_CAST "ref", ref); - - return node; -} - -static const xmlChar *xml_ref_unit(const unit * u) -{ - static char idbuf[20]; - _snprintf(idbuf, sizeof(idbuf), "unit_%d", u->no); - return (const xmlChar *)idbuf; -} - -static const xmlChar *xml_ref_faction(const faction * f) -{ - static char idbuf[20]; - _snprintf(idbuf, sizeof(idbuf), "fctn_%d", f->no); - return (const xmlChar *)idbuf; -} - -static const xmlChar *xml_ref_group(const group * g) -{ - static char idbuf[20]; - _snprintf(idbuf, sizeof(idbuf), "grp_%d", g->gid); - return (const xmlChar *)idbuf; -} - -static const xmlChar *xml_ref_prefix(const char *str) -{ - static char idbuf[20]; - _snprintf(idbuf, sizeof(idbuf), "pref_%s", str); - return (const xmlChar *)idbuf; -} - -static const xmlChar *xml_ref_building(const building * b) -{ - static char idbuf[20]; - _snprintf(idbuf, sizeof(idbuf), "bldg_%d", b->no); - return (const xmlChar *)idbuf; -} - -static const xmlChar *xml_ref_ship(const ship * sh) -{ - static char idbuf[20]; - _snprintf(idbuf, sizeof(idbuf), "shp_%d", sh->no); - return (const xmlChar *)idbuf; -} - -static const xmlChar *xml_ref_region(const region * r) -{ - static char idbuf[20]; - _snprintf(idbuf, sizeof(idbuf), "rgn_%d", r->uid); - return (const xmlChar *)idbuf; -} - -static xmlNodePtr xml_inventory(report_context * ctx, item * items, unit * u) -{ - xml_context *xct = (xml_context *) ctx->userdata; - xmlNodePtr node = xmlNewNode(xct->ns_atl, BAD_CAST "items"); - item *itm; - - for (itm = items; itm; itm = itm->next) { - xmlNodePtr child; - const char *name; - int n; - - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "item")); - report_item(u, itm, ctx->f, NULL, &name, &n, true); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", (xmlChar *) name); - xmlNodeAddContent(child, (xmlChar *) itoab(n, 10)); - } - return node; -} - -#ifdef TODO /*spellbooks */ -static xmlNodePtr -xml_spells(report_context * ctx, quicklist * slist, int maxlevel) -{ - xml_context *xct = (xml_context *) ctx->userdata; - xmlNodePtr child, node = xmlNewNode(xct->ns_atl, BAD_CAST "spells"); - quicklist *ql; - int qi; - - for (ql = slist, qi = 0; ql; ql_advance(&ql, &qi, 1)) { - spell *sp = (spell *) ql_get(ql, qi); - - if (sp->level <= maxlevel) { - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "spell")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "name", BAD_CAST sp->sname); - } - } - return node; -} -#endif - -static xmlNodePtr xml_skills(report_context * ctx, unit * u) -{ - xml_context *xct = (xml_context *) ctx->userdata; - xmlNodePtr child, node = xmlNewNode(xct->ns_atl, BAD_CAST "skills"); - skill *sv; - - for (sv = u->skills; sv != u->skills + u->skill_size; ++sv) { - if (sv->level > 0) { - skill_t sk = sv->id; - int esk = eff_skill(u, sk, u->region); - - child = - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "skill", BAD_CAST itoab(esk, - 10)); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", BAD_CAST skillnames[sk]); - } - } - - return node; -} - -static xmlNodePtr xml_unit(report_context * ctx, unit * u, int mode) -{ - xml_context *xct = (xml_context *) ctx->userdata; - xmlNodePtr node = xmlNewNode(xct->ns_atl, BAD_CAST "unit"); - static const curse_type *itemcloak_ct = 0; - static bool init = false; - xmlNodePtr child; - const char *str, *rcname, *rcillusion; - bool disclosure = (ctx->f == u->faction || omniscient(ctx->f)); - - /* TODO: hitpoints, aura, combatspells, curses */ - - xmlNewNsProp(node, xct->ns_xml, XML_XML_ID, xml_ref_unit(u)); - xmlNewNsProp(node, xct->ns_atl, BAD_CAST "key", BAD_CAST itoa36(u->no)); - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "name", (const xmlChar *)u->name); - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "number", - (const xmlChar *)itoab(u->number, 10)); - - /* optional description */ - str = u_description(u, ctx->f->locale); - if (str) { - child = - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "text", (const xmlChar *)str); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "public"); - if (str != u->display) { - xmlNewNsProp(child, xct->ns_atl, XML_XML_LANG, - BAD_CAST locale_name(ctx->f->locale)); - } - } - - /* possible info */ - if (is_guard(u, GUARD_ALL) != 0) { - xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "guard")); - } - - /* siege */ - if (fval(u, UFL_SIEGE)) { - building *b = usiege(u); - if (b) { - xmlAddChild(node, xml_link(ctx, BAD_CAST "siege", xml_ref_building(b))); - } - } - - /* TODO: temp/alias */ - - /* race information */ - report_race(u, &rcname, &rcillusion); - if (disclosure) { - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "race")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "true"); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", (const xmlChar *)rcname); - if (rcillusion) { - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "race")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "stealth"); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", - (const xmlChar *)rcillusion); - } - } else { - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "race")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", - (const xmlChar *)(rcillusion ? rcillusion : rcname)); - } - - /* group and prefix information. we only write the prefix if we really must */ - if (fval(u, UFL_GROUP)) { - attrib *a = a_find(u->attribs, &at_group); - if (a != NULL) { - const group *g = (const group *)a->data.v; - if (disclosure) { - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "group")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", xml_ref_group(g)); - } else { - const char *prefix = get_prefix(g->attribs); - if (prefix) { - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "prefix")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", - xml_ref_prefix(prefix)); - } - } - } - } - - if (disclosure) { - unit *mage; - - str = uprivate(u); - if (str) { - child = - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "text", - (const xmlChar *)str); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "private"); - } - - /* familiar info */ - mage = get_familiar_mage(u); - if (mage) - xmlAddChild(node, xml_link(ctx, BAD_CAST "familiar_of", - xml_ref_unit(mage))); - - /* combat status */ - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "status")); - xmlSetNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "combat"); - xmlSetNsProp(child, xct->ns_atl, BAD_CAST "value", - BAD_CAST combatstatus[u->status]); - - if (fval(u, UFL_NOAID)) { - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "status")); - xmlSetNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "aid"); - xmlSetNsProp(child, xct->ns_atl, BAD_CAST "value", BAD_CAST "false"); - } - - if (fval(u, UFL_STEALTH)) { - int i = u_geteffstealth(u); - if (i >= 0) { - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "status")); - xmlSetNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "stealth"); - xmlSetNsProp(child, xct->ns_atl, BAD_CAST "value", BAD_CAST itoab(i, - 10)); - } - } - if (fval(u, UFL_HERO)) { - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "status")); - xmlSetNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "hero"); - xmlSetNsProp(child, xct->ns_atl, BAD_CAST "value", BAD_CAST "true"); - } - - if (fval(u, UFL_HUNGER)) { - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "status")); - xmlSetNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "hunger"); - xmlSetNsProp(child, xct->ns_atl, BAD_CAST "value", BAD_CAST "true"); - } - - /* skills */ - if (u->skill_size) { - xmlAddChild(node, xml_skills(ctx, u)); - } - -#ifdef TODO /*spellbooks */ - /* spells */ - if (is_mage(u)) { - sc_mage *mage = get_mage(u); - quicklist *slist = mage->spells; - if (slist) { - xmlAddChild(node, xml_spells(ctx, slist, effskill(u, SK_MAGIC))); - } - } -#endif - } - - /* faction information w/ visibiility */ - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "faction")); - if (disclosure) { - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "true"); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", - xml_ref_faction(u->faction)); - - if (fval(u, UFL_ANON_FACTION)) { - const faction *sf = visible_faction(NULL, u); - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "faction")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "stealth"); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", xml_ref_faction(sf)); - } - } else { - const faction *sf = visible_faction(ctx->f, u); - if (sf == ctx->f) { - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "stealth"); - } - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", xml_ref_faction(sf)); - } - - /* the inventory */ - if (u->items) { - item result[MAX_INVENTORY]; - item *show = NULL; - - if (!init) { - init = true; - itemcloak_ct = ct_find("itemcloak"); - } - - if (disclosure) { - show = u->items; - } else { - bool see_items = (mode >= see_unit); - if (see_items) { - if (itemcloak_ct && curse_active(get_curse(u->attribs, itemcloak_ct))) { - see_items = false; - } else { - see_items = effskill(u, SK_STEALTH) < 3; - } - } - if (see_items) { - int n = report_items(u->items, result, MAX_INVENTORY, u, ctx->f); - assert(n >= 0); - if (n > 0) - show = result; - else - show = NULL; - } else { - show = NULL; - } - } - - if (show) { - xmlAddChild(node, xml_inventory(ctx, show, u)); - } - } - - return node; -} - -static xmlNodePtr xml_resources(report_context * ctx, const seen_region * sr) -{ - xml_context *xct = (xml_context *) ctx->userdata; - xmlNodePtr node = NULL; - resource_report result[MAX_RAWMATERIALS]; - int n, size = report_resources(sr, result, MAX_RAWMATERIALS, ctx->f); - - if (size) { - node = xmlNewNode(xct->ns_atl, BAD_CAST "resources"); - for (n = 0; n < size; ++n) { - if (result[n].number >= 0) { - xmlNodePtr child; - - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "resource")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", - (xmlChar *) result[n].name); - if (result[n].level >= 0) { - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "level", - (xmlChar *) itoab(result[n].level, 10)); - } - xmlNodeAddContent(child, (xmlChar *) itoab(result[n].number, 10)); - } - } - } - return node; -} - -static xmlNodePtr xml_diplomacy(report_context * ctx, const struct ally *allies) -{ - xml_context *xct = (xml_context *) ctx->userdata; - xmlNodePtr child, node = xmlNewNode(xct->ns_atl, BAD_CAST "diplomacy"); - const struct ally *sf; - - for (sf = allies; sf; sf = sf->next) { - int i, status = sf->status; - for (i = 0; helpmodes[i].name; ++i) { - if (sf->faction && (status & helpmodes[i].status) == helpmodes[i].status) { - status -= helpmodes[i].status; - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "status")); - xmlNewNsProp(child, xct->ns_xml, BAD_CAST "faction", - xml_ref_faction(sf->faction)); - xmlNewNsProp(child, xct->ns_xml, BAD_CAST "status", - (xmlChar *) helpmodes[i].name); - } - } - } - return node; -} - -static xmlNodePtr xml_groups(report_context * ctx, const group * groups) -{ - xml_context *xct = (xml_context *) ctx->userdata; - xmlNodePtr child, node = xmlNewNode(xct->ns_atl, BAD_CAST "faction"); - const group *g; - - for (g = groups; g; g = g->next) { - const char *prefix = get_prefix(g->attribs); - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "group")); - xmlNewNsProp(child, xct->ns_xml, XML_XML_ID, xml_ref_group(g)); - xmlNewTextChild(child, xct->ns_atl, BAD_CAST "name", - (const xmlChar *)g->name); - - if (g->allies) - xmlAddChild(child, xml_diplomacy(ctx, g->allies)); - - if (prefix) { - child = xmlAddChild(child, xmlNewNode(xct->ns_atl, BAD_CAST "prefix")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", xml_ref_prefix(prefix)); - } - } - - return node; -} - -static xmlNodePtr xml_faction(report_context * ctx, faction * f) -{ - xml_context *xct = (xml_context *) ctx->userdata; - xmlNodePtr child, node = xmlNewNode(xct->ns_atl, BAD_CAST "faction"); - - /* TODO: alliance, locale */ - - xmlNewNsProp(node, xct->ns_xml, XML_XML_ID, xml_ref_faction(f)); - xmlNewNsProp(node, xct->ns_atl, BAD_CAST "key", BAD_CAST itoa36(f->no)); - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "name", (const xmlChar *)f->name); - if (f->email) - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "email", - (const xmlChar *)f->email); - if (f->banner) { - child = - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "text", - (const xmlChar *)f->banner); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "public"); - } - - if (ctx->f == f) { - xmlAddChild(node, xml_link(ctx, BAD_CAST "race", - BAD_CAST f->race->_name[0])); - - if (f->items) - xmlAddChild(node, xml_inventory(ctx, f->items, NULL)); - if (f->allies) - xmlAddChild(node, xml_diplomacy(ctx, f->allies)); - if (f->groups) - xmlAddChild(node, xml_groups(ctx, f->groups)); - - /* TODO: age, options, score, prefix, magic, immigrants, heroes, nmr, groups */ - } - return node; -} - -static xmlNodePtr -xml_building(report_context * ctx, seen_region * sr, const building * b, - const unit * owner) -{ - xml_context *xct = (xml_context *) ctx->userdata; - xmlNodePtr node = xmlNewNode(xct->ns_atl, BAD_CAST "building"); - xmlNodePtr child; - const char *bname, *billusion; - - xmlNewNsProp(node, xct->ns_xml, XML_XML_ID, xml_ref_building(b)); - xmlNewNsProp(node, xct->ns_atl, BAD_CAST "key", BAD_CAST itoa36(b->no)); - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "name", (const xmlChar *)b->name); - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "size", - (const xmlChar *)itoab(b->size, 10)); - if (b->display && b->display[0]) { - child = - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "text", - (const xmlChar *)b->display); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "public"); - } - if (b->besieged) { - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "siege", - (const xmlChar *)itoab(b->besieged, 10)); - } - if (owner) - xmlAddChild(node, xml_link(ctx, BAD_CAST "owner", xml_ref_unit(owner))); - - report_building(b, &bname, &billusion); - if (owner && owner->faction == ctx->f) { - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "type")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "true"); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", (const xmlChar *)bname); - if (billusion) { - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "type")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "illusion"); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", - (const xmlChar *)billusion); - } - } else { - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "type")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", - (const xmlChar *)(billusion ? billusion : bname)); - } - - return node; -} - -static xmlNodePtr -xml_ship(report_context * ctx, const seen_region * sr, const ship * sh, - const unit * owner) -{ - xml_context *xct = (xml_context *) ctx->userdata; - xmlNodePtr child, node = xmlNewNode(xct->ns_atl, BAD_CAST "ship"); - - xmlNewNsProp(node, xct->ns_xml, XML_XML_ID, xml_ref_ship(sh)); - xmlNewNsProp(node, xct->ns_atl, BAD_CAST "key", BAD_CAST itoa36(sh->no)); - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "name", - (const xmlChar *)sh->name); - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "size", - (const xmlChar *)itoab(sh->size, 10)); - - if (sh->damage) { - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "damage", - (const xmlChar *)itoab(sh->damage, 10)); - } - - if (fval(sr->r->terrain, SEA_REGION) && sh->coast != NODIRECTION) { - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "coast", - BAD_CAST directions[sh->coast]); - } - - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "type")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", - (const xmlChar *)sh->type->name[0]); - - if (sh->display && sh->display[0]) { - child = - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "text", - (const xmlChar *)sh->display); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "public"); - } - - if (owner) - xmlAddChild(node, xml_link(ctx, BAD_CAST "owner", xml_ref_unit(owner))); - - if ((owner && owner->faction == ctx->f) || omniscient(ctx->f)) { - int n = 0, p = 0; - getshipweight(sh, &n, &p); - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "cargo", - (const xmlChar *)itoab(n, 10)); - } - return node; -} - -static xmlNodePtr xml_region(report_context * ctx, seen_region * sr) -{ - xml_context *xct = (xml_context *) ctx->userdata; - const region *r = sr->r; - xmlNodePtr node = xmlNewNode(xct->ns_atl, BAD_CAST "region"); - xmlNodePtr child; - int stealthmod = stealth_modifier(sr->mode); - unit *u; - ship *sh = r->ships; - building *b = r->buildings; - plane *pl = rplane(r); - int nx = r->x, ny = r->y; - - pnormalize(&nx, &ny, pl); - adjust_coordinates(ctx->f, &nx, &ny, pl, r); - - /* TODO: entertain-quota, recruits, salary, prices, curses, borders, apparitions (Schemen), spells, travelthru, messages */ - xmlNewNsProp(node, xct->ns_xml, XML_XML_ID, xml_ref_region(r)); - - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "coordinate")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "x", xml_i(nx)); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "y", xml_i(ny)); - if (pl && pl->name) { - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "plane", (xmlChar *) pl->name); - } - - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "terrain")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", (xmlChar *) terrain_name(r)); - - if (r->land != NULL) { - child = - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "name", - (const xmlChar *)r->land->name); - if (r->land->items) { - xmlAddChild(node, xml_inventory(ctx, r->land->items, NULL)); - } - } - if (r->display && r->display[0]) { - child = - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "text", - (const xmlChar *)r->display); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "rel", BAD_CAST "public"); - } - child = xml_resources(ctx, sr); - if (child) - xmlAddChild(node, child); - - child = xmlNewNode(xct->ns_atl, BAD_CAST "terrain"); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "ref", - (const xmlChar *)terrain_name(r)); - - if (sr->mode > see_neighbour) { - /* report all units. they are pre-sorted in an efficient manner */ - u = r->units; - while (b) { - while (b && (!u || u->building != b)) { - xmlAddChild(node, xml_building(ctx, sr, b, NULL)); - b = b->next; - } - if (b) { - child = xmlAddChild(node, xml_building(ctx, sr, b, u)); - while (u && u->building == b) { - xmlAddChild(child, xml_unit(ctx, u, sr->mode)); - u = u->next; - } - b = b->next; - } - } - while (u && !u->ship) { - if (stealthmod > INT_MIN) { - if (u->faction == ctx->f || cansee(ctx->f, r, u, stealthmod)) { - xmlAddChild(node, xml_unit(ctx, u, sr->mode)); - } - } - u = u->next; - } - while (sh) { - while (sh && (!u || u->ship != sh)) { - xmlAddChild(node, xml_ship(ctx, sr, sh, NULL)); - sh = sh->next; - } - if (sh) { - child = xmlAddChild(node, xml_ship(ctx, sr, sh, u)); - while (u && u->ship == sh) { - xmlAddChild(child, xml_unit(ctx, u, sr->mode)); - u = u->next; - } - sh = sh->next; - } - } - } - return node; -} - -static xmlNodePtr report_root(report_context * ctx) -{ - int qi; - quicklist *address; - region *r = ctx->first, *rend = ctx->last; - xml_context *xct = (xml_context *) ctx->userdata; - xmlNodePtr node, child, xmlReport = xmlNewNode(NULL, BAD_CAST "atlantis"); - const char *mailto = locale_string(ctx->f->locale, "mailto"); - const char *mailcmd = locale_string(ctx->f->locale, "mailcmd"); - char zText[128]; - /* TODO: locale, age, options, messages */ - - xct->ns_xml = xmlNewNs(xmlReport, XML_XML_NAMESPACE, BAD_CAST "xml"); - xct->ns_atl = xmlNewNs(xmlReport, XML_ATL_NAMESPACE, NULL); - xmlSetNs(xmlReport, xct->ns_atl); - - node = xmlAddChild(xmlReport, xmlNewNode(xct->ns_atl, BAD_CAST "server")); - if (mailto) { - _snprintf(zText, sizeof(zText), "mailto:%s?subject=%s", mailto, mailcmd); - child = xmlAddChild(node, xmlNewNode(xct->ns_atl, BAD_CAST "delivery")); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "method", BAD_CAST "mail"); - xmlNewNsProp(child, xct->ns_atl, BAD_CAST "href", BAD_CAST zText); - } - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "game", - (xmlChar *) global.gamename); - strftime(zText, sizeof(zText), "%Y-%m-%dT%H:%M:%SZ", - gmtime(&ctx->report_time)); - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "time", (xmlChar *) zText); - xmlNewTextChild(node, xct->ns_atl, BAD_CAST "turn", (xmlChar *) itoab(turn, - 10)); - - for (qi = 0, address = ctx->addresses; address; ql_advance(&address, &qi, 1)) { - faction *f = (faction *) ql_get(address, qi); - xmlAddChild(xmlReport, xml_faction(ctx, f)); - } - - for (; r != rend; r = r->next) { - seen_region *sr = find_seen(ctx->seen, r); - if (sr != NULL) - xmlAddChild(xmlReport, xml_region(ctx, sr)); - } - return xmlReport; -} - -/* main function of the xmlreport. creates the header and traverses all regions */ -static int -report_xml(const char *filename, report_context * ctx, const char *encoding) -{ - xml_context xct; - xmlDocPtr doc = xmlNewDoc(BAD_CAST "1.0"); - - xct.doc = doc; - assert(ctx->userdata == NULL); - ctx->userdata = &xct; - - xmlDocSetRootElement(doc, report_root(ctx)); - xmlKeepBlanksDefault(0); - xmlSaveFormatFileEnc(filename, doc, "utf-8", 1); - xmlFreeDoc(doc); - - ctx->userdata = NULL; - - return 0; -} - -void register_xr(void) -{ - register_reporttype("xml", &report_xml, 1 << O_XML); -#ifdef USE_ICONV - utf8 = iconv_open("UTF-8", ""); -#endif -} - -void xmlreport_cleanup(void) -{ -#ifdef USE_ICONV - iconv_close(utf8); -#endif -} diff --git a/src/xmlreport.h b/src/xmlreport.h deleted file mode 100644 index 676fbd1a2..000000000 --- a/src/xmlreport.h +++ /dev/null @@ -1,26 +0,0 @@ -/* - +-------------------+ Christian Schlittchen - | Eressea PBEM host | Katja Zedel - | (c) 1998 - 2005 | Enno Rehling - +-------------------+ - - This program may not be used, modified or distributed - without prior permission by the authors of Eressea. -*/ -#ifndef H_GC_XMLREPORT -#define H_GC_XMLREPORT -#ifdef __cplusplus -extern "C" { -#endif - -#include - - extern void xmlreport_cleanup(void); - extern void register_xr(void); - - extern int crwritemap(const char *filename); - -#ifdef __cplusplus -} -#endif -#endif diff --git a/storage b/storage index 18cc3bb8f..2117191d4 160000 --- a/storage +++ b/storage @@ -1 +1 @@ -Subproject commit 18cc3bb8f8906237915eb31c9899f95340318087 +Subproject commit 2117191d4ad75e1eb14809878bc71d15b20a5d86 diff --git a/tests/data/184.dat b/tests/data/184.dat index d219f92dd..a1ee8802a 100644 Binary files a/tests/data/184.dat and b/tests/data/184.dat differ diff --git a/tests/eressea.ini b/tests/eressea.ini index e84171d45..faf4b1b9e 100644 --- a/tests/eressea.ini +++ b/tests/eressea.ini @@ -1,10 +1,8 @@ -[eressea] -base = . -report = reports +[game] +name = Eressea +id = 2 +email = eressea-server@kn-bremen.de verbose = 0 -lomem = 0 -debug = 0 -memcheck = 0 locales = de,en [lua] diff --git a/tests/orders.184 b/tests/orders.184 index 980993481..315c180d5 100644 --- a/tests/orders.184 +++ b/tests/orders.184 @@ -1,4 +1,4 @@ -ERESSEA 6rLo "6rLo" +PARTEI 6rLo "6rLo" EINHEIT 7Lgf NACH NW NW NAECHSTER @@ -6,7 +6,8 @@ ERESSEA w86y "w86y" EINHEIT uc3u STIRB "mrqa" NAECHSTER -ERESSEA ngij "ngij" + +FACTION ngij "ngij" EINHEIT iwbz HELFE w86y ALLES EINHEIT j536 diff --git a/tests/run-turn.sh b/tests/run-turn.sh index d47ac81a2..9297278c3 100755 --- a/tests/run-turn.sh +++ b/tests/run-turn.sh @@ -53,7 +53,13 @@ assert_grep_count reports/$CRFILE '^BURG' 1 assert_grep_count reports/$CRFILE '^EINHEIT' 2 assert_grep_count reports/$CRFILE '^GEGENSTAENDE' 2 +assert_grep_count reports/185-heg.cr ';Baeume' 4 +assert_grep_count reports/185-heg.cr '"B.ume";type' 4 +assert_grep_count reports/185-heg.cr '"Pferde";type' 6 +assert_grep_count reports/185-heg.nr 'erblickt' 6 +assert_grep_count reports/185-heg.cr '"lighthouse";visibility' 6 +assert_grep_count reports/185-heg.cr '"neighbour";visibility' 11 assert_grep_count reports/185-6rLo.cr '^EINHEIT' 2 assert_grep_count reports/185-6rLo.cr '^REGION' 13 echo "integration tests: PASS" -cleanup +#cleanup diff --git a/tests/runtests.bat b/tests/runtests.bat index e79d27baa..7a58e5762 100644 --- a/tests/runtests.bat +++ b/tests/runtests.bat @@ -3,12 +3,12 @@ IF EXIST ..\build-vs10 SET BUILD=..\build-vs10\eressea\Debug IF EXIST ..\build-vs11 SET BUILD=..\build-vs11\eressea\Debug IF EXIST ..\build-vs12 SET BUILD=..\build-vs12\eressea\Debug IF EXIST ..\build-vs14 SET BUILD=..\build-vs14\eressea\Debug +IF EXIST ..\build-vs15 SET BUILD=..\build-vs15\eressea\Debug SET SERVER=%BUILD%\eressea.exe %BUILD%\test_eressea.exe %SERVER% ..\scripts\run-tests.lua -%SERVER% ..\scripts\run-tests-e2.lua -%SERVER% ..\scripts\run-tests-e3.lua -%SERVER% ..\scripts\run-tests-e4.lua +%SERVER% -re2 ..\scripts\run-tests-e2.lua +%SERVER% -re3 ..\scripts\run-tests-e3.lua PAUSE RMDIR /s /q reports DEL score score.alliances datum turn diff --git a/tests/write-reports.sh b/tests/write-reports.sh index 2183b17dd..5621e84a9 100755 --- a/tests/write-reports.sh +++ b/tests/write-reports.sh @@ -16,10 +16,10 @@ while [ ! -d $ROOT/.git ]; do ROOT=`dirname $ROOT` done -set -e +#set -e cd $ROOT/tests setup -cleanup +#cleanup VALGRIND=`which valgrind` TESTS=../Debug/eressea/test_eressea SERVER=../Debug/eressea/eressea @@ -34,6 +34,14 @@ $VALGRIND $SERVER -t 184 ../scripts/reports.lua [ -d reports ] || quit 4 "no reports directory created" CRFILE=184-zvto.cr grep -q PARTEI reports/$CRFILE || quit 1 "CR did not contain any factions" +grep -q -E '"B.ume";type' reports/$CRFILE || \ + quit 1 "regions did not contain trees" +grep -q -E '"Silber";type' reports/$CRFILE || \ + quit 1 "regions did not contain silver" +grep -q '"Bauern";type' reports/$CRFILE || \ + quit 1 "regions did not contain peasants" +grep -q '"Sch..linge";type' reports/$CRFILE || \ + quit 1 "regions did not contain saplings" grep -q REGION reports/$CRFILE || quit 2 "CR did not contain any regions" grep -q SCHIFF reports/$CRFILE || quit 3 "CR did not contain any ships" grep -q BURG reports/$CRFILE || quit 4 "CR did not contain any buildings" diff --git a/tolua b/tolua deleted file mode 160000 index 32cc6a3e7..000000000 --- a/tolua +++ /dev/null @@ -1 +0,0 @@ -Subproject commit 32cc6a3e78238278bc5b1fb8566526558e5afdda diff --git a/vs2015-build.bat b/vs2015-build.bat index 6c39659d1..262d498bf 100644 --- a/vs2015-build.bat +++ b/vs2015-build.bat @@ -9,5 +9,5 @@ IF exist build-vs%VSVERSION% goto HAVEDIR mkdir build-vs%VSVERSION% :HAVEDIR cd build-vs%VSVERSION% -"%ProgramFiles(x86)%\CMake\bin\cmake.exe" -G "Visual Studio %VSVERSION%" -DCMAKE_PREFIX_PATH="%ProgramFiles(x86)%/Lua/5.1;%ERESSEA%/dependencies-win32" -DCMAKE_MODULE_PATH="%SRCDIR%/cmake/Modules" -DCMAKE_SUPPRESS_REGENERATION=TRUE .. +"%ProgramFiles%\CMake\bin\cmake.exe" -G "Visual Studio %VSVERSION%" -DCMAKE_PREFIX_PATH="%ProgramFiles(x86)%/Lua/5.1;%ERESSEA%/dependencies-win32" -DCMAKE_MODULE_PATH="%SRCDIR%/cmake/Modules" -DCMAKE_SUPPRESS_REGENERATION=TRUE .. PAUSE diff --git a/vs2017-build.bat b/vs2017-build.bat new file mode 100644 index 000000000..7503153fe --- /dev/null +++ b/vs2017-build.bat @@ -0,0 +1,13 @@ +@ECHO OFF +SET VSVERSION=15 +SET SRCDIR=%CD% +CD .. +SET ERESSEA=%CD% + +CD %SRCDIR% +IF exist build-vs%VSVERSION% goto HAVEDIR +mkdir build-vs%VSVERSION% +:HAVEDIR +cd build-vs%VSVERSION% +"%ProgramFiles%\CMake\bin\cmake.exe" -G "Visual Studio %VSVERSION%" -DCMAKE_PREFIX_PATH="%ProgramFiles(x86)%/Lua/5.1;%ERESSEA%/dependencies-win32" -DCMAKE_MODULE_PATH="%SRCDIR%/cmake/Modules" -DCMAKE_SUPPRESS_REGENERATION=TRUE .. +PAUSE