• There is NO official Otland's Discord server and NO official Otland's server list. The Otland's Staff does not manage any Discord server or server list. Moderators or administrator of any Discord server or server lists have NO connection to the Otland's Staff. Do not get scammed!

Selling HuntArea System CHEAP!

Status
Not open for further replies.
H

hugq

Member
Joined
Mar 17, 2010
Messages
166
Reaction score
9
Hello, I want to present script writed by me called "Arena Hunting System".

This script is for RGP, Real, Evo and much more maps.

My System is easy to configure, also is stable and bugs free!!!

Constants to set:

- Position of Area,
- Time Hunting,
- Level to enter to area,
- Name of monster,
- Exhaustion (in seconds).

You must set only one actionid on map (teleport) that script works, also you can earn big cash for you.

When I relase this script on my server my donations were 3x much more. You ask how I do this?
It's simple - If somebody had locked cave with eg. Frost Dragons then they can sail to Hunt Area Island and enter to cave with Frost Dragons.
It's not everything. To enter to cave they need special item which is in SMS Shop = cash for you.

I written feature called "anty dead system", I explain: If somebody got freeze or in city is blackout or computer got restart and somebody die inside area, script teleport they to the temple without any losses, they level and skills still normal.

Script have function saving log file, so you can see how many players were used areas.

For Sale, including script with great map (50 caves with random monsters eg. Dragons, Warlocks, Medusas).

You can add own cave with special monsters (I mean monsters from Evo Map Servers).

Price:
- Only 10 € (Euro) PayPal
or
- Global Tibia character on Libera, Antica, Askara, Refugia, Kyra or any OPEN_PVP world without created recovery key or with confim key to change actual recovery key.
or
- Gold Coins only on Antica, Libera, Kyra.

I recorded by TibiaCam (8.60) how this script works. Link in Attachment

Pictures:

aPuqK.png


piqcu.png


3j82v.png


0Z1nq.png


TI8DW.png


P5ock.png


P91iS.png


View attachment cam.zip
So enjoy!
 
Code: 
<?xml version="1.0" encoding="UTF-8"?>
<mod name="HuntArea System" version="Tested only on 0.4" author="Hugq" contact="[email protected]" enabled="yes">
<config name="HuntAreaFunctions"><![CDATA[
config = {
    -- Teleport AID = v[1], v[2], v[3], v[4], v[5], v[6], v[7] ;]
    [10001] = {{x = 1018, y = 1020, z = 7}, {x = 1019, y = 1018, z = 7}, {x = 1019, y = 1023, z = 7}, 10, 8, 2, 2},
    [10002] = {{x = 1026, y = 1020, z = 7}, {x = 1027, y = 1018, z = 7}, {x = 1027, y = 1023, z = 7}, 10, 8, 2, 2}
}
monsters = {
    -- Tile AID = b[1], b[2] ;]
    [10201] = {"Dragon Lord", {x = 1021, y = 1020, z = 7}},
    [10202] = {"Frost Dragon", {x = 1029, y = 1020, z = 7}}
}
function getCreaturesInRange(position, radiusx, radiusy, showMonsters, showPlayers, showSummons)
    local creaturesList = {}
    for x = -radiusx, radiusx do
        for y = -radiusy, radiusy do
            if not (x == 0 and y == 0) then
                local creature = getTopCreature({x = position.x+x, y = position.y+y, z = position.z})
                if (creature.type == 1 and showPlayers) or (creature.type == 2 and showMonsters and (not showSummons or (showSummons and getCreatureMaster(creature.uid) == (creature.uid)))) then
                    table.insert(creaturesList, creature.uid)
                end
            end
        end
    end
    local creature = getTopCreature(position)
    if (creature.type == 1 and showPlayers) or (creature.type == 2 and showMonsters and (not showSummons or (showSummons and getCreatureMaster(creature.uid) == (creature.uid)))) then
        if not(table.find(creaturesList, creature.uid)) then
            table.insert(creaturesList, creature.uid)
        end
    end
        return creaturesList
