TalkAction (6.1) Cyber's REPSystem w/Opinion Points for 0.4 && mAAC

Znote · Jan 26, 2010

You should add a way to configure rep Power. Instead of a constant value (like default 5).

LvL: -------- Rep Power +
1 ------------- 0
50 ------------- 1
75 ------------- 2
100 ------------ 3
125 ------------ 4
150 ------------ 5
200 ------------ 6

REP Points -------- Rep power +
0 ---------------------- 0
50 --------------------- 1
150 -------------------- 2
300 -------------------- 3
500 -------------------- 4

(This is only example).

So lets look at this diagram, I am level 127, and I got 163 rep points.

This mean I have:
LvL Rep Power + Rep Points rep Power = 4 + 2 = 6 Rep power tptal

= total 6 Rep power. (If rep another user, it will be worth 6 points).

hodleo · Jan 26, 2010

yeah, you're right

Adrinx · Feb 1, 2010

Code:

local specialQuests = {
	[2001] = 30015 --Annihilator
}

local questsExperience = {
	[30015] = 10000
}

function onUse(cid, item, fromPosition, itemEx, toPosition)
	if(getPlayerCustomFlagValue(cid, PlayerCustomFlag_GamemasterPrivileges)) then
		doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF, cid)
		return true
	end

	local storage = specialQuests[item.actionid]
	if(not storage) then
		storage = item.uid
		if(storage > 65535) then
			return false
		end
	end

	if(getPlayerStorageValue(cid, storage) > 0) then
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "It is empty.")
		return true
	end

	local items = {}
	local reward = 0

	local size = isContainer(item.uid) and getContainerSize(item.uid) or 0
	if(size == 0) then
		reward = doCopyItem(item, false)
	else
		for i = 0, size do
			local tmp = getContainerItem(item.uid, i)
			if(tmp.itemid > 0) then
				table.insert(items, tmp)
			end
		end
	end

	size = table.maxn(items)
	if(size == 1) then
		reward = doCopyItem(items[1], true)
	end

	local result = ""
	if(reward ~= 0) then
		local ret = getItemDescriptions(reward.uid)
		if(reward.type > 0 and isItemRune(reward.itemid)) then
			result = reward.type .. " charges " .. ret.name
		elseif(reward.type > 0 and isItemStackable(reward.itemid)) then
			result = reward.type .. " " .. ret.plural
		else
			result = ret.article .. " " .. ret.name
		end
	else
		if(size > 20) then
			reward = doCopyItem(item, false)
		elseif(size > 8) then
			reward = getThing(doCreateItemEx(1988, 1))
		else
			reward = getThing(doCreateItemEx(1987, 1))
		end

		for i = 1, size do
			local tmp = doCopyItem(items[i], true)
			if(doAddContainerItemEx(reward.uid, tmp.uid) ~= RETURNVALUE_NOERROR) then
				print("[Warning] QuestSystem:", "Could not add quest reward")
			else
				local ret = ", "
				if(i == 2) then
					ret = " and "
				elseif(i == 1) then
					ret = ""
				end

				result = result .. ret
				ret = getItemDescriptions(tmp.uid)
				if(tmp.type > 0 and isItemRune(tmp.itemid)) then
					result = result .. tmp.type .. " charges " .. ret.name
				elseif(tmp.type > 0 and isItemStackable(tmp.itemid)) then
					result = result .. tmp.type .. " " .. ret.plural
				else
					result = result .. ret.article .. " " .. ret.name
				end
			end
		end
	end

	if(doPlayerAddItemEx(cid, reward.uid, false) ~= RETURNVALUE_NOERROR) then
		result = "You have found a reward weighing " .. getItemWeight(reward.uid) .. " oz. It is too heavy or you have not enough space."
	else
		result = "You have found " .. result .. "."
		setPlayerStorageValue(cid, storage, 1)

		if(questsExperience[storage] ~= nil) then
			doPlayerAddExp(cid, questsExperience[storage])
			doSendAnimatedText(getCreaturePosition(cid), questsExperience[storage], TEXTCOLOR_WHITE)
		end
	end

	doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, result)
	return true
end

I want to do that every time i do a quest i get 5 rep points, i've tried adding " addPlayerRep(cid, 5, TEXTCOLOR_LIGHTBLUE)" in the script but it doesnt work :/... could you do it for me?

PD: thats the last version of quest system, its better than the one you posted in the first page, and its on every TFS version.

hodleo · Feb 1, 2010

Lua:

local specialQuests = {
    [2001] = 30015 --Annihilator
}

local questsExperience = {
    [30015] = 10000
}

