Marfito

Da forma que está mataria os monstros também . Fiz uma pequena modificação, assim só matará players e summons de players, mas não matará monstros e summon de monstros.
 
function onStepIn(cid, item, position, fromPosition) if(not(isPlayer(cid)) and (not(isSummon(cid))) and (not(isNPC(cid)))) or (isMonster(cid) and isSummon(cid) and (not(isPlayer(getCreatureMaster(cid))))) then return false end doCreatureAddHealth(cid, -getCreatureHealth(cid)) doSendMagicEffect(position, CONST_ME_DRAWBLOOD) return true end
 

Da forma que está mataria os monstros também . Fiz uma pequena modificação, assim só matará players e summons de players, mas não matará monstros e summon de monstros.
 
function onStepIn(cid, item, position, fromPosition) if(not(isPlayer(cid)) and (not(isSummon(cid))) and (not(isNPC(cid)))) or (isMonster(cid) and isSummon(cid) and (not(isPlayer(getCreatureMaster(cid))))) then return false end doCreatureAddHealth(cid, -getCreatureHealth(cid)) doSendMagicEffect(position, CONST_ME_DRAWBLOOD) return true end
 

Preview

 
Informações
Configuravel quantidade minima e máxima de aposta. Configuravel bonus caso a pessoa ganhe a aposta. Não é necessário editar a posição, apenas deixe o NPC à esquerda e o player à direita. Conversão automática do money. Anti-Trash.  
Script
<?xml version="1.0" encoding="UTF-8"?> <npc name="Dicer" script="dicer.lua" walkinterval="0" floorchange="0"> <health now="100" max="100"/> <look type="144" head="0" body="0" legs="0" feet="0" addons="0"/> </npc> 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 local config = { bonusPercent = 2, minimumBet = 100, maximumBet = 10000000 } local storeMoneyAmount = 0 -- Do not touch [We store the amount cash which got betted here] local function getMoneyAmount(position) local moneyAmount = 0 for _, item in ipairs(Tile(position):getItems()) do local itemId = item:getId() if itemId == ITEM_GOLD_COIN then moneyAmount = moneyAmount + item.type elseif itemId == ITEM_PLATINUM_COIN then moneyAmount = moneyAmount + item.type * 100 elseif itemId == ITEM_CRYSTAL_COIN then moneyAmount = moneyAmount + item.type * 10000 end end storeMoneyAmount = moneyAmount return moneyAmount end local function handleMoney(cid, position, bonus) -- Lets remove the cash which was betted for _, item in ipairs(Tile(position):getItems()) do if isInArray({ITEM_GOLD_COIN, ITEM_PLATINUM_COIN, ITEM_CRYSTAL_COIN}, item:getId()) then item:remove() end end local npc = Npc(cid) if not npc then return end -- We lost, no need to continue if bonus == 0 then npc:say("You lost!", TALKTYPE_SAY) position:sendMagicEffect(CONST_ME_POFF) return end -- Cash calculator local goldCoinAmount = storeMoneyAmount * bonus local crystalCoinAmount = math.floor(goldCoinAmount / 10000) goldCoinAmount = goldCoinAmount - crystalCoinAmount * 10000 local platinumCoinAmount = math.floor(goldCoinAmount / 100) goldCoinAmount = goldCoinAmount - platinumCoinAmount * 100 if goldCoinAmount > 0 then Game.createItem(ITEM_GOLD_COIN, goldCoinAmount, position) end if platinumCoinAmount > 0 then Game.createItem(ITEM_PLATINUM_COIN, platinumCoinAmount, position) end if crystalCoinAmount > 0 then Game.createItem(ITEM_CRYSTAL_COIN, crystalCoinAmount, position) end position:sendMagicEffect(math.random(CONST_ME_FIREWORK_YELLOW, CONST_ME_FIREWORK_BLUE)) npc:say("You Win!", TALKTYPE_SAY) end local function startRollDice(cid, position, number) for i = 5792, 5797 do local dice = Tile(position):getItemById(i) if dice then dice:transform(5791 + number) break end end local npc = Npc(cid) if npc then npc:say(string.format("%s rolled a %d", npc:getName(), number), TALKTYPE_MONSTER_SAY) end end local function creatureSayCallback(cid, type, msg) -- Npc Variables local npc = Npc() local npcPosition = npc:getPosition() -- Check if player stand in position local playerPosition = Position(npcPosition.x + 2, npcPosition.y, npcPosition.z) local topCreature = Tile(playerPosition):getTopCreature() if not topCreature then npc:say("Please go stand next to me.", TALKTYPE_SAY) playerPosition:sendMagicEffect(CONST_ME_TUTORIALARROW) playerPosition:sendMagicEffect(CONST_ME_TUTORIALSQUARE) return false end -- Make sure also the player who stand there, is the one who is betting. To keep out people from disturbing if topCreature:getId() ~= cid then return false end -- Check money Got betted local moneyPosition = Position(npcPosition.x + 1, npcPosition.y - 1, npcPosition.z) if getMoneyAmount(moneyPosition) < config.minimumBet or getMoneyAmount(moneyPosition) > config.maximumBet then npc:say(string.format("You can only bet min: %d and max: %d gold coins.", config.minimumBet, config.maximumBet), TALKTYPE_SAY) return false end -- High or Low numbers local rollType = 0 if msgcontains(msg, "low") then rollType = 1 elseif msgcontains(msg, "high") then rollType = 2 else return false end -- Roll Number local rollNumber = math.random(6) -- Dice local dicePosition = Position(npcPosition.x, npcPosition.y - 1, npcPosition.z) addEvent(startRollDice, 500, npc:getId(), dicePosition, rollNumber) dicePosition:sendMagicEffect(CONST_ME_CRAPS) rolledDice = true -- Win or Lose local bonus = 0 if rollType == 1 and isInArray({1, 2, 3}, rollNumber) then bonus = config.bonusPercent elseif rollType == 2 and isInArray({4, 5, 6}, rollNumber) then bonus = config.bonusPercent end -- Money Handeling addEvent(handleMoney, 700, npc:getId(), moneyPosition, bonus) return true end function onThink() local npcPosition = Npc():getPosition() local moneyPosition = Position(npcPosition.x + 1, npcPosition.y - 1, npcPosition.z) for _, item in ipairs(Tile(moneyPosition):getItems()) do if not isInArray({ITEM_GOLD_COIN, ITEM_PLATINUM_COIN, ITEM_CRYSTAL_COIN}, item:getId()) and ItemType(item:getId()):isMovable() then item:remove() end end npcHandler:onThink() end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) Créditos à Printer.

