What's new

B??d War System!

lewczak16

User
Joined
May 20, 2009
Messages
48
Reaction score
0
Kiedy chc? zaakceptowa? wojn? wyskakuje b??d w konsoli:
[Error - TalkAction Interface]
data/talkactions/scripts/war.luanSay
Description:
data/talkactions/scripts/war.lua:70: attempt to call global 'doGuildAddEnemy' (a nil value)
stack traceback:
data/talkactions/scripts/war.lua:70: in function <data/talkactions/scripts/war.lua:1>
Pomocy!
 

root9

User
Joined
May 6, 2010
Messages
40
Reaction score
1
Odp: B??d War System!

skasuj 1 na pocz?tku w skrypcie guildwars.xml

_____________________________________________________________________
# IP: Crazera.Sytes.Net
# Tibia version: 8.54/8.55
# Online: 24/7
# World type: PVP (Protection level: 1)
# House rent: Disabled

Exp Stages:
1 lvl <-> 30 lvl -> 10x Exp
30 lvl <-> 50 lvl -> 7x Exp
50 lvl <-> 90 lvl -> 5x Exp
90 lvl <-> 110 lvl -> 4x Exp
110 lvl <-> 160 lvl -> 3x Exp
160 lvl <-> ??? lvl -> 2x Exp


Magic level: 3x
Skill: 7x
Loot: 2x

Frags & Skull system
# PZ Lock: 1 min
# White Skull Time: 15 min
# Kills to Red skull: 3 kills
# Red skull length: 3 days
# Black skull length: 6 days


Dedicated Server
Frequency: Intel Bi Xeon Quad 8x 2.00+ GHz
Ram: 16 GB DDR2
Hard drive: Intel SSD X25-M 2x 80 GB - SATA2
Connection: Throughput 1 Gbit - no freezes no lags


* Othres
- War System
- Lottery System
- Players Record System
- Forum
 

Shadok

Advanced User
Joined
Feb 26, 2010
Messages
381
Reaction score
65
Odp: B??d War System!

Pokaz plik war.lua
Bo tak to to nie wiem.
Nie przewiduje co jest w tym pliku ;p

Regards,
Shadok
 

lewczak16

User
Joined
May 20, 2009
Messages
48
Reaction score
0
Odp: B??d War System!

