• 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!

NPC The Gambling Man, the interactive dicer

Techrlz

System Manager & Programmer
Premium User
Joined
Feb 20, 2014
Messages
1,074
Solutions
4
Reaction score
177
Nops, this only for tfs 1.0
 

Yamo

New Member
Joined
Jun 8, 2008
Messages
77
Reaction score
2
Works great. I added the possibility to gamble for the exact number aswell.
 
Last edited:

FoxSoft

FoxSoft
Joined
Jun 2, 2016
Messages
21
Reaction score
0
Good Script and works great. One question though. A player came in and exploited a bug. He put the money down, said high or low and quickly took the money back before the dice rolled. If he won the money was doubled of course and if he loses the money is already safely in his backpack. Is there a way to make the NPC take the money before the roll to stop this?
 

Udun

Well-Known Member
Joined
Jan 5, 2012
Messages
181
Solutions
1
Reaction score
50
Pretty awesome npc!


Edit:
For those of you interested, here is the script converted for older versions of TFS (semi-tested on 0.4) Please do not nag Evan for support with this, I am just providing it AS IS for those of you who would like a jump start on the conversion.
I think I changed everything that needs to be but make sure to test well before use.

Edit 2:
Btw Evan, it really annoyed me that he didn't say if you win or lose (even though it is sorta obvious if u don't get money back) but I added it anyway. :)

Code:
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
 
function onCreatureAppear(cid)                npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid)             npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg)         npcHandler:onCreatureSay(cid, type, msg) end
function onThink()                            npcHandler:onThink() end
 
local function delayMoneyRemoval(item, pos)
    doRemoveItem(getTileItemById(pos, item).uid)
    return true
end
 
local function placeMoney(amount, table_middle_pos)
    local remain = amount
    local crystal_coins = 0
    local platinum_coins = 0
 
    if (math.floor(amount / 10000) >= 1) then
        crystal_coins = math.floor(amount / 10000)
        remain = remain - crystal_coins * 10000
    end
    if ((remain / 100) >= 1) then
        platinum_coins = remain / 100
    end
    addEvent(doCreateItem, 550, 2152, platinum_coins, table_middle_pos)
    addEvent(doCreateItem, 600, 2160, crystal_coins, table_middle_pos)
end
 
local function rollDice(roll, cc_count, pc_count, table_left_pos, table_middle_pos, npc)
    local dice_ids = {5792, 5793, 5794, 5795, 5796, 5797}
    local random_rollval = math.random(1,6)
    local total_g = (10000 * cc_count) + (100 * pc_count)
    local prize_percent = 0.8 -- 80%
 
    if ((total_g) <= 300000 and (total_g) >= 5000) then
        doSendMagicEffect(table_left_pos, CONST_ME_CRAPS)
 
        for _, itemId in pairs(dice_ids) do
                if(getTileItemById(table_left_pos, itemId).uid > 0) then
                doTransformItem(getTileItemById(table_left_pos, itemId).uid, dice_ids[random_rollval])
            end
        end
 
        if (roll == 1 and random_rollval <= 3) then
            placeMoney(total_g + (total_g * prize_percent), table_middle_pos)
            addEvent(doSendMagicEffect, 400, table_left_pos, CONST_ME_SOUND_GREEN)
            addEvent(doSendMagicEffect, 700, table_left_pos, CONST_ME_SOUND_GREEN)
            addEvent(doCreatureSay, 500, npc, "You win!", TALKTYPE_SAY, false, 0)
        elseif (roll == 2 and random_rollval >= 4) then
            placeMoney(total_g + (total_g * prize_percent), table_middle_pos)
            addEvent(doSendMagicEffect, 400, table_left_pos, CONST_ME_SOUND_GREEN)
            addEvent(doSendMagicEffect, 700, table_left_pos, CONST_ME_SOUND_GREEN)
            addEvent(doCreatureSay, 500, npc, "You win!", TALKTYPE_SAY, false, 0)
        else
            addEvent(doSendMagicEffect, 400, table_left_pos, CONST_ME_BLOCKHIT)
            addEvent(doSendMagicEffect, 700, table_left_pos, CONST_ME_BLOCKHIT)
            addEvent(doCreatureSay, 500, npc, "Better luck next time.", TALKTYPE_SAY, false, 0)
        end
        doCreatureSay(npc, string.format("%s rolled a %d.", getCreatureName(npc), random_rollval), TALKTYPE_ORANGE_1, false, 0, table_left_pos)
    else
        addEvent(doCreateItem, 100, 2160, cc_count, table_middle_pos)
        addEvent(doCreateItem, 150, 2152, pc_count, table_middle_pos)
        doCreatureSay(npc, "The minimum wager is 5K and the maximum wager is 300K.", TALKTYPE_SAY, false, 0)
    end
    return true