MagicEffects     CONST_ME_FIRST = 1,     CONST_ME_DRAWBLOOD = CONST_ME_FIRST,     CONST_ME_LOSEENERGY = 2,     CONST_ME_POFF = 3,     CONST_ME_BLOCKHIT = 4,     CONST_ME_EXPLOSIONAREA = 5,     CONST_ME_EXPLOSIONHIT = 6,     CONST_ME_FIREAREA = 7,     CONST_ME_YELLOW_RINGS = 8,     CONST_ME_GREEN_RINGS = 9,     CONST_ME_HITAREA = 10,     CONST_ME_TELEPORT = 11,     CONST_ME_ENERGYHIT = 12,     CONST_ME_MAGIC_BLUE = 13,     CONST_ME_MAGIC_RED = 14,     CONST_ME_MAGIC_GREEN = 15,     CONST_ME_HITBYFIRE = 16,     CONST_ME_HITBYPOISON = 17,     CONST_ME_MORTAREA = 18,     CONST_ME_SOUND_GREEN = 19,     CONST_ME_SOUND_RED = 20,     CONST_ME_POISONAREA = 21,     CONST_ME_SOUND_YELLOW = 22,     CONST_ME_SOUND_PURPLE = 23,     CONST_ME_SOUND_BLUE = 24,     CONST_ME_SOUND_WHITE = 25,     CONST_ME_BUBBLES = 26,     CONST_ME_CRAPS = 27,     CONST_ME_GIFT_WRAPS = 28,     CONST_ME_FIREWORK_YELLOW = 29,     CONST_ME_FIREWORK_RED = 30,     CONST_ME_FIREWORK_BLUE = 31,     CONST_ME_STUN = 32,     CONST_ME_SLEEP = 33,     CONST_ME_WATERCREATURE = 34,     CONST_ME_GROUNDSHAKER = 35,     CONST_ME_HEARTS = 36,     CONST_ME_FIREATTACK = 37,     CONST_ME_ENERGYAREA = 38,     CONST_ME_SMALLCLOUDS = 39,     CONST_ME_HOLYDAMAGE = 40,     CONST_ME_BIGCLOUDS = 41,     CONST_ME_ICEAREA = 42,     CONST_ME_ICETORNADO = 43,     CONST_ME_ICEATTACK = 44,     CONST_ME_STONES = 45,     CONST_ME_SMALLPLANTS = 46,     CONST_ME_CARNIPHILA = 47,     CONST_ME_PURPLEENERGY = 48,     CONST_ME_YELLOWENERGY = 49,     CONST_ME_HOLYAREA = 50,     CONST_ME_BIGPLANTS = 51,     CONST_ME_CAKE = 52,     CONST_ME_GIANTICE = 53,     CONST_ME_WATERSPLASH = 54,     CONST_ME_PLANTATTACK = 55,     CONST_ME_TUTORIALARROW = 56,     CONST_ME_TUTORIALSQUARE = 57,     CONST_ME_MIRRORHORIZONTAL = 58,     CONST_ME_MIRRORVERTICAL = 59,     CONST_ME_SKULLHORIZONTAL = 60,     CONST_ME_SKULLVERTICAL = 61,     CONST_ME_ASSASSIN = 62,     CONST_ME_STEPSHORIZONTAL = 63,     CONST_ME_BLOODYSTEPS = 64,     CONST_ME_STEPSVERTICAL = 65,     CONST_ME_YALAHARIGHOST = 66,     CONST_ME_BATS = 67,     CONST_ME_SMOKE = 68,     CONST_ME_INSECTS = 69,     CONST_ME_DRAGONHEAD = 70,     CONST_ME_ORCSHAMAN = 71,     CONST_ME_ORCSHAMAN_FIRE = 72,     CONST_ME_THUNDER = 73,     CONST_ME_FERUMBRAS = 74,     CONST_ME_CONFETTI_HORIZONTAL = 75,     CONST_ME_CONFETTI_VERTICAL = 76,     // 77-157 are empty     CONST_ME_BLACKSMOKE = 158,     CONST_ME_LAST = CONST_ME_BLACKSMOKE, // 159-166 are empty CONST_ME_REDSMOKE = 167, CONST_ME_YELLOWSMOKE = 168, CONST_ME_GREENSMOKE = 169, CONST_ME_PURPLESMOKE = 170, CONST_ME_EARLY_THUNDER = 171, CONST_ME_RAGIAZ_BONECAPSULE = 172, CONST_ME_CRITICAL_DAMAGE = 173, // 174 is empty CONST_ME_PLUNGING_FISH = 175,    ShootTypes     CONST_ANI_NONE = 0,     CONST_ANI_FIRST = 1,     CONST_ANI_SPEAR = CONST_ANI_FIRST,     CONST_ANI_BOLT = 2,     CONST_ANI_ARROW = 3,     CONST_ANI_FIRE = 4,     CONST_ANI_ENERGY = 5,     CONST_ANI_POISONARROW = 6,     CONST_ANI_BURSTARROW = 7,     CONST_ANI_THROWINGSTAR = 8,     CONST_ANI_THROWINGKNIFE = 9,     CONST_ANI_SMALLSTONE = 10,     CONST_ANI_DEATH = 11,     CONST_ANI_LARGEROCK = 12,     CONST_ANI_SNOWBALL = 13,     CONST_ANI_POWERBOLT = 14,     CONST_ANI_POISON = 15,     CONST_ANI_INFERNALBOLT = 16,     CONST_ANI_HUNTINGSPEAR = 17,     CONST_ANI_ENCHANTEDSPEAR = 18,     CONST_ANI_REDSTAR = 19,     CONST_ANI_GREENSTAR = 20,     CONST_ANI_ROYALSPEAR = 21,     CONST_ANI_SNIPERARROW = 22,     CONST_ANI_ONYXARROW = 23,     CONST_ANI_PIERCINGBOLT = 24,     CONST_ANI_WHIRLWINDSWORD = 25,     CONST_ANI_WHIRLWINDAXE = 26,     CONST_ANI_WHIRLWINDCLUB = 27,     CONST_ANI_ETHEREALSPEAR = 28,     CONST_ANI_ICE = 29,     CONST_ANI_EARTH = 30,     CONST_ANI_HOLY = 31,     CONST_ANI_SUDDENDEATH = 32,     CONST_ANI_FLASHARROW = 33,     CONST_ANI_FLAMMINGARROW = 34,     CONST_ANI_SHIVERARROW = 35,     CONST_ANI_ENERGYBALL = 36,     CONST_ANI_SMALLICE = 37,     CONST_ANI_SMALLHOLY = 38,     CONST_ANI_SMALLEARTH = 39,     CONST_ANI_EARTHARROW = 40,     CONST_ANI_EXPLOSION = 41,     CONST_ANI_CAKE = 42,     CONST_ANI_TARSALARROW = 44,     CONST_ANI_VORTEXBOLT = 45,     CONST_ANI_PRISMATICBOLT = 48,     CONST_ANI_CRYSTALLINEARROW = 49,     CONST_ANI_DRILLBOLT = 50,     CONST_ANI_ENVENOMEDARROW = 51, CONST_ANI_GLOOTHSPEAR = 53, CONST_ANI_SIMPLEARROW = 54, fonte: https://github.com/otland/forgottenserver/blob/master/src/const.h
  Lista com Gif