moje war.lua, probowalem juz 2 innych war systemow w kazdym to samo wiec to musi byc wina czegos innego :/
function onSay(cid, words, param, channel)
local guild = getPlayerGuildId(cid)
if(not guild or getPlayerGuildLevel(cid) < GUILDLEVEL_LEADER) then
doPlayerSendChannelMessage(cid, "", "You cannot execute this talkaction.", TALKTYPE_CHANNEL_W, 0)
return true
end
local t = string.explode(param, ",")
if(not t[2]) then
doPlayerSendChannelMessage(cid, "", "Not enough param(s).", TALKTYPE_CHANNEL_W, 0)
return true
end
local enemy = getGuildId(t[2])
if(not enemy) then
doPlayerSendChannelMessage(cid, "", "Guild \"" .. t[2] .. "\" does not exists.", TALKTYPE_CHANNEL_W, 0)
return true
end
if(enemy == guild) then
doPlayerSendChannelMessage(cid, "", "You cannot perform war action on your own guild.", TALKTYPE_CHANNEL_W, 0)
return true
end
local enemyName, tmp = "", db.getResult("SELECT `name` FROM `guilds` WHERE `id` = " .. enemy)
if(tmp:getID() ~= -1) then
enemyName = tmp:getDataString("name")
tmp:free()
end
if(isInArray({"accept", "reject", "cancel"}, t[1])) then
local query = "`guild_id` = " .. enemy .. " AND `enemy_id` = " .. guild
if(t[1] == "cancel") then
query = "`guild_id` = " .. guild .. " AND `enemy_id` = " .. enemy
end
tmp = db.getResult("SELECT `id`, `begin`, `end`, `payment` FROM `guild_wars` WHERE " .. query .. " AND `status` = 0")
if(tmp:getID() == -1) then
doPlayerSendChannelMessage(cid, "", "Currently there's no pending invitation for a war with " .. enemyName .. ".", TALKTYPE_CHANNEL_W, 0)
return true
end
if(t[1] == "accept") then
local _tmp = db.getResult("SELECT `balance` FROM `guilds` WHERE `id` = " .. guild)
local state = _tmp:getID() < 0 or _tmp:getDataInt("balance") < tmp:getDataInt("payment")
_tmp:free()
if(state) then
doPlayerSendChannelMessage(cid, "", "Your guild balance is too low to accept this invitation.", TALKTYPE_CHANNEL_W, 0)
return true
end
db.executeQuery("UPDATE `guilds` SET `balance` = `balance` - " .. tmp:getDataInt("payment") .. " WHERE `id` = " .. guild)
end
query = "UPDATE `guild_wars` SET "
local msg = "accepted " .. enemyName .. " invitation to war."
if(t[1] == "reject") then
query = query .. "`end` = " .. os.time() .. ", `status` = 2"
msg = "rejected " .. enemyName .. " invitation to war."
elseif(t[1] == "cancel") then
query = query .. "`end` = " .. os.time() .. ", `status` = 3"
msg = "canceled invitation to a war with " .. enemyName .. "."
else
query = query .. "`begin` = " .. os.time() .. ", `end` = " .. (tmp:getDataInt("end") > 0 and (os.time() + ((tmp:getDataInt("begin") - tmp:getDataInt("end")) / 86400)) or 0) .. ", `status` = 1"
end
query = query .. " WHERE `id` = " .. tmp:getDataInt("id")
if(t[1] == "accept") then
doGuildAddEnemy(guild, enemy, tmp:getDataInt("id"), WAR_GUILD)
doGuildAddEnemy(enemy, guild, tmp:getDataInt("id"), WAR_ENEMY)
end
tmp:free()
db.executeQuery(query)
doBroadcastMessage(getPlayerGuildName(cid) .. " has " .. msg, MESSAGE_EVENT_ADVANCE)
return true
end
if(t[1] == "invite") then
local str = ""
tmp = db.getResult("SELECT `guild_id`, `status` FROM `guild_wars` WHERE `guild_id` IN (" .. guild .. "," .. enemy .. ") AND `enemy_id` IN (" .. enemy .. "," .. guild .. ") AND `status` IN (0, 1)")
if(tmp:getID() ~= -1) then
if(tmp:getDataInt("status") == 0) then
if(tmp:getDataInt("guild_id") == guild) then
str = "You have already invited " .. enemyName .. " to war."
else
str = enemyName .. " have already invited you to war."
end
else
str = "You are already on a war with " .. enemyName .. "."
end
tmp:free()
end
if(str ~= "") then
doPlayerSendChannelMessage(cid, "", str, TALKTYPE_CHANNEL_W, 0)
return true
end
local frags = tonumber(t[3])
if(frags ~= nil) then
frags = math.max(10, math.min(1000, frags))
else
frags = 100
end
local payment = tonumber(t[4])
if(payment ~= nil) then
payment = math.max(100000, math.min(1000000000, payment))
tmp = db.getResult("SELECT `balance` FROM `guilds` WHERE `id` = " .. guild)
local state = tmp:getID() < 0 or tmp:getDataInt("balance") < payment
tmp:free()
if(state) then
doPlayerSendChannelMessage(cid, "", "Your guild balance is too low for such payment.", TALKTYPE_CHANNEL_W, 0)
return true
end
db.executeQuery("UPDATE `guilds` SET `balance` = `balance` - " .. payment .. " WHERE `id` = " .. guild)
else
payment = 0
end
local begining, ending = os.time(), tonumber(t[5])
if(ending ~= nil and ending ~= 0) then
ending = begining + (ending * 86400)
else
ending = 0
end
db.executeQuery("INSERT INTO `guild_wars` (`guild_id`, `enemy_id`, `begin`, `end`, `frags`, `payment`) VALUES (" .. guild .. ", " .. enemy .. ", " .. begining .. ", " .. ending .. ", " .. frags .. ", " .. payment .. ");")
doBroadcastMessage(getPlayerGuildName(cid) .. " has invited " .. enemyName .. " to war till " .. frags .. " frags.", MESSAGE_EVENT_ADVANCE)
return true
end
if(not isInArray({"end", "finish"}, t[1])) then
return false
end
local status = (t[1] == "end" and 1 or 4)
tmp = db.getResult("SELECT `id` FROM `guild_wars` WHERE `guild_id` = " .. guild .. " AND `enemy_id` = " .. enemy .. " AND `status` = " .. status)
if(tmp:getID() ~= -1) then
local query = "UPDATE `guild_wars` SET `end` = " .. os.time() .. ", `status` = 5 WHERE `id` = " .. tmp:getDataInt("id")
tmp:free()
doGuildRemoveEnemy(guild, enemy)
doGuildRemoveEnemy(enemy, guild)
db.executeQuery(query)
doBroadcastMessage(getPlayerGuildName(cid) .. " has " .. (status == 4 and "mend fences" or "ended up a war") .. " with " .. enemyName .. ".", MESSAGE_EVENT_ADVANCE)
return true
end
if(status == 4) then
doPlayerSendChannelMessage(cid, "", "Currently there's no pending war truce from " .. enemyName .. ".", TALKTYPE_CHANNEL_W, 0)
return true
end
tmp = db.getResult("SELECT `id`, `end` FROM `guild_wars` WHERE `guild_id` = " .. enemy .. " AND `enemy_id` = " .. guild .. " AND `status` = 1")
if(tmp:getID() ~= -1) then
if(tmp:getDataInt("end") > 0) then
tmp:free()
doPlayerSendChannelMessage(cid, "", "You cannot request ending for war with " .. enemyName .. ".", TALKTYPE_CHANNEL_W, 0)
return true
end
local query = "UPDATE `guild_wars` SET `status` = 4, `end` = " .. os.time() .. " WHERE `id` = " .. tmp:getDataInt("id")
tmp:free()
db.executeQuery(query)
doBroadcastMessage(getPlayerGuildName(cid) .. " has signed an armstice declaration on a war with " .. enemyName .. ".", MESSAGE_EVENT_ADVANCE)
return true
end
doPlayerSendChannelMessage(cid, "", "Currently there's no active war with " .. enemyName .. ".", TALKTYPE_CHANNEL_W, 0)
return true
end
 