end
 
function creatureSayCallback(cid, type, msg)
    -- NPC userdata instance
    local npc = getNpcCid()
 
    -- Participating player userdata instance
    local position = {x = getNpcPos().x+2, y = getNpcPos().y, z = getNpcPos().z}
    position.stackpos = STACKPOS_TOP_CREATURE
    local player_uid = getThingfromPos(position).uid
 
    -- Game table position userdata instances
    local table_left_pos = {x = 120, y = 50, z = 7}
    local table_middle_pos = {x = 121, y = 50, z = 7}
 
    -- Search for coins on the left and middle tables and create item userdata instances
    local table_middle_cc = getTileItemById(table_middle_pos, 2160)
    local table_middle_pc = getTileItemById(table_middle_pos, 2152)
 
    -- Other variables
    local cc_count = 0
    local pc_count = 0
    local ROLL, LOW, HIGH = 0, 1, 2
 
    if (player_uid ~= 0) then
        if ((msgcontains(string.lower(msg), 'high') or msgcontains(string.lower(msg), 'h')) and (isPlayer(player_uid) and player_uid == cid)) then
            ROLL = HIGH
        elseif ((msgcontains(string.lower(msg), 'low') or msgcontains(string.lower(msg), 'l')) and (isPlayer(player_uid) and player_uid == cid)) then
            ROLL = LOW
        else
            return false
        end
        if (table_middle_cc.uid ~= 0) then
            cc_count = table_middle_cc.type
            doTeleportThing(table_middle_cc.uid, table_left_pos)
            addEvent(delayMoneyRemoval, 300, 2160, table_left_pos)
        end
        if (table_middle_pc.uid ~= 0) then
            pc_count = table_middle_pc.type
            doTeleportThing(table_middle_pc.uid, table_left_pos)
            addEvent(delayMoneyRemoval, 300, 2152, table_left_pos)
        end
        addEvent(rollDice, 500, ROLL, cc_count, pc_count, table_left_pos, table_middle_pos, npc)
    else
        return false
    end
    return true
end
 
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)

Thanks Xagul, works like a charm on 0.3.6 :)
+Rep

Thanks Xagul, works like a charm on 0.3.6 :)
+Rep
Just a question, anbody know how modifiy the player position?, for example the player to the north sqm, not at the side of the npc
 
Last edited by a moderator:

Fortera Global

Well-Known Member
Joined
Nov 20, 2015
Messages
1,130
Solutions
2
Reaction score
94
what is the maximum of money? 300k? above it like 3kk players can bug money? I mean, players put 3kk and say L, the addEvent is slow and player will take some money, npc will think it was 3kk even so??

thanks
 

Wirless

7.6 is the best :D
Joined
Nov 3, 2012
Messages
1,023
Solutions
1
Reaction score
215
Location
Ireland-Poland
what is the maximum of money? 300k? above it like 3kk players can bug money? I mean, players put 3kk and say L, the addEvent is slow and player will take some money, npc will think it was 3kk even so??

thanks
just change it to calculate what it deleted and roll then .
 

WiktorSwir

New Member
Joined
Jan 5, 2016
Messages
6
Reaction score
0
[C]: in function 'getNpcPos'
data/npc/scripts/dice_gamble.lua:75: in function 'callback'
data/npc/lib/npcsystem/npchandler.lua:411: in function 'onCreatureSay'
data/npc/scripts/dice_gamble.lua:7: in function <data/npc/scripts/dice_gamble.lua:7>
someone have the same problem ?
 
Top