function onUse(cid, item, fromPosition, itemEx, toPosition)
    if(getPlayerCustomFlagValue(cid, PlayerCustomFlag_GamemasterPrivileges)) then
        doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF, cid)
        return true
    end

    local storage = specialQuests[item.actionid]
    if(not storage) then
        storage = item.uid
        if(storage > 65535) then
            return false
        end
    end

    if(getPlayerStorageValue(cid, storage) > 0) then
        doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "It is empty.")
        return true
    end

    local items = {}
    local reward = 0

    local size = isContainer(item.uid) and getContainerSize(item.uid) or 0
    if(size == 0) then
        reward = doCopyItem(item, false)
    else
        for i = 0, size do
            local tmp = getContainerItem(item.uid, i)
            if(tmp.itemid > 0) then
                table.insert(items, tmp)
            end
        end
    end

    size = table.maxn(items)
    if(size == 1) then
        reward = doCopyItem(items[1], true)
    end

    local result = ""
    if(reward ~= 0) then
        local ret = getItemDescriptions(reward.uid)
        if(reward.type > 0 and isItemRune(reward.itemid)) then
            result = reward.type .. " charges " .. ret.name
        elseif(reward.type > 0 and isItemStackable(reward.itemid)) then
            result = reward.type .. " " .. ret.plural
        else
            result = ret.article .. " " .. ret.name
        end
    else
        if(size > 20) then
            reward = doCopyItem(item, false)
        elseif(size > 8) then
            reward = getThing(doCreateItemEx(1988, 1))
        else
            reward = getThing(doCreateItemEx(1987, 1))
        end

        for i = 1, size do
            local tmp = doCopyItem(items[i], true)
            if(doAddContainerItemEx(reward.uid, tmp.uid) ~= RETURNVALUE_NOERROR) then
                print("[Warning] QuestSystem:", "Could not add quest reward")
            else
                local ret = ", "
                if(i == 2) then
                    ret = " and "
                elseif(i == 1) then
                    ret = ""
                end

                result = result .. ret
                ret = getItemDescriptions(tmp.uid)
                if(tmp.type > 0 and isItemRune(tmp.itemid)) then
                    result = result .. tmp.type .. " charges " .. ret.name
                elseif(tmp.type > 0 and isItemStackable(tmp.itemid)) then
                    result = result .. tmp.type .. " " .. ret.plural
                else
                    result = result .. ret.article .. " " .. ret.name
                end
            end
        end
    end

    if(doPlayerAddItemEx(cid, reward.uid, false) ~= RETURNVALUE_NOERROR) then
        result = "You have found a reward weighing " .. getItemWeight(reward.uid) .. " oz. It is too heavy or you have not enough space."
    else
        result = "You have found " .. result .. "."
        setPlayerStorageValue(cid, storage, 1)
        addPlayerRep(cid, 5, math.random(1,255))

        if(questsExperience[storage] ~= nil) then
            doPlayerAddExp(cid, questsExperience[storage])
            doSendAnimatedText(getCreaturePosition(cid), questsExperience[storage], TEXTCOLOR_WHITE)
        end
    end

    doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, result)
    return true
end

Adrinx · Feb 1, 2010

It still doesnt give me any rep points (i even checked in the db) :s

hodleo · Feb 1, 2010

are you using mod or luas?

Adrinx · Feb 1, 2010

im using mod

it was giving me this error

[Error - Action Interface]
[01/02/2010 00:56:40] data/actions/scripts/quests/system.lua

nUse
[01/02/2010 00:56:40] Description:
[01/02/2010 00:56:40] data/actions/scripts/quests/system.lua:97: attempt to call global 'addPlayerRep' (a nil value)
[01/02/2010 00:56:40] stack traceback:
[01/02/2010 00:56:40] data/actions/scripts/quests/system.lua:97: in function <data/actions/scripts/quests/system.lua:9>

hodleo · Feb 1, 2010

its so simple, the function is only loaded in the mod, so we would need to use doModLib
but for a faster solution, just use this:

Lua:

function addPlayerRep(cid, amount, color)
    db.executeQuery("UPDATE `players` SET `rep` = `rep` + " .. amount .. " WHERE `id` = " .. getPlayerGUID(cid) .. ";")
    doSendAnimatedText(getCreaturePosition(cid), "+REP", color)
    doPlayerSendCancel(cid,'You have been hailed and received '.. amount ..' rep points.')    
end

  local specialQuests = {
    [2001] = 30015 --Annihilator
}

local questsExperience = {
    [30015] = 10000
}

