local initialBetamount = 1
local multipleByonLoss = 2
local delay = 500	--[[ waits between actions, if it's so low, then you won't play properly because npc is so slow ]]--
local messages = false;
local streak = 0;
local when_increase_bet = 6;
local increase_by = 1;
local coinId = 3043 --[[ crystal coin ]]--

local betL = "l"
local betH = "h"

local name = "nick"

local myposition_x = Self.Position().x
local myposition_y = Self.Position().y
local pos_z = Self.Position().z

local dice_x = myposition_x-2
local dice_y = myposition_y-1

local srodek_pos_x = myposition_x-1
local srodek_pos_y = myposition_y-1

local currentBet = initialBetamount
local currentHL = betL
 Self.DropItem(srodek_pos_x, srodek_pos_y, pos_z, coinId, Self.ItemCount(coinId))


while (true)
    do
	if (Self.Position().x == myposition_x and Self.Position().y == myposition_y and Self.Position().z == pos_z)
	then
		wait(0.3*delay)
		if (messages)
		then
		Self.PrivateMessage(name,"Przewiduje ".. currentBet .."cc na: " ..currentHL)
		end
        Self.SayToNpc(currentBet .."cc" ..currentHL)
        wait(0.3*delay)

		if (currentHL == betL)
		then
			if (Map.GetTopUseItem(dice_x, dice_y, pos_z).id < 5795) --[[ low i wygral ]]--
				then
				streak = 0
				wait(0.1*delay)
				currentBet = initialBetamount
				increase_by = 1

			elseif (Map.GetTopUseItem(dice_x, dice_y, pos_z).id >= 5795)	--[[ low i przegral ]]--
			then
					streak = streak+1
					wait(0.1*delay)

						if (streak>=when_increase_bet)
						then
							increase_by = increase_by + 1
							currentBet = currentBet*multipleByonLoss + increase_by
							Self.PrivateMessage(name,"Increased bet: " ..currentBet)
						end

						if (streak<when_increase_bet)
						then
							currentBet = currentBet*multipleByonLoss
						end
					currentHL = betH
			end
		elseif (currentHL == betH)
		then
				if (Map.GetTopUseItem(dice_x, dice_y, pos_z).id >= 5795)	--[[ high i wygral ]]--
				then
					streak = 0
					currentBet = initialBetamount
					increase_by = 1

				elseif (Map.GetTopUseItem(dice_x, dice_y, pos_z).id < 5795) --[[ high i przegral ]]--
				then
					streak = streak+1
					wait(0.1*delay)

					if (streak>=when_increase_bet)
					then
						increase_by = increase_by + 1
						currentBet = currentBet*multipleByonLoss + increase_by
						Self.PrivateMessage(name,"Increased bet: " ..currentBet)
					end

					if (streak<when_increase_bet)
					then
						currentBet = currentBet*multipleByonLoss
					end
					currentHL = betL
				end
		end
	end
end