end
]]></config>
<movevent type="StepIn" actionid="10001-10002" event="script"><![CDATA[
    domodlib('HuntAreaFunctions')
function onStepIn(cid, item, position, fromPosition)
local v = config[item.actionid]
function kickEvent(cid, item, position, fromPosition)
    if (getCreaturesInRange(v[2], v[6], v[7], FALSE, TRUE) ~= 0 and getCreatureStorage(cid, 654321) > 0) then
            doTeleportThing(cid, v[3])
                doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
            doCreatureSetStorage(cid, 654321, -1)
        doCreatureSay(cid, "You have been kicked out from hunting room.", TALKTYPE_ORANGE_1, false, cid, getThingPos(cid))
    end
end
    if getPlayerLevel(cid) >= v[5] then
        if(getPlayerItemCount(cid, 2157) > 0) then
        local players = getCreaturesInRange(v[2], v[6], v[7], FALSE, TRUE)
            if #players == 0 then
            local creatures = getCreaturesInRange(v[2], v[6], v[7], TRUE, FALSE)
                for i = 1, #creatures do
                    doRemoveCreature(creatures[i])
                end
                doSendMagicEffect(position, CONST_ME_TELEPORT)
                doTeleportThing(cid, v[1])
                doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
                doPlayerRemoveItem(cid, 2157, 1)
                doCreatureSay(cid, "Now you have " .. v[4] .. " minutes for hunting monsters, else you will be kicked out.", TALKTYPE_ORANGE_1, false, cid, getThingPos(cid))
                pauseKick = addEvent(kickEvent, v[4] * 60 * 1000, cid)
                doCreatureSetStorage(cid, 654321, 1)
                return TRUE
            else
                doCreatureSay(cid, "There is someone else in the room.", TALKTYPE_ORANGE_1, false, cid, fromPosition)
            end
        else
            doCreatureSay(cid, "You don't have enought golden nugget.", TALKTYPE_ORANGE_1, false, cid, fromPosition)
        end
        else
            doCreatureSay(cid, "You must be at least level " .. v[5] .. " or higher to enter.", TALKTYPE_ORANGE_1, false, cid, fromPosition)
    end
    doTeleportThing(cid, fromPosition)
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
    return TRUE
end
]]></movevent>
<movevent type="StepIn" actionid="10101-10102" event="script"><![CDATA[
    domodlib('HuntAreaFunctions')
function onStepIn(cid, item, position, fromPosition)
    if isPlayer(cid) then
        doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
            doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
                doSendMagicEffect(fromPosition, CONST_ME_TELEPORT)
            doCreatureSetStorage(cid, 654321, -1)
        stopEvent(pauseKick)
    end
end]]></movevent>
<movevent type="StepIn" actionid="10201-10202" event="script"><![CDATA[
    domodlib('HuntAreaFunctions')
function onStepIn(cid, item, position, fromPosition)
    local b = monsters[item.actionid]
    if(isPlayer(cid) and exhaustion.check(cid, item.actionid)) then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You should wait " .. exhaustion.get(cid, item.actionid) .. " seconds.")
    elseif (isPlayer(cid)) then
        exhaustion.set(cid, item.actionid, 10)
            doSummonCreature(b[1], b[2])
        doSendMagicEffect(b[2], CONST_ME_TELEPORT)
    end
end]]></movevent>
</mod>
2eczzu9.jpg
 
@up

Wow, that's pretty brutal, bought it and then released it?
 
It exist in resources section?
 
Vendeliko said:
Code: 
<?xml version="1.0" encoding="UTF-8"?>
<mod name="HuntArea System" version="Tested only on 0.4" author="Hugq" contact="[email protected]" enabled="yes">
<config name="HuntAreaFunctions"><=!=[=C=D=A=T=A=[
config = {
    -- Teleport AID = v[1], v[2], v[3], v[4], v[5], v[6], v[7] ;]
    [10001] = {{x = 1018, y = 1020, z = 7}, {x = 1019, y = 1018, z = 7}, {x = 1019, y = 1023, z = 7}, 10, 8, 2, 2},
    [10002] = {{x = 1026, y = 1020, z = 7}, {x = 1027, y = 1018, z = 7}, {x = 1027, y = 1023, z = 7}, 10, 8, 2, 2}
}
monsters = {
    -- Tile AID = b[1], b[2] ;]
    [10201] = {"Dragon Lord", {x = 1021, y = 1020, z = 7}},
    [10202] = {"Frost Dragon", {x = 1029, y = 1020, z = 7}}
}
function getCreaturesInRange(position, radiusx, radiusy, showMonsters, showPlayers, showSummons)
    local creaturesList = {}
    for x = -radiusx, radiusx do
        for y = -radiusy, radiusy do
            if not (x == 0 and y == 0) then
                local creature = getTopCreature({x = position.x+x, y = position.y+y, z = position.z})
                if (creature.type == 1 and showPlayers) or (creature.type == 2 and showMonsters and (not showSummons or (showSummons and getCreatureMaster(creature.uid) == (creature.uid)))) then
                    table.insert(creaturesList, creature.uid)
                end
            end
        end
    end
    local creature = getTopCreature(position)
    if (creature.type == 1 and showPlayers) or (creature.type == 2 and showMonsters and (not showSummons or (showSummons and getCreatureMaster(creature.uid) == (creature.uid)))) then
        if not(table.find(creaturesList, creature.uid)) then
            table.insert(creaturesList, creature.uid)
        end
    end
        return creaturesList