CONST_ME_DRAWBLOOD = 0   
 
CONST_ME_LOSEENERGY = 1   
 
CONST_ME_POFF = 2   
 
CONST_ME_BLOCKHIT = 3   
 
CONST_ME_EXPLOSIONAREA = 4   
 
CONST_ME_EXPLOSIONHIT = 5   
 
CONST_ME_FIREAREA = 6   
 
CONST_ME_YELLOW_RINGS = 7   
 
CONST_ME_GREEN_RINGS = 8   
 
CONST_ME_HITAREA = 9   
 
CONST_ME_TELEPORT = 10   
 
CONST_ME_ENERGYHIT = 11   
 
CONST_ME_MAGIC_BLUE = 12  
 
CONST_ME_MAGIC_RED = 13   
 
CONST_ME_MAGIC_GREEN = 14   
 
CONST_ME_HITBYFIRE = 15   
 
CONST_ME_HITBYPOISON = 16 
 
CONST_ME_MORTAREA = 17   
 
CONST_ME_SOUND_GREEN = 18   
 
CONST_ME_SOUND_RED = 19   
 
CONST_ME_POISONAREA = 20   
 
CONST_ME_SOUND_YELLOW = 21   
 
CONST_ME_SOUND_PURPLE = 22   
 
CONST_ME_SOUND_BLUE = 23   
 