function onUse(cid, item, fromPosition, itemEx, toPosition)
    if(getPlayerCustomFlagValue(cid, PlayerCustomFlag_GamemasterPrivileges)) then
        doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF, cid)
        return true
    end

    local storage = specialQuests[item.actionid]
    if(not storage) then
        storage = item.uid
        if(storage > 65535) then
            return false
        end
    end

    if(getPlayerStorageValue(cid, storage) > 0) then
        doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "It is empty.")
        return true
    end

    local items = {}
    local reward = 0

    local size = isContainer(item.uid) and getContainerSize(item.uid) or 0
    if(size == 0) then
        reward = doCopyItem(item, false)
    else
        for i = 0, size do
            local tmp = getContainerItem(item.uid, i)
            if(tmp.itemid > 0) then
                table.insert(items, tmp)
            end
        end
    end

    size = table.maxn(items)
    if(size == 1) then
        reward = doCopyItem(items[1], true)
    end

    local result = ""
    if(reward ~= 0) then
        local ret = getItemDescriptions(reward.uid)
        if(reward.type > 0 and isItemRune(reward.itemid)) then
            result = reward.type .. " charges " .. ret.name
        elseif(reward.type > 0 and isItemStackable(reward.itemid)) then
            result = reward.type .. " " .. ret.plural
        else
            result = ret.article .. " " .. ret.name
        end
    else
        if(size > 20) then
            reward = doCopyItem(item, false)
        elseif(size > 8) then
            reward = getThing(doCreateItemEx(1988, 1))
        else
            reward = getThing(doCreateItemEx(1987, 1))
        end

        for i = 1, size do
            local tmp = doCopyItem(items[i], true)
            if(doAddContainerItemEx(reward.uid, tmp.uid) ~= RETURNVALUE_NOERROR) then
                print("[Warning] QuestSystem:", "Could not add quest reward")
            else
                local ret = ", "
                if(i == 2) then
                    ret = " and "
                elseif(i == 1) then
                    ret = ""
                end

                result = result .. ret
                ret = getItemDescriptions(tmp.uid)
                if(tmp.type > 0 and isItemRune(tmp.itemid)) then
                    result = result .. tmp.type .. " charges " .. ret.name
                elseif(tmp.type > 0 and isItemStackable(tmp.itemid)) then
                    result = result .. tmp.type .. " " .. ret.plural
                else
                    result = result .. ret.article .. " " .. ret.name
                end
            end
        end
    end

    if(doPlayerAddItemEx(cid, reward.uid, false) ~= RETURNVALUE_NOERROR) then
        result = "You have found a reward weighing " .. getItemWeight(reward.uid) .. " oz. It is too heavy or you have not enough space."
    else
        result = "You have found " .. result .. "."
        setPlayerStorageValue(cid, storage, 1)
        addPlayerRep(cid, 5, math.random(1,255))

        if(questsExperience[storage] ~= nil) then
            doPlayerAddExp(cid, questsExperience[storage])
            doSendAnimatedText(getCreaturePosition(cid), questsExperience[storage], TEXTCOLOR_WHITE)
        end
    end

    doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, result)
    return true
end

Adrinx · Feb 1, 2010

Ok Thanks that workd great!

Gomgom · Feb 7, 2010

There is a problem.

This script does not work for all monsters.

Code:

local monster = monsters[getCreatureName(target)]

Must be.

Code:

local name = getCreatureName(target)
local monster = monsters[string.lower(name)]

Gomgom · Feb 7, 2010

There is a problem.
Check this image out!

hodleo · Feb 8, 2010

I might get time soon to add a fix ^_^

uchiha1sasukee · Feb 14, 2010

For SQlite database:
Quote:
ALTER TABLE "players" ADD "rep" INT( 11 ) NOT NULL DEFAULT "0";

where do i put this?

uchiha1sasukee · Feb 14, 2010

can anyone tell me what to do?

Sherlok · Feb 14, 2010

yesssss! ;d

hodleo · Feb 14, 2010

uchiha1sasukee said:
can anyone tell me what to do?

if you know some sql basics and you are using sqlite i suppose you have to execute that query in your sqlite manager

uchiha1sasukee · Feb 15, 2010

Cyb3rmastr said:
if you know some sql basics and you are using sqlite i suppose you have to execute that query in your sqlite manager

how do i put it as a notepad folder? or what is query?

skitzo · Feb 16, 2010

I can't get the pictures to show up at the top Link to my website Anyone have any ideas? ;s

skitzo · Feb 16, 2010

I will suck your #%*& if you help me, ohh and I'll give you rep xD

skitzo · Feb 17, 2010

I will do it

TalkAction (6.1) Cyber's REPSystem w/Opinion Points for 0.4 && mAAC

Is this the best reputation system?

Yes.

No.

It's good but can be improved.

<?php echo $title; ?>

Formerly cbrm -Crypto enthusiast, Retired scripter

New Member

Formerly cbrm -Crypto enthusiast, Retired scripter

New Member

Formerly cbrm -Crypto enthusiast, Retired scripter

New Member

Formerly cbrm -Crypto enthusiast, Retired scripter

New Member

Member

Member

Attachments

Formerly cbrm -Crypto enthusiast, Retired scripter

Chillin Boss

Chillin Boss

Active Member

Formerly cbrm -Crypto enthusiast, Retired scripter

Chillin Boss

New Member

New Member

New Member

Similar threads