end
]=]=></config>
<movevent type="StepIn" actionid="10001-10002" event="script"><=!=[=C=D=A=T=A=[
    domodlib('HuntAreaFunctions')
function onStepIn(cid, item, position, fromPosition)
local v = config[item.actionid]
function kickEvent(cid, item, position, fromPosition)
    if (getCreaturesInRange(v[2], v[6], v[7], FALSE, TRUE) ~= 0 and getCreatureStorage(cid, 654321) > 0) then
            doTeleportThing(cid, v[3])
                doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
            doCreatureSetStorage(cid, 654321, -1)
        doCreatureSay(cid, "You have been kicked out from hunting room.", TALKTYPE_ORANGE_1, false, cid, getThingPos(cid))
    end
end
    if getPlayerLevel(cid) >= v[5] then
        if(getPlayerItemCount(cid, 2157) > 0) then
        local players = getCreaturesInRange(v[2], v[6], v[7], FALSE, TRUE)
            if #players == 0 then
            local creatures = getCreaturesInRange(v[2], v[6], v[7], TRUE, FALSE)
                for i = 1, #creatures do
                    doRemoveCreature(creatures[i])
                end
                doSendMagicEffect(position, CONST_ME_TELEPORT)
                doTeleportThing(cid, v[1])
                doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
                doPlayerRemoveItem(cid, 2157, 1)
                doCreatureSay(cid, "Now you have " .. v[4] .. " minutes for hunting monsters, else you will be kicked out.", TALKTYPE_ORANGE_1, false, cid, getThingPos(cid))
                pauseKick = addEvent(kickEvent, v[4] * 60 * 1000, cid)
                doCreatureSetStorage(cid, 654321, 1)
                return TRUE
            else
                doCreatureSay(cid, "There is someone else in the room.", TALKTYPE_ORANGE_1, false, cid, fromPosition)
            end
        else
            doCreatureSay(cid, "You don't have enought golden nugget.", TALKTYPE_ORANGE_1, false, cid, fromPosition)
        end
        else
            doCreatureSay(cid, "You must be at least level " .. v[5] .. " or higher to enter.", TALKTYPE_ORANGE_1, false, cid, fromPosition)
    end
    doTeleportThing(cid, fromPosition)
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
    return TRUE
end
]=]=></movevent>
<movevent type="StepIn" actionid="10101-10102" event="script"><=!=[=C=D=A=T=A=[
    domodlib('HuntAreaFunctions')
function onStepIn(cid, item, position, fromPosition)
    if isPlayer(cid) then
        doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
            doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
                doSendMagicEffect(fromPosition, CONST_ME_TELEPORT)
            doCreatureSetStorage(cid, 654321, -1)
        stopEvent(pauseKick)
    end
end]=]=></movevent>
<movevent type="StepIn" actionid="10201-10202" event="script"><=!=[=C=D=A=T=A=[
    domodlib('HuntAreaFunctions')
function onStepIn(cid, item, position, fromPosition)
    local b = monsters[item.actionid]
    if(isPlayer(cid) and exhaustion.check(cid, item.actionid)) then
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You should wait " .. exhaustion.get(cid, item.actionid) .. " seconds.")
    elseif (isPlayer(cid)) then
        exhaustion.set(cid, item.actionid, 10)
            doSummonCreature(b[1], b[2])
        doSendMagicEffect(b[2], CONST_ME_TELEPORT)
    end
end]=]=></movevent>
</mod>
2eczzu9.jpg
Click to expand...

This script is mine,but old test version and have 3 bugs ;)
 
Hilarious guys trying to make cash even if it is released.
It's not hard to find they bugs as your console will shout at you when one occurs.
 
Vendeliko said:
And whats the problem in finding them? lol
Click to expand...

Why you tryed to f*ck up his post?
Relase it in another post but don't do that lol.
What you getting? Reputation? Kisses?
Lol.
 
Mogex said:
Why you tryed to f*ck up his post?
Relase it in another post but don't do that lol.
What you getting? Reputation? Kisses?
Lol.
Click to expand...

It was already released in Resources section by TC. <_<
 
If someone stumbles over an error using the released version, feel free to check out the support section.
 
Yes, some one can fix all the errors (if have, i don't test yet) please release the script.
 
I just remembered a bug in hunt areanas from when I played an ot with hunt arenas,not sure if the bug is in this script but some one can check it :).
The bug is that when you leave a hunt arena before your time is up and you go to for example depot when the time would be up if you were still in the arena you get teleported outside the arena as if you were in it.
 
Status
Not open for further replies.

Similar threads

highsanta
[TFS 1.X] Bestiary - Task Chat System
Replies
0
Views
300
highsanta
highsanta
F
  • Question
TFS 1.X+ [looking for help]log in problem nekiro's multiworld system [source and commit included]
Replies
4
Views
541
lursky
L
B
  • Question
portal quest scripts, TFS 1.4.2
Replies
0
Views
459
bravespiritz
B
G
[Poland] [7.6] | Deveris [MULTI LANGUAGE NPC'S]
Replies
13
Views
1K
gummy
G
eardrums
  • Question
Solved Dungeon System Charges. TFS 1.5/ OTclient mehah
Replies
0
Views
493
eardrums
eardrums
imperianic
[US] [7.4] Imperianic - RARITY SYSTEM - PROXY - VOIP - ANDROID - [26/11/2023, Sunday, 20:00 UTC]
Replies
7
Views
1K
imperianic
imperianic
P
[USA] [8.60] Rebirth-Highexp | 29 September 9:00 CEST
Replies
1
Views
602
405400
4
Mateus Robeerto
[TFS 1.3] Task System + Daily Task System and Rank Look System.
Replies
7
Views
1K
abdala ragab
abdala ragab
F
  • Question
TFS 1.X+ [tfs 1.4/1.5] edit database multiworld system
Replies
3
Views
674
lursky
L
Back
Top