CONST_ME_SOUND_WHITE = 24   
 
CONST_ME_BUBBLES = 25   
 
CONST_ME_CRAPS = 26   
 
CONST_ME_GIFT_WRAPS = 27  
  
CONST_ME_FIREWORK_YELLOW = 28   
 
CONST_ME_FIREWORK_RED = 29   
 
CONST_ME_FIREWORK_BLUE = 30   
 
CONST_ME_STUN = 31   
 
CONST_ME_SLEEP = 32 
 
CONST_ME_WATERCREATURE = 33   
 
CONST_ME_GROUNDSHAKER = 34   
 
CONST_ME_HEARTS = 35   
 
CONST_ME_FIREATTACK = 36   
 
CONST_ME_ENERGYAREA = 37   
 
CONST_ME_SMALLCLOUDS = 38   
 
CONST_ME_HOLYDAMAGE = 39 
   
CONST_ME_BIGCLOUDS = 40 (OBS: são as nuvens do exevo gran mas vis)
 
CONST_ME_ICEAREA = 41   
 
CONST_ME_ICETORNADO = 42   
 
CONST_ME_ICEATTACK = 43   
 
CONST_ME_STONES = 44 
 
CONST_ME_SMALLPLANTS = 45 
 
CONST_ME_CARNIPHILA = 46   
 
CONST_ME_PURPLEENERGY = 47   
 
CONST_ME_YELLOWENERGY = 48   
 
CONST_ME_HOLYAREA = 49  
 
CONST_ME_BIGPLANTS = 50    (é quase igual, só que cresce mais, não consegui gif)
 
CONST_ME_CAKE = 51   
 
CONST_ME_GIANTICE = 52   
 
CONST_ME_WATERSPLASH = 53  
 
CONST_ME_PLANTATTACK = 54   
 
CONST_ME_TUTORIALARROW = 55   
 
CONST_ME_TUTORIALSQUARE = 56   
 
CONST_ME_MIRRORHORIZONTAL = 57   
 
CONST_ME_MIRRORVERTICAL = 58   
 
CONST_ME_SKULLHORIZONTAL = 59  
  
CONST_ME_SKULLVERTICAL = 60   
 
CONST_ME_ASSASSIN = 61   
 
CONST_ME_STEPSHORIZONTAL = 62 (Ignorado)
CONST_ME_BLOODYSTEPS = 63 (Ignorado)
CONST_ME_STEPSVERTICAL = 64 (Ignorado)
 
CONST_ME_YALAHARIGHOST = 65   
 
CONST_ME_BATS = 66   
 
CONST_ME_SMOKE = 67  
  
CONST_ME_INSECTS = 68   

