BlackTibia

No estás conectado. Conéctate o registrate

 » Open Tibia » Pedido de Scripts » 

Script para bot (cassino)

Script para bot (cassino)

#1 Script para bot (cassino) el Miér Abr 27, 2016 1:27 am

Godz4t4n1c


Miembro
[Tienes que estar registrado y conectado para ver este vínculo], necesito tu ayuda

Bueno mira tengo este script de cassino para mi bot, mira lo instalo todo paja dice su mensaje, cuando ponen el dinero lo agarra y dice balance y el número de dinero que puso, pero cuando le dices (H ó L), no gira dado ni paga el doble o dice si gano o perdio, no hace nada porfavor necesito tu ayuda

Es para versión 10.90
este es el script:
Código:
    BetCashBP = "golden backpack"
     MoneyBP = "blue backpack"
------------------------------------------------------------------------------------------------------------------
-- Effects --
_Effects_Enabled = false -- Use item effects
_Effects_Item = "Party Hat" -- Name of the item to show effects
_Effects_Interval = 3 -- How often to show effects
Bet =
{
    Value = 0, -- nie konfigurowalne
    min = 5, -- w cc 5 = 5cc
    max = 50, -- w cc  100 = 1kk
}

payo = 0.8 --    1 == 100%  ,  0.8 == 80%  
 yellActive = true
yellMessage = ("-Games-[ H / L ]- Script-[ 100% afk ]- | -[ Min > 50k | Max > 300k ]- |         -[ You Win 90% ]-")

info =  'Min: ' .. Bet.min*10 .. "k. Max: " .. Bet.max*10 .. "k. \n [ Example Say: 50l or 50h = 50k ]"
cashposx = Self.Position().x  
cashposy = Self.Position().y
cashposz = Self.Position().z
Players = {}
Rolls = {}
cc = 3043
Balance = 0
Gambler_Name = ""
 money = Self.ItemCount(cc)
 cash = Self.ItemCount(cc)
 Players = {}
Rolls = {}
AntiSpamTimer = os.clock()
function AntiSpam(message, type)
if os.difftime(os.clock(), AntiSpamTimer) >= 1.3 then
Self.Speak(message, type)
AntiSpamTimer = os.clock()
end
end
function onSpeak(channel, msg)
  if msg == 'balance' then
    channel:SendOrangeMessage('DiceBot', Gambler_Name .. '\'s balance is ' .. Balance)
  end
  if msg == 'info' then
    channel:SendOrangeMessage('DiceBot', "Bet.min = " .. Bet.min)
    channel:SendOrangeMessage('DiceBot', "Bet.max = " .. Bet.max)
    channel:SendOrangeMessage('DiceBot', "Gambler_Name = " .. Gambler_Name)
    channel:SendOrangeMessage('DiceBot', "Balance = " .. Balance)
  end
end
function onClose(channel, msg)
  print("Leaving channel")