Daniel13

Senior User
Joined
Jun 19, 2008
Messages
910
Reaction score
32
Odp: B??d War System!

ten war sytem jest pod linuxa i tylko na tfs 0.4 :)
 

andy1995

Senior User
Joined
Apr 12, 2009
Messages
602
Reaction score
100
Odp: B??d War System!

Gowno, gowno. Jest to war system z rl tarczaki, ktory sprzedaje elf i jezeli chcesz zeby dzialal kup donatora na otlandzie i pobierz tfsa 0.4
 

lewczak16

User
Joined
May 20, 2009
Messages
48
Reaction score
0
Odp: B??d War System!

Mam tfs 0.4, na donator boardzie nie pomogli wiec pisze tutaj -.-
 

andy1995

Senior User
Joined
Apr 12, 2009
Messages
602
Reaction score
100
Odp: B??d War System!

To skompiluj z parametrem -D__WAR_SYSTEM__
 

lewczak16

User
Joined
May 20, 2009
Messages
48
Reaction score
0
Odp: B??d War System!

Jest skompilowane z tym parametrem i lipa. Dostalem info ze nie mam fukncji doGuildAddEnemy, i ze w zrodlach jakiegos tfs w svn powinno to byc w funcions albo luascript. Nie ogarniam wiec prosze o pomoc :)
 

andy1995

Senior User
Joined
Apr 12, 2009
Messages
602
Reaction score
100
Odp: B??d War System!

Jezeli nie dziala to albo nie masz zrodel do tfsa 0.4 albo zle dodales parametr
 

lewczak16

User
Joined
May 20, 2009
Messages
48
Reaction score
0
Odp: B??d War System!

A wi?c doda?em fukncje
#ifdef __WAR_SYSTEM__

//doGuildAddEnemy(guild, enemy, war, type)
lua_register(m_luaState, "doGuildAddEnemy", LuaInterface::luaDoGuildAddEnemy);

//doGuildRemoveEnemy(guild, enemy)
lua_register(m_luaState, "doGuildRemoveEnemy", LuaInterface::luaDoGuildRemoveEnemy);
#endif
oraz
#ifdef __WAR_SYSTEM__

int32_t LuaInterface::luaDoGuildAddEnemy(lua_State* L)
{
//doGuildAddEnemy(guild, enemy, war, type)
War_t war;
war.type = (WarType_t)popNumber(L);
war.war = popNumber(L);

uint32_t enemy = popNumber(L), guild = popNumber(L), count = 0;
for(AutoList<Player>::iterator it = Player::autoList.begin(); it != Player::autoList.end(); ++it)
{
if(it->second->isRemoved() || it->second->getGuildId() != guild)
continue;

++count;
it->second->addEnemy(enemy, war);
g_game.updateCreatureEmblem(it->second);
}

lua_pushnumber(L, count);
return 1;
}

int32_t LuaInterface::luaDoGuildRemoveEnemy(lua_State* L)
{
//doGuildRemoveEnemy(guild, enemy)
uint32_t enemy = popNumber(L), guild = popNumber(L), count = 0;
for(AutoList<Player>::iterator it = Player::autoList.begin(); it != Player::autoList.end(); ++it)
{
if(it->second->isRemoved() || it->second->getGuildId() != guild)
continue;

++count;
it->second->removeEnemy(enemy);
g_game.updateCreatureEmblem(it->second);
}

lua_pushnumber(L, count);
return 1;
}
#endif
do mojego luascript.cpp zrekompilowalem z parametrem -D__WAR_SYSTEM__ kompilacja odbyla sie bez zadnych bledow, lecz dalej jest ten sam blad przy akceptowaniu wara. Wedlug mojego kolegi wklejone funkcje sa w porzadku, wiec nie wiem w czym tkwi problem.
Jakies pomysly?? :/
 
Last edited:
Top