Em qualquer Tibia.spr de clientes mais atuais, como 10.31, por exemplo.

MAGIC EFFECTS:
 

 
SHOOT TYPE:
 

 
 
 
EDIT: Revivi pra adicionar conteúdo ao tópico.

Fonte:  http://www.tibiaking.com/forum/topic/49095-lib-000-const/
Eu mesmo...
 
 
CONST_ME:
 
 
CONST_ME_DRAWBLOOD = 0   
 
CONST_ME_LOSEENERGY = 1   
 
CONST_ME_POFF = 2   
 
CONST_ME_BLOCKHIT = 3   
 
CONST_ME_EXPLOSIONAREA = 4   
 
CONST_ME_EXPLOSIONHIT = 5   
 
CONST_ME_FIREAREA = 6   
 
CONST_ME_YELLOW_RINGS = 7   
 
CONST_ME_GREEN_RINGS = 8   
 
CONST_ME_HITAREA = 9   
 
CONST_ME_TELEPORT = 10   
 
CONST_ME_ENERGYHIT = 11   
 
CONST_ME_MAGIC_BLUE = 12  
 
CONST_ME_MAGIC_RED = 13   
 
CONST_ME_MAGIC_GREEN = 14   
 
CONST_ME_HITBYFIRE = 15   
 
CONST_ME_HITBYPOISON = 16 
 
CONST_ME_MORTAREA = 17   
 
CONST_ME_SOUND_GREEN = 18   
 
CONST_ME_SOUND_RED = 19   
 
CONST_ME_POISONAREA = 20   
 
CONST_ME_SOUND_YELLOW = 21   
 
CONST_ME_SOUND_PURPLE = 22   
 
CONST_ME_SOUND_BLUE = 23   
 
CONST_ME_SOUND_WHITE = 24   
 
CONST_ME_BUBBLES = 25   
 
CONST_ME_CRAPS = 26   
 
CONST_ME_GIFT_WRAPS = 27  
  
CONST_ME_FIREWORK_YELLOW = 28   
 
CONST_ME_FIREWORK_RED = 29   
 
CONST_ME_FIREWORK_BLUE = 30   
 
CONST_ME_STUN = 31   
 
CONST_ME_SLEEP = 32 
 
CONST_ME_WATERCREATURE = 33   
 
CONST_ME_GROUNDSHAKER = 34   
 
CONST_ME_HEARTS = 35   
 
CONST_ME_FIREATTACK = 36   
 
CONST_ME_ENERGYAREA = 37   
 
CONST_ME_SMALLCLOUDS = 38   
 
CONST_ME_HOLYDAMAGE = 39 
   
CONST_ME_BIGCLOUDS = 40 (OBS: são as nuvens do exevo gran mas vis)
 
CONST_ME_ICEAREA = 41   
 
CONST_ME_ICETORNADO = 42   
 
CONST_ME_ICEATTACK = 43   
 
CONST_ME_STONES = 44 
 
CONST_ME_SMALLPLANTS = 45 
 
CONST_ME_CARNIPHILA = 46   
 
CONST_ME_PURPLEENERGY = 47   
 
CONST_ME_YELLOWENERGY = 48   
 
CONST_ME_HOLYAREA = 49  
 
CONST_ME_BIGPLANTS = 50    (é quase igual, só que cresce mais, não consegui gif)
 
CONST_ME_CAKE = 51   
 
CONST_ME_GIANTICE = 52   
 
CONST_ME_WATERSPLASH = 53  
 
CONST_ME_PLANTATTACK = 54   
 
CONST_ME_TUTORIALARROW = 55   
 
CONST_ME_TUTORIALSQUARE = 56   
 
CONST_ME_MIRRORHORIZONTAL = 57   
 
CONST_ME_MIRRORVERTICAL = 58   
 
CONST_ME_SKULLHORIZONTAL = 59  
  
CONST_ME_SKULLVERTICAL = 60   
 
CONST_ME_ASSASSIN = 61   
 
CONST_ME_STEPSHORIZONTAL = 62 (Ignorado)
CONST_ME_BLOODYSTEPS = 63 (Ignorado)
CONST_ME_STEPSVERTICAL = 64 (Ignorado)
 
CONST_ME_YALAHARIGHOST = 65   
 
CONST_ME_BATS = 66   
 
CONST_ME_SMOKE = 67  
  
CONST_ME_INSECTS = 68   
 
CONST_ME_NONE = 255
CONST_ME_LAST = CONST_ME_INSECTS
 
      Depois eu posto o CONST_ANI