end
channel = Channel.New('DiceBot log', onSpeak, onClose)
Module.New('Casino_Turn', function(Mod)
  Casino_Loaded = true
    if (Casino_Loaded) then
        Player_Detected = false
  
        for name, creature in Creature.iPlayers(2) do
  
            if (creature:Position().x == Self.Position().x + 2 and creature:Position().y == Self.Position().y and creature:Position().z == Self.Position().z) then
                Player_Detected = true
                    if Gambler_Name ~= creature:Name() and not table.contains(Players, Gambler_Name) then
                    table.insert(Players, Gambler_Name)
                    for i = 1, #Players do
                    print(Players[i])
               end
               end
  
                Gambler_Name = creature:Name()
                if (creature:Position().x < Self.Position().x) then
                  cashposx = Self.Position().x - 1
                  cashposy = Self.Position().y - 1
                  cashposz = Self.Position().z
                    if (Self.LookDirection() ~= WEST) then
                        Self.Turn(WEST)
                    end
                elseif (creature:Position().x > Self.Position().x) then
                                    cashposx = Self.Position().x + 1
                                     cashposy = Self.Position().y  - 1
                                     cashposz = Self.Position().z
                                        if (Self.LookDirection() ~= EAST) then


                        Self.Turn(EAST)
                        welcomemsg = ("Hello " .. Gambler_Name .. "\nMIN " .. Bet.min * 10 .. "K. MAX " .. Bet.max *10 .. " k.\n say: info\n -> Welcome <-")
                                         AntiSpam(welcomemsg, SPEAK_SAY)

                    end


                else
                    if (creature:Position().y < Self.Position().y) then
                        if (Self.LookDirection() ~= NORTH) then
                            Self.Turn(NORTH)
                        end
                    elseif (creature:Position().y > Self.Position().y) then
                        if (Self.LookDirection() ~= SOUTH) then
                            Self.Turn(SOUTH)
                        end
                    else
                        print('Casino: Error. Self character is the potential gambler.')
                    end
                end
                break
            end
        end
        if not (Player_Detected) then
                          Balance = 0
            if (Self.LookDirection() ~= SOUTH) then
              yellDelay = os.time()
                Self.Turn(SOUTH)
                Balance = 0
                   AntiSpam("Today's players: " .. #Players, SPEAK_SAY)
            end
        end
    end
    Mod:Delay(100)
end)

 EffectMessageProxy.OnReceive("DiceSignal", function(proxy, message, x, y, z)
roll = string.match(message, Self.Name().." rolled a (.+).")
if roll then
dice = Signal.New('Dice')
dice:Send(roll)
end
end)
Module.New('Check-Bet', function(mod)

      BetBP = Container.New(BetCashBP)
      CashBP = Container.New(MoneyBP)
            if (Map.GetTopMoveItem(cashposx, cashposy, cashposz).id == cc and not withdraw and not Casher) then
              Casher = true
             d =  (Map.GetTopMoveItem(cashposx, cashposy, cashposz)).count
            Map.PickupItem(cashposx, cashposy, cashposz, BetBP:Index(), 0)
            wait(700 + Self.Ping())
                  print(BetBP:CountItemsOfID(cc))
                  Bet.Value = BetBP:CountItemsOfID(cc)
                  Balance   = Balance + Bet.Value
                  repeat
                  BetBP:MoveItemToContainer(0, CashBP:Index(), 0)
                  until
                    BetBP:CountItemsOfID(cc) == 0
    AntiSpam('Your balance: ' .. Balance *10 .. " k.", SPEAK_SAY)
           --  AntiSpam("Bot added " .. Bet.Value * 10 .. " k to your balance. Your balance is " .. Balance * 10 .. "k.", SPEAK_SAY)
             channel:SendOrangeMessage('DiceLog', 'Bot added ' .. Bet.Value *10 .. 'k on ' .. Gambler_Name .. '\'s balance and its ' .. Balance *10 .. 'k.')
             print('Bet Value is ' .. Bet.Value * 10 .. " " .. Gambler_Name .. " balance is " .. Balance * 10)
             wait(300 + Self.Ping())
             Casher = false
             Bet.Value = 0
              
end
end)
 LocalSpeechProxy.OnReceive('bet', function(proxy, mtype, speaker, level, text)
  Cyfra = text:match('%d+')
  Litera = text:match('%a+')
  if speaker == Gambler_Name and Cyfra ~= nil and Litera ~= "" then
    Cyfra1 = tonumber(Cyfra) + 0
    if table.isStrIn({'l', 'h'}, Litera) and Cyfra ~= nil then
      print(Cyfra1 .. " " .. Litera)
      if Cyfra1 >= Bet.min * 10 and Cyfra1 <= Bet.max * 10 and Balance >= Cyfra1 / 10 and Litera == "h" or Litera == "l" and speaker == Gambler_Name then
                ValidBet = true
                playerBet = Cyfra1
                playerType = Litera
                print('valid ' .. playerBet .. 'valid ' .. playerType)
                else  
                  ValidBet = false
              end
            else
              ValidBet = false
            end
          end
          if Cyfra == nil or Cyfra == 0 and Litera == "" then
               ValidBet = false
  end
  end)
 LocalSpeechProxy.OnReceive('Balance', function(proxy, mtype, speaker, level, text)
  if speaker == Gambler_Name and text:lower() == 'balance' then
    AntiSpam('Your balance: ' .. Balance *10 .. " k.", SPEAK_SAY)
  end
end)  
 LocalSpeechProxy.OnReceive('BalanceRolls', function(proxy, mtype, speaker, level, text)
  if speaker == Gambler_Name and ValidBet and not Casher then
    print(playerBet .. " playerBet " .. "playerType " .. playerType)
                            
                                      if playerType:lower() == 'h' and playerBet / 10  >= Bet.min and playerBet / 10 <= Bet.max and Balance ~= 0 and playerBet /10 <= Balance and ValidBet == true and not Bett and not withdrawthen then
                                        Bett = true
                                           Self.UseItemFromGround(Self.Position().x, Self.Position().y -1, Self.Position().z)
                         Signal.OnReceive('Dice', function(signal, data)
                              if (data == "4" or data == "5" or data == "6") and playerType:lower() == 'h' and playerBet / 10 >= Bet.min and not withdraw then
                                   Balance = math.floor(Balance + ((playerBet / 10) * payo))
                                   AntiSpam("YouWin: [ +" .. math.floor(playerBet * payo)  .. "k. ]\nBalance: " ..  Balance * 10 .. " k." , SPEAK_SAY)
                         channel:SendYellowMessage('DiceLog', Gambler_Name .. ": " .. playerType .. ' . Bet: ' .. playerBet .. ' Win:' .. playerBet  .. ' Balance = ' .. Balance * 10)
                    
                         print('win')
                         Bett = false
                    else
                      Bett = true
                         Balance = math.floor(Balance - playerBet / 10)
                         AntiSpam( "YouLost: [ -" .. playerBet .. "k. ]\nBalance: " .. Balance *10 .. ' k.', SPEAK,SAY)
                                                  channel:SendOrangeMessage('DiceLog', Gambler_Name .. ": " .. playerType .. ' . Bet: ' .. playerBet .. ' Lost:' .. playerBet  .. ' Balance = ' .. Balance * 10)
                         print("lost")
                         Bett = false
                       end
                    end)
                          elseif playerType:lower() == 'l' and playerBet / 10 >= Bet.min and  playerBet / 10 <= Bet.max  and playerBet /10 <= Balance and Balance ~= 0 and ValidBet == true and not Bett and not withdraw then
                        -- browse:UseItem(0)
                        Bett = true
                                           Self.UseItemFromGround(Self.Position().x, Self.Position().y -1, Self.Position().z)
                         Signal.OnReceive('Dice', function(signal, data)  
                        if (data == "1" or data == "2" or data == "3") and playerType:lower() == 'l' and playerBet /10 >= Bet.min and not withdraw then
                                   Balance = math.floor(Balance + ((playerBet / 10)*payo))
                                   AntiSpam( "YouWin: [ +" .. math.floor(playerBet * payo) .. "k. ]\nBalance: " ..  Balance * 10 .. " k." , SPEAK_SAY)
                                  channel:SendYellowMessage('DiceLog', Gambler_Name .. ": " .. playerType .. ' . Bet: ' .. playerBet / 1.2 .. ' Win:' .. playerBet * 0.8 .. ' Balance = ' .. Balance * 10)
Bett = false
                         print('win')
                               else
                                Bett = true
                          Balance =math.floor(Balance - playerBet / 10)
                          AntiSpam( "YouLost: [ -" .. playerBet .. "k. ]\nBalance: " .. Balance *10 .. ' k.' , SPEAK_SAY)
                                                channel:SendOrangeMessage('DiceLog', Gambler_Name .. ": " .. playerType .. ' . Bet: ' .. playerBet .. ' Lost:' .. playerBet  .. ' Balance = ' .. Balance * 10)
                         print("lost")
                         Bett = false
                       end
                    end)      
                end
            elseif speaker == Gambler_Name and not ValidBet then
              if text:lower() == 'h' and Balance >= Bet.min and Balance <= Bet.max and not Bett and not withdraw then
                Bett = true
                                           Self.UseItemFromGround(Self.Position().x, Self.Position().y -1, Self.Position().z)
                         Signal.OnReceive('Dice', function(signal, data)
                              if (data == "4" or data == "5" or data == "6") and text:lower() == 'h'   then
                                   Balance = math.floor(Balance + (Balance * payo))  
                                   AntiSpam("Choose: [" .. text:upper() .. ".] Win[ +" .. Balance * 10 .. "k. ]\nBalance: " ..  Balance * 10 .. " k." , SPEAK_SAY)
                         channel:SendYellowMessage('DiceLog', Gambler_Name .. ": " .. text:upper() .. ' . Bet: ' .. Balance * 10 .. ' Win:' .. Balance * 10 .. ' Balance = ' .. Balance * 10)
                   Bett = false
                         print('win')
                    else
                         Bett = true
                         cash = money + Balance
                         AntiSpam( "Choose: [" .. text:upper() .. ".] Lost[ -" .. Balance * 10 .. " k].\nBalance: 0 k.", SPEAK,SAY)
                         Balance = 0
                                                  channel:SendOrangeMessage('DiceLog', Gambler_Name .. ": " .. text:upper() .. ' . Bet: ' .. Balance * 10 .. ' Lost:' .. Balance * 10  .. ' Balance = 0' )
                         print("lost")
                         Bett = false
                       end
                       end)
 elseif   text:lower() == 'l' and Balance >= Bet.min and Balance <= Bet.max and not Bett and not withdraw then
              Bett = true
                                 Self.UseItemFromEquipment('shield')
                         Signal.OnReceive('Dice', function(signal, data)
                              if (data == "1" or data == "2" or data == "3") and text:lower() == 'l'   then
                                   Balance = math.floor(Balance + (Balance * payo))
                                   AntiSpam("Choose: [" .. text:upper() .. ".] Win[ +" .. Balance * 10 .. "k. ]\nBalance: " ..  Balance * 10 .. " k." , SPEAK_SAY)
                         channel:SendYellowMessage('DiceLog', Gambler_Name .. ": " .. text:upper() .. ' . Bet: ' .. Balance .. ' Win:' .. Balance * 10 .. ' Balance = ' .. Balance * 10)
                   Bett = false
                         print('win')
                    else
                         Bett = true
                         AntiSpam( "Choose: [" .. text:upper() .. ".] Lost[ -" .. Balance * 10 .. " k].\nBalance: 0 k.", SPEAK,SAY)
                         Balance = 0
                                                  channel:SendOrangeMessage('DiceLog', Gambler_Name .. ": " .. text:upper() .. ' . Bet: ' .. Balance * 10 .. ' Lost:' .. Balance * 10  .. ' Balance = 0' )
                         print("lost")
                         Bett = false
                       end
                       end)
end
end

end)
  
LocalSpeechProxy.OnReceive('withdraw', function(proxy, mtype, speaker ,level ,text)
  if not Casher and not withdraw then
if (speaker:lower() == Gambler_Name:lower() and Balance ~= 0 ) and not withdraw and not Bett and not Casher then

     if (text:lower() == 'pay' or text:lower() == '>' or text:lower() == 'payout' or text:lower() == 'payo' or text:lower() == 'withdraw' or text:lower() == '<' and not withdraw ) then
     withdraw = true
     Self.DropItem(cashposx, cashposy, cashposz, cc, Balance)
     channel:SendOrangeMessage('DiceLog', 'Moved ' .. Balance .. " Crystal Coins onto " .. Gambler_Name .. '\'s locker.')
          Balance = 0
     AntiSpam( 'Your balance is ' .. Balance .. ".", SPEAK_SAY)
     wait(5000)
     withdraw = false
     end
   end
     end
     end )
 LocalSpeechProxy.OnReceive('info', function(proxy, mtype, speaker, level, text)
  if (speaker == Gambler_Name and text:lower() == 'info' or text:lower() == 'min'  or text:lower() == 'max') then
AntiSpam(info , SPEAK_SAY)
end
end)
Module.New('Yelling', function(mod)
  if yellActive then
    if not Player_Detected then
     -- Timer2 = yellDelay
        local Spam2 = os.difftime(os.time(), Timer2)
        if Spam2 >= 20 then
        Self.Yell(yellMessage)
        Timer2 = os.time()
    end
    end
  end
    mod:Delay(400)
    end)  
if _Effects_Enabled then
 Module('EffectsSystem', function(Mod)
 if Casino_Loaded then
 if not Processing_Data then
 if _Effects_Enabled then
 if _Effects_Item:lower() == "party hat" then
 if (Self.Head().id == Item.GetID('party hat')) then
 Self.UseItemFromEquipment('head')
 Last_Party_Hat = os.time()
 end
 elseif _Effects_Item:lower() == "enigmatic voodoo skull" then
 if Count_Extended(Containers.Depot, {5669}) > 0 then
 for EffectItemInDepot = 0, Containers.Depot:ItemCount()-1 do
 if EffectItemInDepot > 28 then
 EffectItemInDepot = 28
 end
 local tempItem = Containers.Depot:GetItemData(EffectItemInDepot)
 if 5669 == tempItem.id then
 Containers.Depot:UseItem(EffectItemInDepot, true)
 break
 end
 end
 end
 else
 if Count_Extended(Containers.Depot, {Item.GetID(_Effects_Item)}) > 0 then
 for EffectItemInDepot = 0, Containers.Depot:ItemCount()-1 do
 if EffectItemInDepot > 28 then
 EffectItemInDepot = 28
 end
 local tempItem = Containers.Depot:GetItemData(EffectItemInDepot)
 if Item.GetID(_Effects_Item) == tempItem.id then
 Containers.Depot:UseItem(EffectItemInDepot, true)
 break
 end
 end
 end
 end
 end
 end
 end
 Mod:Delay(_Effects_Interval*1000)
 end)
end

Necesito ayuda porfavor, para poder arreglarlo
Se los agradecería de antemano



Última edición por Godz4t4n1c el Jue Abr 28, 2016 6:24 pm, editado 1 vez

#2 Re: Script para bot (cassino) el Miér Abr 27, 2016 7:27 pm

Godz4t4n1c


Miembro
@BUMP

#3 Re: Script para bot (cassino) el Jue Abr 28, 2016 9:16 am

Godz4t4n1c


Miembro
Porfavor necesito que al momento de tirar cosas sobre mi dp donde estoy posicionado, esas cosas que tiran que lo bote al piso, y también si pudieran hacerlo que solo funcione con h / l , no con 50h o 50l para que recien puedan jugar porfavor necesito una ayuda se los agradecería de antemano

#4 Re: Script para bot (cassino) el Jue Abr 28, 2016 6:37 pm

Godz4t4n1c


Miembro
@BUMP

Porfavor necesito ayuda :/

#5 Re: Script para bot (cassino) el Vie Abr 29, 2016 6:58 pm

Godz4t4n1c


Miembro
@BUMP

Este script tiene bug,
cuando un player dice: h o l no gira el dado y se bugea no devuelve el dinero y solo gira dado cuando dice: 300l o 300h y alveces se bugea, porfavor alguie que me pueda ayudar ... necesito una mano

#6 Re: Script para bot (cassino) Hoy a las 4:30 am

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.

 

¿Quién está en línea?

En total hay 0 usuarios en línea: 0 Registrados, 0 Ocultos y 0 Invitado

Usuarios navegando en este foro: Ninguno

Forum Statistics

Nuestros miembros han públicado un total de posts en temas.
Actualmente hay miembros registrados.
Démosle la bienvenida al miembro más reciente,
La mayor cantidad de usuarios en línea ha sido de .